diff --git a/Build/Build.release.fbpInf b/Build/Build.release.fbpInf index e8457ee5..3fb40486 100644 --- a/Build/Build.release.fbpInf +++ b/Build/Build.release.fbpInf @@ -14,8 +14,8 @@ - 00:00:03 - 12/09/2016 11:17:57 - False + 00:02:57 + 06/02/2017 18:43:48 + True diff --git a/Build/Build.release.fbz6 b/Build/Build.release.fbz6 index 6b61b03f..d6b07115 100644 Binary files a/Build/Build.release.fbz6 and b/Build/Build.release.fbz6 differ diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 8d7a5948..2f33a27e 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -1805,7 +1805,8 @@ CREATE VIEW V_ALBARANES_CLIENTE( FECHA_ENVIO, FECHA_RECEPCION, ID_TIENDA, - TIENDA) + TIENDA, + LISTA_NOMBRES) AS SELECT ALBARANES_CLIENTE.ID, @@ -1853,7 +1854,8 @@ SELECT ALBARANES_CLIENTE.FECHA_ENVIO, ALBARANES_CLIENTE.FECHA_RECEPCION, ALBARANES_CLIENTE.ID_TIENDA, - COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA + COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA, + TRIM(leading ', ' from V_CONTACTOS_NOMBRES.OTROS_NOMBRES) as LISTA_NOMBRES FROM ALBARANES_CLIENTE @@ -1864,6 +1866,7 @@ FROM LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA) LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN) LEFT OUTER JOIN TIENDAS ON (TIENDAS.ID = ALBARANES_CLIENTE.ID_TIENDA) + LEFT OUTER JOIN V_CONTACTOS_NOMBRES ON (ALBARANES_CLIENTE.ID_CLIENTE = V_CONTACTOS_NOMBRES.ID) ; @@ -2606,7 +2609,8 @@ CREATE VIEW V_CONTRATOS_CLIENTE( TIPO_CONTRATO, CONDICIONES, CALIDADES, - REFERENCIA_CLIENTE) + REFERENCIA_CLIENTE, + LISTA_NOMBRES) AS SELECT CONTRATOS_CLIENTE.ID, /* CONTRATOS_CLIENTE.ID_EMPRESA,*/ @@ -2656,7 +2660,8 @@ SELECT CONTRATOS_CLIENTE.ID, CONTRATOS_CLIENTE.TIPO_CONTRATO, CONTRATOS_CLIENTE.CONDICIONES, CONTRATOS_CLIENTE.CALIDADES, - CONTRATOS_CLIENTE.REFERENCIA_CLIENTE + CONTRATOS_CLIENTE.REFERENCIA_CLIENTE, + TRIM(leading ', ' from V_CONTACTOS_NOMBRES.OTROS_NOMBRES) as LISTA_NOMBRES FROM CONTRATOS_CLIENTE LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = CONTRATOS_CLIENTE.ID_CLIENTE) @@ -2664,8 +2669,10 @@ SELECT CONTRATOS_CLIENTE.ID, LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (CONTRATOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID) INNER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = CONTRATOS_CLIENTE.ID_CLIENTE) LEFT JOIN TIENDAS ON (TIENDAS.ID = CONTRATOS_CLIENTE.ID_TIENDA) -; + LEFT OUTER JOIN V_CONTACTOS_NOMBRES ON (CONTRATOS_CLIENTE.ID_CLIENTE = V_CONTACTOS_NOMBRES.ID) +WHERE CONTRATOS_CLIENTE.fecha_contrato >= '01.01.2014' +; /* View: V_EMPRESAS_TIENDAS */ @@ -2903,8 +2910,10 @@ CREATE VIEW V_FACTURAS_CLIENTE( ASIENTO_PUNTEADO, ID_CONTRATO, REF_CONTRATO, + VENDEDOR, SIN_COMISION, - TIPO_FACTURA) + TIPO_FACTURA, + LISTA_NOMBRES) AS SELECT FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.ID_EMPRESA, @@ -2954,8 +2963,10 @@ SELECT FACTURAS_CLIENTE.ID, V_CONT_FAC_CLI_VENTAS.ASIENTO_PUNTEADO, FACTURAS_CLIENTE.ID_CONTRATO, CONTRATOS_CLIENTE.REFERENCIA, + VENDEDORES.NOMBRE as VENDEDOR, FACTURAS_CLIENTE.SIN_COMISION, - FACTURAS_CLIENTE.TIPO_FACTURA + FACTURAS_CLIENTE.TIPO_FACTURA, + V_CONTACTOS_NOMBRES.OTROS_NOMBRES as LISTA_NOMBRES FROM V_FAC_CLI_SITUACION LEFT JOIN FACTURAS_CLIENTE @@ -2967,6 +2978,8 @@ SELECT FACTURAS_CLIENTE.ID, LEFT JOIN TIENDAS ON (TIENDAS.ID = FACTURAS_CLIENTE.ID_TIENDA) LEFT JOIN V_CONT_FAC_CLI_VENTAS ON (V_CONT_FAC_CLI_VENTAS.ID_FACTURA = FACTURAS_CLIENTE.ID) LEFT JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = FACTURAS_CLIENTE.ID_CONTRATO) + LEFT JOIN CONTACTOS as VENDEDORES ON (CONTRATOS_CLIENTE.ID_VENDEDOR = VENDEDORES.ID) + LEFT OUTER JOIN V_CONTACTOS_NOMBRES ON (FACTURAS_CLIENTE.ID_CLIENTE = V_CONTACTOS_NOMBRES.ID) ; @@ -3951,7 +3964,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE( NO_VALORADO, TIPO_PRESUPUESTO, CALIDADES, - REFERENCIA_CLIENTE) + REFERENCIA_CLIENTE, + LISTA_NOMBRES) AS SELECT PRESUPUESTOS_CLIENTE.ID, @@ -3997,7 +4011,8 @@ SELECT PRESUPUESTOS_CLIENTE.NO_VALORADO, PRESUPUESTOS_CLIENTE.TIPO_PRESUPUESTO, PRESUPUESTOS_CLIENTE.CALIDADES, - PRESUPUESTOS_CLIENTE.REFERENCIA_CLIENTE + PRESUPUESTOS_CLIENTE.REFERENCIA_CLIENTE, + TRIM(leading ', ' from V_CONTACTOS_NOMBRES.OTROS_NOMBRES) as LISTA_NOMBRES FROM PRESUPUESTOS_CLIENTE @@ -4006,8 +4021,12 @@ FROM LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (PRESUPUESTOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID) LEFT OUTER JOIN TIENDAS ON (TIENDAS.ID = PRESUPUESTOS_CLIENTE.ID_TIENDA) LEFT OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_CONTRATO) + LEFT OUTER JOIN V_CONTACTOS_NOMBRES ON (PRESUPUESTOS_CLIENTE.ID_CLIENTE = V_CONTACTOS_NOMBRES.ID) +WHERE PRESUPUESTOS_CLIENTE.fecha_presupuesto >= '01.01.2014' ; + + /* View: V_PROVEEDORES */ CREATE VIEW V_PROVEEDORES( ID, @@ -4168,7 +4187,8 @@ CREATE VIEW V_RECIBOS_CLIENTE( FECHA_MODIFICACION, USUARIO, ID_TIENDA, - TIENDA) + TIENDA, + LISTA_NOMBRES) AS SELECT RECIBOS_CLIENTE.ID, RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO, @@ -4204,7 +4224,8 @@ SELECT RECIBOS_CLIENTE.ID, RECIBOS_CLIENTE.FECHA_MODIFICACION, RECIBOS_CLIENTE.USUARIO, RECIBOS_CLIENTE.ID_TIENDA, - COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA + COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA, + V_CONTACTOS_NOMBRES.OTROS_NOMBRES as LISTA_NOMBRES FROM RECIBOS_CLIENTE LEFT JOIN V_REC_CLI_SITUACION @@ -4227,6 +4248,7 @@ LEFT JOIN V_REC_CLI_SITUACION RECIBO_COMPENSADO2 ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO) LEFT JOIN TIENDAS ON (TIENDAS.ID = RECIBOS_CLIENTE.ID_TIENDA) +LEFT OUTER JOIN V_CONTACTOS_NOMBRES ON (RECIBOS_CLIENTE.ID_CLIENTE = V_CONTACTOS_NOMBRES.ID) ; diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index bd1cde21..33b554c0 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -58,55 +58,55 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 66003d38..14c3caf8 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -52,8 +52,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2800FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.8.0.0FactuGESFactuGES2.8.0.0 - +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2820FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.8.2.0FactuGESFactuGES2.8.2.0 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index a353b934..4956e262 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,8,0,0 -PRODUCTVERSION 2,8,0,0 +FILEVERSION 2,8,2,0 +PRODUCTVERSION 2,8,2,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.8.0.0\0" + VALUE "FileVersion", "2.8.2.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "2.8.0.0\0" + VALUE "ProductVersion", "2.8.2.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 1caa999e..9c046f30 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index f5d41b84..8409acc9 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,34 +58,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/uViewGrid.dfm b/Source/GUIBase/uViewGrid.dfm index 75548032..86c5518a 100644 --- a/Source/GUIBase/uViewGrid.dfm +++ b/Source/GUIBase/uViewGrid.dfm @@ -45,11 +45,10 @@ inherited frViewGrid: TfrViewGrid object cxGridViewICONO: TcxGridDBColumn Caption = 'Icono' OnCustomDrawCell = cxGridViewICONOCustomDrawCell - BestFitMaxWidth = 22 - MinWidth = 22 - Options.HorzSizing = False + BestFitMaxWidth = 18 + MinWidth = 18 Options.Sorting = False - Width = 22 + Width = 18 OnCustomDrawHeader = cxGridViewICONOCustomDrawHeader end end @@ -163,7 +162,7 @@ inherited frViewGrid: TfrViewGrid PrinterPage.ScaleMode = smFit PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxLastMU_ = 2 - ReportDocument.CreationDate = 42299.692793553240000000 + ReportDocument.CreationDate = 42772.762583020830000000 StyleManager = dmBase.dxPrintStyleManager1 OptionsCards.Shadow.Depth = 0 OptionsExpanding.ExpandGroupRows = True diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm index e3fb20bc..13a88c23 100644 --- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm @@ -328,6 +328,14 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente DisplayLabel = 'AlbaranesCliente_TIENDA' ServerAutoRefresh = True DictionaryEntry = 'AlbaranesCliente_TIENDA' + end + item + Name = 'LISTA_NOMBRES' + DataType = datString + Size = 255 + DisplayLabel = 'Otros nombres' + ServerAutoRefresh = True + DictionaryEntry = 'AlbaranesCliente_LISTA_NOMBRES' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas index 1a5a0fdc..74d28779 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas @@ -9,9 +9,9 @@ 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_ListaAnosAlbaranes = '{7EB3AC27-59E8-42B4-ADA3-CE4D9CAEB13C}'; - RID_AlbaranesCliente = '{D2DA1D56-1646-4F90-8DE9-D4B5FFE8B553}'; - RID_AlbaranesCliente_Detalles = '{BBD1F7AA-F56C-43AE-A7C7-0F58965BDF4A}'; + RID_ListaAnosAlbaranes = '{3BF46A2A-B09F-4966-80AC-36B91AB3F410}'; + RID_AlbaranesCliente = '{37A96813-FF20-4C48-8043-08624BDF1EEC}'; + RID_AlbaranesCliente_Detalles = '{7A054D7B-816E-40D3-8810-00601F96937D}'; { Data table names } nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; @@ -71,6 +71,7 @@ const fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION'; fld_AlbaranesClienteID_TIENDA = 'ID_TIENDA'; fld_AlbaranesClienteTIENDA = 'TIENDA'; + fld_AlbaranesClienteLISTA_NOMBRES = 'LISTA_NOMBRES'; { AlbaranesCliente field indexes } idx_AlbaranesClienteID_CONTRATO = 0; @@ -119,6 +120,7 @@ const idx_AlbaranesClienteFECHA_RECEPCION = 43; idx_AlbaranesClienteID_TIENDA = 44; idx_AlbaranesClienteTIENDA = 45; + idx_AlbaranesClienteLISTA_NOMBRES = 46; { AlbaranesCliente_Detalles fields } fld_AlbaranesCliente_DetallesID = 'ID'; @@ -155,7 +157,7 @@ const type { IListaAnosAlbaranes } IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) - ['{203EE597-D0C7-4604-A953-891F0E3D98FF}'] + ['{0C7CD8C2-CB8B-4224-863B-760D2E239D64}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -190,7 +192,7 @@ type { IAlbaranesCliente } IAlbaranesCliente = interface(IDAStronglyTypedDataTable) - ['{D6D78EF6-CA78-4ED9-B294-D1D466E1726B}'] + ['{D3E1233E-BD17-40E1-B5B2-C8241F7BFF04}'] { Property getters and setters } function GetID_CONTRATOValue: Integer; procedure SetID_CONTRATOValue(const aValue: Integer); @@ -374,6 +376,10 @@ type procedure SetTIENDAValue(const aValue: String); function GetTIENDAIsNull: Boolean; procedure SetTIENDAIsNull(const aValue: Boolean); + function GetLISTA_NOMBRESValue: String; + procedure SetLISTA_NOMBRESValue(const aValue: String); + function GetLISTA_NOMBRESIsNull: Boolean; + procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); { Properties } @@ -469,6 +475,8 @@ type property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; + property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; + property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; end; { TAlbaranesClienteDataTableRules } @@ -662,6 +670,10 @@ type procedure SetTIENDAValue(const aValue: String); virtual; function GetTIENDAIsNull: Boolean; virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual; + function GetLISTA_NOMBRESValue: String; virtual; + procedure SetLISTA_NOMBRESValue(const aValue: String); virtual; + function GetLISTA_NOMBRESIsNull: Boolean; virtual; + procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual; { Properties } property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue; @@ -756,6 +768,8 @@ type property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; + property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; + property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -765,7 +779,7 @@ type { IAlbaranesCliente_Detalles } IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{020AD67D-D6F1-4E13-962A-E7B9FE5F4C5E}'] + ['{A6C61208-F037-4EFA-BBBF-1DBC79AF7C44}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1980,6 +1994,27 @@ begin DataTable.Fields[idx_AlbaranesClienteTIENDA].AsVariant := Null; end; +function TAlbaranesClienteDataTableRules.GetLISTA_NOMBRESValue: String; +begin + result := DataTable.Fields[idx_AlbaranesClienteLISTA_NOMBRES].AsString; +end; + +procedure TAlbaranesClienteDataTableRules.SetLISTA_NOMBRESValue(const aValue: String); +begin + DataTable.Fields[idx_AlbaranesClienteLISTA_NOMBRES].AsString := aValue; +end; + +function TAlbaranesClienteDataTableRules.GetLISTA_NOMBRESIsNull: boolean; +begin + result := DataTable.Fields[idx_AlbaranesClienteLISTA_NOMBRES].IsNull; +end; + +procedure TAlbaranesClienteDataTableRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_AlbaranesClienteLISTA_NOMBRES].AsVariant := Null; +end; + { TAlbaranesCliente_DetallesDataTableRules } constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas index 119cd060..b5c4de42 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_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_ListaAnosAlbaranesDelta = '{B498D9C0-EE0A-46DA-A371-702D825BDB3A}'; - RID_AlbaranesClienteDelta = '{D704D54E-00E5-4A35-B737-A915BB515300}'; - RID_AlbaranesCliente_DetallesDelta = '{999E4300-FF31-4EA7-B81E-287E2000B1BD}'; + RID_ListaAnosAlbaranesDelta = '{8B568226-36B4-4CDC-BE4C-BD51DA29AEAF}'; + RID_AlbaranesClienteDelta = '{2EAD0C36-219E-47BB-8D37-78BD32D11744}'; + RID_AlbaranesCliente_DetallesDelta = '{2ACFBDE5-B171-408C-A739-A72B52566077}'; type { IListaAnosAlbaranesDelta } IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) - ['{B498D9C0-EE0A-46DA-A371-702D825BDB3A}'] + ['{8B568226-36B4-4CDC-BE4C-BD51DA29AEAF}'] { Property getters and setters } function GetOldANOValue : String; @@ -50,7 +50,7 @@ type { IAlbaranesClienteDelta } IAlbaranesClienteDelta = interface(IAlbaranesCliente) - ['{D704D54E-00E5-4A35-B737-A915BB515300}'] + ['{2EAD0C36-219E-47BB-8D37-78BD32D11744}'] { Property getters and setters } function GetOldID_CONTRATOValue : Integer; function GetOldIDValue : Integer; @@ -98,6 +98,7 @@ type function GetOldFECHA_RECEPCIONValue : DateTime; function GetOldID_TIENDAValue : Integer; function GetOldTIENDAValue : String; + function GetOldLISTA_NOMBRESValue : String; { Properties } property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue; @@ -146,6 +147,7 @@ type property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue; property OldID_TIENDA : Integer read GetOldID_TIENDAValue; property OldTIENDA : String read GetOldTIENDAValue; + property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; end; { TAlbaranesClienteBusinessProcessorRules } @@ -431,6 +433,12 @@ type function GetOldTIENDAIsNull: Boolean; virtual; procedure SetTIENDAValue(const aValue: String); virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual; + function GetLISTA_NOMBRESValue: String; virtual; + function GetLISTA_NOMBRESIsNull: Boolean; virtual; + function GetOldLISTA_NOMBRESValue: String; virtual; + function GetOldLISTA_NOMBRESIsNull: Boolean; virtual; + procedure SetLISTA_NOMBRESValue(const aValue: String); virtual; + procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual; { Properties } property ID_CONTRATO : Integer read GetID_CONTRATOValue write SetID_CONTRATOValue; @@ -617,6 +625,10 @@ type property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull; + property LISTA_NOMBRES : String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; + property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; + property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; + property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -626,7 +638,7 @@ type { IAlbaranesCliente_DetallesDelta } IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) - ['{999E4300-FF31-4EA7-B81E-287E2000B1BD}'] + ['{2ACFBDE5-B171-408C-A739-A72B52566077}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; @@ -2313,6 +2325,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTIENDA] := Null; end; +function TAlbaranesClienteBusinessProcessorRules.GetLISTA_NOMBRESValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteLISTA_NOMBRES]; +end; + +function TAlbaranesClienteBusinessProcessorRules.GetLISTA_NOMBRESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteLISTA_NOMBRES]); +end; + +function TAlbaranesClienteBusinessProcessorRules.GetOldLISTA_NOMBRESValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteLISTA_NOMBRES]; +end; + +function TAlbaranesClienteBusinessProcessorRules.GetOldLISTA_NOMBRESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteLISTA_NOMBRES]); +end; + +procedure TAlbaranesClienteBusinessProcessorRules.SetLISTA_NOMBRESValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteLISTA_NOMBRES] := aValue; +end; + +procedure TAlbaranesClienteBusinessProcessorRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteLISTA_NOMBRES] := Null; +end; + { TAlbaranesCliente_DetallesBusinessProcessorRules } constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm index 862e5d6b..dfadf209 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm +++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm @@ -231,6 +231,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente item DatasetField = 'REF_CONTRATO' TableField = 'REF_CONTRATO' + end + item + DatasetField = 'LISTA_NOMBRES' + TableField = 'LISTA_NOMBRES' end> end> Name = 'AlbaranesCliente' @@ -494,6 +498,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Size = 255 ServerAutoRefresh = True DictionaryEntry = 'AlbaranesCliente_TIENDA' + end + item + Name = 'LISTA_NOMBRES' + DataType = datString + Size = 255 + DictionaryEntry = 'AlbaranesCliente_LISTA_NOMBRES' end> end item @@ -1731,6 +1741,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente item Name = 'AlbaranesCliente_ID_TIPO_IVA' DataType = datInteger + end + item + Name = 'AlbaranesCliente_LISTA_NOMBRES' + DataType = datString + Size = 255 + DisplayLabel = 'Otros nombres' end> Left = 48 Top = 136 diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm index 123345bc..529452df 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm @@ -8,8 +8,8 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente Height = 492 RootLevelOptions.DetailTabsPosition = dtpTop OnActiveTabChanged = cxGridActiveTabChanged - ExplicitWidth = 596 - ExplicitHeight = 351 + ExplicitWidth = 1121 + ExplicitHeight = 492 inherited cxGridView: TcxGridDBTableView OnMouseMove = cxGridViewMouseMove DataController.KeyFieldNames = 'ID' @@ -173,6 +173,10 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente HeaderAlignmentHorz = taRightJustify Width = 78 end + object cxGridViewLISTA_NOMBRES: TcxGridDBColumn + Caption = 'Otros nombres' + DataBinding.FieldName = 'LISTA_NOMBRES' + end end inherited cxGridLevel: TcxGridLevel Caption = 'Todos' @@ -198,12 +202,12 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente end inherited frViewFiltroBase1: TfrViewFiltroBase Width = 1121 - ExplicitWidth = 596 + ExplicitWidth = 1121 inherited TBXDockablePanel1: TTBXDockablePanel - ExplicitWidth = 596 + ExplicitWidth = 1121 inherited dxLayoutControl1: TdxLayoutControl Width = 1121 - ExplicitWidth = 596 + ExplicitWidth = 1121 inherited txtFiltroTodo: TcxTextEdit ExplicitWidth = 499 Width = 499 @@ -221,10 +225,10 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente end inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 1121 - ExplicitWidth = 596 + ExplicitWidth = 1121 inherited tbxBotones: TTBXToolbar Width = 1111 - ExplicitWidth = 586 + ExplicitWidth = 1111 end end end @@ -236,14 +240,14 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente inherited pnlAgrupaciones: TTBXDockablePanel Top = 594 Visible = True - ExplicitTop = 453 - ExplicitWidth = 596 + ExplicitTop = 594 + ExplicitWidth = 1121 inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 1121 - ExplicitWidth = 596 + ExplicitWidth = 1121 inherited TBXToolbar1: TTBXToolbar Width = 1111 - ExplicitWidth = 586 + ExplicitWidth = 1111 object TBXSeparatorItem1: TTBXSeparatorItem end object TBXItem3: TTBXItem diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas index 7850955f..e8f1a703 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas @@ -60,6 +60,7 @@ type cxStyleRETRASADOS: TcxStyle; cxGridViewTIENDA: TcxGridDBColumn; cxGridViewREF_CONTRATO: TcxGridDBColumn; + cxGridViewLISTA_NOMBRES: TcxGridDBColumn; procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm index cfeaf6d9..ab4044af 100644 --- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm @@ -106,7 +106,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente Name = 'PROVINCIA' DataType = datString Size = 255 - DisplayLabel = 'ContratosCliente_PROVINCIA' + DisplayLabel = 'Provincia' DictionaryEntry = 'ContratosCliente_PROVINCIA' end item @@ -337,6 +337,12 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 + end + item + Name = 'LISTA_NOMBRES' + DataType = datString + Size = 255 + DisplayLabel = 'Otros nombres' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dproj b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dproj index 4403e025..3aab6d3b 100644 --- a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dproj +++ b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dproj @@ -43,6 +43,8 @@ Package FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration EurekaLog 5.1.9 ContratosCliente_model.dpk @@ -52,23 +54,23 @@ MainSource - - - - - - - - - - - + + + + + + + + + + + \ No newline at end of file +EurekaLog Last Line --> diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas index 725d685f..c8fb1e5d 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas @@ -9,9 +9,9 @@ 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_ListaAnosFacturas = '{145AB429-AA3C-428B-862E-44860A53C63D}'; - RID_FacturasCliente = '{FB6656F1-09E4-4105-B0E9-4D9ADE60387B}'; - RID_FacturasCliente_Detalles = '{29D7E3D2-87AC-4F64-98AA-E4501188EB6B}'; + RID_ListaAnosFacturas = '{AC458C56-0773-4661-8AA4-2B189CB69716}'; + RID_FacturasCliente = '{0F0BF96C-EF73-4658-93A2-63D12D3DCAD2}'; + RID_FacturasCliente_Detalles = '{906608D3-E31F-41F1-AE03-8212770A53CA}'; { Data table names } nme_ListaAnosFacturas = 'ListaAnosFacturas'; @@ -76,6 +76,7 @@ const fld_FacturasClienteVENDEDOR = 'VENDEDOR'; fld_FacturasClienteSIN_COMISION = 'SIN_COMISION'; fld_FacturasClienteTIPO_FACTURA = 'TIPO_FACTURA'; + fld_FacturasClienteLISTA_NOMBRES = 'LISTA_NOMBRES'; { FacturasCliente field indexes } idx_FacturasClienteID = 0; @@ -129,6 +130,7 @@ const idx_FacturasClienteVENDEDOR = 48; idx_FacturasClienteSIN_COMISION = 49; idx_FacturasClienteTIPO_FACTURA = 50; + idx_FacturasClienteLISTA_NOMBRES = 51; { FacturasCliente_Detalles fields } fld_FacturasCliente_DetallesID = 'ID'; @@ -165,7 +167,7 @@ const type { IListaAnosFacturas } IListaAnosFacturas = interface(IDAStronglyTypedDataTable) - ['{9B736788-CB7F-4171-80FB-BB95F35FFF7B}'] + ['{06173361-C007-4344-A43F-5AF52B29F8B7}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -200,7 +202,7 @@ type { IFacturasCliente } IFacturasCliente = interface(IDAStronglyTypedDataTable) - ['{B69EA0DD-6019-492A-821A-0EE660AC366C}'] + ['{6E9D699F-963B-43BE-B76D-FB72A2674FDA}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -405,6 +407,10 @@ type procedure SetTIPO_FACTURAValue(const aValue: String); function GetTIPO_FACTURAIsNull: Boolean; procedure SetTIPO_FACTURAIsNull(const aValue: Boolean); + function GetLISTA_NOMBRESValue: String; + procedure SetLISTA_NOMBRESValue(const aValue: String); + function GetLISTA_NOMBRESIsNull: Boolean; + procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); { Properties } @@ -510,6 +516,8 @@ type property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull; property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue; property TIPO_FACTURAIsNull: Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull; + property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; + property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; end; { TFacturasClienteDataTableRules } @@ -722,6 +730,10 @@ type procedure SetTIPO_FACTURAValue(const aValue: String); virtual; function GetTIPO_FACTURAIsNull: Boolean; virtual; procedure SetTIPO_FACTURAIsNull(const aValue: Boolean); virtual; + function GetLISTA_NOMBRESValue: String; virtual; + procedure SetLISTA_NOMBRESValue(const aValue: String); virtual; + function GetLISTA_NOMBRESIsNull: Boolean; virtual; + procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -826,6 +838,8 @@ type property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull; property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue; property TIPO_FACTURAIsNull: Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull; + property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; + property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -835,7 +849,7 @@ type { IFacturasCliente_Detalles } IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{824CB867-0513-46EE-8E49-714506B6D7B0}'] + ['{276F9B23-EBA6-457E-AEEF-CEBBF244B602}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2150,6 +2164,27 @@ begin DataTable.Fields[idx_FacturasClienteTIPO_FACTURA].AsVariant := Null; end; +function TFacturasClienteDataTableRules.GetLISTA_NOMBRESValue: String; +begin + result := DataTable.Fields[idx_FacturasClienteLISTA_NOMBRES].AsString; +end; + +procedure TFacturasClienteDataTableRules.SetLISTA_NOMBRESValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasClienteLISTA_NOMBRES].AsString := aValue; +end; + +function TFacturasClienteDataTableRules.GetLISTA_NOMBRESIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasClienteLISTA_NOMBRES].IsNull; +end; + +procedure TFacturasClienteDataTableRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasClienteLISTA_NOMBRES].AsVariant := Null; +end; + { TFacturasCliente_DetallesDataTableRules } constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas index 016301dd..deb727fd 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_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_ListaAnosFacturasDelta = '{13B2244C-664D-4276-B52B-B4F0ADD71D74}'; - RID_FacturasClienteDelta = '{A39B6A48-A724-487A-AC10-ED6BF3D502CC}'; - RID_FacturasCliente_DetallesDelta = '{EC7C88A7-6AA6-4A0F-A760-A7FDCACB21A9}'; + RID_ListaAnosFacturasDelta = '{4F7128B4-BEAB-4EEA-A48D-6F47671DDA6E}'; + RID_FacturasClienteDelta = '{0D72186B-4364-45DB-B4CE-BC95F7C696C3}'; + RID_FacturasCliente_DetallesDelta = '{2BF7FECE-AC21-4D6D-80D0-79E75DBB6727}'; type { IListaAnosFacturasDelta } IListaAnosFacturasDelta = interface(IListaAnosFacturas) - ['{13B2244C-664D-4276-B52B-B4F0ADD71D74}'] + ['{4F7128B4-BEAB-4EEA-A48D-6F47671DDA6E}'] { Property getters and setters } function GetOldANOValue : String; @@ -50,7 +50,7 @@ type { IFacturasClienteDelta } IFacturasClienteDelta = interface(IFacturasCliente) - ['{A39B6A48-A724-487A-AC10-ED6BF3D502CC}'] + ['{0D72186B-4364-45DB-B4CE-BC95F7C696C3}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -103,6 +103,7 @@ type function GetOldVENDEDORValue : String; function GetOldSIN_COMISIONValue : SmallInt; function GetOldTIPO_FACTURAValue : String; + function GetOldLISTA_NOMBRESValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -156,6 +157,7 @@ type property OldVENDEDOR : String read GetOldVENDEDORValue; property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue; property OldTIPO_FACTURA : String read GetOldTIPO_FACTURAValue; + property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; end; { TFacturasClienteBusinessProcessorRules } @@ -470,6 +472,12 @@ type function GetOldTIPO_FACTURAIsNull: Boolean; virtual; procedure SetTIPO_FACTURAValue(const aValue: String); virtual; procedure SetTIPO_FACTURAIsNull(const aValue: Boolean); virtual; + function GetLISTA_NOMBRESValue: String; virtual; + function GetLISTA_NOMBRESIsNull: Boolean; virtual; + function GetOldLISTA_NOMBRESValue: String; virtual; + function GetOldLISTA_NOMBRESIsNull: Boolean; virtual; + procedure SetLISTA_NOMBRESValue(const aValue: String); virtual; + procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -676,6 +684,10 @@ type property TIPO_FACTURAIsNull : Boolean read GetTIPO_FACTURAIsNull write SetTIPO_FACTURAIsNull; property OldTIPO_FACTURA : String read GetOldTIPO_FACTURAValue; property OldTIPO_FACTURAIsNull : Boolean read GetOldTIPO_FACTURAIsNull; + property LISTA_NOMBRES : String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; + property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; + property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; + property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -685,7 +697,7 @@ type { IFacturasCliente_DetallesDelta } IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) - ['{EC7C88A7-6AA6-4A0F-A760-A7FDCACB21A9}'] + ['{2BF7FECE-AC21-4D6D-80D0-79E75DBB6727}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -2521,6 +2533,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO_FACTURA] := Null; end; +function TFacturasClienteBusinessProcessorRules.GetLISTA_NOMBRESValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteLISTA_NOMBRES]; +end; + +function TFacturasClienteBusinessProcessorRules.GetLISTA_NOMBRESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteLISTA_NOMBRES]); +end; + +function TFacturasClienteBusinessProcessorRules.GetOldLISTA_NOMBRESValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteLISTA_NOMBRES]; +end; + +function TFacturasClienteBusinessProcessorRules.GetOldLISTA_NOMBRESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteLISTA_NOMBRES]); +end; + +procedure TFacturasClienteBusinessProcessorRules.SetLISTA_NOMBRESValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteLISTA_NOMBRES] := aValue; +end; + +procedure TFacturasClienteBusinessProcessorRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteLISTA_NOMBRES] := Null; +end; + { TFacturasCliente_DetallesBusinessProcessorRules } constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index 83c077b2..5ce92526 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -506,10 +506,12 @@ object RptFacturasCliente: TRptFacturasCliente #39' || extract (year from fecha_factura)'#10'when extract (month from ' + 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, TIPO_FACTURA, ID_CLIENTE' + - ', NOMBRE, SITUACION, REFERENCIA_CLIENTE, NIF_CIF, FECHA_FACTURA,' + - ' BASE_IMPONIBLE, IVA, IMPORTE_IVA, RE, IMPORTE_RE, IMPORTE_TOTAL' + - #10#10'from V_facturas_cliente'#10'where {where}'#10'order by ANO, MES, REFER' + - 'ENCIA'#10#10 + ','#10'v_facturas_cliente.NOMBRE || COALESCE(v_contactos_nombres.otro' + + 's_nombres, '#39#39') as NOMBRE,'#10'SITUACION, REFERENCIA_CLIENTE, NIF_CIF' + + ', FECHA_FACTURA, BASE_IMPONIBLE, IVA, IMPORTE_IVA, RE, IMPORTE_R' + + 'E, IMPORTE_TOTAL'#10'from v_facturas_cliente'#10'LEFT OUTER JOIN v_conta' + + 'ctos_nombres ON (v_contactos_nombres.id = v_facturas_cliente.id_' + + 'cliente)'#10'where {where}'#10'order by ANO, MES, REFERENCIA'#10#10 StatementType = stSQL ColumnMappings = < item @@ -689,23 +691,25 @@ object RptFacturasCliente: TRptFacturasCliente 'TE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10' V_FACTURAS_CLIENTE.IMP' + 'ORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO.DE' + 'SCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIENTE,'#10' V_FA' + - 'CTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V_FACTURAS_CL' + - 'IENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA, V_FACTURAS_CLIENT' + - 'E.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10' CONTACTOS_DAT' + - 'OS_BANCO.TITULAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,'#10' CONTACT' + - 'OS_DATOS_BANCO.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.DC,'#10' CONTA' + - 'CTOS_DATOS_BANCO.CUENTA,'#10' ID_EMPRESA, EMPRESAS.NIF_CIF as NIF' + - '_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE' + - '_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.' + - 'PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO' + - '_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS' + - '.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.RE' + - 'GISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT' + - ' JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO' + - ' ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOI' + - 'N CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = ' + - 'V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID' + - #10 + 'CTURAS_CLIENTE.NIF_CIF,'#10' V_FACTURAS_CLIENTE.NOMBRE || COALESC' + + 'E(v_contactos_nombres.otros_nombres, '#39#39') as NOMBRE,'#10' V_FACTUR' + + 'AS_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA, V_FACTURAS_C' + + 'LIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10' CONTACTO' + + 'S_DATOS_BANCO.TITULAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,'#10' CO' + + 'NTACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.DC,'#10' ' + + 'CONTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EMPRESA, EMPRESAS.NIF_CIF a' + + 's NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as ' + + 'CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPR' + + 'ESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as C' + + 'ODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMP' + + 'RESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRES' + + 'AS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10'FROM V_FACTURAS_CLIENTE' + + #10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS' + + '_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEF' + + 'T JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTAC' + + 'TO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'LEFT OUTER JOIN v_contactos_' + + 'nombres ON (v_contactos_nombres.id = V_FACTURAS_CLIENTE.id_clien' + + 'te)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -1488,7 +1492,7 @@ object RptFacturasCliente: TRptFacturasCliente PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 37800.807714351900000000 - ReportOptions.LastChange = 41304.573816296300000000 + ReportOptions.LastChange = 42143.652865393500000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index bef2db9c..122d18c9 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm @@ -519,6 +519,12 @@ object srvFacturasCliente: TsrvFacturasCliente Name = 'TIPO_FACTURA' DataType = datString Size = 255 + end + item + Name = 'LISTA_NOMBRES' + DataType = datString + Size = 255 + DictionaryEntry = 'FacturasCliente_LISTA_NOMBRES' end> end item @@ -1469,6 +1475,12 @@ object srvFacturasCliente: TsrvFacturasCliente DataType = datInteger DisplayLabel = 'ID_CLIENTE' end + item + Name = 'FacturasCliente_LISTA_NOMBRES' + DataType = datString + Size = 255 + DisplayLabel = 'Otros nombres' + end item Name = 'FacturasCliente_NIF_CIF' DataType = datString diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm index fee359a8..0e41740b 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm @@ -165,6 +165,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente DataBinding.FieldName = 'VENDEDOR' Visible = False end + object cxGridViewLISTA_NOMBRES: TcxGridDBColumn + Caption = 'Otros nombres' + DataBinding.FieldName = 'LISTA_NOMBRES' + end end inherited cxGridLevel: TcxGridLevel Caption = 'Todas' @@ -188,27 +192,15 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente Width = 802 ExplicitWidth = 802 inherited txtFiltroTodo: TcxTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 434 Width = 434 end inherited edtFechaIniFiltro: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 144 Width = 144 end inherited edtFechaFinFiltro: TcxDateEdit Left = 367 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 367 ExplicitWidth = 273 Width = 273 diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas index 2c9a26f6..1cd69c5b 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas @@ -64,6 +64,7 @@ type cxGridViewREF_CONTRATO: TcxGridDBColumn; cxGridViewTIPO_FACTURA: TcxGridDBColumn; cxGridViewVENDEDOR: TcxGridDBColumn; + cxGridViewLISTA_NOMBRES: TcxGridDBColumn; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm index 0a638737..97474119 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm @@ -297,6 +297,12 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 + end + item + Name = 'LISTA_NOMBRES' + DataType = datString + Size = 255 + DisplayLabel = 'Otros nombres' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas index fe630239..bc56a94a 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas @@ -9,12 +9,12 @@ 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_Valores = '{A5753DD4-D84A-4351-BC29-3B338F55A041}'; - RID_Propiedades = '{BEA5D369-3FF6-476F-BB9C-AFCE9DA1B2B6}'; - RID_ListaAnosPresupuestos = '{972E7C8B-FF56-4A25-885A-1154815BC103}'; - RID_PresupuestosCliente = '{B8A5C581-F50A-4023-90F7-8BD62CF17C4B}'; - RID_CapitulosPresupuesto = '{2EA00EAB-E78D-4D2B-88CF-61560814222A}'; - RID_PresupuestosCliente_Detalles = '{F838D06B-B2D9-4CD6-9B17-F07D762C23FC}'; + RID_Valores = '{69845B8B-862E-4186-A539-0491EC6224F3}'; + RID_Propiedades = '{895EC925-C718-4589-BD6E-3B98E68C7469}'; + RID_ListaAnosPresupuestos = '{4258D9C8-6F6E-4C32-B278-7DDE0FCE6843}'; + RID_PresupuestosCliente = '{52ACB41F-F244-4D13-9769-9202F76311C0}'; + RID_CapitulosPresupuesto = '{A1E223AB-6F46-437F-B40F-7CCF8AD46DEA}'; + RID_PresupuestosCliente_Detalles = '{BFF68D7B-A862-4E85-AA60-7BD45944AEC5}'; { Data table names } nme_Valores = 'Valores'; @@ -100,6 +100,7 @@ const fld_PresupuestosClienteTIPO_PRESUPUESTO = 'TIPO_PRESUPUESTO'; fld_PresupuestosClienteCALIDADES = 'CALIDADES'; fld_PresupuestosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; + fld_PresupuestosClienteLISTA_NOMBRES = 'LISTA_NOMBRES'; { PresupuestosCliente field indexes } idx_PresupuestosClienteID = 0; @@ -145,6 +146,7 @@ const idx_PresupuestosClienteTIPO_PRESUPUESTO = 40; idx_PresupuestosClienteCALIDADES = 41; idx_PresupuestosClienteREFERENCIA_CLIENTE = 42; + idx_PresupuestosClienteLISTA_NOMBRES = 43; { CapitulosPresupuesto fields } fld_CapitulosPresupuestoID = 'ID'; @@ -213,7 +215,7 @@ const type { IValores } IValores = interface(IDAStronglyTypedDataTable) - ['{C68B5E3B-7C25-40DB-BA71-461534ED307A}'] + ['{4A86E969-6E16-450C-A82B-D645B8E298C4}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -320,7 +322,7 @@ type { IPropiedades } IPropiedades = interface(IDAStronglyTypedDataTable) - ['{8D007D9A-95CD-48ED-B0FB-32C5632D2DCB}'] + ['{B33EF001-F0B3-4377-A019-646EB05608B0}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -367,7 +369,7 @@ type { IListaAnosPresupuestos } IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) - ['{651D3400-6969-4005-8674-F7E5937D797D}'] + ['{4F552890-7869-406F-B323-DDC2C6BBAABD}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -402,7 +404,7 @@ type { IPresupuestosCliente } IPresupuestosCliente = interface(IDAStronglyTypedDataTable) - ['{17B40030-2811-48A3-BDB0-91B68C2109FC}'] + ['{302CF5F9-CA89-4181-9EE0-29CE9C739B7E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -571,6 +573,10 @@ type procedure SetREFERENCIA_CLIENTEValue(const aValue: String); function GetREFERENCIA_CLIENTEIsNull: Boolean; procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); + function GetLISTA_NOMBRESValue: String; + procedure SetLISTA_NOMBRESValue(const aValue: String); + function GetLISTA_NOMBRESIsNull: Boolean; + procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); { Properties } @@ -660,6 +666,8 @@ type property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; + property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; + property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; end; { TPresupuestosClienteDataTableRules } @@ -844,6 +852,10 @@ type procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual; procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetLISTA_NOMBRESValue: String; virtual; + procedure SetLISTA_NOMBRESValue(const aValue: String); virtual; + function GetLISTA_NOMBRESIsNull: Boolean; virtual; + procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -932,6 +944,8 @@ type property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull; property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; + property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; + property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -941,7 +955,7 @@ type { ICapitulosPresupuesto } ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable) - ['{F3216D59-B6FF-4EEB-9E6A-9AC425472CD5}'] + ['{1D0F3A1A-E5C1-487E-8EF0-0496F49E0D34}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1096,7 +1110,7 @@ type { IPresupuestosCliente_Detalles } IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{6ABABBED-D539-4A65-A815-551502FCB5ED}'] + ['{ECFB879A-6B6E-4125-A97B-14BA365AFB4E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2512,6 +2526,27 @@ begin DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsVariant := Null; end; +function TPresupuestosClienteDataTableRules.GetLISTA_NOMBRESValue: String; +begin + result := DataTable.Fields[idx_PresupuestosClienteLISTA_NOMBRES].AsString; +end; + +procedure TPresupuestosClienteDataTableRules.SetLISTA_NOMBRESValue(const aValue: String); +begin + DataTable.Fields[idx_PresupuestosClienteLISTA_NOMBRES].AsString := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetLISTA_NOMBRESIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteLISTA_NOMBRES].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteLISTA_NOMBRES].AsVariant := Null; +end; + { TCapitulosPresupuestoDataTableRules } constructor TCapitulosPresupuestoDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas index 20643021..813b93cb 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas @@ -9,17 +9,17 @@ 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_ValoresDelta = '{35AAA8E7-2BB3-42AD-AC0D-6669188E315A}'; - RID_PropiedadesDelta = '{A051A8E9-5AAA-434A-BF25-B8A8903781B1}'; - RID_ListaAnosPresupuestosDelta = '{63C8F784-1AD1-4B5C-B82F-92AB7E63ABB0}'; - RID_PresupuestosClienteDelta = '{F86AA970-F689-43EE-95B7-E9C5294A5DE3}'; - RID_CapitulosPresupuestoDelta = '{3B220134-F9AE-4D78-96DF-6FFFE2A37F04}'; - RID_PresupuestosCliente_DetallesDelta = '{938FA165-8D1D-46EA-8817-C8FA05A3F3BB}'; + RID_ValoresDelta = '{687FCBCD-2F9D-4E98-8515-FD5E9FCEE32A}'; + RID_PropiedadesDelta = '{784A3DDA-A3AF-49BB-A49C-7EEF41AA4565}'; + RID_ListaAnosPresupuestosDelta = '{881F141B-82C6-448C-80E9-D26A157B293A}'; + RID_PresupuestosClienteDelta = '{C5E20CDB-A1E1-42F8-B46F-25C93C4957F6}'; + RID_CapitulosPresupuestoDelta = '{17439B2D-6084-4A58-8AB1-6437324028C0}'; + RID_PresupuestosCliente_DetallesDelta = '{D011385B-63AE-4484-AF6A-DE0CA4F3E913}'; type { IValoresDelta } IValoresDelta = interface(IValores) - ['{35AAA8E7-2BB3-42AD-AC0D-6669188E315A}'] + ['{687FCBCD-2F9D-4E98-8515-FD5E9FCEE32A}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -125,7 +125,7 @@ type { IPropiedadesDelta } IPropiedadesDelta = interface(IPropiedades) - ['{A051A8E9-5AAA-434A-BF25-B8A8903781B1}'] + ['{784A3DDA-A3AF-49BB-A49C-7EEF41AA4565}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -171,7 +171,7 @@ type { IListaAnosPresupuestosDelta } IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) - ['{63C8F784-1AD1-4B5C-B82F-92AB7E63ABB0}'] + ['{881F141B-82C6-448C-80E9-D26A157B293A}'] { Property getters and setters } function GetOldANOValue : String; @@ -205,7 +205,7 @@ type { IPresupuestosClienteDelta } IPresupuestosClienteDelta = interface(IPresupuestosCliente) - ['{F86AA970-F689-43EE-95B7-E9C5294A5DE3}'] + ['{C5E20CDB-A1E1-42F8-B46F-25C93C4957F6}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -250,6 +250,7 @@ type function GetOldTIPO_PRESUPUESTOValue : String; function GetOldCALIDADESValue : IROStrings; function GetOldREFERENCIA_CLIENTEValue : String; + function GetOldLISTA_NOMBRESValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -295,6 +296,7 @@ type property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue; property OldCALIDADES : IROStrings read GetOldCALIDADESValue; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; + property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; end; { TPresupuestosClienteBusinessProcessorRules } @@ -565,6 +567,12 @@ type function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual; procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetLISTA_NOMBRESValue: String; virtual; + function GetLISTA_NOMBRESIsNull: Boolean; virtual; + function GetOldLISTA_NOMBRESValue: String; virtual; + function GetOldLISTA_NOMBRESIsNull: Boolean; virtual; + procedure SetLISTA_NOMBRESValue(const aValue: String); virtual; + procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -739,6 +747,10 @@ type property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull; + property LISTA_NOMBRES : String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; + property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; + property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; + property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -748,7 +760,7 @@ type { ICapitulosPresupuestoDelta } ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto) - ['{3B220134-F9AE-4D78-96DF-6FFFE2A37F04}'] + ['{17439B2D-6084-4A58-8AB1-6437324028C0}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldPOSICIONValue : Integer; @@ -902,7 +914,7 @@ type { IPresupuestosCliente_DetallesDelta } IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) - ['{938FA165-8D1D-46EA-8817-C8FA05A3F3BB}'] + ['{D011385B-63AE-4484-AF6A-DE0CA4F3E913}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PRESUPUESTOValue : Integer; @@ -2853,6 +2865,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE] := Null; end; +function TPresupuestosClienteBusinessProcessorRules.GetLISTA_NOMBRESValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteLISTA_NOMBRES]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetLISTA_NOMBRESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteLISTA_NOMBRES]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldLISTA_NOMBRESValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteLISTA_NOMBRES]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldLISTA_NOMBRESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteLISTA_NOMBRES]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetLISTA_NOMBRESValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteLISTA_NOMBRES] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteLISTA_NOMBRES] := Null; +end; + { TCapitulosPresupuestoBusinessProcessorRules } constructor TCapitulosPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm index dc8ac39b..132e52d7 100644 --- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm +++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm @@ -338,6 +338,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item DatasetField = 'REFERENCIA_CLIENTE' TableField = 'REFERENCIA_CLIENTE' + end + item + DatasetField = 'LISTA_NOMBRES' + TableField = 'LISTA_NOMBRES' end> end> Name = 'PresupuestosCliente' @@ -565,12 +569,20 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item Name = 'CALIDADES' DataType = datMemo - DisplayLabel = 'Calidades' + BlobType = dabtBlob + DictionaryEntry = 'PresupuestosCliente_CALIDADES' end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 + DictionaryEntry = 'PresupuestosCliente_REFERENCIA_CLIENTE' + end + item + Name = 'LISTA_NOMBRES' + DataType = datString + Size = 255 + DictionaryEntry = 'PresupuestosCliente_LISTA_NOMBRES' end> end item @@ -2144,6 +2156,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item Name = 'PresupuestosCliente_NO_VALORADO' DataType = datSmallInt + end + item + Name = 'PresupuestosCliente_LISTA_NOMBRES' + DataType = datString + Size = 255 + DisplayLabel = 'Otros nombres' end> Left = 48 Top = 152 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm index 4b875bd4..5ef218f6 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm @@ -124,6 +124,12 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente BestFitMaxWidth = 25 Width = 63 end + object cxGridViewLISTA_NOMBRES: TcxGridDBColumn + Caption = 'Otros nombres' + DataBinding.FieldName = 'LISTA_NOMBRES' + BestFitMaxWidth = 65 + Width = 65 + end end inherited cxGridLevel: TcxGridLevel Caption = 'Todos' diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas index 898a1204..fbe48bc3 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas @@ -47,6 +47,7 @@ type cxStyleRECHAZADO: TcxStyle; cxGridViewTIPO: TcxGridDBColumn; cxGridViewColumn1: TcxGridDBColumn; + cxGridViewLISTA_NOMBRES: TcxGridDBColumn; procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm index 095942a5..402ec03d 100644 --- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm @@ -382,6 +382,13 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_TIENDA' end + item + Name = 'LISTA_NOMBRES' + DataType = datString + Size = 255 + DisplayLabel = 'Otros nombres' + ServerAutoRefresh = True + end item Name = 'CUENTA_CONTABLE' DataType = datString diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas index d676281a..594aad71 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas @@ -9,10 +9,10 @@ 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_ListaAnosRecibos = '{83EE4B73-468E-4522-9045-EB32E8876743}'; - RID_RecibosCliente = '{5A7D52CC-AC14-459B-8FFC-2EBB710C20FA}'; - RID_PagosCliente = '{BA9CFF7F-552C-47D4-BB2C-75A68BB06A1C}'; - RID_RecibosCompensadosCli = '{A1FB671D-EA16-4357-92F7-2C9F7D2C4433}'; + RID_ListaAnosRecibos = '{AE89E2C7-E725-49D7-923C-C31DB52289BC}'; + RID_RecibosCliente = '{EA2A5415-CD57-4A6D-B0ED-02C852CDF365}'; + RID_PagosCliente = '{91E0EB25-0D8D-49CC-BEE9-DDB4DC953232}'; + RID_RecibosCompensadosCli = '{8418F37E-CDF2-49D4-8EA6-458D5619E4D4}'; { Data table names } nme_ListaAnosRecibos = 'ListaAnosRecibos'; @@ -63,6 +63,7 @@ const fld_RecibosClienteUSUARIO = 'USUARIO'; fld_RecibosClienteID_TIENDA = 'ID_TIENDA'; fld_RecibosClienteTIENDA = 'TIENDA'; + fld_RecibosClienteLISTA_NOMBRES = 'LISTA_NOMBRES'; fld_RecibosClienteCUENTA_CONTABLE = 'CUENTA_CONTABLE'; { RecibosCliente field indexes } @@ -102,7 +103,8 @@ const idx_RecibosClienteUSUARIO = 33; idx_RecibosClienteID_TIENDA = 34; idx_RecibosClienteTIENDA = 35; - idx_RecibosClienteCUENTA_CONTABLE = 36; + idx_RecibosClienteLISTA_NOMBRES = 36; + idx_RecibosClienteCUENTA_CONTABLE = 37; { PagosCliente fields } fld_PagosClienteID = 'ID'; @@ -223,7 +225,7 @@ const type { IListaAnosRecibos } IListaAnosRecibos = interface(IDAStronglyTypedDataTable) - ['{79193CD1-BBC0-4BEE-9525-6395209D7766}'] + ['{FAC8D465-4E19-43A8-B172-67E80A7D2D39}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -258,7 +260,7 @@ type { IRecibosCliente } IRecibosCliente = interface(IDAStronglyTypedDataTable) - ['{E8C9C142-DC49-4341-8819-3FC9FFB74C3C}'] + ['{68685DBB-DED5-49DD-8E6F-844F238408B8}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -404,6 +406,10 @@ type procedure SetTIENDAValue(const aValue: String); function GetTIENDAIsNull: Boolean; procedure SetTIENDAIsNull(const aValue: Boolean); + function GetLISTA_NOMBRESValue: String; + procedure SetLISTA_NOMBRESValue(const aValue: String); + function GetLISTA_NOMBRESIsNull: Boolean; + procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); function GetCUENTA_CONTABLEValue: String; procedure SetCUENTA_CONTABLEValue(const aValue: String); function GetCUENTA_CONTABLEIsNull: Boolean; @@ -483,6 +489,8 @@ type property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; + property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; + property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue; property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull; end; @@ -636,6 +644,10 @@ type procedure SetTIENDAValue(const aValue: String); virtual; function GetTIENDAIsNull: Boolean; virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual; + function GetLISTA_NOMBRESValue: String; virtual; + procedure SetLISTA_NOMBRESValue(const aValue: String); virtual; + function GetLISTA_NOMBRESIsNull: Boolean; virtual; + procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual; function GetCUENTA_CONTABLEValue: String; virtual; procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual; function GetCUENTA_CONTABLEIsNull: Boolean; virtual; @@ -714,6 +726,8 @@ type property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; + property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; + property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue; property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull; @@ -725,7 +739,7 @@ type { IPagosCliente } IPagosCliente = interface(IDAStronglyTypedDataTable) - ['{B0DE3F8D-7057-49AC-91D0-719C2C24E338}'] + ['{CFF8F00A-377F-4D2C-A75E-4B5E8B17F6F5}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -964,7 +978,7 @@ type { IRecibosCompensadosCli } IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) - ['{AC077764-D35C-477D-8FD8-2F68644F812C}'] + ['{241530CF-F60C-48CC-838B-F3F34C69347C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2221,6 +2235,27 @@ begin DataTable.Fields[idx_RecibosClienteTIENDA].AsVariant := Null; end; +function TRecibosClienteDataTableRules.GetLISTA_NOMBRESValue: String; +begin + result := DataTable.Fields[idx_RecibosClienteLISTA_NOMBRES].AsString; +end; + +procedure TRecibosClienteDataTableRules.SetLISTA_NOMBRESValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosClienteLISTA_NOMBRES].AsString := aValue; +end; + +function TRecibosClienteDataTableRules.GetLISTA_NOMBRESIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosClienteLISTA_NOMBRES].IsNull; +end; + +procedure TRecibosClienteDataTableRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosClienteLISTA_NOMBRES].AsVariant := Null; +end; + function TRecibosClienteDataTableRules.GetCUENTA_CONTABLEValue: String; begin result := DataTable.Fields[idx_RecibosClienteCUENTA_CONTABLE].AsString; diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas index 96d4e49c..0ca66e96 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas @@ -9,15 +9,15 @@ 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_ListaAnosRecibosDelta = '{0101D983-84D7-4B01-B359-32BE7D3A9CBE}'; - RID_RecibosClienteDelta = '{3A483FF6-4CAD-45BC-9638-78C3A876344F}'; - RID_PagosClienteDelta = '{0BE77245-6A46-42CA-A074-48D3C835D089}'; - RID_RecibosCompensadosCliDelta = '{EC39A7E1-7D7C-4F17-8C59-29D1E8BBB1C4}'; + RID_ListaAnosRecibosDelta = '{B3DE24BA-E4C3-4E3F-B165-880E87414EB2}'; + RID_RecibosClienteDelta = '{7241C382-E1CC-4FC6-A769-0EBA50663E8D}'; + RID_PagosClienteDelta = '{553625F5-33E4-4FB0-9C0D-EE9012E08F8E}'; + RID_RecibosCompensadosCliDelta = '{5AFBB5EF-8AA2-4DFA-805D-D09B444DE070}'; type { IListaAnosRecibosDelta } IListaAnosRecibosDelta = interface(IListaAnosRecibos) - ['{0101D983-84D7-4B01-B359-32BE7D3A9CBE}'] + ['{B3DE24BA-E4C3-4E3F-B165-880E87414EB2}'] { Property getters and setters } function GetOldANOValue : String; @@ -51,7 +51,7 @@ type { IRecibosClienteDelta } IRecibosClienteDelta = interface(IRecibosCliente) - ['{3A483FF6-4CAD-45BC-9638-78C3A876344F}'] + ['{7241C382-E1CC-4FC6-A769-0EBA50663E8D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -89,6 +89,7 @@ type function GetOldUSUARIOValue : String; function GetOldID_TIENDAValue : Integer; function GetOldTIENDAValue : String; + function GetOldLISTA_NOMBRESValue : String; function GetOldCUENTA_CONTABLEValue : String; { Properties } @@ -128,6 +129,7 @@ type property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_TIENDA : Integer read GetOldID_TIENDAValue; property OldTIENDA : String read GetOldTIENDAValue; + property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue; end; @@ -352,6 +354,12 @@ type function GetOldTIENDAIsNull: Boolean; virtual; procedure SetTIENDAValue(const aValue: String); virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual; + function GetLISTA_NOMBRESValue: String; virtual; + function GetLISTA_NOMBRESIsNull: Boolean; virtual; + function GetOldLISTA_NOMBRESValue: String; virtual; + function GetOldLISTA_NOMBRESIsNull: Boolean; virtual; + procedure SetLISTA_NOMBRESValue(const aValue: String); virtual; + procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual; function GetCUENTA_CONTABLEValue: String; virtual; function GetCUENTA_CONTABLEIsNull: Boolean; virtual; function GetOldCUENTA_CONTABLEValue: String; virtual; @@ -504,6 +512,10 @@ type property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull; + property LISTA_NOMBRES : String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; + property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; + property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; + property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull; property CUENTA_CONTABLE : String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue; property CUENTA_CONTABLEIsNull : Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull; property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue; @@ -517,7 +529,7 @@ type { IPagosClienteDelta } IPagosClienteDelta = interface(IPagosCliente) - ['{0BE77245-6A46-42CA-A074-48D3C835D089}'] + ['{553625F5-33E4-4FB0-9C0D-EE9012E08F8E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; @@ -755,7 +767,7 @@ type { IRecibosCompensadosCliDelta } IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) - ['{EC39A7E1-7D7C-4F17-8C59-29D1E8BBB1C4}'] + ['{5AFBB5EF-8AA2-4DFA-805D-D09B444DE070}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -2382,6 +2394,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteTIENDA] := Null; end; +function TRecibosClienteBusinessProcessorRules.GetLISTA_NOMBRESValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteLISTA_NOMBRES]; +end; + +function TRecibosClienteBusinessProcessorRules.GetLISTA_NOMBRESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteLISTA_NOMBRES]); +end; + +function TRecibosClienteBusinessProcessorRules.GetOldLISTA_NOMBRESValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteLISTA_NOMBRES]; +end; + +function TRecibosClienteBusinessProcessorRules.GetOldLISTA_NOMBRESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteLISTA_NOMBRES]); +end; + +procedure TRecibosClienteBusinessProcessorRules.SetLISTA_NOMBRESValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteLISTA_NOMBRES] := aValue; +end; + +procedure TRecibosClienteBusinessProcessorRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteLISTA_NOMBRES] := Null; +end; + function TRecibosClienteBusinessProcessorRules.GetCUENTA_CONTABLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE]; diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm index 228043c7..f6a16894 100644 --- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm +++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm @@ -48,13 +48,32 @@ object srvRecibosCliente: TsrvRecibosCliente Connection = 'IBX' TargetTable = 'V_RECIBOS_CLIENTE' SQL = - 'select v_recibos_cliente.*, cont_subcuentas.descripcion as CUENT' + - 'A_CONTABLE'#10'from v_recibos_cliente'#10' left outer join pagos_clie' + - 'nte pag on'#10' (pag.id_recibo = v_recibos_cliente.id)'#10' le' + - 'ft outer join pagos_cliente pag2 on'#10' ((pag2.id_recibo = p' + - 'ag.id_recibo) and (pag2.id > pag.id))'#10' left outer join cont_s' + - 'ubcuentas on'#10' (cont_subcuentas.id = pag.cuenta)'#10'where (pa' + - 'g2.id is null) and {Where}'#10 + 'select v_recibos_cliente.ID, v_recibos_cliente.ID_RECIBO_COMPENS' + + 'ADO, v_recibos_cliente.REFERENCIA_REC_COMPENSADO,'#10' v_recibos_' + + 'cliente.REFERENCIA, v_recibos_cliente.SITUACION, v_recibos_clien' + + 'te.ID_FACTURA, v_recibos_cliente.FECHA_FACTURA, v_recibos_client' + + 'e.FORMA_PAGO_FACTURA,'#10' v_recibos_cliente.IMPORTE_FACTURA, v_r' + + 'ecibos_cliente.ID_REMESA, v_recibos_cliente.REFERENCIA_REMESA, v' + + '_recibos_cliente.FECHA_EMISION,'#10' v_recibos_cliente.FECHA_VENC' + + 'IMIENTO, v_recibos_cliente.DESCRIPCION, v_recibos_cliente.OBSERV' + + 'ACIONES, v_recibos_cliente.IMPORTE,'#10' v_recibos_cliente.OTROS_' + + 'GASTOS, v_recibos_cliente.IMPORTE_TOTAL, v_recibos_cliente.ID_EM' + + 'PRESA, v_recibos_cliente.ID_CLIENTE,'#10' v_recibos_cliente.NOMBR' + + 'E_CLIENTE, v_recibos_cliente.ENTIDAD_CLIENTE, v_recibos_cliente.' + + 'SUCURSAL_CLIENTE,'#10' v_recibos_cliente.DC_CLIENTE, v_recibos_cl' + + 'iente.CUENTA_CLIENTE, v_recibos_cliente.NIF_CIF, v_recibos_clien' + + 'te.NOMBRE, v_recibos_cliente.CALLE,'#10' v_recibos_cliente.POBLAC' + + 'ION, v_recibos_cliente.CODIGO_POSTAL, v_recibos_cliente.PROVINCI' + + 'A, v_recibos_cliente.FECHA_ALTA, v_recibos_cliente.FECHA_MODIFIC' + + 'ACION, v_recibos_cliente.USUARIO,'#10' v_recibos_cliente.ID_TIEND' + + 'A, v_recibos_cliente.TIENDA, v_recibos_cliente.LISTA_NOMBRES,'#10' ' + + ' cont_subcuentas.descripcion as CUENTA_CONTABLE'#10'from v_recibos_' + + 'cliente'#10' left outer join pagos_cliente pag on'#10' (pag.id' + + '_recibo = v_recibos_cliente.id)'#10' left outer join pagos_client' + + 'e pag2 on'#10' ((pag2.id_recibo = pag.id_recibo) and (pag2.id' + + ' > pag.id))'#10' left outer join cont_subcuentas on'#10' (cont' + + '_subcuentas.id = pag.cuenta)'#10'where (pag2.id is null) and {Where}' + + #10 StatementType = stSQL ColumnMappings = < item @@ -157,18 +176,6 @@ object srvRecibosCliente: TsrvRecibosCliente DatasetField = 'CUENTA_CLIENTE' TableField = 'CUENTA_CLIENTE' end - item - DatasetField = 'FECHA_ALTA' - TableField = 'FECHA_ALTA' - end - item - DatasetField = 'FECHA_MODIFICACION' - TableField = 'FECHA_MODIFICACION' - end - item - DatasetField = 'USUARIO' - TableField = 'USUARIO' - end item DatasetField = 'ID_TIENDA' TableField = 'ID_TIENDA' @@ -205,6 +212,22 @@ object srvRecibosCliente: TsrvRecibosCliente DatasetField = 'CUENTA_CONTABLE' TableField = '' SQLOrigin = 'CUENTA_CONTABLE' + end + item + DatasetField = 'LISTA_NOMBRES' + TableField = 'LISTA_NOMBRES' + end + item + DatasetField = 'FECHA_ALTA' + TableField = 'FECHA_ALTA' + end + item + DatasetField = 'FECHA_MODIFICACION' + TableField = 'FECHA_MODIFICACION' + end + item + DatasetField = 'USUARIO' + TableField = 'USUARIO' end> end> Name = 'RecibosCliente' @@ -415,11 +438,17 @@ object srvRecibosCliente: TsrvRecibosCliente Size = 255 DictionaryEntry = 'RecibosCliente_TIENDA' end + item + Name = 'LISTA_NOMBRES' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosCliente_LISTA_NOMBRES' + end item Name = 'CUENTA_CONTABLE' DataType = datString Size = 255 - DisplayLabel = 'Cuenta contable' + DictionaryEntry = 'RecibosCliente_CUENTA_CONTABLE' end> end item @@ -1741,6 +1770,18 @@ object srvRecibosCliente: TsrvRecibosCliente DataType = datString Size = 255 ServerAutoRefresh = True + end + item + Name = 'RecibosCliente_LISTA_NOMBRES' + DataType = datString + Size = 255 + DisplayLabel = 'LISTA_NOMBRES' + end + item + Name = 'RecibosCliente_CUENTA_CONTABLE' + DataType = datString + Size = 255 + DisplayLabel = 'Cuenta contable' end> Left = 48 Top = 152 diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm index 8bca77c3..2d5c5c83 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm @@ -195,6 +195,10 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente DataBinding.FieldName = 'CODIGO_POSTAL' Visible = False end + object cxGridViewLISTA_NOMBRES: TcxGridDBColumn + Caption = 'Otros nombres' + DataBinding.FieldName = 'LISTA_NOMBRES' + end object cxGridViewCUENTA_CONTABLE: TcxGridDBColumn Caption = 'Cuenta contable' DataBinding.FieldName = 'CUENTA_CONTABLE' @@ -223,27 +227,15 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente Width = 686 ExplicitWidth = 686 inherited txtFiltroTodo: TcxTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 434 Width = 434 end inherited edtFechaIniFiltro: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 183 Width = 183 end inherited edtFechaFinFiltro: TcxDateEdit Left = 367 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 367 ExplicitWidth = 234 Width = 234 diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas index 0bcca75d..87a5064a 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas @@ -58,6 +58,7 @@ type cxGridViewPROVINCIA: TcxGridDBColumn; cxGridViewCODIGO_POSTAL: TcxGridDBColumn; cxGridViewCUENTA_CONTABLE: TcxGridDBColumn; + cxGridViewLISTA_NOMBRES: TcxGridDBColumn; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index a377cfbf..6243add6 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -115,20 +115,14 @@ uses schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', - schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', - schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas', schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', - schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', - schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', - schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', - schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', @@ -138,7 +132,13 @@ uses schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', - schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas'; + schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', + schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', + schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', + schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', + schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', + schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', + schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index b3038609..1b6ddfcc 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,298 +1,306 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - - - Delphi.Personality - - - FalseTrueFalseTrueFalse2800FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.8.0.0FactuGES (Servidor)2.8.0.0jueves, 10 de noviembre de 2016 12:55 - File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found - FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEjercicios
- TDataAbstractService - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones
- TRORemoteDataModule - - - - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - -
RptComisiones
- TDataModule - - -
srvComisiones
- TDataAbstractService - - - - - -
srvContabilidad
- TDataAbstractService - - - - - - - - -
RptListadosContactos
- TDataModule - - -
srvContactos
- TDARemoteService - - - - - -
RptContratosCliente
- - -
srvContratosCliente
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
RptPedidosProveedor
- TDataModule - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + + + Delphi.Personality + + +FalseTrueFalseTrueFalse2820FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.8.2.0FactuGES (Servidor)2.8.2.0lunes, 06 de febrero de 2017 19:05 + + + + + + + + + File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found + FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEjercicios
+ TDataAbstractService + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones
+ TRORemoteDataModule + + + + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + +
RptComisiones
+ TDataModule + + +
srvComisiones
+ TDataAbstractService + + + + + +
srvContabilidad
+ TDataAbstractService + + + + + + + + +
RptListadosContactos
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + + +
RptContratosCliente
+ + +
srvContratosCliente
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
RptPedidosProveedor
+ TDataModule + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +