Poder agrupar los albaranes por agente, arreglo de portes y otros detalles

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@211 c93665c3-c93d-084d-9b98-7d5f4a9c3376

Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup

@@ -21,7 +21,8 @@
       <Projects Name="AlbaranesCliente_view.bpl">Views\AlbaranesCliente_view.bdsproj</Projects>
       <Projects Name="AlbaranesCliente_plugin.bpl">Plugin\AlbaranesCliente_plugin.bdsproj</Projects>
       <Projects Name="AlbCli_FacCli_relation.bpl">..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj</Projects>
-      <Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl AlbCli_FacCli_relation.bpl</Projects>
+      <Projects Name="FacturasCliente_view.bpl">..\Facturas de cliente\Views\FacturasCliente_view.bdsproj</Projects>
+      <Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl</Projects>
     </Projects>
     <Dependencies/>
   </Default.Personality>

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas

@@ -1016,7 +1016,6 @@ begin
   AAlbaran.Edit;
   try
     AAlbaran.IMPORTE_NETO := FDetallesController.DarTotalImporteTotal(AAlbaran.Detalles);
-    AAlbaran.IMPORTE_PORTE := FDetallesController.DarTotalPorteTotal(AAlbaran.Detalles);
     if not bEnEdicion then
       AAlbaran.Post;
   finally

Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm

@@ -49,7 +49,7 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
         Name = 'User'
         ParamType = fIn
         DataType = rtString
-        Value = 'Administrador'
+        Value = 'Luis'
       end
       item
         Name = 'Password'
@@ -587,6 +587,33 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
         Calculated = False
         Lookup = False
         LookupCache = False
+      end
+      item
+        Name = 'ID_AGENTE'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'AlbaranesCliente_ID_AGENTE'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'AlbaranesCliente_ID_AGENTE'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'AGENTE'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Agente'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'AlbaranesCliente_AGENTE'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
       end>
     Params = <>
     MasterMappingMode = mmDataRequest

Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas

@@ -9,11 +9,11 @@ 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_DarReferencia = '{8FF21D79-2A38-49A1-9920-59BF9D1A3761}';
+  RID_DarReferencia = '{341025B6-FE72-4C74-BDF0-C3927C245F63}';
-  RID_AlbaranesCliente = '{286BA8B4-1D1A-4A28-92AD-EE389E49F82F}';
+  RID_AlbaranesCliente = '{16CEF413-0B6A-4EF4-93E5-84AA225DFAD4}';
-  RID_AlbaranesCliente_Detalles = '{204AB55B-DFB6-4C06-97FE-ACE0073003D9}';
+  RID_AlbaranesCliente_Detalles = '{D5262A01-1237-4B9B-94C7-69EB0A2EE285}';
-  RID_AlbaranesCliente_Detalles_Refresh = '{DD2DF7C8-E7A8-4460-8124-A68A24FA8708}';
+  RID_AlbaranesCliente_Detalles_Refresh = '{185547D0-70EE-444D-9F66-AD112ED2E6DD}';
-  RID_AlbaranesCliente_Refresh = '{613B4A25-BE5C-4641-920A-A2928969F49C}';
+  RID_AlbaranesCliente_Refresh = '{6B67F077-F0E0-4D9F-81E4-4DA4F11B1D17}';
 
   { Data table names }
   nme_DarReferencia = 'DarReferencia';
@@ -68,6 +68,8 @@ const
   fld_AlbaranesClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
   fld_AlbaranesClienteFECHA_ENVIO = 'FECHA_ENVIO';
   fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION';
+  fld_AlbaranesClienteID_AGENTE = 'ID_AGENTE';
+  fld_AlbaranesClienteAGENTE = 'AGENTE';
 
   { AlbaranesCliente field indexes }
   idx_AlbaranesClienteID = 0;
@@ -109,6 +111,8 @@ const
   idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 36;
   idx_AlbaranesClienteFECHA_ENVIO = 37;
   idx_AlbaranesClienteFECHA_RECEPCION = 38;
+  idx_AlbaranesClienteID_AGENTE = 39;
+  idx_AlbaranesClienteAGENTE = 40;
 
   { AlbaranesCliente_Detalles fields }
   fld_AlbaranesCliente_DetallesID = 'ID';
@@ -214,6 +218,8 @@ const
   fld_AlbaranesCliente_RefreshFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
   fld_AlbaranesCliente_RefreshFECHA_ENVIO = 'FECHA_ENVIO';
   fld_AlbaranesCliente_RefreshFECHA_RECEPCION = 'FECHA_RECEPCION';
+  fld_AlbaranesCliente_RefreshID_AGENTE = 'ID_AGENTE';
+  fld_AlbaranesCliente_RefreshAGENTE = 'AGENTE';
 
   { AlbaranesCliente_Refresh field indexes }
   idx_AlbaranesCliente_RefreshID = 0;
@@ -255,11 +261,13 @@ const
   idx_AlbaranesCliente_RefreshFECHA_PREVISTA_ENVIO = 36;
   idx_AlbaranesCliente_RefreshFECHA_ENVIO = 37;
   idx_AlbaranesCliente_RefreshFECHA_RECEPCION = 38;
+  idx_AlbaranesCliente_RefreshID_AGENTE = 39;
+  idx_AlbaranesCliente_RefreshAGENTE = 40;
 
 type
   { IDarReferencia }
   IDarReferencia = interface(IDAStronglyTypedDataTable)
-  ['{C690B03E-DC7C-40EA-AD23-A11C074ED29D}']
+  ['{C2E7FD79-3AA4-4157-8F79-E6E526FDCC9B}']
     { Property getters and setters }
     function GetVALORValue: String;
     procedure SetVALORValue(const aValue: String);
@@ -288,7 +296,7 @@ type
 
   { IAlbaranesCliente }
   IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
-  ['{FE25F44D-23C6-4BBB-8352-80D4C8666E2B}']
+  ['{E4A33579-0951-4E59-99D3-6F272440FE61}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -368,6 +376,10 @@ type
     procedure SetFECHA_ENVIOValue(const aValue: DateTime);
     function GetFECHA_RECEPCIONValue: DateTime;
     procedure SetFECHA_RECEPCIONValue(const aValue: DateTime);
+    function GetID_AGENTEValue: Integer;
+    procedure SetID_AGENTEValue(const aValue: Integer);
+    function GetAGENTEValue: String;
+    procedure SetAGENTEValue(const aValue: String);
 
 
     { Properties }
@@ -410,6 +422,8 @@ type
     property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
     property FECHA_ENVIO: DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue;
     property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
   end;
 
   { TAlbaranesClienteDataTableRules }
@@ -495,6 +509,10 @@ type
     procedure SetFECHA_ENVIOValue(const aValue: DateTime); virtual;
     function GetFECHA_RECEPCIONValue: DateTime; virtual;
     procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
+    function GetID_AGENTEValue: Integer; virtual;
+    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    function GetAGENTEValue: String; virtual;
+    procedure SetAGENTEValue(const aValue: String); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -536,6 +554,8 @@ type
     property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
     property FECHA_ENVIO: DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue;
     property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -545,7 +565,7 @@ type
 
   { IAlbaranesCliente_Detalles }
   IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{E58F6EA5-0A62-40F4-9E09-6F6D91F8A46D}']
+  ['{97C8D6FE-11E0-4CF1-9B6F-F84B193FB0FB}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -652,7 +672,7 @@ type
 
   { IAlbaranesCliente_Detalles_Refresh }
   IAlbaranesCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{A088060C-CE4F-486A-9311-0DCDCE6216CE}']
+  ['{E9B38B1D-00D3-4E28-AAC2-94A82323A4CC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -759,7 +779,7 @@ type
 
   { IAlbaranesCliente_Refresh }
   IAlbaranesCliente_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{BF8BA7D7-C0A1-47D8-9D69-65EC70584C39}']
+  ['{59B27143-6A32-490E-99D3-EBCA96FEF3E7}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -839,6 +859,10 @@ type
     procedure SetFECHA_ENVIOValue(const aValue: DateTime);
     function GetFECHA_RECEPCIONValue: DateTime;
     procedure SetFECHA_RECEPCIONValue(const aValue: DateTime);
+    function GetID_AGENTEValue: Integer;
+    procedure SetID_AGENTEValue(const aValue: Integer);
+    function GetAGENTEValue: String;
+    procedure SetAGENTEValue(const aValue: String);
 
 
     { Properties }
@@ -881,6 +905,8 @@ type
     property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
     property FECHA_ENVIO: DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue;
     property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
   end;
 
   { TAlbaranesCliente_RefreshDataTableRules }
@@ -966,6 +992,10 @@ type
     procedure SetFECHA_ENVIOValue(const aValue: DateTime); virtual;
     function GetFECHA_RECEPCIONValue: DateTime; virtual;
     procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
+    function GetID_AGENTEValue: Integer; virtual;
+    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    function GetAGENTEValue: String; virtual;
+    procedure SetAGENTEValue(const aValue: String); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -1007,6 +1037,8 @@ type
     property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
     property FECHA_ENVIO: DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue;
     property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1443,6 +1475,26 @@ begin
   DataTable.Fields[idx_AlbaranesClienteFECHA_RECEPCION].AsDateTime := aValue;
 end;
 
+function TAlbaranesClienteDataTableRules.GetID_AGENTEValue: Integer;
+begin
+  result := DataTable.Fields[idx_AlbaranesClienteID_AGENTE].AsInteger;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_AlbaranesClienteID_AGENTE].AsInteger := aValue;
+end;
+
+function TAlbaranesClienteDataTableRules.GetAGENTEValue: String;
+begin
+  result := DataTable.Fields[idx_AlbaranesClienteAGENTE].AsString;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetAGENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_AlbaranesClienteAGENTE].AsString := aValue;
+end;
+
 
 { TAlbaranesCliente_DetallesDataTableRules }
 constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@@ -2151,6 +2203,26 @@ begin
   DataTable.Fields[idx_AlbaranesCliente_RefreshFECHA_RECEPCION].AsDateTime := aValue;
 end;
 
+function TAlbaranesCliente_RefreshDataTableRules.GetID_AGENTEValue: Integer;
+begin
+  result := DataTable.Fields[idx_AlbaranesCliente_RefreshID_AGENTE].AsInteger;
+end;
+
+procedure TAlbaranesCliente_RefreshDataTableRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_AlbaranesCliente_RefreshID_AGENTE].AsInteger := aValue;
+end;
+
+function TAlbaranesCliente_RefreshDataTableRules.GetAGENTEValue: String;
+begin
+  result := DataTable.Fields[idx_AlbaranesCliente_RefreshAGENTE].AsString;
+end;
+
+procedure TAlbaranesCliente_RefreshDataTableRules.SetAGENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_AlbaranesCliente_RefreshAGENTE].AsString := aValue;
+end;
+
 
 initialization
   RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules);

Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas

@@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{D519E3C7-849C-4730-A2B7-6319C0AD5448}';
+  RID_DarReferenciaDelta = '{41FD0C2E-1F83-4A29-90F8-DF7AC5F20671}';
-  RID_AlbaranesClienteDelta = '{303FA8ED-65F6-4DCB-8037-55544878855F}';
+  RID_AlbaranesClienteDelta = '{DF0B838F-1795-4D57-9430-4BDC5E34F39F}';
-  RID_AlbaranesCliente_DetallesDelta = '{DE5A91E2-3F7F-4EED-88C0-5E42F395A6EC}';
+  RID_AlbaranesCliente_DetallesDelta = '{F9848F77-A24D-4559-A63E-46C49E6B6FCA}';
-  RID_AlbaranesCliente_Detalles_RefreshDelta = '{2CFAF206-0220-4452-A453-B1B90592A487}';
+  RID_AlbaranesCliente_Detalles_RefreshDelta = '{6F609F3D-CA71-4EDF-88DC-126708EA0DFA}';
-  RID_AlbaranesCliente_RefreshDelta = '{BCDCFE41-5279-4F6C-9BD5-B5D8915184D5}';
+  RID_AlbaranesCliente_RefreshDelta = '{AEF4C61D-CCBB-4E95-9F61-4D891E5F00B3}';
 
 type
   { IDarReferenciaDelta }
   IDarReferenciaDelta = interface(IDarReferencia)
-  ['{D519E3C7-849C-4730-A2B7-6319C0AD5448}']
+  ['{41FD0C2E-1F83-4A29-90F8-DF7AC5F20671}']
     { Property getters and setters }
     function GetOldVALORValue : String;
 
@@ -47,7 +47,7 @@ type
 
   { IAlbaranesClienteDelta }
   IAlbaranesClienteDelta = interface(IAlbaranesCliente)
-  ['{303FA8ED-65F6-4DCB-8037-55544878855F}']
+  ['{DF0B838F-1795-4D57-9430-4BDC5E34F39F}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -88,6 +88,8 @@ type
     function GetOldFECHA_PREVISTA_ENVIOValue : DateTime;
     function GetOldFECHA_ENVIOValue : DateTime;
     function GetOldFECHA_RECEPCIONValue : DateTime;
+    function GetOldID_AGENTEValue : Integer;
+    function GetOldAGENTEValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -129,6 +131,8 @@ type
     property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
     property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
     property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
+    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property OldAGENTE : String read GetOldAGENTEValue;
   end;
 
   { TAlbaranesClienteBusinessProcessorRules }
@@ -253,6 +257,12 @@ type
     function GetFECHA_RECEPCIONValue: DateTime; virtual;
     function GetOldFECHA_RECEPCIONValue: DateTime; virtual;
     procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
+    function GetID_AGENTEValue: Integer; virtual;
+    function GetOldID_AGENTEValue: Integer; virtual;
+    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    function GetAGENTEValue: String; virtual;
+    function GetOldAGENTEValue: String; virtual;
+    procedure SetAGENTEValue(const aValue: String); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -333,6 +343,10 @@ type
     property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
     property FECHA_RECEPCION : DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
     property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
+    property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
+    property OldAGENTE : String read GetOldAGENTEValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -342,7 +356,7 @@ type
 
   { IAlbaranesCliente_DetallesDelta }
   IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
-  ['{DE5A91E2-3F7F-4EED-88C0-5E42F395A6EC}']
+  ['{F9848F77-A24D-4559-A63E-46C49E6B6FCA}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_ALBARANValue : Integer;
@@ -462,7 +476,7 @@ type
 
   { IAlbaranesCliente_Detalles_RefreshDelta }
   IAlbaranesCliente_Detalles_RefreshDelta = interface(IAlbaranesCliente_Detalles_Refresh)
-  ['{2CFAF206-0220-4452-A453-B1B90592A487}']
+  ['{6F609F3D-CA71-4EDF-88DC-126708EA0DFA}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_ALBARANValue : Integer;
@@ -582,7 +596,7 @@ type
 
   { IAlbaranesCliente_RefreshDelta }
   IAlbaranesCliente_RefreshDelta = interface(IAlbaranesCliente_Refresh)
-  ['{BCDCFE41-5279-4F6C-9BD5-B5D8915184D5}']
+  ['{AEF4C61D-CCBB-4E95-9F61-4D891E5F00B3}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -623,6 +637,8 @@ type
     function GetOldFECHA_PREVISTA_ENVIOValue : DateTime;
     function GetOldFECHA_ENVIOValue : DateTime;
     function GetOldFECHA_RECEPCIONValue : DateTime;
+    function GetOldID_AGENTEValue : Integer;
+    function GetOldAGENTEValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -664,6 +680,8 @@ type
     property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
     property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
     property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
+    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property OldAGENTE : String read GetOldAGENTEValue;
   end;
 
   { TAlbaranesCliente_RefreshBusinessProcessorRules }
@@ -788,6 +806,12 @@ type
     function GetFECHA_RECEPCIONValue: DateTime; virtual;
     function GetOldFECHA_RECEPCIONValue: DateTime; virtual;
     procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
+    function GetID_AGENTEValue: Integer; virtual;
+    function GetOldID_AGENTEValue: Integer; virtual;
+    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    function GetAGENTEValue: String; virtual;
+    function GetOldAGENTEValue: String; virtual;
+    procedure SetAGENTEValue(const aValue: String); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -868,6 +892,10 @@ type
     property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
     property FECHA_RECEPCION : DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
     property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
+    property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
+    property OldAGENTE : String read GetOldAGENTEValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1507,6 +1535,36 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_RECEPCION] := aValue;
 end;
 
+function TAlbaranesClienteBusinessProcessorRules.GetID_AGENTEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_AGENTE];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_AGENTE];
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_AGENTE] := aValue;
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetAGENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteAGENTE];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldAGENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteAGENTE];
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetAGENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteAGENTE] := aValue;
+end;
+
 
 { TAlbaranesCliente_DetallesBusinessProcessorRules }
 constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -2552,6 +2610,36 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshFECHA_RECEPCION] := aValue;
 end;
 
+function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_AGENTEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_AGENTE];
+end;
+
+function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_AGENTE];
+end;
+
+procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_AGENTE] := aValue;
+end;
+
+function TAlbaranesCliente_RefreshBusinessProcessorRules.GetAGENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshAGENTE];
+end;
+
+function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldAGENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshAGENTE];
+end;
+
+procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetAGENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshAGENTE] := aValue;
+end;
+
 
 initialization
   RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules);

Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm

@@ -78,8 +78,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
               'PORTE_DESCUENTO, '#10'    BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_' +
               'TOTAL, OBSERVACIONES, '#10'    INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
               'HA_ALTA,'#10'    FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' +
-              'REVISTA_ENVIO, FECHA_ENVIO,'#10'    FECHA_RECEPCION'#10'  FROM'#10'    V_ALB' +
+              'REVISTA_ENVIO, FECHA_ENVIO,'#10'    FECHA_RECEPCION, ID_AGENTE, AGEN' +
-              'ARANES_CLIENTE'
+              'TE'#10'  FROM'#10'    V_ALBARANES_CLIENTE'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -645,6 +645,27 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'ID_AGENTE'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DictionaryEntry = 'AlbaranesCliente_ID_AGENTE'
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'AGENTE'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DictionaryEntry = 'AlbaranesCliente_AGENTE'
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
@@ -1147,8 +1168,9 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
               'PORTE_DESCUENTO, '#10'    BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_' +
               'TOTAL, OBSERVACIONES, '#10'    INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
               'HA_ALTA,'#10'    FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' +
-              'REVISTA_ENVIO, FECHA_ENVIO,'#10'    FECHA_RECEPCION'#10'  FROM'#10'    V_ALB' +
+              'REVISTA_ENVIO, FECHA_ENVIO,'#10'    FECHA_RECEPCION, ID_AGENTE, AGEN' +
-              'ARANES_CLIENTE'#10'  WHERE V_ALBARANES_CLIENTE.ID = :ID'
+              'TE'#10'  FROM'#10'    V_ALBARANES_CLIENTE'#10'  WHERE V_ALBARANES_CLIENTE.ID' +
+              ' = :ID'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -1717,6 +1739,27 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'ID_AGENTE'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DictionaryEntry = 'AlbaranesCliente_ID_AGENTE'
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'AGENTE'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DictionaryEntry = 'AlbaranesCliente_AGENTE'
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
@@ -3141,6 +3184,22 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+      end
+      item
+        Name = 'AlbaranesCliente_ID_AGENTE'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+      end
+      item
+        Name = 'AlbaranesCliente_AGENTE'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Agente'
+        Alignment = taLeftJustify
       end>
     Left = 48
     Top = 152

Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.bdsproj

@@ -170,14 +170,9 @@
 			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
 			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
-		</VersionInfoKeys>  <Excluded_Packages>
+		</VersionInfoKeys>
-      <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
+	</Delphi.Personality>
-      <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
+	<!-- EurekaLog First Line
-      <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
-      <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclie100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclie100.bpl not found</Excluded_Packages>
-    </Excluded_Packages>
-  </Delphi.Personality>
-<!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=519
 Activate=1

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm

@@ -83,6 +83,9 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
         BestFitMaxWidth = 120
         Width = 119
       end
+      object cxGridViewAGENTE: TcxGridDBColumn
+        DataBinding.FieldName = 'AGENTE'
+      end
       object cxGridViewREF_PEDIDO: TcxGridDBColumn
         DataBinding.FieldName = 'REF_PEDIDO'
         BestFitMaxWidth = 45
@@ -172,6 +175,14 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 596
         ExplicitWidth = 596
+        inherited txtFiltroTodo: TcxTextEdit
+          ExplicitWidth = 273
+          Width = 273
+        end
+        inherited edtFechaIniFiltro: TcxDateEdit
+          ExplicitWidth = 121
+          Width = 121
+        end
         inherited edtFechaFinFiltro: TcxDateEdit
           Left = 251
           ExplicitLeft = 251
@@ -214,6 +225,11 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
         object TBXItem2: TTBXItem
           Action = actAlmacenes
         end
+        object TBXSeparatorItem3: TTBXSeparatorItem
+        end
+        object TBXItem4: TTBXItem
+          Action = actAgentes
+        end
       end
     end
   end
@@ -263,6 +279,11 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
       OnExecute = actAlmacenesExecute
       OnUpdate = actAlmacenesUpdate
     end
+    object actAgentes: TAction
+      Caption = 'Agentes'
+      OnExecute = actAgentesExecute
+      OnUpdate = actAgentesUpdate
+    end
   end
   inherited dxPrintStyleManager1: TdxPrintStyleManager
     inherited dxPrintStyleManager1Style1: TdxPSPrintStyle

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas

@@ -57,6 +57,10 @@ type
     TBXSeparatorItem2: TTBXSeparatorItem;
     cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn;
     cxStyleRETRASADOS: TcxStyle;
+    TBXSeparatorItem3: TTBXSeparatorItem;
+    TBXItem4: TTBXItem;
+    actAgentes: TAction;
+    cxGridViewAGENTE: TcxGridDBColumn;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
@@ -72,6 +76,8 @@ type
     procedure actAlmacenesUpdate(Sender: TObject);
     procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X,
       Y: Integer);
+    procedure actAgentesExecute(Sender: TObject);
+    procedure actAgentesUpdate(Sender: TObject);
 
   private
     //Filtros relativos a la vista
@@ -95,6 +101,27 @@ uses SysUtils, DateUtils, variants, windows, uDataModuleAlbaranesCliente, schAlb
 
 {$R *.dfm}
 
+procedure TfrViewAlbaranesCliente.actAgentesExecute(Sender: TObject);
+begin
+  inherited;
+  if (cxGridViewAGENTE.GroupIndex < 0) then
+  begin
+    cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
+    cxGridViewAGENTE.Visible := False;
+  end
+  else
+  begin
+    cxGridViewAGENTE.GroupIndex := -1;
+    cxGridViewAGENTE.Visible := True;
+  end;
+end;
+
+procedure TfrViewAlbaranesCliente.actAgentesUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
+end;
+
 procedure TfrViewAlbaranesCliente.actAlmacenesExecute(Sender: TObject);
 begin
   if (cxGridViewNOMBRE_ALMACEN.GroupIndex < 0) then

Source/Modulos/Facturas de cliente/FacturasCliente_Group.bdsgroup

@@ -8,9 +8,7 @@
 			<Option Name="GUID">{31F77077-B4B9-443C-9AA9-F13B4EB640B4}</Option>
 		</Option>
 	</PersonalityInfo>
-	<Default.Personality>  
+	<Default.Personality>  <Projects>
-    
-    <Projects>
       <Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
       <Projects Name="ControllerBase.bpl">..\..\Base\ControllerBase\ControllerBase.bdsproj</Projects>
       <Projects Name="GUIBase.bpl">..\..\Base\GUIBase\GUIBase.bdsproj</Projects>
@@ -30,7 +28,9 @@
       <Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
       <Projects Name="AlbCli_FacCli_relation.bpl">..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj</Projects>
       <Projects Name="AlbaranesCliente_controller.bpl">..\Albaranes de cliente\Controller\AlbaranesCliente_controller.bdsproj</Projects>
-      <Projects Name="Targets">Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Articulos_view.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Contactos_view.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl FacturasCliente_view.bpl FactuGES.exe FactuGES_Server.exe AlbCli_FacCli_relation.bpl AlbaranesCliente_controller.bpl</Projects>
+      <Projects Name="PedidosCliente_model.bpl">..\Pedidos de cliente\Model\PedidosCliente_model.bdsproj</Projects>
+      <Projects Name="FacturasProveedor_view.bpl">..\Facturas de proveedor\Views\FacturasProveedor_view.bdsproj</Projects>
+      <Projects Name="Targets">Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Articulos_view.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Contactos_view.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl FacturasCliente_view.bpl FactuGES.exe FactuGES_Server.exe AlbCli_FacCli_relation.bpl AlbaranesCliente_controller.bpl PedidosCliente_model.bpl FacturasProveedor_view.bpl</Projects>
     </Projects>
     <Dependencies/>
   </Default.Personality>

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

@@ -407,6 +407,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
       inherited dxLayoutControl1Group_Root: TdxLayoutGroup
         inherited dxLayoutControl1Group1: TdxLayoutGroup
           inherited dxLayoutControl1Group2: TdxLayoutGroup
+            inherited dxLayoutControl1Item8: TdxLayoutItem
+              Visible = False
+            end
             inherited dxLayoutControl1Item10: TdxLayoutItem
               Visible = False
             end
@@ -419,6 +422,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                 Visible = False
               end
             end
+            inherited dxLayoutControl1Item9: TdxLayoutItem
+              Visible = False
+            end
           end
           inherited dxLayoutControl1Group5: TdxLayoutGroup
             inherited dxLayoutControl1Group3: TdxLayoutGroup

Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm

@@ -162,21 +162,22 @@ object RptFacturasProveedor: TRptFacturasProveedor
               'R.BASE_IMPONIBLE, V_FACTURAS_PROVEEDOR.DESCUENTO, V_FACTURAS_PRO' +
               'VEEDOR.IMPORTE_DESCUENTO,'#10'    V_FACTURAS_PROVEEDOR.IVA, V_FACTUR' +
               'AS_PROVEEDOR.IMPORTE_IVA,'#10'    V_FACTURAS_PROVEEDOR.RE, V_FACTURA' +
-              'S_PROVEEDOR.IMPORTE_RE,'#10'    V_FACTURAS_PROVEEDOR.IMPORTE_TOTAL,'#10 +
+              'S_PROVEEDOR.IMPORTE_RE,'#10'    V_FACTURAS_PROVEEDOR.IMPORTE_TOTAL, ' +
-              '    V_FACTURAS_PROVEEDOR.OBSERVACIONES, FORMAS_PAGO.DESCRIPCION ' +
+              'V_FACTURAS_PROVEEDOR.IMPORTE_PORTE,'#10'    V_FACTURAS_PROVEEDOR.OBS' +
-              'AS FORMA_PAGO, V_FACTURAS_PROVEEDOR.ID_PROVEEDOR,'#10'    V_FACTURAS' +
+              'ERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS_PR' +
-              '_PROVEEDOR.NIF_CIF, V_FACTURAS_PROVEEDOR.NOMBRE, V_FACTURAS_PROV' +
+              'OVEEDOR.ID_PROVEEDOR,'#10'    V_FACTURAS_PROVEEDOR.NIF_CIF, V_FACTUR' +
-              'EEDOR.CALLE,'#10'    V_FACTURAS_PROVEEDOR.PROVINCIA, V_FACTURAS_PROV' +
+              'AS_PROVEEDOR.NOMBRE, V_FACTURAS_PROVEEDOR.CALLE,'#10'    V_FACTURAS_' +
-              'EEDOR.CODIGO_POSTAL, V_FACTURAS_PROVEEDOR.POBLACION,'#10#10'    ID_EMP' +
+              'PROVEEDOR.PROVINCIA, V_FACTURAS_PROVEEDOR.CODIGO_POSTAL, V_FACTU' +
-              'RESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL' +
+              'RAS_PROVEEDOR.POBLACION,'#10#10'    ID_EMPRESA, EMPRESAS.NIF_CIF as NI' +
-              ','#10'    EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POB' +
+              'F_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10'    EMPRESAS.CALLE as CALL' +
-              'LACION_EMPRESA,'#10'    EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMP' +
+              'E_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10'    EMPRESAS' +
-              'RESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10'    EMPRESAS.TELEF' +
+              '.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIG' +
-              'ONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10'    EMP' +
+              'O_POSTAL_EMPRESA,'#10'    EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESA' +
-              'RESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO' +
+              'S.MOVIL_1, EMPRESAS.EMAIL_1,'#10'    EMPRESAS.PAGINA_WEB, EMPRESAS.R' +
-              #10#10'FROM V_FACTURAS_PROVEEDOR'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ' +
+              'EGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM V_FACTURAS_PROVEEDOR'#10 +
-              'ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS' +
+              'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_' +
-              '_PROVEEDOR.ID_FORMA_PAGO)'#10'WHERE V_FACTURAS_PROVEEDOR.ID = :ID'
+              'PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_PROVEEDOR.ID_FORMA_PAGO)'#10'WH' +
+              'ERE V_FACTURAS_PROVEEDOR.ID = :ID'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -314,6 +315,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
               item
                 DatasetField = 'ID_PROVEEDOR'
                 TableField = 'ID_PROVEEDOR'
+              end
+              item
+                DatasetField = 'IMPORTE_PORTE'
+                TableField = 'IMPORTE_PORTE'
               end>
           end>
         Name = 'InformeFacturasProveedor'
@@ -431,6 +436,17 @@ object RptFacturasProveedor: TRptFacturasProveedor
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'IMPORTE_PORTE'
+            DataType = datFloat
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'IVA'
             DataType = datFloat
@@ -1171,7 +1187,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
     PreviewOptions.Zoom = 1.000000000000000000
     PrintOptions.Printer = 'Default'
     ReportOptions.CreateDate = 37871.995398692100000000
-    ReportOptions.LastChange = 39293.765855208330000000
+    ReportOptions.LastChange = 39465.864521631940000000
     ReportOptions.VersionBuild = '1'
     ReportOptions.VersionMajor = '12'
     ReportOptions.VersionMinor = '13'
@@ -1283,7 +1299,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
       '       Memo21.Lines.Clear;'
       '       Memo29.Lines.Clear;'
       '  end;'
-      ''
       'end;'
       ''
       'procedure Band2OnBeforePrint(Sender: TfrxComponent);'

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

@@ -7,7 +7,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
   Position = poScreenCenter
   OnClose = CustomEditorClose
   ExplicitWidth = 796
-  ExplicitHeight = 607
+  ExplicitHeight = 600
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -203,49 +203,51 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
             ExplicitLeft = 334
             ExplicitTop = 2
           end
-          inherited FontSize: TEdit [5]
+          inherited FontName: TJvFontComboBox
             Left = 0
             ExplicitLeft = 0
           end
-          inherited UpDown1: TUpDown [6]
+          inherited FontSize: TEdit
-            Left = 42
+            Left = 145
-            ExplicitLeft = 42
+            Width = 57
+            ExplicitLeft = 145
+            ExplicitWidth = 57
           end
-          inherited FontName: TJvFontComboBox [7]
+          inherited UpDown1: TUpDown
-            Left = 59
+            Left = 202
-            ExplicitLeft = 59
+            ExplicitLeft = 202
           end
           inherited ToolButton13: TToolButton
-            Left = 204
+            Left = 219
-            ExplicitLeft = 204
+            ExplicitLeft = 219
           end
           inherited ToolButton6: TToolButton
-            Left = 212
+            Left = 227
-            ExplicitLeft = 212
+            ExplicitLeft = 227
           end
           inherited ToolButton7: TToolButton
-            Left = 246
+            Left = 261
-            ExplicitLeft = 246
+            ExplicitLeft = 261
           end
           inherited ToolButton8: TToolButton
-            Left = 280
+            Left = 295
-            ExplicitLeft = 280
+            ExplicitLeft = 295
           end
           inherited ToolButton12: TToolButton
-            Left = 314
+            Left = 329
-            ExplicitLeft = 314
+            ExplicitLeft = 329
           end
           inherited ToolButton9: TToolButton
-            Left = 322
+            Left = 337
-            ExplicitLeft = 322
+            ExplicitLeft = 337
           end
           inherited ToolButton10: TToolButton
-            Left = 356
+            Left = 371
-            ExplicitLeft = 356
+            ExplicitLeft = 371
           end
           inherited ToolButton11: TToolButton
-            Left = 390
+            Left = 405
-            ExplicitLeft = 390
+            ExplicitLeft = 405
           end
         end
         inherited cxGrid: TcxGrid
@@ -423,6 +425,9 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
         LookAndFeel = frViewFacturaProveedor1.dxLayoutOfficeLookAndFeel1
         inherited dxLayoutControl1Group1: TdxLayoutGroup
           inherited dxLayoutControl1Group2: TdxLayoutGroup
+            inherited dxLayoutControl1Item8: TdxLayoutItem
+              Visible = False
+            end
             inherited dxLayoutControl1Item10: TdxLayoutItem
               Visible = False
             end

Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas

@@ -591,7 +591,6 @@ begin
   APedido.Edit;
   try
     APedido.IMPORTE_NETO := FDetallesController.DarTotalImporteTotal(APedido.Detalles);
-    APedido.IMPORTE_PORTE := FDetallesController.DarTotalPorteTotal(APedido.Detalles);    
     if not bEnEdicion then
       APedido.Post;
   finally

Source/Servidor/FactuGES_Server.dpr

@@ -99,8 +99,6 @@ uses
   srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDARemoteService},
   schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
   schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
-  schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
-  schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
   schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
   schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
   schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
@@ -131,7 +129,9 @@ uses
   schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas',
   uRptEtiquetasContactos_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContactos_Server.pas' {RptEtiquetasContactos: TDataModule},
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
-  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
+  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
+  schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
+  schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.rc

@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.3.9.0\0"
               VALUE "ProductName", "FactuGES Server\0"
               VALUE "ProductVersion", "2.3.9.0\0"
-              VALUE "CompileDate", "miércoles, 02 de enero de 2008 20:38\0"
+              VALUE "CompileDate", "viernes, 18 de enero de 2008 21:11\0"
          END
     END
     BLOCK "VarFileInfo"