Tareas #1408: En los informes de agentes antiguos, mirar si se puede poner salto de pagina al acabar con cada agente

Tareas #1410: En presupuestos de cliente y pedidos de cliente poder agrupar por agente

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@239 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Database/scripts/factuges.sql

@@ -3902,7 +3902,12 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
     FECHA_VIGENCIA,
     TIPO_PRESUPUESTO,
     ID_TIPO_IVA,
-    REFERENCIA_FACTURA_PROFORMA)
+    ID_PEDIDO,
+    REFERENCIA_PEDIDO_CLIENTE,
+    ID_AGENTE,
+    AGENTE,
+    NUM_COPIAS,
+    NUM_CORREOS)
 AS
 SELECT
   PRESUPUESTOS_CLIENTE.ID,
@@ -3941,13 +3946,26 @@ SELECT
   PRESUPUESTOS_CLIENTE.FECHA_VIGENCIA,
   PRESUPUESTOS_CLIENTE.TIPO_PRESUPUESTO,
   PRESUPUESTOS_CLIENTE.ID_TIPO_IVA,
-  FACTURAS_PROFORMA.REFERENCIA
+  PRESUPUESTOS_CLIENTE.ID_PEDIDO,
+  PEDIDOS_CLIENTE.REFERENCIA,
+  CLIENTES_DATOS.ID_AGENTE,
+  AGENTES.NOMBRE,
+  IMPRESIONES.NUM_COPIAS,
+  REGISTRO_CORREOS.NUM_CORREOS
+
 
 FROM
   PRESUPUESTOS_CLIENTE
   INNER JOIN CONTACTOS ON (CONTACTOS.ID = PRESUPUESTOS_CLIENTE.ID_CLIENTE)
-  LEFT JOIN FACTURAS_PROFORMA on (FACTURAS_PROFORMA.ID_PRESUPUESTO = PRESUPUESTOS_CLIENTE.ID)
+  LEFT JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_PEDIDO)
-  ;
+  LEFT OUTER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = PRESUPUESTOS_CLIENTE.ID_CLIENTE)
+  LEFT OUTER JOIN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)
+  LEFT JOIN IMPRESIONES
+  ON ((IMPRESIONES.ID_TABLA = PRESUPUESTOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PRESUPUESTOSCLIENTE'))
+  LEFT JOIN REGISTRO_CORREOS
+  ON ((REGISTRO_CORREOS.ID_TABLA = PRESUPUESTOS_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'PRESUPUESTOSCLIENTE'))
+;
+
 
 
 /* View: V_PROVEEDORES */
@@ -4659,11 +4677,11 @@ CREATE VIEW V_PEDIDOS_CLIENTE(
     FECHA_PREVISTA_ENVIO,
     NUM_COPIAS,
     NUM_CORREOS,
-    ID_PRESUPUESTO,
-    REFERENCIA_PRESUPUESTO,
     TIPO_PEDIDO,
     PAIS,
-    REFERENCIA_FACTURA_PROFORMA)
+    REFERENCIA_FACTURA_PROFORMA,
+    ID_AGENTE,
+    AGENTE)
 AS
 SELECT
   PEDIDOS_CLIENTE.ID,
@@ -4704,23 +4722,25 @@ SELECT
   PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
   IMPRESIONES.NUM_COPIAS,
   REGISTRO_CORREOS.NUM_CORREOS,
-  PEDIDOS_CLIENTE.ID_PRESUPUESTO,
-  PRESUPUESTOS_CLIENTE.REFERENCIA,
   PEDIDOS_CLIENTE.TIPO_PEDIDO,
   PEDIDOS_CLIENTE.PAIS,
-  FACTURAS_PROFORMA.REFERENCIA
+  FACTURAS_PROFORMA.REFERENCIA,
+  CLIENTES_DATOS.ID_AGENTE,
+  AGENTES.NOMBRE
+
 FROM
   PEDIDOS_CLIENTE
   LEFT JOIN V_PED_CLI_SITUACION_X_ALBARANES ON (V_PED_CLI_SITUACION_X_ALBARANES.ID_PEDIDO = PEDIDOS_CLIENTE.ID)
-  LEFT JOIN PRESUPUESTOS_CLIENTE ON (PRESUPUESTOS_CLIENTE.id = PEDIDOS_CLIENTE.ID_PRESUPUESTO)
   LEFT JOIN FACTURAS_PROFORMA ON (FACTURAS_PROFORMA.ID_PEDIDO = PEDIDOS_CLIENTE.ID)
 /*  INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)*/
   INNER JOIN CONTACTOS ON (PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
+  LEFT OUTER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = PEDIDOS_CLIENTE.ID_CLIENTE)
+  LEFT OUTER JOIN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)
   LEFT JOIN IMPRESIONES
   ON ((IMPRESIONES.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSCLIENTE'))
   LEFT JOIN REGISTRO_CORREOS
   ON ((REGISTRO_CORREOS.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'PEDIDOSCLIENTE'))
-;  
+;
 
 
 

Source/Cliente/FactuGES.dproj

@@ -53,7 +53,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">3</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">4.4.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">4</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">4.4.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>

Source/Cliente/FactuGES.rc

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

Source/Modulos/Informes base/Views/uViewInformeBaseGrid.dfm

@@ -77,8 +77,11 @@ inherited frViewInformeBaseGrid: TfrViewInformeBaseGrid
       OptionsFormatting.UseNativeStyles = True
       OptionsFormatting.ConsumeSelectionStyle = True
       OptionsLevels.Unwrap = True
+      OptionsPagination.OneGroupPerPage = True
+      OptionsPagination.TopLevelGroup = True
       OptionsRefinements.TransparentGraphics = True
       OptionsSize.AutoWidth = True
+      OptionsView.Footers = False
       OptionsView.Caption = False
       OptionsView.ExpandButtons = False
       OptionsView.FilterBar = False

Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm

@@ -349,6 +349,15 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
         Name = 'REFERENCIA_FACTURA_PROFORMA'
         DataType = datString
         Size = 255
+      end
+      item
+        Name = 'ID_AGENTE'
+        DataType = datInteger
+      end
+      item
+        Name = 'AGENTE'
+        DataType = datString
+        Size = 255
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas

@@ -9,13 +9,13 @@ 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_ListaAnosPedidos = '{7F08C4EE-4DD3-424F-BF2B-03782FC2C921}';
+  RID_ListaAnosPedidos = '{1F0D1CEA-72FF-45DF-9F29-B717FF5CE397}';
-  RID_PedidosProveedor = '{3AD30CEC-123C-4814-ABEE-7CBFEACC5046}';
+  RID_PedidosProveedor = '{02DD8FC4-99BB-4B51-B89E-68253F4083B7}';
-  RID_PedidosCliente = '{3818AE6E-8880-4DA2-AFE7-3BA16B6ACDC9}';
+  RID_PedidosCliente = '{86DA25A6-F592-4109-A0EC-AC01227830F7}';
-  RID_PedidosCliente_Detalles = '{B5B584AB-7EDB-470F-BC37-CDC90F320865}';
+  RID_PedidosCliente_Detalles = '{C6F42BD9-08CD-46C4-A131-B65D54B2F57C}';
-  RID_PedidosCliente_Articulos_Pendientes = '{1463B127-D633-4CB1-B80C-2D1DC7D67D62}';
+  RID_PedidosCliente_Articulos_Pendientes = '{3CE21E24-8BD5-466E-9C75-A614D7520177}';
-  RID_PedidoCliente_ArticulosPendientesPedirAProv = '{65EB3E68-A0F0-4D3E-B8B1-BE492B381E09}';
+  RID_PedidoCliente_ArticulosPendientesPedirAProv = '{5E9768A3-7561-45F9-BE05-7AD4F8C62367}';
-  RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{9E91A095-986F-4653-AFDD-DC35FD643A81}';
+  RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{41259178-2A0A-428F-9413-F0F4DFDA2FE7}';
 
   { Data table names }
   nme_ListaAnosPedidos = 'ListaAnosPedidos';
@@ -82,6 +82,8 @@ const
   fld_PedidosClienteTIPO_PEDIDO = 'TIPO_PEDIDO';
   fld_PedidosClientePAIS = 'PAIS';
   fld_PedidosClienteREFERENCIA_FACTURA_PROFORMA = 'REFERENCIA_FACTURA_PROFORMA';
+  fld_PedidosClienteID_AGENTE = 'ID_AGENTE';
+  fld_PedidosClienteAGENTE = 'AGENTE';
 
   { PedidosCliente field indexes }
   idx_PedidosClienteID = 0;
@@ -121,6 +123,8 @@ const
   idx_PedidosClienteTIPO_PEDIDO = 34;
   idx_PedidosClientePAIS = 35;
   idx_PedidosClienteREFERENCIA_FACTURA_PROFORMA = 36;
+  idx_PedidosClienteID_AGENTE = 37;
+  idx_PedidosClienteAGENTE = 38;
 
   { PedidosCliente_Detalles fields }
   fld_PedidosCliente_DetallesID = 'ID';
@@ -221,7 +225,7 @@ const
 type
   { IListaAnosPedidos }
   IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
-  ['{02789823-2D71-4BEF-877E-81C3D47AF0DA}']
+  ['{177EEA18-7C34-4A84-A140-DBF289C2117A}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -256,7 +260,7 @@ type
 
   { IPedidosProveedor }
   IPedidosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{AF236896-9645-4397-8A22-A52D507524C4}']
+  ['{AEE1E4F3-43E6-4860-8B0D-0BA958ECECAD}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -327,7 +331,7 @@ type
 
   { IPedidosCliente }
   IPedidosCliente = interface(IDAStronglyTypedDataTable)
-  ['{535A54FF-0C95-4C28-A2E2-BEF681F402AA}']
+  ['{DF1ECC19-1402-4CD6-97F9-CE8B308AADA6}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -475,6 +479,14 @@ type
     procedure SetREFERENCIA_FACTURA_PROFORMAValue(const aValue: String);
     function GetREFERENCIA_FACTURA_PROFORMAIsNull: Boolean;
     procedure SetREFERENCIA_FACTURA_PROFORMAIsNull(const aValue: Boolean);
+    function GetID_AGENTEValue: Integer;
+    procedure SetID_AGENTEValue(const aValue: Integer);
+    function GetID_AGENTEIsNull: Boolean;
+    procedure SetID_AGENTEIsNull(const aValue: Boolean);
+    function GetAGENTEValue: String;
+    procedure SetAGENTEValue(const aValue: String);
+    function GetAGENTEIsNull: Boolean;
+    procedure SetAGENTEIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -552,6 +564,10 @@ type
     property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
     property REFERENCIA_FACTURA_PROFORMA: String read GetREFERENCIA_FACTURA_PROFORMAValue write SetREFERENCIA_FACTURA_PROFORMAValue;
     property REFERENCIA_FACTURA_PROFORMAIsNull: Boolean read GetREFERENCIA_FACTURA_PROFORMAIsNull write SetREFERENCIA_FACTURA_PROFORMAIsNull;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+    property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
+    property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
   end;
 
   { TPedidosClienteDataTableRules }
@@ -709,6 +725,14 @@ type
     procedure SetREFERENCIA_FACTURA_PROFORMAValue(const aValue: String); virtual;
     function GetREFERENCIA_FACTURA_PROFORMAIsNull: Boolean; virtual;
     procedure SetREFERENCIA_FACTURA_PROFORMAIsNull(const aValue: Boolean); virtual;
+    function GetID_AGENTEValue: Integer; virtual;
+    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    function GetID_AGENTEIsNull: Boolean; virtual;
+    procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
+    function GetAGENTEValue: String; virtual;
+    procedure SetAGENTEValue(const aValue: String); virtual;
+    function GetAGENTEIsNull: Boolean; virtual;
+    procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -785,6 +809,10 @@ type
     property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
     property REFERENCIA_FACTURA_PROFORMA: String read GetREFERENCIA_FACTURA_PROFORMAValue write SetREFERENCIA_FACTURA_PROFORMAValue;
     property REFERENCIA_FACTURA_PROFORMAIsNull: Boolean read GetREFERENCIA_FACTURA_PROFORMAIsNull write SetREFERENCIA_FACTURA_PROFORMAIsNull;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+    property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
+    property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -794,7 +822,7 @@ type
 
   { IPedidosCliente_Detalles }
   IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{C925A6AB-E18C-4CBD-A66E-2BE476B6E8A6}']
+  ['{6C0A0A95-C28F-4BEB-8D19-028D81B5E95C}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -985,7 +1013,7 @@ type
 
   { IPedidosCliente_Articulos_Pendientes }
   IPedidosCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
-  ['{C382C4D3-A9E5-44D8-B146-7DC5F8BB14D7}']
+  ['{9F5240B2-878F-47ED-B6EB-1925918DD1F4}']
     { Property getters and setters }
     function GetID_ARTICULOValue: Integer;
     procedure SetID_ARTICULOValue(const aValue: Integer);
@@ -1056,7 +1084,7 @@ type
 
   { IPedidoCliente_ArticulosPendientesPedirAProv }
   IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
-  ['{5A762AF0-6C9A-44C1-88B0-5C5E9FECFF7F}']
+  ['{46D2A767-B41C-47B3-8678-EF4582DBA702}']
     { Property getters and setters }
     function GetID_PEDIDOValue: Integer;
     procedure SetID_PEDIDOValue(const aValue: Integer);
@@ -1211,7 +1239,7 @@ type
 
   { IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos }
   IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos = interface(IDAStronglyTypedDataTable)
-  ['{3BF2FB66-EEC0-4D8C-8D81-B92DF3C1C1AD}']
+  ['{3E96988B-0D3B-44FC-9C12-AB89B024A7A3}']
     { Property getters and setters }
     function GetID_PEDIDOValue: Integer;
     procedure SetID_PEDIDOValue(const aValue: Integer);
@@ -2297,6 +2325,48 @@ begin
     DataTable.Fields[idx_PedidosClienteREFERENCIA_FACTURA_PROFORMA].AsVariant := Null;
 end;
 
+function TPedidosClienteDataTableRules.GetID_AGENTEValue: Integer;
+begin
+  result := DataTable.Fields[idx_PedidosClienteID_AGENTE].AsInteger;
+end;
+
+procedure TPedidosClienteDataTableRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_PedidosClienteID_AGENTE].AsInteger := aValue;
+end;
+
+function TPedidosClienteDataTableRules.GetID_AGENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PedidosClienteID_AGENTE].IsNull;
+end;
+
+procedure TPedidosClienteDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PedidosClienteID_AGENTE].AsVariant := Null;
+end;
+
+function TPedidosClienteDataTableRules.GetAGENTEValue: String;
+begin
+  result := DataTable.Fields[idx_PedidosClienteAGENTE].AsString;
+end;
+
+procedure TPedidosClienteDataTableRules.SetAGENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_PedidosClienteAGENTE].AsString := aValue;
+end;
+
+function TPedidosClienteDataTableRules.GetAGENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PedidosClienteAGENTE].IsNull;
+end;
+
+procedure TPedidosClienteDataTableRules.SetAGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PedidosClienteAGENTE].AsVariant := Null;
+end;
+
 
 { TPedidosCliente_DetallesDataTableRules }
 constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas

@@ -9,18 +9,18 @@ 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_ListaAnosPedidosDelta = '{2A9F6811-8378-4F63-8F2F-65E1EC8FBFA6}';
+  RID_ListaAnosPedidosDelta = '{9D5054B0-9042-4E8B-9A21-934C56BB7DE9}';
-  RID_PedidosProveedorDelta = '{F6BB4C65-CF9A-4DD3-A4A9-218BF96AA231}';
+  RID_PedidosProveedorDelta = '{EC16A954-9598-4583-AEE4-6C7E97EA7EB1}';
-  RID_PedidosClienteDelta = '{5E14E396-2278-4E58-9E05-2187E20237DD}';
+  RID_PedidosClienteDelta = '{70F56B09-DB20-4AA9-A6B0-80E526A3FE87}';
-  RID_PedidosCliente_DetallesDelta = '{8BE084A3-2D4B-404D-9624-F4A5B4D0A3AD}';
+  RID_PedidosCliente_DetallesDelta = '{DA4E3B5A-4E9B-4C9A-BD97-BEDA56DA2DC3}';
-  RID_PedidosCliente_Articulos_PendientesDelta = '{3202351E-CE35-40B7-B9F3-A9E8E82253A9}';
+  RID_PedidosCliente_Articulos_PendientesDelta = '{EF9B7694-BF6A-4027-BA88-A4B4FBAEF511}';
-  RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{708CDEE3-6D6D-45FA-9FB2-D65DC92F6999}';
+  RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{52337014-8D82-4655-ACD4-ED5D9D795653}';
-  RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{41CD6113-3662-4572-9A24-5246CD483138}';
+  RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{D8ED7E2F-6543-4240-8533-68681E2B0DFA}';
 
 type
   { IListaAnosPedidosDelta }
   IListaAnosPedidosDelta = interface(IListaAnosPedidos)
-  ['{2A9F6811-8378-4F63-8F2F-65E1EC8FBFA6}']
+  ['{9D5054B0-9042-4E8B-9A21-934C56BB7DE9}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -54,7 +54,7 @@ type
 
   { IPedidosProveedorDelta }
   IPedidosProveedorDelta = interface(IPedidosProveedor)
-  ['{F6BB4C65-CF9A-4DD3-A4A9-218BF96AA231}']
+  ['{EC16A954-9598-4583-AEE4-6C7E97EA7EB1}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREFERENCIAValue : String;
@@ -124,7 +124,7 @@ type
 
   { IPedidosClienteDelta }
   IPedidosClienteDelta = interface(IPedidosCliente)
-  ['{5E14E396-2278-4E58-9E05-2187E20237DD}']
+  ['{70F56B09-DB20-4AA9-A6B0-80E526A3FE87}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -163,6 +163,8 @@ type
     function GetOldTIPO_PEDIDOValue : String;
     function GetOldPAISValue : String;
     function GetOldREFERENCIA_FACTURA_PROFORMAValue : String;
+    function GetOldID_AGENTEValue : Integer;
+    function GetOldAGENTEValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -202,6 +204,8 @@ type
     property OldTIPO_PEDIDO : String read GetOldTIPO_PEDIDOValue;
     property OldPAIS : String read GetOldPAISValue;
     property OldREFERENCIA_FACTURA_PROFORMA : String read GetOldREFERENCIA_FACTURA_PROFORMAValue;
+    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property OldAGENTE : String read GetOldAGENTEValue;
   end;
 
   { TPedidosClienteBusinessProcessorRules }
@@ -433,6 +437,18 @@ type
     function GetOldREFERENCIA_FACTURA_PROFORMAIsNull: Boolean; virtual;
     procedure SetREFERENCIA_FACTURA_PROFORMAValue(const aValue: String); virtual;
     procedure SetREFERENCIA_FACTURA_PROFORMAIsNull(const aValue: Boolean); virtual;
+    function GetID_AGENTEValue: Integer; virtual;
+    function GetID_AGENTEIsNull: Boolean; virtual;
+    function GetOldID_AGENTEValue: Integer; virtual;
+    function GetOldID_AGENTEIsNull: Boolean; virtual;
+    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
+    function GetAGENTEValue: String; virtual;
+    function GetAGENTEIsNull: Boolean; virtual;
+    function GetOldAGENTEValue: String; virtual;
+    function GetOldAGENTEIsNull: Boolean; virtual;
+    procedure SetAGENTEValue(const aValue: String); virtual;
+    procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -583,6 +599,14 @@ type
     property REFERENCIA_FACTURA_PROFORMAIsNull : Boolean read GetREFERENCIA_FACTURA_PROFORMAIsNull write SetREFERENCIA_FACTURA_PROFORMAIsNull;
     property OldREFERENCIA_FACTURA_PROFORMA : String read GetOldREFERENCIA_FACTURA_PROFORMAValue;
     property OldREFERENCIA_FACTURA_PROFORMAIsNull : Boolean read GetOldREFERENCIA_FACTURA_PROFORMAIsNull;
+    property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
+    property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
+    property AGENTEIsNull : Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
+    property OldAGENTE : String read GetOldAGENTEValue;
+    property OldAGENTEIsNull : Boolean read GetOldAGENTEIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -592,7 +616,7 @@ type
 
   { IPedidosCliente_DetallesDelta }
   IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles)
-  ['{8BE084A3-2D4B-404D-9624-F4A5B4D0A3AD}']
+  ['{DA4E3B5A-4E9B-4C9A-BD97-BEDA56DA2DC3}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PEDIDOValue : Integer;
@@ -782,7 +806,7 @@ type
 
   { IPedidosCliente_Articulos_PendientesDelta }
   IPedidosCliente_Articulos_PendientesDelta = interface(IPedidosCliente_Articulos_Pendientes)
-  ['{3202351E-CE35-40B7-B9F3-A9E8E82253A9}']
+  ['{EF9B7694-BF6A-4027-BA88-A4B4FBAEF511}']
     { Property getters and setters }
     function GetOldID_ARTICULOValue : Integer;
     function GetOldCANTIDAD_PEDValue : Currency;
@@ -852,7 +876,7 @@ type
 
   { IPedidoCliente_ArticulosPendientesPedirAProvDelta }
   IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv)
-  ['{708CDEE3-6D6D-45FA-9FB2-D65DC92F6999}']
+  ['{52337014-8D82-4655-ACD4-ED5D9D795653}']
     { Property getters and setters }
     function GetOldID_PEDIDOValue : Integer;
     function GetOldPOSICIONValue : Integer;
@@ -1006,7 +1030,7 @@ type
 
   { IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta }
   IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos)
-  ['{41CD6113-3662-4572-9A24-5246CD483138}']
+  ['{D8ED7E2F-6543-4240-8533-68681E2B0DFA}']
     { Property getters and setters }
     function GetOldID_PEDIDOValue : Integer;
     function GetOldPOSICIONValue : Integer;
@@ -2514,6 +2538,68 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_FACTURA_PROFORMA] := Null;
 end;
 
+function TPedidosClienteBusinessProcessorRules.GetID_AGENTEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_AGENTE];
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_AGENTE]);
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_AGENTE];
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_AGENTE]);
+end;
+
+procedure TPedidosClienteBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_AGENTE] := aValue;
+end;
+
+procedure TPedidosClienteBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_AGENTE] := Null;
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetAGENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteAGENTE];
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetAGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteAGENTE]);
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetOldAGENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteAGENTE];
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetOldAGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteAGENTE]);
+end;
+
+procedure TPedidosClienteBusinessProcessorRules.SetAGENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteAGENTE] := aValue;
+end;
+
+procedure TPedidosClienteBusinessProcessorRules.SetAGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteAGENTE] := Null;
+end;
+
 
 { TPedidosCliente_DetallesBusinessProcessorRules }
 constructor TPedidosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj

@@ -224,6 +224,24 @@
   <Target Name="PedCli_PedProv_relation:Make">
     <MSBuild Projects="..\Relaciones\Pedidos de cliente - Pedidos a proveedor\PedCli_PedProv_relation.dproj" Targets="Make" />
   </Target>
+  <Target Name="PedCli_FacProforma_relation">
+    <MSBuild Projects="..\Relaciones\Pedidos de cliente - Facturas proforma\PedCli_FacProforma_relation.dproj" Targets="" />
+  </Target>
+  <Target Name="PedCli_FacProforma_relation:Clean">
+    <MSBuild Projects="..\Relaciones\Pedidos de cliente - Facturas proforma\PedCli_FacProforma_relation.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="PedCli_FacProforma_relation:Make">
+    <MSBuild Projects="..\Relaciones\Pedidos de cliente - Facturas proforma\PedCli_FacProforma_relation.dproj" Targets="Make" />
+  </Target>
+  <Target Name="PreCli_PedCli_relation">
+    <MSBuild Projects="..\Relaciones\Presupuestos de cliente - Pedidos de cliente\PreCli_PedCli_relation.dproj" Targets="" />
+  </Target>
+  <Target Name="PreCli_PedCli_relation:Clean">
+    <MSBuild Projects="..\Relaciones\Presupuestos de cliente - Pedidos de cliente\PreCli_PedCli_relation.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="PreCli_PedCli_relation:Make">
+    <MSBuild Projects="..\Relaciones\Presupuestos de cliente - Pedidos de cliente\PreCli_PedCli_relation.dproj" Targets="Make" />
+  </Target>
   <Target Name="FacturasProveedor_controller">
     <MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="" />
   </Target>
@@ -386,15 +404,6 @@
   <Target Name="ProcesoPresupuestosCliente_plugin:Make">
     <MSBuild Projects="..\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.dproj" Targets="Make" />
   </Target>
-  <Target Name="PedCli_FacProforma_relation">
-    <MSBuild Projects="..\Relaciones\Pedidos de cliente - Facturas proforma\PedCli_FacProforma_relation.dproj" Targets="" />
-  </Target>
-  <Target Name="PedCli_FacProforma_relation:Clean">
-    <MSBuild Projects="..\Relaciones\Pedidos de cliente - Facturas proforma\PedCli_FacProforma_relation.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="PedCli_FacProforma_relation:Make">
-    <MSBuild Projects="..\Relaciones\Pedidos de cliente - Facturas proforma\PedCli_FacProforma_relation.dproj" Targets="Make" />
-  </Target>
   <Target Name="FacturasProforma_data">
     <MSBuild Projects="..\Facturas proforma\Data\FacturasProforma_data.dproj" Targets="" />
   </Target>
@@ -422,23 +431,14 @@
   <Target Name="PresupuestosCliente_view:Make">
     <MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
   </Target>
-  <Target Name="PreCli_PedCli_relation">
-    <MSBuild Projects="..\Relaciones\Presupuestos de cliente - Pedidos de cliente\PreCli_PedCli_relation.dproj" Targets="" />
-  </Target>
-  <Target Name="PreCli_PedCli_relation:Clean">
-    <MSBuild Projects="..\Relaciones\Presupuestos de cliente - Pedidos de cliente\PreCli_PedCli_relation.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="PreCli_PedCli_relation:Make">
-    <MSBuild Projects="..\Relaciones\Presupuestos de cliente - Pedidos de cliente\PreCli_PedCli_relation.dproj" Targets="Make" />
-  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;ApplicationBase;GUIBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;PedCli_AlbCli_relation;PedCli_PedProv_relation;FacturasProveedor_controller;PedidosCliente_view;PedidosCliente_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view;FacturasCliente_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_plugin;ProcesoPresupuestosCliente_controller;ProcesoPresupuestosCliente_view;ProcesoPresupuestosCliente_plugin;PedCli_FacProforma_relation;FacturasProforma_data;PresupuestosCliente_controller;PresupuestosCliente_view;PreCli_PedCli_relation" />
+    <CallTarget Targets="Base;ApplicationBase;GUIBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;PedCli_AlbCli_relation;PedCli_PedProv_relation;PedCli_FacProforma_relation;PreCli_PedCli_relation;FacturasProveedor_controller;PedidosCliente_view;PedidosCliente_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view;FacturasCliente_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_plugin;ProcesoPresupuestosCliente_controller;ProcesoPresupuestosCliente_view;ProcesoPresupuestosCliente_plugin;FacturasProforma_data;PresupuestosCliente_controller;PresupuestosCliente_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;ApplicationBase:Clean;GUIBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;PedCli_AlbCli_relation:Clean;PedCli_PedProv_relation:Clean;FacturasProveedor_controller:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean;FacturasCliente_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;ProcesoPresupuestosCliente_controller:Clean;ProcesoPresupuestosCliente_view:Clean;ProcesoPresupuestosCliente_plugin:Clean;PedCli_FacProforma_relation:Clean;FacturasProforma_data:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean;PreCli_PedCli_relation:Clean" />
+    <CallTarget Targets="Base:Clean;ApplicationBase:Clean;GUIBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;PedCli_AlbCli_relation:Clean;PedCli_PedProv_relation:Clean;PedCli_FacProforma_relation:Clean;PreCli_PedCli_relation:Clean;FacturasProveedor_controller:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean;FacturasCliente_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;ProcesoPresupuestosCliente_controller:Clean;ProcesoPresupuestosCliente_view:Clean;ProcesoPresupuestosCliente_plugin:Clean;FacturasProforma_data:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;ApplicationBase:Make;GUIBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;PedCli_AlbCli_relation:Make;PedCli_PedProv_relation:Make;FacturasProveedor_controller:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make;FacturasCliente_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;ProcesoPresupuestosCliente_controller:Make;ProcesoPresupuestosCliente_view:Make;ProcesoPresupuestosCliente_plugin:Make;PedCli_FacProforma_relation:Make;FacturasProforma_data:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make;PreCli_PedCli_relation:Make" />
+    <CallTarget Targets="Base:Make;ApplicationBase:Make;GUIBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;PedCli_AlbCli_relation:Make;PedCli_PedProv_relation:Make;PedCli_FacProforma_relation:Make;PreCli_PedCli_relation:Make;FacturasProveedor_controller:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make;FacturasCliente_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;ProcesoPresupuestosCliente_controller:Make;ProcesoPresupuestosCliente_view:Make;ProcesoPresupuestosCliente_plugin:Make;FacturasProforma_data:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm

@@ -246,6 +246,14 @@ object srvPedidosCliente: TsrvPedidosCliente
               item
                 DatasetField = 'REFERENCIA_FACTURA_PROFORMA'
                 TableField = 'REFERENCIA_FACTURA_PROFORMA'
+              end
+              item
+                DatasetField = 'ID_AGENTE'
+                TableField = 'ID_AGENTE'
+              end
+              item
+                DatasetField = 'AGENTE'
+                TableField = 'AGENTE'
               end>
           end>
         Name = 'PedidosCliente'
@@ -449,6 +457,15 @@ object srvPedidosCliente: TsrvPedidosCliente
             Name = 'REFERENCIA_FACTURA_PROFORMA'
             DataType = datString
             Size = 255
+          end
+          item
+            Name = 'ID_AGENTE'
+            DataType = datInteger
+          end
+          item
+            Name = 'AGENTE'
+            DataType = datString
+            Size = 255
           end>
       end
       item

Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm

@@ -153,6 +153,10 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
         Caption = 'Ref. factura proforma'
         DataBinding.FieldName = 'REFERENCIA_FACTURA_PROFORMA'
       end
+      object cxGridViewAgente: TcxGridDBColumn
+        Caption = 'Agente'
+        DataBinding.FieldName = 'AGENTE'
+      end
     end
     object cxGridDBTableView1: TcxGridDBTableView [1]
       NavigatorButtons.ConfirmDelete = False
@@ -235,12 +239,19 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
       ExplicitWidth = 839
       inherited TBXToolbar1: TTBXToolbar
         Width = 829
+        ExplicitLeft = 3
+        ExplicitTop = 6
         ExplicitWidth = 829
         object TBXSeparatorItem2: TTBXSeparatorItem
         end
         object TBXItem3: TTBXItem
           Action = actCliente
         end
+        object TBXSeparatorItem1: TTBXSeparatorItem
+        end
+        object TBXItem2: TTBXItem
+          Action = actAgente
+        end
       end
     end
   end
@@ -277,6 +288,11 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
       OnExecute = actClienteExecute
       OnUpdate = actClienteUpdate
     end
+    object actAgente: TAction
+      Caption = 'Agente'
+      OnExecute = actAgenteExecute
+      OnUpdate = actAgenteUpdate
+    end
   end
   inherited GridPNGImageList: TPngImageList
     PngImages = <

Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas

@@ -52,6 +52,10 @@ type
     cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
     cxGridViewTIPO_PEDIDO: TcxGridDBColumn;
     cxGridViewREFERENCIA_FACTURA_PROFORMA: TcxGridDBColumn;
+    cxGridViewAgente: TcxGridDBColumn;
+    actAgente: TAction;
+    TBXItem2: TTBXItem;
+    TBXSeparatorItem1: TTBXSeparatorItem;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@@ -76,6 +80,8 @@ type
     procedure cxGridViewREF_TIENDA_WEBCustomDrawCell(
       Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
       AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+    procedure actAgenteExecute(Sender: TObject);
+    procedure actAgenteUpdate(Sender: TObject);
 
   private
     //Filtros relativos a la vista
@@ -100,6 +106,26 @@ uses
 
 {$R *.dfm}
 
+procedure TfrViewPedidosCliente.actAgenteExecute(Sender: TObject);
+begin
+  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 TfrViewPedidosCliente.actAgenteUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
+end;
+
 procedure TfrViewPedidosCliente.actClienteExecute(Sender: TObject);
 begin
   if (cxGridViewNOMBRE.GroupIndex < 0) then

Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm

@@ -256,6 +256,15 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         DataType = datString
         Size = 255
       end
+      item
+        Name = 'ID_AGENTE'
+        DataType = datInteger
+      end
+      item
+        Name = 'AGENTE'
+        DataType = datString
+        Size = 255
+      end
       item
         Name = 'NUM_COPIAS'
         DataType = datSmallInt

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas

@@ -3,15 +3,15 @@ unit schPresupuestosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDAInterfaces, 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_ListaAnosPresupuestos = '{7C9A1D45-633A-43E1-BA2E-FF9B84046FD5}';
+  RID_ListaAnosPresupuestos = '{A5CCBECB-9270-4681-9429-ED71B913E585}';
-  RID_PresupuestosCliente = '{1189B99E-2CDA-4602-919D-C609D96D2A90}';
+  RID_PresupuestosCliente = '{4F26E768-ACDD-41DA-9C20-CB307CF45DA0}';
-  RID_PresupuestosCliente_Detalles = '{085498EC-C5B1-40FF-8E94-6AE308799F01}';
+  RID_PresupuestosCliente_Detalles = '{90202BD4-1F2C-452F-B216-695F23808796}';
 
   { Data table names }
   nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos';
@@ -63,6 +63,8 @@ const
   fld_PresupuestosClienteID_TIPO_IVA = 'ID_TIPO_IVA';
   fld_PresupuestosClienteID_PEDIDO = 'ID_PEDIDO';
   fld_PresupuestosClienteREFERENCIA_PEDIDO_CLIENTE = 'REFERENCIA_PEDIDO_CLIENTE';
+  fld_PresupuestosClienteID_AGENTE = 'ID_AGENTE';
+  fld_PresupuestosClienteAGENTE = 'AGENTE';
   fld_PresupuestosClienteNUM_COPIAS = 'NUM_COPIAS';
   fld_PresupuestosClienteNUM_CORREOS = 'NUM_CORREOS';
 
@@ -105,8 +107,10 @@ const
   idx_PresupuestosClienteID_TIPO_IVA = 35;
   idx_PresupuestosClienteID_PEDIDO = 36;
   idx_PresupuestosClienteREFERENCIA_PEDIDO_CLIENTE = 37;
-  idx_PresupuestosClienteNUM_COPIAS = 38;
+  idx_PresupuestosClienteID_AGENTE = 38;
-  idx_PresupuestosClienteNUM_CORREOS = 39;
+  idx_PresupuestosClienteAGENTE = 39;
+  idx_PresupuestosClienteNUM_COPIAS = 40;
+  idx_PresupuestosClienteNUM_CORREOS = 41;
 
   { PresupuestosCliente_Detalles fields }
   fld_PresupuestosCliente_DetallesID = 'ID';
@@ -145,7 +149,7 @@ const
 type
   { IListaAnosPresupuestos }
   IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
-  ['{3ED70730-85C2-4C27-A2F6-FEA51A435D94}']
+  ['{347EB82F-86E0-44F8-89CC-1A41D79E8CC0}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -159,7 +163,7 @@ type
   end;
 
   { TListaAnosPresupuestosDataTableRules }
-  TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos)
+  TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos)
   private
   protected
     { Property getters and setters }
@@ -180,7 +184,7 @@ type
 
   { IPresupuestosCliente }
   IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
-  ['{9F9B3F3D-05D0-4A3C-9BAA-2F093CD0A031}']
+  ['{52E0A5A8-9605-4DD9-B295-9074E20F5153}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -330,6 +334,14 @@ type
     procedure SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String);
     function GetREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean;
     procedure SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean);
+    function GetID_AGENTEValue: Integer;
+    procedure SetID_AGENTEValue(const aValue: Integer);
+    function GetID_AGENTEIsNull: Boolean;
+    procedure SetID_AGENTEIsNull(const aValue: Boolean);
+    function GetAGENTEValue: String;
+    procedure SetAGENTEValue(const aValue: String);
+    function GetAGENTEIsNull: Boolean;
+    procedure SetAGENTEIsNull(const aValue: Boolean);
     function GetNUM_COPIASValue: SmallInt;
     procedure SetNUM_COPIASValue(const aValue: SmallInt);
     function GetNUM_COPIASIsNull: Boolean;
@@ -417,6 +429,10 @@ type
     property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
     property REFERENCIA_PEDIDO_CLIENTE: String read GetREFERENCIA_PEDIDO_CLIENTEValue write SetREFERENCIA_PEDIDO_CLIENTEValue;
     property REFERENCIA_PEDIDO_CLIENTEIsNull: Boolean read GetREFERENCIA_PEDIDO_CLIENTEIsNull write SetREFERENCIA_PEDIDO_CLIENTEIsNull;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+    property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
+    property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
     property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
     property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
@@ -424,7 +440,7 @@ type
   end;
 
   { TPresupuestosClienteDataTableRules }
-  TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
+  TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
   private
     f_PORTADA: IROStrings;
     f_MEMORIA: IROStrings;
@@ -584,6 +600,14 @@ type
     procedure SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String); virtual;
     function GetREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean; virtual;
     procedure SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetID_AGENTEValue: Integer; virtual;
+    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    function GetID_AGENTEIsNull: Boolean; virtual;
+    procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
+    function GetAGENTEValue: String; virtual;
+    procedure SetAGENTEValue(const aValue: String); virtual;
+    function GetAGENTEIsNull: Boolean; virtual;
+    procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
     function GetNUM_COPIASValue: SmallInt; virtual;
     procedure SetNUM_COPIASValue(const aValue: SmallInt); virtual;
     function GetNUM_COPIASIsNull: Boolean; virtual;
@@ -670,6 +694,10 @@ type
     property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
     property REFERENCIA_PEDIDO_CLIENTE: String read GetREFERENCIA_PEDIDO_CLIENTEValue write SetREFERENCIA_PEDIDO_CLIENTEValue;
     property REFERENCIA_PEDIDO_CLIENTEIsNull: Boolean read GetREFERENCIA_PEDIDO_CLIENTEIsNull write SetREFERENCIA_PEDIDO_CLIENTEIsNull;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+    property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
+    property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
     property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
     property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
@@ -683,7 +711,7 @@ type
 
   { IPresupuestosCliente_Detalles }
   IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{5E5C8B04-E48B-4886-8C47-62EFCE5F3ABF}']
+  ['{B0C6CE39-F20B-4FAA-AB25-C7B30B765A40}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -781,7 +809,7 @@ type
   end;
 
   { TPresupuestosCliente_DetallesDataTableRules }
-  TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles)
+  TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
   private
   protected
     { Property getters and setters }
@@ -1752,6 +1780,48 @@ begin
     DataTable.Fields[idx_PresupuestosClienteREFERENCIA_PEDIDO_CLIENTE].AsVariant := Null;
 end;
 
+function TPresupuestosClienteDataTableRules.GetID_AGENTEValue: Integer;
+begin
+  result := DataTable.Fields[idx_PresupuestosClienteID_AGENTE].AsInteger;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_PresupuestosClienteID_AGENTE].AsInteger := aValue;
+end;
+
+function TPresupuestosClienteDataTableRules.GetID_AGENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PresupuestosClienteID_AGENTE].IsNull;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PresupuestosClienteID_AGENTE].AsVariant := Null;
+end;
+
+function TPresupuestosClienteDataTableRules.GetAGENTEValue: String;
+begin
+  result := DataTable.Fields[idx_PresupuestosClienteAGENTE].AsString;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetAGENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_PresupuestosClienteAGENTE].AsString := aValue;
+end;
+
+function TPresupuestosClienteDataTableRules.GetAGENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PresupuestosClienteAGENTE].IsNull;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetAGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PresupuestosClienteAGENTE].AsVariant := Null;
+end;
+
 function TPresupuestosClienteDataTableRules.GetNUM_COPIASValue: SmallInt;
 begin
   result := DataTable.Fields[idx_PresupuestosClienteNUM_COPIAS].AsSmallInt;

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas

@@ -9,14 +9,14 @@ 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_ListaAnosPresupuestosDelta = '{34CA5EA1-B06E-450B-8002-C5EB2092C142}';
+  RID_ListaAnosPresupuestosDelta = '{4E2ABD2B-B653-485B-B3D5-B907387C435D}';
-  RID_PresupuestosClienteDelta = '{20AEA529-6FEF-4BE8-AA42-F8AE317348CE}';
+  RID_PresupuestosClienteDelta = '{2147C1BA-1E8D-4946-83BD-F8C3EC79775A}';
-  RID_PresupuestosCliente_DetallesDelta = '{8DC5B0B1-C2F2-424A-B6BB-155D253691F6}';
+  RID_PresupuestosCliente_DetallesDelta = '{B125B872-E2D4-46B6-888E-472B62E2775F}';
 
 type
   { IListaAnosPresupuestosDelta }
   IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
-  ['{34CA5EA1-B06E-450B-8002-C5EB2092C142}']
+  ['{4E2ABD2B-B653-485B-B3D5-B907387C435D}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -50,7 +50,7 @@ type
 
   { IPresupuestosClienteDelta }
   IPresupuestosClienteDelta = interface(IPresupuestosCliente)
-  ['{20AEA529-6FEF-4BE8-AA42-F8AE317348CE}']
+  ['{2147C1BA-1E8D-4946-83BD-F8C3EC79775A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -90,6 +90,8 @@ type
     function GetOldID_TIPO_IVAValue : Integer;
     function GetOldID_PEDIDOValue : Integer;
     function GetOldREFERENCIA_PEDIDO_CLIENTEValue : String;
+    function GetOldID_AGENTEValue : Integer;
+    function GetOldAGENTEValue : String;
     function GetOldNUM_COPIASValue : SmallInt;
     function GetOldNUM_CORREOSValue : SmallInt;
 
@@ -132,6 +134,8 @@ type
     property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
     property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
     property OldREFERENCIA_PEDIDO_CLIENTE : String read GetOldREFERENCIA_PEDIDO_CLIENTEValue;
+    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property OldAGENTE : String read GetOldAGENTEValue;
     property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
     property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
   end;
@@ -373,6 +377,18 @@ type
     function GetOldREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean; virtual;
     procedure SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String); virtual;
     procedure SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetID_AGENTEValue: Integer; virtual;
+    function GetID_AGENTEIsNull: Boolean; virtual;
+    function GetOldID_AGENTEValue: Integer; virtual;
+    function GetOldID_AGENTEIsNull: Boolean; virtual;
+    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
+    function GetAGENTEValue: String; virtual;
+    function GetAGENTEIsNull: Boolean; virtual;
+    function GetOldAGENTEValue: String; virtual;
+    function GetOldAGENTEIsNull: Boolean; virtual;
+    procedure SetAGENTEValue(const aValue: String); virtual;
+    procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
     function GetNUM_COPIASValue: SmallInt; virtual;
     function GetNUM_COPIASIsNull: Boolean; virtual;
     function GetOldNUM_COPIASValue: SmallInt; virtual;
@@ -539,6 +555,14 @@ type
     property REFERENCIA_PEDIDO_CLIENTEIsNull : Boolean read GetREFERENCIA_PEDIDO_CLIENTEIsNull write SetREFERENCIA_PEDIDO_CLIENTEIsNull;
     property OldREFERENCIA_PEDIDO_CLIENTE : String read GetOldREFERENCIA_PEDIDO_CLIENTEValue;
     property OldREFERENCIA_PEDIDO_CLIENTEIsNull : Boolean read GetOldREFERENCIA_PEDIDO_CLIENTEIsNull;
+    property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
+    property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
+    property AGENTEIsNull : Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
+    property OldAGENTE : String read GetOldAGENTEValue;
+    property OldAGENTEIsNull : Boolean read GetOldAGENTEIsNull;
     property NUM_COPIAS : SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property NUM_COPIASIsNull : Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
     property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
@@ -556,7 +580,7 @@ type
 
   { IPresupuestosCliente_DetallesDelta }
   IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
-  ['{8DC5B0B1-C2F2-424A-B6BB-155D253691F6}']
+  ['{B125B872-E2D4-46B6-888E-472B62E2775F}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PRESUPUESTOValue : Integer;
@@ -2019,6 +2043,68 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_PEDIDO_CLIENTE] := Null;
 end;
 
+function TPresupuestosClienteBusinessProcessorRules.GetID_AGENTEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_AGENTE];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_AGENTE]);
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_AGENTE];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_AGENTE]);
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_AGENTE] := aValue;
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_AGENTE] := Null;
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetAGENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteAGENTE];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetAGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteAGENTE]);
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldAGENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteAGENTE];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldAGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteAGENTE]);
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetAGENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteAGENTE] := aValue;
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetAGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteAGENTE] := Null;
+end;
+
 function TPresupuestosClienteBusinessProcessorRules.GetNUM_COPIASValue: SmallInt;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNUM_COPIAS];

Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm

@@ -206,6 +206,14 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               item
                 DatasetField = 'NUM_CORREOS'
                 TableField = 'NUM_CORREOS'
+              end
+              item
+                DatasetField = 'ID_AGENTE'
+                TableField = 'ID_AGENTE'
+              end
+              item
+                DatasetField = 'AGENTE'
+                TableField = 'AGENTE'
               end>
           end>
         Name = 'PresupuestosCliente'
@@ -410,6 +418,15 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             DataType = datString
             Size = 255
           end
+          item
+            Name = 'ID_AGENTE'
+            DataType = datInteger
+          end
+          item
+            Name = 'AGENTE'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'NUM_COPIAS'
             DataType = datSmallInt

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm

@@ -157,6 +157,10 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
         BestFitMaxWidth = 25
         Width = 25
       end
+      object cxGridViewAGENTE: TcxGridDBColumn
+        Caption = 'Agente'
+        DataBinding.FieldName = 'AGENTE'
+      end
     end
     object cxGridDBTableView1: TcxGridDBTableView [1]
       NavigatorButtons.ConfirmDelete = False
@@ -265,7 +269,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
           Action = actCliente
         end
         object TBXSeparatorItem1: TTBXSeparatorItem
-          Visible = False
+        end
+        object TBXItem4: TTBXItem
+          Action = actAgente
+        end
+        object TBXSeparatorItem3: TTBXSeparatorItem
         end
         object TBXItem2: TTBXItem
           Action = actProvincia
@@ -314,6 +322,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
       OnExecute = actProvinciaExecute
       OnUpdate = actProvinciaUpdate
     end
+    object actAgente: TAction
+      Caption = 'Agente'
+      OnExecute = actAgenteExecute
+      OnUpdate = actAgenteUpdate
+    end
   end
   inherited GridPNGImageList: TPngImageList
     PngImages = <

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas

@@ -53,6 +53,10 @@ type
     cxGridViewTIPO_PRESUPUESTO: TcxGridDBColumn;
     cxGridViewNOM_COPIAS: TcxGridDBColumn;
     cxGridViewNUM_CORREOS: TcxGridDBColumn;
+    cxGridViewAGENTE: TcxGridDBColumn;
+    TBXItem4: TTBXItem;
+    actAgente: TAction;
+    TBXSeparatorItem3: TTBXSeparatorItem;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@@ -84,6 +88,8 @@ type
     procedure cxGridViewNOM_COPIASCustomDrawHeader(Sender: TcxGridTableView;
       ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo;
       var ADone: Boolean);
+    procedure actAgenteExecute(Sender: TObject);
+    procedure actAgenteUpdate(Sender: TObject);
 
   private
     //Filtros relativos a la vista
@@ -108,6 +114,26 @@ uses
 
 {$R *.dfm}
 
+procedure TfrViewPresupuestosCliente.actAgenteExecute(Sender: TObject);
+begin
+  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 TfrViewPresupuestosCliente.actAgenteUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
+end;
+
 procedure TfrViewPresupuestosCliente.actClienteExecute(Sender: TObject);
 begin
   if (cxGridViewNOMBRE.GroupIndex < 0) then

Source/Servidor/FactuGES_Server.dproj

@@ -35,7 +35,9 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType />
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">3</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">4.4.3.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">4.4.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 10 de marzo de 2015 18:26</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">4</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">4.4.4.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">4.4.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 22 de abril de 2015 17:48</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
       
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 4,4,3,0
+FILEVERSION 4,4,4,0
-PRODUCTVERSION 4,4,3,0
+PRODUCTVERSION 4,4,4,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
     BEGIN
          BLOCK "0C0A04E4"
          BEGIN
-              VALUE "FileVersion", "4.4.3.0\0"
+              VALUE "FileVersion", "4.4.4.0\0"
-              VALUE "ProductVersion", "4.4.3.0\0"
+              VALUE "ProductVersion", "4.4.4.0\0"
-              VALUE "CompileDate", "miércoles, 22 de abril de 2015 17:48\0"
+              VALUE "CompileDate", "viernes, 11 de septiembre de 2015 10:44\0"
          END
     END
     BLOCK "VarFileInfo"