Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Versión 2.0.6

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1101 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2014-03-04 16:37:31 +00:00
parent a523af464a
commit c6c05b0212
30 changed files with 847 additions and 501 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Database/scripts/factuges.sql
View File

@ -1131,7 +1131,8 @@ CREATE TABLE RECIBOS_PROVEEDOR (
FECHA_MODIFICACION DATE, FECHA_MODIFICACION DATE,
USUARIO TIPO_USUARIO, USUARIO TIPO_USUARIO,
ID_REMESA TIPO_ID, ID_REMESA TIPO_ID,
ID_RECIBO_COMPENSADO INTEGER ID_RECIBO_COMPENSADO INTEGER,
DATOS_BANCARIOS VARCHAR(255) COLLATE ES_ES
); );
CREATE TABLE REFERENCIAS ( CREATE TABLE REFERENCIAS (
@ -3336,6 +3337,7 @@ CREATE VIEW V_RECIBOS_PROVEEDOR(
FORMA_PAGO_FACTURA, FORMA_PAGO_FACTURA,
IMPORTE_FACTURA, IMPORTE_FACTURA,
ID_EMPRESA, ID_EMPRESA,
DATOS_BANCARIOS_FACTURA,
DATOS_BANCARIOS, DATOS_BANCARIOS,
ID_PROVEEDOR, ID_PROVEEDOR,
NOMBRE_PROVEEDOR, NOMBRE_PROVEEDOR,
@ -3363,6 +3365,7 @@ SELECT RECIBOS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA, FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA,
FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL, FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
FACTURAS_PROVEEDOR.ID_EMPRESA, FACTURAS_PROVEEDOR.DATOS_BANCARIOS, FACTURAS_PROVEEDOR.ID_EMPRESA, FACTURAS_PROVEEDOR.DATOS_BANCARIOS,
RECIBOS_PROVEEDOR.DATOS_BANCARIOS,
CONTACTOS.ID as ID_PROVEEDOR, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS.ID as ID_PROVEEDOR, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF,

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,0,5,0 FILEVERSION 2,0,6,0
PRODUCTVERSION 2,0,5,0 PRODUCTVERSION 2,0,6,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.0.5.0\0" VALUE "FileVersion", "2.0.6.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.0.5.0\0" VALUE "ProductVersion", "2.0.6.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

26
Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj
View File

@ -19,6 +19,7 @@
<Projects Include="..\Contactos\Data\Contactos_data.dproj" /> <Projects Include="..\Contactos\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" /> <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
<Projects Include="..\Gestor de informes\Controller\GestorInformes_controller.dproj" /> <Projects Include="..\Gestor de informes\Controller\GestorInformes_controller.dproj" />
<Projects Include="..\Gestor de informes\Data\GestorInformes_data.dproj" /> <Projects Include="..\Gestor de informes\Data\GestorInformes_data.dproj" />
<Projects Include="..\Gestor de informes\Model\GestorInformes_model.dproj" /> <Projects Include="..\Gestor de informes\Model\GestorInformes_model.dproj" />
@ -27,6 +28,7 @@
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" /> <Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
<Projects Include="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" /> <Projects Include="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" /> <Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
<Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" /> <Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
<Projects Include="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" /> <Projects Include="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" />
<Projects Include="Controller\FacturasCliente_controller.dproj" /> <Projects Include="Controller\FacturasCliente_controller.dproj" />
@ -311,14 +313,32 @@
<Target Name="PedidosProveedor_view:Make"> <Target Name="PedidosProveedor_view:Make">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" /> <MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasProveedor_view">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_view:Clean">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_view:Make">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="RecibosProveedor_view">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_view:Clean">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_view:Make">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;PreCli_FacCli_relation;AlbCli_FacCli_relation;FacturasCliente_view;FacturasCliente_plugin;AlbaranesCliente_view;PresupuestosCliente_controller;GestorInformes_view;AlbaranesCliente_controller;GestorInformes_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;PreCli_FacCli_relation;AlbCli_FacCli_relation;FacturasCliente_view;FacturasCliente_plugin;AlbaranesCliente_view;PresupuestosCliente_controller;GestorInformes_view;AlbaranesCliente_controller;GestorInformes_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_view;FacturasProveedor_view;RecibosProveedor_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;PreCli_FacCli_relation:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;AlbaranesCliente_view:Clean;PresupuestosCliente_controller:Clean;GestorInformes_view:Clean;AlbaranesCliente_controller:Clean;GestorInformes_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;PreCli_FacCli_relation:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;AlbaranesCliente_view:Clean;PresupuestosCliente_controller:Clean;GestorInformes_view:Clean;AlbaranesCliente_controller:Clean;GestorInformes_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_view:Clean;FacturasProveedor_view:Clean;RecibosProveedor_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;PreCli_FacCli_relation:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;AlbaranesCliente_view:Make;PresupuestosCliente_controller:Make;GestorInformes_view:Make;AlbaranesCliente_controller:Make;GestorInformes_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;PreCli_FacCli_relation:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;AlbaranesCliente_view:Make;PresupuestosCliente_controller:Make;GestorInformes_view:Make;AlbaranesCliente_controller:Make;GestorInformes_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_view:Make;FacturasProveedor_view:Make;RecibosProveedor_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

8
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schFacturasClienteClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -161,7 +161,7 @@ type
end; end;
{ TListaAnosFacturasDataTableRules } { TListaAnosFacturasDataTableRules }
TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas) TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -435,7 +435,7 @@ type
end; end;
{ TFacturasClienteDataTableRules } { TFacturasClienteDataTableRules }
TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente) TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -795,7 +795,7 @@ type
end; end;
{ TFacturasCliente_DetallesDataTableRules } { TFacturasCliente_DetallesDataTableRules }
TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles) TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

20
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 616 Width = 451
Height = 474 Height = 304
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,19 +9,17 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 616 Width = 451
Height = 474 Height = 304
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
616 451
474) 304)
object Label1: TLabel object Label1: TLabel
Left = 354 Left = 354
Top = 193 Top = 193
@ -201,7 +199,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 339 Width = 339
end end
object bElegirClienteFinal: TButton object bElegirClienteFinal: TButton
Left = 560 Left = 410
Top = 225 Top = 225
Width = 23 Width = 23
Height = 25 Height = 25
@ -229,8 +227,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224
Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 171 Left = 171
@ -249,8 +245,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end end
inherited Button4: TButton inherited Button4: TButton
Left = 251 Left = 251

14
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

@ -229,7 +229,8 @@ begin
end; end;
finally finally
FreeANDNIL(ALista); FreeANDNIL(ALista);
FreeANDNIL(AListaIBAN); FreeANDNIL(AListaIBAN);
FreeANDNIL(AListaCliente);
end; end;
finally finally
AController := NIL; AController := NIL;
@ -274,6 +275,17 @@ begin
else else
ACadena := 'Elija el cliente al que se le realizará la factura.'; ACadena := 'Elija el cliente al que se le realizará la factura.';
//ViewDatosYSeleccionClienteFacturaCliente1.MsgElegirCliente := ACadena; //ViewDatosYSeleccionClienteFacturaCliente1.MsgElegirCliente := ACadena;
{Ojo hay que tener en cuenta cuando se cambia de cliente
if (FFactura.EsNuevo) then
if (cbCuentaBancaria.Properties.Items.Count > 0) then
begin
cbCuentaBancaria.ItemIndex := 1;
cbCuentaBancaria.EditValue := cbCuentaBancaria.Properties.Items.ValueFromIndex[1];
end;
}
end end
else begin else begin
DADataSource.DataTable := NIL; DADataSource.DataTable := NIL;

1
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -1035,6 +1035,7 @@ begin
ARecibos.ID_FACTURA := AFactura.ID; ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i); ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA; ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
ARecibos.DATOS_BANCARIOS := AFactura.DATOS_BANCARIOS;
if AFormaPago.Plazos.RecordCount < 1 then if AFormaPago.Plazos.RecordCount < 1 then
begin begin

16
Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
View File

@ -23,6 +23,7 @@
<Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" /> <Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
<Projects Include="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" /> <Projects Include="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" />
<Projects Include="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" /> <Projects Include="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" />
<Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" /> <Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
<Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" /> <Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" />
<Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" /> <Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
@ -301,14 +302,23 @@
<Target Name="RecibosProveedor_controller:Make"> <Target Name="RecibosProveedor_controller:Make">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" /> <MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" />
</Target> </Target>
<Target Name="RecibosProveedor_view">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_view:Clean">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_view:Make">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PedProv_FacProv_relation;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PedProv_FacProv_relation;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PedProv_FacProv_relation:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PedProv_FacProv_relation:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PedProv_FacProv_relation:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PedProv_FacProv_relation:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

9
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
View File

@ -160,12 +160,14 @@ end;
procedure TfrViewFacturaProveedor.RellenarCuentasBancarias; procedure TfrViewFacturaProveedor.RellenarCuentasBancarias;
var var
AController : IEmpresasController; AController : IEmpresasController;
ALista : TStringList;
AListaIBAN : TStringList; AListaIBAN : TStringList;
AListaProveedor : TStringList; AListaProveedor : TStringList;
i : integer; i : integer;
begin begin
AController := TEmpresasController.Create; AController := TEmpresasController.Create;
try try
ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);
AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva); AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
AListaProveedor := Controller.ProveedorController.DarListaCuentasBancarias(FFactura.ID_PROVEEDOR); AListaProveedor := Controller.ProveedorController.DarListaCuentasBancarias(FFactura.ID_PROVEEDOR);
@ -176,6 +178,9 @@ begin
try try
Clear; Clear;
Add(''); Add('');
for i := 0 to ALista.Count - 1 do
Add(ALista.Names[i]);
if AListaIBAN.Count > 0 then if AListaIBAN.Count > 0 then
begin begin
for i := 0 to AListaIBAN.Count - 1 do for i := 0 to AListaIBAN.Count - 1 do
@ -194,7 +199,9 @@ begin
end; end;
end; end;
finally finally
FreeANDNIL(AListaIBAN); FreeANDNIL(ALista);
FreeANDNIL(AListaIBAN);
FreeANDNIL(AListaProveedor);
end; end;
finally finally
AController := NIL; AController := NIL;

3
Source/Modulos/Presupuestos de cliente/Controller/View/uIDialogListaPresupuestosEnvioEMail.pas
View File

@ -10,7 +10,10 @@ type
['{5B086ADA-7877-4469-ACBE-4C8E4F4BF184}'] ['{5B086ADA-7877-4469-ACBE-4C8E4F4BF184}']
function GetPresupuestos: IBizPresupuestoCliente; function GetPresupuestos: IBizPresupuestoCliente;
procedure SetPresupuestos(const Value: IBizPresupuestoCliente); procedure SetPresupuestos(const Value: IBizPresupuestoCliente);
function GetVerSello: Integer;
procedure SetVerSello(const Value: Integer);
property Presupuestos: IBizPresupuestoCliente read GetPresupuestos write SetPresupuestos; property Presupuestos: IBizPresupuestoCliente read GetPresupuestos write SetPresupuestos;
property VerSello: Integer read GetVerSello write SetVerSello;
function ShowModal : Integer; function ShowModal : Integer;
procedure Release; procedure Release;
end; end;

22
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -65,9 +65,9 @@ type
function EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente; function EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente;
const AEnviarDirectamente: Boolean = True; const AEnviarDirectamente: Boolean = True;
const ADireccionEMail: String = ''; const AAsuntoEMail: String = ''; const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
const ATextoEMail: String = ''): Boolean; const ATextoEMail: String = ''; Const AVerSello: Integer = 1): Boolean;
function EnviarEmailPresupuestos(APresupuestos : IBizPresupuestoCliente): Boolean; function EnviarEmailPresupuestos(APresupuestos : IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
function GenerarEmailPresupuesto(APresupuesto : IBizPresupuestoCliente): Boolean; function GenerarEmailPresupuesto(APresupuesto : IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
procedure BorrarBonificacion(APresupuesto : IBizPresupuestoCliente); procedure BorrarBonificacion(APresupuesto : IBizPresupuestoCliente);
@ -148,9 +148,9 @@ type
function EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente; function EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente;
const AEnviarDirectamente: Boolean = True; const AEnviarDirectamente: Boolean = True;
const ADireccionEMail: String = ''; const AAsuntoEMail: String = ''; const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
const ATextoEMail: String = ''): Boolean; const ATextoEMail: String = ''; Const AVerSello: Integer = 1): Boolean;
function EnviarEmailPresupuestos(APresupuestos : IBizPresupuestoCliente): Boolean; function EnviarEmailPresupuestos(APresupuestos : IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
function GenerarEmailPresupuesto(APresupuesto : IBizPresupuestoCliente): Boolean; function GenerarEmailPresupuesto(APresupuesto : IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
procedure BorrarBonificacion(APresupuesto : IBizPresupuestoCliente); procedure BorrarBonificacion(APresupuesto : IBizPresupuestoCliente);
@ -703,7 +703,7 @@ begin
end; end;
end; end;
function TPresupuestosClienteController.EnviarEmailPresupuestos(APresupuestos: IBizPresupuestoCliente): Boolean; function TPresupuestosClienteController.EnviarEmailPresupuestos(APresupuestos: IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
var var
ADialog : IDialogListaPresupuestosEnvioEMail; ADialog : IDialogListaPresupuestosEnvioEMail;
ARespuesta : Integer; ARespuesta : Integer;
@ -739,7 +739,7 @@ end;
function TPresupuestosClienteController.EnviarPresupuestoPorEMail(APresupuesto: IBizPresupuestoCliente; function TPresupuestosClienteController.EnviarPresupuestoPorEMail(APresupuesto: IBizPresupuestoCliente;
const AEnviarDirectamente: Boolean = True; const AEnviarDirectamente: Boolean = True;
const ADireccionEMail: String = ''; const AAsuntoEMail: String = ''; const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
const ATextoEMail: String = ''): Boolean; const ATextoEMail: String = ''; Const AVerSello: Integer = 1): Boolean;
var var
AReportController : IPresupuestosClienteReportController; AReportController : IPresupuestosClienteReportController;
AFicheroTMP : TFileName; AFicheroTMP : TFileName;
@ -777,7 +777,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
AReportController := TPresupuestosClienteReportController.Create; AReportController := TPresupuestosClienteReportController.Create;
try try
AReportController.ExportToPDF(APresupuesto.ID, AFicheroTMP); AReportController.ExportToPDF(APresupuesto.ID, AFicheroTMP, AVerSello);
Result := EnviarEMailMAPI('Presupuesto ' + APresupuesto.REFERENCIA, '', AFicheroTMP, '', '', APresupuesto.Cliente.NOMBRE, AEMail, AEnviarDirectamente); Result := EnviarEMailMAPI('Presupuesto ' + APresupuesto.REFERENCIA, '', AFicheroTMP, '', '', APresupuesto.Cliente.NOMBRE, AEMail, AEnviarDirectamente);
finally finally
DeleteFile(AFicheroTMP); DeleteFile(AFicheroTMP);
@ -1174,7 +1174,7 @@ begin
end; end;
end; end;
function TPresupuestosClienteController.GenerarEmailPresupuesto(APresupuesto: IBizPresupuestoCliente): Boolean; function TPresupuestosClienteController.GenerarEmailPresupuesto(APresupuesto: IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
begin begin
if not Assigned(APresupuesto) then if not Assigned(APresupuesto) then
raise Exception.Create ('Presupuesto no asignadas (GenerarEmailPresupuesto)'); raise Exception.Create ('Presupuesto no asignadas (GenerarEmailPresupuesto)');
@ -1185,7 +1185,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
RecuperarCliente(APresupuesto); RecuperarCliente(APresupuesto);
EnviarPresupuestoPorEMail(APresupuesto, False); EnviarPresupuestoPorEMail(APresupuesto, False, '', '', '', AVerSello);
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;

10
Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.dfm
View File

@ -20,7 +20,7 @@ inherited fDialogListaPresupuestosEnvioEMail: TfDialogListaPresupuestosEnvioEMai
Top = 390 Top = 390
Width = 665 Width = 665
ExplicitTop = 390 ExplicitTop = 390
ExplicitWidth = 735 ExplicitWidth = 665
inherited btnAceptar: TButton inherited btnAceptar: TButton
Left = 488 Left = 488
Top = 6 Top = 6
@ -38,7 +38,7 @@ inherited fDialogListaPresupuestosEnvioEMail: TfDialogListaPresupuestosEnvioEMai
end end
inherited pnlHeader: TPanel inherited pnlHeader: TPanel
Width = 665 Width = 665
ExplicitWidth = 735 ExplicitWidth = 665
inherited lblInstruccion: TLabel inherited lblInstruccion: TLabel
Width = 615 Width = 615
Caption = 'Enviar presupuestos por correo electr'#243'nico' Caption = 'Enviar presupuestos por correo electr'#243'nico'
@ -52,14 +52,14 @@ inherited fDialogListaPresupuestosEnvioEMail: TfDialogListaPresupuestosEnvioEMai
'supuestos elegidos en formato PDF. S'#243'lo se tendr'#225'n en cuenta los' + 'supuestos elegidos en formato PDF. S'#243'lo se tendr'#225'n en cuenta los' +
' clientes que tengan relleno su e-mail administrativo.' ' clientes que tengan relleno su e-mail administrativo.'
WordWrap = True WordWrap = True
ExplicitWidth = 639 ExplicitWidth = 587
ExplicitHeight = 26 ExplicitHeight = 26
end end
end end
inherited pnlCuerpo: TPanel inherited pnlCuerpo: TPanel
Width = 665 Width = 665
Height = 322 Height = 322
ExplicitWidth = 735 ExplicitWidth = 665
ExplicitHeight = 322 ExplicitHeight = 322
end end
inherited ListView1: TListView inherited ListView1: TListView
@ -84,7 +84,7 @@ inherited fDialogListaPresupuestosEnvioEMail: TfDialogListaPresupuestosEnvioEMai
end> end>
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 66 ExplicitTop = 66
ExplicitWidth = 735 ExplicitWidth = 665
ExplicitHeight = 322 ExplicitHeight = 322
end end
inherited ActionList1: TActionList inherited ActionList1: TActionList

19
Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.pas
View File

@ -15,16 +15,20 @@ type
procedure actAceptarExecute(Sender: TObject); procedure actAceptarExecute(Sender: TObject);
private private
FPresupuestos : IBizPresupuestoCliente; FPresupuestos : IBizPresupuestoCliente;
FVerSello: Integer;
FController : IPresupuestosClienteController; FController : IPresupuestosClienteController;
protected protected
function GetPresupuestos: IBizPresupuestoCliente; function GetPresupuestos: IBizPresupuestoCliente;
procedure SetPresupuestos(const Value: IBizPresupuestoCliente); procedure SetPresupuestos(const Value: IBizPresupuestoCliente);
function GetVerSello: Integer;
procedure SetVerSello(const Value: Integer);
procedure RellenarLista; procedure RellenarLista;
procedure BorrarLista; procedure BorrarLista;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
property Presupuestos: IBizPresupuestoCliente read GetPresupuestos write SetPresupuestos; property Presupuestos: IBizPresupuestoCliente read GetPresupuestos write SetPresupuestos;
property VerSello: Integer read GetVerSello write SetVerSello;
end; end;
implementation implementation
@ -52,7 +56,7 @@ begin
begin begin
if not EsCadenaVacia(FPresupuestos.Cliente.EMAIL_1) then if not EsCadenaVacia(FPresupuestos.Cliente.EMAIL_1) then
begin begin
if FController.EnviarPresupuestoPorEMail(FPresupuestos, True, FPresupuestos.Cliente.EMAIL_1) then if FController.EnviarPresupuestoPorEMail(FPresupuestos, True, FPresupuestos.Cliente.EMAIL_1, 'Presupuesto', '', VerSello) then
begin begin
ListView1.Items[i].SubItems[2] := 'Correo generado'; ListView1.Items[i].SubItems[2] := 'Correo generado';
ModalResult := mrOk; ModalResult := mrOk;
@ -66,7 +70,7 @@ begin
else else
if not EsCadenaVacia(FPresupuestos.Cliente.EMAIL_2) then if not EsCadenaVacia(FPresupuestos.Cliente.EMAIL_2) then
begin begin
if FController.EnviarPresupuestoPorEMail(FPresupuestos, True, FPresupuestos.Cliente.EMAIL_2) then if FController.EnviarPresupuestoPorEMail(FPresupuestos, True, FPresupuestos.Cliente.EMAIL_2, 'Presupuesto', '', VerSello) then
begin begin
ListView1.Items[i].SubItems[2] := 'Correo generado'; ListView1.Items[i].SubItems[2] := 'Correo generado';
ModalResult := mrOk; ModalResult := mrOk;
@ -114,6 +118,7 @@ constructor TfDialogListaPresupuestosEnvioEMail.Create(AOwner: TComponent);
begin begin
inherited; inherited;
ModalResult := mrCancel; ModalResult := mrCancel;
FVerSello := 1;
FController := TPresupuestosClienteController.Create; FController := TPresupuestosClienteController.Create;
end; end;
@ -122,6 +127,11 @@ begin
Result := FPresupuestos; Result := FPresupuestos;
end; end;
function TfDialogListaPresupuestosEnvioEMail.GetVerSello: Integer;
begin
Result := FVerSello;
end;
procedure TfDialogListaPresupuestosEnvioEMail.RellenarLista; procedure TfDialogListaPresupuestosEnvioEMail.RellenarLista;
var var
i : Integer; i : Integer;
@ -176,4 +186,9 @@ begin
BorrarLista; BorrarLista;
end; end;
procedure TfDialogListaPresupuestosEnvioEMail.SetVerSello(const Value: Integer);
begin
FVerSello := Value;
end;
end. end.

12
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -223,12 +223,20 @@ end;
procedure TfEditorPresupuestosCliente.actEnviarEMailExecute(Sender: TObject); procedure TfEditorPresupuestosCliente.actEnviarEMailExecute(Sender: TObject);
var var
APresupuestos : IBizPresupuestoCliente; APresupuestos : IBizPresupuestoCliente;
AVerSello: Integer;
bEnviar: Boolean;
begin begin
inherited; inherited;
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
if (AppFactuGES.EmpresaActiva.ID = 1) then
if not ElegirOpcionesImpresionPresupuestoCliente(AVerSello) then
exit;
if ViewGrid.NumSeleccionados = 1 then if ViewGrid.NumSeleccionados = 1 then
FController.GenerarEmailPresupuesto(FPresupuestos) FController.GenerarEmailPresupuesto(FPresupuestos, AVerSello)
// FController.EnviarPresupuestoPorEMail(FPresupuestos) // FController.EnviarPresupuestoPorEMail(FPresupuestos)
else begin else begin
ShowHourglassCursor; ShowHourglassCursor;
@ -237,7 +245,7 @@ begin
APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente; APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente;
if Assigned(APresupuestos) then if Assigned(APresupuestos) then
FController.EnviarEmailPresupuestos(APresupuestos); FController.EnviarEmailPresupuestos(APresupuestos, AVerSello);
// RefrescarInterno; // RefrescarInterno;
finally finally
APresupuestos := NIL; APresupuestos := NIL;

19
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
View File

@ -37,6 +37,8 @@ type
function GetPagosController: IPagosProveedorController; function GetPagosController: IPagosProveedorController;
procedure SetPagosController(const Value: IPagosProveedorController); procedure SetPagosController(const Value: IPagosProveedorController);
property PagosController: IPagosProveedorController read GetPagosController write SetPagosController; property PagosController: IPagosProveedorController read GetPagosController write SetPagosController;
function GetProveedorController: IProveedoresController;
property ProveedorController: IProveedoresController read GetProveedorController;
procedure Anadir(ARecibosProveedor : IBizRecibosProveedor); procedure Anadir(ARecibosProveedor : IBizRecibosProveedor);
function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''): Boolean; function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''): Boolean;
@ -90,11 +92,13 @@ type
protected protected
FDataModule : IDataModuleRecibosProveedor; FDataModule : IDataModuleRecibosProveedor;
FPagosController : IPagosProveedorController; FPagosController : IPagosProveedorController;
FClienteController : IProveedoresController; FProveedorController : IProveedoresController;
function GetPagosController: IPagosProveedorController; function GetPagosController: IPagosProveedorController;
procedure SetPagosController(const Value: IPagosProveedorController); procedure SetPagosController(const Value: IPagosProveedorController);
function GetProveedorController: IProveedoresController;
function _Vacio : IBizRecibosProveedor; function _Vacio : IBizRecibosProveedor;
function ValidarReciboProveedor(ARecibosProveedor: IBizRecibosProveedor): Boolean; function ValidarReciboProveedor(ARecibosProveedor: IBizRecibosProveedor): Boolean;
@ -103,6 +107,8 @@ type
public public
property PagosController: IPagosProveedorController read GetPagosController write SetPagosController; property PagosController: IPagosProveedorController read GetPagosController write SetPagosController;
property ProveedorController: IProveedoresController read GetProveedorController;
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
@ -245,7 +251,7 @@ begin
inherited; inherited;
AsignarDataModule; AsignarDataModule;
FPagosController := TPagosProveedorController.Create; FPagosController := TPagosProveedorController.Create;
FClienteController := TProveedoresController.Create; FProveedorController := TProveedoresController.Create;
// FPagosController.addObservador(Self); //PETA NO SE PORQUE // FPagosController.addObservador(Self); //PETA NO SE PORQUE
end; end;
@ -488,7 +494,7 @@ destructor TRecibosProveedorController.Destroy;
begin begin
FDataModule := NIL; FDataModule := NIL;
FPagosController := NIL; FPagosController := NIL;
FClienteController := NIL; FProveedorController := NIL;
inherited; inherited;
end; end;
@ -686,7 +692,7 @@ end;
procedure TRecibosProveedorController.RecuperarCliente( procedure TRecibosProveedorController.RecuperarCliente(
AReciboProveedor: IBizRecibosProveedor); AReciboProveedor: IBizRecibosProveedor);
begin begin
AReciboProveedor._Proveedor := (FClienteController.Buscar(AReciboProveedor.ID_PROVEEDOR) as IBizProveedor); AReciboProveedor._Proveedor := (FProveedorController.Buscar(AReciboProveedor.ID_PROVEEDOR) as IBizProveedor);
end; end;
function TRecibosProveedorController.GetPagosController: IPagosProveedorController; function TRecibosProveedorController.GetPagosController: IPagosProveedorController;
@ -694,6 +700,11 @@ begin
Result := FPagosController; Result := FPagosController;
end; end;
function TRecibosProveedorController.GetProveedorController: IProveedoresController;
begin
Result := FProveedorController;
end;
procedure TRecibosProveedorController.SetPagosController(const Value: IPagosProveedorController); procedure TRecibosProveedorController.SetPagosController(const Value: IPagosProveedorController);
begin begin
FPagosController := Value; FPagosController := Value;

5
Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
View File

@ -403,6 +403,11 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DataType = datInteger DataType = datInteger
DictionaryEntry = 'RecibosProveedor_ID_EMPRESA' DictionaryEntry = 'RecibosProveedor_ID_EMPRESA'
end end
item
Name = 'DATOS_BANCARIOS_FACTURA'
DataType = datString
Size = 255
end
item item
Name = 'DATOS_BANCARIOS' Name = 'DATOS_BANCARIOS'
DataType = datString DataType = datString

67
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
View File

@ -3,16 +3,16 @@ unit schRecibosProveedorClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosRecibos = '{E517AD0B-3117-47E6-BDE0-C6F56CA71A1D}'; RID_ListaAnosRecibos = '{F3340670-6908-41EB-9A56-A0889A17B0EE}';
RID_RecibosCompensadosProv = '{9EAB41F6-5853-4683-A0E3-F66C12232C03}'; RID_RecibosCompensadosProv = '{E3E62EB4-5556-44A8-99C4-013EA2373D58}';
RID_RecibosProveedor = '{2344F4F7-8139-44E1-B225-3E581F4B9FB2}'; RID_RecibosProveedor = '{643C6FA4-C971-4D12-A1CE-4D1FFF54183B}';
RID_PagosProveedor = '{873FD5ED-817D-4AF3-81CF-5D3290B15090}'; RID_PagosProveedor = '{F6275C5E-F7BE-454A-9113-8AB468D2F7AC}';
{ Data table names } { Data table names }
nme_ListaAnosRecibos = 'ListaAnosRecibos'; nme_ListaAnosRecibos = 'ListaAnosRecibos';
@ -108,6 +108,7 @@ const
fld_RecibosProveedorFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA'; fld_RecibosProveedorFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
fld_RecibosProveedorIMPORTE_FACTURA = 'IMPORTE_FACTURA'; fld_RecibosProveedorIMPORTE_FACTURA = 'IMPORTE_FACTURA';
fld_RecibosProveedorID_EMPRESA = 'ID_EMPRESA'; fld_RecibosProveedorID_EMPRESA = 'ID_EMPRESA';
fld_RecibosProveedorDATOS_BANCARIOS_FACTURA = 'DATOS_BANCARIOS_FACTURA';
fld_RecibosProveedorDATOS_BANCARIOS = 'DATOS_BANCARIOS'; fld_RecibosProveedorDATOS_BANCARIOS = 'DATOS_BANCARIOS';
fld_RecibosProveedorID_PROVEEDOR = 'ID_PROVEEDOR'; fld_RecibosProveedorID_PROVEEDOR = 'ID_PROVEEDOR';
fld_RecibosProveedorNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; fld_RecibosProveedorNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
@ -138,13 +139,14 @@ const
idx_RecibosProveedorFORMA_PAGO_FACTURA = 18; idx_RecibosProveedorFORMA_PAGO_FACTURA = 18;
idx_RecibosProveedorIMPORTE_FACTURA = 19; idx_RecibosProveedorIMPORTE_FACTURA = 19;
idx_RecibosProveedorID_EMPRESA = 20; idx_RecibosProveedorID_EMPRESA = 20;
idx_RecibosProveedorDATOS_BANCARIOS = 21; idx_RecibosProveedorDATOS_BANCARIOS_FACTURA = 21;
idx_RecibosProveedorID_PROVEEDOR = 22; idx_RecibosProveedorDATOS_BANCARIOS = 22;
idx_RecibosProveedorNOMBRE_PROVEEDOR = 23; idx_RecibosProveedorID_PROVEEDOR = 23;
idx_RecibosProveedorNIF_CIF_PROVEEDOR = 24; idx_RecibosProveedorNOMBRE_PROVEEDOR = 24;
idx_RecibosProveedorFECHA_ALTA = 25; idx_RecibosProveedorNIF_CIF_PROVEEDOR = 25;
idx_RecibosProveedorFECHA_MODIFICACION = 26; idx_RecibosProveedorFECHA_ALTA = 26;
idx_RecibosProveedorUSUARIO = 27; idx_RecibosProveedorFECHA_MODIFICACION = 27;
idx_RecibosProveedorUSUARIO = 28;
{ PagosProveedor fields } { PagosProveedor fields }
fld_PagosProveedorID = 'ID'; fld_PagosProveedorID = 'ID';
@ -177,7 +179,7 @@ const
type type
{ IListaAnosRecibos } { IListaAnosRecibos }
IListaAnosRecibos = interface(IDAStronglyTypedDataTable) IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
['{738763D4-26C6-4F0D-BB6E-D638C380B114}'] ['{59463B0B-E289-4B8F-A18B-C31E4C76E34B}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -212,7 +214,7 @@ type
{ IRecibosCompensadosProv } { IRecibosCompensadosProv }
IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable) IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
['{43B7C892-1530-424B-B6B0-380E0A018456}'] ['{E5864951-5BE9-4929-A2A9-4CE1B2A23A01}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -571,7 +573,7 @@ type
{ IRecibosProveedor } { IRecibosProveedor }
IRecibosProveedor = interface(IDAStronglyTypedDataTable) IRecibosProveedor = interface(IDAStronglyTypedDataTable)
['{A7B468FD-DB65-4615-A6C5-1E2807D62ABE}'] ['{B4198E89-9A06-4D57-A05C-BC64EA058528}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -657,6 +659,10 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean; function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetDATOS_BANCARIOS_FACTURAValue: String;
procedure SetDATOS_BANCARIOS_FACTURAValue(const aValue: String);
function GetDATOS_BANCARIOS_FACTURAIsNull: Boolean;
procedure SetDATOS_BANCARIOS_FACTURAIsNull(const aValue: Boolean);
function GetDATOS_BANCARIOSValue: String; function GetDATOS_BANCARIOSValue: String;
procedure SetDATOS_BANCARIOSValue(const aValue: String); procedure SetDATOS_BANCARIOSValue(const aValue: String);
function GetDATOS_BANCARIOSIsNull: Boolean; function GetDATOS_BANCARIOSIsNull: Boolean;
@ -730,6 +736,8 @@ type
property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property DATOS_BANCARIOS_FACTURA: String read GetDATOS_BANCARIOS_FACTURAValue write SetDATOS_BANCARIOS_FACTURAValue;
property DATOS_BANCARIOS_FACTURAIsNull: Boolean read GetDATOS_BANCARIOS_FACTURAIsNull write SetDATOS_BANCARIOS_FACTURAIsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
@ -835,6 +843,10 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual; function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetDATOS_BANCARIOS_FACTURAValue: String; virtual;
procedure SetDATOS_BANCARIOS_FACTURAValue(const aValue: String); virtual;
function GetDATOS_BANCARIOS_FACTURAIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOS_FACTURAIsNull(const aValue: Boolean); virtual;
function GetDATOS_BANCARIOSValue: String; virtual; function GetDATOS_BANCARIOSValue: String; virtual;
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual; function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
@ -907,6 +919,8 @@ type
property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property DATOS_BANCARIOS_FACTURA: String read GetDATOS_BANCARIOS_FACTURAValue write SetDATOS_BANCARIOS_FACTURAValue;
property DATOS_BANCARIOS_FACTURAIsNull: Boolean read GetDATOS_BANCARIOS_FACTURAIsNull write SetDATOS_BANCARIOS_FACTURAIsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
@ -930,7 +944,7 @@ type
{ IPagosProveedor } { IPagosProveedor }
IPagosProveedor = interface(IDAStronglyTypedDataTable) IPagosProveedor = interface(IDAStronglyTypedDataTable)
['{6A3FB0F1-D6B5-49C4-A298-F046CF5DA655}'] ['{F3378247-D165-4514-93AF-C95E3EBFA6C7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2184,6 +2198,27 @@ begin
DataTable.Fields[idx_RecibosProveedorID_EMPRESA].AsVariant := Null; DataTable.Fields[idx_RecibosProveedorID_EMPRESA].AsVariant := Null;
end; end;
function TRecibosProveedorDataTableRules.GetDATOS_BANCARIOS_FACTURAValue: String;
begin
result := DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS_FACTURA].AsString;
end;
procedure TRecibosProveedorDataTableRules.SetDATOS_BANCARIOS_FACTURAValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS_FACTURA].AsString := aValue;
end;
function TRecibosProveedorDataTableRules.GetDATOS_BANCARIOS_FACTURAIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS_FACTURA].IsNull;
end;
procedure TRecibosProveedorDataTableRules.SetDATOS_BANCARIOS_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS_FACTURA].AsVariant := Null;
end;
function TRecibosProveedorDataTableRules.GetDATOS_BANCARIOSValue: String; function TRecibosProveedorDataTableRules.GetDATOS_BANCARIOSValue: String;
begin begin
result := DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS].AsString; result := DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS].AsString;

59
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas
View File

@ -9,15 +9,15 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosRecibosDelta = '{7319675D-5CEC-4118-8CA5-D1D9A3E862B7}'; RID_ListaAnosRecibosDelta = '{1F24C3BC-C859-4BD8-B179-B9BBBFD4D21B}';
RID_RecibosCompensadosProvDelta = '{96E9C110-BDAA-4E8E-B142-2F74CCFDBC74}'; RID_RecibosCompensadosProvDelta = '{9D1EDAFA-0389-4262-B4D8-7A977362C752}';
RID_RecibosProveedorDelta = '{AB79EADA-4BE6-4E51-BFEA-C4F1C20E8059}'; RID_RecibosProveedorDelta = '{F8505DBE-F3D0-485D-9EA0-E392B211F0DB}';
RID_PagosProveedorDelta = '{E48CD2E0-5DD4-41AF-97DE-F945B013E452}'; RID_PagosProveedorDelta = '{56A87944-9E91-4853-8C3D-E700832370FD}';
type type
{ IListaAnosRecibosDelta } { IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos) IListaAnosRecibosDelta = interface(IListaAnosRecibos)
['{7319675D-5CEC-4118-8CA5-D1D9A3E862B7}'] ['{1F24C3BC-C859-4BD8-B179-B9BBBFD4D21B}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IRecibosCompensadosProvDelta } { IRecibosCompensadosProvDelta }
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
['{96E9C110-BDAA-4E8E-B142-2F74CCFDBC74}'] ['{9D1EDAFA-0389-4262-B4D8-7A977362C752}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -409,7 +409,7 @@ type
{ IRecibosProveedorDelta } { IRecibosProveedorDelta }
IRecibosProveedorDelta = interface(IRecibosProveedor) IRecibosProveedorDelta = interface(IRecibosProveedor)
['{AB79EADA-4BE6-4E51-BFEA-C4F1C20E8059}'] ['{F8505DBE-F3D0-485D-9EA0-E392B211F0DB}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -432,6 +432,7 @@ type
function GetOldFORMA_PAGO_FACTURAValue : String; function GetOldFORMA_PAGO_FACTURAValue : String;
function GetOldIMPORTE_FACTURAValue : Currency; function GetOldIMPORTE_FACTURAValue : Currency;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldDATOS_BANCARIOS_FACTURAValue : String;
function GetOldDATOS_BANCARIOSValue : String; function GetOldDATOS_BANCARIOSValue : String;
function GetOldID_PROVEEDORValue : Integer; function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String; function GetOldNOMBRE_PROVEEDORValue : String;
@ -462,6 +463,7 @@ type
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldDATOS_BANCARIOS_FACTURA : String read GetOldDATOS_BANCARIOS_FACTURAValue;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
@ -602,6 +604,12 @@ type
function GetOldID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetDATOS_BANCARIOS_FACTURAValue: String; virtual;
function GetDATOS_BANCARIOS_FACTURAIsNull: Boolean; virtual;
function GetOldDATOS_BANCARIOS_FACTURAValue: String; virtual;
function GetOldDATOS_BANCARIOS_FACTURAIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOS_FACTURAValue(const aValue: String); virtual;
procedure SetDATOS_BANCARIOS_FACTURAIsNull(const aValue: Boolean); virtual;
function GetDATOS_BANCARIOSValue: String; virtual; function GetDATOS_BANCARIOSValue: String; virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual; function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
function GetOldDATOS_BANCARIOSValue: String; virtual; function GetOldDATOS_BANCARIOSValue: String; virtual;
@ -730,6 +738,10 @@ type
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property DATOS_BANCARIOS_FACTURA : String read GetDATOS_BANCARIOS_FACTURAValue write SetDATOS_BANCARIOS_FACTURAValue;
property DATOS_BANCARIOS_FACTURAIsNull : Boolean read GetDATOS_BANCARIOS_FACTURAIsNull write SetDATOS_BANCARIOS_FACTURAIsNull;
property OldDATOS_BANCARIOS_FACTURA : String read GetOldDATOS_BANCARIOS_FACTURAValue;
property OldDATOS_BANCARIOS_FACTURAIsNull : Boolean read GetOldDATOS_BANCARIOS_FACTURAIsNull;
property DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; property DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
@ -767,7 +779,7 @@ type
{ IPagosProveedorDelta } { IPagosProveedorDelta }
IPagosProveedorDelta = interface(IPagosProveedor) IPagosProveedorDelta = interface(IPagosProveedor)
['{E48CD2E0-5DD4-41AF-97DE-F945B013E452}'] ['{56A87944-9E91-4853-8C3D-E700832370FD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;
@ -2521,6 +2533,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA] := Null;
end; end;
function TRecibosProveedorBusinessProcessorRules.GetDATOS_BANCARIOS_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA];
end;
function TRecibosProveedorBusinessProcessorRules.GetDATOS_BANCARIOS_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldDATOS_BANCARIOS_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldDATOS_BANCARIOS_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetDATOS_BANCARIOS_FACTURAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetDATOS_BANCARIOS_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetDATOS_BANCARIOSValue: String; function TRecibosProveedorBusinessProcessorRules.GetDATOS_BANCARIOSValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS];

36
Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj
View File

@ -9,6 +9,9 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" /> <Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
<Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" /> <Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
<Projects Include="Controller\RecibosProveedor_controller.dproj" /> <Projects Include="Controller\RecibosProveedor_controller.dproj" />
<Projects Include="Data\RecibosProveedor_data.dproj" /> <Projects Include="Data\RecibosProveedor_data.dproj" />
@ -121,14 +124,41 @@
<Target Name="RecibosCliente_view:Make"> <Target Name="RecibosCliente_view:Make">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Make" /> <MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_view">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_view:Clean">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_controller">
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_controller:Clean">
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_controller:Make">
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_view">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_view:Clean">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_view:Make">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server;RecibosCliente_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server;RecibosCliente_view;FacturasCliente_view;FacturasProveedor_controller;FacturasProveedor_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_view:Clean;FacturasCliente_view:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_view:Make;FacturasCliente_view:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

67
Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
View File

@ -410,6 +410,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor
item item
DatasetField = 'USUARIO' DatasetField = 'USUARIO'
TableField = 'USUARIO' TableField = 'USUARIO'
end
item
DatasetField = 'DATOS_BANCARIOS_FACTURA'
TableField = 'DATOS_BANCARIOS_FACTURA'
end> end>
end> end>
Name = 'RecibosProveedor' Name = 'RecibosProveedor'
@ -530,6 +534,11 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datInteger DataType = datInteger
DictionaryEntry = 'RecibosProveedor_ID_EMPRESA' DictionaryEntry = 'RecibosProveedor_ID_EMPRESA'
end end
item
Name = 'DATOS_BANCARIOS_FACTURA'
DataType = datString
Size = 255
end
item item
Name = 'DATOS_BANCARIOS' Name = 'DATOS_BANCARIOS'
DataType = datString DataType = datString
@ -708,72 +717,67 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_RECIBOS_PROVEEDOR_ID' GeneratorName = 'GEN_RECIBOS_PROVEEDOR_ID'
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_EMISION' Name = 'FECHA_EMISION'
DataType = datDateTime DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE' Name = 'IMPORTE'
DataType = datFloat DataType = datCurrency
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OTROS_GASTOS' Name = 'OTROS_GASTOS'
DataType = datFloat DataType = datCurrency
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 20 Size = 30
Value = ''
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -782,10 +786,11 @@ object srvRecibosProveedor: TsrvRecibosProveedor
SQL = SQL =
'INSERT'#10' INTO RECIBOS_PROVEEDOR'#10' (ID, ID_FACTURA, REFERENCIA,' + 'INSERT'#10' INTO RECIBOS_PROVEEDOR'#10' (ID, ID_FACTURA, REFERENCIA,' +
' REFERENCIA_PROVEEDOR, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' + ' REFERENCIA_PROVEEDOR, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' +
'CION, OBSERVACIONES,'#10' IMPORTE, OTROS_GASTOS, USUARIO)'#10' VALUE' + 'CION, OBSERVACIONES,'#10' IMPORTE, OTROS_GASTOS, USUARIO, DATOS_B' +
'S'#10' (:ID, :ID_FACTURA, :REFERENCIA, :REFERENCIA_PROVEEDOR, :FE' + 'ANCARIOS)'#10' VALUES'#10' (:ID, :ID_FACTURA, :REFERENCIA, :REFERENC' +
'CHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSERVACIONES,'#10' ' + 'IA_PROVEEDOR, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, ' +
' :IMPORTE, :OTROS_GASTOS, :USUARIO)' ':OBSERVACIONES,'#10' :IMPORTE, :OTROS_GASTOS, :USUARIO, :DATOS_BA' +
'NCARIOS)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -816,64 +821,59 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_EMISION' Name = 'FECHA_EMISION'
DataType = datDateTime DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime DataType = datDateTime
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_REMESA' Name = 'ID_REMESA'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'IMPORTE' Name = 'IMPORTE'
DataType = datFloat DataType = datCurrency
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OTROS_GASTOS' Name = 'OTROS_GASTOS'
DataType = datFloat DataType = datCurrency
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 20 Size = 30
Value = ''
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -885,7 +885,8 @@ object srvRecibosProveedor: TsrvRecibosProveedor
'VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' DESCRIPCION = :DESCRIPCION' + 'VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' DESCRIPCION = :DESCRIPCION' +
','#10' OBSERVACIONES = :OBSERVACIONES,'#10' ID_REMESA = :ID_REMESA' + ','#10' OBSERVACIONES = :OBSERVACIONES,'#10' ID_REMESA = :ID_REMESA' +
','#10' IMPORTE = :IMPORTE,'#10' OTROS_GASTOS = :OTROS_GASTOS,'#10' ' + ','#10' IMPORTE = :IMPORTE,'#10' OTROS_GASTOS = :OTROS_GASTOS,'#10' ' +
'USUARIO = :USUARIO'#10' WHERE'#10' (ID = :OLD_ID)' 'USUARIO = :USUARIO,'#10' DATOS_BANCARIOS = :DATOS_BANCARIOS'#10' WHE' +
'RE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

72
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
View File

@ -40,6 +40,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited lblDesbloquear: TcxLabel inherited lblDesbloquear: TcxLabel
Left = 593 Left = 593
ExplicitLeft = 593 ExplicitLeft = 593
AnchorX = 638
AnchorY = 14
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
@ -55,6 +57,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 685 Width = 685
Height = 353 Height = 353
ActivePage = pagPagos
ExplicitWidth = 685 ExplicitWidth = 685
ExplicitHeight = 353 ExplicitHeight = 353
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -91,12 +94,16 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 50
Width = 50
end end
inherited eSituacion: TcxDBTextEdit inherited eSituacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 216
Width = 216
end end
inherited edtFechaVencimiento: TcxDBDateEdit inherited edtFechaVencimiento: TcxDBDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -111,53 +118,55 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 274
Width = 274
end end
inherited eFechaEmision: TcxDBTextEdit inherited eFechaEmision: TcxDBTextEdit
Left = 355 Left = 338
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 355 ExplicitLeft = 338
ExplicitWidth = 200 ExplicitWidth = 200
Width = 200 Width = 200
end end
inherited eFormaPago: TcxDBTextEdit inherited eFormaPago: TcxDBTextEdit
Left = 355 Left = 338
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 355 ExplicitLeft = 338
ExplicitWidth = 200 ExplicitWidth = 200
Width = 200 Width = 200
end end
inherited eImporteTotal: TcxDBCurrencyEdit inherited eImporteTotal: TcxDBCurrencyEdit
Left = 355 Left = 338
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 355 ExplicitLeft = 338
ExplicitWidth = 200 ExplicitWidth = 200
Width = 200 Width = 200
end end
inherited eNombreCliente: TcxDBTextEdit inherited eNombreCliente: TcxDBTextEdit
Left = 355 Left = 338
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 355 ExplicitLeft = 338
end end
inherited eNifCif: TcxDBTextEdit inherited eNifCif: TcxDBTextEdit
Left = 355 Left = 338
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 355 ExplicitLeft = 338
ExplicitWidth = 255 ExplicitWidth = 255
Width = 255 Width = 255
end end
@ -166,6 +175,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 113
Width = 113
end end
inherited edtFechaEmision: TcxDBDateEdit inherited edtFechaEmision: TcxDBDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -184,12 +195,12 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 129 Width = 129
end end
inherited rReferenciaFacturaProv: TcxDBTextEdit inherited rReferenciaFacturaProv: TcxDBTextEdit
Left = 355 Left = 338
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 355 ExplicitLeft = 338
ExplicitWidth = 200 ExplicitWidth = 200
Width = 200 Width = 200
end end
@ -198,17 +209,35 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 216
Width = 216
end end
inherited eCuenta: TcxDBTextEdit inherited eCuentaFactura: TcxDBTextEdit
Left = 355 Left = 338
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 355 ExplicitLeft = 338
ExplicitWidth = 83 ExplicitWidth = 83
Width = 83 Width = 83
end end
inherited eCuentaRecibo: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 300
Width = 300
end
inherited cbCuentaBancaria: TcxDBComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 158
Width = 158
end
end end
end end
end end
@ -274,6 +303,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
object pagCompensados: TTabSheet object pagCompensados: TTabSheet
Caption = 'Compensados' Caption = 'Compensados'
ImageIndex = 2 ImageIndex = 2
TabVisible = False
inline frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados inline frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados
Left = 0 Left = 0
Top = 0 Top = 0
@ -308,6 +338,18 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 677 Width = 677
ExplicitWidth = 677 ExplicitWidth = 677
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
Top = 0 Top = 0
ExplicitTop = 0 ExplicitTop = 0

5
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas
View File

@ -297,9 +297,10 @@ procedure TfEditorReciboProveedor.SetController(const Value: IRecibosProveedorCo
begin begin
FController := Value; FController := Value;
if Assigned(FController) then if Assigned(FController) then
begin
frViewRecibosProvCompensados1.Controller := FController; frViewRecibosProvCompensados1.Controller := FController;
(ViewRecibo as IViewReciboProveedor).Controller := (FController as IRecibosProveedorController);
// (ViewRecibo as IViewReciboProveedor).Controller := (FController as IRecibosProveedorController); end;
end; end;
procedure TfEditorReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor); procedure TfEditorReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor);

78
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
View File

@ -14,7 +14,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 618
DesignSize = ( DesignSize = (
748 748
342) 342)
@ -50,7 +49,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end end
object eSituacion: TcxDBTextEdit object eSituacion: TcxDBTextEdit
Left = 136 Left = 136
Top = 138 Top = 165
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'SITUACION' DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -75,7 +74,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4 TabOrder = 5
Width = 216 Width = 216
end end
object edtFechaVencimiento: TcxDBDateEdit object edtFechaVencimiento: TcxDBDateEdit
@ -106,7 +105,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 267 Top = 294
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -122,12 +121,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7 TabOrder = 8
Height = 49 Height = 49
Width = 274 Width = 274
end end
object eFechaEmision: TcxDBTextEdit object eFechaEmision: TcxDBTextEdit
Left = 426 Left = 409
Top = 57 Top = 57
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA' DataBinding.DataField = 'FECHA_FACTURA'
@ -153,11 +152,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 10
Width = 20 Width = 20
end end
object eFormaPago: TcxDBTextEdit object eFormaPago: TcxDBTextEdit
Left = 426 Left = 409
Top = 84 Top = 84
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FORMA_PAGO_FACTURA' DataBinding.DataField = 'FORMA_PAGO_FACTURA'
@ -183,11 +182,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 11
Width = 42 Width = 42
end end
object eImporteTotal: TcxDBCurrencyEdit object eImporteTotal: TcxDBCurrencyEdit
Left = 426 Left = 409
Top = 138 Top = 138
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA' DataBinding.DataField = 'IMPORTE_FACTURA'
@ -218,12 +217,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 13
Height = 21 Height = 21
Width = 182 Width = 182
end end
object eNombreCliente: TcxDBTextEdit object eNombreCliente: TcxDBTextEdit
Left = 426 Left = 409
Top = 221 Top = 221
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE_PROVEEDOR' DataBinding.DataField = 'NOMBRE_PROVEEDOR'
@ -249,11 +248,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14 TabOrder = 15
Width = 300 Width = 300
end end
object eNifCif: TcxDBTextEdit object eNifCif: TcxDBTextEdit
Left = 426 Left = 409
Top = 194 Top = 194
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF_PROVEEDOR' DataBinding.DataField = 'NIF_CIF_PROVEEDOR'
@ -279,12 +278,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 14
Width = 147 Width = 147
end end
object eRemesa: TcxDBTextEdit object eRemesa: TcxDBTextEdit
Left = 136 Left = 136
Top = 165 Top = 192
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -308,7 +307,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5 TabOrder = 6
Width = 113 Width = 113
end end
object edtFechaEmision: TcxDBDateEdit object edtFechaEmision: TcxDBDateEdit
@ -370,7 +369,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 100 Width = 100
end end
object rReferenciaFacturaProv: TcxDBTextEdit object rReferenciaFacturaProv: TcxDBTextEdit
Left = 426 Left = 409
Top = 30 Top = 30
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_FACTURA_PROV' DataBinding.DataField = 'REFERENCIA_FACTURA_PROV'
@ -396,12 +395,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 9
Width = 157 Width = 157
end end
object rRefReciboCompensado: TcxDBTextEdit object rRefReciboCompensado: TcxDBTextEdit
Left = 136 Left = 136
Top = 216 Top = 243
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO' DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -426,14 +425,14 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6 TabOrder = 7
Width = 216 Width = 216
end end
object eCuenta: TcxDBTextEdit object eCuentaFactura: TcxDBTextEdit
Left = 426 Left = 409
Top = 111 Top = 111
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DATOS_BANCARIOS' DataBinding.DataField = 'DATOS_BANCARIOS_FACTURA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
@ -456,9 +455,31 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 12
Width = 150 Width = 150
end end
object cbCuentaBancaria: TcxDBComboBox
Left = 136
Top = 138
DataBinding.DataField = 'DATOS_BANCARIOS'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
Properties.DropDownRows = 12
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Width = 158
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -499,6 +520,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Control = edtFechaVencimiento Control = edtFechaVencimiento
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item13: TdxLayoutItem
Caption = 'Cuenta bancaria:'
Control = cbCuentaBancaria
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
@ -561,7 +587,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end end
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
Caption = 'Cuenta bancaria:' Caption = 'Cuenta bancaria:'
Control = eCuenta Control = eCuentaFactura
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item9: TdxLayoutItem object dxLayoutControl1Item9: TdxLayoutItem

89
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
View File

@ -4,10 +4,11 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, uBizRecibosProveedor, DB, uDADataTable, dxLayoutControl, Dialogs, uViewBase, uBizRecibosProveedor, uRecibosProveedorController,
DB, uDADataTable, dxLayoutControl,
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls, cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces; uDAInterfaces, cxGraphics;
type type
IViewReciboProveedor = interface(IViewBase) IViewReciboProveedor = interface(IViewBase)
@ -15,6 +16,10 @@ type
function GetRecibo: IBizRecibosProveedor; function GetRecibo: IBizRecibosProveedor;
procedure SetRecibo(const Value: IBizRecibosProveedor); procedure SetRecibo(const Value: IBizRecibosProveedor);
property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo; property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo;
function GetController : IRecibosProveedorController;
procedure SetController (const Value : IRecibosProveedorController);
property Controller : IRecibosProveedorController read GetController write SetController;
end; end;
@ -60,32 +65,106 @@ type
dxLayoutControl1Item4: TdxLayoutItem; dxLayoutControl1Item4: TdxLayoutItem;
rRefReciboCompensado: TcxDBTextEdit; rRefReciboCompensado: TcxDBTextEdit;
dxLayoutControl1Item6: TdxLayoutItem; dxLayoutControl1Item6: TdxLayoutItem;
eCuenta: TcxDBTextEdit; eCuentaFactura: TcxDBTextEdit;
dxLayoutControl1Item13: TdxLayoutItem;
cbCuentaBancaria: TcxDBComboBox;
private private
FRecibo : IBizRecibosProveedor; FRecibo : IBizRecibosProveedor;
FController : IRecibosProveedorController;
function GetRecibo: IBizRecibosProveedor; function GetRecibo: IBizRecibosProveedor;
procedure SetRecibo(const Value: IBizRecibosProveedor); procedure SetRecibo(const Value: IBizRecibosProveedor);
function GetController : IRecibosProveedorController;
procedure SetController (const Value : IRecibosProveedorController);
protected
procedure RellenarCuentasBancarias;
public public
property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo; property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo;
property Controller : IRecibosProveedorController read GetController write SetController;
end; end;
var var
frViewReciboProveedor: TfrViewReciboProveedor; frViewReciboProveedor: TfrViewReciboProveedor;
implementation implementation
{$R *.dfm} {$R *.dfm}
{ TfrViewReciboProveedor } { TfrViewReciboProveedor }
uses
uEmpresasController, uFactuGES_App;
function TfrViewReciboProveedor.GetController: IRecibosProveedorController;
begin
Result := FController;
end;
function TfrViewReciboProveedor.GetRecibo: IBizRecibosProveedor; function TfrViewReciboProveedor.GetRecibo: IBizRecibosProveedor;
begin begin
Result := FRecibo; Result := FRecibo;
end; end;
procedure TfrViewReciboProveedor.RellenarCuentasBancarias;
var
AController : IEmpresasController;
ALista : TStringList;
AListaIBAN : TStringList;
AListaProveedor : TStringList;
i : integer;
begin
AController := TEmpresasController.Create;
try
ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);
AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
AListaProveedor := Controller.ProveedorController.DarListaCuentasBancarias(FRecibo.ID_PROVEEDOR);
try
with cbCuentaBancaria.Properties.Items do
begin
BeginUpdate;
try
Clear;
Add('');
for i := 0 to ALista.Count - 1 do
Add(ALista.Names[i]);
if AListaIBAN.Count > 0 then
begin
for i := 0 to AListaIBAN.Count - 1 do
Add(AListaIBAN.Names[i]);
end;
if AListaProveedor.Count > 0 then
begin
Add('--------------');
for i := 0 to AListaProveedor.Count - 1 do
Add(AListaProveedor.Names[i]);
end;
finally
EndUpdate;
end;
end;
finally
FreeANDNIL(ALista);
FreeANDNIL(AListaIBAN);
FreeANDNIL(AListaProveedor);
end;
finally
AController := NIL;
end;
end;
procedure TfrViewReciboProveedor.SetController(const Value: IRecibosProveedorController);
begin
FController := Value;
end;
procedure TfrViewReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor); procedure TfrViewReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor);
begin begin
FRecibo := Value; FRecibo := Value;
RellenarCuentasBancarias;
if Assigned(FRecibo) then if Assigned(FRecibo) then
DADataSource.DataTable := FRecibo.DataTable DADataSource.DataTable := FRecibo.DataTable
else else

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -111,8 +111,6 @@ uses
schObrasServer_Intf in '..\Modulos\Obras\Model\schObrasServer_Intf.pas', schObrasServer_Intf in '..\Modulos\Obras\Model\schObrasServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule}, uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule},
uRptRecibosProveedor_Server in '..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas' {RptRecibosProveedor: TDataModule}, uRptRecibosProveedor_Server in '..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas' {RptRecibosProveedor: TDataModule},
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
@ -135,7 +133,9 @@ uses
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas'; schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

660
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,334 +1,334 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage> <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe> <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN> <DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath> <DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath> <DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath> <DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath> <DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 24 de enero de 2014 18:50</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 04 de marzo de 2014 11:21</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr"> <DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form> <Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones_Impl</Form> <Form>srvProvinciasPoblaciones_Impl</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<Form>srvUsuarios</Form> <Form>srvUsuarios</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" /> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" /> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form> <Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form> <Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form> <Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
<Form>RptAlbaranesProveedor</Form> <Form>RptAlbaranesProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
<Form>RptWordAlbaranProveedor</Form> <Form>RptWordAlbaranProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form> <Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form> <Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form> <Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form> <Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form> <Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form> <Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas"> <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form> <Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form> <Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form> <Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form> <Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form> <Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form> <Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
<Form>srvFamilias</Form> <Form>srvFamilias</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
<Form>srvFormasPago</Form> <Form>srvFormasPago</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form> <Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form> <Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form> <Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form> <Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" /> <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"> <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
<Form>srvObras</Form> <Form>srvObras</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form> <Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form> <Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form> <Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form> <Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form> <Form>RptWordCertificadoTrabajo</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form> <Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form> <Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form> <Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form> <Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form> <Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form> <Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form> <Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form> <Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form> <Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
<Form>srvTiposIVA</Form> <Form>srvTiposIVA</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form> <Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form> <Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form> <Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form> <Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form> <Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form> <Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="srvLogin_Impl.pas"> <DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form> <Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uAcercaDe.pas"> <DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form> <Form>fAcercaDe</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleServer.pas"> <DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form> <Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uServerMainForm.pas"> <DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form> <Form>fServerForm</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Utiles\AHWord97.pas" /> <DCCReference Include="Utiles\AHWord97.pas"/>
<DCCReference Include="Utiles\MidasSpeedFix.pas" /> <DCCReference Include="Utiles\MidasSpeedFix.pas"/>
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas" /> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,0,5,0 FILEVERSION 2,0,6,0
PRODUCTVERSION 2,0,5,0 PRODUCTVERSION 2,0,6,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.0.5.0\0" VALUE "FileVersion", "2.0.6.0\0"
VALUE "ProductName", "FactuGES Servidor\0" VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.0.5.0\0" VALUE "ProductVersion", "2.0.6.0\0"
VALUE "CompileDate", "martes, 18 de febrero de 2014 14:23\0" VALUE "CompileDate", "martes, 04 de marzo de 2014 17:19\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"