Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo de remesas de proveedor

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@185 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-03-27 10:01:47 +00:00
parent 4045a62ff9
commit 048c3704d6
27 changed files with 543 additions and 443 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
Source/Base/Base.dproj
View File

@ -58,47 +58,47 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\adortl.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxIntl6D11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\designide.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contactos\PluginSDK_D10R.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Remesas de proveedor\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

BIN
Source/Base/Base.res
View File

Binary file not shown.

10
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,15 @@
<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">1</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.1.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.1.5</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <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">1</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.1.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.1.6</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,1,5,0 FILEVERSION 2,1,6,0
PRODUCTVERSION 2,1,5,0 PRODUCTVERSION 2,1,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.1.5.0\0" VALUE "FileVersion", "2.1.6.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.1.5\0" VALUE "ProductVersion", "2.1.6\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

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

@ -1123,6 +1123,9 @@ begin
ARecibos := ARecibosProveedorController.Nuevo; ARecibos := ARecibosProveedorController.Nuevo;
ARecibos.Edit; ARecibos.Edit;
ARecibos.ID_FACTURA := AFactura.ID; ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.ID_EMPRESA := AFactura.ID_EMPRESA;
ARecibos.ID_PROVEEDOR := AFactura.ID_PROVEEDOR;
ARecibos.ID_TIENDA := AFactura.ID_TIENDA;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i); ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS; ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100); ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);

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

@ -64,7 +64,7 @@ type
procedure Ver(ARecibosProveedor: IBizRecibosProveedor); procedure Ver(ARecibosProveedor: IBizRecibosProveedor);
function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor; function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor;
procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer); procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
procedure QuitarRemesa(ARecibos : IBizRecibosProveedor); procedure QuitarRemesa(ARecibos : IBizRecibosProveedor);
procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False); procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False);
function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor; function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor;
@ -134,7 +134,7 @@ type
function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor; function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor;
function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean; function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean;
procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer); procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
procedure QuitarRemesa(ARecibos : IBizRecibosProveedor); procedure QuitarRemesa(ARecibos : IBizRecibosProveedor);
procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor); procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor);
@ -200,7 +200,7 @@ begin
FDataModule := TDataModuleRecibosProveedor.Create(Nil); FDataModule := TDataModuleRecibosProveedor.Create(Nil);
end; end;
procedure TRecibosProveedorController.AsignarRemesa(ARecibos: IBizRecibosProveedor; ID_REMESA: Integer); procedure TRecibosProveedorController.AsignarRemesa(ARecibos: IBizRecibosProveedor; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
begin begin
if Assigned(ARecibos) then if Assigned(ARecibos) then
begin begin
@ -214,7 +214,7 @@ begin
ARecibos.Edit; ARecibos.Edit;
//Añadimos el cobro automatico por la remesa y volvemos a asignar ID //Añadimos el cobro automatico por la remesa y volvemos a asignar ID
//para que asigne un ID nuevo para el pago, porque aqui si hay maestro-detalle //para que asigne un ID nuevo para el pago, porque aqui si hay maestro-detalle
AnadirPago(ARecibos, DateToStr(Date)); //->Ojo el orden es importante AnadirPago(ARecibos, DateToStr(Date), AIgnorarContabilidad, ASubCuenta); //->Ojo el orden es importante
ARecibos.ID_REMESA := ID_REMESA; ARecibos.ID_REMESA := ID_REMESA;
end; end;
Next; Next;

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

@ -9,9 +9,9 @@ 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_RecibosCompensadosProv = '{362F2794-809B-43D0-90F9-7FE72E40A77A}'; RID_RecibosCompensadosProv = '{4B1C7D25-644C-48D0-AEE4-CC9550B2BE38}';
RID_RecibosProveedor = '{DDB0A83D-84A4-4660-9764-9F8C1360CD1C}'; RID_RecibosProveedor = '{5B4F59D6-3CCF-4CDC-AEF7-2D6CC9B0D15E}';
RID_PagosProveedor = '{E23DEA9F-5274-4F6A-BB81-20EC4D7ABD9A}'; RID_PagosProveedor = '{203C3208-8FC4-4F73-BAE2-1D1BFEF39723}';
{ Data table names } { Data table names }
nme_RecibosCompensadosProv = 'RecibosCompensadosProv'; nme_RecibosCompensadosProv = 'RecibosCompensadosProv';
@ -207,7 +207,7 @@ const
type type
{ IRecibosCompensadosProv } { IRecibosCompensadosProv }
IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable) IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
['{2D6D983B-A8D2-4403-A3B3-61EFCF0F042D}'] ['{D94DD004-FFDD-4330-AC00-3E4E09F4FC67}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -674,7 +674,7 @@ type
{ IRecibosProveedor } { IRecibosProveedor }
IRecibosProveedor = interface(IDAStronglyTypedDataTable) IRecibosProveedor = interface(IDAStronglyTypedDataTable)
['{976CC618-6A45-422A-A629-C8950DADCB5A}'] ['{FE0D44F1-A003-4330-B813-ADA31C7FA574}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1141,7 +1141,7 @@ type
{ IPagosProveedor } { IPagosProveedor }
IPagosProveedor = interface(IDAStronglyTypedDataTable) IPagosProveedor = interface(IDAStronglyTypedDataTable)
['{CB465AC1-DF0E-43AC-89B6-3AD01EFE5DD2}'] ['{B56F776D-E8BE-4985-843C-47113E7F12E3}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);

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

@ -9,14 +9,14 @@ 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_RecibosCompensadosProvDelta = '{BC31F43C-6FA7-4B92-8E36-FDA10B7C944E}'; RID_RecibosCompensadosProvDelta = '{57A7D303-D615-4C99-B0C9-E1D7235B3E75}';
RID_RecibosProveedorDelta = '{AC23DD73-5C9C-4C92-8637-D50386E731AE}'; RID_RecibosProveedorDelta = '{C279FC0A-98AF-4CB3-9967-31D34AE6314D}';
RID_PagosProveedorDelta = '{BF21E199-2B2A-41D2-BA3B-FB5A7E5EBC03}'; RID_PagosProveedorDelta = '{D2394B2A-39B5-49A2-ABA9-F541C6DAFD36}';
type type
{ IRecibosCompensadosProvDelta } { IRecibosCompensadosProvDelta }
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
['{BC31F43C-6FA7-4B92-8E36-FDA10B7C944E}'] ['{57A7D303-D615-4C99-B0C9-E1D7235B3E75}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -482,7 +482,7 @@ type
{ IRecibosProveedorDelta } { IRecibosProveedorDelta }
IRecibosProveedorDelta = interface(IRecibosProveedor) IRecibosProveedorDelta = interface(IRecibosProveedor)
['{AC23DD73-5C9C-4C92-8637-D50386E731AE}'] ['{C279FC0A-98AF-4CB3-9967-31D34AE6314D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -948,7 +948,7 @@ type
{ IPagosProveedorDelta } { IPagosProveedorDelta }
IPagosProveedorDelta = interface(IPagosProveedor) IPagosProveedorDelta = interface(IPagosProveedor)
['{BF21E199-2B2A-41D2-BA3B-FB5A7E5EBC03}'] ['{D2394B2A-39B5-49A2-ABA9-F541C6DAFD36}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;

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

@ -995,6 +995,14 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
Value = '' Value = ''
end end
item
Name = 'ID_EMPRESA'
Value = ''
end
item
Name = 'ID_PROVEEDOR'
Value = ''
end
item item
Name = 'FECHA_EMISION' Name = 'FECHA_EMISION'
Value = '' Value = ''

20
Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm
View File

@ -1,24 +1,22 @@
inherited frViewRemesaCliente: TfrViewRemesaCliente inherited frViewRemesaCliente: TfrViewRemesaCliente
Width = 476 Width = 451
Height = 224 Height = 304
Align = alClient Align = alClient
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
object dxLayoutControlRemesaCliente: TdxLayoutControl object dxLayoutControlRemesaCliente: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 476 Width = 451
Height = 224 Height = 304
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
476 451
224) 304)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 110 Left = 110
Top = 30 Top = 30
@ -63,7 +61,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Width = 108 Width = 108
end end
object edtFechaRemesa: TcxDBDateEdit object edtFechaRemesa: TcxDBDateEdit
Left = 324 Left = 311
Top = 30 Top = 30
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_REMESA' DataBinding.DataField = 'FECHA_REMESA'
@ -163,8 +161,8 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Width = 376 Width = 376
end end
inherited eContabilizar: TcxCheckBox inherited eContabilizar: TcxCheckBox
Left = 293 Left = 276
ExplicitLeft = 293 ExplicitLeft = 276
ExplicitWidth = 203 ExplicitWidth = 203
Width = 203 Width = 203
end end

1
Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas
View File

@ -120,7 +120,6 @@ begin
dxlcCuentaBancaria.visible := true; dxlcCuentaBancaria.visible := true;
dxlcCuentaContable.Visible := false; dxlcCuentaContable.Visible := false;
{$ENDIF} {$ENDIF}
end; end;
function TfrViewRemesaCliente.GetController: IRemesasClienteController; function TfrViewRemesaCliente.GetController: IRemesasClienteController;

16
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas
View File

@ -19,7 +19,7 @@ type
procedure Anadir(ARemesaProveedor : IBizRemesaProveedor); procedure Anadir(ARemesaProveedor : IBizRemesaProveedor);
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false): Boolean; overload; function Eliminar(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false): Boolean; overload;
function Guardar(ARemesaProveedor : IBizRemesaProveedor): Boolean; function Guardar(ARemesaProveedor : IBizRemesaProveedor; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean;
procedure DescartarCambios(ARemesaProveedor : IBizRemesaProveedor); procedure DescartarCambios(ARemesaProveedor : IBizRemesaProveedor);
function Existe(const ID: Integer) : Boolean; function Existe(const ID: Integer) : Boolean;
@ -63,7 +63,7 @@ type
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false): Boolean; overload; function Eliminar(ARemesaProveedor : IBizRemesaProveedor; AllItems: Boolean = false): Boolean; overload;
function Guardar(ARemesaProveedor : IBizRemesaProveedor): Boolean; function Guardar(ARemesaProveedor : IBizRemesaProveedor; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean;
procedure DescartarCambios(ARemesaProveedor : IBizRemesaProveedor); virtual; procedure DescartarCambios(ARemesaProveedor : IBizRemesaProveedor); virtual;
function Existe(const ID: Integer) : Boolean; virtual; function Existe(const ID: Integer) : Boolean; virtual;
procedure Anadir(ARemesaProveedor : IBizRemesaProveedor); virtual; procedure Anadir(ARemesaProveedor : IBizRemesaProveedor); virtual;
@ -84,6 +84,7 @@ type
end; end;
implementation implementation
{$INCLUDE ..\..\..\FactuGES.inc}
uses uses
cxControls, DB, uEditorRegistryUtils, schRemesasProveedorClient_Intf, uFactuGES_App, cxControls, DB, uEditorRegistryUtils, schRemesasProveedorClient_Intf, uFactuGES_App,
@ -199,8 +200,11 @@ begin
if ARemesaProveedor.DataTable.FieldByName(fld_RemesasProveedorFECHA_REMESA).IsNull then if ARemesaProveedor.DataTable.FieldByName(fld_RemesasProveedorFECHA_REMESA).IsNull then
raise Exception.Create('Debe indicar la fecha de esta remesa.'); raise Exception.Create('Debe indicar la fecha de esta remesa.');
if ARemesaProveedor.ID_DATOS_BANCO < 1 then {$IFDEF CONTABILIDAD}
raise Exception.Create('Debe la cuenta bancaria sobre la que realizará la remesa.'); {$ELSE}
if ARemesaProveedor.ID_DATOS_BANCO < 1 then
raise Exception.Create('Debe la cuenta bancaria sobre la que realizará la remesa.');
{$ENDIF}
// Asegurarse de valores en campos "automáticos" // Asegurarse de valores en campos "automáticos"
ARemesaProveedor.Edit; ARemesaProveedor.Edit;
@ -480,7 +484,7 @@ begin
Result := FRecibosProveedorController; Result := FRecibosProveedorController;
end; end;
function TRemesasProveedorController.Guardar(ARemesaProveedor: IBizRemesaProveedor): Boolean; function TRemesasProveedorController.Guardar(ARemesaProveedor: IBizRemesaProveedor; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean;
var var
bEsNuevo: Boolean; bEsNuevo: Boolean;
begin begin
@ -497,7 +501,7 @@ begin
//Si todo ha ido bien, asignamos la remesa a los recibos asociados //Si todo ha ido bien, asignamos la remesa a los recibos asociados
//Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros
RecibosProveedorController.AsignarRemesa(ARemesaProveedor.Recibos, ARemesaProveedor.ID); RecibosProveedorController.AsignarRemesa(ARemesaProveedor.Recibos, ARemesaProveedor.ID, AIgnorarContabilidad, ASubCuenta);
ARemesaProveedor.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboProveedor/ ElegirRecibosProveedor) ARemesaProveedor.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboProveedor/ ElegirRecibosProveedor)
//Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen //Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen

26
Source/Modulos/Remesas de proveedor/RemesasProveedor_Group.groupproj
View File

@ -9,6 +9,8 @@
<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="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Remesas de cliente\Views\RemesasCliente_view.dproj" />
<Projects Include="Controller\RemesasProveedor_controller.dproj" /> <Projects Include="Controller\RemesasProveedor_controller.dproj" />
<Projects Include="Data\RemesasProveedor_data.dproj" /> <Projects Include="Data\RemesasProveedor_data.dproj" />
<Projects Include="Model\RemesasProveedor_model.dproj" /> <Projects Include="Model\RemesasProveedor_model.dproj" />
@ -111,14 +113,32 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="RemesasCliente_view">
<MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="" />
</Target>
<Target Name="RemesasCliente_view:Clean">
<MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="RemesasCliente_view:Make">
<MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_view">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_view:Clean">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_view:Make">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasProveedor_model;RemesasProveedor_data;RemesasProveedor_controller;RemesasProveedor_view;RemesasProveedor_plugin;FactuGES;FactuGES_Server" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasProveedor_model;RemesasProveedor_data;RemesasProveedor_controller;RemesasProveedor_view;RemesasProveedor_plugin;FactuGES;FactuGES_Server;RemesasCliente_view;Contabilidad_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasProveedor_model:Clean;RemesasProveedor_data:Clean;RemesasProveedor_controller:Clean;RemesasProveedor_view:Clean;RemesasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasProveedor_model:Clean;RemesasProveedor_data:Clean;RemesasProveedor_controller:Clean;RemesasProveedor_view:Clean;RemesasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RemesasCliente_view:Clean;Contabilidad_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasProveedor_model:Make;RemesasProveedor_data:Make;RemesasProveedor_controller:Make;RemesasProveedor_view:Make;RemesasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasProveedor_model:Make;RemesasProveedor_data:Make;RemesasProveedor_controller:Make;RemesasProveedor_view:Make;RemesasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RemesasCliente_view:Make;Contabilidad_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>

4
Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dpk
View File

@ -32,7 +32,9 @@ requires
teeUI, teeUI,
tee, tee,
fsTee11, fsTee11,
frxTee11; frxTee11,
Contabilidad_view,
Contabilidad_controller;
contains contains
uViewRemesasProveedor in 'uViewRemesasProveedor.pas' {frViewRemesasProveedor: TFrame}, uViewRemesasProveedor in 'uViewRemesasProveedor.pas' {frViewRemesasProveedor: TFrame},

61
Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dproj
View File

@ -47,61 +47,23 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RemesasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</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"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">RemesasProveedor_view.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="RemesasProveedor_view.dpk"> <DelphiCompile Include="RemesasProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="Familias_controller.dcp" /> <DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
<DCCReference Include="Familias_model.dcp" /> <DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
<DCCReference Include="frxTee11.dcp" /> <DCCReference Include="..\..\Lib\Familias_controller.dcp" />
<DCCReference Include="fsTee11.dcp" /> <DCCReference Include="..\..\Lib\Familias_model.dcp" />
<DCCReference Include="RemesasProveedor_controller.dcp" /> <DCCReference Include="..\..\Lib\frxTee11.dcp" />
<DCCReference Include="RemesasProveedor_model.dcp" /> <DCCReference Include="..\..\Lib\fsTee11.dcp" />
<DCCReference Include="tee.dcp" /> <DCCReference Include="..\..\Lib\RemesasProveedor_controller.dcp" />
<DCCReference Include="teeUI.dcp" /> <DCCReference Include="..\..\Lib\RemesasProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\tee.dcp" />
<DCCReference Include="..\..\Lib\teeUI.dcp" />
<DCCReference Include="uEditorRemesaProveedor.pas"> <DCCReference Include="uEditorRemesaProveedor.pas">
<Form>fEditorRemesaProveedor</Form> <Form>fEditorRemesaProveedor</Form>
<DesignClass>TfEditorRemesaCliente</DesignClass> <DesignClass>TfEditorRemesaCliente</DesignClass>
@ -129,7 +91,6 @@
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006

22
Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.res
View File

Binary file not shown.

109
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm
View File

@ -4,20 +4,20 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
HorzScrollBar.Visible = False HorzScrollBar.Visible = False
VertScrollBar.Visible = False VertScrollBar.Visible = False
Caption = 'Ficha de remesa de pago' Caption = 'Ficha de remesa de pago'
ClientHeight = 604 ClientHeight = 623
ClientWidth = 690 ClientWidth = 699
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 698 ExplicitWidth = 707
ExplicitHeight = 638 ExplicitHeight = 657
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 690 Width = 699
Caption = 'Remesa de pago' Caption = 'Remesa de pago'
ExplicitWidth = 690 ExplicitWidth = 690
inherited Image1: TImage inherited Image1: TImage
Left = 663 Left = 672
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -46,7 +46,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 690 Width = 699
ExplicitWidth = 690 ExplicitWidth = 690
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 330 ExplicitWidth = 330
@ -65,7 +65,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
DockPos = 0 DockPos = 0
ExplicitWidth = 690 ExplicitWidth = 699
inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem inherited TBXItem8: TTBXItem
Visible = False Visible = False
@ -100,8 +100,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 684 Width = 693
Height = 457 Height = 476
MultiLine = True MultiLine = True
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
@ -114,9 +114,9 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ExplicitHeight = 429 ExplicitHeight = 429
inline frViewRecibosRemesaProveedor1: TfrViewRecibosRemesaProveedor inline frViewRecibosRemesaProveedor1: TfrViewRecibosRemesaProveedor
Left = 0 Left = 0
Top = 155 Top = 210
Width = 676 Width = 685
Height = 274 Height = 238
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -130,8 +130,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ExplicitWidth = 676 ExplicitWidth = 676
ExplicitHeight = 274 ExplicitHeight = 274
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 676 Width = 685
Height = 249 Height = 213
ExplicitWidth = 676 ExplicitWidth = 676
ExplicitHeight = 249 ExplicitHeight = 249
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -145,15 +145,15 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 676 Width = 685
ExplicitWidth = 676 ExplicitWidth = 676
end end
end end
inline frViewRemesaProveedor1: TfrViewRemesaProveedor inline frViewRemesaProveedor1: TfrViewRemesaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 676 Width = 685
Height = 155 Height = 210
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -164,10 +164,10 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitWidth = 676 ExplicitWidth = 676
ExplicitHeight = 155 ExplicitHeight = 210
inherited dxLayoutControlRemesaProveedor: TdxLayoutControl inherited dxLayoutControlRemesaProveedor: TdxLayoutControl
Width = 676 Width = 685
Height = 155 Height = 210
ExplicitWidth = 676 ExplicitWidth = 676
ExplicitHeight = 155 ExplicitHeight = 155
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
@ -179,8 +179,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Width = 108 Width = 108
end end
inherited edtFechaRemesa: TcxDBDateEdit inherited edtFechaRemesa: TcxDBDateEdit
Left = 423 Left = 419
ExplicitLeft = 423 ExplicitLeft = 419
ExplicitWidth = 170 ExplicitWidth = 170
Width = 170 Width = 170
end end
@ -188,13 +188,30 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ExplicitWidth = 39 ExplicitWidth = 39
Width = 39 Width = 39
end end
inherited frViewListaSubcuentas1: TfrViewListaSubcuentas
Width = 453
ExplicitWidth = 453
inherited dxLayoutControl1: TdxLayoutControl
Width = 453
inherited cbSubCuentas: TcxComboBox
ExplicitWidth = 376
Width = 376
end
inherited eContabilizar: TcxCheckBox
Left = 424
ExplicitLeft = 424
ExplicitWidth = 203
Width = 203
end
end
end
end end
end end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 585 Top = 604
Width = 690 Width = 699
Panels = < Panels = <
item item
Width = 200 Width = 200
@ -204,8 +221,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 539 Top = 558
Width = 690 Width = 699
Height = 46 Height = 46
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -220,7 +237,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ExplicitWidth = 690 ExplicitWidth = 690
ExplicitHeight = 46 ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 690 Width = 699
ExplicitWidth = 690 ExplicitWidth = 690
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 92 Left = 92
@ -231,18 +248,18 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 343 Left = 347
Top = 10 Top = 10
Height = 30 Height = 30
ExplicitLeft = 343 ExplicitLeft = 347
ExplicitTop = 10 ExplicitTop = 10
ExplicitHeight = 30 ExplicitHeight = 30
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 455 Left = 459
Top = 91 Top = 91
Width = 192 Width = 192
ExplicitLeft = 455 ExplicitLeft = 459
ExplicitTop = 91 ExplicitTop = 91
ExplicitWidth = 192 ExplicitWidth = 192
end end
@ -257,20 +274,20 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 526 Left = 530
Top = 37 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 526 ExplicitLeft = 530
ExplicitTop = 37 ExplicitTop = 37
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 456 Left = 460
Top = 111 Top = 111
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 456 ExplicitLeft = 460
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -284,37 +301,37 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ExplicitTop = 111 ExplicitTop = 111
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 455 Left = 459
Top = 37 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 455 ExplicitLeft = 459
ExplicitTop = 37 ExplicitTop = 37
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 455 Left = 459
Top = 10 Top = 10
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 455 ExplicitLeft = 459
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 455 Left = 459
Top = 64 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 455 ExplicitLeft = 459
ExplicitTop = 64 ExplicitTop = 64
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 526 Left = 530
Top = 64 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 526 ExplicitLeft = 530
ExplicitTop = 64 ExplicitTop = 64
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
@ -349,9 +366,9 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Width = 81 Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 195 Left = 199
Top = 37 Top = 37
ExplicitLeft = 195 ExplicitLeft = 199
ExplicitTop = 37 ExplicitTop = 37
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox

12
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas
View File

@ -112,6 +112,9 @@ end;
procedure TfEditorRemesaProveedor.GuardarInterno; procedure TfEditorRemesaProveedor.GuardarInterno;
var var
bEsNuevo : Boolean; bEsNuevo : Boolean;
AIgnorarContabilidad: Integer;
ASubCuenta: Integer;
begin begin
inherited; inherited;
bEsNuevo := False; bEsNuevo := False;
@ -122,6 +125,15 @@ begin
// frViewDetallesFacturaProveedor1.BeginUpdate; // Para que no se mueva el foco // frViewDetallesFacturaProveedor1.BeginUpdate; // Para que no se mueva el foco
try try
bEsNuevo := FRemesaProveedor.EsNuevo; bEsNuevo := FRemesaProveedor.EsNuevo;
{$IFDEF CONTABILIDAD}
AIgnorarContabilidad := frViewRemesaProveedor1.frViewListaSubCuentas1.eContabilizar.EditValue;
ASubCuenta := frViewRemesaProveedor1.frViewListaSubCuentas1.IdSubCuenta;
FController.Guardar(FRemesaProveedor, AIgnorarContabilidad, ASubCuenta);
{$ELSE}
FController.Guardar(FRemesaProveedor);
{$ENDIF}
FController.Guardar(FRemesaProveedor); FController.Guardar(FRemesaProveedor);
finally finally

39
Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm
View File

@ -14,7 +14,6 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitHeight = 160
DesignSize = ( DesignSize = (
451 451
304) 304)
@ -137,6 +136,34 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
TabOrder = 3 TabOrder = 3
Width = 319 Width = 319
end end
inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 22
Top = 162
Width = 453
Height = 69
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 5
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 162
inherited dxLayoutControl1: TdxLayoutControl
inherited cbSubCuentas: TcxComboBox
ExplicitWidth = 376
Width = 376
end
inherited eContabilizar: TcxCheckBox
Left = 276
ExplicitLeft = 276
ExplicitWidth = 203
Width = 203
end
end
end
object dxLayoutControlRemesaProveedorGroup_Root: TdxLayoutGroup object dxLayoutControlRemesaProveedorGroup_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -169,7 +196,7 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlRemesaProveedorItem9: TdxLayoutItem object dxlcCuentaBancaria: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Cuenta bancaria:' Caption = 'Cuenta bancaria:'
@ -190,6 +217,14 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
end end
end end
end end
object dxlcCuentaContable: TdxLayoutGroup
Caption = 'Contabilidad'
object dxLayoutControlRemesaProveedorItem2: TdxLayoutItem
Control = frViewListaSubcuentas1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlRemesaProveedorGroup3: TdxLayoutGroup object dxLayoutControlRemesaProveedorGroup3: TdxLayoutGroup
Caption = 'New Group' Caption = 'New Group'
ShowCaption = False ShowCaption = False

23
Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.pas
View File

@ -12,7 +12,7 @@ uses
uFamiliasController, cxSpinEdit, cxCurrencyEdit, uFamiliasController, cxSpinEdit, cxCurrencyEdit,
uBizRemesasProveedor, uRemesasProveedorController, cxCalendar, uBizRemesasProveedor, uRemesasProveedorController, cxCalendar,
dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
cxImageComboBox, uDAInterfaces; cxImageComboBox, uDAInterfaces, uViewListaSubCuentas;
type type
IViewRemesaProveedor = interface(IViewBase) IViewRemesaProveedor = interface(IViewBase)
@ -41,12 +41,15 @@ type
dxLayoutControlRemesaProveedorGroup5: TdxLayoutGroup; dxLayoutControlRemesaProveedorGroup5: TdxLayoutGroup;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
dxLayoutControlRemesaProveedorItem9: TdxLayoutItem; dxlcCuentaBancaria: TdxLayoutItem;
cbCuentaBancaria: TcxDBLookupComboBox; cbCuentaBancaria: TcxDBLookupComboBox;
dsDatosBanco: TDADataSource; dsDatosBanco: TDADataSource;
dxLayoutControlRemesaProveedorGroup2: TdxLayoutGroup; dxLayoutControlRemesaProveedorGroup2: TdxLayoutGroup;
dxLayoutControlRemesaProveedorItem1: TdxLayoutItem; dxLayoutControlRemesaProveedorItem1: TdxLayoutItem;
cbTipo: TcxDBImageComboBox; cbTipo: TcxDBImageComboBox;
dxLayoutControlRemesaProveedorItem2: TdxLayoutItem;
frViewListaSubcuentas1: TfrViewListaSubcuentas;
dxlcCuentaContable: TdxLayoutGroup;
protected protected
FController: IRemesasProveedorController; FController: IRemesasProveedorController;
@ -62,11 +65,11 @@ type
end; end;
implementation implementation
{$R *.dfm} {$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc}
uses uses
uDataModuleUsuarios, uFactuGES_App; uDataModuleUsuarios, uFactuGES_App, uSubCuentasController;
{ TfrViewRemesaProveedors } { TfrViewRemesaProveedors }
@ -107,7 +110,17 @@ begin
AItem.Description := CTE_TIPO_TRANSFERENCIA; AItem.Description := CTE_TIPO_TRANSFERENCIA;
AItem.Value := CTE_TIPO_TRANSFERENCIA; AItem.Value := CTE_TIPO_TRANSFERENCIA;
cbTipo.Properties.Items.EndUpdate; cbTipo.Properties.Items.EndUpdate;
{$IFDEF CONTABILIDAD}
frViewListaSubcuentas1.TipoSubCuenta := tCajas;
dxlcCuentaBancaria.visible := false;
dxlcCuentaContable.Visible := true;
{$ELSE}
dxlcCuentaBancaria.visible := true;
dxlcCuentaContable.Visible := false;
{$ENDIF}
end; end;
function TfrViewRemesaProveedor.GetController: IRemesasProveedorController; function TfrViewRemesaProveedor.GetController: IRemesasProveedorController;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -114,12 +114,12 @@ uses
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas', schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_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',
uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas', uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas',
uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas'; uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.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}

502
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,256 +1,254 @@
<?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>
</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>
</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><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.1.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 25 de marzo de 2008 19:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.1.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 25 de marzo de 2008 19:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> </ProjectExtensions>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
</ProjectExtensions> <ItemGroup>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <DelphiCompile Include="FactuGES_Server.dpr">
<ItemGroup> <MainSource>MainSource</MainSource>
<DelphiCompile Include="FactuGES_Server.dpr"> </DelphiCompile>
<MainSource>MainSource</MainSource> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
</DelphiCompile> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" /> <Form>srvEjercicios</Form>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvEjercicios</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> <Form>srvEmpresas</Form>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>srvEmpresas</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" /> <Form>srvAlbaranesCliente</Form>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvAlbaranesCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> <Form>srvAlbaranesProveedor</Form>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvAlbaranesProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> <Form>srvAlmacenes</Form>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>srvAlmacenes</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" /> <Form>srvContabilidad</Form>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvContabilidad</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> <Form>RptEtiquetasContacto</Form>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DesignClass>TDataModule</DesignClass>
<Form>RptEtiquetasContacto</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
</DCCReference> <Form>RptFichasEmpleado</Form>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <DesignClass>TDataModule</DesignClass>
<Form>RptFichasEmpleado</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
</DCCReference> <Form>srvContactos</Form>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>srvContactos</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> <Form>RptFacturasCliente</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DesignClass>TDataModule</DesignClass>
<Form>RptFacturasCliente</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
</DCCReference> <Form>srvFacturasCliente</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvFacturasCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" /> <Form>srvFacturasProveedor</Form>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvFacturasProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" /> <Form>srvHistoricoMovimientos</Form>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvHistoricoMovimientos</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" /> <Form>srvInventario</Form>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvInventario</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> <Form>srvPedidosProveedor</Form>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvPedidosProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <Form>RptPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> </DCCReference>
<Form>RptPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
</DCCReference> <Form>srvPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvPresupuestosCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" /> <Form>RptRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DesignClass>TDataModule</DesignClass>
<Form>RptRecibosCliente</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
</DCCReference> <Form>srvRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvRecibosCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" /> <Form>srvRecibosProveedor</Form>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvRecibosProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" /> <Form>srvReferencias</Form>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvReferencias</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" /> <Form>srvRemesasCliente</Form>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvRemesasCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" /> <Form>srvRemesasProveedor</Form>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvRemesasProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" /> <Form>srvUnidadesMedida</Form>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvUnidadesMedida</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> <Form>srvConfiguracion</Form>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvConfiguracion</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="Configuracion\uConexionBD.pas">
</DCCReference> <Form>frConexionBD</Form>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DesignClass>TFrame</DesignClass>
<Form>frConexionBD</Form> </DCCReference>
<DesignClass>TFrame</DesignClass> <DCCReference Include="Configuracion\uConfGeneral.pas">
</DCCReference> <Form>frConfGeneral</Form>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DesignClass>TFrame</DesignClass>
<Form>frConfGeneral</Form> </DCCReference>
<DesignClass>TFrame</DesignClass> <DCCReference Include="Configuracion\uConfiguracion.pas">
</DCCReference> <Form>fConfiguracion</Form>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DesignClass>TForm</DesignClass>
<Form>fConfiguracion</Form> </DCCReference>
<DesignClass>TForm</DesignClass> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
</DCCReference> <Form>FrameConfiguracion</Form>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DesignClass>TFrame</DesignClass>
<Form>FrameConfiguracion</Form> </DCCReference>
<DesignClass>TFrame</DesignClass> <DCCReference Include="srvLogin_Impl.pas">
</DCCReference> <Form>srvLogin</Form>
<DCCReference Include="srvLogin_Impl.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>srvLogin</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="uAcercaDe.pas">
</DCCReference> <Form>fAcercaDe</Form>
<DCCReference Include="uAcercaDe.pas"> </DCCReference>
<Form>fAcercaDe</Form> <DCCReference Include="uDataModuleServer.pas">
</DCCReference> <Form>dmServer</Form>
<DCCReference Include="uDataModuleServer.pas"> <DesignClass>TDataModule</DesignClass>
<Form>dmServer</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="uServerMainForm.pas">
</DCCReference> <Form>fServerForm</Form>
<DCCReference Include="uServerMainForm.pas"> </DCCReference>
<Form>fServerForm</Form> <DCCReference Include="Utiles\RegExpr.pas"/>
</DCCReference> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" /> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas" /> </ItemGroup>
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.1.0.0\0" VALUE "FileVersion", "1.1.0.0\0"
VALUE "ProductVersion", "1.1.0.0\0" VALUE "ProductVersion", "1.1.0.0\0"
VALUE "CompileDate", "martes, 25 de marzo de 2008 20:38\0" VALUE "CompileDate", "miércoles, 26 de marzo de 2008 21:41\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"