diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm index a02b1877..6175fda5 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm @@ -76,6 +76,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente DataType = datInteger DictionaryEntry = 'PresupuestosCliente_ID_CLIENTE' end + item + Name = 'ID_DIRECCION' + DataType = datInteger + end item Name = 'NIF_CIF' DataType = datString @@ -92,10 +96,6 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente ServerAutoRefresh = True DictionaryEntry = 'PresupuestosCliente_NOMBRE' end - item - Name = 'ID_DIRECCION' - DataType = datInteger - end item Name = 'REFERENCIA_CLIENTE' DataType = datString diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas index 959511f7..f67d016f 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas @@ -9,8 +9,8 @@ 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_PresupuestosCliente = '{A0C46F24-09A9-4D39-B820-60B5E53322DC}'; - RID_PresupuestosCliente_Detalles = '{6BDA3BE4-1300-42EA-B8C1-F26A414F492B}'; + RID_PresupuestosCliente = '{853B1352-8912-4CFB-BB4D-CE8837BCB54A}'; + RID_PresupuestosCliente_Detalles = '{E5A90E27-F23F-4302-A58A-DF95BF1CEC8C}'; { Data table names } nme_PresupuestosCliente = 'PresupuestosCliente'; @@ -25,9 +25,9 @@ const fld_PresupuestosClienteREFERENCIA_AUX = 'REFERENCIA_AUX'; fld_PresupuestosClienteSITUACION = 'SITUACION'; fld_PresupuestosClienteID_CLIENTE = 'ID_CLIENTE'; + fld_PresupuestosClienteID_DIRECCION = 'ID_DIRECCION'; fld_PresupuestosClienteNIF_CIF = 'NIF_CIF'; fld_PresupuestosClienteNOMBRE = 'NOMBRE'; - fld_PresupuestosClienteID_DIRECCION = 'ID_DIRECCION'; fld_PresupuestosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; fld_PresupuestosClienteCLIENTE_FINAL = 'CLIENTE_FINAL'; fld_PresupuestosClientePORTADA = 'PORTADA'; @@ -60,9 +60,9 @@ const idx_PresupuestosClienteREFERENCIA_AUX = 5; idx_PresupuestosClienteSITUACION = 6; idx_PresupuestosClienteID_CLIENTE = 7; - idx_PresupuestosClienteNIF_CIF = 8; - idx_PresupuestosClienteNOMBRE = 9; - idx_PresupuestosClienteID_DIRECCION = 10; + idx_PresupuestosClienteID_DIRECCION = 8; + idx_PresupuestosClienteNIF_CIF = 9; + idx_PresupuestosClienteNOMBRE = 10; idx_PresupuestosClienteREFERENCIA_CLIENTE = 11; idx_PresupuestosClienteCLIENTE_FINAL = 12; idx_PresupuestosClientePORTADA = 13; @@ -123,7 +123,7 @@ const type { IPresupuestosCliente } IPresupuestosCliente = interface(IDAStronglyTypedDataTable) - ['{BED574C7-BB23-4AF4-99E8-A57512A34442}'] + ['{B6DA7C30-16B2-407A-BDF4-E8DC9F734A75}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -157,6 +157,10 @@ type procedure SetID_CLIENTEValue(const aValue: Integer); function GetID_CLIENTEIsNull: Boolean; procedure SetID_CLIENTEIsNull(const aValue: Boolean); + function GetID_DIRECCIONValue: Integer; + procedure SetID_DIRECCIONValue(const aValue: Integer); + function GetID_DIRECCIONIsNull: Boolean; + procedure SetID_DIRECCIONIsNull(const aValue: Boolean); function GetNIF_CIFValue: String; procedure SetNIF_CIFValue(const aValue: String); function GetNIF_CIFIsNull: Boolean; @@ -165,10 +169,6 @@ type procedure SetNOMBREValue(const aValue: String); function GetNOMBREIsNull: Boolean; procedure SetNOMBREIsNull(const aValue: Boolean); - function GetID_DIRECCIONValue: Integer; - procedure SetID_DIRECCIONValue(const aValue: Integer); - function GetID_DIRECCIONIsNull: Boolean; - procedure SetID_DIRECCIONIsNull(const aValue: Boolean); function GetREFERENCIA_CLIENTEValue: String; procedure SetREFERENCIA_CLIENTEValue(const aValue: String); function GetREFERENCIA_CLIENTEIsNull: Boolean; @@ -272,12 +272,12 @@ type property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; + property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; + property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; - property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property CLIENTE_FINAL: String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue; @@ -369,6 +369,10 @@ type procedure SetID_CLIENTEValue(const aValue: Integer); virtual; function GetID_CLIENTEIsNull: Boolean; virtual; procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetID_DIRECCIONValue: Integer; virtual; + procedure SetID_DIRECCIONValue(const aValue: Integer); virtual; + function GetID_DIRECCIONIsNull: Boolean; virtual; + procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; function GetNIF_CIFIsNull: Boolean; virtual; @@ -377,10 +381,6 @@ type procedure SetNOMBREValue(const aValue: String); virtual; function GetNOMBREIsNull: Boolean; virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; - function GetID_DIRECCIONValue: Integer; virtual; - procedure SetID_DIRECCIONValue(const aValue: Integer); virtual; - function GetID_DIRECCIONIsNull: Boolean; virtual; - procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_CLIENTEValue: String; virtual; procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual; @@ -483,12 +483,12 @@ type property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; + property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; + property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; - property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property CLIENTE_FINAL: String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue; @@ -542,7 +542,7 @@ type { IPresupuestosCliente_Detalles } IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{9B9C28F6-E2A6-49BB-A539-82586ADEB234}'] + ['{5ADC3764-FB8C-42A8-8750-8CD02EDDEB75}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -964,6 +964,27 @@ begin DataTable.Fields[idx_PresupuestosClienteID_CLIENTE].AsVariant := Null; end; +function TPresupuestosClienteDataTableRules.GetID_DIRECCIONValue: Integer; +begin + result := DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsInteger; +end; + +procedure TPresupuestosClienteDataTableRules.SetID_DIRECCIONValue(const aValue: Integer); +begin + DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsInteger := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetID_DIRECCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsVariant := Null; +end; + function TPresupuestosClienteDataTableRules.GetNIF_CIFValue: String; begin result := DataTable.Fields[idx_PresupuestosClienteNIF_CIF].AsString; @@ -1006,27 +1027,6 @@ begin DataTable.Fields[idx_PresupuestosClienteNOMBRE].AsVariant := Null; end; -function TPresupuestosClienteDataTableRules.GetID_DIRECCIONValue: Integer; -begin - result := DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsInteger; -end; - -procedure TPresupuestosClienteDataTableRules.SetID_DIRECCIONValue(const aValue: Integer); -begin - DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsInteger := aValue; -end; - -function TPresupuestosClienteDataTableRules.GetID_DIRECCIONIsNull: boolean; -begin - result := DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].IsNull; -end; - -procedure TPresupuestosClienteDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsVariant := Null; -end; - function TPresupuestosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String; begin result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsString; diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas index f81d1137..4e8080ca 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas @@ -9,13 +9,13 @@ 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_PresupuestosClienteDelta = '{C9E347B5-FCED-413B-AD2F-A17871A5FF7C}'; - RID_PresupuestosCliente_DetallesDelta = '{10BCC39C-D3B8-4B20-85AF-78E1739C9BB7}'; + RID_PresupuestosClienteDelta = '{96398599-ED77-4ED9-B88E-F52E17B3D835}'; + RID_PresupuestosCliente_DetallesDelta = '{D8D82042-F4DD-4056-B2D4-946CDF61FF5B}'; type { IPresupuestosClienteDelta } IPresupuestosClienteDelta = interface(IPresupuestosCliente) - ['{C9E347B5-FCED-413B-AD2F-A17871A5FF7C}'] + ['{96398599-ED77-4ED9-B88E-F52E17B3D835}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -25,9 +25,9 @@ type function GetOldREFERENCIA_AUXValue : String; function GetOldSITUACIONValue : String; function GetOldID_CLIENTEValue : Integer; + function GetOldID_DIRECCIONValue : Integer; function GetOldNIF_CIFValue : String; function GetOldNOMBREValue : String; - function GetOldID_DIRECCIONValue : Integer; function GetOldREFERENCIA_CLIENTEValue : String; function GetOldCLIENTE_FINALValue : String; function GetOldPORTADAValue : IROStrings; @@ -60,9 +60,9 @@ type property OldREFERENCIA_AUX : String read GetOldREFERENCIA_AUXValue; property OldSITUACION : String read GetOldSITUACIONValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; + property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue; property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNOMBRE : String read GetOldNOMBREValue; - property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldCLIENTE_FINAL : String read GetOldCLIENTE_FINALValue; property OldPORTADA : IROStrings read GetOldPORTADAValue; @@ -148,6 +148,12 @@ type function GetOldID_CLIENTEIsNull: Boolean; virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual; procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetID_DIRECCIONValue: Integer; virtual; + function GetID_DIRECCIONIsNull: Boolean; virtual; + function GetOldID_DIRECCIONValue: Integer; virtual; + function GetOldID_DIRECCIONIsNull: Boolean; virtual; + procedure SetID_DIRECCIONValue(const aValue: Integer); virtual; + procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; function GetNIF_CIFIsNull: Boolean; virtual; function GetOldNIF_CIFValue: String; virtual; @@ -160,12 +166,6 @@ type function GetOldNOMBREIsNull: Boolean; virtual; procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; - function GetID_DIRECCIONValue: Integer; virtual; - function GetID_DIRECCIONIsNull: Boolean; virtual; - function GetOldID_DIRECCIONValue: Integer; virtual; - function GetOldID_DIRECCIONIsNull: Boolean; virtual; - procedure SetID_DIRECCIONValue(const aValue: Integer); virtual; - procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_CLIENTEValue: String; virtual; function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual; function GetOldREFERENCIA_CLIENTEValue: String; virtual; @@ -328,6 +328,10 @@ type property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull; + property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; + property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; + property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue; + property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull; property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property OldNIF_CIF : String read GetOldNIF_CIFValue; @@ -336,10 +340,6 @@ type property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; - property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; - property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; - property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue; - property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull; property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; @@ -437,7 +437,7 @@ type { IPresupuestosCliente_DetallesDelta } IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) - ['{10BCC39C-D3B8-4B20-85AF-78E1739C9BB7}'] + ['{D8D82042-F4DD-4056-B2D4-946CDF61FF5B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PRESUPUESTOValue : Integer; @@ -939,6 +939,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_CLIENTE] := Null; end; +function TPresupuestosClienteBusinessProcessorRules.GetID_DIRECCIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_DIRECCION]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_DIRECCION]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION] := Null; +end; + function TPresupuestosClienteBusinessProcessorRules.GetNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNIF_CIF]; @@ -1001,37 +1032,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE] := Null; end; -function TPresupuestosClienteBusinessProcessorRules.GetID_DIRECCIONValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION]; -end; - -function TPresupuestosClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION]); -end; - -function TPresupuestosClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_DIRECCION]; -end; - -function TPresupuestosClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_DIRECCION]); -end; - -procedure TPresupuestosClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION] := aValue; -end; - -procedure TPresupuestosClienteBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION] := Null; -end; - function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE]; diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm index 6d4eddf4..2f80bb86 100644 --- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm +++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm @@ -201,6 +201,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DataType = datInteger DictionaryEntry = 'PresupuestosCliente_ID_CLIENTE' end + item + Name = 'ID_DIRECCION' + DataType = datInteger + end item Name = 'NIF_CIF' DataType = datString @@ -215,10 +219,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente ServerAutoRefresh = True DictionaryEntry = 'PresupuestosCliente_NOMBRE' end - item - Name = 'ID_DIRECCION' - DataType = datInteger - end item Name = 'REFERENCIA_CLIENTE' DataType = datString @@ -547,6 +547,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'ID_CLIENTE' Value = '' end + item + Name = 'ID_DIRECCION' + Value = '' + end item Name = 'REFERENCIA_CLIENTE' Value = '' @@ -575,14 +579,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'INCIDENCIAS_ACTIVAS' Value = '' end - item - Name = 'FECHA_ALTA' - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - Value = '' - end item Name = 'USUARIO' Value = '' @@ -641,18 +637,17 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente 'ESUPUESTO, FECHA_DECISION, REFERENCIA,'#10' REFERENCIA_AUX, SITU' + 'ACION, ID_CLIENTE, ID_DIRECCION, REFERENCIA_CLIENTE,'#10' CLIENT' + 'E_FINAL, PORTADA, MEMORIA, OBSERVACIONES, INCIDENCIAS, '#10' INC' + - 'IDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFICACION, '#10' USUARIO,' + - ' IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' ' + - ' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO' + - ', ID_FACTURA,'#10' PERSONA_CONTACTO)'#10' VALUES'#10' (:ID, :ID_EMPR' + - 'ESA, :FECHA_PRESUPUESTO, :FECHA_DECISION, :REFERENCIA,'#10' :REF' + - 'ERENCIA_AUX, :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :REFERENCIA' + - '_CLIENTE,'#10' :CLIENTE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONE' + - 'S, '#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA' + - '_MODIFICACION, '#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :D' + - 'ESCUENTO, '#10' :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA, :IMPO' + - 'RTE_IVA, '#10' :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_FACTURA, :PER' + - 'SONA_CONTACTO)'#10 + 'IDENCIAS_ACTIVAS, FECHA_ALTA,'#10' USUARIO, IMPORTE_NETO, IMPORT' + + 'E_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA' + + ', IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_FACTURA,'#10' PE' + + 'RSONA_CONTACTO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUES' + + 'TO, :FECHA_DECISION, :REFERENCIA,'#10' :REFERENCIA_AUX, :SITUACI' + + 'ON, :ID_CLIENTE, :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10' :CLIEN' + + 'TE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIAS' + + ', :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPOR' + + 'TE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENTO, :' + + 'BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :ID_FO' + + 'RMA_PAGO, :ID_FACTURA, :PERSONA_CONTACTO)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -712,6 +707,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'ID_CLIENTE' Value = '' end + item + Name = 'ID_DIRECCION' + Value = '' + end item Name = 'REFERENCIA_CLIENTE' Value = '' @@ -740,14 +739,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'INCIDENCIAS_ACTIVAS' Value = '' end - item - Name = 'FECHA_ALTA' - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - Value = '' - end item Name = 'USUARIO' Value = '' @@ -815,14 +806,14 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente '_FINAL = :CLIENTE_FINAL, '#10' PORTADA = :PORTADA, '#10' MEMORIA =' + ' :MEMORIA, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS' + ' = :INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS' + - ', '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECH' + - 'A_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' IMPORTE_NETO = :IM' + - 'PORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO ' + - '= :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' ' + - 'BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_' + - 'IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ID' + - '_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_FACTURA = :ID_FACTURA,'#10' ' + - 'PERSONA_CONTACTO = :PERSONA_CONTACTO'#10' WHERE'#10' (ID = :OLD_ID)'#10 + ', '#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :US' + + 'UARIO, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :' + + 'IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUEN' + + 'TO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, ' + + #10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_T' + + 'OTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' + + 'ID_FACTURA = :ID_FACTURA,'#10' PERSONA_CONTACTO = :PERSONA_CONTAC' + + 'TO'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -893,10 +884,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente 'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_DETALLES'#10' (ID, ID_PRESUPUE' + 'STO, POSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' UNIDAD_MED' + 'IDA,'#10' IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, '#10 + - ' DESCUENTO, IMPORTE_PORTE)'#10' VALUES'#10' (:ID, :ID_PRESUPUEST' + - 'O, :POSICION, :TIPO_DETALLE, :CONCEPTO,'#10' :CANTIDAD, :UNIDAD_' + - 'MEDIDA, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_ARTI' + - 'CULO, :DESCUENTO, :IMPORTE_PORTE)'#10 + ' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :I' + + 'D_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :CONCEPTO,'#10' :CANTID' + + 'AD, :UNIDAD_MEDIDA, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' ' + + ' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TIMESTAMP)' + + #10 StatementType = stSQL ColumnMappings = <> end> @@ -994,8 +986,9 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente 'NTIDAD = :CANTIDAD, '#10' UNIDAD_MEDIDA = :UNIDAD_MEDIDA,'#10' IMP' + 'ORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOT' + 'AL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' ' + - ' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' ' + - ' WHERE'#10' (ID = :OLD_ID)'#10 + ' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10 + + ' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OL' + + 'D_ID)'#10 StatementType = stSQL ColumnMappings = <> end>