Remesas de cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@61 f33bb606-9f5c-448d-9c99-757f00063c96

Source/Base/Base.dproj

@@ -45,8 +45,6 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <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="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</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><Excluded_Packages>
-      
-      
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@@ -56,57 +54,57 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\Modulos\Remesas de cliente\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\cxExportD11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\cxGridD11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\designide.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\dxCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\SpTBXLib_d11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\tb2k_d11.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\SpTBXLib_d11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.dproj

@@ -1,4 +1,5 @@
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <ProjectGuid>{d465978e-860e-4eb2-9a25-2afb559e8e07}</ProjectGuid>
     <MainSource>BancaElectronica_controller.dpk</MainSource>
@@ -39,72 +40,35 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <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">False</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">BancaElectronica_controller.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">BancaElectronica_controller.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="BancaElectronica_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\Lib\Base.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_model.dcp" />
-    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
-    <DCCReference Include="..\..\Lib\RemesasCliente_controller.dcp" />
-    <DCCReference Include="..\..\Lib\RemesasCliente_model.dcp" />
     <DCCReference Include="..\Utiles\CVBNorma1958CSB.pas" />
     <DCCReference Include="..\Utiles\CVBNorma19CSB.pas" />
+    <DCCReference Include="..\Utiles\CVBNorma32CSB.pas" />
     <DCCReference Include="..\Utiles\CVBNorma34CSB.pas" />
     <DCCReference Include="..\Utiles\CVBUtils.pas" />
     <DCCReference Include="uBancaElectronicaController.pas" />
+    <DCCReference Include="View\ApplicationBase.dcp" />
+    <DCCReference Include="View\Base.dcp" />
+    <DCCReference Include="View\Contactos_controller.dcp" />
+    <DCCReference Include="View\Contactos_model.dcp" />
+    <DCCReference Include="View\GUIBase.dcp" />
+    <DCCReference Include="View\RemesasCliente_controller.dcp" />
+    <DCCReference Include="View\RemesasCliente_model.dcp" />
+    <DCCReference Include="View\rtl.dcp" />
     <DCCReference Include="View\uIEditorExportacionNorma19.pas" />
+    <DCCReference Include="View\uIEditorExportacionNorma32.pas" />
+    <DCCReference Include="View\vcl.dcp" />
   </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6006
+EurekaLog Version=6011
 Activate=0
 Activate Handle=1
 Save Log File=1

Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas

@@ -32,32 +32,69 @@ type
   IBancaElectronicaController = interface(IControllerBase)
   ['{9E37DF46-D02C-47C4-BCBE-414FB97A7751}']
     procedure GenerarFicheroNorma19 (const IDRemesa : Integer);
+    procedure GenerarFicheroNorma32 (const IDRemesa : Integer);
   end;
 
   TBancaElectronicaController = class(TControllerBase, IBancaElectronicaController)
   private
-    function DarParametrosParaExportar(var Entidad : Integer; var Oficina : Integer;
+    function DarParametrosParaExportar19(var Entidad : Integer; var Oficina : Integer;
               var AFechaCargo : TDateTime; var AFileName : String): Boolean;
+
+    function DarParametrosParaExportar32(var Identificador : String; var ACodigoINE : String;
+             var Entidad : Integer; var Oficina : Integer; var AFileName : String): Boolean;
+
   public
     procedure GenerarFicheroNorma19 (const IDRemesa : Integer);
+    procedure GenerarFicheroNorma32 (const IDRemesa : Integer);
   end;
 
 implementation
 
 uses
   cxControls, Controls, Windows,
-  CVBNorma1958CSB,
+  CVBNorma1958CSB, CVBNorma32CSB,
   uEditorRegistryUtils, 
 
   uBizEmpresas, uEmpresasController,
   uBizContactos, uClientesController,  
   uBizRemesasCliente, uRemesasClienteController, schRemesasClienteClient_Intf,
   schRecibosClienteClient_Intf, Dialogs,
-  uIEditorExportacionNorma19;
+  uIEditorExportacionNorma19, uIEditorExportacionNorma32;
 
 
 { TBancaElectronicaController }
 
+function TBancaElectronicaController.DarParametrosParaExportar32(var Identificador : String;
+      var ACodigoINE : String; var Entidad : Integer; var Oficina : Integer; var AFileName : String): Boolean;
+var
+  AEditor : IEditorExportacionNorma32;
+begin
+  Result := False;
+  AEditor := NIL;
+
+  CreateEditor('EditorExportacionNorma32', IEditorExportacionNorma32, AEditor);
+  if Assigned(AEditor) then
+    try
+       AEditor.CodigoIdentif := Identificador;
+       AEditor.CodigoINE := ACodigoINE;
+       AEditor.CodigoEntidad := Entidad;
+       AEditor.CodigoAgencia := Oficina;
+       AEditor.Fichero := AFileName;
+
+       if (AEditor.ShowModal = mrOk) then
+       begin
+         Identificador := AEditor.CodigoIdentif;
+         ACodigoINE := AEditor.CodigoINE;
+         Entidad := AEditor.CodigoEntidad;
+         Oficina := AEditor.CodigoAgencia;
+         AFileName := AEditor.Fichero;
+         Result := True;
+       end;
+    finally
+      AEditor.Release;
+    end;
+end;
+
 procedure TBancaElectronicaController.GenerarFicheroNorma19(
   const IDRemesa: Integer);
 var
@@ -93,11 +130,11 @@ begin
     if AEmpresa.ID <> ARemesa.ID_EMPRESA then
       raise Exception.CreateFmt('No existe la empresa con ID %d', [ARemesa.ID_EMPRESA]);
 
-    ANorma19.FNomFic := 'REM' + ARemesa.REFERENCIA + '.C19';
+    ANorma19.FNomFic := 'REM' + StringReplace(ARemesa.REFERENCIA, '/','',[]) + '.C19';
     ANorma19.FecAbono := ARemesa.FECHA_REMESA;
 
-    if not DarParametrosParaExportar(AEntidad, AOficina, ANorma19.FecAbono, ANorma19.FNomFic) then
+    if not DarParametrosParaExportar19(AEntidad, AOficina, ANorma19.FecAbono, ANorma19.FNomFic) then
-      Exit;
+       Exit;
 
     ANorma19.EntRecepPres := IntToStr(AEntidad);
     ANorma19.OfiRecepPres := IntToStr(AOficina);
@@ -105,7 +142,7 @@ begin
     with ANorma19 do
     begin
       _NORMA_ := 19;
-      Procedimiento := prPrimero; // <= ????????????????????????????????????
+      //Procedimiento := prPrimero; // <= ????????????????????????????????????
       Euros := True;
       Depura := True;
 
@@ -144,10 +181,10 @@ begin
         // el que paga
         Referencia := ACliente.REFERENCIA;
         NomTitDom := ARemesa.Recibos.NOMBRE_CLIENTE;
-//        EntTitDom := ARemesa.Recibos.ENTIDAD_CLIENTE;
+        EntTitDom := ARemesa.Recibos.ENTIDAD;
-//        OfiTitDom := ARemesa.Recibos.SUCURSAL_CLIENTE;
+        OfiTitDom := ARemesa.Recibos.SUCURSAL;
-//        DcTitDom := ARemesa.Recibos.DC_CLIENTE;
+        DcTitDom := ARemesa.Recibos.DC;
-//        CcTitDom := ARemesa.Recibos.CUENTA_CLIENTE;
+        CcTitDom := ARemesa.Recibos.CUENTA;
         NomTitCta := ARemesa.Recibos.NOMBRE_CLIENTE;
         DomTitCta := '';
         PlzTitCta := '';
@@ -174,7 +211,130 @@ begin
   end;
 end;
 
-function TBancaElectronicaController.DarParametrosParaExportar (
+procedure TBancaElectronicaController.GenerarFicheroNorma32(
+  const IDRemesa: Integer);
+var
+  ARemesasController : IRemesasClienteController;
+  AEmpresasController : IEmpresasController;
+  AClientesController : IClientesController;
+
+  ARemesa : IBizRemesaCliente;
+  AEmpresa : IBizEmpresa;
+  ACliente : IBizCliente;
+
+  ANorma32 : TCVBNorma32CSB;
+  I: integer;
+  AEntidad : Integer;
+  AOficina : Integer;
+  ACodINE : String;
+begin
+  ARemesasController := TRemesasClienteController.Create;
+  AEmpresasController := TEmpresasController.Create;
+  AClientesController := TClientesController.Create;
+
+  ANorma32 := TCVBNorma32CSB.Create(NIL);
+  try
+    ARemesa := ARemesasController.Buscar(IDRemesa);
+    ARemesa.DataTable.Active := True;
+    ARemesasController.RecuperarRecibos(ARemesa);
+
+    if ARemesa.ID <> IDRemesa then
+      raise Exception.CreateFmt('No existe la remesa con ID %d', [IDRemesa]);
+
+    AEmpresa := AEmpresasController.Buscar(ARemesa.ID_EMPRESA);
+    AEmpresa.DataTable.Active := True;
+
+    if AEmpresa.ID <> ARemesa.ID_EMPRESA then
+      raise Exception.CreateFmt('No existe la empresa con ID %d', [ARemesa.ID_EMPRESA]);
+
+    ANorma32.FNomFic := 'REM' + StringReplace(ARemesa.REFERENCIA, '/','',[]) + '.C32';
+    ANorma32.FechaFichero := Date;
+
+
+    if not DarParametrosParaExportar32(ANorma32.IdCedente, ACodINE, AEntidad, AOficina, ANorma32.FNomFic) then
+       Exit;
+
+    with ANorma32 do
+    begin
+      _NORMA_ := 32;
+      Euros := True;
+      Depura := True;
+
+      Abrir;
+
+      // Cabecera del fichero
+      FechaFichero := NOW;
+      EntReceptora := IntToStr(AEntidad);
+      SucReceptora := IntToStr(AOficina);
+      CompCabeceraFichero;
+
+      // Cabecera de la remesa
+      NumRemesa := '0001';  //<-------------------------------------------------
+
+      AboEnt := ARemesa.ENTIDAD;
+      AboOfi := ARemesa.SUCURSAL;
+      AboDC := ARemesa.DC;
+      AboCC := ARemesa.CUENTA;
+
+      AdeEnt := ARemesa.ENTIDAD;
+      AdeOfi := ARemesa.SUCURSAL;
+      AdeDC := ARemesa.DC;
+      AdeCC := ARemesa.CUENTA;
+
+      ImpEnt := ARemesa.ENTIDAD;
+      ImpSuc := ARemesa.SUCURSAL;
+      ImpDC := ARemesa.DC;
+      ImpCC := ARemesa.CUENTA;
+
+      CompCabeceraRemesa;
+
+      ARemesa.Recibos.First;
+      for i := 0 to ARemesa.Recibos.RecordCount - 1 do
+      begin
+        RegNumRecibo := ARemesa.Recibos.REFERENCIA;
+        RegCodigoINE := ACodINE;
+        RegPlazaLibr := AEmpresa.POBLACION;
+        RegImpEfecto := ARemesa.Recibos.IMPORTE_TOTAL;
+        RegVtoEfecto := ARemesa.Recibos.FECHA_VENCIMIENTO;
+        // (II)
+        RegCodEnt := ARemesa.Recibos.ENTIDAD;
+        RegCodOfi := ARemesa.Recibos.SUCURSAL;
+        RegDC := ARemesa.Recibos.DC;
+        RegCC := ARemesa.Recibos.CUENTA;
+        RegLibrador := AEmpresa.NOMBRE;
+        RegLibrado := ARemesa.Recibos.NOMBRE_CLIENTE;
+        RegInfoAdic := '';
+        // (III)
+        ACliente := (AClientesController.Buscar(ARemesa.Recibos.ID_CLIENTE) as IBizCliente);
+        try
+          ACliente.DataTable.Active := True;
+          RegDomicilio := ACliente.CALLE;
+          RegCodPostal := ACliente.CODIGO_POSTAL;
+          RegPoblacion := ACliente.POBLACION;
+          RegNIF := ARemesa.Recibos.NIF_CIF_CLIENTE;
+        finally
+          ACliente := NIL;
+        end;
+        CompRegistro;
+
+        ARemesa.Recibos.Next;
+      end;
+      CompFinRemesa;
+      Cerrar;
+    end;
+  finally
+    HideHourglassCursor;
+    ARemesasController := NIL;
+    AEmpresasController := NIL;
+    AClientesController := NIL;
+
+    AEmpresa := NIL;
+
+    FreeAndNil(ANorma32);
+  end;
+end;
+
+function TBancaElectronicaController.DarParametrosParaExportar19 (
   var Entidad : Integer; var Oficina : Integer; var AFechaCargo : TDateTime;
   var AFileName : String): Boolean;
 var
@@ -193,8 +353,8 @@ begin
 
        if (AEditor.ShowModal = mrOk) then
        begin
-         AEditor.Entidad := CodigoEntidad;
+         Entidad := AEditor.CodigoEntidad;
-         AEditor.Oficina := CodigoAgencia;
+         Oficina := AEditor.CodigoAgencia;
          AFechaCargo := AEditor.FechaCargo;
          AFileName := AEditor.Fichero;
          Result := True;

Source/Modulos/Banca electronica/Views/uBancaElectronicaViewRegister.pas

@@ -31,16 +31,18 @@ procedure UnregisterViews;
 implementation
 
 uses
-  uEditorRegistryUtils, uEditorExportacionNorma19;
+  uEditorRegistryUtils, uEditorExportacionNorma19, uEditorExportacionNorma32;
 
 procedure RegisterViews;
 begin
   EditorRegistry.RegisterClass(TfEditorExportacionNorma19, 'EditorExportacionNorma19');
+  EditorRegistry.RegisterClass(TfEditorExportacionNorma32, 'EditorExportacionNorma32');
 end;
 
 procedure UnregisterViews;
 begin
   EditorRegistry.UnRegisterClass(TfEditorExportacionNorma19);
+  EditorRegistry.UnRegisterClass(TfEditorExportacionNorma32);  
 end;
 
 end.

Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.dfm

@@ -41,55 +41,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
     Height = 13
     Caption = 'Fecha de cargo:'
   end
-  object pnlHeader: TPanel
-    Left = 0
-    Top = 0
-    Width = 656
-    Height = 64
-    Align = alTop
-    BevelOuter = bvNone
-    Color = clWhite
-    Padding.Left = 25
-    Padding.Top = 8
-    Padding.Right = 25
-    Padding.Bottom = 8
-    ParentBackground = False
-    TabOrder = 5
-    object lblTitle: TLabel
-      AlignWithMargins = True
-      Left = 25
-      Top = 8
-      Width = 606
-      Height = 13
-      Margins.Left = 0
-      Margins.Top = 0
-      Margins.Right = 0
-      Margins.Bottom = 8
-      Align = alTop
-      Caption = 'Volcado de remesas a disco'
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = [fsBold]
-      ParentFont = False
-      ExplicitWidth = 135
-    end
-    object lblComments: TLabel
-      AlignWithMargins = True
-      Caption = 'Introduzca los siguientes datos para realizar el volcado'
-      Left = 50
-      Top = 29
-      Width = 581
-      Height = 27
-      Margins.Left = 25
-      Margins.Top = 0
-      Margins.Right = 0
-      Align = alClient
-      ExplicitWidth = 3
-      ExplicitHeight = 13
-    end
-  end
   object Image1: TImage
     Left = 345
     Top = 15
@@ -162,6 +113,55 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
     Height = 13
     Caption = '(4 d'#237'gitos)'
   end
+  object pnlHeader: TPanel
+    Left = 0
+    Top = 0
+    Width = 389
+    Height = 64
+    Align = alTop
+    BevelOuter = bvNone
+    Color = clWhite
+    Padding.Left = 25
+    Padding.Top = 8
+    Padding.Right = 25
+    Padding.Bottom = 8
+    ParentBackground = False
+    TabOrder = 6
+    object lblTitle: TLabel
+      AlignWithMargins = True
+      Left = 25
+      Top = 8
+      Width = 339
+      Height = 13
+      Margins.Left = 0
+      Margins.Top = 0
+      Margins.Right = 0
+      Margins.Bottom = 8
+      Align = alTop
+      Caption = 'Volcado de remesas a disco'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+      ExplicitWidth = 155
+    end
+    object lblComments: TLabel
+      AlignWithMargins = True
+      Left = 50
+      Top = 29
+      Width = 314
+      Height = 24
+      Margins.Left = 25
+      Margins.Top = 0
+      Margins.Right = 0
+      Align = alClient
+      Caption = 'Introduzca los siguientes datos para realizar el volcado'
+      ExplicitWidth = 263
+      ExplicitHeight = 13
+    end
+  end
   object edtFechaCargo: TcxDateEdit
     Left = 120
     Top = 150
@@ -225,7 +225,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
     ModalResult = 2
     TabOrder = 4
     OnClick = CancelBtnClick
-    ExplicitTop = 265
   end
   object OKBtn: TButton
     Left = 202
@@ -235,7 +234,6 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
     Action = actVolcar
     Anchors = [akLeft, akRight, akBottom]
     TabOrder = 3
-    ExplicitTop = 265
   end
   object JvFilenameEdit1: TJvFilenameEdit
     Left = 24
@@ -243,7 +241,7 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
     Width = 349
     Height = 21
     Flat = False
-    ParentCtl3D = False
+    ParentFlat = False
     Filter = 'Ficheros de norma 19 (*.C19)|*.C19'
     DialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
     DialogTitle = 'Volcar a disco la remesa'
@@ -269,8 +267,8 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
     Top = 64
   end
   object ActionList1: TActionList
-    Left = 272
+    Left = 152
-    Top = 72
+    Top = 64
     object actVolcar: TAction
       Caption = 'Volcar a disco'
       OnExecute = actVolcarExecute

Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.pas

@@ -8,7 +8,8 @@ uses
   cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
   uIEditorExportacionNorma19, JvExControls, JvComponent,
   JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement,
-  JvDialogs, Mask, JvExMask, JvToolEdit, ActnList;
+  JvDialogs, Mask, JvExMask, JvToolEdit, ActnList, cxGraphics, cxLookAndFeels,
+  cxLookAndFeelPainters;
 
 type
   TfEditorExportacionNorma19 = class(TForm, IEditorExportacionNorma19)
@@ -33,6 +34,7 @@ type
     actVolcar: TAction;
     Label5: TLabel;
     Label6: TLabel;
+    pnlHeader: TPanel;    
     procedure OKBtnClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure CancelBtnClick(Sender: TObject);

Source/Modulos/Remesas de cliente/RemesasCliente_Group.groupproj

@@ -9,6 +9,8 @@
     <Projects Include="..\..\Cliente\FactuGES.dproj" />
     <Projects Include="..\..\GUIBase\GUIBase.dproj" />
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
+    <Projects Include="..\Banca electronica\Controller\BancaElectronica_controller.dproj" />
+    <Projects Include="..\Banca electronica\Views\BancaElectronica_view.dproj" />
     <Projects Include="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" />
     <Projects Include="Controller\RemesasCliente_controller.dproj" />
     <Projects Include="Data\RemesasCliente_data.dproj" />
@@ -49,6 +51,24 @@
   <Target Name="ApplicationBase:Make">
     <MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
   </Target>
+  <Target Name="BancaElectronica_controller">
+    <MSBuild Projects="..\Banca electronica\Controller\BancaElectronica_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="BancaElectronica_controller:Clean">
+    <MSBuild Projects="..\Banca electronica\Controller\BancaElectronica_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="BancaElectronica_controller:Make">
+    <MSBuild Projects="..\Banca electronica\Controller\BancaElectronica_controller.dproj" Targets="Make" />
+  </Target>
+  <Target Name="BancaElectronica_view">
+    <MSBuild Projects="..\Banca electronica\Views\BancaElectronica_view.dproj" Targets="" />
+  </Target>
+  <Target Name="BancaElectronica_view:Clean">
+    <MSBuild Projects="..\Banca electronica\Views\BancaElectronica_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="BancaElectronica_view:Make">
+    <MSBuild Projects="..\Banca electronica\Views\BancaElectronica_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="RemesasCliente_model">
     <MSBuild Projects="Model\RemesasCliente_model.dproj" Targets="" />
   </Target>
@@ -122,13 +142,13 @@
     <MSBuild Projects="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" Targets="Make" />
   </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RemesasProveedor_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;BancaElectronica_controller;BancaElectronica_view;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RemesasProveedor_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RemesasProveedor_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;BancaElectronica_controller:Clean;BancaElectronica_view:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RemesasProveedor_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RemesasProveedor_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;BancaElectronica_controller:Make;BancaElectronica_view:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RemesasProveedor_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dproj

@@ -1,4 +1,5 @@
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <ProjectGuid>{5e4bdd4d-597f-407c-8b0c-32e37fbd6267}</ProjectGuid>
     <MainSource>RemesasCliente_view.dpk</MainSource>
@@ -47,63 +48,22 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <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">False</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">RemesasCliente_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">RemesasCliente_view.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="RemesasCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
-    <DCCReference Include="Familias_controller.dcp" />
+    <DCCReference Include="..\..\Lib\BancaElectronica_controller.dcp" />
-    <DCCReference Include="Familias_model.dcp" />
+    <DCCReference Include="..\..\Lib\frxTee11.dcp" />
-    <DCCReference Include="frxTee11.dcp" />
+    <DCCReference Include="..\..\Lib\fsTee11.dcp" />
-    <DCCReference Include="fsTee11.dcp" />
+    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="..\..\Lib\RemesasCliente_controller.dcp" />
-    <DCCReference Include="RemesasCliente_controller.dcp" />
+    <DCCReference Include="..\..\Lib\RemesasCliente_model.dcp" />
-    <DCCReference Include="RemesasCliente_model.dcp" />
+    <DCCReference Include="..\..\Lib\tee.dcp" />
-    <DCCReference Include="tee.dcp" />
+    <DCCReference Include="..\..\Lib\teeUI.dcp" />
-    <DCCReference Include="teeUI.dcp" />
     <DCCReference Include="uEditorRemesaCliente.pas">
       <Form>fEditorRemesaCliente</Form>
       <DesignClass>TfEditorRemesaCliente</DesignClass>
@@ -131,10 +91,9 @@
     </DCCReference>
   </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6006
+EurekaLog Version=6011
 Activate=0
 Activate Handle=1
 Save Log File=1

Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm

@@ -51,62 +51,68 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
       AnchorY = 14
     end
   end
-  inherited TBXDock: TSpTBXDock
+  inherited TBXDock: TTBXDock
     Width = 676
     ExplicitWidth = 676
-    inherited tbxMain: TSpTBXToolbar
+    inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 598
+      DockPos = 0
-      inherited TBXItem2: TSpTBXItem
+      ExplicitWidth = 569
+      inherited TBXItem2: TTBXItem
         Visible = False
       end
-      inherited TBXItem5: TSpTBXItem
+      inherited TBXItem5: TTBXItem
         Visible = False
       end
-      object TBXSeparatorItem6: TSpTBXSeparatorItem [11]
+      object TBXSeparatorItem6: TTBXSeparatorItem [11]
       end
-      object TBXItem33: TSpTBXItem [12]
+      object TBXSubmenuItem3: TTBXSubmenuItem [12]
-        Action = actVolcarDisco
+        Caption = 'Volcar a disco'
-        DisplayMode = nbdmImageAndText
+        object TBItem1: TTBItem
+          Action = actNorma19
+        end
+        object TBItem2: TTBItem
+          Action = actNorma32
+        end
       end
     end
-    inherited tbxMenu: TSpTBXToolbar
+    inherited tbxMenu: TTBXToolbar
       DockPos = 0
       ExplicitWidth = 676
-      inherited TBXSubmenuItem4: TSpTBXSubmenuItem
+      inherited TBXSubmenuItem4: TTBXSubmenuItem
-        inherited TBXItem8: TSpTBXItem
+        inherited TBXItem8: TTBXItem
           Visible = False
         end
-        inherited TBXSeparatorItem5: TSpTBXSeparatorItem
+        inherited TBXSeparatorItem5: TTBXSeparatorItem
           Visible = False
         end
-        inherited TBXItem10: TSpTBXItem
+        inherited TBXItem10: TTBXItem
           Visible = False
         end
-        inherited TBXItem21: TSpTBXItem
+        inherited TBXItem21: TTBXItem
           Visible = False
         end
-        inherited TBXItem22: TSpTBXItem
+        inherited TBXItem22: TTBXItem
           Visible = False
         end
-        inherited TBXItem9: TSpTBXItem
+        inherited TBXItem9: TTBXItem
           Visible = False
         end
       end
-      inherited TBXSubmenuItem1: TSpTBXSubmenuItem
+      inherited TBXSubmenuItem1: TTBXSubmenuItem
-        inherited TBXItem32: TSpTBXItem
+        inherited TBXItem32: TTBXItem
           Visible = False
         end
-        inherited TBXItem31: TSpTBXItem
+        inherited TBXItem31: TTBXItem
           Visible = False
         end
-        inherited TBXSeparatorItem13: TSpTBXSeparatorItem
+        inherited TBXSeparatorItem13: TTBXSeparatorItem
           Visible = False
         end
       end
-      object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
+      object TBXSubmenuItem2: TTBXSubmenuItem [4]
         Caption = 'A&cciones'
-        object TBXItem7: TSpTBXItem
+        object TBXItem7: TTBXItem
-          Action = actVolcarDisco
+          Action = actNorma19
         end
       end
     end
@@ -285,39 +291,23 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
       ExplicitWidth = 676
       ExplicitHeight = 46
       inherited Bevel3: TBevel
-        Left = 381
+        Left = 328
         Top = 10
         Height = 30
-        ExplicitLeft = 381
+        ExplicitLeft = 328
         ExplicitTop = 10
         ExplicitHeight = 30
       end
       inherited Bevel4: TBevel
-        Left = 493
+        Left = 440
         Top = 52
         Width = 192
-        ExplicitLeft = 493
+        ExplicitLeft = 440
         ExplicitTop = 52
         ExplicitWidth = 192
       end
-      inherited Bevel1: TBevel
-        Left = 493
-        Top = 168
-        Width = 73
-        ExplicitLeft = 493
-        ExplicitTop = 168
-        ExplicitWidth = 73
-      end
-      inherited Bevel2: TBevel
-        Left = 119
-        Top = 170
-        Width = 368
-        ExplicitLeft = 119
-        ExplicitTop = 170
-        ExplicitWidth = 368
-      end
       inherited ImporteDto: TcxDBCurrencyEdit
-        Left = 190
+        Left = 163
         Top = 37
         DataBinding.DataField = ''
         Style.LookAndFeel.SkinName = ''
@@ -325,13 +315,13 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 190
+        ExplicitLeft = 163
         ExplicitTop = 37
         ExplicitWidth = 157
         Width = 157
       end
       inherited ImporteIVA: TcxDBCurrencyEdit
-        Left = 564
+        Left = 511
         Top = 87
         DataBinding.DataField = ''
         Style.LookAndFeel.SkinName = ''
@@ -339,26 +329,26 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 564
+        ExplicitLeft = 511
         ExplicitTop = 87
         ExplicitWidth = 147
         Width = 147
       end
       inherited ImporteTotal: TcxDBCurrencyEdit
-        Left = 494
+        Left = 441
         Top = 141
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 494
+        ExplicitLeft = 441
         ExplicitTop = 141
         ExplicitWidth = 217
         Width = 217
       end
       inherited edtDescuento: TcxDBSpinEdit
-        Left = 119
+        Left = 92
         Top = 37
         DataBinding.DataField = ''
         Style.LookAndFeel.SkinName = ''
@@ -366,11 +356,11 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 119
+        ExplicitLeft = 92
         ExplicitTop = 37
       end
       inherited edtIVA: TcxDBSpinEdit
-        Left = 493
+        Left = 440
         Top = 87
         DataBinding.DataField = ''
         Style.LookAndFeel.SkinName = ''
@@ -378,11 +368,11 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 493
+        ExplicitLeft = 440
         ExplicitTop = 87
       end
       inherited ImporteBase: TcxDBCurrencyEdit
-        Left = 493
+        Left = 440
         Top = 10
         DataBinding.DataField = ''
         Style.LookAndFeel.SkinName = ''
@@ -390,13 +380,13 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 493
+        ExplicitLeft = 440
         ExplicitTop = 10
         ExplicitWidth = 218
         Width = 218
       end
       inherited edtRE: TcxDBSpinEdit
-        Left = 493
+        Left = 440
         Top = 114
         DataBinding.DataField = ''
         Style.LookAndFeel.SkinName = ''
@@ -404,11 +394,11 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 493
+        ExplicitLeft = 440
         ExplicitTop = 114
       end
       inherited ImporteRE: TcxDBCurrencyEdit
-        Left = 564
+        Left = 511
         Top = 114
         DataBinding.DataField = ''
         Style.LookAndFeel.SkinName = ''
@@ -416,13 +406,13 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 564
+        ExplicitLeft = 511
         ExplicitTop = 114
         ExplicitWidth = 147
         Width = 147
       end
       inherited eImporteNeto: TcxDBCurrencyEdit
-        Left = 119
+        Left = 92
         Top = 10
         DataBinding.DataField = ''
         Style.LookAndFeel.SkinName = ''
@@ -430,13 +420,13 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 119
+        ExplicitLeft = 92
         ExplicitTop = 10
         ExplicitWidth = 228
         Width = 228
       end
       inherited ePorte: TcxDBCurrencyEdit
-        Left = 119
+        Left = 92
         Top = 64
         DataBinding.DataField = ''
         Style.LookAndFeel.SkinName = ''
@@ -444,88 +434,49 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 119
+        ExplicitLeft = 92
         ExplicitTop = 64
         ExplicitWidth = 228
         Width = 228
       end
       inherited eIVA: TcxDBLookupComboBox
-        Left = 119
+        Left = 92
         Top = 91
         DataBinding.DataField = ''
         Style.LookAndFeel.SkinName = ''
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 119
+        ExplicitLeft = 92
         ExplicitTop = 91
         ExplicitWidth = 90
         Width = 90
       end
       inherited bTiposIVA: TButton
-        Left = 233
+        Left = 180
         Top = 91
-        ExplicitLeft = 233
+        ExplicitLeft = 180
         ExplicitTop = 91
       end
       inherited cbRecargoEquivalencia: TcxDBCheckBox
-        Left = 119
+        Left = 92
         Top = 118
         DataBinding.DataField = ''
         Style.LookAndFeel.SkinName = ''
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 119
+        ExplicitLeft = 92
         ExplicitTop = 118
         ExplicitWidth = 228
         Width = 228
       end
-      inherited edtRetencion: TcxDBSpinEdit
-        Left = 493
-        Top = 188
-        Style.LookAndFeel.SkinName = ''
-        Style.IsFontAssigned = True
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 493
-        ExplicitTop = 188
-      end
-      inherited edtImporteRetencion: TcxDBCurrencyEdit
-        Left = 564
-        Top = 188
-        Style.LookAndFeel.SkinName = ''
-        Style.IsFontAssigned = True
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 564
-        ExplicitTop = 188
-        ExplicitWidth = 180
-        Width = 180
-      end
-      inherited edtFechaRetencion: TcxDBDateEdit
-        Left = 119
-        Top = 190
-        Style.LookAndFeel.SkinName = ''
-        StyleDisabled.LookAndFeel.SkinName = ''
-        StyleFocused.LookAndFeel.SkinName = ''
-        StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 119
-        ExplicitTop = 190
-        ExplicitWidth = 280
-        Width = 280
-      end
       inherited dxLayoutControl1Group_Root: TdxLayoutGroup
         inherited dxLayoutControl1Group1: TdxLayoutGroup
           ShowCaption = False
           ShowBorder = False
           inherited dxLayoutControl1Group2: TdxLayoutGroup
             Visible = False
-            inherited dxLayoutControl1Item19: TdxLayoutItem
-              Visible = False
-            end
           end
           inherited dxLayoutControl1Group5: TdxLayoutGroup
             inherited dxLayoutControl1Item13: TdxLayoutItem
@@ -544,9 +495,6 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
               inherited dxLayoutControl1Group8: TdxLayoutGroup
                 Visible = False
               end
-              inherited dxLayoutControl1Item10: TdxLayoutItem
-                Visible = False
-              end
             end
           end
         end
@@ -556,12 +504,19 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
   inherited EditorActionList: TActionList [5]
     Left = 96
     Top = 168
-    object actVolcarDisco: TAction
+    object actNorma19: TAction
       Category = 'Acciones'
-      Caption = 'Volcar a disco...'
+      Caption = 'Norma 19'
       ImageIndex = 22
-      OnExecute = actVolcarDiscoExecute
+      OnExecute = actNorma19Execute
-      OnUpdate = actVolcarDiscoUpdate
+      OnUpdate = actNorma19Update
+    end
+    object actNorma32: TAction
+      Category = 'Acciones'
+      Caption = 'Norma 32'
+      ImageIndex = 22
+      OnExecute = actNorma32Execute
+      OnUpdate = actNorma32Update
     end
   end
   inherited SmallImages: TPngImageList [6]

Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas

@@ -6,10 +6,10 @@ uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent,
   uViewRemesaCliente, uBizRemesasCliente, JvNavigationPane, ActnList,
-  uEditorBase, StdActns, TB2Dock, TB2Toolbar, SpTBXItem, ImgList, PngImageList,
+  uEditorBase, StdActns, TB2Dock, TB2Toolbar, TBX, ImgList, PngImageList,
   TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
   uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls,
-  SpTBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase,
+  TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase,
   JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
   cxCustomData,
   uViewRemesasCliente, uIEditorRemesaCliente, uRemesasClienteController, JvExComCtrls,
@@ -24,11 +24,14 @@ type
     frViewRemesaCliente1: TfrViewRemesaCliente;
     frViewTotales1: TfrViewTotales;
     frViewRecibosRemesaCliente1: TfrViewRecibosRemesaCliente;
-    actVolcarDisco: TAction;
+    actNorma19: TAction;
-    TBXSubmenuItem2: TSpTBXSubmenuItem;
+    TBXSubmenuItem2: TTBXSubmenuItem;
-    TBXItem7: TSpTBXItem;
+    TBXItem7: TTBXItem;
-    TBXItem33: TSpTBXItem;
+    TBXSeparatorItem6: TTBXSeparatorItem;
-    TBXSeparatorItem6: TSpTBXSeparatorItem;
+    actNorma32: TAction;
+    TBXSubmenuItem3: TTBXSubmenuItem;
+    TBItem1: TTBItem;
+    TBItem2: TTBItem;
     procedure FormShow(Sender: TObject);
     procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
 
@@ -38,8 +41,10 @@ type
     procedure JvFormStorageSavePlacement(Sender: TObject);
     procedure frViewRecibosRemesaCliente1cxGridViewDataControllerSummaryAfterSummary(
       ASender: TcxDataSummary);
-    procedure actVolcarDiscoUpdate(Sender: TObject);
+    procedure actNorma19Update(Sender: TObject);
-    procedure actVolcarDiscoExecute(Sender: TObject);
+    procedure actNorma19Execute(Sender: TObject);
+    procedure actNorma32Execute(Sender: TObject);
+    procedure actNorma32Update(Sender: TObject);
   private
     procedure OnRecibosChanged(Sender: TObject);
   protected
@@ -77,9 +82,8 @@ implementation
 
 uses
   uDataTableUtils, uDataModuleUsuarios, uDialogUtils, uCustomEditor,
-  uDataModuleRemesasCliente, uDataModuleBase, uBizFamilias, uFamiliasController,
+  uDataModuleRemesasCliente, uDataModuleBase, //uBizFamilias, uFamiliasController,
-  uFactuGES_App;
+  uFactuGES_App, uBancaElectronicaController;
-//  uBancaElectronicaController;
 
 {
 ******************************* TfEditorRemesaCliente *******************************
@@ -131,7 +135,7 @@ begin
   end;
 
   if bEsNuevo then
-    ShowInfoMessage('La remesa de cobro se ha dado de alta con el código ' + FRemesaCliente.REFERENCIA);
+    ShowInfoMessage('La remesa de cobro se ha dado de alta con el codigo ' + FRemesaCliente.REFERENCIA);
   Modified := False;
   frViewRecibosRemesaCliente1.Modified := False;
   frViewRecibosRemesaCliente1.OnViewModified := OnRecibosChanged;
@@ -292,11 +296,10 @@ begin
 //  HayCambios := True;
 end;
 
-procedure TfEditorRemesaCliente.actVolcarDiscoExecute(Sender: TObject);
+procedure TfEditorRemesaCliente.actNorma19Execute(Sender: TObject);
-//var
+var
-//  ABancaController : IBancaElectronicaController;
+  ABancaController : IBancaElectronicaController;
 begin
-{
   inherited;
   ABancaController := TBancaElectronicaController.Create;
   try
@@ -304,10 +307,27 @@ begin
   finally
     ABancaController := NIL;
   end;
-}  
 end;
 
-procedure TfEditorRemesaCliente.actVolcarDiscoUpdate(Sender: TObject);
+procedure TfEditorRemesaCliente.actNorma19Update(Sender: TObject);
+begin
+  (Sender as TAction).Enabled := HayDatos and (not FRemesaCliente.EsNuevo);
+end;
+
+procedure TfEditorRemesaCliente.actNorma32Execute(Sender: TObject);
+var
+  ABancaController : IBancaElectronicaController;
+begin
+  inherited;
+  ABancaController := TBancaElectronicaController.Create;
+  try
+    ABancaController.GenerarFicheroNorma32(FRemesaCliente.ID);
+  finally
+    ABancaController := NIL;
+  end;
+end;
+
+procedure TfEditorRemesaCliente.actNorma32Update(Sender: TObject);
 begin
   (Sender as TAction).Enabled := HayDatos and (not FRemesaCliente.EsNuevo);
 end;

Source/Modulos/Remesas de cliente/Views/uEditorRemesaClienteReport.dfm

@@ -1,12 +1,5 @@
 inherited fEditorRemesaClientePreview: TfEditorRemesaClientePreview
   Caption = 'Previsualizar la remesa'
-  ExplicitWidth = 660
-  ExplicitHeight = 494
   PixelsPerInch = 96
   TextHeight = 13
-  inherited frxReport1: TfrxReport
-    Datasets = <>
-    Variables = <>
-    Style = <>
-  end
 end

Source/Modulos/Remesas de cliente/Views/uEditorRemesaClienteReport.pas

@@ -4,13 +4,13 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
+  Dialogs, uEditorPreview, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
-  frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE,
-  frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
   JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
-  TB2ExtItems,  SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, pngimage,
+  TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
   ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorRemesasClientePreview,
-  JvExComCtrls, JvStatusBar;
+  JvExComCtrls, JvStatusBar, frxExportText, frxExportRTF, frxExportMail,
+  frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
+  frxChBox, frxCross, frxRich, frxOLE, frxBarcode;
 
 type
   TfEditorRemesaClientePreview = class(TfEditorPreview, IEditorRemesasClientePreview)

Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.dfm

@@ -41,42 +41,42 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
       ExplicitLeft = 516
     end
   end
-  inherited TBXDock: TSpTBXDock
+  inherited TBXDock: TTBXDock
     Width = 785
     ExplicitWidth = 785
-    inherited tbxMain: TSpTBXToolbar
+    inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 785
+      ExplicitWidth = 561
-      object TBXSeparatorItem17: TSpTBXSeparatorItem [12]
+      object TBXSeparatorItem17: TTBXSeparatorItem [12]
       end
     end
-    inherited tbxFiltro: TSpTBXToolbar
+    inherited tbxFiltro: TTBXToolbar
       ExplicitWidth = 359
-      inherited lblAno: TSpTBXLabelItem
+      inherited lblAno: TTBXLabelItem
         Visible = True
       end
-      inherited cbxListaAnos: TSpTBXComboBox
+      inherited cbxListaAnos: TTBXComboBoxItem
         Visible = True
       end
-      inherited sepAno: TSpTBXSeparatorItem
+      inherited sepAno: TTBXSeparatorItem
         Visible = True
       end
-      inherited tbxEditFiltro: TSpTBXEditItem
+      inherited tbxEditFiltro: TTBXEditItem
         EditOptions = [tboUseEditWhenVertical]
       end
-      inherited TBXItem37: TSpTBXItem
+      inherited TBXItem37: TTBXItem
         Visible = False
       end
     end
-    inherited tbxMenu: TSpTBXToolbar
+    inherited tbxMenu: TTBXToolbar
       ExplicitWidth = 785
-      object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
+      object TBXSubmenuItem2: TTBXSubmenuItem [4]
         Caption = 'A&cciones'
-        object TBXItem38: TSpTBXItem
+        object TBXItem38: TTBXItem
           Action = actVolcarDisco
         end
       end
     end
-    inherited TBXTMain2: TSpTBXToolbar
+    inherited TBXTMain2: TTBXToolbar
       Left = 359
       ExplicitLeft = 359
     end
@@ -100,6 +100,10 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
     inherited actDuplicar: TAction
       Visible = False
     end
+    inherited actExportarExcel: TAction
+      Enabled = False
+      Visible = False
+    end
     object actVolcarDisco: TAction
       Category = 'Acciones'
       Caption = 'Volcar a disco...'

Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas

@@ -6,8 +6,8 @@ uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent,
   JvNavigationPane, uViewRemesasCliente, uBizRemesasCliente, ActnList, DBActns, uViewGrid,
-  Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar, SpTBXItem,
+  Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar, TBX,
-  TB2Item, StdActns, TB2ExtItems,  TB2MRU, DB, uDADataTable,
+  TB2Item, StdActns, TB2ExtItems, TBXExtItems, TB2MRU, DB, uDADataTable,
   JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, JvAppStorage,
   JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,
   uViewBarraSeleccion, pngimage, uIEditorRemesasCliente, uEditorGridBase,
@@ -17,18 +17,18 @@ uses
 type
   TfEditorRemesasCliente = class(TfEditorGridBase, IEditorRemesasCliente)
     actVolcarDisco: TAction;
-    TBXSeparatorItem17: TSpTBXSeparatorItem;
+    TBXSeparatorItem17: TTBXSeparatorItem;
     N4: TMenuItem;
     Volcaradisco1: TMenuItem;
-    TBXSubmenuItem2: TSpTBXSubmenuItem;
+    TBXSubmenuItem2: TTBXSubmenuItem;
-    TBXItem38: TSpTBXItem;
+    TBXItem38: TTBXItem;
     JsListaRemesasNoEliminadas: TJSDialog;
     JsPrevisualizarDialog: TJSDialog;
     JsImprimirDialog: TJSDialog;
     procedure FormShow(Sender: TObject);
     procedure actVolcarDiscoExecute(Sender: TObject);
     procedure actVolcarDiscoUpdate(Sender: TObject);
-    procedure OnListaAnosChange(Sender: TObject);
+    procedure OnListaAnosChange(Sender: TObject; const Text: string);
 
   private
     FRemesasCliente: IBizRemesaCliente;
@@ -65,8 +65,8 @@ implementation
 uses
   uCustomEditor, uDataModuleRemesasCliente, uDataModuleUsuarios,
   uGridStatusUtils, uDBSelectionListUtils, uFactuGES_App,
-  uEditorDBBase,  uBizFamilias, uFamiliasController,
+  uEditorDBBase,  //uBizFamilias, uFamiliasController,
-//  uBancaElectronicaController,
+  uBancaElectronicaController,
   cxGrid, cxGridCustomTableView; //, uListaRemesasCliente;
 
 {$R *.dfm}
@@ -154,7 +154,7 @@ begin
   FController.Ver(RemesasCliente);
 end;
 
-procedure TfEditorRemesasCliente.OnListaAnosChange(Sender: TObject);
+procedure TfEditorRemesasCliente.OnListaAnosChange(Sender: TObject; const Text: string);
 begin
   Controller.FiltrarAno(RemesasCliente, DynWhereDataTable, Text);
   if RemesasCliente.DataTable.Active then

Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm

@@ -1,23 +1,25 @@
 inherited frViewRemesaCliente: TfrViewRemesaCliente
-  Width = 451
+  Width = 725
-  Height = 304
+  Height = 167
   Align = alClient
   ExplicitWidth = 451
   ExplicitHeight = 304
   object dxLayoutControlRemesaCliente: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 451
+    Width = 725
-    Height = 304
+    Height = 167
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
+    ExplicitWidth = 451
+    ExplicitHeight = 304
     DesignSize = (
-      451
+      725
-      304)
+      167)
     object eReferencia: TcxDBTextEdit
       Left = 110
       Top = 30
@@ -70,7 +72,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
       Width = 108
     end
     object edtFechaRemesa: TcxDBDateEdit
-      Left = 311
+      Left = 448
       Top = 30
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_REMESA'
@@ -136,6 +138,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
       Top = 84
       DataBinding.DataField = 'TIPO'
       DataBinding.DataSource = dsDataTable
+      Enabled = False
       Properties.Items = <>
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
@@ -198,6 +201,8 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
           end
           object dxLayoutControlRemesaClienteItem1: TdxLayoutItem
             Caption = 'Forma de cobro:'
+            Enabled = False
+            Visible = False
             Control = cbTipo
             ControlOptions.ShowBorder = False
           end

Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas

@@ -9,7 +9,8 @@ uses
   JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
   cxDBEdit, dxLayoutControl, cxCheckBox, PngSpeedButton, cxImage, ActnList,
   ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
-  uFamiliasController, cxSpinEdit, cxCurrencyEdit,
+//  uFamiliasController,
+  cxSpinEdit, cxCurrencyEdit,
   uBizRemesasCliente, uRemesasClienteController, cxCalendar,
   dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
   cxImageComboBox, uDAInterfaces;

Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm

@@ -41,6 +41,8 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
       end
       object cxGridViewTIPO: TcxGridDBColumn
         DataBinding.FieldName = 'TIPO'
+        Visible = False
+        VisibleForCustomization = False
       end
       object cxGridViewFECHA_REMESA: TcxGridDBColumn
         Caption = 'Fecha de cargo'
@@ -82,7 +84,43 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
       end
     end
   end
-  inherited pnlAgrupaciones: TSpTBXDockablePanel
+  inherited frViewFiltroBase1: TfrViewFiltroBase
+    inherited TBXDockablePanel1: TTBXDockablePanel
+      inherited dxLayoutControl1: TdxLayoutControl
+        inherited txtFiltroTodo: TcxTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+        end
+        inherited edtFechaIniFiltro: TcxDateEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 272
+          Width = 272
+        end
+        inherited edtFechaFinFiltro: TcxDateEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 221
+          Width = 221
+        end
+        inherited eLista: TcxComboBox
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 215
+          Width = 215
+        end
+      end
+    end
+  end
+  inherited pnlAgrupaciones: TTBXDockablePanel
     Top = 394
     ExplicitTop = 394
   end

Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas

@@ -11,10 +11,10 @@ uses
   cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
   JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
   dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
-  dxPSEdgePatterns,  dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
+  dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
   cxGridCustomPopupMenu, cxGridPopupMenu, cxCurrencyEdit, cxSpinEdit, cxCheckBox,
-  cxCheckComboBox, cxImageComboBox, TB2Item, SpTBXItem, TB2Toolbar, SpTBXDkPanels,
+  cxCheckComboBox, cxImageComboBox, TB2Item, TBX, TB2Toolbar, TBXDkPanels,
-  TB2Dock, uViewFiltroBase, dxPgsDlg, uDAInterfaces;
+  TB2Dock, uViewFiltroBase, dxPgsDlg, uDAInterfaces, uCustomView, uViewBase;
 
 type
   IViewRemesasCliente = interface(IViewGrid)

Source/Servicios/FactuGES.RODL

@@ -224,6 +224,14 @@
 <Interfaces>
 <Interface Name="Default" UID="{33F414D0-0D0B-4384-96CB-D94BC97A0C39}">
 <Operations>
+<Operation Name="GenerarInforme" UID="{68CCA1B3-209E-46EB-93AF-A597B72565B0}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
 </Operations>
 </Interface>
 </Interfaces>

Source/Servicios/FactuGES_Intf.pas

@@ -466,6 +466,7 @@ type
   { IsrvRemesasCliente }
   IsrvRemesasCliente = interface(IDataAbstractService)
     ['{33F414D0-0D0B-4384-96CB-D94BC97A0C39}']
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
   end;
 
   { CosrvRemesasCliente }
@@ -478,6 +479,7 @@ type
   protected
     function __GetInterfaceName:string; override;
 
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
   end;
 
   { IsrvRemesasProveedor }
@@ -1245,6 +1247,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaID.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -1262,6 +1265,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaID.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -1595,6 +1599,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaID.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -1622,11 +1627,31 @@ begin
   result := TsrvRemesasCliente_Proxy.Create(aMessage, aTransportChannel);
 end;
 
+{ TsrvRemesasCliente_Proxy }
+
 function TsrvRemesasCliente_Proxy.__GetInterfaceName:string;
 begin
   result := 'srvRemesasCliente';
 end;
 
+function TsrvRemesasCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+    ListaID.Free;
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 { CosrvRemesasProveedor }
 
 class function CosrvRemesasProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRemesasProveedor;
@@ -1663,6 +1688,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaID.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -1706,6 +1732,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaID.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -1757,6 +1784,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaID.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -1790,6 +1818,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaID.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -1828,6 +1857,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaID.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -1859,6 +1889,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaID.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -1911,6 +1942,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaID.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -1942,6 +1974,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaID.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -1976,6 +2009,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaID.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -2197,6 +2231,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    Fichero.Free;
 
     __Message.Read('Result', TypeInfo(Boolean), result, []);
   finally
@@ -2269,6 +2304,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaIDClientes.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -2292,6 +2328,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaIDProveedores.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -2317,6 +2354,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListadoIDClientes.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -2342,6 +2380,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaIDProveedores.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -2367,6 +2406,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaIDClientes.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -2392,6 +2432,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaIDProveedores.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -2417,6 +2458,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaIDClientes.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -2442,6 +2484,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaIDProveedores.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -2467,6 +2510,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaIDClientes.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -2492,6 +2536,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaIDProveedores.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -2515,6 +2560,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaIDClientes.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally
@@ -2538,6 +2584,7 @@ begin
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
+    ListaIDProveedores.Free;
 
     __Message.Read('Result', TypeInfo(Binary), result, []);
   finally

Source/Servicios/FactuGES_Invk.pas

@@ -151,6 +151,7 @@ type
   public
     constructor Create; override;
   published
+    procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvRemesasProveedor_Invoker = class(TDataAbstractService_Invoker)
@@ -743,6 +744,36 @@ begin
   FAbstract := False;
 end;
 
+procedure TsrvRemesasCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
+var
+  ListaID: FactuGES_Intf.TIntegerArray;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  ListaID := nil;
+  lResult := nil;
+  try
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+
+    lResult := (__Instance as IsrvRemesasCliente).GenerarInforme(ListaID);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRemesasCliente', 'GenerarInformeResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(ListaID);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 { TsrvRemesasProveedor_Invoker }
 
 constructor TsrvRemesasProveedor_Invoker.Create;
@@ -1687,7 +1718,8 @@ begin
     __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
     __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
 
-    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasCli(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListadoIDClientes, Desglosado, ImporteMinimo);
+    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasCli(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListadoIDClientes, 
+        Desglosado, ImporteMinimo);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasCliResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
@@ -1732,7 +1764,8 @@ begin
     __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
     __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
 
-    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
+    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, 
+        Desglosado, ImporteMinimo);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasProvResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
@@ -1777,7 +1810,8 @@ begin
     __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
     __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
 
-    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasCliPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
+    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasCliPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, 
+        ListaIDClientes, Desglosado, ImporteMinimo);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasCliPendientesResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
@@ -1822,7 +1856,8 @@ begin
     __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
     __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
 
-    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
+    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, 
+        ListaIDProveedores, Desglosado, ImporteMinimo);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasProvPendientesResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
@@ -1867,7 +1902,8 @@ begin
     __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
     __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
 
-    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
+    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliente(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, 
+        Desglosado, ImporteMinimo);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosClienteResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
@@ -1912,7 +1948,8 @@ begin
     __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
     __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
 
-    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProveedor(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
+    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProveedor(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, 
+        Desglosado, ImporteMinimo);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosProveedorResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
@@ -1957,7 +1994,8 @@ begin
     __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
     __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
 
-    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDClientes, Desglosado, ImporteMinimo);
+    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosCliPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, 
+        ListaIDClientes, Desglosado, ImporteMinimo);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosCliPendientesResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
@@ -2002,7 +2040,8 @@ begin
     __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
     __Message.Read('ImporteMinimo', TypeInfo(Currency), ImporteMinimo, []);
 
-    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
+    lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoRecibosProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, 
+        ListaIDProveedores, Desglosado, ImporteMinimo);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoRecibosProvPendientesResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);

Source/Servidor/FactuGES_Server.dpr

@@ -107,8 +107,6 @@ uses
   srvGestorInformes_Impl in '..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas' {srvGestorInformes: TDataAbstractService},
   schObrasClient_Intf in '..\Modulos\Obras\Model\schObrasClient_Intf.pas',
   schObrasServer_Intf in '..\Modulos\Obras\Model\schObrasServer_Intf.pas',
-  schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_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},
@@ -136,7 +134,10 @@ uses
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
   schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_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',
+  schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
+  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
+  uRptRemesasCliente_Server in '..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas' {RptRemesasCliente: TDataModule};
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -1,333 +1,337 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <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_d11;SpTBXLib_d11;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;cxExportD10;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_d11;SpTBXLib_d11;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;cxExportD10;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>$(BDS)\lib\Debug</DCC_UnitSearchPath>
+    <DCC_UnitSearchPath>$(BDS)\lib\Debug</DCC_UnitSearchPath>
-		<DCC_ResourcePath>$(BDS)\lib\Debug</DCC_ResourcePath>
+    <DCC_ResourcePath>$(BDS)\lib\Debug</DCC_ResourcePath>
-		<DCC_ObjPath>$(BDS)\lib\Debug</DCC_ObjPath>
+    <DCC_ObjPath>$(BDS)\lib\Debug</DCC_ObjPath>
-		<DCC_IncludePath>$(BDS)\lib\Debug</DCC_IncludePath>
+    <DCC_IncludePath>$(BDS)\lib\Debug</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">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 Name="CompileDate">miércoles, 20 de enero de 2010 19:52</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></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">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 Name="CompileDate">miércoles, 20 de enero de 2010 19:52</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></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\Model\uBizVendedoresServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.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\Reports\uRptRemesasCliente_Server.pas">
-			<Form>srvRemesasCliente</Form>
+      <Form>RptRemesasCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
+      <Form>srvRemesasCliente</Form>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+    </DCCReference>
-			<Form>srvRemesasProveedor</Form>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
+      <Form>srvRemesasProveedor</Form>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
+      <DesignClass>TDataAbstractService</DesignClass>
-			<Form>srvTiposIVA</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\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"/>
+      <Form>srvTiposIVA</Form>
-		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+      <DesignClass>TDataAbstractService</DesignClass>
-			<Form>srvUnidadesMedida</Form>
+    </DCCReference>
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
-		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
+      <Form>srvUnidadesMedida</Form>
-		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+      <DesignClass>TDataAbstractService</DesignClass>
-			<Form>srvConfiguracion</Form>
+    </DCCReference>
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
-		<DCCReference Include="Configuracion\uConexionBD.pas">
+    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-			<Form>frConexionBD</Form>
+      <Form>srvConfiguracion</Form>
-			<DesignClass>TFrame</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="Configuracion\uConfGeneral.pas">
+    <DCCReference Include="Configuracion\uConexionBD.pas">
-			<Form>frConfGeneral</Form>
+      <Form>frConexionBD</Form>
-			<DesignClass>TFrame</DesignClass>
+      <DesignClass>TFrame</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="Configuracion\uConfiguracion.pas">
+    <DCCReference Include="Configuracion\uConfGeneral.pas">
-			<Form>fConfiguracion</Form>
+      <Form>frConfGeneral</Form>
-			<DesignClass>TForm</DesignClass>
+      <DesignClass>TFrame</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+    <DCCReference Include="Configuracion\uConfiguracion.pas">
-			<Form>FrameConfiguracion</Form>
+      <Form>fConfiguracion</Form>
-			<DesignClass>TFrame</DesignClass>
+      <DesignClass>TForm</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="srvLogin_Impl.pas">
+    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-			<Form>srvLogin</Form>
+      <Form>FrameConfiguracion</Form>
-			<DesignClass>TDARemoteService</DesignClass>
+      <DesignClass>TFrame</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="uAcercaDe.pas">
+    <DCCReference Include="srvLogin_Impl.pas">
-			<Form>fAcercaDe</Form>
+      <Form>srvLogin</Form>
-		</DCCReference>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="uDataModuleServer.pas">
+    </DCCReference>
-			<Form>dmServer</Form>
+    <DCCReference Include="uAcercaDe.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>fAcercaDe</Form>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="uServerMainForm.pas">
+    <DCCReference Include="uDataModuleServer.pas">
-			<Form>fServerForm</Form>
+      <Form>dmServer</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="Utiles\AHWord97.pas"/>
+    </DCCReference>
-		<DCCReference Include="Utiles\MidasSpeedFix.pas"/>
+    <DCCReference Include="uServerMainForm.pas">
-		<DCCReference Include="Utiles\RegExpr.pas"/>
+      <Form>fServerForm</Form>
-		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
+    </DCCReference>
-		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
+    <DCCReference Include="Utiles\AHWord97.pas" />
-		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
+    <DCCReference Include="Utiles\MidasSpeedFix.pas" />
-		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
+    <DCCReference Include="Utiles\RegExpr.pas" />
-		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
+    <DCCReference Include="Utiles\uBusinessUtils.pas" />
-		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
+    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
-		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
+    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
-	</ItemGroup>
+    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
+    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
+    <DCCReference Include="Utiles\uServerAppUtils.pas" />
+    <DCCReference Include="Utiles\uSesionesUtils.pas" />
+  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.0.0\0"
               VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "viernes, 22 de enero de 2010 12:49\0"
+              VALUE "CompileDate", "lunes, 25 de enero de 2010 12:01\0"
          END
     END
     BLOCK "VarFileInfo"