Arreglo de recibos, para poder elegir un cliente o proveedor con diferentes sucursales, y otros arreglos varios

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@210 f4e31baf-9722-1c47-927c-6f952f962d4b

Database/scripts/factuges.sql

@@ -1224,9 +1224,16 @@ CREATE TABLE RECIBOS_CLIENTE (
     USUARIO               TIPO_USUARIO,
     ID_REMESA             TIPO_ID,
     ID_RECIBO_COMPENSADO  INTEGER,
-    ID_TIENDA             TIPO_ID
+    ID_TIENDA             TIPO_ID,
+    NIF_CIF               VARCHAR(15) COLLATE ES_ES,
+    NOMBRE                VARCHAR(255),
+    CALLE                 VARCHAR(255),
+    POBLACION             VARCHAR(255) COLLATE ES_ES,
+    PROVINCIA             VARCHAR(255) COLLATE ES_ES,
+    CODIGO_POSTAL         VARCHAR(10) COLLATE ES_ES
 );
 
+
 CREATE TABLE RECIBOS_PROVEEDOR (
     ID                    TIPO_ID NOT NULL,
     ID_EMPRESA            TIPO_ID,
@@ -3348,6 +3355,9 @@ CREATE VIEW V_RECIBOS_CLIENTE(
     REFERENCIA,
     SITUACION,
     ID_FACTURA,
+    FECHA_FACTURA,
+    FORMA_PAGO_FACTURA,
+    IMPORTE_FACTURA,
     ID_REMESA,
     REFERENCIA_REMESA,
     FECHA_EMISION,
@@ -3357,26 +3367,24 @@ CREATE VIEW V_RECIBOS_CLIENTE(
     IMPORTE,
     OTROS_GASTOS,
     IMPORTE_TOTAL,
-    FECHA_FACTURA,
-    FORMA_PAGO_FACTURA,
-    IMPORTE_FACTURA,
     ID_EMPRESA,
     ID_CLIENTE,
     NOMBRE_CLIENTE,
-    NIF_CIF_CLIENTE,
     ENTIDAD_CLIENTE,
     SUCURSAL_CLIENTE,
     DC_CLIENTE,
     CUENTA_CLIENTE,
+    NIF_CIF,
+    NOMBRE,
+    CALLE,
+    POBLACION,
+    CODIGO_POSTAL,
+    PROVINCIA,
     FECHA_ALTA,
     FECHA_MODIFICACION,
     USUARIO,
     ID_TIENDA,
-    TIENDA,
+    TIENDA)
-    CALLE_CLIENTE,
-    POBLACION_CLIENTE,
-    CODIGO_POSTAL_CLIENTE,
-    PROVINCIA_CLIENTE)
 AS
 SELECT RECIBOS_CLIENTE.ID,
        RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO,
@@ -3388,26 +3396,31 @@ SELECT RECIBOS_CLIENTE.ID,
        ELSE TRIM(RECIBO_COMPENSADO2.SITUACION)
        END,
        RECIBOS_CLIENTE.ID_FACTURA,
+       FACTURAS_CLIENTE.FECHA_FACTURA, 
+       FORMAS_PAGO.DESCRIPCION,
+       FACTURAS_CLIENTE.IMPORTE_TOTAL,
        RECIBOS_CLIENTE.ID_REMESA, REMESAS_CLIENTE.REFERENCIA as REFERENCIA_REMESA,
        RECIBOS_CLIENTE.FECHA_EMISION, RECIBOS_CLIENTE.FECHA_VENCIMIENTO, RECIBOS_CLIENTE.DESCRIPCION,
        RECIBOS_CLIENTE.OBSERVACIONES, RECIBOS_CLIENTE.IMPORTE, RECIBOS_CLIENTE.OTROS_GASTOS,
        COALESCE(RECIBOS_CLIENTE.IMPORTE, 0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS, 0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0),
-
-       FACTURAS_CLIENTE.FECHA_FACTURA, FORMAS_PAGO.DESCRIPCION, FACTURAS_CLIENTE.IMPORTE_TOTAL,
        RECIBOS_CLIENTE.ID_EMPRESA,
-
+       RECIBOS_CLIENTE.ID_CLIENTE,
-       CONTACTOS.ID as ID_CLIENTE, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD,
+       CONTACTOS.NOMBRE,
-       CONTACTOS_DATOS_BANCO.SUCURSAL, CONTACTOS_DATOS_BANCO.DC, CONTACTOS_DATOS_BANCO.CUENTA,
+       CONTACTOS_DATOS_BANCO.ENTIDAD,
-
+       CONTACTOS_DATOS_BANCO.SUCURSAL,
+       CONTACTOS_DATOS_BANCO.DC,
+       CONTACTOS_DATOS_BANCO.CUENTA,
+       RECIBOS_CLIENTE.NIF_CIF,
+       RECIBOS_CLIENTE.NOMBRE,
+       RECIBOS_CLIENTE.CALLE,
+       RECIBOS_CLIENTE.POBLACION,
+       RECIBOS_CLIENTE.CODIGO_POSTAL,
+       RECIBOS_CLIENTE.PROVINCIA,
        RECIBOS_CLIENTE.FECHA_ALTA,
        RECIBOS_CLIENTE.FECHA_MODIFICACION,
        RECIBOS_CLIENTE.USUARIO,
        RECIBOS_CLIENTE.ID_TIENDA,
-       COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA,
+       COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA
-       CONTACTOS.CALLE,
-       CONTACTOS.POBLACION,
-       CONTACTOS.CODIGO_POSTAL,
-       CONTACTOS.PROVINCIA
 
 FROM RECIBOS_CLIENTE
 LEFT JOIN V_REC_CLI_SITUACION
@@ -3432,8 +3445,6 @@ LEFT JOIN EMPRESAS_TIENDAS
 ON (EMPRESAS_TIENDAS.ID = RECIBOS_CLIENTE.ID_TIENDA)
 ;
 
-
-
 /* View: V_RECIBOS_PROVEEDOR */
 CREATE VIEW V_RECIBOS_PROVEEDOR(
     ID,

Source/ApplicationBase/uFactuGES_App.pas

@@ -228,7 +228,7 @@ begin
   with TIniFile.Create(Fichero) do
   begin
     VAR_IDTIENDA := ReadInteger ('VARIABLES', 'IdTienda', 0);
-    VAR_TIENDA := ReadString ('VARIABLES', 'Tienda', '');
+    VAR_TIENDA := ReadString ('VARIABLES', 'Tienda', 'Todas');
     Free;
   end;
 

Source/GUIBase/uViewGrid.dfm

@@ -107,7 +107,6 @@ inherited frViewGrid: TfrViewGrid
     SupportedDocks = [dkStandardDock, dkMultiDock]
     TabOrder = 2
     Visible = False
-    ExplicitWidth = 128
     object TBXAlignmentPanel1: TTBXAlignmentPanel
       Left = 0
       Top = 0
@@ -155,7 +154,7 @@ inherited frViewGrid: TfrViewGrid
       PrinterPage.ScaleMode = smFit
       PrinterPage._dxMeasurementUnits_ = 0
       PrinterPage._dxLastMU_ = 2
-      ReportDocument.CreationDate = 39443.853303854160000000
+      ReportDocument.CreationDate = 39559.757468888880000000
       StyleManager = dxPrintStyleManager1
       OptionsCards.Shadow.Depth = 0
       OptionsExpanding.ExpandGroupRows = True
@@ -315,7 +314,7 @@ inherited frViewGrid: TfrViewGrid
       PrinterPage.PageFooter.Font.Name = 'Tahoma'
       PrinterPage.PageFooter.Font.Style = []
       PrinterPage.PageFooter.LeftTitle.Strings = (
-        'LUIS LEON REPRESENTACIONES S.L.')
+        'ACANA HOME S.L.')
       PrinterPage.PageFooter.RightTitle.Strings = (
         '[Page #] de [Total Pages]')
       PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET

Source/Modulos/Contactos/Data/Contactos_data.dproj

@@ -42,30 +42,34 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <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="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">Contactos_data.dpk</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><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">Contactos_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="Contactos_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\Base\ApplicationBase.dcp" />
+    <DCCReference Include="..\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\..\Base\Base.dcp" />
+    <DCCReference Include="..\Base.dcp" />
-    <DCCReference Include="..\..\..\Base\Contactos_model.dcp" />
+    <DCCReference Include="..\Contactos_model.dcp" />
-    <DCCReference Include="..\..\..\Base\GUIBase.dcp" />
+    <DCCReference Include="..\GUIBase.dcp" />
-    <DCCReference Include="..\..\..\Base\rtl.dcp" />
+    <DCCReference Include="..\rtl.dcp" />
-    <DCCReference Include="..\..\..\Base\vcl.dcp" />
+    <DCCReference Include="..\vcl.dcp" />
     <DCCReference Include="uDataModuleClientes.pas">
       <Form>DataModuleClientes</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
     </DCCReference>
     <DCCReference Include="uDataModuleContactos.pas">
       <Form>DataModuleContactos</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
     </DCCReference>
     <DCCReference Include="uDataModuleEmpleados.pas">
       <Form>DataModuleEmpleados</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
     </DCCReference>
     <DCCReference Include="uDataModuleProveedores.pas">
       <Form>DataModuleProveedores</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
     </DCCReference>
     <None Include="ModelSupport_Contactos_data\default.txaPackage" />
   </ItemGroup>

Source/Modulos/Contactos/Data/uDataModuleClientes.dfm

@@ -10,117 +10,6 @@ inherited DataModuleClientes: TDataModuleClientes
   inherited ds_Contactos: TDADataSource
     DataSet = tbl_Contactos.Dataset
   end
-  inherited tbl_DireccionesContacto: TDAMemDataTable
-    Fields = <
-      item
-        Name = 'ID'
-        DataType = datAutoInc
-        GeneratorName = 'GEN_CONTACTOS_DIR_ID'
-        ServerAutoRefresh = True
-        DictionaryEntry = 'DireccionesContacto_ID'
-        InPrimaryKey = True
-      end
-      item
-        Name = 'ID_CONTACTO'
-        DataType = datInteger
-        DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
-      end
-      item
-        Name = 'NIF_CIF'
-        DataType = datString
-        Size = 15
-      end
-      item
-        Name = 'CALLE'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'Calle'
-        DictionaryEntry = 'DireccionesContacto_CALLE'
-      end
-      item
-        Name = 'POBLACION'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'Poblaci'#243'n'
-        DictionaryEntry = 'DireccionesContacto_POBLACION'
-      end
-      item
-        Name = 'PROVINCIA'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'Provincia'
-        DictionaryEntry = 'DireccionesContacto_PROVINCIA'
-      end
-      item
-        Name = 'CODIGO_POSTAL'
-        DataType = datString
-        Size = 10
-        DisplayLabel = 'C'#243'digo postal'
-        DictionaryEntry = 'DireccionesContacto_CODIGO_POSTAL'
-      end
-      item
-        Name = 'PERSONA_CONTACTO'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'Persona de contacto'
-        DictionaryEntry = 'DireccionesContacto_PERSONA_CONTACTO'
-      end
-      item
-        Name = 'NOMBRE'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'DireccionesContacto_NOMBRE'
-        DictionaryEntry = 'DireccionesContacto_NOMBRE'
-      end
-      item
-        Name = 'TELEFONO'
-        DataType = datString
-        Size = 25
-        DisplayLabel = 'Tel'#233'fono'
-        DictionaryEntry = 'DireccionesContacto_TELEFONO'
-      end
-      item
-        Name = 'MOVIL'
-        DataType = datString
-        Size = 25
-        DisplayLabel = 'M'#243'vil'
-        DictionaryEntry = 'Contactos_MOVIL_1'
-      end
-      item
-        Name = 'FAX'
-        DataType = datString
-        Size = 25
-        DisplayLabel = 'Fax'
-        DictionaryEntry = 'Contactos_FAX'
-      end
-      item
-        Name = 'EMAIL'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'E-mail'
-        DictionaryEntry = 'DireccionesContacto_EMAIL'
-      end
-      item
-        Name = 'NOTAS'
-        DataType = datMemo
-        DisplayLabel = 'Notas'
-        DictionaryEntry = 'DireccionesContacto_NOTAS'
-      end
-      item
-        Name = 'PORTE'
-        DataType = datFloat
-        DisplayLabel = 'Coste del porte'
-        DictionaryEntry = 'DireccionesContacto_PORTE'
-      end
-      item
-        Name = 'FECHA_ALTA'
-        DataType = datDateTime
-      end
-      item
-        Name = 'FECHA_MODIFICACION'
-        DataType = datDateTime
-      end>
-  end
   inherited ds_DireccionesContacto: TDADataSource
     DataSet = tbl_DireccionesContacto.Dataset
   end

Source/Modulos/Contactos/Data/uDataModuleContactos.dfm

@@ -230,6 +230,11 @@ inherited DataModuleContactos: TDataModuleContactos
         DataType = datInteger
         DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
       end
+      item
+        Name = 'NIF_CIF'
+        DataType = datString
+        Size = 15
+      end
       item
         Name = 'CALLE'
         DataType = datString

Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm

@@ -4,117 +4,6 @@ inherited DataModuleProveedores: TDataModuleProveedores
   inherited ds_Contactos: TDADataSource
     DataSet = tbl_Contactos.Dataset
   end
-  inherited tbl_DireccionesContacto: TDAMemDataTable
-    Fields = <
-      item
-        Name = 'ID'
-        DataType = datAutoInc
-        GeneratorName = 'GEN_CONTACTOS_DIR_ID'
-        ServerAutoRefresh = True
-        DictionaryEntry = 'DireccionesContacto_ID'
-        InPrimaryKey = True
-      end
-      item
-        Name = 'ID_CONTACTO'
-        DataType = datInteger
-        DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
-      end
-      item
-        Name = 'NIF_CIF'
-        DataType = datString
-        Size = 15
-      end
-      item
-        Name = 'CALLE'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'Calle'
-        DictionaryEntry = 'DireccionesContacto_CALLE'
-      end
-      item
-        Name = 'POBLACION'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'Poblaci'#243'n'
-        DictionaryEntry = 'DireccionesContacto_POBLACION'
-      end
-      item
-        Name = 'PROVINCIA'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'Provincia'
-        DictionaryEntry = 'DireccionesContacto_PROVINCIA'
-      end
-      item
-        Name = 'CODIGO_POSTAL'
-        DataType = datString
-        Size = 10
-        DisplayLabel = 'C'#243'digo postal'
-        DictionaryEntry = 'DireccionesContacto_CODIGO_POSTAL'
-      end
-      item
-        Name = 'PERSONA_CONTACTO'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'Persona de contacto'
-        DictionaryEntry = 'DireccionesContacto_PERSONA_CONTACTO'
-      end
-      item
-        Name = 'NOMBRE'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'DireccionesContacto_NOMBRE'
-        DictionaryEntry = 'DireccionesContacto_NOMBRE'
-      end
-      item
-        Name = 'TELEFONO'
-        DataType = datString
-        Size = 25
-        DisplayLabel = 'Tel'#233'fono'
-        DictionaryEntry = 'DireccionesContacto_TELEFONO'
-      end
-      item
-        Name = 'MOVIL'
-        DataType = datString
-        Size = 25
-        DisplayLabel = 'M'#243'vil'
-        DictionaryEntry = 'Contactos_MOVIL_1'
-      end
-      item
-        Name = 'FAX'
-        DataType = datString
-        Size = 25
-        DisplayLabel = 'Fax'
-        DictionaryEntry = 'Contactos_FAX'
-      end
-      item
-        Name = 'EMAIL'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'E-mail'
-        DictionaryEntry = 'DireccionesContacto_EMAIL'
-      end
-      item
-        Name = 'NOTAS'
-        DataType = datMemo
-        DisplayLabel = 'Notas'
-        DictionaryEntry = 'DireccionesContacto_NOTAS'
-      end
-      item
-        Name = 'PORTE'
-        DataType = datFloat
-        DisplayLabel = 'Coste del porte'
-        DictionaryEntry = 'DireccionesContacto_PORTE'
-      end
-      item
-        Name = 'FECHA_ALTA'
-        DataType = datDateTime
-      end
-      item
-        Name = 'FECHA_MODIFICACION'
-        DataType = datDateTime
-      end>
-  end
   inherited ds_DireccionesContacto: TDADataSource
     DataSet = tbl_DireccionesContacto.Dataset
   end

Source/Modulos/Contactos/Model/schContactosClient_Intf.pas

@@ -3,25 +3,25 @@ unit schContactosClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_SubCuentasContacto = '{C590CC84-6AC7-4513-8D77-7258F8EB4535}';
+  RID_SubCuentasContacto = '{DB13534D-4F66-4F7A-AA47-A3750FB6AF8D}';
-  RID_Contactos = '{B90A91FA-E62F-42FC-A978-194A0DD6A4BD}';
+  RID_Contactos = '{5A1FF834-F42A-4433-B3BB-33E3E6D6F601}';
-  RID_GruposCliente = '{3AE7D1E5-3CBB-49C7-A3BC-3E8738099CC0}';
+  RID_GruposCliente = '{D6EB0072-26E0-4FF6-BFEE-782EF5A2856C}';
-  RID_DatosBancarios = '{8788C035-B5A3-44D6-83A4-DFCBD4B62098}';
+  RID_DatosBancarios = '{A2B2C8F0-5C46-4290-927A-C65B8416FB28}';
-  RID_Clientes = '{363F240A-531E-4C17-924D-FDA78492B088}';
+  RID_Clientes = '{3667E3E4-2352-46D7-BFA8-7E57E641EAD5}';
-  RID_Proveedores = '{47BD57F0-0117-4609-B36E-DE4F8054FE96}';
+  RID_Proveedores = '{E20838F6-54CF-4730-A976-E94FBD45CC84}';
-  RID_Empleados = '{18570434-D839-4C1D-907E-F266CA08F759}';
+  RID_Empleados = '{C579408E-EB03-448C-A3DE-0B03EA808043}';
-  RID_DireccionesContacto = '{0BCC33E0-DDFB-4718-A63F-66326ACDD55C}';
+  RID_DireccionesContacto = '{F458A24A-F154-4499-8AA2-17A1CC34F534}';
-  RID_ClientesDescuentos = '{397118E3-6034-4264-B378-A646EE472E09}';
+  RID_ClientesDescuentos = '{493FB076-CB1E-4788-B6AE-158C133CF91D}';
-  RID_ProcedenciasCliente = '{C452DC28-9F89-43A4-A245-CC9C2DF12458}';
+  RID_ProcedenciasCliente = '{A0EF189E-3FDC-40DE-9A34-C015C5637009}';
-  RID_GruposProveedor = '{93523FFC-C70F-4769-98A6-7E07BEBF14BD}';
+  RID_GruposProveedor = '{62877BBE-4203-4FB1-A4CD-D7CE999BB8F1}';
-  RID_GruposEmpleado = '{EFC3E233-2239-4D54-A23D-B859102E8AAB}';
+  RID_GruposEmpleado = '{62BDE0EF-FC09-42FF-A3B7-EEE7EA761B30}';
-  RID_Contactos_Refresh = '{DAFCE1F7-9449-4170-BA9A-182DFBD2B440}';
+  RID_Contactos_Refresh = '{7A32F22A-ABD7-45D4-AA0A-4B0749ECFB1E}';
 
   { Data table names }
   nme_SubCuentasContacto = 'SubCuentasContacto';
@@ -497,7 +497,7 @@ const
 type
   { ISubCuentasContacto }
   ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
-  ['{3C6FCE2A-1F78-4B2A-9DDE-E49783DB3354}']
+  ['{E55102AC-23D4-4B72-B565-F73315E0D02C}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -541,7 +541,7 @@ type
   end;
 
   { TSubCuentasContactoDataTableRules }
-  TSubCuentasContactoDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentasContacto)
+  TSubCuentasContactoDataTableRules = class(TDADataTableRules, ISubCuentasContacto)
   private
   protected
     { Property getters and setters }
@@ -592,7 +592,7 @@ type
 
   { IContactos }
   IContactos = interface(IDAStronglyTypedDataTable)
-  ['{F6F2F867-4B4A-412F-B4E6-73621D0BDE0A}']
+  ['{2CF9C4AB-BFF3-4CB4-9B1E-0DE2663541FD}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -749,7 +749,7 @@ type
   end;
 
   { TContactosDataTableRules }
-  TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
+  TContactosDataTableRules = class(TDADataTableRules, IContactos)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -915,7 +915,7 @@ type
 
   { IGruposCliente }
   IGruposCliente = interface(IDAStronglyTypedDataTable)
-  ['{A016FE21-06D0-42D0-8080-FA263A898337}']
+  ['{7CDABC80-C90D-451E-8F0A-B0D1A8C2E302}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -935,7 +935,7 @@ type
   end;
 
   { TGruposClienteDataTableRules }
-  TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
+  TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
   private
   protected
     { Property getters and setters }
@@ -962,7 +962,7 @@ type
 
   { IDatosBancarios }
   IDatosBancarios = interface(IDAStronglyTypedDataTable)
-  ['{5FA0CE9B-73F8-490C-9238-2AB1C6B97A82}']
+  ['{B8A09F34-4344-44FF-A7CE-FB07B1B9A661}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1024,7 +1024,7 @@ type
   end;
 
   { TDatosBancariosDataTableRules }
-  TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
+  TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
   private
   protected
     { Property getters and setters }
@@ -1093,7 +1093,7 @@ type
 
   { IClientes }
   IClientes = interface(IDAStronglyTypedDataTable)
-  ['{4B798E26-1BFF-4E85-B130-683F79FF8F6C}']
+  ['{BC86DEF5-59DE-4183-A68A-B8935CA07359}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1334,7 +1334,7 @@ type
   end;
 
   { TClientesDataTableRules }
-  TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
+  TClientesDataTableRules = class(TDADataTableRules, IClientes)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -1584,7 +1584,7 @@ type
 
   { IProveedores }
   IProveedores = interface(IDAStronglyTypedDataTable)
-  ['{C2FC4275-80D5-469C-8A86-72F71CDE26FD}']
+  ['{09EE22A7-EAC7-4F06-9FFC-22E2EB719A9C}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1825,7 +1825,7 @@ type
   end;
 
   { TProveedoresDataTableRules }
-  TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
+  TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -2075,7 +2075,7 @@ type
 
   { IEmpleados }
   IEmpleados = interface(IDAStronglyTypedDataTable)
-  ['{7BE5930F-DFEB-42FF-A1B5-1F208AE7E423}']
+  ['{23A1B700-F071-4A40-88BD-7C40365E4E9D}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2276,7 +2276,7 @@ type
   end;
 
   { TEmpleadosDataTableRules }
-  TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
+  TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
   private
     f_NOTAS: IROStrings;
     f_FORMACION_BASE: IROStrings;
@@ -2494,7 +2494,7 @@ type
 
   { IDireccionesContacto }
   IDireccionesContacto = interface(IDAStronglyTypedDataTable)
-  ['{6D18A60E-F841-46E1-BB6F-FA840C83D1CA}']
+  ['{AFF34C4D-7E69-4A19-9DC8-CE5E5A7EFBB5}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2603,7 +2603,7 @@ type
   end;
 
   { TDireccionesContactoDataTableRules }
-  TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
+  TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -2721,7 +2721,7 @@ type
 
   { IClientesDescuentos }
   IClientesDescuentos = interface(IDAStronglyTypedDataTable)
-  ['{6DD4A9BD-5260-47AC-844C-A83424002EA9}']
+  ['{4C7AD5A0-287B-42A5-B371-D4212207B562}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2759,7 +2759,7 @@ type
   end;
 
   { TClientesDescuentosDataTableRules }
-  TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
+  TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
   private
   protected
     { Property getters and setters }
@@ -2804,7 +2804,7 @@ type
 
   { IProcedenciasCliente }
   IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
-  ['{B3F0B2C9-DE6D-4E46-858B-28517AF13733}']
+  ['{32BA4DA2-A83D-4A86-9E3E-C97C6503B330}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2824,7 +2824,7 @@ type
   end;
 
   { TProcedenciasClienteDataTableRules }
-  TProcedenciasClienteDataTableRules = class(TIntfObjectDADataTableRules, IProcedenciasCliente)
+  TProcedenciasClienteDataTableRules = class(TDADataTableRules, IProcedenciasCliente)
   private
   protected
     { Property getters and setters }
@@ -2851,7 +2851,7 @@ type
 
   { IGruposProveedor }
   IGruposProveedor = interface(IDAStronglyTypedDataTable)
-  ['{F70EB01C-2913-44ED-A784-1DB30C28CF24}']
+  ['{2350E1EA-E9A9-4715-8A7D-71519BADBDBA}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2871,7 +2871,7 @@ type
   end;
 
   { TGruposProveedorDataTableRules }
-  TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
+  TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
   private
   protected
     { Property getters and setters }
@@ -2898,7 +2898,7 @@ type
 
   { IGruposEmpleado }
   IGruposEmpleado = interface(IDAStronglyTypedDataTable)
-  ['{07795EB8-F353-4AB7-9956-3F1CEB045506}']
+  ['{00148DAB-C258-43EB-8BA5-1F286CE20673}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2918,7 +2918,7 @@ type
   end;
 
   { TGruposEmpleadoDataTableRules }
-  TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
+  TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
   private
   protected
     { Property getters and setters }
@@ -2945,7 +2945,7 @@ type
 
   { IContactos_Refresh }
   IContactos_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{7AB51E50-F1FC-460B-B962-2E16691C8DFC}']
+  ['{B63A757E-4A8E-4B8B-AA10-7E8FB2B0B0D9}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3078,7 +3078,7 @@ type
   end;
 
   { TContactos_RefreshDataTableRules }
-  TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
+  TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);

Source/Modulos/Contactos/Model/schContactosServer_Intf.pas

@@ -9,24 +9,24 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_SubCuentasContactoDelta = '{E8742466-5EA1-44A5-9AE5-DD451737894B}';
+  RID_SubCuentasContactoDelta = '{FC0194D1-310E-4427-AF7F-AB018733BB57}';
-  RID_ContactosDelta = '{E9202FAC-8B98-444B-8CF8-A67FBC3792D7}';
+  RID_ContactosDelta = '{527CF7E9-2348-451B-8C83-481A8B52C85A}';
-  RID_GruposClienteDelta = '{278CCE1C-1F40-43F9-BA7E-0BFCA21BBA4A}';
+  RID_GruposClienteDelta = '{F1BA8678-D575-4F78-B4D1-B844BC9FF07B}';
-  RID_DatosBancariosDelta = '{27FB76DE-2C27-4DEE-AB5A-B66F77A5688E}';
+  RID_DatosBancariosDelta = '{77E54D4E-287A-4452-8DAA-0B0EE634F103}';
-  RID_ClientesDelta = '{61AA99B2-A336-4CF4-B737-F7002CAE26A8}';
+  RID_ClientesDelta = '{F71CBCDE-EF92-41DE-89E4-34E6EE84EB04}';
-  RID_ProveedoresDelta = '{9F1B09AD-D218-4081-9531-51647613FE85}';
+  RID_ProveedoresDelta = '{7C15EA57-7716-461B-B224-F0F372D48882}';
-  RID_EmpleadosDelta = '{9E2B39E4-C45A-489E-B91D-8115E398AAE4}';
+  RID_EmpleadosDelta = '{6E22A5F7-5C65-4E88-9A80-0B4A0E39AD9C}';
-  RID_DireccionesContactoDelta = '{3BEFC631-A199-4025-9A4A-535780FC7FB1}';
+  RID_DireccionesContactoDelta = '{F03C2A28-12AF-4253-A847-F21AE6F55C0E}';
-  RID_ClientesDescuentosDelta = '{6A749D0D-D126-40CC-856C-A1EA0042B3B2}';
+  RID_ClientesDescuentosDelta = '{0366F4B1-E659-4C51-B654-1D19255C0469}';
-  RID_ProcedenciasClienteDelta = '{58146E09-69C6-4A3D-9D4E-067BCA148B35}';
+  RID_ProcedenciasClienteDelta = '{7D90B987-7B65-461C-BB0F-368751B6BFA3}';
-  RID_GruposProveedorDelta = '{1CFF788E-11F9-4CB6-B76F-8486A316784C}';
+  RID_GruposProveedorDelta = '{2646C695-AF72-47B1-B49F-3D205AB26AA8}';
-  RID_GruposEmpleadoDelta = '{3804414A-7B65-4D1B-AAC1-027A1ED130AE}';
+  RID_GruposEmpleadoDelta = '{98E9C2E7-A746-4DCE-B266-11B82D69A7DA}';
-  RID_Contactos_RefreshDelta = '{D9CC832B-B08B-489C-8562-A79E392C9510}';
+  RID_Contactos_RefreshDelta = '{69513B43-5718-4C52-8EC8-9A276ACAE98A}';
 
 type
   { ISubCuentasContactoDelta }
   ISubCuentasContactoDelta = interface(ISubCuentasContacto)
-  ['{E8742466-5EA1-44A5-9AE5-DD451737894B}']
+  ['{FC0194D1-310E-4427-AF7F-AB018733BB57}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREF_SUBCUENTAValue : String;
@@ -120,7 +120,7 @@ type
 
   { IContactosDelta }
   IContactosDelta = interface(IContactos)
-  ['{E9202FAC-8B98-444B-8CF8-A67FBC3792D7}']
+  ['{527CF7E9-2348-451B-8C83-481A8B52C85A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -443,7 +443,7 @@ type
 
   { IGruposClienteDelta }
   IGruposClienteDelta = interface(IGruposCliente)
-  ['{278CCE1C-1F40-43F9-BA7E-0BFCA21BBA4A}']
+  ['{F1BA8678-D575-4F78-B4D1-B844BC9FF07B}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -489,7 +489,7 @@ type
 
   { IDatosBancariosDelta }
   IDatosBancariosDelta = interface(IDatosBancarios)
-  ['{27FB76DE-2C27-4DEE-AB5A-B66F77A5688E}']
+  ['{77E54D4E-287A-4452-8DAA-0B0EE634F103}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -619,7 +619,7 @@ type
 
   { IClientesDelta }
   IClientesDelta = interface(IClientes)
-  ['{61AA99B2-A336-4CF4-B737-F7002CAE26A8}']
+  ['{F71CBCDE-EF92-41DE-89E4-34E6EE84EB04}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1110,7 +1110,7 @@ type
 
   { IProveedoresDelta }
   IProveedoresDelta = interface(IProveedores)
-  ['{9F1B09AD-D218-4081-9531-51647613FE85}']
+  ['{7C15EA57-7716-461B-B224-F0F372D48882}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1601,7 +1601,7 @@ type
 
   { IEmpleadosDelta }
   IEmpleadosDelta = interface(IEmpleados)
-  ['{9E2B39E4-C45A-489E-B91D-8115E398AAE4}']
+  ['{6E22A5F7-5C65-4E88-9A80-0B4A0E39AD9C}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -2024,7 +2024,7 @@ type
 
   { IDireccionesContactoDelta }
   IDireccionesContactoDelta = interface(IDireccionesContacto)
-  ['{3BEFC631-A199-4025-9A4A-535780FC7FB1}']
+  ['{F03C2A28-12AF-4253-A847-F21AE6F55C0E}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -2251,7 +2251,7 @@ type
 
   { IClientesDescuentosDelta }
   IClientesDescuentosDelta = interface(IClientesDescuentos)
-  ['{6A749D0D-D126-40CC-856C-A1EA0042B3B2}']
+  ['{0366F4B1-E659-4C51-B654-1D19255C0469}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
@@ -2333,7 +2333,7 @@ type
 
   { IProcedenciasClienteDelta }
   IProcedenciasClienteDelta = interface(IProcedenciasCliente)
-  ['{58146E09-69C6-4A3D-9D4E-067BCA148B35}']
+  ['{7D90B987-7B65-461C-BB0F-368751B6BFA3}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -2379,7 +2379,7 @@ type
 
   { IGruposProveedorDelta }
   IGruposProveedorDelta = interface(IGruposProveedor)
-  ['{1CFF788E-11F9-4CB6-B76F-8486A316784C}']
+  ['{2646C695-AF72-47B1-B49F-3D205AB26AA8}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -2425,7 +2425,7 @@ type
 
   { IGruposEmpleadoDelta }
   IGruposEmpleadoDelta = interface(IGruposEmpleado)
-  ['{3804414A-7B65-4D1B-AAC1-027A1ED130AE}']
+  ['{98E9C2E7-A746-4DCE-B266-11B82D69A7DA}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -2471,7 +2471,7 @@ type
 
   { IContactos_RefreshDelta }
   IContactos_RefreshDelta = interface(IContactos_Refresh)
-  ['{D9CC832B-B08B-489C-8562-A79E392C9510}']
+  ['{69513B43-5718-4C52-8EC8-9A276ACAE98A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldNIF_CIFValue : String;

Source/Modulos/Contactos/Model/uBizContactos.pas

@@ -117,6 +117,9 @@ type
     function GetDESCRIPCION_PROVEEDORValue: String;
     procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
 
+    function GetNOMBRE_COMERCIALValue: String;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String);
+
     function GetCODIGO_ASIGNADOValue: String;
     procedure SetCODIGO_ASIGNADOValue(const aValue: String);
 
@@ -148,6 +151,7 @@ type
     property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
     property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
     property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
+    property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
 
     function GetSubCuentas: IBizSubCuentasContacto;
     procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
@@ -324,6 +328,9 @@ type
     function GetCODIGO_ASIGNADOValue: String;
     procedure SetCODIGO_ASIGNADOValue(const aValue: String);
 
+    function GetNOMBRE_COMERCIALValue: String;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String);
+
     function GetREGIMEN_IVAValue: String;
     procedure SetREGIMEN_IVAValue(const aValue: String);
 
@@ -374,7 +381,8 @@ type
     property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
     property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
     property TIENE_SUBCUENTA: Integer read GetTiene_SubCuenta write SetTiene_Subcuenta;
-    property ES_ACREEDOR: Integer read GetEs_Acreedor write SetEs_Acreedor;    
+    property ES_ACREEDOR: Integer read GetEs_Acreedor write SetEs_Acreedor;
+    property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
   end;
 
 
@@ -721,6 +729,11 @@ begin
   result := DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger;
 end;
 
+function TBizProveedor.GetNOMBRE_COMERCIALValue: String;
+begin
+  result := DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].AsString;
+end;
+
 function TBizProveedor.GetREGIMEN_IVAValue: String;
 begin
   result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString;
@@ -849,6 +862,11 @@ begin
   DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger := Value;
 end;
 
+procedure TBizProveedor.SetNOMBRE_COMERCIALValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].AsString := aValue;
+end;
+
 procedure TBizProveedor.SetREGIMEN_IVAValue(const aValue: String);
 begin
   DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString := aValue;

Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas

@@ -1180,6 +1180,12 @@ begin
       ARecibos.ID_CLIENTE := AFactura.ID_CLIENTE;
       ARecibos.ID_TIENDA := AFactura.ID_TIENDA;
       ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
+      ARecibos.NOMBRE := AFactura.NOMBRE; //Es la razon social de la factura
+      ARecibos.CALLE := AFactura.CALLE;
+      ARecibos.NIF_CIF := AFactura.NIF_CIF;
+      ARecibos.POBLACION := AFactura.POBLACION;
+      ARecibos.PROVINCIA := AFactura.PROVINCIA;
+      ARecibos.CODIGO_POSTAL := AFactura.CODIGO_POSTAL;
 
       AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
       if (AFactura.Cliente.VENCIMIENTO_FACTURAS <> 0) then

Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm

@@ -141,11 +141,13 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
         Name = 'NOMBRE_CLIENTE'
         DataType = datString
         Size = 255
+        ServerAutoRefresh = True
       end
       item
         Name = 'NOMBRE_COMERCIAL_CLIENTE'
         DataType = datString
         Size = 255
+        ServerAutoRefresh = True
       end
       item
         Name = 'NIF_CIF'
@@ -256,11 +258,13 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
       item
         Name = 'ID_TIENDA'
         DataType = datInteger
+        ServerAutoRefresh = True
       end
       item
         Name = 'TIENDA'
         DataType = datString
         Size = 255
+        ServerAutoRefresh = True
       end
       item
         Name = 'ID_SUBCUENTA'

Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas

@@ -9,8 +9,8 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_FacturasCliente = '{C39C2786-BDB8-49DE-9EAC-91698C9EBFFA}';
+  RID_FacturasCliente = '{AE5A4A76-8A04-4005-A949-58C1F079D651}';
-  RID_FacturasCliente_Detalles = '{263850A9-538B-4EC7-B310-3E4C2EE93339}';
+  RID_FacturasCliente_Detalles = '{A6BF3706-DC34-41F3-8469-835D382D23D8}';
 
   { Data table names }
   nme_FacturasCliente = 'FacturasCliente';
@@ -135,7 +135,7 @@ const
 type
   { IFacturasCliente }
   IFacturasCliente = interface(IDAStronglyTypedDataTable)
-  ['{DAB1C0BD-33A9-4AFD-B37A-5402F2FAC3A5}']
+  ['{89B45F34-48D2-4E4D-9C03-F1591EA6F05E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -638,7 +638,7 @@ type
 
   { IFacturasCliente_Detalles }
   IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{D3CAD64F-1C21-4C1F-9BEE-04D8DAD24072}']
+  ['{6C713963-6140-464C-8BE5-4E547A0336EC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);

Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas

@@ -9,13 +9,13 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_FacturasClienteDelta = '{46477AC1-BF12-4410-9EA7-3D1C21A049B9}';
+  RID_FacturasClienteDelta = '{E601804E-04A1-4309-8827-23A675659EC2}';
-  RID_FacturasCliente_DetallesDelta = '{64DA04CA-425B-42E0-A86A-4B521E488AA9}';
+  RID_FacturasCliente_DetallesDelta = '{E26FF170-E793-4E14-86D0-6A5FCEAD94EB}';
 
 type
   { IFacturasClienteDelta }
   IFacturasClienteDelta = interface(IFacturasCliente)
-  ['{46477AC1-BF12-4410-9EA7-3D1C21A049B9}']
+  ['{E601804E-04A1-4309-8827-23A675659EC2}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -518,7 +518,7 @@ type
 
   { IFacturasCliente_DetallesDelta }
   IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
-  ['{64DA04CA-425B-42E0-A86A-4B521E488AA9}']
+  ['{E26FF170-E793-4E14-86D0-6A5FCEAD94EB}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;

Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm

@@ -281,11 +281,13 @@ object srvFacturasCliente: TsrvFacturasCliente
             Name = 'NOMBRE_CLIENTE'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
           end
           item
             Name = 'NOMBRE_COMERCIAL_CLIENTE'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
           end
           item
             Name = 'NIF_CIF'
@@ -383,11 +385,13 @@ object srvFacturasCliente: TsrvFacturasCliente
           item
             Name = 'ID_TIENDA'
             DataType = datInteger
+            ServerAutoRefresh = True
           end
           item
             Name = 'TIENDA'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
           end
           item
             Name = 'ID_SUBCUENTA'
@@ -1235,6 +1239,7 @@ object srvFacturasCliente: TsrvFacturasCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'Situaci'#243'n'
+        ServerAutoRefresh = True
       end
       item
         Name = 'FacturasCliente_BASE_IMPONIBLE'
@@ -1302,6 +1307,7 @@ object srvFacturasCliente: TsrvFacturasCliente
         DataType = datString
         Size = 100
         DisplayLabel = 'Cliente'
+        ServerAutoRefresh = True
       end
       item
         Name = 'FacturasCliente_CALLE'

Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm

@@ -2,12 +2,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
   Left = 454
   Top = 208
   Caption = 'Nueva factura de cliente'
-  ClientHeight = 642
+  ClientHeight = 662
   ClientWidth = 771
   Position = poScreenCenter
   OnClose = CustomEditorClose
   ExplicitWidth = 779
-  ExplicitHeight = 676
+  ExplicitHeight = 696
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -70,7 +70,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
   end
   inherited pgPaginas: TPageControl
     Width = 765
-    Height = 378
+    Height = 398
     OnChanging = pgPaginasChanging
     ExplicitLeft = 3
     ExplicitTop = 79
@@ -85,7 +85,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         Left = 0
         Top = 0
         Width = 757
-        Height = 350
+        Height = 370
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -99,13 +99,35 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         ExplicitHeight = 350
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 757
-          Height = 350
+          Height = 370
           ExplicitWidth = 757
           ExplicitHeight = 350
+          inherited eReferencia: TcxDBTextEdit
+            ExplicitWidth = 159
+            Width = 159
+          end
+          inherited edtFecha: TcxDBDateEdit
+            ExplicitWidth = 159
+            Width = 159
+          end
           inherited memObservaciones: TcxDBMemo
             ExplicitWidth = 301
+            ExplicitHeight = 159
+            Height = 159
             Width = 301
           end
+          inherited cbFormaPago: TcxDBLookupComboBox
+            ExplicitWidth = 78
+            Width = 78
+          end
+          inherited frViewTienda1: TfrViewTienda
+            inherited dxLayoutControl1: TdxLayoutControl
+              inherited cbTienda: TcxComboBox
+                ExplicitWidth = 399
+                Width = 399
+              end
+            end
+          end
           inherited frViewClienteFactura1: TfrViewClienteFactura
             Width = 314
             ExplicitWidth = 314
@@ -142,13 +164,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                 Width = 327
               end
               inherited edtCodigoPostal: TcxDBTextEdit
-                Left = 225
+                Left = 242
                 DataBinding.DataSource = dsDataTable
-                ExplicitLeft = 225
+                ExplicitLeft = 242
               end
               inherited Button3: TBitBtn
-                Left = 115
+                Left = 132
-                ExplicitLeft = 115
+                ExplicitLeft = 132
               end
               inherited cxDBTextEdit1: TcxDBTextEdit
                 ExplicitWidth = 283
@@ -162,11 +184,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
     object pagContenido: TTabSheet
       Caption = 'Contenido'
       ImageIndex = 1
+      ExplicitHeight = 350
       inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
         Left = 0
         Top = 0
         Width = 757
-        Height = 350
+        Height = 370
         Align = alClient
         BiDiMode = bdLeftToRight
         Font.Charset = DEFAULT_CHARSET
@@ -242,7 +265,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         end
         inherited cxGrid: TcxGrid
           Width = 757
-          Height = 278
+          Height = 298
           ExplicitWidth = 757
           ExplicitHeight = 278
         end
@@ -258,6 +281,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
     object pagContabilidad: TTabSheet
       Caption = 'Contabilidad'
       ImageIndex = 2
+      ExplicitHeight = 350
       inline frViewListaSubcuentas1: TfrViewListaSubcuentas
         Left = 0
         Top = 0
@@ -299,7 +323,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
     end
   end
   inherited StatusBar: TJvStatusBar
-    Top = 623
+    Top = 643
     Width = 771
     Panels = <
       item
@@ -310,7 +334,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
   end
   inline frViewTotales1: TfrViewTotales [4]
     Left = 0
-    Top = 460
+    Top = 480
     Width = 771
     Height = 163
     Align = alBottom

Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm

@@ -59,15 +59,22 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
         Width = 28
       end
       object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
+        Caption = 'Nombre comercial'
         DataBinding.FieldName = 'NOMBRE_COMERCIAL_CLIENTE'
+        Visible = False
+      end
+      object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
+        Caption = 'Cliente'
+        DataBinding.FieldName = 'NOMBRE_CLIENTE'
       end
       object cxGridViewNIF_CIF: TcxGridDBColumn
         DataBinding.FieldName = 'NIF_CIF'
         Visible = False
       end
       object cxGridViewNOMBRE: TcxGridDBColumn
-        Caption = 'Raz'#243'n'
+        Caption = 'Raz'#243'n social'
         DataBinding.FieldName = 'NOMBRE'
+        Visible = False
         Width = 181
       end
       object cxGridViewCALLE: TcxGridDBColumn
@@ -135,10 +142,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
         VisibleForCustomization = False
         Width = 54
       end
-      object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
-        Caption = 'Cliente'
-        DataBinding.FieldName = 'NOMBRE_CLIENTE'
-      end
     end
     inherited cxGridLevel: TcxGridLevel
       Caption = 'Todas'

Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas

@@ -1174,29 +1174,13 @@ begin
   ARecibosProveedorController.EliminarTodo(ARecibos);
 
   //Se cambia la lógica para acana, en el caso de elegir una forma de pago sin plazos
-  //y meter una fecha de vencimiento se generará un recibo con el 100% y fecha de vencimiento de la factura
+  //y meter una fecha de vencimiento se generará un recibo con el 100% y fecha de vencimiento
-  if AFormaPago.Plazos.RecordCount < 1 then
+  //de la factura, en el caso de elegir una forma de pago con plazos la logica será la misma que en clientes
-  begin
-    ARecibos := ARecibosProveedorController.Nuevo;
-    ARecibos.Edit;
-    ARecibos.ID_FACTURA := AFactura.ID;
-    ARecibos.ID_EMPRESA := AFactura.ID_EMPRESA;
-    ARecibos.ID_PROVEEDOR := AFactura.ID_PROVEEDOR;
-    ARecibos.ID_TIENDA := AFactura.ID_TIENDA;
-    ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - 1';
-    ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
-    ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO;
-    ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL;
-    ARecibosProveedorController.Guardar(ARecibos);
-  end
-  else
-    //Vamos a generar todos los recibos necesarios para la factura
     With AFormaPago.Plazos.DataTable do
     begin
       i := 1;
       First;
-      while not eof do
+      repeat
-      begin
         ARecibos := ARecibosProveedorController.Nuevo;
         ARecibos.Edit;
         ARecibos.ID_FACTURA := AFactura.ID;
@@ -1204,13 +1188,27 @@ begin
         ARecibos.ID_PROVEEDOR := AFactura.ID_PROVEEDOR;
         ARecibos.ID_TIENDA := AFactura.ID_TIENDA;
         ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
-        ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;        
+        ARecibos.NOMBRE := AFactura.NOMBRE; //Es la razon social de la factura
-        ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
+        ARecibos.CALLE := AFactura.CALLE;
-        ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
+        ARecibos.NIF_CIF := AFactura.NIF_CIF;
+        ARecibos.POBLACION := AFactura.POBLACION;
+        ARecibos.PROVINCIA := AFactura.PROVINCIA;
+        ARecibos.CODIGO_POSTAL := AFactura.CODIGO_POSTAL;
+        ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
+        if AFormaPago.Plazos.RecordCount < 1 then
+        begin
+          ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO;
+          ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL;
+        end
+        else
+        begin
+          ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
+          ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
+        end;
         ARecibosProveedorController.Guardar(ARecibos);
         Inc(i);
         Next;
-      end;
+      until (eof);
     end;
 
   //Liberamos

Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm

@@ -1,6 +1,6 @@
 inherited frViewFacturaProveedor: TfrViewFacturaProveedor
-  Width = 831
+  Width = 790
-  Height = 466
+  Height = 496
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,8 +9,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 831
+    Width = 790
-    Height = 466
+    Height = 496
     Align = alClient
     ParentBackground = True
     TabOrder = 0
@@ -19,8 +19,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
     ExplicitWidth = 451
     ExplicitHeight = 304
     DesignSize = (
-      831
+      790
-      466)
+      496)
     object eReferencia: TcxDBTextEdit
       Left = 124
       Top = 30
@@ -113,7 +113,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       Width = 169
     end
     object bFormasPago: TButton
-      Left = 324
+      Left = 296
       Top = 138
       Width = 132
       Height = 23
@@ -189,7 +189,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       Width = 158
     end
     inline frViewProveedorFactura1: TfrViewProveedorFactura
-      Left = 484
+      Left = 456
       Top = 30
       Width = 312
       Height = 260
@@ -201,7 +201,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       ParentFont = False
       TabOrder = 7
       ReadOnly = False
-      ExplicitLeft = 484
+      ExplicitLeft = 456
       ExplicitTop = 30
       ExplicitWidth = 312
       ExplicitHeight = 260
@@ -233,12 +233,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
           Width = 327
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 233
+          Left = 220
-          ExplicitLeft = 233
+          ExplicitLeft = 220
         end
         inherited Button3: TBitBtn
-          Left = 117
+          Left = 104
-          ExplicitLeft = 117
+          ExplicitLeft = 104
         end
         inherited cxDBTextEdit1: TcxDBTextEdit
           ExplicitWidth = 276
@@ -315,9 +315,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
           end
         end
         object dxLayoutControl1Group2: TdxLayoutGroup
-          AutoAligns = []
-          AlignHorz = ahClient
-          AlignVert = avClient
           Caption = 'Datos del proveedor'
           object dxLayoutControl1Item3: TdxLayoutItem
             Control = frViewProveedorFactura1

Source/Modulos/Recibos de cliente/Controller/RecibosCliente_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>{c8b2fb9a-0367-4fd0-b836-4b594c06bcab}</ProjectGuid>
     <MainSource>RecibosCliente_controller.dpk</MainSource>
@@ -39,17 +40,18 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <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="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">RecibosCliente_controller.dpk</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><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">RecibosCliente_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="RecibosCliente_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Contactos\Views\Base.dcp" />
+    <DCCReference Include="..\..\Lib\Base.dcp" />
-    <DCCReference Include="..\..\Contactos\Views\Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Contactos\Views\RecibosCliente_data.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_model.dcp" />
-    <DCCReference Include="..\..\Contactos\Views\RecibosCliente_model.dcp" />
+    <DCCReference Include="..\..\Lib\RecibosCliente_data.dcp" />
+    <DCCReference Include="..\..\Lib\RecibosCliente_model.dcp" />
     <DCCReference Include="uPagosClienteController.pas" />
     <DCCReference Include="uRecibosClienteController.pas" />
     <DCCReference Include="uRecibosClienteReportController.pas" />

Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas

@@ -27,7 +27,7 @@ interface
 
 uses
   Classes, SysUtils, uDADataTable, uControllerBase,
-	uPagosClienteController, uClientesController,
+	uPagosClienteController, uClientesController, uBizDireccionesContacto,
   uBizRecibosCliente, uIDataModuleRecibosCliente;
 
 type
@@ -70,6 +70,8 @@ type
     function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente;
     function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
 
+    procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosCliente);
+
     procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
     procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
     procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False);
@@ -140,6 +142,8 @@ type
     function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
     function ElegirRecibosCompensados(ARecibo : IBizRecibosCliente): Boolean;
 
+    procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosCliente);
+
     procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
     procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
     procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente);
@@ -296,6 +300,43 @@ begin
   end;
 end;
 
+procedure TRecibosClienteController.CopiarDireccion(const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosCliente);
+var
+  bEnEdicion : Boolean;
+begin
+  if not Assigned(ARecibo) then
+    raise Exception.Create ('Recibo no asignado (CopiarDireccion)');
+
+  if not Assigned(ADireccionEnvio) then
+    raise Exception.Create ('No se ha indicado la dirección (CopiarDireccion)');
+
+  if ARecibo.DataTable.Active then
+    ARecibo.DataTable.Active := True;
+
+  if ADireccionEnvio.DataTable.Active then
+    ADireccionEnvio.DataTable.Active := True;
+
+  bEnEdicion := (ARecibo.DataTable.State in dsEditModes);
+  if not bEnEdicion then
+    ARecibo.Edit;
+
+  ShowHourglassCursor;
+  ARecibo.Edit;
+  try
+    ARecibo.CALLE := ADireccionEnvio.CALLE;
+    ARecibo.POBLACION := ADireccionEnvio.POBLACION;
+    ARecibo.CODIGO_POSTAL := ADireccionEnvio.CODIGO_POSTAL;
+    ARecibo.PROVINCIA := ADireccionEnvio.PROVINCIA;
+    ARecibo.NIF_CIF := ADireccionEnvio.NIF_CIF;
+    ARecibo.NOMBRE := ADireccionEnvio.NOMBRE;
+
+    if not bEnEdicion then
+      ARecibo.Post;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 constructor TRecibosClienteController.Create;
 begin
   inherited;

Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm

@@ -147,22 +147,28 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
       item
         Name = 'ID_RECIBO_COMPENSADO'
         DataType = datInteger
+        DisplayLabel = 'RecibosCliente_ID_RECIBO_COMPENSADO'
+        DictionaryEntry = 'RecibosCliente_ID_RECIBO_COMPENSADO'
       end
       item
         Name = 'REFERENCIA_REC_COMPENSADO'
         DataType = datString
         Size = 255
+        DisplayLabel = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
+        DictionaryEntry = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
       end
       item
         Name = 'REFERENCIA'
         DataType = datString
         Size = 255
+        ServerAutoRefresh = True
         DictionaryEntry = 'RecibosCliente_REFERENCIA'
       end
       item
         Name = 'SITUACION'
         DataType = datString
         Size = 9
+        ServerAutoRefresh = True
         DictionaryEntry = 'RecibosCliente_SITUACION'
       end
       item
@@ -170,6 +176,23 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         DataType = datInteger
         DictionaryEntry = 'RecibosCliente_ID_FACTURA'
       end
+      item
+        Name = 'FECHA_FACTURA'
+        DataType = datDateTime
+        DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
+      end
+      item
+        Name = 'FORMA_PAGO_FACTURA'
+        DataType = datString
+        Size = 255
+        DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
+      end
+      item
+        Name = 'IMPORTE_FACTURA'
+        DataType = datCurrency
+        Alignment = taRightJustify
+        DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
+      end
       item
         Name = 'ID_REMESA'
         DataType = datInteger
@@ -223,25 +246,9 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         Name = 'IMPORTE_TOTAL'
         DataType = datCurrency
         Alignment = taRightJustify
+        ServerAutoRefresh = True
         DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
       end
-      item
-        Name = 'FECHA_FACTURA'
-        DataType = datDateTime
-        DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
-      end
-      item
-        Name = 'FORMA_PAGO_FACTURA'
-        DataType = datString
-        Size = 255
-        DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
-      end
-      item
-        Name = 'IMPORTE_FACTURA'
-        DataType = datCurrency
-        Alignment = taRightJustify
-        DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
-      end
       item
         Name = 'ID_EMPRESA'
         DataType = datInteger
@@ -256,14 +263,9 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         Name = 'NOMBRE_CLIENTE'
         DataType = datString
         Size = 255
+        ServerAutoRefresh = True
         DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
       end
-      item
-        Name = 'NIF_CIF_CLIENTE'
-        DataType = datString
-        Size = 15
-        DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
-      end
       item
         Name = 'ENTIDAD_CLIENTE'
         DataType = datString
@@ -288,6 +290,48 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         Size = 15
         DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE'
       end
+      item
+        Name = 'NIF_CIF'
+        DataType = datString
+        Size = 15
+        DisplayLabel = 'RecibosCliente_NIF_CIF'
+        DictionaryEntry = 'RecibosCliente_NIF_CIF'
+      end
+      item
+        Name = 'NOMBRE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'RecibosCliente_NOMBRE'
+        DictionaryEntry = 'RecibosCliente_NOMBRE'
+      end
+      item
+        Name = 'CALLE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'RecibosCliente_CALLE'
+        DictionaryEntry = 'RecibosCliente_CALLE'
+      end
+      item
+        Name = 'POBLACION'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'RecibosCliente_POBLACION'
+        DictionaryEntry = 'RecibosCliente_POBLACION'
+      end
+      item
+        Name = 'CODIGO_POSTAL'
+        DataType = datString
+        Size = 10
+        DisplayLabel = 'RecibosCliente_CODIGO_POSTAL'
+        DictionaryEntry = 'RecibosCliente_CODIGO_POSTAL'
+      end
+      item
+        Name = 'PROVINCIA'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'RecibosCliente_PROVINCIA'
+        DictionaryEntry = 'RecibosCliente_PROVINCIA'
+      end
       item
         Name = 'FECHA_ALTA'
         DataType = datDateTime
@@ -307,31 +351,17 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
       item
         Name = 'ID_TIENDA'
         DataType = datInteger
+        DisplayLabel = 'RecibosCliente_ID_TIENDA'
+        ServerAutoRefresh = True
+        DictionaryEntry = 'RecibosCliente_ID_TIENDA'
       end
       item
         Name = 'TIENDA'
         DataType = datString
         Size = 255
-      end
+        DisplayLabel = 'RecibosCliente_TIENDA'
-      item
+        ServerAutoRefresh = True
-        Name = 'CALLE_CLIENTE'
+        DictionaryEntry = 'RecibosCliente_TIENDA'
-        DataType = datString
-        Size = 255
-      end
-      item
-        Name = 'POBLACION_CLIENTE'
-        DataType = datString
-        Size = 255
-      end
-      item
-        Name = 'CODIGO_POSTAL_CLIENTE'
-        DataType = datString
-        Size = 10
-      end
-      item
-        Name = 'PROVINCIA_CLIENTE'
-        DataType = datString
-        Size = 255
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
@@ -380,6 +410,19 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         Name = 'ID_FACTURA'
         DataType = datInteger
       end
+      item
+        Name = 'FECHA_FACTURA'
+        DataType = datDateTime
+      end
+      item
+        Name = 'FORMA_PAGO_FACTURA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'IMPORTE_FACTURA'
+        DataType = datCurrency
+      end
       item
         Name = 'ID_REMESA'
         DataType = datInteger
@@ -418,19 +461,9 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
       item
         Name = 'IMPORTE_TOTAL'
         DataType = datCurrency
-      end
+        Alignment = taRightJustify
-      item
+        ServerAutoRefresh = True
-        Name = 'FECHA_FACTURA'
+        DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
-        DataType = datDateTime
-      end
-      item
-        Name = 'FORMA_PAGO_FACTURA'
-        DataType = datString
-        Size = 255
-      end
-      item
-        Name = 'IMPORTE_FACTURA'
-        DataType = datCurrency
       end
       item
         Name = 'ID_EMPRESA'
@@ -444,11 +477,8 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         Name = 'NOMBRE_CLIENTE'
         DataType = datString
         Size = 255
-      end
+        ServerAutoRefresh = True
-      item
+        DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
-        Name = 'NIF_CIF_CLIENTE'
-        DataType = datString
-        Size = 15
       end
       item
         Name = 'ENTIDAD_CLIENTE'
@@ -470,6 +500,36 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         DataType = datString
         Size = 15
       end
+      item
+        Name = 'NIF_CIF'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'NOMBRE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'CALLE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'POBLACION'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'CODIGO_POSTAL'
+        DataType = datString
+        Size = 10
+      end
+      item
+        Name = 'PROVINCIA'
+        DataType = datString
+        Size = 255
+      end
       item
         Name = 'FECHA_ALTA'
         DataType = datDateTime
@@ -491,26 +551,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         Name = 'TIENDA'
         DataType = datString
         Size = 255
-      end
-      item
-        Name = 'CALLE_CLIENTE'
-        DataType = datString
-        Size = 255
-      end
-      item
-        Name = 'POBLACION_CLIENTE'
-        DataType = datString
-        Size = 255
-      end
-      item
-        Name = 'CODIGO_POSTAL_CLIENTE'
-        DataType = datString
-        Size = 10
-      end
-      item
-        Name = 'PROVINCIA_CLIENTE'
-        DataType = datString
-        Size = 255
       end>
     Params = <>
     MasterMappingMode = mmWhere

Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas

@@ -153,13 +153,14 @@ begin
 
     ID_CLIENTE := FCliente.ID;
     NOMBRE_CLIENTE := FCliente.NOMBRE;
-    NIF_CIF_CLIENTE := FCliente.NIF_CIF;
+    //En el caso de cliente en nombre_comercial solo será para localizar y en el
-
+    //caso de elegir la dirección principal del cliente se cogerá el nombre para los datos fiscales
-{    CALLE := FCliente.CALLE;
+    NOMBRE := FCliente.NOMBRE;
+    NIF_CIF := FCliente.NIF_CIF;
+    CALLE := FCliente.CALLE;
     CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
     PROVINCIA := FCliente.PROVINCIA;
     POBLACION := FCliente.POBLACION;
-}
     Post;
 
     if bEnEdicion then
@@ -243,6 +244,7 @@ begin
   OTROS_GASTOS := 0;
   ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
   USUARIO := AppFactuGES.UsuarioActivo.UserName;
+  SITUACION := CTE_PENDIENTE;
 
   //TEMPORAL
   ID_TIENDA := AppFactuGES.VAR_IDTIENDA;

Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj

@@ -14,8 +14,18 @@
     <Projects Include="..\Contabilidad\Data\Contabilidad_data.dproj" />
     <Projects Include="..\Contabilidad\Model\Contabilidad_model.dproj" />
     <Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
+    <Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
+    <Projects Include="..\Contactos\Data\Contactos_data.dproj" />
+    <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
+    <Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
+    <Projects Include="..\Facturas de cliente\Data\FacturasCliente_data.dproj" />
+    <Projects Include="..\Facturas de cliente\Model\FacturasCliente_model.dproj" />
     <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
+    <Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
+    <Projects Include="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" />
+    <Projects Include="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" />
+    <Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
     <Projects Include="Controller\RecibosCliente_controller.dproj" />
     <Projects Include="Data\RecibosCliente_data.dproj" />
     <Projects Include="Model\RecibosCliente_model.dproj" />
@@ -181,14 +191,104 @@
   <Target Name="Contabilidad_view:Make">
     <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="FacturasCliente_model">
+    <MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasCliente_model:Clean">
+    <MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasCliente_model:Make">
+    <MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FacturasCliente_controller">
+    <MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasCliente_controller:Clean">
+    <MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasCliente_controller:Make">
+    <MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FacturasCliente_data">
+    <MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasCliente_data:Clean">
+    <MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasCliente_data:Make">
+    <MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Contactos_controller">
+    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="Contactos_controller:Clean">
+    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Contactos_controller:Make">
+    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
+  </Target>
+  <Target Name="RecibosProveedor_model">
+    <MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="" />
+  </Target>
+  <Target Name="RecibosProveedor_model:Clean">
+    <MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RecibosProveedor_model:Make">
+    <MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Contactos_model">
+    <MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="" />
+  </Target>
+  <Target Name="Contactos_model:Clean">
+    <MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Contactos_model:Make">
+    <MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Make" />
+  </Target>
+  <Target Name="RecibosProveedor_data">
+    <MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="" />
+  </Target>
+  <Target Name="RecibosProveedor_data:Clean">
+    <MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RecibosProveedor_data:Make">
+    <MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="Make" />
+  </Target>
+  <Target Name="RecibosProveedor_controller">
+    <MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="RecibosProveedor_controller:Clean">
+    <MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RecibosProveedor_controller:Make">
+    <MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Contactos_data">
+    <MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="" />
+  </Target>
+  <Target Name="Contactos_data:Clean">
+    <MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Contactos_data:Make">
+    <MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
+  </Target>
+  <Target Name="RecibosProveedor_view">
+    <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="" />
+  </Target>
+  <Target Name="RecibosProveedor_view:Clean">
+    <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RecibosProveedor_view:Make">
+    <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;Articulos_view;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;Articulos_view;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view;FacturasCliente_model;FacturasCliente_controller;FacturasCliente_data;Contactos_controller;RecibosProveedor_model;Contactos_model;RecibosProveedor_data;RecibosProveedor_controller;Contactos_data;RecibosProveedor_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;Articulos_view:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;Articulos_view:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;FacturasCliente_model:Clean;FacturasCliente_controller:Clean;FacturasCliente_data:Clean;Contactos_controller:Clean;RecibosProveedor_model:Clean;Contactos_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;Contactos_data:Clean;RecibosProveedor_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;Articulos_view:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;Articulos_view:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make;FacturasCliente_model:Make;FacturasCliente_controller:Make;FacturasCliente_data:Make;Contactos_controller:Make;RecibosProveedor_model:Make;Contactos_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;Contactos_data:Make;RecibosProveedor_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm

@@ -106,10 +106,6 @@ object srvRecibosCliente: TsrvRecibosCliente
                 DatasetField = 'NOMBRE_CLIENTE'
                 TableField = 'NOMBRE_CLIENTE'
               end
-              item
-                DatasetField = 'NIF_CIF_CLIENTE'
-                TableField = 'NIF_CIF_CLIENTE'
-              end
               item
                 DatasetField = 'ENTIDAD_CLIENTE'
                 TableField = 'ENTIDAD_CLIENTE'
@@ -147,20 +143,28 @@ object srvRecibosCliente: TsrvRecibosCliente
                 TableField = 'TIENDA'
               end
               item
-                DatasetField = 'CALLE_CLIENTE'
+                DatasetField = 'NIF_CIF'
-                TableField = 'CALLE_CLIENTE'
+                TableField = 'NIF_CIF'
               end
               item
-                DatasetField = 'POBLACION_CLIENTE'
+                DatasetField = 'NOMBRE'
-                TableField = 'POBLACION_CLIENTE'
+                TableField = 'NOMBRE'
               end
               item
-                DatasetField = 'CODIGO_POSTAL_CLIENTE'
+                DatasetField = 'CALLE'
-                TableField = 'CODIGO_POSTAL_CLIENTE'
+                TableField = 'CALLE'
               end
               item
-                DatasetField = 'PROVINCIA_CLIENTE'
+                DatasetField = 'POBLACION'
-                TableField = 'PROVINCIA_CLIENTE'
+                TableField = 'POBLACION'
+              end
+              item
+                DatasetField = 'CODIGO_POSTAL'
+                TableField = 'CODIGO_POSTAL'
+              end
+              item
+                DatasetField = 'PROVINCIA'
+                TableField = 'PROVINCIA'
               end>
           end>
         Name = 'RecibosCliente'
@@ -176,22 +180,26 @@ object srvRecibosCliente: TsrvRecibosCliente
           item
             Name = 'ID_RECIBO_COMPENSADO'
             DataType = datInteger
+            DictionaryEntry = 'RecibosCliente_ID_RECIBO_COMPENSADO'
           end
           item
             Name = 'REFERENCIA_REC_COMPENSADO'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
           end
           item
             Name = 'REFERENCIA'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
             DictionaryEntry = 'RecibosCliente_REFERENCIA'
           end
           item
             Name = 'SITUACION'
             DataType = datString
             Size = 9
+            ServerAutoRefresh = True
             DictionaryEntry = 'RecibosCliente_SITUACION'
           end
           item
@@ -199,6 +207,22 @@ object srvRecibosCliente: TsrvRecibosCliente
             DataType = datInteger
             DictionaryEntry = 'RecibosCliente_ID_FACTURA'
           end
+          item
+            Name = 'FECHA_FACTURA'
+            DataType = datDateTime
+            DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
+          end
+          item
+            Name = 'FORMA_PAGO_FACTURA'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
+          end
+          item
+            Name = 'IMPORTE_FACTURA'
+            DataType = datCurrency
+            DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
+          end
           item
             Name = 'ID_REMESA'
             DataType = datInteger
@@ -245,24 +269,9 @@ object srvRecibosCliente: TsrvRecibosCliente
           item
             Name = 'IMPORTE_TOTAL'
             DataType = datCurrency
+            ServerAutoRefresh = True
             DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
           end
-          item
-            Name = 'FECHA_FACTURA'
-            DataType = datDateTime
-            DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
-          end
-          item
-            Name = 'FORMA_PAGO_FACTURA'
-            DataType = datString
-            Size = 255
-            DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
-          end
-          item
-            Name = 'IMPORTE_FACTURA'
-            DataType = datCurrency
-            DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
-          end
           item
             Name = 'ID_EMPRESA'
             DataType = datInteger
@@ -277,14 +286,9 @@ object srvRecibosCliente: TsrvRecibosCliente
             Name = 'NOMBRE_CLIENTE'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
             DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
           end
-          item
-            Name = 'NIF_CIF_CLIENTE'
-            DataType = datString
-            Size = 15
-            DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
-          end
           item
             Name = 'ENTIDAD_CLIENTE'
             DataType = datString
@@ -309,6 +313,42 @@ object srvRecibosCliente: TsrvRecibosCliente
             Size = 15
             DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE'
           end
+          item
+            Name = 'NIF_CIF'
+            DataType = datString
+            Size = 15
+            DictionaryEntry = 'RecibosCliente_NIF_CIF'
+          end
+          item
+            Name = 'NOMBRE'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'RecibosCliente_NOMBRE'
+          end
+          item
+            Name = 'CALLE'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'RecibosCliente_CALLE'
+          end
+          item
+            Name = 'POBLACION'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'RecibosCliente_POBLACION'
+          end
+          item
+            Name = 'CODIGO_POSTAL'
+            DataType = datString
+            Size = 10
+            DictionaryEntry = 'RecibosCliente_CODIGO_POSTAL'
+          end
+          item
+            Name = 'PROVINCIA'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'RecibosCliente_PROVINCIA'
+          end
           item
             Name = 'FECHA_ALTA'
             DataType = datDateTime
@@ -328,31 +368,15 @@ object srvRecibosCliente: TsrvRecibosCliente
           item
             Name = 'ID_TIENDA'
             DataType = datInteger
+            ServerAutoRefresh = True
+            DictionaryEntry = 'RecibosCliente_ID_TIENDA'
           end
           item
             Name = 'TIENDA'
             DataType = datString
             Size = 255
-          end
+            ServerAutoRefresh = True
-          item
+            DictionaryEntry = 'RecibosCliente_TIENDA'
-            Name = 'CALLE_CLIENTE'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'POBLACION_CLIENTE'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'CODIGO_POSTAL_CLIENTE'
-            DataType = datString
-            Size = 10
-          end
-          item
-            Name = 'PROVINCIA_CLIENTE'
-            DataType = datString
-            Size = 255
           end>
       end
       item
@@ -586,10 +610,6 @@ object srvRecibosCliente: TsrvRecibosCliente
                 DatasetField = 'NOMBRE_CLIENTE'
                 TableField = 'NOMBRE_CLIENTE'
               end
-              item
-                DatasetField = 'NIF_CIF_CLIENTE'
-                TableField = 'NIF_CIF_CLIENTE'
-              end
               item
                 DatasetField = 'ENTIDAD_CLIENTE'
                 TableField = 'ENTIDAD_CLIENTE'
@@ -627,20 +647,28 @@ object srvRecibosCliente: TsrvRecibosCliente
                 TableField = 'TIENDA'
               end
               item
-                DatasetField = 'CALLE_CLIENTE'
+                DatasetField = 'NIF_CIF'
-                TableField = 'CALLE_CLIENTE'
+                TableField = 'NIF_CIF'
               end
               item
-                DatasetField = 'POBLACION_CLIENTE'
+                DatasetField = 'NOMBRE'
-                TableField = 'POBLACION_CLIENTE'
+                TableField = 'NOMBRE'
               end
               item
-                DatasetField = 'CODIGO_POSTAL_CLIENTE'
+                DatasetField = 'CALLE'
-                TableField = 'CODIGO_POSTAL_CLIENTE'
+                TableField = 'CALLE'
               end
               item
-                DatasetField = 'PROVINCIA_CLIENTE'
+                DatasetField = 'POBLACION'
-                TableField = 'PROVINCIA_CLIENTE'
+                TableField = 'POBLACION'
+              end
+              item
+                DatasetField = 'CODIGO_POSTAL'
+                TableField = 'CODIGO_POSTAL'
+              end
+              item
+                DatasetField = 'PROVINCIA'
+                TableField = 'PROVINCIA'
               end>
           end>
         Name = 'RecibosCompensadosCli'
@@ -673,6 +701,19 @@ object srvRecibosCliente: TsrvRecibosCliente
             Name = 'ID_FACTURA'
             DataType = datInteger
           end
+          item
+            Name = 'FECHA_FACTURA'
+            DataType = datDateTime
+          end
+          item
+            Name = 'FORMA_PAGO_FACTURA'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'IMPORTE_FACTURA'
+            DataType = datCurrency
+          end
           item
             Name = 'ID_REMESA'
             DataType = datInteger
@@ -711,19 +752,8 @@ object srvRecibosCliente: TsrvRecibosCliente
           item
             Name = 'IMPORTE_TOTAL'
             DataType = datCurrency
-          end
+            ServerAutoRefresh = True
-          item
+            DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
-            Name = 'FECHA_FACTURA'
-            DataType = datDateTime
-          end
-          item
-            Name = 'FORMA_PAGO_FACTURA'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'IMPORTE_FACTURA'
-            DataType = datCurrency
           end
           item
             Name = 'ID_EMPRESA'
@@ -737,11 +767,8 @@ object srvRecibosCliente: TsrvRecibosCliente
             Name = 'NOMBRE_CLIENTE'
             DataType = datString
             Size = 255
-          end
+            ServerAutoRefresh = True
-          item
+            DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
-            Name = 'NIF_CIF_CLIENTE'
-            DataType = datString
-            Size = 15
           end
           item
             Name = 'ENTIDAD_CLIENTE'
@@ -763,6 +790,36 @@ object srvRecibosCliente: TsrvRecibosCliente
             DataType = datString
             Size = 15
           end
+          item
+            Name = 'NIF_CIF'
+            DataType = datString
+            Size = 15
+          end
+          item
+            Name = 'NOMBRE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'CALLE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'POBLACION'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'CODIGO_POSTAL'
+            DataType = datString
+            Size = 10
+          end
+          item
+            Name = 'PROVINCIA'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'FECHA_ALTA'
             DataType = datDateTime
@@ -784,26 +841,6 @@ object srvRecibosCliente: TsrvRecibosCliente
             Name = 'TIENDA'
             DataType = datString
             Size = 255
-          end
-          item
-            Name = 'CALLE_CLIENTE'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'POBLACION_CLIENTE'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'CODIGO_POSTAL_CLIENTE'
-            DataType = datString
-            Size = 10
-          end
-          item
-            Name = 'PROVINCIA_CLIENTE'
-            DataType = datString
-            Size = 255
           end>
       end>
     JoinDataTables = <>
@@ -910,6 +947,30 @@ object srvRecibosCliente: TsrvRecibosCliente
           item
             Name = 'ID_TIENDA'
             Value = ''
+          end
+          item
+            Name = 'NOMBRE'
+            Value = ''
+          end
+          item
+            Name = 'NIF_CIF'
+            Value = ''
+          end
+          item
+            Name = 'CALLE'
+            Value = ''
+          end
+          item
+            Name = 'POBLACION'
+            Value = ''
+          end
+          item
+            Name = 'PROVINCIA'
+            Value = ''
+          end
+          item
+            Name = 'CODIGO_POSTAL'
+            Value = ''
           end>
         Statements = <
           item
@@ -919,9 +980,11 @@ object srvRecibosCliente: TsrvRecibosCliente
               'INSERT'#10'  INTO RECIBOS_CLIENTE'#10'    (ID, ID_EMPRESA, ID_CLIENTE, I' +
               'D_FACTURA, REFERENCIA, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' +
               'CION, OBSERVACIONES,'#10'    IMPORTE, OTROS_GASTOS, USUARIO, ID_TIEN' +
-              'DA)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :ID_CLIENTE, :ID_FACTURA, :R' +
+              'DA, NOMBRE, NIF_CIF, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL)' +
-              'EFERENCIA, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OB' +
+              #10'  VALUES'#10'    (:ID, :ID_EMPRESA, :ID_CLIENTE, :ID_FACTURA, :REFE' +
-              'SERVACIONES,'#10'    :IMPORTE, :OTROS_GASTOS, :USUARIO, :ID_TIENDA)'#10
+              'RENCIA, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSER' +
+              'VACIONES,'#10'    :IMPORTE, :OTROS_GASTOS, :USUARIO, :ID_TIENDA, :NO' +
+              'MBRE, :NIF_CIF, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -991,6 +1054,30 @@ object srvRecibosCliente: TsrvRecibosCliente
             Name = 'ID_TIENDA'
             Value = ''
           end
+          item
+            Name = 'NOMBRE'
+            Value = ''
+          end
+          item
+            Name = 'NIF_CIF'
+            Value = ''
+          end
+          item
+            Name = 'CALLE'
+            Value = ''
+          end
+          item
+            Name = 'POBLACION'
+            Value = ''
+          end
+          item
+            Name = 'PROVINCIA'
+            Value = ''
+          end
+          item
+            Name = 'CODIGO_POSTAL'
+            Value = ''
+          end
           item
             Name = 'OLD_ID'
             Value = ''
@@ -1005,8 +1092,10 @@ object srvRecibosCliente: TsrvRecibosCliente
               'EMISION = :FECHA_EMISION,'#10'    FECHA_VENCIMIENTO = :FECHA_VENCIMI' +
               'ENTO,'#10'    DESCRIPCION = :DESCRIPCION,'#10'    OBSERVACIONES = :OBSER' +
               'VACIONES,'#10'    IMPORTE = :IMPORTE,'#10'    OTROS_GASTOS = :OTROS_GAST' +
-              'OS,'#10'    USUARIO = :USUARIO,'#10'    ID_TIENDA = :ID_TIENDA'#10'  WHERE'#10' ' +
+              'OS,'#10'    USUARIO = :USUARIO,'#10'    ID_TIENDA = :ID_TIENDA,'#10'    NOMB' +
-              '   (ID = :OLD_ID)'#10
+              'RE = :NOMBRE,'#10'    NIF_CIF = :NIF_CIF,'#10'    CALLE = :CALLE,'#10'    PO' +
+              'BLACION = :POBLACION,'#10'    PROVINCIA = :PROVINCIA,'#10'    CODIGO_POS' +
+              'TAL = :CODIGO_POSTAL'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1286,7 +1375,7 @@ object srvRecibosCliente: TsrvRecibosCliente
     DeleteCommandName = 'Delete_RecibosCliente'
     UpdateCommandName = 'Update_RecibosCliente'
     ReferencedDataset = 'RecibosCliente'
-    ProcessorOptions = [poPrepareCommands]
+    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 192
     Top = 24
@@ -1306,12 +1395,14 @@ object srvRecibosCliente: TsrvRecibosCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'REFERENCIA'
+        ServerAutoRefresh = True
       end
       item
         Name = 'RecibosCliente_SITUACION'
         DataType = datString
         Size = 9
         DisplayLabel = 'SITUACION'
+        ServerAutoRefresh = True
       end
       item
         Name = 'RecibosCliente_ID_FACTURA'
@@ -1363,6 +1454,7 @@ object srvRecibosCliente: TsrvRecibosCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'NOMBRE_CLIENTE'
+        ServerAutoRefresh = True
       end
       item
         Name = 'RecibosCliente_NIF_CIF_CLIENTE'
@@ -1493,6 +1585,7 @@ object srvRecibosCliente: TsrvRecibosCliente
         DataType = datCurrency
         DisplayLabel = 'IMPORTE_TOTAL'
         Alignment = taRightJustify
+        ServerAutoRefresh = True
       end
       item
         Name = 'RecibosCliente_ID_CLIENTE'
@@ -1502,6 +1595,56 @@ object srvRecibosCliente: TsrvRecibosCliente
       item
         Name = 'RecibosCliente_FECHA_EMISION'
         DataType = datDateTime
+      end
+      item
+        Name = 'RecibosCliente_ID_RECIBO_COMPENSADO'
+        DataType = datInteger
+      end
+      item
+        Name = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'RecibosCliente_NIF_CIF'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'RecibosCliente_NOMBRE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'RecibosCliente_CALLE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'RecibosCliente_POBLACION'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'RecibosCliente_CODIGO_POSTAL'
+        DataType = datString
+        Size = 10
+      end
+      item
+        Name = 'RecibosCliente_PROVINCIA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'RecibosCliente_ID_TIENDA'
+        DataType = datInteger
+        ServerAutoRefresh = True
+      end
+      item
+        Name = 'RecibosCliente_TIENDA'
+        DataType = datString
+        Size = 255
+        ServerAutoRefresh = True
       end>
     Left = 48
     Top = 152
@@ -1523,7 +1666,7 @@ object srvRecibosCliente: TsrvRecibosCliente
     DeleteCommandName = 'Delete_RecibosCompensadosCli'
     UpdateCommandName = 'Update_RecibosCompensadosCli'
     ReferencedDataset = 'RecibosCompensadosCli'
-    ProcessorOptions = [poPrepareCommands]
+    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 192
     Top = 152

Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj

@@ -40,19 +40,41 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <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="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">RecibosCliente_view.dpk</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><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">RecibosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="RecibosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\..\Lib\adortl.dcp" />
     <DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_model.dcp" />
     <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
+    <DCCReference Include="..\..\Lib\cxDataD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\dbrtl.dcp" />
+    <DCCReference Include="..\..\Lib\dsnap.dcp" />
+    <DCCReference Include="..\..\Lib\dxComnD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
     <DCCReference Include="..\..\Lib\GUIBase.dcp" />
     <DCCReference Include="..\..\Lib\JvGlobusD11R.dcp" />
+    <DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
+    <DCCReference Include="..\..\Lib\PNG_D10.dcp" />
     <DCCReference Include="..\..\Lib\RecibosCliente_controller.dcp" />
     <DCCReference Include="..\..\Lib\RecibosCliente_model.dcp" />
+    <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\rtl.dcp" />
+    <DCCReference Include="..\..\Lib\vcl.dcp" />
+    <DCCReference Include="..\..\Lib\vclactnband.dcp" />
+    <DCCReference Include="..\..\Lib\vcldb.dcp" />
+    <DCCReference Include="..\..\Lib\vcljpg.dcp" />
+    <DCCReference Include="..\..\Lib\vclx.dcp" />
     <DCCReference Include="uEditorElegirRecibosCliente.pas">
       <Form>fEditorElegirRecibosCliente</Form>
       <DesignClass>TfEditorElegirRecibosCliente</DesignClass>
@@ -73,6 +95,10 @@
       <DesignClass>TfEditorRecibosCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uRecibosClienteViewRegister.pas" />
+    <DCCReference Include="uViewClienteRecibo.pas">
+      <Form>frViewClienteRecibo</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewPagosCliente.pas">
       <Form>frViewPagosCliente</Form>
       <DesignClass>TFrame</DesignClass>

Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm

@@ -1,18 +1,18 @@
 inherited fEditorReciboCliente: TfEditorReciboCliente
   Caption = 'Recibo de cliente'
-  ClientHeight = 528
+  ClientHeight = 562
-  ClientWidth = 689
+  ClientWidth = 742
   OnClose = CustomEditorClose
-  ExplicitWidth = 697
+  ExplicitWidth = 750
-  ExplicitHeight = 562
+  ExplicitHeight = 596
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 689
+    Width = 742
     Caption = 'Recibo de cliente'
-    ExplicitWidth = 689
+    ExplicitWidth = 742
     inherited Image1: TImage
-      Left = 662
+      Left = 715
       Picture.Data = {
         0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
         0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -39,32 +39,32 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
     end
   end
   inherited TBXDock: TTBXDock
-    Width = 689
+    Width = 742
-    ExplicitWidth = 689
+    ExplicitWidth = 742
     inherited tbxMain: TTBXToolbar
       ExplicitWidth = 425
     end
     inherited tbxMenu: TTBXToolbar
-      ExplicitWidth = 689
+      ExplicitWidth = 742
     end
   end
   inherited pgPaginas: TPageControl
-    Width = 683
+    Width = 736
-    Height = 327
+    Height = 361
     OnChanging = pgPaginasChanging
     ExplicitLeft = 3
     ExplicitTop = 79
-    ExplicitWidth = 683
+    ExplicitWidth = 736
-    ExplicitHeight = 327
+    ExplicitHeight = 361
     inherited pagGeneral: TTabSheet
       ExplicitLeft = 4
       ExplicitTop = 24
-      ExplicitWidth = 675
+      ExplicitWidth = 728
-      ExplicitHeight = 299
+      ExplicitHeight = 333
       inline frViewReciboCliente1: TfrViewReciboCliente
         Left = 0
         Top = 0
-        Width = 675
+        Width = 728
         Height = 335
         Align = alTop
         Font.Charset = DEFAULT_CHARSET
@@ -75,15 +75,15 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
         ParentFont = False
         TabOrder = 0
         ReadOnly = False
-        ExplicitWidth = 675
+        ExplicitWidth = 728
         ExplicitHeight = 335
         inherited dxLayoutControl1: TdxLayoutControl
-          Width = 675
+          Width = 728
           Height = 335
-          ExplicitWidth = 675
+          ExplicitWidth = 728
           ExplicitHeight = 335
           DesignSize = (
-            675
+            728
             335)
           inherited eReferencia: TcxDBTextEdit
             ExplicitWidth = 217
@@ -104,57 +104,27 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
             Width = 293
           end
           inherited eFechaEmision: TcxDBTextEdit
-            Left = 475
+            Left = 512
-            ExplicitLeft = 475
+            ExplicitLeft = 512
-            ExplicitWidth = 253
-            Width = 253
-          end
-          inherited eFormaPago: TcxDBTextEdit
-            Left = 475
-            ExplicitLeft = 475
             ExplicitWidth = 253
             Width = 253
           end
           inherited eImporteTotal: TcxDBCurrencyEdit
-            Left = 475
+            Left = 512
             Style.IsFontAssigned = True
-            ExplicitLeft = 475
+            ExplicitLeft = 512
             ExplicitWidth = 253
             Width = 253
           end
           inherited eNombreCliente: TcxDBTextEdit
-            Left = 475
+            Left = 512
-            ExplicitLeft = 475
+            ExplicitLeft = 512
             ExplicitWidth = 286
             Width = 286
           end
           inherited eNifCif: TcxDBTextEdit
-            Left = 475
+            Left = 512
-            ExplicitLeft = 475
+            ExplicitLeft = 512
-            ExplicitWidth = 286
-            Width = 286
-          end
-          inherited eEntidad: TcxDBTextEdit
-            Left = 475
-            ExplicitLeft = 475
-            ExplicitWidth = 84
-            Width = 84
-          end
-          inherited eSucursal: TcxDBTextEdit
-            Left = 550
-            ExplicitLeft = 550
-            ExplicitWidth = 81
-            Width = 81
-          end
-          inherited eDC: TcxDBTextEdit
-            Left = 599
-            ExplicitLeft = 599
-            ExplicitWidth = 37
-            Width = 37
-          end
-          inherited eCuenta: TcxDBTextEdit
-            Left = 475
-            ExplicitLeft = 475
             ExplicitWidth = 286
             Width = 286
           end
@@ -171,45 +141,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
             ExplicitWidth = 191
             Width = 191
           end
-          inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente
-            Left = 399
-            Top = 272
-            Width = 350
-            ExplicitLeft = 399
-            ExplicitTop = 272
-            ExplicitWidth = 350
-            inherited dxLayoutControl1: TdxLayoutControl
-              Width = 350
-              inherited edtlNombre: TcxDBTextEdit
-                ExplicitWidth = 276
-                Width = 276
-              end
-              inherited edtNIFCIF: TcxDBTextEdit
-                ExplicitWidth = 276
-                Width = 276
-              end
-              inherited edtCalle: TcxDBTextEdit
-                ExplicitWidth = 276
-                Width = 276
-              end
-              inherited edtPoblacion: TcxDBTextEdit
-                ExplicitWidth = 158
-                Width = 158
-              end
-              inherited edtProvincia: TcxDBTextEdit
-                ExplicitWidth = 276
-                Width = 276
-              end
-              inherited edtCodigoPostal: TcxDBTextEdit
-                Left = 192
-                ExplicitLeft = 192
-              end
-              inherited Button3: TBitBtn
-                Left = 82
-                ExplicitLeft = 82
-              end
-            end
-          end
           inherited eDescripcion: TcxDBTextEdit
             ExplicitWidth = 437
             Width = 437
@@ -225,6 +156,58 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
               end
             end
           end
+          inherited frViewClienteRecibo1: TfrViewClienteRecibo
+            Left = 436
+            Width = 350
+            ExplicitLeft = 436
+            ExplicitWidth = 350
+            inherited dxLayoutControl1: TdxLayoutControl
+              Width = 350
+              ExplicitWidth = 350
+              inherited Bevel1: TBevel
+                Width = 266
+                ExplicitWidth = 266
+              end
+              inherited edtlNombre: TcxDBTextEdit
+                DataBinding.DataSource = frViewReciboCliente1.DADataSource
+                ExplicitWidth = 276
+                Width = 276
+              end
+              inherited edtNIFCIF: TcxDBTextEdit
+                DataBinding.DataSource = frViewReciboCliente1.DADataSource
+                ExplicitWidth = 276
+                Width = 276
+              end
+              inherited edtCalle: TcxDBTextEdit
+                DataBinding.DataSource = frViewReciboCliente1.DADataSource
+                ExplicitWidth = 276
+                Width = 276
+              end
+              inherited edtPoblacion: TcxDBTextEdit
+                DataBinding.DataSource = frViewReciboCliente1.DADataSource
+                ExplicitWidth = 158
+                Width = 158
+              end
+              inherited edtProvincia: TcxDBTextEdit
+                DataBinding.DataSource = frViewReciboCliente1.DADataSource
+                ExplicitWidth = 276
+                Width = 276
+              end
+              inherited edtCodigoPostal: TcxDBTextEdit
+                Left = 192
+                DataBinding.DataSource = frViewReciboCliente1.DADataSource
+                ExplicitLeft = 192
+              end
+              inherited Button3: TBitBtn
+                Left = 82
+                ExplicitLeft = 82
+              end
+              inherited cxDBTextEdit1: TcxDBTextEdit
+                ExplicitWidth = 283
+                Width = 283
+              end
+            end
+          end
         end
       end
     end
@@ -234,8 +217,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
       inline frViewPagosCliente1: TfrViewPagosCliente
         Left = 0
         Top = 0
-        Width = 675
+        Width = 728
-        Height = 299
+        Height = 333
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -245,19 +228,19 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
         ParentFont = False
         TabOrder = 0
         ReadOnly = False
-        ExplicitWidth = 675
+        ExplicitWidth = 728
-        ExplicitHeight = 299
+        ExplicitHeight = 333
         inherited dxLayoutControl1: TdxLayoutControl
-          Width = 675
+          Width = 728
-          Height = 299
+          Height = 333
-          ExplicitWidth = 675
+          ExplicitWidth = 728
-          ExplicitHeight = 299
+          ExplicitHeight = 333
         end
         inherited dxLayoutControl2: TdxLayoutControl
-          Width = 675
+          Width = 728
-          Height = 299
+          Height = 333
-          ExplicitWidth = 675
+          ExplicitWidth = 728
-          ExplicitHeight = 299
+          ExplicitHeight = 333
           inherited ToolBar1: TToolBar
             Width = 666
             ExplicitWidth = 666
@@ -296,8 +279,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
       inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
         Left = 0
         Top = 0
-        Width = 675
+        Width = 728
-        Height = 299
+        Height = 333
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -307,13 +290,13 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
         ParentFont = False
         TabOrder = 0
         ReadOnly = False
-        ExplicitWidth = 675
+        ExplicitWidth = 728
-        ExplicitHeight = 299
+        ExplicitHeight = 333
         inherited cxGrid: TcxGrid
-          Width = 675
+          Width = 728
-          Height = 274
+          Height = 308
-          ExplicitWidth = 675
+          ExplicitWidth = 728
-          ExplicitHeight = 274
+          ExplicitHeight = 308
           inherited cxGridView: TcxGridDBTableView
             DataController.Summary.FooterSummaryItems = <
               item
@@ -325,8 +308,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
           end
         end
         inherited ToolBar1: TToolBar
-          Width = 675
+          Width = 728
-          ExplicitWidth = 677
+          ExplicitWidth = 728
           inherited ToolButton1: TToolButton
             ExplicitWidth = 113
           end
@@ -350,19 +333,19 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
     end
   end
   inherited StatusBar: TJvStatusBar
-    Top = 509
+    Top = 543
-    Width = 689
+    Width = 742
     Panels = <
       item
         Width = 200
       end>
-    ExplicitTop = 509
+    ExplicitTop = 543
-    ExplicitWidth = 689
+    ExplicitWidth = 742
   end
   inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4]
     Left = 0
-    Top = 409
+    Top = 443
-    Width = 689
+    Width = 742
     Height = 100
     Align = alBottom
     Font.Charset = DEFAULT_CHARSET
@@ -373,11 +356,11 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
     ParentFont = False
     TabOrder = 4
     ReadOnly = False
-    ExplicitTop = 409
+    ExplicitTop = 443
-    ExplicitWidth = 689
+    ExplicitWidth = 742
     inherited dxLayoutControl1: TdxLayoutControl
-      Width = 689
+      Width = 742
-      ExplicitWidth = 689
+      ExplicitWidth = 742
       inherited eImporte: TcxDBCurrencyEdit
         DataBinding.DataSource = dsDataTable
         Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged

Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas

@@ -73,13 +73,15 @@ type
 
 implementation
 
-uses uDialogUtils, schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase, uFactuGES_App;
+uses uDialogUtils, schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase, uFactuGES_App,
+uClientesController, uBizDireccionesContacto, uViewClienteRecibo;
 
 {$R *.dfm}
 
 procedure TfEditorReciboCliente.CalcularTotal;
 var
   ImporteAux: Double;
+  EnEdicion: Boolean;
 begin
 
   ImporteAux := 0;
@@ -355,8 +357,37 @@ begin
 end;
 
 procedure TfEditorReciboCliente.OnClienteChanged(Sender: TObject);
+var
+  AClientesController : IClientesController;
+  ADireccion : IBizDireccionesContacto;
+
 begin
-  FRecibo.Cliente := frViewReciboCliente1.frViewClienteRecibo.Cliente;
+  FRecibo.Cliente := frViewReciboCliente1.frViewClienteRecibo1.Cliente;
+
+  if not (FRecibo.DataTable.State in dsEditModes) then
+     FRecibo.DataTable.Edit;
+
+  // En el caso de tener direcciones asociadas, se debe dar la posibilidad de elegir la dirección principal o las secundarias para el recibo
+  AClientesController := TClientesController.Create;
+  try
+    case FRecibo.Cliente.Direcciones.RecordCount of
+    0   : //No hay direcciones secundarias asociadas
+    else  ADireccion := AClientesController.ElegirDireccion(FRecibo.Cliente, 'Seleccione la dirección del cliente que quiere utilizar como dirección fiscal de este recibo.');
+    end;
+
+    // Si hay dirección seleccionada, copiarla al albarán y poner el coste del porte
+    if Assigned(ADireccion) then
+    begin
+      try
+       FRecibo.Edit;
+       FController.CopiarDireccion(ADireccion, FRecibo);
+      finally
+       ADireccion := NIL;
+      end;
+    end
+  finally
+    AClientesController := Nil;
+  end;
 end;
 
 procedure TfEditorReciboCliente.pgPaginasChanging(Sender: TObject;
@@ -415,8 +446,8 @@ begin
   if Assigned(FViewRecibo) and Assigned(Recibo) then
   begin
     FViewRecibo.Recibo := Recibo;
-    frViewReciboCliente1.frViewClienteRecibo.Cliente := FRecibo.Cliente;
+    frViewReciboCliente1.frViewClienteRecibo1.Cliente := FRecibo.Cliente;
-    frViewReciboCliente1.frViewClienteRecibo.OnClienteChanged := OnClienteChanged;
+    frViewReciboCliente1.frViewClienteRecibo1.OnClienteChanged := OnClienteChanged;
     frViewPagosCliente1.Pagos := Recibo.Pagos;
     frViewRecibosCliCompensados1.ReciboCliente := FRecibo;
 

Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm

@@ -1,20 +1,21 @@
 inherited frViewReciboCliente: TfrViewReciboCliente
-  Width = 905
+  Width = 854
   Height = 509
-  ExplicitWidth = 905
+  ExplicitWidth = 854
   ExplicitHeight = 509
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 905
+    Width = 854
     Height = 509
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
+    ExplicitWidth = 905
     DesignSize = (
-      905
+      854
       509)
     object eReferencia: TcxDBTextEdit
       Left = 120
@@ -109,7 +110,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
       Width = 274
     end
     object eFechaEmision: TcxDBTextEdit
-      Left = 631
+      Left = 551
       Top = 30
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_FACTURA'
@@ -134,35 +135,9 @@ inherited frViewReciboCliente: TfrViewReciboCliente
       TabOrder = 9
       Width = 20
     end
-    object eFormaPago: TcxDBTextEdit
-      Left = 631
-      Top = 57
-      Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'FORMA_PAGO_FACTURA'
-      DataBinding.DataSource = DADataSource
-      Enabled = False
-      Properties.ReadOnly = False
-      Properties.ValidateOnEnter = True
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.Color = clInfoBk
-      Style.HotTrack = False
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      StyleDisabled.Color = clMenuBar
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.TextColor = clWindowText
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 10
-      Width = 42
-    end
     object eImporteTotal: TcxDBCurrencyEdit
-      Left = 631
+      Left = 551
-      Top = 84
+      Top = 111
       AutoSize = False
       DataBinding.DataField = 'IMPORTE_FACTURA'
       DataBinding.DataSource = DADataSource
@@ -188,15 +163,15 @@ inherited frViewReciboCliente: TfrViewReciboCliente
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 11
+      TabOrder = 12
       Height = 21
       Width = 182
     end
     object eNombreCliente: TcxDBTextEdit
-      Left = 631
+      Left = 551
-      Top = 167
+      Top = 84
       Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'NOMBRE_CLIENTE'
+      DataBinding.DataField = 'NOMBRE'
       DataBinding.DataSource = DADataSource
       Enabled = False
       Properties.ReadOnly = False
@@ -215,14 +190,14 @@ inherited frViewReciboCliente: TfrViewReciboCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 13
+      TabOrder = 11
       Width = 171
     end
     object eNifCif: TcxDBTextEdit
-      Left = 631
+      Left = 551
-      Top = 140
+      Top = 57
       Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'NIF_CIF_CLIENTE'
+      DataBinding.DataField = 'NIF_CIF'
       DataBinding.DataSource = DADataSource
       Enabled = False
       Properties.ReadOnly = False
@@ -241,113 +216,9 @@ inherited frViewReciboCliente: TfrViewReciboCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 12
+      TabOrder = 10
       Width = 147
     end
-    object eEntidad: TcxDBTextEdit
-      Left = 631
-      Top = 194
-      Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'ENTIDAD_CLIENTE'
-      DataBinding.DataSource = DADataSource
-      Enabled = False
-      Properties.ReadOnly = False
-      Properties.ValidateOnEnter = True
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.Color = clInfoBk
-      Style.HotTrack = False
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      StyleDisabled.Color = clMenuBar
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.TextColor = clWindowText
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 14
-      Width = 90
-    end
-    object eSucursal: TcxDBTextEdit
-      Left = 759
-      Top = 194
-      Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'SUCURSAL_CLIENTE'
-      DataBinding.DataSource = DADataSource
-      Enabled = False
-      Properties.ReadOnly = False
-      Properties.ValidateOnEnter = True
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.Color = clInfoBk
-      Style.HotTrack = False
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      StyleDisabled.Color = clMenuBar
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.TextColor = clWindowText
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 15
-      Width = 75
-    end
-    object eDC: TcxDBTextEdit
-      Left = 850
-      Top = 194
-      Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'DC_CLIENTE'
-      DataBinding.DataSource = DADataSource
-      Enabled = False
-      Properties.ReadOnly = False
-      Properties.ValidateOnEnter = True
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.Color = clInfoBk
-      Style.HotTrack = False
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      StyleDisabled.Color = clMenuBar
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.TextColor = clWindowText
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 16
-      Width = 33
-    end
-    object eCuenta: TcxDBTextEdit
-      Left = 631
-      Top = 221
-      Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'CUENTA_CLIENTE'
-      DataBinding.DataSource = DADataSource
-      Enabled = False
-      Properties.ReadOnly = False
-      Properties.ValidateOnEnter = True
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.Color = clInfoBk
-      Style.HotTrack = False
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      StyleDisabled.Color = clMenuBar
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.TextColor = clWindowText
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 17
-      Width = 83
-    end
     object eRemesa: TcxDBTextEdit
       Left = 120
       Top = 138
@@ -425,52 +296,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
       TabOrder = 6
       Width = 191
     end
-    inline frViewClienteRecibo: TfrViewDatosYSeleccionCliente
-      Left = 555
-      Top = 275
-      Width = 350
-      Height = 212
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      ParentFont = False
-      TabOrder = 18
-      ReadOnly = False
-      ExplicitLeft = 555
-      ExplicitTop = 275
-      inherited dxLayoutControl1: TdxLayoutControl
-        inherited edtlNombre: TcxDBTextEdit
-          ExplicitWidth = 224
-          Width = 224
-        end
-        inherited edtNIFCIF: TcxDBTextEdit
-          ExplicitWidth = 562
-          Width = 562
-        end
-        inherited edtCalle: TcxDBTextEdit
-          ExplicitWidth = 562
-          Width = 562
-        end
-        inherited edtPoblacion: TcxDBTextEdit
-          ExplicitWidth = 177
-          Width = 177
-        end
-        inherited edtProvincia: TcxDBTextEdit
-          ExplicitWidth = 327
-          Width = 327
-        end
-        inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 236
-          ExplicitLeft = 236
-        end
-        inherited Button3: TBitBtn
-          Left = 126
-          ExplicitLeft = 126
-        end
-      end
-    end
     object eDescripcion: TcxDBTextEdit
       Left = 120
       Top = 165
@@ -513,6 +338,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
       ExplicitLeft = 120
       ExplicitTop = 267
       inherited dxLayoutControl1: TdxLayoutControl
+        ExplicitWidth = 407
         inherited cbTienda: TcxComboBox
           Left = 10
           ExplicitLeft = 10
@@ -526,6 +352,57 @@ inherited frViewReciboCliente: TfrViewReciboCliente
         end
       end
     end
+    inline frViewClienteRecibo1: TfrViewClienteRecibo
+      Left = 475
+      Top = 162
+      Width = 357
+      Height = 318
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 13
+      ReadOnly = False
+      ExplicitLeft = 475
+      ExplicitTop = 162
+      inherited dxLayoutControl1: TdxLayoutControl
+        ExplicitWidth = 328
+        inherited edtlNombre: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+          ExplicitWidth = 276
+          Width = 276
+        end
+        inherited edtNIFCIF: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+          ExplicitWidth = 276
+          Width = 276
+        end
+        inherited edtCalle: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+          ExplicitWidth = 276
+          Width = 276
+        end
+        inherited edtPoblacion: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+          ExplicitWidth = 158
+          Width = 158
+        end
+        inherited edtProvincia: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+          ExplicitWidth = 276
+          Width = 276
+        end
+        inherited edtCodigoPostal: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+        end
+        inherited cxDBTextEdit1: TcxDBTextEdit
+          ExplicitWidth = 283
+          Width = 283
+        end
+      end
+    end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -609,8 +486,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
         end
       end
       object dxLayoutControl1Group8: TdxLayoutGroup
-        AutoAligns = [aaVertical]
-        AlignHorz = ahClient
         Caption = 'New Group'
         ShowCaption = False
         ShowBorder = False
@@ -623,24 +498,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
             Control = eFechaEmision
             ControlOptions.ShowBorder = False
           end
-          object dxLayoutControl1Item8: TdxLayoutItem
-            AutoAligns = [aaVertical]
-            AlignHorz = ahClient
-            Caption = 'Forma pago:'
-            Control = eFormaPago
-            ControlOptions.ShowBorder = False
-          end
-          object dxLayoutControl1Item9: TdxLayoutItem
-            Caption = 'Total factura:'
-            Control = eImporteTotal
-            ControlOptions.ShowBorder = False
-          end
-        end
-        object dxLayoutControlCliente: TdxLayoutGroup
-          AutoAligns = [aaHorizontal]
-          AlignVert = avClient
-          Caption = 'Datos del cliente'
-          Offsets.Top = 5
           object dxLayoutControl1Item11: TdxLayoutItem
             Caption = 'NIF/CIF:'
             Control = eNifCif
@@ -651,44 +508,10 @@ inherited frViewReciboCliente: TfrViewReciboCliente
             Control = eNombreCliente
             ControlOptions.ShowBorder = False
           end
-          object dxLayoutControl1Group4: TdxLayoutGroup
+          object dxLayoutControl1Item9: TdxLayoutItem
-            ShowCaption = False
+            Caption = 'Total factura:'
-            Hidden = True
+            Control = eImporteTotal
-            ShowBorder = False
+            ControlOptions.ShowBorder = False
-            object dxLayoutControl1Group11: TdxLayoutGroup
-              ShowCaption = False
-              Hidden = True
-              LayoutDirection = ldHorizontal
-              ShowBorder = False
-              object dxLayoutControl1Item12: TdxLayoutItem
-                AutoAligns = [aaVertical]
-                AlignHorz = ahClient
-                Caption = 'Entidad:'
-                Control = eEntidad
-                ControlOptions.ShowBorder = False
-              end
-              object dxLayoutControl1Item13: TdxLayoutItem
-                AutoAligns = [aaVertical]
-                AlignHorz = ahClient
-                Caption = 'Sucursal:'
-                Control = eSucursal
-                ControlOptions.ShowBorder = False
-              end
-              object dxLayoutControl1Item14: TdxLayoutItem
-                AutoAligns = [aaVertical]
-                AlignHorz = ahRight
-                Caption = 'DC:'
-                Control = eDC
-                ControlOptions.ShowBorder = False
-              end
-            end
-            object dxLayoutControl1Item15: TdxLayoutItem
-              AutoAligns = [aaVertical]
-              AlignHorz = ahClient
-              Caption = 'C'#243'd. cuenta:'
-              Control = eCuenta
-              ControlOptions.ShowBorder = False
-            end
           end
         end
         object dxLayoutControlClienteModif: TdxLayoutGroup
@@ -696,7 +519,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
           AlignVert = avClient
           Caption = 'Datos del cliente'
           object dxLayoutControl1Item6: TdxLayoutItem
-            Control = frViewClienteRecibo
+            Control = frViewClienteRecibo1
             ControlOptions.AutoColor = True
             ControlOptions.ShowBorder = False
           end

Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas

@@ -8,7 +8,7 @@ uses
   cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
   cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
   uDAInterfaces, uCustomView, uViewDatosYSeleccionCliente, uRecibosClienteController,
-  uViewTienda;
+  uViewTienda, uViewClienteRecibo;
 
 type
   IViewReciboCliente = interface(IViewBase)
@@ -38,8 +38,6 @@ type
     dxLayoutControl1Group1: TdxLayoutGroup;
     dxLayoutControl1Item7: TdxLayoutItem;
     eFechaEmision: TcxDBTextEdit;
-    dxLayoutControl1Item8: TdxLayoutItem;
-    eFormaPago: TcxDBTextEdit;
     dxLayoutControl1Item9: TdxLayoutItem;
     eImporteTotal: TcxDBCurrencyEdit;
     dxLayoutControlFactura: TdxLayoutGroup;
@@ -47,37 +45,26 @@ type
     eNombreCliente: TcxDBTextEdit;
     dxLayoutControl1Item11: TdxLayoutItem;
     eNifCif: TcxDBTextEdit;
-    dxLayoutControl1Item12: TdxLayoutItem;
-    eEntidad: TcxDBTextEdit;
-    dxLayoutControl1Item13: TdxLayoutItem;
-    eSucursal: TcxDBTextEdit;
-    dxLayoutControl1Item14: TdxLayoutItem;
-    eDC: TcxDBTextEdit;
-    dxLayoutControl1Item15: TdxLayoutItem;
-    eCuenta: TcxDBTextEdit;
-    dxLayoutControlCliente: TdxLayoutGroup;
     dxLayoutControl1Group8: TdxLayoutGroup;
     dxLayoutControl1Item16: TdxLayoutItem;
     eRemesa: TcxDBTextEdit;
-    dxLayoutControl1Group4: TdxLayoutGroup;
     dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
     dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
     dxLayoutControl1Group7: TdxLayoutGroup;
-    dxLayoutControl1Group11: TdxLayoutGroup;
     dxLayoutControl1Item19: TdxLayoutItem;
     edtFechaEmision: TcxDBDateEdit;
     dxLayoutControl1Item4: TdxLayoutItem;
     rRefReciboCompensado: TcxDBTextEdit;
     dxLayoutControl1Group2: TdxLayoutGroup;
     dxLayoutControl1Group3: TdxLayoutGroup;
-    dxLayoutControl1Item6: TdxLayoutItem;
-    frViewClienteRecibo: TfrViewDatosYSeleccionCliente;
     dxLayoutControlClienteModif: TdxLayoutGroup;
     dxLayoutControl1Item17: TdxLayoutItem;
     eDescripcion: TcxDBTextEdit;
     dxLayoutControl1Item18: TdxLayoutItem;
     frViewTienda1: TfrViewTienda;
     dxLayoutControl1Group5: TdxLayoutGroup;
+    dxLayoutControl1Item6: TdxLayoutItem;
+    frViewClienteRecibo1: TfrViewClienteRecibo;
   private
     FRecibo : IBizRecibosCliente;
     FController : IRecibosClienteController;
@@ -115,7 +102,7 @@ begin
   FController := Value;
 
   if Assigned(FController) then
-     frViewClienteRecibo.Controller := FController.ClienteController;
+     frViewClienteRecibo1.Controller := FController.ClienteController;
 end;
 
 procedure TfrViewReciboCliente.SetRecibo(const Value: IBizRecibosCliente);
@@ -124,7 +111,6 @@ begin
 
   //Por defecto
   dxLayoutControlFactura.Visible := true;
-  dxLayoutControlCliente.Visible := true;
   dxLayoutControlClienteModif.Visible := false;
   eDescripcion.Enabled := False;
 
@@ -136,7 +122,6 @@ begin
     if FRecibo.SinFactura then
     begin
        dxLayoutControlFactura.Visible := false;
-       dxLayoutControlCliente.Visible := false;
        dxLayoutControlClienteModif.Visible := true;
        eDescripcion.Enabled := True;
     end;

Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm

@@ -116,18 +116,22 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
         Visible = False
         BestFitMaxWidth = 150
       end
-      object cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn
-        Caption = 'NIF/CIF'
-        DataBinding.FieldName = 'NIF_CIF_CLIENTE'
-        Visible = False
-        BestFitMaxWidth = 70
-      end
       object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
         Caption = 'Cliente'
         DataBinding.FieldName = 'NOMBRE_CLIENTE'
         BestFitMaxWidth = 150
         Width = 51
       end
+      object cxGridViewNIF_CIF: TcxGridDBColumn
+        Caption = 'NIF/CIF'
+        DataBinding.FieldName = 'NIF_CIF'
+        Visible = False
+        BestFitMaxWidth = 70
+      end
+      object cxGridViewNOMBRE: TcxGridDBColumn
+        Caption = 'Raz'#243'n'
+        DataBinding.FieldName = 'NOMBRE'
+      end
       object cxGridViewIMPORTE: TcxGridDBColumn
         Caption = 'Importe'
         DataBinding.FieldName = 'IMPORTE'
@@ -167,6 +171,26 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
         HeaderAlignmentHorz = taRightJustify
         Width = 48
       end
+      object cxGridViewCALLE: TcxGridDBColumn
+        Caption = 'Calle'
+        DataBinding.FieldName = 'CALLE'
+        Visible = False
+      end
+      object cxGridViewPOBLACION: TcxGridDBColumn
+        Caption = 'Poblaci'#243'n'
+        DataBinding.FieldName = 'POBLACION'
+        Visible = False
+      end
+      object cxGridViewPROVINCIA: TcxGridDBColumn
+        Caption = 'Provincia'
+        DataBinding.FieldName = 'PROVINCIA'
+        Visible = False
+      end
+      object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
+        Caption = 'C'#243'digo postal'
+        DataBinding.FieldName = 'CODIGO_POSTAL'
+        Visible = False
+      end
     end
     inherited cxGridLevel: TcxGridLevel
       Caption = 'Todos'
@@ -189,17 +213,9 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 531
         ExplicitWidth = 531
-        inherited txtFiltroTodo: TcxTextEdit
-          ExplicitWidth = 273
-          Width = 273
-        end
-        inherited edtFechaIniFiltro: TcxDateEdit
-          ExplicitWidth = 121
-          Width = 121
-        end
         inherited edtFechaFinFiltro: TcxDateEdit
-          Left = 229
+          Left = 287
-          ExplicitLeft = 229
+          ExplicitLeft = 287
           ExplicitWidth = 287
           Width = 287
         end

Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas

@@ -37,7 +37,7 @@ type
     cxGridViewDESCRIPCION: TcxGridDBColumn;
     cxGridViewIMPORTE: TcxGridDBColumn;
     cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn;
-    cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn;
+    cxGridViewNIF_CIF: TcxGridDBColumn;
     cxGridViewREFERENCIA_REMESA: TcxGridDBColumn;
     cxGridDevueltos: TcxGridLevel;
     cxGridViewOTROS_GASTOS: TcxGridDBColumn;
@@ -51,6 +51,11 @@ type
     cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn;
     cxGridViewTIENDA: TcxGridDBColumn;
     cxGridViewID_TIENDA: TcxGridDBColumn;
+    cxGridViewNOMBRE: TcxGridDBColumn;
+    cxGridViewCALLE: TcxGridDBColumn;
+    cxGridViewPOBLACION: TcxGridDBColumn;
+    cxGridViewPROVINCIA: TcxGridDBColumn;
+    cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
     procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
       ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
       var ADone: Boolean);

Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dproj

@@ -40,17 +40,18 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <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="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">RecibosProveedor_controller.dpk</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><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">RecibosProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="RecibosProveedor_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Base.dcp" />
+    <DCCReference Include="..\..\Lib\Base.dcp" />
-    <DCCReference Include="..\Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
-    <DCCReference Include="..\RecibosProveedor_data.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_model.dcp" />
-    <DCCReference Include="..\RecibosProveedor_model.dcp" />
+    <DCCReference Include="..\..\Lib\RecibosProveedor_data.dcp" />
+    <DCCReference Include="..\..\Lib\RecibosProveedor_model.dcp" />
     <DCCReference Include="uPagosProveedorController.pas" />
     <DCCReference Include="uRecibosProveedorController.pas" />
     <DCCReference Include="uRecibosProveedorReportController.pas" />

Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas

@@ -27,7 +27,7 @@ interface
 
 uses
   Classes, SysUtils, uDADataTable, uControllerBase,
-	uPagosProveedorController, uProveedoresController,
+	uPagosProveedorController, uProveedoresController, uBizDireccionesContacto,
   uBizRecibosProveedor, uIDataModuleRecibosProveedor;
 
 type
@@ -69,6 +69,8 @@ type
     procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False);
     function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor;
 
+    procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosProveedor);
+
     function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean;
     procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor);
     function EsEliminable(ARecibo : IBizRecibosProveedor): Boolean;
@@ -134,6 +136,8 @@ type
     function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor;
     function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean;
 
+    procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosProveedor);
+
     procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
     procedure QuitarRemesa(ARecibos : IBizRecibosProveedor);
     procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor);
@@ -229,6 +233,44 @@ begin
   FiltrarEmpresa(Result);
 end;
 
+procedure TRecibosProveedorController.CopiarDireccion(const ADireccionEnvio: IBizDireccionesContacto;
+  ARecibo: IBizRecibosProveedor);
+var
+  bEnEdicion : Boolean;
+begin
+  if not Assigned(ARecibo) then
+    raise Exception.Create ('Recibo no asignado (CopiarDireccion)');
+
+  if not Assigned(ADireccionEnvio) then
+    raise Exception.Create ('No se ha indicado la dirección (CopiarDireccion)');
+
+  if ARecibo.DataTable.Active then
+    ARecibo.DataTable.Active := True;
+
+  if ADireccionEnvio.DataTable.Active then
+    ADireccionEnvio.DataTable.Active := True;
+
+  bEnEdicion := (ARecibo.DataTable.State in dsEditModes);
+  if not bEnEdicion then
+    ARecibo.Edit;
+
+  ShowHourglassCursor;
+  ARecibo.Edit;
+  try
+    ARecibo.CALLE := ADireccionEnvio.CALLE;
+    ARecibo.POBLACION := ADireccionEnvio.POBLACION;
+    ARecibo.CODIGO_POSTAL := ADireccionEnvio.CODIGO_POSTAL;
+    ARecibo.PROVINCIA := ADireccionEnvio.PROVINCIA;
+    ARecibo.NIF_CIF := ADireccionEnvio.NIF_CIF;
+    ARecibo.NOMBRE := ADireccionEnvio.NOMBRE;
+
+    if not bEnEdicion then
+      ARecibo.Post;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 constructor TRecibosProveedorController.Create;
 begin
   inherited;

Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dproj

@@ -42,16 +42,16 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <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="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">RecibosProveedor_data.dpk</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><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">RecibosProveedor_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="RecibosProveedor_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Base.dcp" />
+    <DCCReference Include="..\..\Lib\Base.dcp" />
-    <DCCReference Include="..\Contactos_model.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_model.dcp" />
-    <DCCReference Include="..\RecibosProveedor_model.dcp" />
+    <DCCReference Include="..\..\Lib\RecibosProveedor_model.dcp" />
     <DCCReference Include="uDataModuleRecibosProveedor.pas" />
   </ItemGroup>
 </Project>

Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm

@@ -169,6 +169,24 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         Name = 'ID_FACTURA'
         DataType = datInteger
       end
+      item
+        Name = 'REFERENCIA_FACTURA_PROV'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'FECHA_FACTURA'
+        DataType = datDateTime
+      end
+      item
+        Name = 'FORMA_PAGO_FACTURA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'IMPORTE_FACTURA'
+        DataType = datCurrency
+      end
       item
         Name = 'ID_REMESA'
         DataType = datInteger
@@ -208,24 +226,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         Name = 'IMPORTE_TOTAL'
         DataType = datCurrency
       end
-      item
-        Name = 'REFERENCIA_FACTURA_PROV'
-        DataType = datString
-        Size = 255
-      end
-      item
-        Name = 'FECHA_FACTURA'
-        DataType = datDateTime
-      end
-      item
-        Name = 'FORMA_PAGO_FACTURA'
-        DataType = datString
-        Size = 255
-      end
-      item
-        Name = 'IMPORTE_FACTURA'
-        DataType = datCurrency
-      end
       item
         Name = 'ID_EMPRESA'
         DataType = datInteger
@@ -239,11 +239,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         DataType = datString
         Size = 255
       end
-      item
-        Name = 'NIF_CIF_PROVEEDOR'
-        DataType = datString
-        Size = 15
-      end
       item
         Name = 'ENTIDAD_PROVEEDOR'
         DataType = datString
@@ -264,6 +259,36 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         DataType = datString
         Size = 15
       end
+      item
+        Name = 'NIF_CIF'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'NOMBRE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'CALLE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'POBLACION'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'CODIGO_POSTAL'
+        DataType = datString
+        Size = 10
+      end
+      item
+        Name = 'PROVINCIA'
+        DataType = datString
+        Size = 255
+      end
       item
         Name = 'FECHA_ALTA'
         DataType = datDateTime
@@ -285,26 +310,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         Name = 'TIENDA'
         DataType = datString
         Size = 255
-      end
-      item
-        Name = 'CALLE_PROVEEDOR'
-        DataType = datString
-        Size = 255
-      end
-      item
-        Name = 'POBLACION_PROVEEDOR'
-        DataType = datString
-        Size = 255
-      end
-      item
-        Name = 'CODIGO_POSTAL_PROVEEDOR'
-        DataType = datString
-        Size = 10
-      end
-      item
-        Name = 'PROVINCIA_PROVEEDOR'
-        DataType = datString
-        Size = 255
       end>
     Params = <>
     MasterMappingMode = mmWhere
@@ -373,6 +378,30 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         DataType = datInteger
         DictionaryEntry = 'RecibosProveedor_ID_FACTURA'
       end
+      item
+        Name = 'REFERENCIA_FACTURA_PROV'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Ref. factura prov.'
+        DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV'
+      end
+      item
+        Name = 'FECHA_FACTURA'
+        DataType = datDateTime
+        DictionaryEntry = 'RecibosProveedor_FECHA_FACTURA'
+      end
+      item
+        Name = 'FORMA_PAGO_FACTURA'
+        DataType = datString
+        Size = 255
+        DictionaryEntry = 'RecibosProveedor_FORMA_PAGO_FACTURA'
+      end
+      item
+        Name = 'IMPORTE_FACTURA'
+        DataType = datCurrency
+        Alignment = taRightJustify
+        DictionaryEntry = 'RecibosProveedor_IMPORTE_FACTURA'
+      end
       item
         Name = 'ID_REMESA'
         DataType = datInteger
@@ -426,30 +455,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         Alignment = taRightJustify
         DictionaryEntry = 'RecibosProveedor_IMPORTE_TOTAL'
       end
-      item
-        Name = 'REFERENCIA_FACTURA_PROV'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'Ref. factura prov.'
-        DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV'
-      end
-      item
-        Name = 'FECHA_FACTURA'
-        DataType = datDateTime
-        DictionaryEntry = 'RecibosProveedor_FECHA_FACTURA'
-      end
-      item
-        Name = 'FORMA_PAGO_FACTURA'
-        DataType = datString
-        Size = 255
-        DictionaryEntry = 'RecibosProveedor_FORMA_PAGO_FACTURA'
-      end
-      item
-        Name = 'IMPORTE_FACTURA'
-        DataType = datCurrency
-        Alignment = taRightJustify
-        DictionaryEntry = 'RecibosProveedor_IMPORTE_FACTURA'
-      end
       item
         Name = 'ID_EMPRESA'
         DataType = datInteger
@@ -468,13 +473,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         DisplayLabel = 'RecibosProveedor_NOMBRE_PROVEEDOR'
         DictionaryEntry = 'RecibosProveedor_NOMBRE_PROVEEDOR'
       end
-      item
-        Name = 'NIF_CIF_PROVEEDOR'
-        DataType = datString
-        Size = 15
-        DisplayLabel = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
-        DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
-      end
       item
         Name = 'ENTIDAD_PROVEEDOR'
         DataType = datString
@@ -503,6 +501,36 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         DisplayLabel = 'RecibosProveedor_CUENTA_PROVEEDOR'
         DictionaryEntry = 'RecibosProveedor_CUENTA_PROVEEDOR'
       end
+      item
+        Name = 'NIF_CIF'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'NOMBRE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'CALLE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'POBLACION'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'CODIGO_POSTAL'
+        DataType = datString
+        Size = 10
+      end
+      item
+        Name = 'PROVINCIA'
+        DataType = datString
+        Size = 255
+      end
       item
         Name = 'FECHA_ALTA'
         DataType = datDateTime
@@ -527,26 +555,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         Name = 'TIENDA'
         DataType = datString
         Size = 255
-      end
-      item
-        Name = 'CALLE_PROVEEDOR'
-        DataType = datString
-        Size = 255
-      end
-      item
-        Name = 'POBLACION_PROVEEDOR'
-        DataType = datString
-        Size = 255
-      end
-      item
-        Name = 'CODIGO_POSTAL_PROVEEDOR'
-        DataType = datString
-        Size = 10
-      end
-      item
-        Name = 'PROVINCIA_PROVEEDOR'
-        DataType = datString
-        Size = 255
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.dproj

@@ -40,73 +40,32 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject> <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">RecibosProveedor_model.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">RecibosProveedor_model.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="RecibosProveedor_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="..\..\Lib\adortl.dcp" />
-    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="..\..\Lib\Base.dcp" />
-    <DCCReference Include="Contactos_model.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_model.dcp" />
-    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\dbrtl.dcp" />
+    <DCCReference Include="..\..\Lib\dsnap.dcp" />
+    <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\rtl.dcp" />
+    <DCCReference Include="..\..\Lib\vcl.dcp" />
+    <DCCReference Include="..\..\Lib\vcldb.dcp" />
     <DCCReference Include="Data\uIDataModuleRecibosProveedor.pas" />
     <DCCReference Include="Data\uIDataModuleRecibosProveedorReport.pas" />
-    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="schRecibosProveedorClient_Intf.pas" />
     <DCCReference Include="schRecibosProveedorServer_Intf.pas" />
     <DCCReference Include="uBizPagosProveedor.pas" />
     <DCCReference Include="uBizRecibosProvCompensados.pas" />
     <DCCReference Include="uBizRecibosProveedor.pas" />
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vcldb.dcp" />
   </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006

Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas

@@ -168,14 +168,14 @@ begin
       FProveedor.DataTable.Active := True;
 
     ID_PROVEEDOR := FProveedor.ID;
-    NOMBRE_PROVEEDOR := FProveedor.NOMBRE;
+    //El proveedor puede tener un nombre por el ce se le conoce y luego un nombre_comercial
-    NIF_CIF_PROVEEDOR := FProveedor.NIF_CIF;
+    //caso de elegir la dirección principal del proveedor para el recibo, se cogerá el nombre_comercial para los datos fiscales
-
+    NOMBRE := FProveedor.NOMBRE_COMERCIAL;
-{    CALLE := FCliente.CALLE;
+    NIF_CIF := FProveedor.NIF_CIF;
-    CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
+    CALLE := FProveedor.CALLE;
-    PROVINCIA := FCliente.PROVINCIA;
+    CODIGO_POSTAL := FProveedor.CODIGO_POSTAL;
-    POBLACION := FCliente.POBLACION;
+    PROVINCIA := FProveedor.PROVINCIA;
-}
+    POBLACION := FProveedor.POBLACION;
     Post;
 
     if bEnEdicion then

Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.dproj

@@ -41,50 +41,7 @@
     <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><Excluded_Packages>
-      <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>
-    <Excluded_Packages>
-      
-      
-      
-      
-      
-      
       
       
       
@@ -95,11 +52,7 @@
       
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
       <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
-    </Excluded_Packages>
+    </Excluded_Packages><Source><Source Name="MainSource">RecibosProveedor_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-    <Source>
-      <Source Name="MainSource">RecibosProveedor_plugin.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
@@ -113,7 +66,6 @@
     </DCCReference>
   </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006

Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.rc

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

Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj

@@ -10,6 +10,7 @@
     <Projects Include="..\..\GUIBase\GUIBase.dproj" />
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
     <Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
+    <Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
     <Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" />
     <Projects Include="..\Recibos de cliente\Data\RecibosCliente_data.dproj" />
@@ -161,14 +162,23 @@
   <Target Name="Contabilidad_view:Make">
     <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="Contactos_controller">
+    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="Contactos_controller:Clean">
+    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Contactos_controller:Make">
+    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server;RecibosCliente_data;RecibosCliente_view;Contactos_view;RecibosCliente_controller;Contabilidad_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server;RecibosCliente_data;RecibosCliente_view;Contactos_view;RecibosCliente_controller;Contabilidad_view;Contactos_controller" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_data:Clean;RecibosCliente_view:Clean;Contactos_view:Clean;RecibosCliente_controller:Clean;Contabilidad_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_data:Clean;RecibosCliente_view:Clean;Contactos_view:Clean;RecibosCliente_controller:Clean;Contabilidad_view:Clean;Contactos_controller:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_data:Make;RecibosCliente_view:Make;Contactos_view:Make;RecibosCliente_controller:Make;Contabilidad_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_data:Make;RecibosCliente_view:Make;Contactos_view:Make;RecibosCliente_controller:Make;Contabilidad_view:Make;Contactos_controller:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm

@@ -113,10 +113,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
                 DatasetField = 'NOMBRE_PROVEEDOR'
                 TableField = 'NOMBRE_PROVEEDOR'
               end
-              item
-                DatasetField = 'NIF_CIF_PROVEEDOR'
-                TableField = 'NIF_CIF_PROVEEDOR'
-              end
               item
                 DatasetField = 'ENTIDAD_PROVEEDOR'
                 TableField = 'ENTIDAD_PROVEEDOR'
@@ -154,20 +150,28 @@ object srvRecibosProveedor: TsrvRecibosProveedor
                 TableField = 'TIENDA'
               end
               item
-                DatasetField = 'CALLE_PROVEEDOR'
+                DatasetField = 'NIF_CIF'
-                TableField = 'CALLE_PROVEEDOR'
+                TableField = 'NIF_CIF'
               end
               item
-                DatasetField = 'POBLACION_PROVEEDOR'
+                DatasetField = 'NOMBRE'
-                TableField = 'POBLACION_PROVEEDOR'
+                TableField = 'NOMBRE'
               end
               item
-                DatasetField = 'CODIGO_POSTAL_PROVEEDOR'
+                DatasetField = 'CALLE'
-                TableField = 'CODIGO_POSTAL_PROVEEDOR'
+                TableField = 'CALLE'
               end
               item
-                DatasetField = 'PROVINCIA_PROVEEDOR'
+                DatasetField = 'POBLACION'
-                TableField = 'PROVINCIA_PROVEEDOR'
+                TableField = 'POBLACION'
+              end
+              item
+                DatasetField = 'CODIGO_POSTAL'
+                TableField = 'CODIGO_POSTAL'
+              end
+              item
+                DatasetField = 'PROVINCIA'
+                TableField = 'PROVINCIA'
               end>
           end>
         Name = 'RecibosCompensadosProv'
@@ -207,6 +211,24 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Name = 'ID_FACTURA'
             DataType = datInteger
           end
+          item
+            Name = 'REFERENCIA_FACTURA_PROV'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'FECHA_FACTURA'
+            DataType = datDateTime
+          end
+          item
+            Name = 'FORMA_PAGO_FACTURA'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'IMPORTE_FACTURA'
+            DataType = datCurrency
+          end
           item
             Name = 'ID_REMESA'
             DataType = datInteger
@@ -246,24 +268,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Name = 'IMPORTE_TOTAL'
             DataType = datCurrency
           end
-          item
-            Name = 'REFERENCIA_FACTURA_PROV'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'FECHA_FACTURA'
-            DataType = datDateTime
-          end
-          item
-            Name = 'FORMA_PAGO_FACTURA'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'IMPORTE_FACTURA'
-            DataType = datCurrency
-          end
           item
             Name = 'ID_EMPRESA'
             DataType = datInteger
@@ -277,11 +281,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             DataType = datString
             Size = 255
           end
-          item
-            Name = 'NIF_CIF_PROVEEDOR'
-            DataType = datString
-            Size = 15
-          end
           item
             Name = 'ENTIDAD_PROVEEDOR'
             DataType = datString
@@ -302,6 +301,36 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             DataType = datString
             Size = 15
           end
+          item
+            Name = 'NIF_CIF'
+            DataType = datString
+            Size = 15
+          end
+          item
+            Name = 'NOMBRE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'CALLE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'POBLACION'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'CODIGO_POSTAL'
+            DataType = datString
+            Size = 10
+          end
+          item
+            Name = 'PROVINCIA'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'FECHA_ALTA'
             DataType = datDateTime
@@ -323,26 +352,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Name = 'TIENDA'
             DataType = datString
             Size = 255
-          end
-          item
-            Name = 'CALLE_PROVEEDOR'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'POBLACION_PROVEEDOR'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'CODIGO_POSTAL_PROVEEDOR'
-            DataType = datString
-            Size = 10
-          end
-          item
-            Name = 'PROVINCIA_PROVEEDOR'
-            DataType = datString
-            Size = 255
           end>
       end
       item
@@ -445,10 +454,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
                 DatasetField = 'NOMBRE_PROVEEDOR'
                 TableField = 'NOMBRE_PROVEEDOR'
               end
-              item
-                DatasetField = 'NIF_CIF_PROVEEDOR'
-                TableField = 'NIF_CIF_PROVEEDOR'
-              end
               item
                 DatasetField = 'ENTIDAD_PROVEEDOR'
                 TableField = 'ENTIDAD_PROVEEDOR'
@@ -486,20 +491,28 @@ object srvRecibosProveedor: TsrvRecibosProveedor
                 TableField = 'TIENDA'
               end
               item
-                DatasetField = 'CALLE_PROVEEDOR'
+                DatasetField = 'NIF_CIF'
-                TableField = 'CALLE_PROVEEDOR'
+                TableField = 'NIF_CIF'
               end
               item
-                DatasetField = 'POBLACION_PROVEEDOR'
+                DatasetField = 'NOMBRE'
-                TableField = 'POBLACION_PROVEEDOR'
+                TableField = 'NOMBRE'
               end
               item
-                DatasetField = 'CODIGO_POSTAL_PROVEEDOR'
+                DatasetField = 'CALLE'
-                TableField = 'CODIGO_POSTAL_PROVEEDOR'
+                TableField = 'CALLE'
               end
               item
-                DatasetField = 'PROVINCIA_PROVEEDOR'
+                DatasetField = 'POBLACION'
-                TableField = 'PROVINCIA_PROVEEDOR'
+                TableField = 'POBLACION'
+              end
+              item
+                DatasetField = 'CODIGO_POSTAL'
+                TableField = 'CODIGO_POSTAL'
+              end
+              item
+                DatasetField = 'PROVINCIA'
+                TableField = 'PROVINCIA'
               end>
           end>
         Name = 'RecibosProveedor'
@@ -545,6 +558,28 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             DataType = datInteger
             DictionaryEntry = 'RecibosProveedor_ID_FACTURA'
           end
+          item
+            Name = 'REFERENCIA_FACTURA_PROV'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV'
+          end
+          item
+            Name = 'FECHA_FACTURA'
+            DataType = datDateTime
+            DictionaryEntry = 'RecibosProveedor_FECHA_FACTURA'
+          end
+          item
+            Name = 'FORMA_PAGO_FACTURA'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'RecibosProveedor_FORMA_PAGO_FACTURA'
+          end
+          item
+            Name = 'IMPORTE_FACTURA'
+            DataType = datCurrency
+            DictionaryEntry = 'RecibosProveedor_IMPORTE_FACTURA'
+          end
           item
             Name = 'ID_REMESA'
             DataType = datInteger
@@ -593,28 +628,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             DataType = datCurrency
             DictionaryEntry = 'RecibosProveedor_IMPORTE_TOTAL'
           end
-          item
-            Name = 'REFERENCIA_FACTURA_PROV'
-            DataType = datString
-            Size = 255
-            DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV'
-          end
-          item
-            Name = 'FECHA_FACTURA'
-            DataType = datDateTime
-            DictionaryEntry = 'RecibosProveedor_FECHA_FACTURA'
-          end
-          item
-            Name = 'FORMA_PAGO_FACTURA'
-            DataType = datString
-            Size = 255
-            DictionaryEntry = 'RecibosProveedor_FORMA_PAGO_FACTURA'
-          end
-          item
-            Name = 'IMPORTE_FACTURA'
-            DataType = datCurrency
-            DictionaryEntry = 'RecibosProveedor_IMPORTE_FACTURA'
-          end
           item
             Name = 'ID_EMPRESA'
             DataType = datInteger
@@ -631,12 +644,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Size = 255
             DictionaryEntry = 'RecibosProveedor_NOMBRE_PROVEEDOR'
           end
-          item
-            Name = 'NIF_CIF_PROVEEDOR'
-            DataType = datString
-            Size = 15
-            DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
-          end
           item
             Name = 'ENTIDAD_PROVEEDOR'
             DataType = datString
@@ -661,6 +668,36 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Size = 15
             DictionaryEntry = 'RecibosProveedor_CUENTA_PROVEEDOR'
           end
+          item
+            Name = 'NIF_CIF'
+            DataType = datString
+            Size = 15
+          end
+          item
+            Name = 'NOMBRE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'CALLE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'POBLACION'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'CODIGO_POSTAL'
+            DataType = datString
+            Size = 10
+          end
+          item
+            Name = 'PROVINCIA'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'FECHA_ALTA'
             DataType = datDateTime
@@ -685,26 +722,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Name = 'TIENDA'
             DataType = datString
             Size = 255
-          end
-          item
-            Name = 'CALLE_PROVEEDOR'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'POBLACION_PROVEEDOR'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'CODIGO_POSTAL_PROVEEDOR'
-            DataType = datString
-            Size = 10
-          end
-          item
-            Name = 'PROVINCIA_PROVEEDOR'
-            DataType = datString
-            Size = 255
           end>
       end
       item
@@ -952,6 +969,30 @@ object srvRecibosProveedor: TsrvRecibosProveedor
           item
             Name = 'ID_TIENDA'
             Value = ''
+          end
+          item
+            Name = 'NOMBRE'
+            Value = ''
+          end
+          item
+            Name = 'NIF_CIF'
+            Value = ''
+          end
+          item
+            Name = 'CALLE'
+            Value = ''
+          end
+          item
+            Name = 'POBLACION'
+            Value = ''
+          end
+          item
+            Name = 'PROVINCIA'
+            Value = ''
+          end
+          item
+            Name = 'CODIGO_POSTAL'
+            Value = ''
           end>
         Statements = <
           item
@@ -961,10 +1002,12 @@ object srvRecibosProveedor: TsrvRecibosProveedor
               'INSERT'#10'  INTO RECIBOS_PROVEEDOR'#10'    (ID, ID_EMPRESA, ID_PROVEEDO' +
               'R, ID_FACTURA, REFERENCIA, REFERENCIA_PROVEEDOR, FECHA_EMISION, ' +
               'FECHA_VENCIMIENTO, DESCRIPCION, OBSERVACIONES,'#10'    IMPORTE, OTRO' +
-              'S_GASTOS, USUARIO, ID_TIENDA)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :I' +
+              'S_GASTOS, USUARIO, ID_TIENDA, NOMBRE, NIF_CIF, CALLE, POBLACION,' +
-              'D_PROVEEDOR, :ID_FACTURA, :REFERENCIA, :REFERENCIA_PROVEEDOR, :F' +
+              ' PROVINCIA, CODIGO_POSTAL)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :ID_P' +
-              'ECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSERVACIONES,'#10 +
+              'ROVEEDOR, :ID_FACTURA, :REFERENCIA, :REFERENCIA_PROVEEDOR, :FECH' +
-              '    :IMPORTE, :OTROS_GASTOS, :USUARIO, :ID_TIENDA)'#10'    '#10'    '#10'   ' +
+              'A_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSERVACIONES,'#10'   ' +
+              ' :IMPORTE, :OTROS_GASTOS, :USUARIO, :ID_TIENDA, :NOMBRE, :NIF_CI' +
+              'F, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL)'#10'    '#10'    '#10'   ' +
               ' '#10#10
             StatementType = stSQL
             ColumnMappings = <>
@@ -1039,6 +1082,30 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Name = 'ID_TIENDA'
             Value = ''
           end
+          item
+            Name = 'NOMBRE'
+            Value = ''
+          end
+          item
+            Name = 'NIF_CIF'
+            Value = ''
+          end
+          item
+            Name = 'CALLE'
+            Value = ''
+          end
+          item
+            Name = 'POBLACION'
+            Value = ''
+          end
+          item
+            Name = 'PROVINCIA'
+            Value = ''
+          end
+          item
+            Name = 'CODIGO_POSTAL'
+            Value = ''
+          end
           item
             Name = 'OLD_ID'
             Value = ''
@@ -1054,8 +1121,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor
               'VENCIMIENTO = :FECHA_VENCIMIENTO,'#10'    DESCRIPCION = :DESCRIPCION' +
               ','#10'    OBSERVACIONES = :OBSERVACIONES,'#10'    ID_REMESA = :ID_REMESA' +
               ','#10'    IMPORTE = :IMPORTE,'#10'    OTROS_GASTOS = :OTROS_GASTOS,'#10'    ' +
-              'USUARIO = :USUARIO,'#10'    ID_TIENDA = :ID_TIENDA'#10'  WHERE'#10'    (ID =' +
+              'USUARIO = :USUARIO,'#10'    ID_TIENDA = :ID_TIENDA,'#10'    NOMBRE = :NO' +
-              ' :OLD_ID)'#10
+              'MBRE,'#10'    NIF_CIF = :NIF_CIF,'#10'    CALLE = :CALLE,'#10'    POBLACION ' +
+              '= :POBLACION,'#10'    PROVINCIA = :PROVINCIA,'#10'    CODIGO_POSTAL = :C' +
+              'ODIGO_POSTAL'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>

Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_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>{74e7da8d-38a8-404c-b92c-c3a913b30982}</ProjectGuid>
     <MainSource>RecibosProveedor_view.dpk</MainSource>
@@ -39,19 +40,40 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <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="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">RecibosProveedor_view.dpk</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><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">RecibosProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="RecibosProveedor_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\..\Lib\adortl.dcp" />
     <DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
     <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
+    <DCCReference Include="..\..\Lib\cxDataD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\dbrtl.dcp" />
+    <DCCReference Include="..\..\Lib\dsnap.dcp" />
+    <DCCReference Include="..\..\Lib\dxComnD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
     <DCCReference Include="..\..\Lib\GUIBase.dcp" />
     <DCCReference Include="..\..\Lib\JvGlobusD11R.dcp" />
+    <DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
+    <DCCReference Include="..\..\Lib\PNG_D10.dcp" />
     <DCCReference Include="..\..\Lib\RecibosProveedor_controller.dcp" />
     <DCCReference Include="..\..\Lib\RecibosProveedor_model.dcp" />
+    <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\rtl.dcp" />
+    <DCCReference Include="..\..\Lib\vcl.dcp" />
+    <DCCReference Include="..\..\Lib\vclactnband.dcp" />
+    <DCCReference Include="..\..\Lib\vcldb.dcp" />
+    <DCCReference Include="..\..\Lib\vcljpg.dcp" />
+    <DCCReference Include="..\..\Lib\vclx.dcp" />
     <DCCReference Include="uEditorElegirRecibosProveedor.pas">
       <Form>fEditorElegirRecibosProveedor</Form>
       <DesignClass>TfEditorElegirRecibosProveedor</DesignClass>
@@ -76,6 +98,10 @@
       <Form>frViewPagosProveedor</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewProveedorRecibo.pas">
+      <Form>frViewProveedorRecibo</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewReciboProveedor.pas">
       <Form>frViewReciboProveedor</Form>
       <DesignClass>TFrame</DesignClass>

Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm

@@ -101,58 +101,24 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
             Width = 274
           end
           inherited eFechaEmision: TcxDBTextEdit
-            Left = 481
+            Left = 383
-            ExplicitLeft = 481
+            ExplicitLeft = 383
             ExplicitWidth = 20
             Width = 20
           end
-          inherited eFormaPago: TcxDBTextEdit
-            Left = 481
-            ExplicitLeft = 481
-            ExplicitWidth = 42
-            Width = 42
-          end
           inherited eImporteTotal: TcxDBCurrencyEdit
-            Left = 481
+            Left = 383
             Style.IsFontAssigned = True
-            ExplicitLeft = 481
+            ExplicitLeft = 383
             ExplicitWidth = 182
             Width = 182
           end
           inherited eNombreCliente: TcxDBTextEdit
-            Left = 481
+            Left = 383
-            ExplicitLeft = 481
+            ExplicitLeft = 383
             ExplicitWidth = 171
             Width = 171
           end
-          inherited eNifCif: TcxDBTextEdit
-            Left = 481
-            ExplicitLeft = 481
-            ExplicitWidth = 255
-            Width = 255
-          end
-          inherited eEntidad: TcxDBTextEdit
-            Left = 481
-            ExplicitLeft = 481
-            ExplicitWidth = 90
-            Width = 90
-          end
-          inherited eSucursal: TcxDBTextEdit
-            Left = 556
-            ExplicitLeft = 556
-            ExplicitWidth = 75
-            Width = 75
-          end
-          inherited eDC: TcxDBTextEdit
-            Left = 605
-            ExplicitLeft = 605
-          end
-          inherited eCuenta: TcxDBTextEdit
-            Left = 481
-            ExplicitLeft = 481
-            ExplicitWidth = 83
-            Width = 83
-          end
           inherited eRemesa: TcxDBTextEdit
             ExplicitWidth = 113
             Width = 113
@@ -166,8 +132,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
             Width = 129
           end
           inherited rReferenciaFacturaProv: TcxDBTextEdit
-            Left = 481
+            Left = 383
-            ExplicitLeft = 481
+            ExplicitLeft = 383
             ExplicitWidth = 157
             Width = 157
           end
@@ -175,45 +141,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
             ExplicitWidth = 216
             Width = 216
           end
-          inherited frViewProveedorRecibo: TfrViewDatosYSeleccionProveedor
-            Left = 384
-            Top = 299
-            Width = 350
-            ExplicitLeft = 384
-            ExplicitTop = 299
-            ExplicitWidth = 350
-            inherited dxLayoutControl1: TdxLayoutControl
-              Width = 350
-              inherited edtlNombre: TcxDBTextEdit
-                ExplicitWidth = 276
-                Width = 276
-              end
-              inherited edtNIFCIF: TcxDBTextEdit
-                ExplicitWidth = 562
-                Width = 562
-              end
-              inherited edtCalle: TcxDBTextEdit
-                ExplicitWidth = 562
-                Width = 562
-              end
-              inherited edtPoblacion: TcxDBTextEdit
-                ExplicitWidth = 177
-                Width = 177
-              end
-              inherited edtProvincia: TcxDBTextEdit
-                ExplicitWidth = 327
-                Width = 327
-              end
-              inherited edtCodigoPostal: TcxDBTextEdit
-                Left = 203
-                ExplicitLeft = 203
-              end
-              inherited Button3: TBitBtn
-                Left = 87
-                ExplicitLeft = 87
-              end
-            end
-          end
           inherited frViewTienda1: TfrViewTienda
             Width = 451
             ExplicitWidth = 451
@@ -229,6 +156,60 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
             ExplicitWidth = 407
             Width = 407
           end
+          inherited eNifCif: TcxDBTextEdit
+            Left = 383
+            ExplicitLeft = 383
+            ExplicitWidth = 255
+            Width = 255
+          end
+          inherited frViewProveedorRecibo1: TfrViewProveedorRecibo
+            Left = 286
+            Width = 350
+            ExplicitLeft = 286
+            ExplicitWidth = 350
+            inherited dxLayoutControl1: TdxLayoutControl
+              Width = 350
+              ExplicitWidth = 350
+              inherited edtlNombre: TcxDBTextEdit
+                DataBinding.DataSource = frViewReciboProveedor1.DADataSource
+                ExplicitWidth = 276
+                Width = 276
+              end
+              inherited edtNIFCIF: TcxDBTextEdit
+                DataBinding.DataSource = frViewReciboProveedor1.DADataSource
+                ExplicitWidth = 562
+                Width = 562
+              end
+              inherited edtCalle: TcxDBTextEdit
+                DataBinding.DataSource = frViewReciboProveedor1.DADataSource
+                ExplicitWidth = 562
+                Width = 562
+              end
+              inherited edtPoblacion: TcxDBTextEdit
+                DataBinding.DataSource = frViewReciboProveedor1.DADataSource
+                ExplicitWidth = 177
+                Width = 177
+              end
+              inherited edtProvincia: TcxDBTextEdit
+                DataBinding.DataSource = frViewReciboProveedor1.DADataSource
+                ExplicitWidth = 327
+                Width = 327
+              end
+              inherited edtCodigoPostal: TcxDBTextEdit
+                Left = 260
+                DataBinding.DataSource = frViewReciboProveedor1.DADataSource
+                ExplicitLeft = 260
+              end
+              inherited Button3: TBitBtn
+                Left = 144
+                ExplicitLeft = 144
+              end
+              inherited cxDBTextEdit1: TcxDBTextEdit
+                ExplicitWidth = 283
+                Width = 283
+              end
+            end
+          end
         end
       end
     end
@@ -386,6 +367,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
       inherited eImporte: TcxDBCurrencyEdit
         DataBinding.DataSource = dsDataTable
         Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged
+        ExplicitWidth = 150
+        Width = 150
       end
       inherited eOtrosGastos: TcxDBCurrencyEdit
         DataBinding.DataSource = dsDataTable

Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas

@@ -71,7 +71,8 @@ type
 
 implementation
 
-uses schRecibosProveedorClient_Intf, uEditorFechaPagoProveedor, uEditorBase, uFactuGES_App;
+uses schRecibosProveedorClient_Intf, uEditorFechaPagoProveedor, uEditorBase, uFactuGES_App,
+  uProveedoresController, uBizDireccionesContacto, uViewProveedorRecibo;
 
 {$R *.dfm}
 
@@ -333,8 +334,37 @@ begin
 end;
 
 procedure TfEditorReciboProveedor.OnProveedorChanged(Sender: TObject);
+var
+  AProveedoresController : IProveedoresController;
+  ADireccion : IBizDireccionesContacto;
+
 begin
-  FRecibo.Proveedor := frViewReciboProveedor1.frViewProveedorRecibo.Proveedor;
+  FRecibo.Proveedor := frViewReciboProveedor1.frViewProveedorRecibo1.Proveedor;
+
+  if not (FRecibo.DataTable.State in dsEditModes) then
+     FRecibo.DataTable.Edit;
+
+  // En el caso de tener direcciones asociadas, se debe dar la posibilidad de elegir la dirección principal o las secundarias para el recibo
+  AProveedoresController := TProveedoresController.Create;
+  try
+    case FRecibo.Proveedor.Direcciones.RecordCount of
+    0   : //No hay direcciones secundarias asociadas
+    else  ADireccion := AProveedoresController.ElegirDireccion(FRecibo.Proveedor, 'Seleccione la dirección del proveedor que quiere utilizar como dirección fiscal de este recibo.');
+    end;
+
+    // Si hay dirección seleccionada, copiarla al albarán y poner el coste del porte
+    if Assigned(ADireccion) then
+    begin
+      try
+       FRecibo.Edit;
+       FController.CopiarDireccion(ADireccion, FRecibo);
+      finally
+       ADireccion := NIL;
+      end;
+    end
+  finally
+    AProveedoresController := Nil;
+  end;
 end;
 
 procedure TfEditorReciboProveedor.PonerTitulos(const ATitulo: string);
@@ -385,8 +415,8 @@ begin
   if Assigned(FViewRecibo) and Assigned(Recibo) then
   begin
     FViewRecibo.Recibo := Recibo;
-    frViewReciboProveedor1.frViewProveedorRecibo.Proveedor := FRecibo.Proveedor;
+    frViewReciboProveedor1.frViewProveedorRecibo1.Proveedor := FRecibo.Proveedor;
-    frViewReciboProveedor1.frViewProveedorRecibo.OnProveedorChanged := OnProveedorChanged;
+    frViewReciboProveedor1.frViewProveedorRecibo1.OnProveedorChanged := OnProveedorChanged;
 
     frViewPagosProveedor1.Pagos := Recibo.Pagos;
     frViewRecibosProvCompensados1.ReciboProveedor := FRecibo;

Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm

@@ -1,21 +1,21 @@
 inherited frViewReciboProveedor: TfrViewReciboProveedor
-  Width = 985
+  Width = 811
-  Height = 553
+  Height = 524
-  ExplicitWidth = 985
+  ExplicitWidth = 811
-  ExplicitHeight = 553
+  ExplicitHeight = 524
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 985
+    Width = 811
-    Height = 553
+    Height = 524
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
     DesignSize = (
-      985
+      811
-      553)
+      524)
     object eReferencia: TcxDBTextEdit
       Left = 136
       Top = 30
@@ -106,10 +106,10 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 9
       Height = 49
-      Width = 300
+      Width = 200
     end
     object eFechaEmision: TcxDBTextEdit
-      Left = 764
+      Left = 529
       Top = 57
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_FACTURA'
@@ -134,35 +134,9 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       TabOrder = 11
       Width = 20
     end
-    object eFormaPago: TcxDBTextEdit
-      Left = 764
-      Top = 84
-      Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'FORMA_PAGO_FACTURA'
-      DataBinding.DataSource = DADataSource
-      Enabled = False
-      Properties.ReadOnly = False
-      Properties.ValidateOnEnter = True
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.Color = clInfoBk
-      Style.HotTrack = False
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      StyleDisabled.Color = clMenuBar
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.TextColor = clWindowText
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 12
-      Width = 42
-    end
     object eImporteTotal: TcxDBCurrencyEdit
-      Left = 764
+      Left = 529
-      Top = 111
+      Top = 138
       AutoSize = False
       DataBinding.DataField = 'IMPORTE_FACTURA'
       DataBinding.DataSource = DADataSource
@@ -188,15 +162,15 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 13
+      TabOrder = 14
       Height = 21
       Width = 182
     end
     object eNombreCliente: TcxDBTextEdit
-      Left = 764
+      Left = 529
-      Top = 194
+      Top = 111
       Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'NOMBRE_PROVEEDOR'
+      DataBinding.DataField = 'NOMBRE'
       DataBinding.DataSource = DADataSource
       Enabled = False
       Properties.ReadOnly = False
@@ -215,139 +189,9 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 15
+      TabOrder = 13
       Width = 171
     end
-    object eNifCif: TcxDBTextEdit
-      Left = 764
-      Top = 167
-      Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'NIF_CIF_PROVEEDOR'
-      DataBinding.DataSource = DADataSource
-      Enabled = False
-      Properties.ReadOnly = False
-      Properties.ValidateOnEnter = True
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.Color = clInfoBk
-      Style.HotTrack = False
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      StyleDisabled.Color = clMenuBar
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.TextColor = clWindowText
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 14
-      Width = 147
-    end
-    object eEntidad: TcxDBTextEdit
-      Left = 764
-      Top = 221
-      Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'ENTIDAD_PROVEEDOR'
-      DataBinding.DataSource = DADataSource
-      Enabled = False
-      Properties.ReadOnly = False
-      Properties.ValidateOnEnter = True
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.Color = clInfoBk
-      Style.HotTrack = False
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      StyleDisabled.Color = clMenuBar
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.TextColor = clWindowText
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 16
-      Width = 90
-    end
-    object eSucursal: TcxDBTextEdit
-      Left = 859
-      Top = 221
-      Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'SUCURSAL_PROVEEDOR'
-      DataBinding.DataSource = DADataSource
-      Enabled = False
-      Properties.ReadOnly = False
-      Properties.ValidateOnEnter = True
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.Color = clInfoBk
-      Style.HotTrack = False
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      StyleDisabled.Color = clMenuBar
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.TextColor = clWindowText
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 17
-      Width = 75
-    end
-    object eDC: TcxDBTextEdit
-      Left = 930
-      Top = 221
-      Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'DC_PROVEEDOR'
-      DataBinding.DataSource = DADataSource
-      Enabled = False
-      Properties.ReadOnly = False
-      Properties.ValidateOnEnter = True
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.Color = clInfoBk
-      Style.HotTrack = False
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      StyleDisabled.Color = clMenuBar
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.TextColor = clWindowText
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 18
-      Width = 33
-    end
-    object eCuenta: TcxDBTextEdit
-      Left = 764
-      Top = 248
-      Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'CUENTA_PROVEEDOR'
-      DataBinding.DataSource = DADataSource
-      Enabled = False
-      Properties.ReadOnly = False
-      Properties.ValidateOnEnter = True
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.Color = clInfoBk
-      Style.HotTrack = False
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      StyleDisabled.Color = clMenuBar
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.TextColor = clWindowText
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 19
-      Width = 83
-    end
     object eRemesa: TcxDBTextEdit
       Left = 136
       Top = 165
@@ -377,7 +221,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       Left = 136
       Top = 84
       Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'FECHA_VENCIMIENTO'
+      DataBinding.DataField = 'FECHA_EMISION'
       DataBinding.DataSource = DADataSource
       Enabled = False
       Properties.ImmediatePost = True
@@ -424,7 +268,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       Width = 287
     end
     object rReferenciaFacturaProv: TcxDBTextEdit
-      Left = 764
+      Left = 529
       Top = 30
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'REFERENCIA_FACTURA_PROV'
@@ -473,50 +317,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 7
-      Width = 216
+      Width = 200
-    end
-    inline frViewProveedorRecibo: TfrViewDatosYSeleccionProveedor
-      Left = 667
-      Top = 312
-      Width = 350
-      Height = 202
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      ParentFont = False
-      TabOrder = 20
-      ReadOnly = False
-      ExplicitLeft = 667
-      ExplicitTop = 312
-      inherited dxLayoutControl1: TdxLayoutControl
-        ExplicitWidth = 296
-        inherited edtNIFCIF: TcxDBTextEdit
-          ExplicitWidth = 562
-          Width = 562
-        end
-        inherited edtCalle: TcxDBTextEdit
-          ExplicitWidth = 562
-          Width = 562
-        end
-        inherited edtPoblacion: TcxDBTextEdit
-          ExplicitWidth = 177
-          Width = 177
-        end
-        inherited edtProvincia: TcxDBTextEdit
-          ExplicitWidth = 327
-          Width = 327
-        end
-        inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 204
-          ExplicitLeft = 204
-        end
-        inherited Button3: TBitBtn
-          Left = 88
-          ExplicitLeft = 88
-        end
-      end
     end
     inline frViewTienda1: TfrViewTienda
       Left = 136
@@ -534,12 +335,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       ExplicitLeft = 136
       ExplicitTop = 294
       inherited dxLayoutControl1: TdxLayoutControl
-        ExplicitWidth = 503
         inherited cbTienda: TcxComboBox
           Left = 10
           ExplicitLeft = 10
-          ExplicitWidth = 376
+          ExplicitWidth = 200
-          Width = 376
+          Width = 200
         end
         inherited dxLayoutControl1Group_Root: TdxLayoutGroup
           inherited dxLayoutControl1Item1: TdxLayoutItem
@@ -574,6 +374,82 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       TabOrder = 6
       Width = 407
     end
+    object eNifCif: TcxDBTextEdit
+      Left = 529
+      Top = 84
+      Anchors = [akLeft, akTop, akRight]
+      DataBinding.DataField = 'NIF_CIF'
+      DataBinding.DataSource = DADataSource
+      Enabled = False
+      Properties.ReadOnly = False
+      Properties.ValidateOnEnter = True
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.Color = clInfoBk
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.Color = clMenuBar
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 12
+      Width = 199
+    end
+    inline frViewProveedorRecibo1: TfrViewProveedorRecibo
+      Left = 432
+      Top = 189
+      Width = 357
+      Height = 318
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 15
+      ReadOnly = False
+      ExplicitLeft = 432
+      ExplicitTop = 189
+      inherited dxLayoutControl1: TdxLayoutControl
+        inherited edtlNombre: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+          ExplicitWidth = 224
+          Width = 224
+        end
+        inherited edtNIFCIF: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+          ExplicitWidth = 562
+          Width = 562
+        end
+        inherited edtCalle: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+          ExplicitWidth = 562
+          Width = 562
+        end
+        inherited edtPoblacion: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+          ExplicitWidth = 177
+          Width = 177
+        end
+        inherited edtProvincia: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+          ExplicitWidth = 327
+          Width = 327
+        end
+        inherited edtCodigoPostal: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+        end
+        inherited cxDBTextEdit1: TcxDBTextEdit
+          ExplicitWidth = 283
+          Width = 283
+        end
+      end
+    end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -663,8 +539,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
         end
       end
       object dxLayoutControl1Group8: TdxLayoutGroup
-        AutoAligns = [aaVertical]
-        AlignHorz = ahClient
         Caption = 'New Group'
         ShowCaption = False
         ShowBorder = False
@@ -683,24 +557,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
             ControlOptions.ShowBorder = False
           end
           object dxLayoutControl1Item8: TdxLayoutItem
-            AutoAligns = [aaVertical]
-            AlignHorz = ahClient
-            Caption = 'Forma pago:'
-            Control = eFormaPago
-            ControlOptions.ShowBorder = False
-          end
-          object dxLayoutControl1Item9: TdxLayoutItem
-            Caption = 'Total factura:'
-            Control = eImporteTotal
-            ControlOptions.ShowBorder = False
-          end
-        end
-        object dxLayoutControlProveedor: TdxLayoutGroup
-          AutoAligns = [aaHorizontal]
-          AlignVert = avClient
-          Caption = 'Datos del proveedor'
-          Offsets.Top = 5
-          object dxLayoutControl1Item11: TdxLayoutItem
             Caption = 'NIF/CIF:'
             Control = eNifCif
             ControlOptions.ShowBorder = False
@@ -710,44 +566,10 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
             Control = eNombreCliente
             ControlOptions.ShowBorder = False
           end
-          object dxLayoutControl1Group4: TdxLayoutGroup
+          object dxLayoutControl1Item9: TdxLayoutItem
-            ShowCaption = False
+            Caption = 'Total factura:'
-            Hidden = True
+            Control = eImporteTotal
-            ShowBorder = False
+            ControlOptions.ShowBorder = False
-            object dxLayoutControl1Group11: TdxLayoutGroup
-              ShowCaption = False
-              Hidden = True
-              LayoutDirection = ldHorizontal
-              ShowBorder = False
-              object dxLayoutControl1Item12: TdxLayoutItem
-                AutoAligns = [aaVertical]
-                AlignHorz = ahClient
-                Caption = 'Entidad:'
-                Control = eEntidad
-                ControlOptions.ShowBorder = False
-              end
-              object dxLayoutControl1Item13: TdxLayoutItem
-                AutoAligns = [aaVertical]
-                AlignHorz = ahClient
-                Caption = 'Sucursal:'
-                Control = eSucursal
-                ControlOptions.ShowBorder = False
-              end
-              object dxLayoutControl1Item14: TdxLayoutItem
-                AutoAligns = [aaVertical]
-                AlignHorz = ahRight
-                Caption = 'DC:'
-                Control = eDC
-                ControlOptions.ShowBorder = False
-              end
-            end
-            object dxLayoutControl1Item15: TdxLayoutItem
-              AutoAligns = [aaVertical]
-              AlignHorz = ahClient
-              Caption = 'C'#243'd. cuenta:'
-              Control = eCuenta
-              ControlOptions.ShowBorder = False
-            end
           end
         end
         object dxLayoutControlProveedorModif: TdxLayoutGroup
@@ -755,7 +577,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
           AlignVert = avClient
           Caption = 'Datos del proveedor'
           object dxLayoutControl1Item6: TdxLayoutItem
-            Control = frViewProveedorRecibo
+            Control = frViewProveedorRecibo1
             ControlOptions.AutoColor = True
             ControlOptions.ShowBorder = False
           end

Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas

@@ -7,7 +7,8 @@ uses
   Dialogs, uViewBase, uBizRecibosProveedor, DB, uDADataTable, dxLayoutControl,
   cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
   cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
-  uDAInterfaces, uCustomView, uViewDatosYSeleccionProveedor, uRecibosProveedorController, uViewTienda;
+  uDAInterfaces, uCustomView, uViewDatosYSeleccionProveedor, uRecibosProveedorController, uViewTienda,
+  uViewProveedorRecibo;
 
 type
   IViewReciboProveedor = interface(IViewBase)
@@ -37,34 +38,19 @@ type
     dxLayoutControl1Group1: TdxLayoutGroup;
     dxLayoutControl1Item7: TdxLayoutItem;
     eFechaEmision: TcxDBTextEdit;
-    dxLayoutControl1Item8: TdxLayoutItem;
-    eFormaPago: TcxDBTextEdit;
     dxLayoutControl1Item9: TdxLayoutItem;
     eImporteTotal: TcxDBCurrencyEdit;
     dxLayoutControlFactura: TdxLayoutGroup;
     dxLayoutControl1Item10: TdxLayoutItem;
     eNombreCliente: TcxDBTextEdit;
-    dxLayoutControl1Item11: TdxLayoutItem;
-    eNifCif: TcxDBTextEdit;
-    dxLayoutControl1Item12: TdxLayoutItem;
-    eEntidad: TcxDBTextEdit;
-    dxLayoutControl1Item13: TdxLayoutItem;
-    eSucursal: TcxDBTextEdit;
-    dxLayoutControl1Item14: TdxLayoutItem;
-    eDC: TcxDBTextEdit;
-    dxLayoutControl1Item15: TdxLayoutItem;
-    eCuenta: TcxDBTextEdit;
-    dxLayoutControlProveedor: TdxLayoutGroup;
     dxLayoutControl1Group8: TdxLayoutGroup;
     dxLayoutControl1Item16: TdxLayoutItem;
     eRemesa: TcxDBTextEdit;
-    dxLayoutControl1Group4: TdxLayoutGroup;
     dxLayoutControl1Group2: TdxLayoutGroup;
     dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
     dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
     dxLayoutControl1Group7: TdxLayoutGroup;
     dxLayoutControl1Group9: TdxLayoutGroup;
-    dxLayoutControl1Group11: TdxLayoutGroup;
     dxLayoutControl1Item19: TdxLayoutItem;
     edtFechaEmision: TcxDBDateEdit;
     dxLayoutControl1Item20: TdxLayoutItem;
@@ -73,14 +59,16 @@ type
     rReferenciaFacturaProv: TcxDBTextEdit;
     dxLayoutControl1Item4: TdxLayoutItem;
     rRefReciboCompensado: TcxDBTextEdit;
-    dxLayoutControl1Item6: TdxLayoutItem;
-    frViewProveedorRecibo: TfrViewDatosYSeleccionProveedor;
     dxLayoutControlProveedorModif: TdxLayoutGroup;
     dxLayoutControl1Item17: TdxLayoutItem;
     frViewTienda1: TfrViewTienda;
     dxLayoutControl1Group3: TdxLayoutGroup;
     dxLayoutControl1Item18: TdxLayoutItem;
     eDescripcion: TcxDBTextEdit;
+    dxLayoutControl1Item8: TdxLayoutItem;
+    eNifCif: TcxDBTextEdit;
+    dxLayoutControl1Item6: TdxLayoutItem;
+    frViewProveedorRecibo1: TfrViewProveedorRecibo;
   private
     FRecibo : IBizRecibosProveedor;
     FController : IRecibosProveedorController;
@@ -118,7 +106,7 @@ begin
   FController := Value;
 
   if Assigned(FController) then
-     frViewProveedorRecibo.Controller := FController.ProveedorController;
+     frViewProveedorRecibo1.Controller := FController.ProveedorController;
 end;
 
 procedure TfrViewReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor);
@@ -127,7 +115,6 @@ begin
 
   //Por defecto
   dxLayoutControlFactura.Visible := true;
-  dxLayoutControlProveedor.Visible := true;
   dxLayoutControlProveedorModif.Visible := false;
   eDescripcion.Enabled := False;
 
@@ -139,7 +126,6 @@ begin
     if FRecibo.SinFactura then
     begin
        dxLayoutControlFactura.Visible := false;
-       dxLayoutControlProveedor.Visible := false;
        dxLayoutControlProveedorModif.Visible := true;
        eDescripcion.Enabled := True;
     end;

Source/Servidor/FactuGES_Server.dpr

@@ -108,16 +108,16 @@ uses
   schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
   schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
   schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
-  schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
-  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
   uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas',
   uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas',
-  schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
-  schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
   schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
   schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
+  schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
+  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
   schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
   schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
+  schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
+  schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
   schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
 

Source/Servidor/FactuGES_Server.dproj

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

Source/Servidor/FactuGES_Server.rc

@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.1.9.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
               VALUE "ProductVersion", "2.1.9.0\0"
-              VALUE "CompileDate", "martes, 15 de abril de 2008 11:15\0"
+              VALUE "CompileDate", "miércoles, 23 de abril de 2008 12:32\0"
          END
     END
     BLOCK "VarFileInfo"