From 9b50aa673ee4ad34181d89d80c9ca6f81d4a487d Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 1 Oct 2015 17:11:53 +0000 Subject: [PATCH] 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 | 44 +++++-- Source/Cliente/FactuGES.dproj | 2 +- Source/Cliente/FactuGES.rc | 8 +- Source/Cliente/FactuGES.res | Bin 171984 -> 171984 bytes .../Views/uViewInformeBaseGrid.dfm | 3 + .../Data/uDataModulePedidosCliente.dfm | 9 ++ .../Model/schPedidosClienteClient_Intf.pas | 98 ++++++++++++--- .../Model/schPedidosClienteServer_Intf.pas | 114 +++++++++++++++--- .../PedidosCliente_Group.groupproj | 42 +++---- .../Servidor/srvPedidosCliente_Impl.dfm | 17 +++ .../Views/uViewPedidosCliente.dfm | 16 +++ .../Views/uViewPedidosCliente.pas | 26 ++++ .../Data/uDataModulePresupuestosCliente.dfm | 9 ++ .../schPresupuestosClienteClient_Intf.pas | 94 +++++++++++++-- .../schPresupuestosClienteServer_Intf.pas | 98 ++++++++++++++- .../Servidor/srvPresupuestosCliente_Impl.dfm | 17 +++ .../Views/uViewPresupuestosCliente.dfm | 15 ++- .../Views/uViewPresupuestosCliente.pas | 26 ++++ Source/Servidor/FactuGES_Server.RES | Bin 23208 -> 23212 bytes Source/Servidor/FactuGES_Server.dproj | 4 +- Source/Servidor/FactuGES_Server.rc | 10 +- 21 files changed, 561 insertions(+), 91 deletions(-) diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 19a6b3c..a08ee20 100644 --- a/Database/scripts/factuges.sql +++ b/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')) -; +; diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 9495746..71cc679 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -53,7 +53,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4430FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.4.3.0FactuGESFactuGES4.4.3.0FactuGES.dprFalse +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4440FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.4.4.0FactuGESFactuGES4.4.4.0FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 64a82f9..eada623 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 4,4,3,0 -PRODUCTVERSION 4,4,3,0 +FILEVERSION 4,4,4,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" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index eea2b1cda9fe304f3192cd4848feeaf4134575b2..21dcd0fdf72eb0ad2df3f0dcc3c078099709fa45 100644 GIT binary patch delta 42 vcmcbxpX Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas index 1aa5f50..e93f2b2 100644 --- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas +++ b/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_PedidosProveedor = '{3AD30CEC-123C-4814-ABEE-7CBFEACC5046}'; - RID_PedidosCliente = '{3818AE6E-8880-4DA2-AFE7-3BA16B6ACDC9}'; - RID_PedidosCliente_Detalles = '{B5B584AB-7EDB-470F-BC37-CDC90F320865}'; - RID_PedidosCliente_Articulos_Pendientes = '{1463B127-D633-4CB1-B80C-2D1DC7D67D62}'; - RID_PedidoCliente_ArticulosPendientesPedirAProv = '{65EB3E68-A0F0-4D3E-B8B1-BE492B381E09}'; - RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{9E91A095-986F-4653-AFDD-DC35FD643A81}'; + RID_ListaAnosPedidos = '{1F0D1CEA-72FF-45DF-9F29-B717FF5CE397}'; + RID_PedidosProveedor = '{02DD8FC4-99BB-4B51-B89E-68253F4083B7}'; + RID_PedidosCliente = '{86DA25A6-F592-4109-A0EC-AC01227830F7}'; + RID_PedidosCliente_Detalles = '{C6F42BD9-08CD-46C4-A131-B65D54B2F57C}'; + RID_PedidosCliente_Articulos_Pendientes = '{3CE21E24-8BD5-466E-9C75-A614D7520177}'; + RID_PedidoCliente_ArticulosPendientesPedirAProv = '{5E9768A3-7561-45F9-BE05-7AD4F8C62367}'; + 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); diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas index 94848db..f89cc12 100644 --- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas +++ b/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_PedidosProveedorDelta = '{F6BB4C65-CF9A-4DD3-A4A9-218BF96AA231}'; - RID_PedidosClienteDelta = '{5E14E396-2278-4E58-9E05-2187E20237DD}'; - RID_PedidosCliente_DetallesDelta = '{8BE084A3-2D4B-404D-9624-F4A5B4D0A3AD}'; - RID_PedidosCliente_Articulos_PendientesDelta = '{3202351E-CE35-40B7-B9F3-A9E8E82253A9}'; - RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{708CDEE3-6D6D-45FA-9FB2-D65DC92F6999}'; - RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{41CD6113-3662-4572-9A24-5246CD483138}'; + RID_ListaAnosPedidosDelta = '{9D5054B0-9042-4E8B-9A21-934C56BB7DE9}'; + RID_PedidosProveedorDelta = '{EC16A954-9598-4583-AEE4-6C7E97EA7EB1}'; + RID_PedidosClienteDelta = '{70F56B09-DB20-4AA9-A6B0-80E526A3FE87}'; + RID_PedidosCliente_DetallesDelta = '{DA4E3B5A-4E9B-4C9A-BD97-BEDA56DA2DC3}'; + RID_PedidosCliente_Articulos_PendientesDelta = '{EF9B7694-BF6A-4027-BA88-A4B4FBAEF511}'; + RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{52337014-8D82-4655-ACD4-ED5D9D795653}'; + 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); diff --git a/Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj b/Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj index 683be15..20b1e30 100644 --- a/Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj +++ b/Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj @@ -224,6 +224,24 @@ + + + + + + + + + + + + + + + + + + @@ -386,15 +404,6 @@ - - - - - - - - - @@ -422,23 +431,14 @@ - - - - - - - - - - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm index d4bb08f..c983ce3 100644 --- a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm +++ b/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 diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm index 5fce3e6..8c018e2 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm +++ b/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 = < diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas index 593faa3..d3dcd8a 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas +++ b/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 diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm index fdfc11a..0093585 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm +++ b/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 diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas index 15505cd..addfcdf 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas +++ b/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_PresupuestosCliente = '{1189B99E-2CDA-4602-919D-C609D96D2A90}'; - RID_PresupuestosCliente_Detalles = '{085498EC-C5B1-40FF-8E94-6AE308799F01}'; + RID_ListaAnosPresupuestos = '{A5CCBECB-9270-4681-9429-ED71B913E585}'; + RID_PresupuestosCliente = '{4F26E768-ACDD-41DA-9C20-CB307CF45DA0}'; + 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_PresupuestosClienteNUM_CORREOS = 39; + idx_PresupuestosClienteID_AGENTE = 38; + 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; diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas index fd071a2..44f7748 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas +++ b/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_PresupuestosClienteDelta = '{20AEA529-6FEF-4BE8-AA42-F8AE317348CE}'; - RID_PresupuestosCliente_DetallesDelta = '{8DC5B0B1-C2F2-424A-B6BB-155D253691F6}'; + RID_ListaAnosPresupuestosDelta = '{4E2ABD2B-B653-485B-B3D5-B907387C435D}'; + RID_PresupuestosClienteDelta = '{2147C1BA-1E8D-4946-83BD-F8C3EC79775A}'; + 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]; diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm index 0809e42..72b2db5 100644 --- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm +++ b/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 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm index 779316a..f0bfcfc 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm +++ b/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 = < diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas index a6ca3ab..6539b78 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas +++ b/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 diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index e143026798b20f92669357e2dfa738dfc14f6282..c425030769c2f6eaafa14fa03fb451c4f641f7f4 100644 GIT binary patch delta 151 zcmZ3nm2u5h#tnBO7&lD58zB!Q|3;W{vM_)k0|U!s>quEffyt4P%8YL&*GAeinoQms zY0PcHpvPbUlrLb=nEX3Z*0+oylOdI%h#?P17BlEDC@>fTp#nn+kgos~Nd>Ab0jtSn fNCK(@i9+OzfaVx7n1Xc}Fjz5|FqlkEjB*D6AbKKs delta 147 zcmZ3pm2t&Z#tnBO7}rd`8zB!Q|3;W{GBdCMAp-;RWa~&-My|<`k;;tECf7#VGa66c z8)?jK%%I0$0F=*SP@VicQr0tDelphi.Personality -FalseTrueFalse/standaloneTrueFalse4430FalseFalseFalseFalseFalse308212524.4.3.04.4.3.0martes, 10 de marzo de 2015 18:26 +FalseTrueFalse/standaloneTrueFalse4440FalseFalseFalseFalseFalse308212524.4.4.04.4.4.0miércoles, 22 de abril de 2015 17:48 + + ExpressPrinting System by Developer Express Inc. FactuGES_Server.dprFalse diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index aedfeef..f3927bf 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico" 1 VERSIONINFO -FILEVERSION 4,4,3,0 -PRODUCTVERSION 4,4,3,0 +FILEVERSION 4,4,4,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 "ProductVersion", "4.4.3.0\0" - VALUE "CompileDate", "miércoles, 22 de abril de 2015 17:48\0" + VALUE "FileVersion", "4.4.4.0\0" + VALUE "ProductVersion", "4.4.4.0\0" + VALUE "CompileDate", "viernes, 11 de septiembre de 2015 10:44\0" END END BLOCK "VarFileInfo"