From 8970cfe7362e555534576b1177f2e19b63e6a8e9 Mon Sep 17 00:00:00 2001 From: david Date: Fri, 18 Jan 2008 20:26:43 +0000 Subject: [PATCH] Poder agrupar los albaranes por agente, arreglo de portes y otros detalles git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@211 c93665c3-c93d-084d-9b98-7d5f4a9c3376 --- Source/Informes/InfFacturaProveedor.fr3 | 26 +++-- .../AlbaranesCliente_Group.bdsgroup | 3 +- .../uAlbaranesClienteController.pas | 1 - .../Data/uDataModuleAlbaranesCliente.dfm | 29 ++++- .../Model/schAlbaranesClienteClient_Intf.pas | 92 +++++++++++++-- .../Model/schAlbaranesClienteServer_Intf.pas | 108 ++++++++++++++++-- .../Servidor/srvAlbaranesCliente_Impl.dfm | 67 ++++++++++- .../Views/AlbaranesCliente_view.bdsproj | 11 +- .../Views/uViewAlbaranesCliente.dfm | 21 ++++ .../Views/uViewAlbaranesCliente.pas | 27 +++++ .../FacturasCliente_Group.bdsgroup | 8 +- .../Views/uEditorFacturaCliente.dfm | 6 + .../Reports/uRptFacturasProveedor_Server.dfm | 49 +++++--- .../Views/uEditorFacturaProveedor.dfm | 53 +++++---- .../Controller/uPedidosClienteController.pas | 1 - Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.rc | 2 +- Source/Servidor/FactuGES_Server.res | Bin 23344 -> 23340 bytes 18 files changed, 413 insertions(+), 97 deletions(-) diff --git a/Source/Informes/InfFacturaProveedor.fr3 b/Source/Informes/InfFacturaProveedor.fr3 index 8d25855f..4f4a7e9c 100644 --- a/Source/Informes/InfFacturaProveedor.fr3 +++ b/Source/Informes/InfFacturaProveedor.fr3 @@ -1,5 +1,5 @@ - + @@ -49,20 +49,22 @@ - - - - - - - - - - + + + + + + + + + + + + - + diff --git a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup index b3ea12ae..2d21f129 100644 --- a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup +++ b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup @@ -21,7 +21,8 @@ Views\AlbaranesCliente_view.bdsproj Plugin\AlbaranesCliente_plugin.bdsproj ..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj - DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl AlbCli_FacCli_relation.bpl + ..\Facturas de cliente\Views\FacturasCliente_view.bdsproj + DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas index 05df4e39..6eaec2f3 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas @@ -1016,7 +1016,6 @@ begin AAlbaran.Edit; try AAlbaran.IMPORTE_NETO := FDetallesController.DarTotalImporteTotal(AAlbaran.Detalles); - AAlbaran.IMPORTE_PORTE := FDetallesController.DarTotalPorteTotal(AAlbaran.Detalles); if not bEnEdicion then AAlbaran.Post; finally diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm index 8dbc3304..10bf388b 100644 --- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm @@ -49,7 +49,7 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente Name = 'User' ParamType = fIn DataType = rtString - Value = 'Administrador' + Value = 'Luis' end item Name = 'Password' @@ -587,6 +587,33 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente Calculated = False Lookup = False LookupCache = False + end + item + Name = 'ID_AGENTE' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'AlbaranesCliente_ID_AGENTE' + Alignment = taLeftJustify + DictionaryEntry = 'AlbaranesCliente_ID_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Agente' + Alignment = taLeftJustify + DictionaryEntry = 'AlbaranesCliente_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False end> Params = <> MasterMappingMode = mmDataRequest diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas index 7183ab43..e5628812 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas @@ -9,11 +9,11 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_DarReferencia = '{8FF21D79-2A38-49A1-9920-59BF9D1A3761}'; - RID_AlbaranesCliente = '{286BA8B4-1D1A-4A28-92AD-EE389E49F82F}'; - RID_AlbaranesCliente_Detalles = '{204AB55B-DFB6-4C06-97FE-ACE0073003D9}'; - RID_AlbaranesCliente_Detalles_Refresh = '{DD2DF7C8-E7A8-4460-8124-A68A24FA8708}'; - RID_AlbaranesCliente_Refresh = '{613B4A25-BE5C-4641-920A-A2928969F49C}'; + RID_DarReferencia = '{341025B6-FE72-4C74-BDF0-C3927C245F63}'; + RID_AlbaranesCliente = '{16CEF413-0B6A-4EF4-93E5-84AA225DFAD4}'; + RID_AlbaranesCliente_Detalles = '{D5262A01-1237-4B9B-94C7-69EB0A2EE285}'; + RID_AlbaranesCliente_Detalles_Refresh = '{185547D0-70EE-444D-9F66-AD112ED2E6DD}'; + RID_AlbaranesCliente_Refresh = '{6B67F077-F0E0-4D9F-81E4-4DA4F11B1D17}'; { Data table names } nme_DarReferencia = 'DarReferencia'; @@ -68,6 +68,8 @@ const fld_AlbaranesClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO'; fld_AlbaranesClienteFECHA_ENVIO = 'FECHA_ENVIO'; fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION'; + fld_AlbaranesClienteID_AGENTE = 'ID_AGENTE'; + fld_AlbaranesClienteAGENTE = 'AGENTE'; { AlbaranesCliente field indexes } idx_AlbaranesClienteID = 0; @@ -109,6 +111,8 @@ const idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 36; idx_AlbaranesClienteFECHA_ENVIO = 37; idx_AlbaranesClienteFECHA_RECEPCION = 38; + idx_AlbaranesClienteID_AGENTE = 39; + idx_AlbaranesClienteAGENTE = 40; { AlbaranesCliente_Detalles fields } fld_AlbaranesCliente_DetallesID = 'ID'; @@ -214,6 +218,8 @@ const fld_AlbaranesCliente_RefreshFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO'; fld_AlbaranesCliente_RefreshFECHA_ENVIO = 'FECHA_ENVIO'; fld_AlbaranesCliente_RefreshFECHA_RECEPCION = 'FECHA_RECEPCION'; + fld_AlbaranesCliente_RefreshID_AGENTE = 'ID_AGENTE'; + fld_AlbaranesCliente_RefreshAGENTE = 'AGENTE'; { AlbaranesCliente_Refresh field indexes } idx_AlbaranesCliente_RefreshID = 0; @@ -255,11 +261,13 @@ const idx_AlbaranesCliente_RefreshFECHA_PREVISTA_ENVIO = 36; idx_AlbaranesCliente_RefreshFECHA_ENVIO = 37; idx_AlbaranesCliente_RefreshFECHA_RECEPCION = 38; + idx_AlbaranesCliente_RefreshID_AGENTE = 39; + idx_AlbaranesCliente_RefreshAGENTE = 40; type { IDarReferencia } IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{C690B03E-DC7C-40EA-AD23-A11C074ED29D}'] + ['{C2E7FD79-3AA4-4157-8F79-E6E526FDCC9B}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -288,7 +296,7 @@ type { IAlbaranesCliente } IAlbaranesCliente = interface(IDAStronglyTypedDataTable) - ['{FE25F44D-23C6-4BBB-8352-80D4C8666E2B}'] + ['{E4A33579-0951-4E59-99D3-6F272440FE61}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -368,6 +376,10 @@ type procedure SetFECHA_ENVIOValue(const aValue: DateTime); function GetFECHA_RECEPCIONValue: DateTime; procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); + function GetID_AGENTEValue: Integer; + procedure SetID_AGENTEValue(const aValue: Integer); + function GetAGENTEValue: String; + procedure SetAGENTEValue(const aValue: String); { Properties } @@ -410,6 +422,8 @@ type property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; property FECHA_ENVIO: DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue; property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue; + property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; + property AGENTE: String read GetAGENTEValue write SetAGENTEValue; end; { TAlbaranesClienteDataTableRules } @@ -495,6 +509,10 @@ type procedure SetFECHA_ENVIOValue(const aValue: DateTime); virtual; function GetFECHA_RECEPCIONValue: DateTime; virtual; procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual; + function GetID_AGENTEValue: Integer; virtual; + procedure SetID_AGENTEValue(const aValue: Integer); virtual; + function GetAGENTEValue: String; virtual; + procedure SetAGENTEValue(const aValue: String); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -536,6 +554,8 @@ type property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; property FECHA_ENVIO: DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue; property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue; + property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; + property AGENTE: String read GetAGENTEValue write SetAGENTEValue; public constructor Create(aDataTable: TDADataTable); override; @@ -545,7 +565,7 @@ type { IAlbaranesCliente_Detalles } IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{E58F6EA5-0A62-40F4-9E09-6F6D91F8A46D}'] + ['{97C8D6FE-11E0-4CF1-9B6F-F84B193FB0FB}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -652,7 +672,7 @@ type { IAlbaranesCliente_Detalles_Refresh } IAlbaranesCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable) - ['{A088060C-CE4F-486A-9311-0DCDCE6216CE}'] + ['{E9B38B1D-00D3-4E28-AAC2-94A82323A4CC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -759,7 +779,7 @@ type { IAlbaranesCliente_Refresh } IAlbaranesCliente_Refresh = interface(IDAStronglyTypedDataTable) - ['{BF8BA7D7-C0A1-47D8-9D69-65EC70584C39}'] + ['{59B27143-6A32-490E-99D3-EBCA96FEF3E7}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -839,6 +859,10 @@ type procedure SetFECHA_ENVIOValue(const aValue: DateTime); function GetFECHA_RECEPCIONValue: DateTime; procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); + function GetID_AGENTEValue: Integer; + procedure SetID_AGENTEValue(const aValue: Integer); + function GetAGENTEValue: String; + procedure SetAGENTEValue(const aValue: String); { Properties } @@ -881,6 +905,8 @@ type property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; property FECHA_ENVIO: DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue; property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue; + property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; + property AGENTE: String read GetAGENTEValue write SetAGENTEValue; end; { TAlbaranesCliente_RefreshDataTableRules } @@ -966,6 +992,10 @@ type procedure SetFECHA_ENVIOValue(const aValue: DateTime); virtual; function GetFECHA_RECEPCIONValue: DateTime; virtual; procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual; + function GetID_AGENTEValue: Integer; virtual; + procedure SetID_AGENTEValue(const aValue: Integer); virtual; + function GetAGENTEValue: String; virtual; + procedure SetAGENTEValue(const aValue: String); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -1007,6 +1037,8 @@ type property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; property FECHA_ENVIO: DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue; property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue; + property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; + property AGENTE: String read GetAGENTEValue write SetAGENTEValue; public constructor Create(aDataTable: TDADataTable); override; @@ -1443,6 +1475,26 @@ begin DataTable.Fields[idx_AlbaranesClienteFECHA_RECEPCION].AsDateTime := aValue; end; +function TAlbaranesClienteDataTableRules.GetID_AGENTEValue: Integer; +begin + result := DataTable.Fields[idx_AlbaranesClienteID_AGENTE].AsInteger; +end; + +procedure TAlbaranesClienteDataTableRules.SetID_AGENTEValue(const aValue: Integer); +begin + DataTable.Fields[idx_AlbaranesClienteID_AGENTE].AsInteger := aValue; +end; + +function TAlbaranesClienteDataTableRules.GetAGENTEValue: String; +begin + result := DataTable.Fields[idx_AlbaranesClienteAGENTE].AsString; +end; + +procedure TAlbaranesClienteDataTableRules.SetAGENTEValue(const aValue: String); +begin + DataTable.Fields[idx_AlbaranesClienteAGENTE].AsString := aValue; +end; + { TAlbaranesCliente_DetallesDataTableRules } constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); @@ -2151,6 +2203,26 @@ begin DataTable.Fields[idx_AlbaranesCliente_RefreshFECHA_RECEPCION].AsDateTime := aValue; end; +function TAlbaranesCliente_RefreshDataTableRules.GetID_AGENTEValue: Integer; +begin + result := DataTable.Fields[idx_AlbaranesCliente_RefreshID_AGENTE].AsInteger; +end; + +procedure TAlbaranesCliente_RefreshDataTableRules.SetID_AGENTEValue(const aValue: Integer); +begin + DataTable.Fields[idx_AlbaranesCliente_RefreshID_AGENTE].AsInteger := aValue; +end; + +function TAlbaranesCliente_RefreshDataTableRules.GetAGENTEValue: String; +begin + result := DataTable.Fields[idx_AlbaranesCliente_RefreshAGENTE].AsString; +end; + +procedure TAlbaranesCliente_RefreshDataTableRules.SetAGENTEValue(const aValue: String); +begin + DataTable.Fields[idx_AlbaranesCliente_RefreshAGENTE].AsString := aValue; +end; + initialization RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules); diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas index 2c242300..c52601f9 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas @@ -9,16 +9,16 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_DarReferenciaDelta = '{D519E3C7-849C-4730-A2B7-6319C0AD5448}'; - RID_AlbaranesClienteDelta = '{303FA8ED-65F6-4DCB-8037-55544878855F}'; - RID_AlbaranesCliente_DetallesDelta = '{DE5A91E2-3F7F-4EED-88C0-5E42F395A6EC}'; - RID_AlbaranesCliente_Detalles_RefreshDelta = '{2CFAF206-0220-4452-A453-B1B90592A487}'; - RID_AlbaranesCliente_RefreshDelta = '{BCDCFE41-5279-4F6C-9BD5-B5D8915184D5}'; + RID_DarReferenciaDelta = '{41FD0C2E-1F83-4A29-90F8-DF7AC5F20671}'; + RID_AlbaranesClienteDelta = '{DF0B838F-1795-4D57-9430-4BDC5E34F39F}'; + RID_AlbaranesCliente_DetallesDelta = '{F9848F77-A24D-4559-A63E-46C49E6B6FCA}'; + RID_AlbaranesCliente_Detalles_RefreshDelta = '{6F609F3D-CA71-4EDF-88DC-126708EA0DFA}'; + RID_AlbaranesCliente_RefreshDelta = '{AEF4C61D-CCBB-4E95-9F61-4D891E5F00B3}'; type { IDarReferenciaDelta } IDarReferenciaDelta = interface(IDarReferencia) - ['{D519E3C7-849C-4730-A2B7-6319C0AD5448}'] + ['{41FD0C2E-1F83-4A29-90F8-DF7AC5F20671}'] { Property getters and setters } function GetOldVALORValue : String; @@ -47,7 +47,7 @@ type { IAlbaranesClienteDelta } IAlbaranesClienteDelta = interface(IAlbaranesCliente) - ['{303FA8ED-65F6-4DCB-8037-55544878855F}'] + ['{DF0B838F-1795-4D57-9430-4BDC5E34F39F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -88,6 +88,8 @@ type function GetOldFECHA_PREVISTA_ENVIOValue : DateTime; function GetOldFECHA_ENVIOValue : DateTime; function GetOldFECHA_RECEPCIONValue : DateTime; + function GetOldID_AGENTEValue : Integer; + function GetOldAGENTEValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -129,6 +131,8 @@ type property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue; property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue; property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue; + property OldID_AGENTE : Integer read GetOldID_AGENTEValue; + property OldAGENTE : String read GetOldAGENTEValue; end; { TAlbaranesClienteBusinessProcessorRules } @@ -253,6 +257,12 @@ type function GetFECHA_RECEPCIONValue: DateTime; virtual; function GetOldFECHA_RECEPCIONValue: DateTime; virtual; procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual; + function GetID_AGENTEValue: Integer; virtual; + function GetOldID_AGENTEValue: Integer; virtual; + procedure SetID_AGENTEValue(const aValue: Integer); virtual; + function GetAGENTEValue: String; virtual; + function GetOldAGENTEValue: String; virtual; + procedure SetAGENTEValue(const aValue: String); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -333,6 +343,10 @@ type property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue; property FECHA_RECEPCION : DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue; property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue; + property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue; + property OldID_AGENTE : Integer read GetOldID_AGENTEValue; + property AGENTE : String read GetAGENTEValue write SetAGENTEValue; + property OldAGENTE : String read GetOldAGENTEValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -342,7 +356,7 @@ type { IAlbaranesCliente_DetallesDelta } IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) - ['{DE5A91E2-3F7F-4EED-88C0-5E42F395A6EC}'] + ['{F9848F77-A24D-4559-A63E-46C49E6B6FCA}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; @@ -462,7 +476,7 @@ type { IAlbaranesCliente_Detalles_RefreshDelta } IAlbaranesCliente_Detalles_RefreshDelta = interface(IAlbaranesCliente_Detalles_Refresh) - ['{2CFAF206-0220-4452-A453-B1B90592A487}'] + ['{6F609F3D-CA71-4EDF-88DC-126708EA0DFA}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; @@ -582,7 +596,7 @@ type { IAlbaranesCliente_RefreshDelta } IAlbaranesCliente_RefreshDelta = interface(IAlbaranesCliente_Refresh) - ['{BCDCFE41-5279-4F6C-9BD5-B5D8915184D5}'] + ['{AEF4C61D-CCBB-4E95-9F61-4D891E5F00B3}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -623,6 +637,8 @@ type function GetOldFECHA_PREVISTA_ENVIOValue : DateTime; function GetOldFECHA_ENVIOValue : DateTime; function GetOldFECHA_RECEPCIONValue : DateTime; + function GetOldID_AGENTEValue : Integer; + function GetOldAGENTEValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -664,6 +680,8 @@ type property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue; property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue; property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue; + property OldID_AGENTE : Integer read GetOldID_AGENTEValue; + property OldAGENTE : String read GetOldAGENTEValue; end; { TAlbaranesCliente_RefreshBusinessProcessorRules } @@ -788,6 +806,12 @@ type function GetFECHA_RECEPCIONValue: DateTime; virtual; function GetOldFECHA_RECEPCIONValue: DateTime; virtual; procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual; + function GetID_AGENTEValue: Integer; virtual; + function GetOldID_AGENTEValue: Integer; virtual; + procedure SetID_AGENTEValue(const aValue: Integer); virtual; + function GetAGENTEValue: String; virtual; + function GetOldAGENTEValue: String; virtual; + procedure SetAGENTEValue(const aValue: String); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -868,6 +892,10 @@ type property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue; property FECHA_RECEPCION : DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue; property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue; + property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue; + property OldID_AGENTE : Integer read GetOldID_AGENTEValue; + property AGENTE : String read GetAGENTEValue write SetAGENTEValue; + property OldAGENTE : String read GetOldAGENTEValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -1507,6 +1535,36 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_RECEPCION] := aValue; end; +function TAlbaranesClienteBusinessProcessorRules.GetID_AGENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_AGENTE]; +end; + +function TAlbaranesClienteBusinessProcessorRules.GetOldID_AGENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_AGENTE]; +end; + +procedure TAlbaranesClienteBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_AGENTE] := aValue; +end; + +function TAlbaranesClienteBusinessProcessorRules.GetAGENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteAGENTE]; +end; + +function TAlbaranesClienteBusinessProcessorRules.GetOldAGENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteAGENTE]; +end; + +procedure TAlbaranesClienteBusinessProcessorRules.SetAGENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteAGENTE] := aValue; +end; + { TAlbaranesCliente_DetallesBusinessProcessorRules } constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -2552,6 +2610,36 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshFECHA_RECEPCION] := aValue; end; +function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_AGENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_AGENTE]; +end; + +function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_AGENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_AGENTE]; +end; + +procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_AGENTE] := aValue; +end; + +function TAlbaranesCliente_RefreshBusinessProcessorRules.GetAGENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshAGENTE]; +end; + +function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldAGENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshAGENTE]; +end; + +procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetAGENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshAGENTE] := aValue; +end; + initialization RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules); diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm index b9ca15b1..6842ca02 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm +++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm @@ -78,8 +78,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente 'PORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_' + 'TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' + 'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' + - 'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION'#10' FROM'#10' V_ALB' + - 'ARANES_CLIENTE' + 'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION, ID_AGENTE, AGEN' + + 'TE'#10' FROM'#10' V_ALBARANES_CLIENTE' StatementType = stSQL ColumnMappings = < item @@ -645,6 +645,27 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Calculated = False Lookup = False LookupCache = False + end + item + Name = 'ID_AGENTE' + DataType = datInteger + BlobType = dabtUnknown + DictionaryEntry = 'AlbaranesCliente_ID_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'AlbaranesCliente_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript @@ -1147,8 +1168,9 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente 'PORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_' + 'TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' + 'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' + - 'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION'#10' FROM'#10' V_ALB' + - 'ARANES_CLIENTE'#10' WHERE V_ALBARANES_CLIENTE.ID = :ID' + 'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION, ID_AGENTE, AGEN' + + 'TE'#10' FROM'#10' V_ALBARANES_CLIENTE'#10' WHERE V_ALBARANES_CLIENTE.ID' + + ' = :ID' StatementType = stSQL ColumnMappings = < item @@ -1717,6 +1739,27 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Calculated = False Lookup = False LookupCache = False + end + item + Name = 'ID_AGENTE' + DataType = datInteger + BlobType = dabtUnknown + DictionaryEntry = 'AlbaranesCliente_ID_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'AlbaranesCliente_AGENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript @@ -3141,6 +3184,22 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify + end + item + Name = 'AlbaranesCliente_ID_AGENTE' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + end + item + Name = 'AlbaranesCliente_AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Agente' + Alignment = taLeftJustify end> Left = 48 Top = 152 diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.bdsproj b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.bdsproj index 12952742..910e05e3 100644 --- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.bdsproj +++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.bdsproj @@ -170,14 +170,9 @@ 1.0.0.0 - - File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found - File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found - File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found - File c:\archivos de programa\borland\delphi10\Bin\dclie100.bpl not found - - -