diff --git a/Build/Build.fbp5 b/Build/Build.fbp5 index ad7069f2..4e1ab474 100644 --- a/Build/Build.fbp5 +++ b/Build/Build.fbp5 @@ -4420,7 +4420,7 @@ Comments= False False - True + False True False False @@ -4430,7 +4430,7 @@ Comments= False False False - 3082 + 3081 1 0 @@ -4452,16 +4452,7 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -4545,7 +4536,7 @@ Comments= False False - True + False True False False @@ -4555,7 +4546,7 @@ Comments= False False False - 3082 + 3081 1 0 @@ -4577,16 +4568,7 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -4786,7 +4768,7 @@ Comments= False False - True + False True False False @@ -4796,7 +4778,7 @@ Comments= False False False - 3082 + 3081 1 0 @@ -4818,16 +4800,7 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -4911,7 +4884,7 @@ Comments= False False - True + False True False False @@ -4921,7 +4894,7 @@ Comments= False False False - 3082 + 3081 1 0 @@ -4943,16 +4916,7 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -5036,14 +5000,14 @@ Comments= - True + False True False True False 0 - False + True 0 1000 False @@ -5188,7 +5152,7 @@ Comments= False False - False + True True False False @@ -5198,9 +5162,9 @@ Comments= False False False - 3081 + 3082 - 0 + 1 0 0 False @@ -5223,13 +5187,13 @@ Comments= False @@ -5243,17 +5207,14 @@ Comments= False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -5267,7 +5228,7 @@ Comments= True %library_path% 0 - True + False 3 1048576 16384 @@ -5279,7 +5240,7 @@ Comments= False fa8 - True + False False True @@ -5329,7 +5290,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -5350,16 +5311,7 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -5372,17 +5324,14 @@ Comments= False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -5396,8 +5345,8 @@ Comments= True %library_path% 0 - True - 3 + False + 0 1048576 16384 @@ -5408,7 +5357,7 @@ Comments= False fa8 - True + False False True @@ -5458,7 +5407,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -5479,16 +5428,7 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -5501,17 +5441,14 @@ Comments= False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -5525,8 +5462,8 @@ Comments= True %library_path% 0 - True - 3 + False + 0 1048576 16384 @@ -5537,7 +5474,7 @@ Comments= False fa8 - True + False False True @@ -5587,7 +5524,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -5608,16 +5545,7 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -5630,17 +5558,14 @@ Comments= False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -5654,7 +5579,7 @@ Comments= True %library_path% 0 - True + False 3 1048576 16384 @@ -5666,7 +5591,7 @@ Comments= False fa8 - True + False False True @@ -5695,7 +5620,7 @@ Comments= False 0 - False + True 0 1000 False @@ -6555,6 +6480,412 @@ Comments= + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + True + True + False + False + %package_path% + @@ -7039,7 +7370,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -7063,7 +7394,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -7081,42 +7412,30 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False - False False False - True + False True True False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -7130,8 +7449,8 @@ Comments= True %library_path% 0 - True - 0 + False + 3 1048576 16384 @@ -7142,7 +7461,7 @@ Comments= False fa8 - True + False False True @@ -7168,7 +7487,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -7210,7 +7529,7 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False False False False - True + False True True False @@ -7260,7 +7579,7 @@ Comments= %library_path% 0 True - 0 + 3 1048576 16384 @@ -7297,7 +7616,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -7339,154 +7658,6 @@ Comments= False False False - [] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path% - False - - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - - 0 - - - - True - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - 0 - - True - False - False - True - True - 0 - 1252 - 12 - Release - False - - - True - True - - False - - False - False - False - True - False - False - False - False - False - False - False - False - 3081 - - 0 - 0 - 0 - False - 0 - - - True - 0 - - - rcBorland - 1000 - - False - False - False - False [usPackages,usCompiler,usLinker,usVersionInfo] False False @@ -7505,7 +7676,7 @@ Comments= False False - False + False False True True @@ -7562,6 +7733,151 @@ Comments= True + + + + + 0 + + + + False + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + @@ -7586,7 +7902,7 @@ Comments= False False - False + True True False False @@ -7596,9 +7912,9 @@ Comments= False False False - 3081 + 3082 - 0 + 1 0 0 False @@ -7621,13 +7937,13 @@ Comments= False @@ -7641,17 +7957,14 @@ Comments= False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -7665,7 +7978,7 @@ Comments= True %library_path% 0 - True + False 3 1048576 16384 @@ -7677,7 +7990,7 @@ Comments= False fa8 - True + False False True @@ -7727,7 +8040,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -7748,16 +8061,7 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -7770,17 +8074,14 @@ Comments= False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -7794,7 +8095,7 @@ Comments= True %library_path% 0 - True + False 3 1048576 16384 @@ -7806,7 +8107,7 @@ Comments= False fa8 - True + False False True @@ -12276,7 +12577,7 @@ Comments= - False + True True False True @@ -12288,7 +12589,7 @@ Comments= 1000 False - + 0 @@ -12299,10 +12600,10 @@ Comments= True 0 1252 - 11 + 12 Release False - + True True @@ -12328,7 +12629,7 @@ Comments= 0 False 0 - + True 0 @@ -12341,7 +12642,7 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False False False False - True + False True True False @@ -12417,6 +12718,264 @@ Comments= + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + False + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + 0 @@ -12433,7 +12992,7 @@ Comments= False - True + False True False @@ -12488,7 +13047,7 @@ Comments= False False - False + False True True True @@ -12562,7 +13121,7 @@ Comments= False - True + False True False @@ -12691,7 +13250,7 @@ Comments= False - True + False True False @@ -12820,7 +13379,7 @@ Comments= False - True + False True False @@ -12949,7 +13508,7 @@ Comments= False - True + False True False @@ -13078,7 +13637,7 @@ Comments= False - True + False True False @@ -13206,7 +13765,7 @@ Comments= False - True + False True False @@ -13334,7 +13893,7 @@ Comments= False - True + False True False @@ -13463,7 +14022,7 @@ Comments= False - True + False True False @@ -13592,7 +14151,7 @@ Comments= False - True + False True False @@ -13721,7 +14280,7 @@ Comments= False - True + False True False @@ -13850,7 +14409,7 @@ Comments= False - True + False True False @@ -13979,7 +14538,7 @@ Comments= False - True + False True False @@ -14108,7 +14667,7 @@ Comments= False - True + False True False @@ -14237,7 +14796,7 @@ Comments= False - True + False True False @@ -14365,7 +14924,7 @@ Comments= False - True + False True False @@ -14493,7 +15052,7 @@ Comments= False - True + False True False @@ -14622,7 +15181,7 @@ Comments= False - True + False True False @@ -14751,7 +15310,7 @@ Comments= False - True + False True False @@ -14880,7 +15439,7 @@ Comments= False - True + False True False diff --git a/Build/Build.fbv b/Build/Build.fbv index f2a6fa1d..411786d2 100644 --- a/Build/Build.fbv +++ b/Build/Build.fbv @@ -1 +1 @@ - + diff --git a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas index 7e958f99..66def87e 100644 --- a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas +++ b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas @@ -195,6 +195,7 @@ function TUsuariosController.StartLogin : Boolean; var AEditor : IEditorLogin; begin + Result := False; AEditor := NIL; ShowHourglassCursor; try diff --git a/Source/ApplicationBase/Usuarios/Data/uUCROConn.pas b/Source/ApplicationBase/Usuarios/Data/uUCROConn.pas index f1f6cbde..c1ed45ba 100644 --- a/Source/ApplicationBase/Usuarios/Data/uUCROConn.pas +++ b/Source/ApplicationBase/Usuarios/Data/uUCROConn.pas @@ -182,6 +182,7 @@ var ADataStreamer: TDABin2DataStreamer; ADataTable: TDACDSDataTable; begin + Result := NIL; ADataStreamer := TDABin2DataStreamer.Create(NIL); AStream := (FRemoteService as IsrvUsuarios).SQLGetData(FSQL, True, -1); diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas b/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas index 8c8f3dfa..d274eee1 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas +++ b/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas @@ -80,6 +80,7 @@ procedure TfEditorLogin.ToolButton4Click(Sender: TObject); var ATimer : Boolean; begin + ATimer := False; if Timer1.Enabled then begin ATimer := True; diff --git a/Source/Base/Base.dpk b/Source/Base/Base.dpk index 75877c69..dee53faf 100644 --- a/Source/Base/Base.dpk +++ b/Source/Base/Base.dpk @@ -31,8 +31,8 @@ requires vcl, TB2k_D10, GUISDK_D11, - RemObjects_Core_D10, - DataAbstract_Core_D10, + RemObjects_Core_D11, + DataAbstract_Core_D11, vcljpg, IndyCore, IndySystem, diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 04a2bdea..0a8563e2 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,6 +44,20 @@ Package FalseTrueFalseLibreria base de FactuGESTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -58,73 +72,80 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
+ TForm
dmConexion
+ TDataModule
dmConfiguracion
+ TDataModule
DataModuleBase
+ TDataModule
dmBase
+ TDataModule @@ -626,4 +647,4 @@ mtException_AntiFreeze0="The application seems to be frozen." Count mtInvalidEmailMsg=1 mtInvalidEmailMsg0="Invalid email." TextsCollection=English -EurekaLog Last Line --> +EurekaLog Last Line --> \ No newline at end of file diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339f..8b251f31 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Base/Utiles/uDataTableUtils.pas b/Source/Base/Utiles/uDataTableUtils.pas index 3321fce4..d9a6d7b9 100644 --- a/Source/Base/Utiles/uDataTableUtils.pas +++ b/Source/Base/Utiles/uDataTableUtils.pas @@ -211,7 +211,7 @@ end; function CloneDataTable(const ASource : TDAMemDataTable; - RemoteUpdate: Boolean = True): TDAMemDataTable; + RemoteUpdate: Boolean = True): TDAMemDataTable; var i : Integer; ATarget : TDAMemDataTable; @@ -222,40 +222,56 @@ begin ATarget := TDAMemDataTable.Create(NIL); with ATarget do begin - if not Assigned(ASource.RemoteDataAdapter) then - raise Exception.Create('No está asignado RemoteDataAdapter (' + ASource.Name + ')'); - RemoteDataAdapter := ASource.RemoteDataAdapter; -// RemoteDataAdapter.Assign(ASource.RemoteDataAdapter); + { ATENCIÓN !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + -------------------------------------------------------------------- + DA5 tiene un fallo en el cual las tablas definidas como detalle no + tienen asociados los eventos internos before... y after... por lo + que los campos AutoInc no funcionan (no pone el -1, -2...). + La forma de arreglarlo es llamar a DisableEventHandlers/EnableEventHandlers + que realiza la asociación de los eventos. + } + ATarget.DisableEventHandlers; // <--- INDISPENSABLE!!!!!!!!!!!!!!!!!!!! - BusinessRulesID := ASource.BusinessRulesID; - Randomize; - Name := ASource.Name + '_' + IntToStr(Random(MAXINT)); - LogicalName := ASource.LogicalName; + try + if not Assigned(ASource.RemoteDataAdapter) then + raise Exception.Create('No está asignado RemoteDataAdapter (' + ASource.Name + ')'); - Params.AssignParamCollection(ASource.Params); - Fields.AssignFieldCollection(ASource.Fields); // o también ATarget.LoadSchema; + LogicalName := ASource.LogicalName; + CustomAttributes.Assign(ASource.CustomAttributes); + Fields.AssignFieldCollection(ASource.Fields); // o también ATarget.LoadSchema; + Params.AssignParamCollection(ASource.Params); - with MasterParamsMappings do - for i := 0 to ASource.MasterParamsMappings.Count - 1 do - Add(ASource.MasterParamsMappings.Strings[i]); + RemoteDataAdapter := ASource.RemoteDataAdapter; - with MasterRequestMappings do - for i := 0 to ASource.MasterRequestMappings.Count - 1 do - Add(ASource.MasterRequestMappings.Strings[i]); + Randomize; + Name := ASource.Name + '_' + IntToStr(Random(MAXINT)); - MasterMappingMode := ASource.MasterMappingMode; + BusinessRulesID := ASource.BusinessRulesID; - MasterFields := ASource.MasterFields; - MasterOptions := ASource.MasterOptions; + with MasterParamsMappings do + for i := 0 to ASource.MasterParamsMappings.Count - 1 do + Add(ASource.MasterParamsMappings.Strings[i]); - DetailFields := ASource.DetailFields; - DetailOptions := ASource.DetailOptions; + with MasterRequestMappings do + for i := 0 to ASource.MasterRequestMappings.Count - 1 do + Add(ASource.MasterRequestMappings.Strings[i]); - RemoteUpdatesOptions := ASource.RemoteUpdatesOptions; - StreamingOptions := ASource.StreamingOptions; - RemoteFetchEnabled := ASource.RemoteFetchEnabled; + MasterMappingMode := ASource.MasterMappingMode; + + MasterFields := ASource.MasterFields; + MasterOptions := ASource.MasterOptions; + + DetailFields := ASource.DetailFields; + DetailOptions := ASource.DetailOptions; + + RemoteUpdatesOptions := ASource.RemoteUpdatesOptions; + StreamingOptions := ASource.StreamingOptions; + RemoteFetchEnabled := ASource.RemoteFetchEnabled; + finally + ATarget.EnableEventHandlers; // <--- INDISPENSABLE!!!!!!!!!!!!!!!!!!!!!!!!! + end; end; if not RemoteUpdate then diff --git a/Source/Base/uDataModuleBase.pas b/Source/Base/uDataModuleBase.pas index feacf821..eb1c3176 100644 --- a/Source/Base/uDataModuleBase.pas +++ b/Source/Base/uDataModuleBase.pas @@ -9,9 +9,8 @@ type TDataModuleBase = class(TDataModule) private FRefCount: Integer; - protected - function QueryInterface( const IID: TGUID; out Obj): Integer; stdcall; + function QueryInterface(const IID: TGUID; out Obj): HResult; override; stdcall; function _AddRef: Integer; stdcall; function _Release: Integer; stdcall; @@ -28,7 +27,7 @@ implementation // Set an implicit refcount so that refcounting // during construction won't destroy the object. -function TDataModuleBase.QueryInterface(const IID: TGUID; out Obj): HResult; +function TDataModuleBase.QueryInterface( const IID: TGUID; out Obj): HResult; begin if GetInterface(IID, Obj) then Result := 0 diff --git a/Source/Cliente/FactuGES.dpr b/Source/Cliente/FactuGES.dpr index 13ef7dc2..ce8466be 100644 --- a/Source/Cliente/FactuGES.dpr +++ b/Source/Cliente/FactuGES.dpr @@ -1,7 +1,6 @@ program FactuGES; uses - ExceptionLog, Forms, Windows, SysUtils, @@ -24,7 +23,7 @@ begin Application.ShowMainForm := False; -// ReportMemoryLeaksOnShutdown := True; + //ReportMemoryLeaksOnShutdown := True; // ¡¡¡Fallo en Delphi 2007!!! // Tengo que ponerlo a false porque si no el formulario principal no se puede poner por encima de los formularios hijos. diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index d4a12808..ff391ba1 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -45,7 +45,7 @@ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib - DEBUG;EUREKALOG;EUREKALOG_VER6 + DEBUG True True @@ -53,7 +53,7 @@ Delphi.Personality VCLApplication -T:\Codigo (Luis Leon)\Source\Modulos\Pedidos de cliente\Controller\FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2220FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.2.0FactuGESFactuGES2.1.4 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2220FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.2.0FactuGESFactuGES2.1.4 Internet Explorer Hosting Support Package CodeGear Control Panel Applet Package CodeGear WebSnap Components @@ -90,7 +90,7 @@ diff --git a/Source/Modulos/Articulos/Data/Articulos_data.dproj b/Source/Modulos/Articulos/Data/Articulos_data.dproj new file mode 100644 index 00000000..449c44e3 --- /dev/null +++ b/Source/Modulos/Articulos/Data/Articulos_data.dproj @@ -0,0 +1,588 @@ + + + {568778b1-e82d-41e9-b198-b7c58140e81b} + Articulos_data.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Articulos_data.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + DEBUG + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + Articulos_data.dpk + + + + + + + MainSource + + + +
DataModuleArticulos
+ + + + + + diff --git a/Source/Modulos/Articulos/Data/Articulos_data.rc b/Source/Modulos/Articulos/Data/Articulos_data.rc index 153736af..e69de29b 100644 --- a/Source/Modulos/Articulos/Data/Articulos_data.rc +++ b/Source/Modulos/Articulos/Data/Articulos_data.rc @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,0,0 -PRODUCTVERSION 1,0,0,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.0.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Source/Modulos/Articulos/Data/Articulos_data.res b/Source/Modulos/Articulos/Data/Articulos_data.res index 8b251f31..36f26e23 100644 Binary files a/Source/Modulos/Articulos/Data/Articulos_data.res and b/Source/Modulos/Articulos/Data/Articulos_data.res differ diff --git a/Source/Modulos/Articulos/Model/Articulos_model.dproj b/Source/Modulos/Articulos/Model/Articulos_model.dproj new file mode 100644 index 00000000..7b1bfa05 --- /dev/null +++ b/Source/Modulos/Articulos/Model/Articulos_model.dproj @@ -0,0 +1,589 @@ + + + {e4f81792-84cf-4900-a6ab-18f6dd2c7ada} + Articulos_model.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Articulos_model.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + DEBUG + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + Articulos_model.dpk + + + + + + + MainSource + + + + + + + + + + + diff --git a/Source/Modulos/Articulos/Model/Articulos_model.rc b/Source/Modulos/Articulos/Model/Articulos_model.rc index 153736af..e69de29b 100644 --- a/Source/Modulos/Articulos/Model/Articulos_model.rc +++ b/Source/Modulos/Articulos/Model/Articulos_model.rc @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,0,0 -PRODUCTVERSION 1,0,0,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.0.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Source/Modulos/Articulos/Model/Articulos_model.res b/Source/Modulos/Articulos/Model/Articulos_model.res index 8b251f31..36f26e23 100644 Binary files a/Source/Modulos/Articulos/Model/Articulos_model.res and b/Source/Modulos/Articulos/Model/Articulos_model.res differ diff --git a/Source/Modulos/Articulos/Plugin/Articulos_plugin.dproj b/Source/Modulos/Articulos/Plugin/Articulos_plugin.dproj new file mode 100644 index 00000000..088d1bf5 --- /dev/null +++ b/Source/Modulos/Articulos/Plugin/Articulos_plugin.dproj @@ -0,0 +1,580 @@ + + + {e4a70e78-dcab-415c-9e35-1956bd41ae1a} + Articulos_plugin.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Articulos_plugin.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + DEBUG + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + Articulos_plugin.dpk + + + + + + + MainSource + + + + + + + + + + diff --git a/Source/Modulos/Articulos/Plugin/Articulos_plugin.rc b/Source/Modulos/Articulos/Plugin/Articulos_plugin.rc index 153736af..e69de29b 100644 --- a/Source/Modulos/Articulos/Plugin/Articulos_plugin.rc +++ b/Source/Modulos/Articulos/Plugin/Articulos_plugin.rc @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,0,0 -PRODUCTVERSION 1,0,0,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.0.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Source/Modulos/Articulos/Plugin/Articulos_plugin.res b/Source/Modulos/Articulos/Plugin/Articulos_plugin.res index 8b251f31..36f26e23 100644 Binary files a/Source/Modulos/Articulos/Plugin/Articulos_plugin.res and b/Source/Modulos/Articulos/Plugin/Articulos_plugin.res differ diff --git a/Source/Modulos/Articulos/Views/Articulos_view.dproj b/Source/Modulos/Articulos/Views/Articulos_view.dproj new file mode 100644 index 00000000..c3b541f2 --- /dev/null +++ b/Source/Modulos/Articulos/Views/Articulos_view.dproj @@ -0,0 +1,608 @@ + + + {5e4bdd4d-597f-407c-8b0c-32e37fbd6267} + Articulos_view.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Articulos_view.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + DEBUG + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + Articulos_view.dpk + + + + + + + MainSource + + + + + + + + +
fEditorArticulo
+ + +
fEditorArticulos
+ + +
fEditorElegirArticulos
+ + +
frViewArticulo
+ + +
frViewArticulos
+ + +
frViewDetallesArticulos
+ + + + + + diff --git a/Source/Modulos/Articulos/Views/Articulos_view.rc b/Source/Modulos/Articulos/Views/Articulos_view.rc index 153736af..e69de29b 100644 --- a/Source/Modulos/Articulos/Views/Articulos_view.rc +++ b/Source/Modulos/Articulos/Views/Articulos_view.rc @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,0,0 -PRODUCTVERSION 1,0,0,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.0.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Source/Modulos/Articulos/Views/Articulos_view.res b/Source/Modulos/Articulos/Views/Articulos_view.res index 8b251f31..36f26e23 100644 Binary files a/Source/Modulos/Articulos/Views/Articulos_view.res and b/Source/Modulos/Articulos/Views/Articulos_view.res differ diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj index 4d1e07ae..cbc1e9ef 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj @@ -53,13 +53,13 @@ MainSource - - - - - - - + + + + + + + diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.drc b/Source/Modulos/Contactos/Controller/Contactos_controller.drc index 300b567f..97b31810 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.drc +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.drc @@ -12,5 +12,5 @@ STRINGTABLE BEGIN END -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Controller\Contactos_controller.res */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Controller\Contactos_controller.drf */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Controller\Contactos_controller.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA3.tmp */ diff --git a/Source/Modulos/Contactos/Data/Contactos_data.drc b/Source/Modulos/Contactos/Data/Contactos_data.drc index 7c586ab2..32b81a13 100644 --- a/Source/Modulos/Contactos/Data/Contactos_data.drc +++ b/Source/Modulos/Contactos/Data/Contactos_data.drc @@ -12,9 +12,9 @@ STRINGTABLE BEGIN END -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Data\uDataModuleContactos.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Data\uDataModuleClientes.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Data\uDataModuleProveedores.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Data\Contactos_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2C.tmp */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleContactos.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleClientes.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleProveedores.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\Contactos_data.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA1.tmp */ diff --git a/Source/Modulos/Contactos/Model/Contactos_model.drc b/Source/Modulos/Contactos/Model/Contactos_model.drc index 20d205b2..3b0f1027 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.drc +++ b/Source/Modulos/Contactos/Model/Contactos_model.drc @@ -12,5 +12,5 @@ STRINGTABLE BEGIN END -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Model\Contactos_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf34.tmp */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Model\Contactos_model.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf9F.tmp */ diff --git a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc b/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc index a1453f76..736986a3 100644 --- a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc +++ b/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc @@ -12,6 +12,6 @@ STRINGTABLE BEGIN END -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf32.tmp */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA7.tmp */ diff --git a/Source/Modulos/Contactos/Views/Contactos_view.drc b/Source/Modulos/Contactos/Views/Contactos_view.drc index a90dc6bc..e1b69043 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.drc +++ b/Source/Modulos/Contactos/Views/Contactos_view.drc @@ -12,37 +12,37 @@ STRINGTABLE BEGIN END -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uViewContactos.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorContactos.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uViewClientes.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorClientes.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uViewProveedores.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorProveedores.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uViewEmpleados.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorEmpleados.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorElegirClientes.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uViewContacto.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uViewContactoDatosBancarios.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorContacto.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uViewCliente.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uViewEmpleado.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uViewDireccionesEntrega.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uViewClienteDescuentos.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uViewClienteDatosComerciales.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorCliente.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uViewProveedor.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uViewProveedorDatosComerciales.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorProveedor.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorEmpleado.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorElegirProveedores.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorDireccion.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorElegirDireccionEntrega.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorGruposCliente.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorGruposProveedor.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorGruposEmpleado.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorFichasEmpleadoReport.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uEditorEtiquetasContactosReport.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionProveedor.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\Contactos_view.res */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Views\Contactos_view.drf */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewContactos.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorContactos.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewClientes.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorClientes.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewProveedores.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorProveedores.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewEmpleados.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorEmpleados.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorElegirClientes.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewContacto.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewContactoDatosBancarios.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorContacto.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewEmpleado.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDireccionesEntrega.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewClienteDescuentos.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewClienteDatosComerciales.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewProveedorDatosComerciales.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorEmpleado.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorElegirProveedores.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorDireccion.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorElegirDireccionEntrega.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorGruposCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorGruposProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorGruposEmpleado.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorFichasEmpleadoReport.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorEtiquetasContactosReport.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\Contactos_view.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA5.tmp */ diff --git a/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc b/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc index 6ef35964..a9274741 100644 --- a/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc +++ b/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc @@ -12,5 +12,5 @@ STRINGTABLE BEGIN END -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.res */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.drf */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.res */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.drf */ diff --git a/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.res b/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.res index 86c94e6a..36f26e23 100644 Binary files a/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.res and b/Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.res differ diff --git a/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc b/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc index 380b58e2..27967037 100644 --- a/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc +++ b/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc @@ -12,6 +12,6 @@ STRINGTABLE BEGIN END -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Data\uDataModuleFacturasCliente.DFM */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.res */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.drf */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Data\uDataModuleFacturasCliente.DFM */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.res */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.drf */ diff --git a/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.rc b/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.rc +++ b/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.res b/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.res and b/Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.res differ diff --git a/Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj b/Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj index faff84e6..5f4e9af2 100644 --- a/Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj +++ b/Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj @@ -4,6 +4,7 @@ + @@ -42,6 +43,15 @@ + + + + + + + + + @@ -142,13 +152,13 @@ - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc index 53408170..689ff274 100644 --- a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc +++ b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc @@ -12,5 +12,5 @@ STRINGTABLE BEGIN END -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.drf */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.drf */ diff --git a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.rc b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.rc +++ b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.res b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.res and b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.res differ diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas index 67105a0f..452cede2 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas @@ -3,7 +3,7 @@ unit schFacturasClienteClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids @@ -145,7 +145,7 @@ type end; { TDarReferenciaDataTableRules } - TDarReferenciaDataTableRules = class(TDADataTableRules, IDarReferencia) + TDarReferenciaDataTableRules = class(TIntfObjectDADataTableRules, IDarReferencia) private protected { Property getters and setters } @@ -377,7 +377,7 @@ type end; { TFacturasClienteDataTableRules } - TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente) + TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente) private f_OBSERVACIONES: IROStrings; procedure OBSERVACIONES_OnChange(Sender: TObject); @@ -689,7 +689,7 @@ type end; { TFacturasCliente_DetallesDataTableRules } - TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles) + TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles) private protected { Property getters and setters } diff --git a/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc b/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc index 8da03f2d..b51478f5 100644 --- a/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc +++ b/Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc @@ -12,6 +12,6 @@ STRINGTABLE BEGIN END -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.drf */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.drf */ diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc index 9a817d97..9dc325b9 100644 --- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc +++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc @@ -12,14 +12,14 @@ STRINGTABLE BEGIN END -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Views\uViewFacturasCliente.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorFacturasCliente.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Views\uViewFacturaCliente.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Views\uViewDetallesFacturaCliente.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorFacturaCliente.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorFacturasClienteReport.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Views\uViewElegirArticulosFacturasCliente.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.drf */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uViewFacturasCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorFacturasCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uViewFacturaCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uViewDetallesFacturaCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorFacturaCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorFacturasClienteReport.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uViewElegirArticulosFacturasCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.drf */ diff --git a/Source/Modulos/Formas de pago/Data/FormasPago_data.dpk b/Source/Modulos/Formas de pago/Data/FormasPago_data.dpk index 74cf36bf..d4da5e5b 100644 --- a/Source/Modulos/Formas de pago/Data/FormasPago_data.dpk +++ b/Source/Modulos/Formas de pago/Data/FormasPago_data.dpk @@ -33,8 +33,6 @@ requires ApplicationBase, FormasPago_model, dbrtl, - RemObjects_Core_D10, - DataAbstract_Core_D10, vcldb, dsnap, adortl; diff --git a/Source/Modulos/Formas de pago/Data/FormasPago_data.dproj b/Source/Modulos/Formas de pago/Data/FormasPago_data.dproj index 5a3eaab5..4227de3c 100644 --- a/Source/Modulos/Formas de pago/Data/FormasPago_data.dproj +++ b/Source/Modulos/Formas de pago/Data/FormasPago_data.dproj @@ -48,18 +48,16 @@ MainSource - - - - - - - - - - - - + + + + + + + + + +
DataModuleFormasPago
 @@ -547,4 +545,4 @@ mtException_AntiFreeze0="The application seems to be frozen." Count mtInvalidEmailMsg=1 mtInvalidEmailMsg0="Invalid email." TextsCollection=English -EurekaLog Last Line --> +EurekaLog Last Line --> \ No newline at end of file diff --git a/Source/Modulos/Formas de pago/Data/FormasPago_data.res b/Source/Modulos/Formas de pago/Data/FormasPago_data.res index 8b251f31..1641339f 100644 Binary files a/Source/Modulos/Formas de pago/Data/FormasPago_data.res and b/Source/Modulos/Formas de pago/Data/FormasPago_data.res differ diff --git a/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.dfm b/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.dfm index 95c56583..afe340f7 100644 --- a/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.dfm +++ b/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.dfm @@ -89,6 +89,7 @@ inherited DataModuleFormasPago: TDataModuleFormasPago DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'FormasPago' + IndexDefs = <> Left = 208 Top = 104 end @@ -141,6 +142,7 @@ inherited DataModuleFormasPago: TDataModuleFormasPago DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'FormasPagoPlazos' + IndexDefs = <> Left = 344 Top = 104 end diff --git a/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.pas b/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.pas index f44bf9d8..0e204e6f 100644 --- a/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.pas +++ b/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.pas @@ -9,8 +9,7 @@ uses uDADesigntimeCall, uControllerBase, uBizFormasPago, uBizFormasPagoPlazos, uDARemoteDataAdapter, uDADataStreamer, uDAInterfaces, uRODynamicRequest, - uDABin2DataStreamer, uDAMemDataTable, uDataModuleB, - uIDataModuleFormasPago, uDataModuleBase; + uDABin2DataStreamer, uDAMemDataTable, uIDataModuleFormasPago, uDataModuleBase; type TDataModuleFormasPago = class(TDataModuleBase, IDataModuleFormasPago) RORemoteService: TRORemoteService; diff --git a/Source/Modulos/Formas de pago/FormasPago_Group.groupproj b/Source/Modulos/Formas de pago/FormasPago_Group.groupproj index b9e97bcd..07ae0463 100644 --- a/Source/Modulos/Formas de pago/FormasPago_Group.groupproj +++ b/Source/Modulos/Formas de pago/FormasPago_Group.groupproj @@ -6,6 +6,7 @@ + @@ -17,7 +18,7 @@ Default.Personality - + @@ -91,14 +92,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Formas de pago/Model/FormasPago_model.identcache b/Source/Modulos/Formas de pago/Model/FormasPago_model.identcache index 0bfe92fc..fa665af9 100644 Binary files a/Source/Modulos/Formas de pago/Model/FormasPago_model.identcache and b/Source/Modulos/Formas de pago/Model/FormasPago_model.identcache differ diff --git a/Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.dfm b/Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.dfm index 2a3ab589..8448c150 100644 --- a/Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.dfm +++ b/Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.dfm @@ -1,7 +1,6 @@ object srvFormasPago: TsrvFormasPago OldCreateOrder = True OnCreate = DARemoteServiceCreate - RequiresSession = True SessionManager = dmServer.SessionManager ServiceSchema = schFormasPago ServiceDataStreamer = Bin2DataStreamer @@ -14,8 +13,9 @@ object srvFormasPago: TsrvFormasPago Top = 90 DiagramData = ''#13#10' '#13#10' '#13#10' '#13#10''#13#10 + 'idth="400" Height="300">'#13#10' '#13#10' '#13#10' '#13#10''#13#10 end object DataDictionary: TDADataDictionary Fields = < diff --git a/Source/Modulos/Formas de pago/Views/FormasPago_view.identcache b/Source/Modulos/Formas de pago/Views/FormasPago_view.identcache index bb51be02..bb32a94c 100644 Binary files a/Source/Modulos/Formas de pago/Views/FormasPago_view.identcache and b/Source/Modulos/Formas de pago/Views/FormasPago_view.identcache differ diff --git a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj index d3134877..1d5c38ba 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj +++ b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj @@ -49,11 +49,11 @@ MainSource - - - - - + + + + + diff --git a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc index fdb2888a..ecc3ec37 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc +++ b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc @@ -12,5 +12,5 @@ STRINGTABLE BEGIN END -/* C:\Codigo tecsitel\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */ -/* C:\Codigo tecsitel\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.drf */ +/* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC1.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.res b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.res and b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.res differ diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu index e844aaf2..05cf20f3 100644 Binary files a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu and b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu differ diff --git a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj index 5b2a3ed0..3d3ace9d 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj +++ b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj @@ -49,7 +49,7 @@ MainSource - +
DataModulePresupuestosCliente
 diff --git a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc index 1173046a..7ace33b1 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc +++ b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc @@ -12,6 +12,6 @@ STRINGTABLE BEGIN END -/* C:\Codigo tecsitel\Source\Modulos\Presupuestos de cliente\Data\uDataModulePresupuestosCliente.DFM */ -/* C:\Codigo tecsitel\Source\Modulos\Presupuestos de cliente\Data\PresupuestosCliente_data.res */ -/* C:\Codigo tecsitel\Source\Modulos\Presupuestos de cliente\Data\PresupuestosCliente_data.drf */ +/* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\uDataModulePresupuestosCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\PresupuestosCliente_data.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBF.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.res b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.res and b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.res differ diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dpk b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dpk index 12f15fe3..52646c25 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dpk +++ b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dpk @@ -29,9 +29,7 @@ requires Contactos_model, rtl, dbrtl, - RemObjects_Core_D10, vcl, - DataAbstract_Core_D10, vcldb, dsnap, adortl; diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj index 430bb3b4..a2ea336e 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj +++ b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj @@ -52,22 +52,22 @@ MainSource - - - - + + + + + + + + + + - - - - - - +EurekaLog Last Line --> \ No newline at end of file diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc index 7d8c79d5..a22012b3 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc +++ b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc @@ -12,5 +12,5 @@ STRINGTABLE BEGIN END -/* C:\Codigo tecsitel\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.res */ -/* C:\Codigo tecsitel\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.drf */ +/* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBD.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.res b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.res and b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.res differ diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas new file mode 100644 index 00000000..3e2dac46 --- /dev/null +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas @@ -0,0 +1,1675 @@ +unit schPresupuestosClienteClient_Intf; + +interface + +uses + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + +const + { Data table rules ids + Feel free to change them to something more human readable + but make sure they are unique in the context of your application } + RID_DarReferencia = '{D8FAD5A5-0BBD-4F80-97E4-75CE6FA87398}'; + RID_PresupuestosCliente = '{23124D18-F2C0-4FBB-8B89-A8B33B1E7AC3}'; + RID_PresupuestosCliente_Detalles = '{332DC169-B61B-4AB1-A1C4-BAE869B39919}'; + + { Data table names } + nme_DarReferencia = 'DarReferencia'; + nme_PresupuestosCliente = 'PresupuestosCliente'; + nme_PresupuestosCliente_Detalles = 'PresupuestosCliente_Detalles'; + + { DarReferencia fields } + fld_DarReferenciaVALOR = 'VALOR'; + + { DarReferencia field indexes } + idx_DarReferenciaVALOR = 0; + + { PresupuestosCliente fields } + fld_PresupuestosClienteID = 'ID'; + fld_PresupuestosClienteID_EMPRESA = 'ID_EMPRESA'; + fld_PresupuestosClienteFECHA_PRESUPUESTO = 'FECHA_PRESUPUESTO'; + fld_PresupuestosClienteFECHA_DECISION = 'FECHA_DECISION'; + fld_PresupuestosClienteREFERENCIA = 'REFERENCIA'; + fld_PresupuestosClienteSITUACION = 'SITUACION'; + fld_PresupuestosClienteID_CLIENTE = 'ID_CLIENTE'; + fld_PresupuestosClienteNIF_CIF = 'NIF_CIF'; + fld_PresupuestosClienteNOMBRE = 'NOMBRE'; + fld_PresupuestosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; + fld_PresupuestosClienteCLIENTE_FINAL = 'CLIENTE_FINAL'; + fld_PresupuestosClientePORTADA = 'PORTADA'; + fld_PresupuestosClienteMEMORIA = 'MEMORIA'; + fld_PresupuestosClienteOBSERVACIONES = 'OBSERVACIONES'; + fld_PresupuestosClienteINCIDENCIAS = 'INCIDENCIAS'; + fld_PresupuestosClienteINCIDENCIAS_ACTIVAS = 'INCIDENCIAS_ACTIVAS'; + fld_PresupuestosClienteFECHA_ALTA = 'FECHA_ALTA'; + fld_PresupuestosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION'; + fld_PresupuestosClienteUSUARIO = 'USUARIO'; + fld_PresupuestosClienteIMPORTE_NETO = 'IMPORTE_NETO'; + fld_PresupuestosClienteIMPORTE_PORTE = 'IMPORTE_PORTE'; + fld_PresupuestosClienteDESCUENTO = 'DESCUENTO'; + fld_PresupuestosClienteIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO'; + fld_PresupuestosClienteBASE_IMPONIBLE = 'BASE_IMPONIBLE'; + fld_PresupuestosClienteIVA = 'IVA'; + fld_PresupuestosClienteIMPORTE_IVA = 'IMPORTE_IVA'; + fld_PresupuestosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_PresupuestosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO'; + + { PresupuestosCliente field indexes } + idx_PresupuestosClienteID = 0; + idx_PresupuestosClienteID_EMPRESA = 1; + idx_PresupuestosClienteFECHA_PRESUPUESTO = 2; + idx_PresupuestosClienteFECHA_DECISION = 3; + idx_PresupuestosClienteREFERENCIA = 4; + idx_PresupuestosClienteSITUACION = 5; + idx_PresupuestosClienteID_CLIENTE = 6; + idx_PresupuestosClienteNIF_CIF = 7; + idx_PresupuestosClienteNOMBRE = 8; + idx_PresupuestosClienteREFERENCIA_CLIENTE = 9; + idx_PresupuestosClienteCLIENTE_FINAL = 10; + idx_PresupuestosClientePORTADA = 11; + idx_PresupuestosClienteMEMORIA = 12; + idx_PresupuestosClienteOBSERVACIONES = 13; + idx_PresupuestosClienteINCIDENCIAS = 14; + idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 15; + idx_PresupuestosClienteFECHA_ALTA = 16; + idx_PresupuestosClienteFECHA_MODIFICACION = 17; + idx_PresupuestosClienteUSUARIO = 18; + idx_PresupuestosClienteIMPORTE_NETO = 19; + idx_PresupuestosClienteIMPORTE_PORTE = 20; + idx_PresupuestosClienteDESCUENTO = 21; + idx_PresupuestosClienteIMPORTE_DESCUENTO = 22; + idx_PresupuestosClienteBASE_IMPONIBLE = 23; + idx_PresupuestosClienteIVA = 24; + idx_PresupuestosClienteIMPORTE_IVA = 25; + idx_PresupuestosClienteIMPORTE_TOTAL = 26; + idx_PresupuestosClienteID_FORMA_PAGO = 27; + + { PresupuestosCliente_Detalles fields } + fld_PresupuestosCliente_DetallesID = 'ID'; + fld_PresupuestosCliente_DetallesID_PRESUPUESTO = 'ID_PRESUPUESTO'; + fld_PresupuestosCliente_DetallesPOSICION = 'POSICION'; + fld_PresupuestosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE'; + fld_PresupuestosCliente_DetallesID_ARTICULO = 'ID_ARTICULO'; + fld_PresupuestosCliente_DetallesCONCEPTO = 'CONCEPTO'; + fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD'; + fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; + fld_PresupuestosCliente_DetallesDESCUENTO = 'DESCUENTO'; + fld_PresupuestosCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; + fld_PresupuestosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_PresupuestosCliente_DetallesVISIBLE = 'VISIBLE'; + fld_PresupuestosCliente_DetallesFECHA_ALTA = 'FECHA_ALTA'; + fld_PresupuestosCliente_DetallesFECHA_MODIFICACION = 'FECHA_MODIFICACION'; + + { PresupuestosCliente_Detalles field indexes } + idx_PresupuestosCliente_DetallesID = 0; + idx_PresupuestosCliente_DetallesID_PRESUPUESTO = 1; + idx_PresupuestosCliente_DetallesPOSICION = 2; + idx_PresupuestosCliente_DetallesTIPO_DETALLE = 3; + idx_PresupuestosCliente_DetallesID_ARTICULO = 4; + idx_PresupuestosCliente_DetallesCONCEPTO = 5; + idx_PresupuestosCliente_DetallesCANTIDAD = 6; + idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7; + idx_PresupuestosCliente_DetallesDESCUENTO = 8; + idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 9; + idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 10; + idx_PresupuestosCliente_DetallesVISIBLE = 11; + idx_PresupuestosCliente_DetallesFECHA_ALTA = 12; + idx_PresupuestosCliente_DetallesFECHA_MODIFICACION = 13; + +type + { IDarReferencia } + IDarReferencia = interface(IDAStronglyTypedDataTable) + ['{2BC8372B-CA4E-4389-B638-EEDE7C0A37A7}'] + { Property getters and setters } + function GetVALORValue: String; + procedure SetVALORValue(const aValue: String); + function GetVALORIsNull: Boolean; + procedure SetVALORIsNull(const aValue: Boolean); + + + { Properties } + property VALOR: String read GetVALORValue write SetVALORValue; + property VALORIsNull: Boolean read GetVALORIsNull write SetVALORIsNull; + end; + + { TDarReferenciaDataTableRules } + TDarReferenciaDataTableRules = class(TIntfObjectDADataTableRules, IDarReferencia) + private + protected + { Property getters and setters } + function GetVALORValue: String; virtual; + procedure SetVALORValue(const aValue: String); virtual; + function GetVALORIsNull: Boolean; virtual; + procedure SetVALORIsNull(const aValue: Boolean); virtual; + + { Properties } + property VALOR: String read GetVALORValue write SetVALORValue; + property VALORIsNull: Boolean read GetVALORIsNull write SetVALORIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + + { IPresupuestosCliente } + IPresupuestosCliente = interface(IDAStronglyTypedDataTable) + ['{7197D0DC-E8EA-47EE-A127-A8B3A41F4676}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetID_EMPRESAValue: Integer; + procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); + function GetFECHA_PRESUPUESTOValue: DateTime; + procedure SetFECHA_PRESUPUESTOValue(const aValue: DateTime); + function GetFECHA_PRESUPUESTOIsNull: Boolean; + procedure SetFECHA_PRESUPUESTOIsNull(const aValue: Boolean); + function GetFECHA_DECISIONValue: DateTime; + procedure SetFECHA_DECISIONValue(const aValue: DateTime); + function GetFECHA_DECISIONIsNull: Boolean; + procedure SetFECHA_DECISIONIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetSITUACIONValue: String; + procedure SetSITUACIONValue(const aValue: String); + function GetSITUACIONIsNull: Boolean; + procedure SetSITUACIONIsNull(const aValue: Boolean); + function GetID_CLIENTEValue: Integer; + procedure SetID_CLIENTEValue(const aValue: Integer); + function GetID_CLIENTEIsNull: Boolean; + procedure SetID_CLIENTEIsNull(const aValue: Boolean); + function GetNIF_CIFValue: String; + procedure SetNIF_CIFValue(const aValue: String); + function GetNIF_CIFIsNull: Boolean; + procedure SetNIF_CIFIsNull(const aValue: Boolean); + function GetNOMBREValue: String; + procedure SetNOMBREValue(const aValue: String); + function GetNOMBREIsNull: Boolean; + procedure SetNOMBREIsNull(const aValue: Boolean); + function GetREFERENCIA_CLIENTEValue: String; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); + function GetREFERENCIA_CLIENTEIsNull: Boolean; + procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); + function GetCLIENTE_FINALValue: String; + procedure SetCLIENTE_FINALValue(const aValue: String); + function GetCLIENTE_FINALIsNull: Boolean; + procedure SetCLIENTE_FINALIsNull(const aValue: Boolean); + function GetPORTADAValue: IROStrings; + function GetPORTADAIsNull: Boolean; + procedure SetPORTADAIsNull(const aValue: Boolean); + function GetMEMORIAValue: IROStrings; + function GetMEMORIAIsNull: Boolean; + procedure SetMEMORIAIsNull(const aValue: Boolean); + function GetOBSERVACIONESValue: IROStrings; + function GetOBSERVACIONESIsNull: Boolean; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); + function GetINCIDENCIASValue: IROStrings; + function GetINCIDENCIASIsNull: Boolean; + procedure SetINCIDENCIASIsNull(const aValue: Boolean); + function GetINCIDENCIAS_ACTIVASValue: Integer; + procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); + function GetINCIDENCIAS_ACTIVASIsNull: Boolean; + procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); + function GetFECHA_ALTAValue: DateTime; + procedure SetFECHA_ALTAValue(const aValue: DateTime); + function GetFECHA_ALTAIsNull: Boolean; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); + function GetFECHA_MODIFICACIONValue: DateTime; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); + function GetFECHA_MODIFICACIONIsNull: Boolean; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); + function GetUSUARIOValue: String; + procedure SetUSUARIOValue(const aValue: String); + function GetUSUARIOIsNull: Boolean; + procedure SetUSUARIOIsNull(const aValue: Boolean); + function GetIMPORTE_NETOValue: Currency; + procedure SetIMPORTE_NETOValue(const aValue: Currency); + function GetIMPORTE_NETOIsNull: Boolean; + procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); + function GetIMPORTE_PORTEValue: Currency; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); + function GetIMPORTE_PORTEIsNull: Boolean; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); + function GetDESCUENTOValue: Float; + procedure SetDESCUENTOValue(const aValue: Float); + function GetDESCUENTOIsNull: Boolean; + procedure SetDESCUENTOIsNull(const aValue: Boolean); + function GetIMPORTE_DESCUENTOValue: Currency; + procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); + function GetIMPORTE_DESCUENTOIsNull: Boolean; + procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); + function GetBASE_IMPONIBLEValue: Currency; + procedure SetBASE_IMPONIBLEValue(const aValue: Currency); + function GetBASE_IMPONIBLEIsNull: Boolean; + procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); + function GetIVAValue: Float; + procedure SetIVAValue(const aValue: Float); + function GetIVAIsNull: Boolean; + procedure SetIVAIsNull(const aValue: Boolean); + function GetIMPORTE_IVAValue: Currency; + procedure SetIMPORTE_IVAValue(const aValue: Currency); + function GetIMPORTE_IVAIsNull: Boolean; + procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); + function GetIMPORTE_TOTALValue: Currency; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); + function GetIMPORTE_TOTALIsNull: Boolean; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); + function GetID_FORMA_PAGOValue: Integer; + procedure SetID_FORMA_PAGOValue(const aValue: Integer); + function GetID_FORMA_PAGOIsNull: Boolean; + procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property FECHA_PRESUPUESTO: DateTime read GetFECHA_PRESUPUESTOValue write SetFECHA_PRESUPUESTOValue; + property FECHA_PRESUPUESTOIsNull: Boolean read GetFECHA_PRESUPUESTOIsNull write SetFECHA_PRESUPUESTOIsNull; + property FECHA_DECISION: DateTime read GetFECHA_DECISIONValue write SetFECHA_DECISIONValue; + property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + 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 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 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; + property CLIENTE_FINALIsNull: Boolean read GetCLIENTE_FINALIsNull write SetCLIENTE_FINALIsNull; + property PORTADA: IROStrings read GetPORTADAValue; + property PORTADAIsNull: Boolean read GetPORTADAIsNull write SetPORTADAIsNull; + property MEMORIA: IROStrings read GetMEMORIAValue; + property MEMORIAIsNull: Boolean read GetMEMORIAIsNull write SetMEMORIAIsNull; + property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue; + property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property INCIDENCIAS: IROStrings read GetINCIDENCIASValue; + property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; + property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; + property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; + property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; + property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; + property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; + property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; + property IVA: Float read GetIVAValue write SetIVAValue; + property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; + property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; + property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; + property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; + end; + + { TPresupuestosClienteDataTableRules } + TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente) + private + f_PORTADA: IROStrings; + f_MEMORIA: IROStrings; + f_OBSERVACIONES: IROStrings; + f_INCIDENCIAS: IROStrings; + procedure PORTADA_OnChange(Sender: TObject); + procedure MEMORIA_OnChange(Sender: TObject); + procedure OBSERVACIONES_OnChange(Sender: TObject); + procedure INCIDENCIAS_OnChange(Sender: TObject); + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetFECHA_PRESUPUESTOValue: DateTime; virtual; + procedure SetFECHA_PRESUPUESTOValue(const aValue: DateTime); virtual; + function GetFECHA_PRESUPUESTOIsNull: Boolean; virtual; + procedure SetFECHA_PRESUPUESTOIsNull(const aValue: Boolean); virtual; + function GetFECHA_DECISIONValue: DateTime; virtual; + procedure SetFECHA_DECISIONValue(const aValue: DateTime); virtual; + function GetFECHA_DECISIONIsNull: Boolean; virtual; + procedure SetFECHA_DECISIONIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetSITUACIONValue: String; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + function GetSITUACIONIsNull: Boolean; virtual; + procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + function GetID_CLIENTEValue: Integer; virtual; + procedure SetID_CLIENTEValue(const aValue: Integer); virtual; + function GetID_CLIENTEIsNull: Boolean; virtual; + procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetNIF_CIFValue: String; virtual; + procedure SetNIF_CIFValue(const aValue: String); virtual; + function GetNIF_CIFIsNull: Boolean; virtual; + procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; + function GetNOMBREValue: String; virtual; + procedure SetNOMBREValue(const aValue: String); virtual; + function GetNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_CLIENTEValue: String; virtual; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; + function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual; + procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetCLIENTE_FINALValue: String; virtual; + procedure SetCLIENTE_FINALValue(const aValue: String); virtual; + function GetCLIENTE_FINALIsNull: Boolean; virtual; + procedure SetCLIENTE_FINALIsNull(const aValue: Boolean); virtual; + function GetPORTADAValue: IROStrings; virtual; + function GetPORTADAIsNull: Boolean; virtual; + procedure SetPORTADAIsNull(const aValue: Boolean); virtual; + function GetMEMORIAValue: IROStrings; virtual; + function GetMEMORIAIsNull: Boolean; virtual; + procedure SetMEMORIAIsNull(const aValue: Boolean); virtual; + function GetOBSERVACIONESValue: IROStrings; virtual; + function GetOBSERVACIONESIsNull: Boolean; virtual; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; + function GetINCIDENCIASValue: IROStrings; virtual; + function GetINCIDENCIASIsNull: Boolean; virtual; + procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual; + function GetINCIDENCIAS_ACTIVASValue: Integer; virtual; + procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual; + function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; + procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + function GetUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_NETOValue: Currency; virtual; + procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; + function GetIMPORTE_NETOIsNull: Boolean; virtual; + procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; + function GetIMPORTE_PORTEIsNull: Boolean; virtual; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; + function GetDESCUENTOValue: Float; virtual; + procedure SetDESCUENTOValue(const aValue: Float); virtual; + function GetDESCUENTOIsNull: Boolean; virtual; + procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_DESCUENTOValue: Currency; virtual; + procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; + function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual; + procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual; + function GetBASE_IMPONIBLEValue: Currency; virtual; + procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; + function GetBASE_IMPONIBLEIsNull: Boolean; virtual; + procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; + function GetIVAValue: Float; virtual; + procedure SetIVAValue(const aValue: Float); virtual; + function GetIVAIsNull: Boolean; virtual; + procedure SetIVAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_IVAValue: Currency; virtual; + procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; + function GetIMPORTE_IVAIsNull: Boolean; virtual; + procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetID_FORMA_PAGOValue: Integer; virtual; + procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; + function GetID_FORMA_PAGOIsNull: Boolean; virtual; + procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property FECHA_PRESUPUESTO: DateTime read GetFECHA_PRESUPUESTOValue write SetFECHA_PRESUPUESTOValue; + property FECHA_PRESUPUESTOIsNull: Boolean read GetFECHA_PRESUPUESTOIsNull write SetFECHA_PRESUPUESTOIsNull; + property FECHA_DECISION: DateTime read GetFECHA_DECISIONValue write SetFECHA_DECISIONValue; + property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + 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 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 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; + property CLIENTE_FINALIsNull: Boolean read GetCLIENTE_FINALIsNull write SetCLIENTE_FINALIsNull; + property PORTADA: IROStrings read GetPORTADAValue; + property PORTADAIsNull: Boolean read GetPORTADAIsNull write SetPORTADAIsNull; + property MEMORIA: IROStrings read GetMEMORIAValue; + property MEMORIAIsNull: Boolean read GetMEMORIAIsNull write SetMEMORIAIsNull; + property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue; + property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property INCIDENCIAS: IROStrings read GetINCIDENCIASValue; + property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; + property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; + property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; + property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; + property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; + property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; + property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; + property IVA: Float read GetIVAValue write SetIVAValue; + property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; + property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; + property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; + property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + + { IPresupuestosCliente_Detalles } + IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) + ['{3BCC0A03-B340-4A3E-BC4F-450F414F7D84}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetID_PRESUPUESTOValue: Integer; + procedure SetID_PRESUPUESTOValue(const aValue: Integer); + function GetID_PRESUPUESTOIsNull: Boolean; + procedure SetID_PRESUPUESTOIsNull(const aValue: Boolean); + function GetPOSICIONValue: Integer; + procedure SetPOSICIONValue(const aValue: Integer); + function GetPOSICIONIsNull: Boolean; + procedure SetPOSICIONIsNull(const aValue: Boolean); + function GetTIPO_DETALLEValue: String; + procedure SetTIPO_DETALLEValue(const aValue: String); + function GetTIPO_DETALLEIsNull: Boolean; + procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); + function GetID_ARTICULOValue: Integer; + procedure SetID_ARTICULOValue(const aValue: Integer); + function GetID_ARTICULOIsNull: Boolean; + procedure SetID_ARTICULOIsNull(const aValue: Boolean); + function GetCONCEPTOValue: String; + procedure SetCONCEPTOValue(const aValue: String); + function GetCONCEPTOIsNull: Boolean; + procedure SetCONCEPTOIsNull(const aValue: Boolean); + function GetCANTIDADValue: Integer; + procedure SetCANTIDADValue(const aValue: Integer); + function GetCANTIDADIsNull: Boolean; + procedure SetCANTIDADIsNull(const aValue: Boolean); + function GetIMPORTE_UNIDADValue: Currency; + procedure SetIMPORTE_UNIDADValue(const aValue: Currency); + function GetIMPORTE_UNIDADIsNull: Boolean; + procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); + function GetDESCUENTOValue: Float; + procedure SetDESCUENTOValue(const aValue: Float); + function GetDESCUENTOIsNull: Boolean; + procedure SetDESCUENTOIsNull(const aValue: Boolean); + function GetIMPORTE_PORTEValue: Currency; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); + function GetIMPORTE_PORTEIsNull: Boolean; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); + function GetIMPORTE_TOTALValue: Currency; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); + function GetIMPORTE_TOTALIsNull: Boolean; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); + function GetVISIBLEValue: Integer; + procedure SetVISIBLEValue(const aValue: Integer); + function GetVISIBLEIsNull: Boolean; + procedure SetVISIBLEIsNull(const aValue: Boolean); + function GetFECHA_ALTAValue: DateTime; + procedure SetFECHA_ALTAValue(const aValue: DateTime); + function GetFECHA_ALTAIsNull: Boolean; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); + function GetFECHA_MODIFICACIONValue: DateTime; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); + function GetFECHA_MODIFICACIONIsNull: Boolean; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_PRESUPUESTO: Integer read GetID_PRESUPUESTOValue write SetID_PRESUPUESTOValue; + property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull; + property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; + property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; + property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; + property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; + property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; + property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; + property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; + property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; + property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; + property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; + property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + end; + + { TPresupuestosCliente_DetallesDataTableRules } + TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_PRESUPUESTOValue: Integer; virtual; + procedure SetID_PRESUPUESTOValue(const aValue: Integer); virtual; + function GetID_PRESUPUESTOIsNull: Boolean; virtual; + procedure SetID_PRESUPUESTOIsNull(const aValue: Boolean); virtual; + function GetPOSICIONValue: Integer; virtual; + procedure SetPOSICIONValue(const aValue: Integer); virtual; + function GetPOSICIONIsNull: Boolean; virtual; + procedure SetPOSICIONIsNull(const aValue: Boolean); virtual; + function GetTIPO_DETALLEValue: String; virtual; + procedure SetTIPO_DETALLEValue(const aValue: String); virtual; + function GetTIPO_DETALLEIsNull: Boolean; virtual; + procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; + function GetID_ARTICULOValue: Integer; virtual; + procedure SetID_ARTICULOValue(const aValue: Integer); virtual; + function GetID_ARTICULOIsNull: Boolean; virtual; + procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; + function GetCONCEPTOValue: String; virtual; + procedure SetCONCEPTOValue(const aValue: String); virtual; + function GetCONCEPTOIsNull: Boolean; virtual; + procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; + function GetCANTIDADValue: Integer; virtual; + procedure SetCANTIDADValue(const aValue: Integer); virtual; + function GetCANTIDADIsNull: Boolean; virtual; + procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_UNIDADValue: Currency; virtual; + procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual; + function GetIMPORTE_UNIDADIsNull: Boolean; virtual; + procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual; + function GetDESCUENTOValue: Float; virtual; + procedure SetDESCUENTOValue(const aValue: Float); virtual; + function GetDESCUENTOIsNull: Boolean; virtual; + procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; + function GetIMPORTE_PORTEIsNull: Boolean; virtual; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetVISIBLEValue: Integer; virtual; + procedure SetVISIBLEValue(const aValue: Integer); virtual; + function GetVISIBLEIsNull: Boolean; virtual; + procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_PRESUPUESTO: Integer read GetID_PRESUPUESTOValue write SetID_PRESUPUESTOValue; + property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull; + property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; + property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; + property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; + property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; + property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; + property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; + property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; + property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; + property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; + property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; + property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + +implementation + +uses Variants, uROBinaryHelpers; + +{ TDarReferenciaDataTableRules } +constructor TDarReferenciaDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TDarReferenciaDataTableRules.Destroy; +begin + inherited; +end; + +function TDarReferenciaDataTableRules.GetVALORValue: String; +begin + result := DataTable.Fields[idx_DarReferenciaVALOR].AsString; +end; + +procedure TDarReferenciaDataTableRules.SetVALORValue(const aValue: String); +begin + DataTable.Fields[idx_DarReferenciaVALOR].AsString := aValue; +end; + +function TDarReferenciaDataTableRules.GetVALORIsNull: boolean; +begin + result := DataTable.Fields[idx_DarReferenciaVALOR].IsNull; +end; + +procedure TDarReferenciaDataTableRules.SetVALORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DarReferenciaVALOR].AsVariant := Null; +end; + + +{ TPresupuestosClienteDataTableRules } +constructor TPresupuestosClienteDataTableRules.Create(aDataTable: TDADataTable); +var + StrList: TStringList; +begin + inherited; + + StrList := TStringList.Create; + StrList.OnChange := PORTADA_OnChange; + f_PORTADA := NewROStrings(StrList,True); + + StrList := TStringList.Create; + StrList.OnChange := MEMORIA_OnChange; + f_MEMORIA := NewROStrings(StrList,True); + + StrList := TStringList.Create; + StrList.OnChange := OBSERVACIONES_OnChange; + f_OBSERVACIONES := NewROStrings(StrList,True); + + StrList := TStringList.Create; + StrList.OnChange := INCIDENCIAS_OnChange; + f_INCIDENCIAS := NewROStrings(StrList,True); +end; + +destructor TPresupuestosClienteDataTableRules.Destroy; +begin + inherited; +end; + +procedure TPresupuestosClienteDataTableRules.PORTADA_OnChange(Sender: TObject); +begin + if DataTable.Editing then DataTable.Fields[idx_PresupuestosClientePORTADA].AsVariant := TStringList(Sender).Text; +end; + +procedure TPresupuestosClienteDataTableRules.MEMORIA_OnChange(Sender: TObject); +begin + if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteMEMORIA].AsVariant := TStringList(Sender).Text; +end; + +procedure TPresupuestosClienteDataTableRules.OBSERVACIONES_OnChange(Sender: TObject); +begin + if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteOBSERVACIONES].AsVariant := TStringList(Sender).Text; +end; + +procedure TPresupuestosClienteDataTableRules.INCIDENCIAS_OnChange(Sender: TObject); +begin + if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text; +end; + +function TPresupuestosClienteDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_PresupuestosClienteID].AsInteger; +end; + +procedure TPresupuestosClienteDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_PresupuestosClienteID].AsInteger := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteID].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteID].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetID_EMPRESAValue: Integer; +begin + result := DataTable.Fields[idx_PresupuestosClienteID_EMPRESA].AsInteger; +end; + +procedure TPresupuestosClienteDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_PresupuestosClienteID_EMPRESA].AsInteger := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetID_EMPRESAIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteID_EMPRESA].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteID_EMPRESA].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetFECHA_PRESUPUESTOValue: DateTime; +begin + result := DataTable.Fields[idx_PresupuestosClienteFECHA_PRESUPUESTO].AsDateTime; +end; + +procedure TPresupuestosClienteDataTableRules.SetFECHA_PRESUPUESTOValue(const aValue: DateTime); +begin + DataTable.Fields[idx_PresupuestosClienteFECHA_PRESUPUESTO].AsDateTime := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetFECHA_PRESUPUESTOIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteFECHA_PRESUPUESTO].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetFECHA_PRESUPUESTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteFECHA_PRESUPUESTO].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetFECHA_DECISIONValue: DateTime; +begin + result := DataTable.Fields[idx_PresupuestosClienteFECHA_DECISION].AsDateTime; +end; + +procedure TPresupuestosClienteDataTableRules.SetFECHA_DECISIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_PresupuestosClienteFECHA_DECISION].AsDateTime := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetFECHA_DECISIONIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteFECHA_DECISION].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetFECHA_DECISIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteFECHA_DECISION].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA].AsString; +end; + +procedure TPresupuestosClienteDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_PresupuestosClienteREFERENCIA].AsString := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteREFERENCIA].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetSITUACIONValue: String; +begin + result := DataTable.Fields[idx_PresupuestosClienteSITUACION].AsString; +end; + +procedure TPresupuestosClienteDataTableRules.SetSITUACIONValue(const aValue: String); +begin + DataTable.Fields[idx_PresupuestosClienteSITUACION].AsString := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetSITUACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteSITUACION].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetSITUACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteSITUACION].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetID_CLIENTEValue: Integer; +begin + result := DataTable.Fields[idx_PresupuestosClienteID_CLIENTE].AsInteger; +end; + +procedure TPresupuestosClienteDataTableRules.SetID_CLIENTEValue(const aValue: Integer); +begin + DataTable.Fields[idx_PresupuestosClienteID_CLIENTE].AsInteger := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetID_CLIENTEIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteID_CLIENTE].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteID_CLIENTE].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetNIF_CIFValue: String; +begin + result := DataTable.Fields[idx_PresupuestosClienteNIF_CIF].AsString; +end; + +procedure TPresupuestosClienteDataTableRules.SetNIF_CIFValue(const aValue: String); +begin + DataTable.Fields[idx_PresupuestosClienteNIF_CIF].AsString := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetNIF_CIFIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteNIF_CIF].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteNIF_CIF].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetNOMBREValue: String; +begin + result := DataTable.Fields[idx_PresupuestosClienteNOMBRE].AsString; +end; + +procedure TPresupuestosClienteDataTableRules.SetNOMBREValue(const aValue: String); +begin + DataTable.Fields[idx_PresupuestosClienteNOMBRE].AsString := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetNOMBREIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteNOMBRE].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteNOMBRE].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsString; +end; + +procedure TPresupuestosClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsString := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetCLIENTE_FINALValue: String; +begin + result := DataTable.Fields[idx_PresupuestosClienteCLIENTE_FINAL].AsString; +end; + +procedure TPresupuestosClienteDataTableRules.SetCLIENTE_FINALValue(const aValue: String); +begin + DataTable.Fields[idx_PresupuestosClienteCLIENTE_FINAL].AsString := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetCLIENTE_FINALIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteCLIENTE_FINAL].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetCLIENTE_FINALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteCLIENTE_FINAL].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetPORTADAValue: IROStrings; +begin + result := f_PORTADA; + result.Text := DataTable.Fields[idx_PresupuestosClientePORTADA].AsString; +end; + +function TPresupuestosClienteDataTableRules.GetPORTADAIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClientePORTADA].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetPORTADAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClientePORTADA].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetMEMORIAValue: IROStrings; +begin + result := f_MEMORIA; + result.Text := DataTable.Fields[idx_PresupuestosClienteMEMORIA].AsString; +end; + +function TPresupuestosClienteDataTableRules.GetMEMORIAIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteMEMORIA].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetMEMORIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteMEMORIA].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetOBSERVACIONESValue: IROStrings; +begin + result := f_OBSERVACIONES; + result.Text := DataTable.Fields[idx_PresupuestosClienteOBSERVACIONES].AsString; +end; + +function TPresupuestosClienteDataTableRules.GetOBSERVACIONESIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteOBSERVACIONES].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteOBSERVACIONES].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetINCIDENCIASValue: IROStrings; +begin + result := f_INCIDENCIAS; + result.Text := DataTable.Fields[idx_PresupuestosClienteINCIDENCIAS].AsString; +end; + +function TPresupuestosClienteDataTableRules.GetINCIDENCIASIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteINCIDENCIAS].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetINCIDENCIASIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteINCIDENCIAS].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetINCIDENCIAS_ACTIVASValue: Integer; +begin + result := DataTable.Fields[idx_PresupuestosClienteINCIDENCIAS_ACTIVAS].AsInteger; +end; + +procedure TPresupuestosClienteDataTableRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); +begin + DataTable.Fields[idx_PresupuestosClienteINCIDENCIAS_ACTIVAS].AsInteger := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetINCIDENCIAS_ACTIVASIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteINCIDENCIAS_ACTIVAS].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteINCIDENCIAS_ACTIVAS].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetFECHA_ALTAValue: DateTime; +begin + result := DataTable.Fields[idx_PresupuestosClienteFECHA_ALTA].AsDateTime; +end; + +procedure TPresupuestosClienteDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_PresupuestosClienteFECHA_ALTA].AsDateTime := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetFECHA_ALTAIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteFECHA_ALTA].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteFECHA_ALTA].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := DataTable.Fields[idx_PresupuestosClienteFECHA_MODIFICACION].AsDateTime; +end; + +procedure TPresupuestosClienteDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_PresupuestosClienteFECHA_MODIFICACION].AsDateTime := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteFECHA_MODIFICACION].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteFECHA_MODIFICACION].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetUSUARIOValue: String; +begin + result := DataTable.Fields[idx_PresupuestosClienteUSUARIO].AsString; +end; + +procedure TPresupuestosClienteDataTableRules.SetUSUARIOValue(const aValue: String); +begin + DataTable.Fields[idx_PresupuestosClienteUSUARIO].AsString := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetUSUARIOIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteUSUARIO].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteUSUARIO].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetIMPORTE_NETOValue: Currency; +begin + result := DataTable.Fields[idx_PresupuestosClienteIMPORTE_NETO].AsCurrency; +end; + +procedure TPresupuestosClienteDataTableRules.SetIMPORTE_NETOValue(const aValue: Currency); +begin + DataTable.Fields[idx_PresupuestosClienteIMPORTE_NETO].AsCurrency := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetIMPORTE_NETOIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteIMPORTE_NETO].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetIMPORTE_NETOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteIMPORTE_NETO].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetIMPORTE_PORTEValue: Currency; +begin + result := DataTable.Fields[idx_PresupuestosClienteIMPORTE_PORTE].AsCurrency; +end; + +procedure TPresupuestosClienteDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_PresupuestosClienteIMPORTE_PORTE].AsCurrency := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetIMPORTE_PORTEIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteIMPORTE_PORTE].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteIMPORTE_PORTE].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetDESCUENTOValue: Float; +begin + result := DataTable.Fields[idx_PresupuestosClienteDESCUENTO].AsFloat; +end; + +procedure TPresupuestosClienteDataTableRules.SetDESCUENTOValue(const aValue: Float); +begin + DataTable.Fields[idx_PresupuestosClienteDESCUENTO].AsFloat := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetDESCUENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteDESCUENTO].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteDESCUENTO].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetIMPORTE_DESCUENTOValue: Currency; +begin + result := DataTable.Fields[idx_PresupuestosClienteIMPORTE_DESCUENTO].AsCurrency; +end; + +procedure TPresupuestosClienteDataTableRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); +begin + DataTable.Fields[idx_PresupuestosClienteIMPORTE_DESCUENTO].AsCurrency := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetIMPORTE_DESCUENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteIMPORTE_DESCUENTO].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteIMPORTE_DESCUENTO].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetBASE_IMPONIBLEValue: Currency; +begin + result := DataTable.Fields[idx_PresupuestosClienteBASE_IMPONIBLE].AsCurrency; +end; + +procedure TPresupuestosClienteDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency); +begin + DataTable.Fields[idx_PresupuestosClienteBASE_IMPONIBLE].AsCurrency := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetBASE_IMPONIBLEIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteBASE_IMPONIBLE].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteBASE_IMPONIBLE].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetIVAValue: Float; +begin + result := DataTable.Fields[idx_PresupuestosClienteIVA].AsFloat; +end; + +procedure TPresupuestosClienteDataTableRules.SetIVAValue(const aValue: Float); +begin + DataTable.Fields[idx_PresupuestosClienteIVA].AsFloat := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetIVAIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteIVA].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetIVAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteIVA].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetIMPORTE_IVAValue: Currency; +begin + result := DataTable.Fields[idx_PresupuestosClienteIMPORTE_IVA].AsCurrency; +end; + +procedure TPresupuestosClienteDataTableRules.SetIMPORTE_IVAValue(const aValue: Currency); +begin + DataTable.Fields[idx_PresupuestosClienteIMPORTE_IVA].AsCurrency := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetIMPORTE_IVAIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteIMPORTE_IVA].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetIMPORTE_IVAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteIMPORTE_IVA].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetIMPORTE_TOTALValue: Currency; +begin + result := DataTable.Fields[idx_PresupuestosClienteIMPORTE_TOTAL].AsCurrency; +end; + +procedure TPresupuestosClienteDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + DataTable.Fields[idx_PresupuestosClienteIMPORTE_TOTAL].AsCurrency := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetIMPORTE_TOTALIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteIMPORTE_TOTAL].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteIMPORTE_TOTAL].AsVariant := Null; +end; + +function TPresupuestosClienteDataTableRules.GetID_FORMA_PAGOValue: Integer; +begin + result := DataTable.Fields[idx_PresupuestosClienteID_FORMA_PAGO].AsInteger; +end; + +procedure TPresupuestosClienteDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer); +begin + DataTable.Fields[idx_PresupuestosClienteID_FORMA_PAGO].AsInteger := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetID_FORMA_PAGOIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteID_FORMA_PAGO].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteID_FORMA_PAGO].AsVariant := Null; +end; + + +{ TPresupuestosCliente_DetallesDataTableRules } +constructor TPresupuestosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TPresupuestosCliente_DetallesDataTableRules.Destroy; +begin + inherited; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesID].AsInteger; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesID].AsInteger := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesID].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesID].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetID_PRESUPUESTOValue: Integer; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesID_PRESUPUESTO].AsInteger; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetID_PRESUPUESTOValue(const aValue: Integer); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesID_PRESUPUESTO].AsInteger := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetID_PRESUPUESTOIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesID_PRESUPUESTO].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetID_PRESUPUESTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesID_PRESUPUESTO].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetPOSICIONValue: Integer; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesPOSICION].AsInteger; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetPOSICIONValue(const aValue: Integer); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesPOSICION].AsInteger := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetPOSICIONIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesPOSICION].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetPOSICIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesPOSICION].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetTIPO_DETALLEValue: String; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesTIPO_DETALLE].AsString; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetTIPO_DETALLEValue(const aValue: String); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesTIPO_DETALLE].AsString := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetTIPO_DETALLEIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesTIPO_DETALLE].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetTIPO_DETALLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesTIPO_DETALLE].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsInteger; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetID_ARTICULOValue(const aValue: Integer); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsInteger := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetID_ARTICULOIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetCONCEPTOValue: String; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesCONCEPTO].AsString; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetCONCEPTOValue(const aValue: String); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesCONCEPTO].AsString := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetCONCEPTOIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesCONCEPTO].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesCONCEPTO].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetCANTIDADValue: Integer; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesCANTIDAD].AsInteger; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesCANTIDAD].AsInteger := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesCANTIDAD].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetCANTIDADIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesCANTIDAD].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_UNIDADValue: Currency; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD].AsCurrency; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetIMPORTE_UNIDADValue(const aValue: Currency); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD].AsCurrency := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_UNIDADIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetDESCUENTOValue: Float; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].AsFloat; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetDESCUENTOValue(const aValue: Float); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].AsFloat := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetDESCUENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_PORTEValue: Currency; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].AsCurrency; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].AsCurrency := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_PORTEIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_TOTALValue: Currency; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_TOTAL].AsCurrency; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_TOTAL].AsCurrency := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_TOTALIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_TOTAL].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_TOTAL].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetVISIBLEValue: Integer; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsInteger; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsInteger := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetVISIBLEIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetVISIBLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetFECHA_ALTAValue: DateTime; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_ALTA].AsDateTime; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_ALTA].AsDateTime := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetFECHA_ALTAIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_ALTA].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_ALTA].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_MODIFICACION].AsDateTime; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_MODIFICACION].AsDateTime := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_MODIFICACION].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_MODIFICACION].AsVariant := Null; +end; + + +initialization + RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules); + RegisterDataTableRules(RID_PresupuestosCliente, TPresupuestosClienteDataTableRules); + RegisterDataTableRules(RID_PresupuestosCliente_Detalles, TPresupuestosCliente_DetallesDataTableRules); + +end. diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas new file mode 100644 index 00000000..b37e5039 --- /dev/null +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas @@ -0,0 +1,2008 @@ +unit schPresupuestosClienteServer_Intf; + +interface + +uses + Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schPresupuestosClienteClient_Intf; + +const + { Delta rules ids + Feel free to change them to something more human readable + but make sure they are unique in the context of your application } + RID_DarReferenciaDelta = '{5BAA864C-15C2-4368-BC2D-0E670EA0C28F}'; + RID_PresupuestosClienteDelta = '{0F7F4684-E56F-40A8-9AB5-8612CCD38E74}'; + RID_PresupuestosCliente_DetallesDelta = '{ECFAC69A-18AF-4880-BDEE-29EF5A24A70C}'; + +type + { IDarReferenciaDelta } + IDarReferenciaDelta = interface(IDarReferencia) + ['{5BAA864C-15C2-4368-BC2D-0E670EA0C28F}'] + { Property getters and setters } + function GetOldVALORValue : String; + + { Properties } + property OldVALOR : String read GetOldVALORValue; + end; + + { TDarReferenciaBusinessProcessorRules } + TDarReferenciaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarReferencia, IDarReferenciaDelta) + private + protected + { Property getters and setters } + function GetVALORValue: String; virtual; + function GetVALORIsNull: Boolean; virtual; + function GetOldVALORValue: String; virtual; + function GetOldVALORIsNull: Boolean; virtual; + procedure SetVALORValue(const aValue: String); virtual; + procedure SetVALORIsNull(const aValue: Boolean); virtual; + + { Properties } + property VALOR : String read GetVALORValue write SetVALORValue; + property VALORIsNull : Boolean read GetVALORIsNull write SetVALORIsNull; + property OldVALOR : String read GetOldVALORValue; + property OldVALORIsNull : Boolean read GetOldVALORIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { IPresupuestosClienteDelta } + IPresupuestosClienteDelta = interface(IPresupuestosCliente) + ['{0F7F4684-E56F-40A8-9AB5-8612CCD38E74}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldID_EMPRESAValue : Integer; + function GetOldFECHA_PRESUPUESTOValue : DateTime; + function GetOldFECHA_DECISIONValue : DateTime; + function GetOldREFERENCIAValue : String; + function GetOldSITUACIONValue : String; + function GetOldID_CLIENTEValue : Integer; + function GetOldNIF_CIFValue : String; + function GetOldNOMBREValue : String; + function GetOldREFERENCIA_CLIENTEValue : String; + function GetOldCLIENTE_FINALValue : String; + function GetOldPORTADAValue : IROStrings; + function GetOldMEMORIAValue : IROStrings; + function GetOldOBSERVACIONESValue : IROStrings; + function GetOldINCIDENCIASValue : IROStrings; + function GetOldINCIDENCIAS_ACTIVASValue : Integer; + function GetOldFECHA_ALTAValue : DateTime; + function GetOldFECHA_MODIFICACIONValue : DateTime; + function GetOldUSUARIOValue : String; + function GetOldIMPORTE_NETOValue : Currency; + function GetOldIMPORTE_PORTEValue : Currency; + function GetOldDESCUENTOValue : Float; + function GetOldIMPORTE_DESCUENTOValue : Currency; + function GetOldBASE_IMPONIBLEValue : Currency; + function GetOldIVAValue : Float; + function GetOldIMPORTE_IVAValue : Currency; + function GetOldIMPORTE_TOTALValue : Currency; + function GetOldID_FORMA_PAGOValue : Integer; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldFECHA_PRESUPUESTO : DateTime read GetOldFECHA_PRESUPUESTOValue; + property OldFECHA_DECISION : DateTime read GetOldFECHA_DECISIONValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldSITUACION : String read GetOldSITUACIONValue; + property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; + property OldNIF_CIF : String read GetOldNIF_CIFValue; + property OldNOMBRE : String read GetOldNOMBREValue; + property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; + property OldCLIENTE_FINAL : String read GetOldCLIENTE_FINALValue; + property OldPORTADA : IROStrings read GetOldPORTADAValue; + property OldMEMORIA : IROStrings read GetOldMEMORIAValue; + property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; + property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue; + property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldUSUARIO : String read GetOldUSUARIOValue; + property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; + property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; + property OldDESCUENTO : Float read GetOldDESCUENTOValue; + property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; + property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; + property OldIVA : Float read GetOldIVAValue; + property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; + end; + + { TPresupuestosClienteBusinessProcessorRules } + TPresupuestosClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IPresupuestosCliente, IPresupuestosClienteDelta) + private + f_PORTADA: IROStrings; + f_MEMORIA: IROStrings; + f_OBSERVACIONES: IROStrings; + f_INCIDENCIAS: IROStrings; + procedure PORTADA_OnChange(Sender: TObject); + procedure MEMORIA_OnChange(Sender: TObject); + procedure OBSERVACIONES_OnChange(Sender: TObject); + procedure INCIDENCIAS_OnChange(Sender: TObject); + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + function GetOldID_EMPRESAValue: Integer; virtual; + function GetOldID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetFECHA_PRESUPUESTOValue: DateTime; virtual; + function GetFECHA_PRESUPUESTOIsNull: Boolean; virtual; + function GetOldFECHA_PRESUPUESTOValue: DateTime; virtual; + function GetOldFECHA_PRESUPUESTOIsNull: Boolean; virtual; + procedure SetFECHA_PRESUPUESTOValue(const aValue: DateTime); virtual; + procedure SetFECHA_PRESUPUESTOIsNull(const aValue: Boolean); virtual; + function GetFECHA_DECISIONValue: DateTime; virtual; + function GetFECHA_DECISIONIsNull: Boolean; virtual; + function GetOldFECHA_DECISIONValue: DateTime; virtual; + function GetOldFECHA_DECISIONIsNull: Boolean; virtual; + procedure SetFECHA_DECISIONValue(const aValue: DateTime); virtual; + procedure SetFECHA_DECISIONIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetSITUACIONValue: String; virtual; + function GetSITUACIONIsNull: Boolean; virtual; + function GetOldSITUACIONValue: String; virtual; + function GetOldSITUACIONIsNull: Boolean; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + function GetID_CLIENTEValue: Integer; virtual; + function GetID_CLIENTEIsNull: Boolean; virtual; + function GetOldID_CLIENTEValue: Integer; virtual; + function GetOldID_CLIENTEIsNull: Boolean; virtual; + procedure SetID_CLIENTEValue(const aValue: Integer); virtual; + procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetNIF_CIFValue: String; virtual; + function GetNIF_CIFIsNull: Boolean; virtual; + function GetOldNIF_CIFValue: String; virtual; + function GetOldNIF_CIFIsNull: Boolean; virtual; + procedure SetNIF_CIFValue(const aValue: String); virtual; + procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; + function GetNOMBREValue: String; virtual; + function GetNOMBREIsNull: Boolean; virtual; + function GetOldNOMBREValue: String; virtual; + function GetOldNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREValue(const aValue: String); virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_CLIENTEValue: String; virtual; + function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual; + function GetOldREFERENCIA_CLIENTEValue: String; virtual; + function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual; + procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; + procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetCLIENTE_FINALValue: String; virtual; + function GetCLIENTE_FINALIsNull: Boolean; virtual; + function GetOldCLIENTE_FINALValue: String; virtual; + function GetOldCLIENTE_FINALIsNull: Boolean; virtual; + procedure SetCLIENTE_FINALValue(const aValue: String); virtual; + procedure SetCLIENTE_FINALIsNull(const aValue: Boolean); virtual; + function GetPORTADAValue: IROStrings; virtual; + function GetPORTADAIsNull: Boolean; virtual; + function GetOldPORTADAValue: IROStrings; virtual; + function GetOldPORTADAIsNull: Boolean; virtual; + procedure SetPORTADAIsNull(const aValue: Boolean); virtual; + function GetMEMORIAValue: IROStrings; virtual; + function GetMEMORIAIsNull: Boolean; virtual; + function GetOldMEMORIAValue: IROStrings; virtual; + function GetOldMEMORIAIsNull: Boolean; virtual; + procedure SetMEMORIAIsNull(const aValue: Boolean); virtual; + function GetOBSERVACIONESValue: IROStrings; virtual; + function GetOBSERVACIONESIsNull: Boolean; virtual; + function GetOldOBSERVACIONESValue: IROStrings; virtual; + function GetOldOBSERVACIONESIsNull: Boolean; virtual; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; + function GetINCIDENCIASValue: IROStrings; virtual; + function GetINCIDENCIASIsNull: Boolean; virtual; + function GetOldINCIDENCIASValue: IROStrings; virtual; + function GetOldINCIDENCIASIsNull: Boolean; virtual; + procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual; + function GetINCIDENCIAS_ACTIVASValue: Integer; virtual; + function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; + function GetOldINCIDENCIAS_ACTIVASValue: Integer; virtual; + function GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; + procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual; + procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + function GetOldFECHA_ALTAValue: DateTime; virtual; + function GetOldFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; + function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + function GetUSUARIOIsNull: Boolean; virtual; + function GetOldUSUARIOValue: String; virtual; + function GetOldUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_NETOValue: Currency; virtual; + function GetIMPORTE_NETOIsNull: Boolean; virtual; + function GetOldIMPORTE_NETOValue: Currency; virtual; + function GetOldIMPORTE_NETOIsNull: Boolean; virtual; + procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; + procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; + function GetIMPORTE_PORTEIsNull: Boolean; virtual; + function GetOldIMPORTE_PORTEValue: Currency; virtual; + function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; + function GetDESCUENTOValue: Float; virtual; + function GetDESCUENTOIsNull: Boolean; virtual; + function GetOldDESCUENTOValue: Float; virtual; + function GetOldDESCUENTOIsNull: Boolean; virtual; + procedure SetDESCUENTOValue(const aValue: Float); virtual; + procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_DESCUENTOValue: Currency; virtual; + function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual; + function GetOldIMPORTE_DESCUENTOValue: Currency; virtual; + function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual; + procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; + procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual; + function GetBASE_IMPONIBLEValue: Currency; virtual; + function GetBASE_IMPONIBLEIsNull: Boolean; virtual; + function GetOldBASE_IMPONIBLEValue: Currency; virtual; + function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual; + procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; + procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; + function GetIVAValue: Float; virtual; + function GetIVAIsNull: Boolean; virtual; + function GetOldIVAValue: Float; virtual; + function GetOldIVAIsNull: Boolean; virtual; + procedure SetIVAValue(const aValue: Float); virtual; + procedure SetIVAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_IVAValue: Currency; virtual; + function GetIMPORTE_IVAIsNull: Boolean; virtual; + function GetOldIMPORTE_IVAValue: Currency; virtual; + function GetOldIMPORTE_IVAIsNull: Boolean; virtual; + procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; + procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + function GetOldIMPORTE_TOTALValue: Currency; virtual; + function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetID_FORMA_PAGOValue: Integer; virtual; + function GetID_FORMA_PAGOIsNull: Boolean; virtual; + function GetOldID_FORMA_PAGOValue: Integer; virtual; + function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; + procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; + procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; + property FECHA_PRESUPUESTO : DateTime read GetFECHA_PRESUPUESTOValue write SetFECHA_PRESUPUESTOValue; + property FECHA_PRESUPUESTOIsNull : Boolean read GetFECHA_PRESUPUESTOIsNull write SetFECHA_PRESUPUESTOIsNull; + property OldFECHA_PRESUPUESTO : DateTime read GetOldFECHA_PRESUPUESTOValue; + property OldFECHA_PRESUPUESTOIsNull : Boolean read GetOldFECHA_PRESUPUESTOIsNull; + property FECHA_DECISION : DateTime read GetFECHA_DECISIONValue write SetFECHA_DECISIONValue; + property FECHA_DECISIONIsNull : Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull; + property OldFECHA_DECISION : DateTime read GetOldFECHA_DECISIONValue; + property OldFECHA_DECISIONIsNull : Boolean read GetOldFECHA_DECISIONIsNull; + property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property OldSITUACION : String read GetOldSITUACIONValue; + property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull; + property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; + 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 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; + property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull; + property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property OldNOMBRE : String read GetOldNOMBREValue; + property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; + 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; + property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull; + property CLIENTE_FINAL : String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue; + property CLIENTE_FINALIsNull : Boolean read GetCLIENTE_FINALIsNull write SetCLIENTE_FINALIsNull; + property OldCLIENTE_FINAL : String read GetOldCLIENTE_FINALValue; + property OldCLIENTE_FINALIsNull : Boolean read GetOldCLIENTE_FINALIsNull; + property PORTADA : IROStrings read GetPORTADAValue; + property PORTADAIsNull : Boolean read GetPORTADAIsNull write SetPORTADAIsNull; + property OldPORTADA : IROStrings read GetOldPORTADAValue; + property OldPORTADAIsNull : Boolean read GetOldPORTADAIsNull; + property MEMORIA : IROStrings read GetMEMORIAValue; + property MEMORIAIsNull : Boolean read GetMEMORIAIsNull write SetMEMORIAIsNull; + property OldMEMORIA : IROStrings read GetOldMEMORIAValue; + property OldMEMORIAIsNull : Boolean read GetOldMEMORIAIsNull; + property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue; + property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; + property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull; + property INCIDENCIAS : IROStrings read GetINCIDENCIASValue; + property INCIDENCIASIsNull : Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; + property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue; + property OldINCIDENCIASIsNull : Boolean read GetOldINCIDENCIASIsNull; + property INCIDENCIAS_ACTIVAS : Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; + property INCIDENCIAS_ACTIVASIsNull : Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; + property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue; + property OldINCIDENCIAS_ACTIVASIsNull : Boolean read GetOldINCIDENCIAS_ACTIVASIsNull; + property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; + property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; + property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property OldUSUARIO : String read GetOldUSUARIOValue; + property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; + property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; + property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; + property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; + property OldIMPORTE_NETOIsNull : Boolean read GetOldIMPORTE_NETOIsNull; + property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; + property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; + property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property OldDESCUENTO : Float read GetOldDESCUENTOValue; + property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; + property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property IMPORTE_DESCUENTOIsNull : Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; + property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; + property OldIMPORTE_DESCUENTOIsNull : Boolean read GetOldIMPORTE_DESCUENTOIsNull; + property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; + property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; + property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; + property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull; + property IVA : Float read GetIVAValue write SetIVAValue; + property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull; + property OldIVA : Float read GetOldIVAValue; + property OldIVAIsNull : Boolean read GetOldIVAIsNull; + property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; + property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; + property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; + property OldIMPORTE_IVAIsNull : Boolean read GetOldIMPORTE_IVAIsNull; + property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; + property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; + property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; + property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; + property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { IPresupuestosCliente_DetallesDelta } + IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) + ['{ECFAC69A-18AF-4880-BDEE-29EF5A24A70C}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldID_PRESUPUESTOValue : Integer; + function GetOldPOSICIONValue : Integer; + function GetOldTIPO_DETALLEValue : String; + function GetOldID_ARTICULOValue : Integer; + function GetOldCONCEPTOValue : String; + function GetOldCANTIDADValue : Integer; + function GetOldIMPORTE_UNIDADValue : Currency; + function GetOldDESCUENTOValue : Float; + function GetOldIMPORTE_PORTEValue : Currency; + function GetOldIMPORTE_TOTALValue : Currency; + function GetOldVISIBLEValue : Integer; + function GetOldFECHA_ALTAValue : DateTime; + function GetOldFECHA_MODIFICACIONValue : DateTime; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue; + property OldPOSICION : Integer read GetOldPOSICIONValue; + property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; + property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; + property OldCONCEPTO : String read GetOldCONCEPTOValue; + property OldCANTIDAD : Integer read GetOldCANTIDADValue; + property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; + property OldDESCUENTO : Float read GetOldDESCUENTOValue; + property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldVISIBLE : Integer read GetOldVISIBLEValue; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + end; + + { TPresupuestosCliente_DetallesBusinessProcessorRules } + TPresupuestosCliente_DetallesBusinessProcessorRules = class(TDABusinessProcessorRules, IPresupuestosCliente_Detalles, IPresupuestosCliente_DetallesDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_PRESUPUESTOValue: Integer; virtual; + function GetID_PRESUPUESTOIsNull: Boolean; virtual; + function GetOldID_PRESUPUESTOValue: Integer; virtual; + function GetOldID_PRESUPUESTOIsNull: Boolean; virtual; + procedure SetID_PRESUPUESTOValue(const aValue: Integer); virtual; + procedure SetID_PRESUPUESTOIsNull(const aValue: Boolean); virtual; + function GetPOSICIONValue: Integer; virtual; + function GetPOSICIONIsNull: Boolean; virtual; + function GetOldPOSICIONValue: Integer; virtual; + function GetOldPOSICIONIsNull: Boolean; virtual; + procedure SetPOSICIONValue(const aValue: Integer); virtual; + procedure SetPOSICIONIsNull(const aValue: Boolean); virtual; + function GetTIPO_DETALLEValue: String; virtual; + function GetTIPO_DETALLEIsNull: Boolean; virtual; + function GetOldTIPO_DETALLEValue: String; virtual; + function GetOldTIPO_DETALLEIsNull: Boolean; virtual; + procedure SetTIPO_DETALLEValue(const aValue: String); virtual; + procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; + function GetID_ARTICULOValue: Integer; virtual; + function GetID_ARTICULOIsNull: Boolean; virtual; + function GetOldID_ARTICULOValue: Integer; virtual; + function GetOldID_ARTICULOIsNull: Boolean; virtual; + procedure SetID_ARTICULOValue(const aValue: Integer); virtual; + procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; + function GetCONCEPTOValue: String; virtual; + function GetCONCEPTOIsNull: Boolean; virtual; + function GetOldCONCEPTOValue: String; virtual; + function GetOldCONCEPTOIsNull: Boolean; virtual; + procedure SetCONCEPTOValue(const aValue: String); virtual; + procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; + function GetCANTIDADValue: Integer; virtual; + function GetCANTIDADIsNull: Boolean; virtual; + function GetOldCANTIDADValue: Integer; virtual; + function GetOldCANTIDADIsNull: Boolean; virtual; + procedure SetCANTIDADValue(const aValue: Integer); virtual; + procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_UNIDADValue: Currency; virtual; + function GetIMPORTE_UNIDADIsNull: Boolean; virtual; + function GetOldIMPORTE_UNIDADValue: Currency; virtual; + function GetOldIMPORTE_UNIDADIsNull: Boolean; virtual; + procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual; + procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual; + function GetDESCUENTOValue: Float; virtual; + function GetDESCUENTOIsNull: Boolean; virtual; + function GetOldDESCUENTOValue: Float; virtual; + function GetOldDESCUENTOIsNull: Boolean; virtual; + procedure SetDESCUENTOValue(const aValue: Float); virtual; + procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; + function GetIMPORTE_PORTEIsNull: Boolean; virtual; + function GetOldIMPORTE_PORTEValue: Currency; virtual; + function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + function GetOldIMPORTE_TOTALValue: Currency; virtual; + function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetVISIBLEValue: Integer; virtual; + function GetVISIBLEIsNull: Boolean; virtual; + function GetOldVISIBLEValue: Integer; virtual; + function GetOldVISIBLEIsNull: Boolean; virtual; + procedure SetVISIBLEValue(const aValue: Integer); virtual; + procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + function GetOldFECHA_ALTAValue: DateTime; virtual; + function GetOldFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; + function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property ID_PRESUPUESTO : Integer read GetID_PRESUPUESTOValue write SetID_PRESUPUESTOValue; + property ID_PRESUPUESTOIsNull : Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull; + property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue; + property OldID_PRESUPUESTOIsNull : Boolean read GetOldID_PRESUPUESTOIsNull; + property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue; + property POSICIONIsNull : Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; + property OldPOSICION : Integer read GetOldPOSICIONValue; + property OldPOSICIONIsNull : Boolean read GetOldPOSICIONIsNull; + property TIPO_DETALLE : String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; + property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; + property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; + property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull; + property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; + property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; + property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull; + property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; + property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; + property OldCONCEPTO : String read GetOldCONCEPTOValue; + property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull; + property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; + property OldCANTIDAD : Integer read GetOldCANTIDADValue; + property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull; + property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; + property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; + property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; + property OldIMPORTE_UNIDADIsNull : Boolean read GetOldIMPORTE_UNIDADIsNull; + property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property OldDESCUENTO : Float read GetOldDESCUENTOValue; + property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; + property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; + property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; + property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; + property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue; + property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; + property OldVISIBLE : Integer read GetOldVISIBLEValue; + property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull; + property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; + property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + +implementation + +uses + Variants, uROBinaryHelpers, uDAInterfaces; + +{ TDarReferenciaBusinessProcessorRules } +constructor TDarReferenciaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TDarReferenciaBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TDarReferenciaBusinessProcessorRules.GetVALORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR]; +end; + +function TDarReferenciaBusinessProcessorRules.GetVALORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR]); +end; + +function TDarReferenciaBusinessProcessorRules.GetOldVALORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarReferenciaVALOR]; +end; + +function TDarReferenciaBusinessProcessorRules.GetOldVALORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarReferenciaVALOR]); +end; + +procedure TDarReferenciaBusinessProcessorRules.SetVALORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR] := aValue; +end; + +procedure TDarReferenciaBusinessProcessorRules.SetVALORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR] := Null; +end; + + +{ TPresupuestosClienteBusinessProcessorRules } +constructor TPresupuestosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +var + StrList: TStringList; +begin + inherited; + + StrList := TStringList.Create; + StrList.OnChange := PORTADA_OnChange; + f_PORTADA := NewROStrings(StrList,True); + + StrList := TStringList.Create; + StrList.OnChange := MEMORIA_OnChange; + f_MEMORIA := NewROStrings(StrList,True); + + StrList := TStringList.Create; + StrList.OnChange := OBSERVACIONES_OnChange; + f_OBSERVACIONES := NewROStrings(StrList,True); + + StrList := TStringList.Create; + StrList.OnChange := INCIDENCIAS_OnChange; + f_INCIDENCIAS := NewROStrings(StrList,True); +end; + +destructor TPresupuestosClienteBusinessProcessorRules.Destroy; +begin + inherited; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.PORTADA_OnChange(Sender: TObject); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePORTADA] := TStringList(Sender).Text; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.MEMORIA_OnChange(Sender: TObject); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteMEMORIA] := TStringList(Sender).Text; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.OBSERVACIONES_OnChange(Sender: TObject); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteOBSERVACIONES] := TStringList(Sender).Text; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.INCIDENCIAS_OnChange(Sender: TObject); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteINCIDENCIAS] := TStringList(Sender).Text; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_EMPRESA]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_EMPRESA]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_EMPRESA]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_EMPRESA]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_EMPRESA] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_EMPRESA] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetFECHA_PRESUPUESTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_PRESUPUESTO]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetFECHA_PRESUPUESTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_PRESUPUESTO]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldFECHA_PRESUPUESTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteFECHA_PRESUPUESTO]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldFECHA_PRESUPUESTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteFECHA_PRESUPUESTO]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetFECHA_PRESUPUESTOValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_PRESUPUESTO] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetFECHA_PRESUPUESTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_PRESUPUESTO] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetFECHA_DECISIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_DECISION]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetFECHA_DECISIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_DECISION]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldFECHA_DECISIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteFECHA_DECISION]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldFECHA_DECISIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteFECHA_DECISION]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetFECHA_DECISIONValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_DECISION] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetFECHA_DECISIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_DECISION] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteSITUACION]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetSITUACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteSITUACION]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteSITUACION]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteSITUACION]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetSITUACIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteSITUACION] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteSITUACION] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetID_CLIENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_CLIENTE]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_CLIENTE]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_CLIENTE]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_CLIENTE]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_CLIENTE] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_CLIENTE] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetNIF_CIFValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNIF_CIF]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNIF_CIF]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldNIF_CIFValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteNIF_CIF]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteNIF_CIF]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNIF_CIF] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNIF_CIF] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteNOMBRE]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteNOMBRE]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetNOMBREValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetCLIENTE_FINALValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCLIENTE_FINAL]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetCLIENTE_FINALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCLIENTE_FINAL]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldCLIENTE_FINALValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCLIENTE_FINAL]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldCLIENTE_FINALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCLIENTE_FINAL]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetCLIENTE_FINALValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCLIENTE_FINAL] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetCLIENTE_FINALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCLIENTE_FINAL] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetPORTADAValue: IROStrings; +begin + result := f_PORTADA; + result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePORTADA]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetPORTADAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePORTADA]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldPORTADAValue: IROStrings; +begin + result := NewROStrings(); + result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePORTADA]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldPORTADAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePORTADA]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetPORTADAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePORTADA] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetMEMORIAValue: IROStrings; +begin + result := f_MEMORIA; + result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteMEMORIA]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetMEMORIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteMEMORIA]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldMEMORIAValue: IROStrings; +begin + result := NewROStrings(); + result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteMEMORIA]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldMEMORIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteMEMORIA]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetMEMORIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteMEMORIA] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings; +begin + result := f_OBSERVACIONES; + result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteOBSERVACIONES]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteOBSERVACIONES]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings; +begin + result := NewROStrings(); + result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteOBSERVACIONES]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteOBSERVACIONES]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteOBSERVACIONES] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetINCIDENCIASValue: IROStrings; +begin + result := f_INCIDENCIAS; + result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteINCIDENCIAS]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetINCIDENCIASIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteINCIDENCIAS]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldINCIDENCIASValue: IROStrings; +begin + result := NewROStrings(); + result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteINCIDENCIAS]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldINCIDENCIASIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteINCIDENCIAS]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetINCIDENCIASIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteINCIDENCIAS] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetINCIDENCIAS_ACTIVASValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteINCIDENCIAS_ACTIVAS]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetINCIDENCIAS_ACTIVASIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteINCIDENCIAS_ACTIVAS]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteINCIDENCIAS_ACTIVAS]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteINCIDENCIAS_ACTIVAS]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteINCIDENCIAS_ACTIVAS] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteINCIDENCIAS_ACTIVAS] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_ALTA]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_ALTA]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteFECHA_ALTA]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteFECHA_ALTA]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_ALTA] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_ALTA] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_MODIFICACION]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_MODIFICACION]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteFECHA_MODIFICACION]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteFECHA_MODIFICACION]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_MODIFICACION] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFECHA_MODIFICACION] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteUSUARIO]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteUSUARIO]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteUSUARIO]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteUSUARIO]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteUSUARIO] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteUSUARIO] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetIMPORTE_NETOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_NETO]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_NETO]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteIMPORTE_NETO]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteIMPORTE_NETO]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_NETO] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetIMPORTE_NETOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_NETO] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_PORTE]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_PORTE]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteIMPORTE_PORTE]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteIMPORTE_PORTE]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_PORTE] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_PORTE] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetDESCUENTOValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteDESCUENTO]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteDESCUENTO]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldDESCUENTOValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteDESCUENTO]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteDESCUENTO]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteDESCUENTO] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteDESCUENTO] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_DESCUENTO]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_DESCUENTO]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteIMPORTE_DESCUENTO]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteIMPORTE_DESCUENTO]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_DESCUENTO] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_DESCUENTO] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteBASE_IMPONIBLE]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteBASE_IMPONIBLE]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteBASE_IMPONIBLE]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteBASE_IMPONIBLE]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteBASE_IMPONIBLE] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteBASE_IMPONIBLE] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetIVAValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIVA]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetIVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIVA]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldIVAValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteIVA]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldIVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteIVA]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetIVAValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIVA] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIVA] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetIMPORTE_IVAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_IVA]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetIMPORTE_IVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_IVA]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteIMPORTE_IVA]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldIMPORTE_IVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteIMPORTE_IVA]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_IVA] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetIMPORTE_IVAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_IVA] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_TOTAL]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_TOTAL]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteIMPORTE_TOTAL]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteIMPORTE_TOTAL]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_TOTAL] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_TOTAL] := Null; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FORMA_PAGO]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FORMA_PAGO]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_FORMA_PAGO]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_FORMA_PAGO]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FORMA_PAGO] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FORMA_PAGO] := Null; +end; + + +{ TPresupuestosCliente_DetallesBusinessProcessorRules } +constructor TPresupuestosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TPresupuestosCliente_DetallesBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesID]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesID]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetID_PRESUPUESTOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_PRESUPUESTO]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetID_PRESUPUESTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_PRESUPUESTO]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldID_PRESUPUESTOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesID_PRESUPUESTO]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldID_PRESUPUESTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesID_PRESUPUESTO]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetID_PRESUPUESTOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_PRESUPUESTO] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetID_PRESUPUESTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_PRESUPUESTO] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetPOSICIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPOSICION]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetPOSICIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPOSICION]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldPOSICIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesPOSICION]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesPOSICION]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPOSICION] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPOSICION] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetTIPO_DETALLEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesTIPO_DETALLE]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetTIPO_DETALLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesTIPO_DETALLE]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldTIPO_DETALLEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesTIPO_DETALLE]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldTIPO_DETALLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesTIPO_DETALLE]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesTIPO_DETALLE] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetTIPO_DETALLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesTIPO_DETALLE] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetCONCEPTOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCONCEPTO]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetCONCEPTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCONCEPTO]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldCONCEPTOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesCONCEPTO]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesCONCEPTO]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetCONCEPTOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCONCEPTO] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCONCEPTO] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCANTIDAD]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetCANTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCANTIDAD]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesCANTIDAD]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesCANTIDAD]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCANTIDAD] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCANTIDAD] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_UNIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetDESCUENTOValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVISIBLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesVISIBLE]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesVISIBLE]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetVISIBLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION] := Null; +end; + + +initialization + RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_PresupuestosClienteDelta, TPresupuestosClienteBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_PresupuestosCliente_DetallesDelta, TPresupuestosCliente_DetallesBusinessProcessorRules); + +end. diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas index fcf13915..badae22a 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas @@ -16,6 +16,7 @@ type TBizDetallesPresupuestoCliente = class(TPresupuestosCliente_DetallesDataTableRules, IBizDetallesPresupuestoCliente) protected procedure OnNewRecord(Sender: TDADataTable); override; + procedure BeforeInsert(Sender: TDADataTable); override; public constructor Create(aDataTable: TDADataTable); override; end; @@ -26,9 +27,19 @@ implementation { TBizDetallesPresupuestoCliente } uses - uDataTableUtils; + DB, uDataTableUtils; +procedure TBizDetallesPresupuestoCliente.BeforeInsert(Sender: TDADataTable); +var + AMasterTable : TDADataTable; +begin + inherited; + AMasterTable := DataTable.GetMasterDataTable; + if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then + AMasterTable.Post; +end; + constructor TBizDetallesPresupuestoCliente.Create(aDataTable: TDADataTable); begin inherited Create(aDataTable); diff --git a/Source/Modulos/Presupuestos de cliente/PedidosCliente_Group.bdsgroup b/Source/Modulos/Presupuestos de cliente/PedidosCliente_Group.bdsgroup deleted file mode 100644 index cddfade0..00000000 --- a/Source/Modulos/Presupuestos de cliente/PedidosCliente_Group.bdsgroup +++ /dev/null @@ -1,28 +0,0 @@ - - - - - - - - - - - ..\..\Base\Base.bdsproj - ..\..\Base\ControllerBase\ControllerBase.bdsproj - ..\..\Base\GUIBase\GUIBase.bdsproj - ..\Articulos\Model\Articulos_model.bdsproj - ..\Articulos\Data\Articulos_data.bdsproj - ..\Articulos\Controller\Articulos_controller.bdsproj - ..\Articulos\Views\Articulos_view.bdsproj - Model\PedidosCliente_model.bdsproj - Data\PedidosCliente_data.bdsproj - Controller\PedidosCliente_controller.bdsproj - Views\PedidosCliente_view.bdsproj - Plugin\PedidosCliente_plugin.bdsproj - Base.bpl ControllerBase.bpl GUIBase.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Articulos_view.bpl PedidosCliente_model.bpl PedidosCliente_data.bpl PedidosCliente_controller.bpl PedidosCliente_view.bpl PedidosCliente_plugin.bpl - - - - diff --git a/Source/Modulos/Presupuestos de cliente/PedidosCliente_Group.config b/Source/Modulos/Presupuestos de cliente/PedidosCliente_Group.config deleted file mode 100644 index c8f28340..00000000 --- a/Source/Modulos/Presupuestos de cliente/PedidosCliente_Group.config +++ /dev/null @@ -1,2 +0,0 @@ - - \ No newline at end of file diff --git a/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.dproj b/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.dproj index c58b6e4c..c8bc7728 100644 --- a/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.dproj +++ b/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.dproj @@ -41,117 +41,24 @@ Delphi.Personality Package - - False - True - False - - - True - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - - - - - - - - - - - - +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 RemObjects Pascal Script - RemObjects SDK 3.0 Integration EurekaLog 5.1.9 - - - PresupuestosCliente_plugin.dpk - - + PresupuestosCliente_plugin.dpk MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
PluginPresupuestosCliente
 - +EurekaLog Last Line --> \ No newline at end of file diff --git a/Source/Servidor/FactuGES_Server.drc b/Source/Servidor/FactuGES_Server.drc index 573ef160..acc9eb93 100644 --- a/Source/Servidor/FactuGES_Server.drc +++ b/Source/Servidor/FactuGES_Server.drc @@ -8,242 +8,243 @@ resources were bound to the produced executable. */ -#define cxEditConsts_scxRegExprCantCreateEmptyEnum 64512 -#define cxEditConsts_scxRegExprSubrangeOrder 64513 -#define cxEditConsts_scxRegExprHexNumberExpected0 64514 -#define cxEditConsts_scxRegExprHexNumberExpected 64515 -#define cxEditConsts_scxRegExprMissing 64516 -#define cxEditConsts_scxRegExprUnnecessary 64517 -#define cxEditConsts_scxRegExprIncorrectSpace 64518 -#define cxEditConsts_scxRegExprNotCompiled 64519 -#define cxEditConsts_scxRegExprIncorrectParameterQuantifier 64520 -#define cxEditConsts_scxRegExprCantUseParameterQuantifier 64521 -#define cxEditConsts_scxMaskEditRegExprError 64522 -#define cxEditConsts_scxMaskEditInvalidEditValue 64523 -#define cxEditConsts_cxSDateNow 64528 -#define cxEditConsts_scxSEditRepositoryButtonItem 64529 -#define cxEditConsts_scxSEditRepositoryMaskItem 64530 -#define cxEditConsts_scxSEditRepositoryTextItem 64531 -#define cxEditConsts_scxRegExprLine 64532 -#define cxEditConsts_scxRegExprChar 64533 -#define cxEditConsts_scxRegExprNotAssignedSourceStream 64534 -#define cxEditConsts_scxRegExprEmptySourceStream 64535 -#define cxEditConsts_scxRegExprCantUsePlusQuantifier 64536 -#define cxEditConsts_scxRegExprCantUseStarQuantifier 64537 -#define cxEditConsts_scxRegExprCantCreateEmptyAlt 64538 -#define cxEditConsts_scxRegExprCantCreateEmptyBlock 64539 -#define cxEditConsts_scxRegExprIllegalSymbol 64540 -#define cxEditConsts_scxRegExprIllegalQuantifier 64541 -#define cxEditConsts_scxRegExprIllegalIntegerValue 64542 -#define cxEditConsts_scxRegExprTooBigReferenceNumber 64543 -#define cxEditConsts_cxSDateSunday 64544 -#define cxEditConsts_cxSDateMonday 64545 -#define cxEditConsts_cxSDateTuesday 64546 -#define cxEditConsts_cxSDateWednesday 64547 -#define cxEditConsts_cxSDateThursday 64548 -#define cxEditConsts_cxSDateFriday 64549 -#define cxEditConsts_cxSDateSaturday 64550 -#define cxEditConsts_cxSDateFirst 64551 -#define cxEditConsts_cxSDateSecond 64552 -#define cxEditConsts_cxSDateThird 64553 -#define cxEditConsts_cxSDateFourth 64554 -#define cxEditConsts_cxSDateFifth 64555 -#define cxEditConsts_cxSDateSixth 64556 -#define cxEditConsts_cxSDateSeventh 64557 -#define cxEditConsts_cxSDateBOM 64558 -#define cxEditConsts_cxSDateEOM 64559 -#define pnglang_EPNGUnexpectedEndText 64560 -#define pnglang_EPNGNoImageDataText 64561 -#define pnglang_EPNGCannotChangeSizeText 64562 -#define pnglang_EPNGCannotAddChunkText 64563 -#define pnglang_EPNGCannotAddInvalidImageText 64564 -#define pnglang_EPNGOutMemoryText 64565 -#define pnglang_EPNGHeaderNotPresentText 64566 -#define cxDataConsts_cxSDataReadError 64567 -#define cxDataConsts_cxSDataWriteError 64568 -#define cxEditConsts_cxSEditInvalidRepositoryItem 64569 -#define cxEditConsts_cxSEditNumericValueConvertError 64570 -#define cxEditConsts_cxSEditValidateErrorText 64571 -#define cxEditConsts_cxSEditValueOutOfBounds 64572 -#define cxEditConsts_cxSDateToday 64573 -#define cxEditConsts_cxSDateYesterday 64574 -#define cxEditConsts_cxSDateTomorrow 64575 -#define IBSQLMonitor_StrRollbackRetainin 64576 -#define IBSQLMonitor_StrStartTransaction 64577 -#define IBSQLMonitor_StrApplication 64578 -#define pnglang_EPngInvalidCRCText 64579 -#define pnglang_EPNGInvalidIHDRText 64580 -#define pnglang_EPNGMissingMultipleIDATText 64581 -#define pnglang_EPNGZLIBErrorText 64582 -#define pnglang_EPNGInvalidPaletteText 64583 -#define pnglang_EPNGInvalidFileHeaderText 64584 -#define pnglang_EPNGIHDRNotFirstText 64585 -#define pnglang_EPNGSizeExceedsText 64586 -#define pnglang_EPNGUnknownPalEntryText 64587 -#define pnglang_EPNGUnknownCriticalChunkText 64588 -#define pnglang_EPNGUnknownCompressionText 64589 -#define pnglang_EPNGUnknownInterlaceText 64590 -#define pnglang_EPNGCannotAssignChunkText 64591 -#define IBSQLMonitor_StrMisc 64592 -#define IBSQLMonitor_StrError 64593 -#define IBSQLMonitor_StrAttach 64594 -#define IBSQLMonitor_StrDetach 64595 -#define IBSQLMonitor_StrQuery 64596 -#define IBSQLMonitor_StrStart 64597 -#define IBSQLMonitor_StrExecute 64598 -#define IBSQLMonitor_StrNULL 64599 -#define IBSQLMonitor_StrBLOB 64600 -#define IBSQLMonitor_StrFetch 64601 -#define IBSQLMonitor_StrPrepare 64602 -#define IBSQLMonitor_StrPlan 64603 -#define IBSQLMonitor_StrPlanCantRetrive 64604 -#define IBSQLMonitor_StrCommitHardComm 64605 -#define IBSQLMonitor_StrCommitRetaining 64606 -#define IBSQLMonitor_StrRollback 64607 -#define IBXConst_SInvalidOnErrorResult 64608 -#define IBXConst_SInvalidOnStatusResult 64609 -#define IBXConst_SDPBConstantUnknownEx 64610 -#define IBXConst_STPBConstantUnknownEx 64611 -#define IBXConst_SUnknownPlan 64612 -#define IBXConst_SFieldSizeMismatch 64613 -#define IBXConst_SEventAlreadyRegistered 64614 -#define IBXConst_SStringTooLarge 64615 -#define IBXConst_SNoTimers 64616 -#define IBXConst_SIB65feature 64617 -#define IBXConst_SLoginPromptFailure 64618 -#define IBXConst_SIB70feature 64619 -#define IBXConst_SIB71feature 64620 -#define IBXConst_SIB80feature 64621 -#define IBSQLMonitor_StrConnect 64622 -#define IBSQLMonitor_StrDisconnect 64623 -#define IBXConst_SUseSpecificProcedures 64624 -#define IBXConst_SSQLMonitorAlreadyPresent 64625 -#define IBXConst_SCantPrintValue 64626 -#define IBXConst_SEOFReached 64627 -#define IBXConst_SEOFInComment 64628 -#define IBXConst_SEOFInString 64629 -#define IBXConst_SParamNameExpected 64630 -#define IBXConst_SSuccess 64631 -#define IBXConst_SDelphiException 64632 -#define IBXConst_SNoOptionsSet 64633 -#define IBXConst_SNoDestinationDirectory 64634 -#define IBXConst_SNosourceDirectory 64635 -#define IBXConst_SNoUninstallFile 64636 -#define IBXConst_SOptionNeedsClient 64637 -#define IBXConst_SOptionNeedsServer 64638 -#define IBXConst_SInvalidOption 64639 -#define IBXConst_SInvalidCancellation 64640 -#define IBXConst_SInvalidEvent 64641 -#define IBXConst_SMaximumEvents 64642 -#define IBXConst_SNoEventsRegistered 64643 -#define IBXConst_SInvalidQueueing 64644 -#define IBXConst_SInvalidRegistration 64645 -#define IBXConst_SInvalidBatchMove 64646 -#define IBXConst_SSQLDialectInvalid 64647 -#define IBXConst_SSPBConstantNotSupported 64648 -#define IBXConst_SSPBConstantUnknown 64649 -#define IBXConst_SServiceActive 64650 -#define IBXConst_SServiceInActive 64651 -#define IBXConst_SServerNameMissing 64652 -#define IBXConst_SQueryParamsError 64653 -#define IBXConst_SStartParamsError 64654 -#define IBXConst_SOutputParsingError 64655 -#define IBXConst_SCircularDataLink 64656 -#define IBXConst_SEmptySQLStatement 64657 -#define IBXConst_SIsASelectStatement 64658 -#define IBXConst_SRequiredParamNotSet 64659 -#define IBXConst_SNoStoredProcName 64660 -#define IBXConst_SIsAExecuteProcedure 64661 -#define IBXConst_SUpdateFailed 64662 -#define IBXConst_SNotCachedUpdates 64663 -#define IBXConst_SNotLiveRequest 64664 -#define IBXConst_SNoProvider 64665 -#define IBXConst_SNoRecordsAffected 64666 -#define IBXConst_SNoTableName 64667 -#define IBXConst_SCannotCreatePrimaryIndex 64668 -#define IBXConst_SCannotDropSystemIndex 64669 -#define IBXConst_STableNameMismatch 64670 -#define IBXConst_SIndexFieldMissing 64671 -#define IBXConst_SCannotInsert 64672 -#define IBXConst_SCannotPost 64673 -#define IBXConst_SCannotUpdate 64674 -#define IBXConst_SCannotDelete 64675 -#define IBXConst_SCannotRefresh 64676 -#define IBXConst_SBufferNotSet 64677 -#define IBXConst_SCircularReference 64678 -#define IBXConst_SSQLParseError 64679 -#define IBXConst_SUserAbort 64680 -#define IBXConst_SDataSetUniDirectional 64681 -#define IBXConst_SCannotCreateSharedResource 64682 -#define IBXConst_SWindowsAPIError 64683 -#define IBXConst_SColumnListsDontMatch 64684 -#define IBXConst_SColumnTypesDontMatch 64685 -#define IBXConst_SCantEndSharedTransaction 64686 -#define IBXConst_SFieldUnsupportedType 64687 -#define IBXConst_SSQLClosed 64688 -#define IBXConst_SDatasetOpen 64689 -#define IBXConst_SDatasetClosed 64690 -#define IBXConst_SUnknownSQLDataType 64691 -#define IBXConst_SInvalidColumnIndex 64692 -#define IBXConst_SInvalidParamColumnIndex 64693 -#define IBXConst_SInvalidDataConversion 64694 -#define IBXConst_SColumnIsNotNullable 64695 -#define IBXConst_SBlobCannotBeRead 64696 -#define IBXConst_SBlobCannotBeWritten 64697 -#define IBXConst_SEmptyQuery 64698 -#define IBXConst_SCannotOpenNonSQLSelect 64699 -#define IBXConst_SNoFieldAccess 64700 -#define IBXConst_SFieldReadOnly 64701 -#define IBXConst_SFieldNotFound 64702 -#define IBXConst_SNotEditing 64703 -#define IBXConst_SDatabaseOpen 64704 -#define IBXConst_SDatabaseNameMissing 64705 -#define IBXConst_SNotInTransaction 64706 -#define IBXConst_SInTransaction 64707 -#define IBXConst_STimeoutNegative 64708 -#define IBXConst_SNoDatabasesInTransaction 64709 -#define IBXConst_SUpdateWrongDB 64710 -#define IBXConst_SUpdateWrongTR 64711 -#define IBXConst_SDatabaseNotAssigned 64712 -#define IBXConst_STransactionNotAssigned 64713 -#define IBXConst_SXSQLDAIndexOutOfRange 64714 -#define IBXConst_SXSQLDANameDoesNotExist 64715 -#define IBXConst_SEOF 64716 -#define IBXConst_SBOF 64717 -#define IBXConst_SInvalidStatementHandle 64718 -#define IBXConst_SSQLOpen 64719 -#define IBXConst_SUnknownError 64720 -#define IBXConst_SInterBaseMissing 64721 -#define IBXConst_SInterBaseInstallMissing 64722 -#define IBXConst_SIB60feature 64723 -#define IBXConst_SNotSupported 64724 -#define IBXConst_SNotPermitted 64725 -#define IBXConst_SFileAccessError 64726 -#define IBXConst_SConnectionTimeout 64727 -#define IBXConst_SCannotSetDatabase 64728 -#define IBXConst_SCannotSetTransaction 64729 -#define IBXConst_SOperationCancelled 64730 -#define IBXConst_SDPBConstantNotSupported 64731 -#define IBXConst_SDPBConstantUnknown 64732 -#define IBXConst_STPBConstantNotSupported 64733 -#define IBXConst_STPBConstantUnknown 64734 -#define IBXConst_SDatabaseClosed 64735 -#define uDARes_err_UnknownDriver 64736 -#define uDARes_err_FieldIsNotBound 64737 -#define uDARes_err_CannotFindField 64738 -#define uDARes_err_LoadPackageFailed 64739 -#define uDARes_err_InvalidDriverReference 64740 -#define uDARes_err_CannotFindStatement 64741 -#define uDARes_err_CannotFindDefaultItem 64742 -#define uDARes_err_PoolIsNotEmpty 64743 -#define uDARes_err_MaxPoolSizeReached 64744 -#define uDARes_err_LAMEDataset 64745 -#define uDARes_err_DARDMInvalidSchema 64746 -#define uDARes_err_DARDMCannotFindProxessorForDelta 64747 -#define uDARes_err_NeedShareMem 64748 -#define uDARes_err_DatasetNotAccessible 64749 -#define uDARes_err_CommandNotAccessible 64750 -#define uDARes_err_SQLNotPermitted 64751 +#define cxEditConsts_scxRegExprTooBigReferenceNumber 64512 +#define cxEditConsts_scxRegExprCantCreateEmptyEnum 64513 +#define cxEditConsts_scxRegExprSubrangeOrder 64514 +#define cxEditConsts_scxRegExprHexNumberExpected0 64515 +#define cxEditConsts_scxRegExprHexNumberExpected 64516 +#define cxEditConsts_scxRegExprMissing 64517 +#define cxEditConsts_scxRegExprUnnecessary 64518 +#define cxEditConsts_scxRegExprIncorrectSpace 64519 +#define cxEditConsts_scxRegExprNotCompiled 64520 +#define cxEditConsts_scxRegExprIncorrectParameterQuantifier 64521 +#define cxEditConsts_scxRegExprCantUseParameterQuantifier 64522 +#define cxEditConsts_scxMaskEditRegExprError 64523 +#define cxEditConsts_scxMaskEditInvalidEditValue 64524 +#define cxEditConsts_cxSDateEOM 64528 +#define cxEditConsts_cxSDateNow 64529 +#define cxEditConsts_scxSEditRepositoryButtonItem 64530 +#define cxEditConsts_scxSEditRepositoryMaskItem 64531 +#define cxEditConsts_scxSEditRepositoryTextItem 64532 +#define cxEditConsts_scxRegExprLine 64533 +#define cxEditConsts_scxRegExprChar 64534 +#define cxEditConsts_scxRegExprNotAssignedSourceStream 64535 +#define cxEditConsts_scxRegExprEmptySourceStream 64536 +#define cxEditConsts_scxRegExprCantUsePlusQuantifier 64537 +#define cxEditConsts_scxRegExprCantUseStarQuantifier 64538 +#define cxEditConsts_scxRegExprCantCreateEmptyAlt 64539 +#define cxEditConsts_scxRegExprCantCreateEmptyBlock 64540 +#define cxEditConsts_scxRegExprIllegalSymbol 64541 +#define cxEditConsts_scxRegExprIllegalQuantifier 64542 +#define cxEditConsts_scxRegExprIllegalIntegerValue 64543 +#define cxEditConsts_cxSDateTomorrow 64544 +#define cxEditConsts_cxSDateSunday 64545 +#define cxEditConsts_cxSDateMonday 64546 +#define cxEditConsts_cxSDateTuesday 64547 +#define cxEditConsts_cxSDateWednesday 64548 +#define cxEditConsts_cxSDateThursday 64549 +#define cxEditConsts_cxSDateFriday 64550 +#define cxEditConsts_cxSDateSaturday 64551 +#define cxEditConsts_cxSDateFirst 64552 +#define cxEditConsts_cxSDateSecond 64553 +#define cxEditConsts_cxSDateThird 64554 +#define cxEditConsts_cxSDateFourth 64555 +#define cxEditConsts_cxSDateFifth 64556 +#define cxEditConsts_cxSDateSixth 64557 +#define cxEditConsts_cxSDateSeventh 64558 +#define cxEditConsts_cxSDateBOM 64559 +#define pnglang_EPNGCannotAssignChunkText 64560 +#define pnglang_EPNGUnexpectedEndText 64561 +#define pnglang_EPNGNoImageDataText 64562 +#define pnglang_EPNGCannotChangeSizeText 64563 +#define pnglang_EPNGCannotAddChunkText 64564 +#define pnglang_EPNGCannotAddInvalidImageText 64565 +#define pnglang_EPNGOutMemoryText 64566 +#define pnglang_EPNGHeaderNotPresentText 64567 +#define cxDataConsts_cxSDataReadError 64568 +#define cxDataConsts_cxSDataWriteError 64569 +#define cxEditConsts_cxSEditInvalidRepositoryItem 64570 +#define cxEditConsts_cxSEditNumericValueConvertError 64571 +#define cxEditConsts_cxSEditValidateErrorText 64572 +#define cxEditConsts_cxSEditValueOutOfBounds 64573 +#define cxEditConsts_cxSDateToday 64574 +#define cxEditConsts_cxSDateYesterday 64575 +#define IBSQLMonitor_StrRollback 64576 +#define IBSQLMonitor_StrRollbackRetainin 64577 +#define IBSQLMonitor_StrStartTransaction 64578 +#define IBSQLMonitor_StrApplication 64579 +#define pnglang_EPngInvalidCRCText 64580 +#define pnglang_EPNGInvalidIHDRText 64581 +#define pnglang_EPNGMissingMultipleIDATText 64582 +#define pnglang_EPNGZLIBErrorText 64583 +#define pnglang_EPNGInvalidPaletteText 64584 +#define pnglang_EPNGInvalidFileHeaderText 64585 +#define pnglang_EPNGIHDRNotFirstText 64586 +#define pnglang_EPNGSizeExceedsText 64587 +#define pnglang_EPNGUnknownPalEntryText 64588 +#define pnglang_EPNGUnknownCriticalChunkText 64589 +#define pnglang_EPNGUnknownCompressionText 64590 +#define pnglang_EPNGUnknownInterlaceText 64591 +#define IBSQLMonitor_StrDisconnect 64592 +#define IBSQLMonitor_StrMisc 64593 +#define IBSQLMonitor_StrError 64594 +#define IBSQLMonitor_StrAttach 64595 +#define IBSQLMonitor_StrDetach 64596 +#define IBSQLMonitor_StrQuery 64597 +#define IBSQLMonitor_StrStart 64598 +#define IBSQLMonitor_StrExecute 64599 +#define IBSQLMonitor_StrNULL 64600 +#define IBSQLMonitor_StrBLOB 64601 +#define IBSQLMonitor_StrFetch 64602 +#define IBSQLMonitor_StrPrepare 64603 +#define IBSQLMonitor_StrPlan 64604 +#define IBSQLMonitor_StrPlanCantRetrive 64605 +#define IBSQLMonitor_StrCommitHardComm 64606 +#define IBSQLMonitor_StrCommitRetaining 64607 +#define IBXConst_SInvalidOption 64608 +#define IBXConst_SInvalidOnErrorResult 64609 +#define IBXConst_SInvalidOnStatusResult 64610 +#define IBXConst_SDPBConstantUnknownEx 64611 +#define IBXConst_STPBConstantUnknownEx 64612 +#define IBXConst_SUnknownPlan 64613 +#define IBXConst_SFieldSizeMismatch 64614 +#define IBXConst_SEventAlreadyRegistered 64615 +#define IBXConst_SStringTooLarge 64616 +#define IBXConst_SNoTimers 64617 +#define IBXConst_SIB65feature 64618 +#define IBXConst_SLoginPromptFailure 64619 +#define IBXConst_SIB70feature 64620 +#define IBXConst_SIB71feature 64621 +#define IBXConst_SIB80feature 64622 +#define IBSQLMonitor_StrConnect 64623 +#define IBXConst_SOutputParsingError 64624 +#define IBXConst_SUseSpecificProcedures 64625 +#define IBXConst_SSQLMonitorAlreadyPresent 64626 +#define IBXConst_SCantPrintValue 64627 +#define IBXConst_SEOFReached 64628 +#define IBXConst_SEOFInComment 64629 +#define IBXConst_SEOFInString 64630 +#define IBXConst_SParamNameExpected 64631 +#define IBXConst_SSuccess 64632 +#define IBXConst_SDelphiException 64633 +#define IBXConst_SNoOptionsSet 64634 +#define IBXConst_SNoDestinationDirectory 64635 +#define IBXConst_SNosourceDirectory 64636 +#define IBXConst_SNoUninstallFile 64637 +#define IBXConst_SOptionNeedsClient 64638 +#define IBXConst_SOptionNeedsServer 64639 +#define IBXConst_SIndexFieldMissing 64640 +#define IBXConst_SInvalidCancellation 64641 +#define IBXConst_SInvalidEvent 64642 +#define IBXConst_SMaximumEvents 64643 +#define IBXConst_SNoEventsRegistered 64644 +#define IBXConst_SInvalidQueueing 64645 +#define IBXConst_SInvalidRegistration 64646 +#define IBXConst_SInvalidBatchMove 64647 +#define IBXConst_SSQLDialectInvalid 64648 +#define IBXConst_SSPBConstantNotSupported 64649 +#define IBXConst_SSPBConstantUnknown 64650 +#define IBXConst_SServiceActive 64651 +#define IBXConst_SServiceInActive 64652 +#define IBXConst_SServerNameMissing 64653 +#define IBXConst_SQueryParamsError 64654 +#define IBXConst_SStartParamsError 64655 +#define IBXConst_SFieldUnsupportedType 64656 +#define IBXConst_SCircularDataLink 64657 +#define IBXConst_SEmptySQLStatement 64658 +#define IBXConst_SIsASelectStatement 64659 +#define IBXConst_SRequiredParamNotSet 64660 +#define IBXConst_SNoStoredProcName 64661 +#define IBXConst_SIsAExecuteProcedure 64662 +#define IBXConst_SUpdateFailed 64663 +#define IBXConst_SNotCachedUpdates 64664 +#define IBXConst_SNotLiveRequest 64665 +#define IBXConst_SNoProvider 64666 +#define IBXConst_SNoRecordsAffected 64667 +#define IBXConst_SNoTableName 64668 +#define IBXConst_SCannotCreatePrimaryIndex 64669 +#define IBXConst_SCannotDropSystemIndex 64670 +#define IBXConst_STableNameMismatch 64671 +#define IBXConst_SNotEditing 64672 +#define IBXConst_SCannotInsert 64673 +#define IBXConst_SCannotPost 64674 +#define IBXConst_SCannotUpdate 64675 +#define IBXConst_SCannotDelete 64676 +#define IBXConst_SCannotRefresh 64677 +#define IBXConst_SBufferNotSet 64678 +#define IBXConst_SCircularReference 64679 +#define IBXConst_SSQLParseError 64680 +#define IBXConst_SUserAbort 64681 +#define IBXConst_SDataSetUniDirectional 64682 +#define IBXConst_SCannotCreateSharedResource 64683 +#define IBXConst_SWindowsAPIError 64684 +#define IBXConst_SColumnListsDontMatch 64685 +#define IBXConst_SColumnTypesDontMatch 64686 +#define IBXConst_SCantEndSharedTransaction 64687 +#define IBXConst_SSQLOpen 64688 +#define IBXConst_SSQLClosed 64689 +#define IBXConst_SDatasetOpen 64690 +#define IBXConst_SDatasetClosed 64691 +#define IBXConst_SUnknownSQLDataType 64692 +#define IBXConst_SInvalidColumnIndex 64693 +#define IBXConst_SInvalidParamColumnIndex 64694 +#define IBXConst_SInvalidDataConversion 64695 +#define IBXConst_SColumnIsNotNullable 64696 +#define IBXConst_SBlobCannotBeRead 64697 +#define IBXConst_SBlobCannotBeWritten 64698 +#define IBXConst_SEmptyQuery 64699 +#define IBXConst_SCannotOpenNonSQLSelect 64700 +#define IBXConst_SNoFieldAccess 64701 +#define IBXConst_SFieldReadOnly 64702 +#define IBXConst_SFieldNotFound 64703 +#define IBXConst_SDatabaseClosed 64704 +#define IBXConst_SDatabaseOpen 64705 +#define IBXConst_SDatabaseNameMissing 64706 +#define IBXConst_SNotInTransaction 64707 +#define IBXConst_SInTransaction 64708 +#define IBXConst_STimeoutNegative 64709 +#define IBXConst_SNoDatabasesInTransaction 64710 +#define IBXConst_SUpdateWrongDB 64711 +#define IBXConst_SUpdateWrongTR 64712 +#define IBXConst_SDatabaseNotAssigned 64713 +#define IBXConst_STransactionNotAssigned 64714 +#define IBXConst_SXSQLDAIndexOutOfRange 64715 +#define IBXConst_SXSQLDANameDoesNotExist 64716 +#define IBXConst_SEOF 64717 +#define IBXConst_SBOF 64718 +#define IBXConst_SInvalidStatementHandle 64719 +#define uDARes_err_SQLNotPermitted 64720 +#define IBXConst_SUnknownError 64721 +#define IBXConst_SInterBaseMissing 64722 +#define IBXConst_SInterBaseInstallMissing 64723 +#define IBXConst_SIB60feature 64724 +#define IBXConst_SNotSupported 64725 +#define IBXConst_SNotPermitted 64726 +#define IBXConst_SFileAccessError 64727 +#define IBXConst_SConnectionTimeout 64728 +#define IBXConst_SCannotSetDatabase 64729 +#define IBXConst_SCannotSetTransaction 64730 +#define IBXConst_SOperationCancelled 64731 +#define IBXConst_SDPBConstantNotSupported 64732 +#define IBXConst_SDPBConstantUnknown 64733 +#define IBXConst_STPBConstantNotSupported 64734 +#define IBXConst_STPBConstantUnknown 64735 +#define uDARes_err_InvalidDLL 64736 +#define uDARes_err_UnknownDriver 64737 +#define uDARes_err_FieldIsNotBound 64738 +#define uDARes_err_CannotFindField 64739 +#define uDARes_err_LoadPackageFailed 64740 +#define uDARes_err_InvalidDriverReference 64741 +#define uDARes_err_CannotFindStatement 64742 +#define uDARes_err_CannotFindDefaultItem 64743 +#define uDARes_err_PoolIsNotEmpty 64744 +#define uDARes_err_MaxPoolSizeReached 64745 +#define uDARes_err_LAMEDataset 64746 +#define uDARes_err_DARDMInvalidSchema 64747 +#define uDARes_err_DARDMCannotFindProxessorForDelta 64748 +#define uDARes_err_NeedShareMem 64749 +#define uDARes_err_DatasetNotAccessible 64750 +#define uDARes_err_CommandNotAccessible 64751 #define JvResources_RsClInfoBk 64752 #define JvResources_RsGradientActiveCaption 64753 #define JvResources_RsGradientInactiveCaption 64754 @@ -256,10 +257,10 @@ #define uDARes_err_DriverManagerAlreadyCreated 64761 #define uDARes_err_DriverManagerNotAssigned 64762 #define uDARes_err_FieldTypeNotSupported 64763 -#define uDARes_err_InvalidDataset 64764 -#define uDARes_err_CannotFindItem 64765 -#define uDARes_err_DriverAlreadyLoaded 64766 -#define uDARes_err_InvalidDLL 64767 +#define uDARes_err_NotSupported 64764 +#define uDARes_err_InvalidDataset 64765 +#define uDARes_err_CannotFindItem 64766 +#define uDARes_err_DriverAlreadyLoaded 64767 #define JvResources_RsClWindowText 64768 #define JvResources_RsClCaptionText 64769 #define JvResources_RsClActiveBorder 64770 @@ -1030,6 +1031,7 @@ #define SysConst_SAccessDenied 65535 STRINGTABLE BEGIN + cxEditConsts_scxRegExprTooBigReferenceNumber, "Too big reference number" cxEditConsts_scxRegExprCantCreateEmptyEnum, "Can't create empty enumeration" cxEditConsts_scxRegExprSubrangeOrder, "The starting character of the subrange must be less than the finishing one" cxEditConsts_scxRegExprHexNumberExpected0, "Hexadecimal number expected" @@ -1042,6 +1044,7 @@ BEGIN cxEditConsts_scxRegExprCantUseParameterQuantifier, "The parameter quantifier cannot be applied here" cxEditConsts_scxMaskEditRegExprError, "Regular expression errors:" cxEditConsts_scxMaskEditInvalidEditValue, "The edit value is invalid" + cxEditConsts_cxSDateEOM, "eom" cxEditConsts_cxSDateNow, "now" cxEditConsts_scxSEditRepositoryButtonItem, "ButtonEdit|Represents an edit control with embedded buttons" cxEditConsts_scxSEditRepositoryMaskItem, "MaskEdit|Represents a generic masked edit control." @@ -1057,7 +1060,7 @@ BEGIN cxEditConsts_scxRegExprIllegalSymbol, "Illegal '%s'" cxEditConsts_scxRegExprIllegalQuantifier, "Illegal quantifier '%s'" cxEditConsts_scxRegExprIllegalIntegerValue, "Illegal integer value" - cxEditConsts_scxRegExprTooBigReferenceNumber, "Too big reference number" + cxEditConsts_cxSDateTomorrow, "tomorrow" cxEditConsts_cxSDateSunday, "Sunday" cxEditConsts_cxSDateMonday, "Monday" cxEditConsts_cxSDateTuesday, "Tuesday" @@ -1073,7 +1076,7 @@ BEGIN cxEditConsts_cxSDateSixth, "sixth" cxEditConsts_cxSDateSeventh, "seventh" cxEditConsts_cxSDateBOM, "bom" - cxEditConsts_cxSDateEOM, "eom" + pnglang_EPNGCannotAssignChunkText, "The chunks must be compatible to be assigned." pnglang_EPNGUnexpectedEndText, "This \"Portable Network Graphics\" image is invalid because the decoder found an unexpected end of the file." pnglang_EPNGNoImageDataText, "This \"Portable Network Graphics\" image contains no data." pnglang_EPNGCannotChangeSizeText, "The \"Portable Network Graphics\" image can not be resize by changing width and height properties. Try assigning the image from a bitmap." @@ -1089,7 +1092,7 @@ BEGIN cxEditConsts_cxSEditValueOutOfBounds, "Value out of bounds" cxEditConsts_cxSDateToday, "today" cxEditConsts_cxSDateYesterday, "yesterday" - cxEditConsts_cxSDateTomorrow, "tomorrow" + IBSQLMonitor_StrRollback, ": [Rollback]" IBSQLMonitor_StrRollbackRetainin, ": [Rollback retaining (Soft rollback)]" IBSQLMonitor_StrStartTransaction, ": [Start transaction]" IBSQLMonitor_StrApplication, "[Application: " @@ -1105,7 +1108,7 @@ BEGIN pnglang_EPNGUnknownCriticalChunkText, "This \"Portable Network Graphics\" image contains an unknown critical part which could not be decoded." pnglang_EPNGUnknownCompressionText, "This \"Portable Network Graphics\" image is encoded with an unknown compression scheme which could not be decoded." pnglang_EPNGUnknownInterlaceText, "This \"Portable Network Graphics\" image uses an unknown interlace scheme which could not be decoded." - pnglang_EPNGCannotAssignChunkText, "The chunks must be compatible to be assigned." + IBSQLMonitor_StrDisconnect, ": [Disconnect]" IBSQLMonitor_StrMisc, "[Misc] " IBSQLMonitor_StrError, "[Error] " IBSQLMonitor_StrAttach, ": [Attach]" @@ -1121,7 +1124,7 @@ BEGIN IBSQLMonitor_StrPlanCantRetrive, " Plan: Can't retrieve plan - too large" IBSQLMonitor_StrCommitHardComm, ": [Commit (Hard commit)]" IBSQLMonitor_StrCommitRetaining, ": [Commit retaining (Soft commit)]" - IBSQLMonitor_StrRollback, ": [Rollback]" + IBXConst_SInvalidOption, "Invalid option specified" IBXConst_SInvalidOnErrorResult, "Unexpected onError return value" IBXConst_SInvalidOnStatusResult, "Unexpected onStatus return value" IBXConst_SDPBConstantUnknownEx, "DPB Constant (%s) is unknown" @@ -1137,7 +1140,7 @@ BEGIN IBXConst_SIB71feature, "%s is an InterBase 7.1 function. Please upgrade to InterBase 7.1 to use this functonality" IBXConst_SIB80feature, "%s is an InterBase 2007 function. Please upgrade to InterBase 2007 to use this functonality" IBSQLMonitor_StrConnect, ": [Connect]" - IBSQLMonitor_StrDisconnect, ": [Disconnect]" + IBXConst_SOutputParsingError, "Unexpected Output buffer value" IBXConst_SUseSpecificProcedures, "Generic ServiceStart not applicable: Use Specific Procedures to set configuration params" IBXConst_SSQLMonitorAlreadyPresent, "SQL Monitor Instance is already present" IBXConst_SCantPrintValue, "Cannot print value" @@ -1153,7 +1156,7 @@ BEGIN IBXConst_SNoUninstallFile, "Uninstall File Name is not set" IBXConst_SOptionNeedsClient, "%s component requires Client to function properly" IBXConst_SOptionNeedsServer, "%s component requires Server to function properly" - IBXConst_SInvalidOption, "Invalid option specified" + IBXConst_SIndexFieldMissing, "Index Field Missing" IBXConst_SInvalidCancellation, "Cannot Cancel events while processing" IBXConst_SInvalidEvent, "Invalid Event" IBXConst_SMaximumEvents, "Exceded Maximum Event limits" @@ -1169,7 +1172,7 @@ BEGIN IBXConst_SServerNameMissing, "Server Name Missing" IBXConst_SQueryParamsError, "Query Parameters missing or incorrect" IBXConst_SStartParamsError, "start Parameters missing or incorrect" - IBXConst_SOutputParsingError, "Unexpected Output buffer value" + IBXConst_SFieldUnsupportedType, "Unsupported Field Type" IBXConst_SCircularDataLink, "Circular DataLink Reference" IBXConst_SEmptySQLStatement, "Empty SQL Statement" IBXConst_SIsASelectStatement, "use Open for a Select Statement" @@ -1185,7 +1188,7 @@ BEGIN IBXConst_SCannotCreatePrimaryIndex, "Cannot Create Primary Index; are created automatically" IBXConst_SCannotDropSystemIndex, "Cannot Drop System Index" IBXConst_STableNameMismatch, "Table Name Mismatch" - IBXConst_SIndexFieldMissing, "Index Field Missing" + IBXConst_SNotEditing, "Not in edit mode" IBXConst_SCannotInsert, "Cannot insert into dataset. (No insert query)" IBXConst_SCannotPost, "Cannot post. (No update/insert query)" IBXConst_SCannotUpdate, "Cannot update. (No update query)" @@ -1201,7 +1204,7 @@ BEGIN IBXConst_SColumnListsDontMatch, "Column lists do not match" IBXConst_SColumnTypesDontMatch, "Column types don't match. (From index: %d; To index: %d)" IBXConst_SCantEndSharedTransaction, "Can't end a shared transaction unless it is forced and equal to the transaction's TimeoutAction" - IBXConst_SFieldUnsupportedType, "Unsupported Field Type" + IBXConst_SSQLOpen, "IBSQL Open" IBXConst_SSQLClosed, "IBSQL Closed" IBXConst_SDatasetOpen, "Dataset open" IBXConst_SDatasetClosed, "Dataset closed" @@ -1217,7 +1220,7 @@ BEGIN IBXConst_SNoFieldAccess, "No access to field \"%s\"" IBXConst_SFieldReadOnly, "Field \"%s\" is read-only" IBXConst_SFieldNotFound, "Field \"%s\" not found" - IBXConst_SNotEditing, "Not in edit mode" + IBXConst_SDatabaseClosed, "Cannot perform operation -- DB is not open" IBXConst_SDatabaseOpen, "Cannot perform operation -- DB is currently open" IBXConst_SDatabaseNameMissing, "Database name is missing" IBXConst_SNotInTransaction, "Transaction is not active" @@ -1233,7 +1236,7 @@ BEGIN IBXConst_SEOF, "End of file" IBXConst_SBOF, "Beginning of file" IBXConst_SInvalidStatementHandle, "Invalid statement handle" - IBXConst_SSQLOpen, "IBSQL Open" + uDARes_err_SQLNotPermitted, "Execution of the specified SQL statement has not been permitted." IBXConst_SUnknownError, "Unknown error" IBXConst_SInterBaseMissing, "InterBase library gds32.dll not found in the path. Please install InterBase to use this functionality" IBXConst_SInterBaseInstallMissing, "InterBase Install DLL ibinstall.dll not found in the path. Please install InterBase 6 to use this functionality" @@ -1249,7 +1252,7 @@ BEGIN IBXConst_SDPBConstantUnknown, "DPB Constant (%d) is unknown" IBXConst_STPBConstantNotSupported, "TPB Constant (isc_tpb_%s) is unsupported" IBXConst_STPBConstantUnknown, "TPB Constant (%d) is unknown" - IBXConst_SDatabaseClosed, "Cannot perform operation -- DB is not open" + uDARes_err_InvalidDLL, "%s is not a valid Data Abstract driver" uDARes_err_UnknownDriver, "Unknown driver %s" uDARes_err_FieldIsNotBound, "Field is not bound" uDARes_err_CannotFindField, "Cannot find field %s" @@ -1265,7 +1268,6 @@ BEGIN uDARes_err_NeedShareMem, "To use dynamically loaded drivers, you must build your application with ShareMem." uDARes_err_DatasetNotAccessible, "Access to dataset %s has not been permitted." uDARes_err_CommandNotAccessible, "executon of command %s has not been permitted." - uDARes_err_SQLNotPermitted, "Execution of the specified SQL statement has not been permitted." JvResources_RsClInfoBk, "Tooltip background" JvResources_RsGradientActiveCaption, "Gradient Active Caption" JvResources_RsGradientInactiveCaption, "Gradient Inactive Caption" @@ -1278,10 +1280,10 @@ BEGIN uDARes_err_DriverManagerAlreadyCreated, "An instance of a TDADriverManager was already initialized. Only one driver manager per module is allowed" uDARes_err_DriverManagerNotAssigned, "Driver Manager is not assigned" uDARes_err_FieldTypeNotSupported, "FieldType %s (%d) is not supported" + uDARes_err_NotSupported, "Not supported" uDARes_err_InvalidDataset, "Invalid or NIL dataset" uDARes_err_CannotFindItem, "Cannot find %s \"%s\" in collection of type %s" uDARes_err_DriverAlreadyLoaded, "Driver %s is already loaded" - uDARes_err_InvalidDLL, "%s is not a valid Data Abstract driver" JvResources_RsClWindowText, "Window text" JvResources_RsClCaptionText, "Active window title bar text" JvResources_RsClActiveBorder, "Active window border" @@ -2068,37 +2070,37 @@ END /* C:\Codigo Tecsitel\Lib\FastReport3\frxDialogForm.DFM */ /* C:\Codigo Tecsitel\Lib\FastReport3\frxPassw.dfm */ /* C:\Codigo Tecsitel\Lib\FastReport3\frxClass.RES */ -/* C:\Codigo Tecsitel\Lib\jvcl\JvConsts.res */ +/* C:\Codigo Tecsitel\Lib\JVCL\JvConsts.res */ /* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */ -/* C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\Drivers\DataAbstract_IBXDriver_Glyphs.res */ -/* C:\Codigo Tecsitel\Lib\jvcl\JvLogForm.dfm */ -/* C:\Codigo tecsitel\Source\Servidor\uDataModuleServer.dfm */ -/* C:\Codigo tecsitel\Source\Servidor\Configuracion\uFrameConfiguracion.dfm */ +/* C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Dcu\D11\DataAbstract_IBXDriver_Glyphs.res */ +/* C:\Codigo Tecsitel\Lib\JVCL\JvLogForm.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\uDataModuleServer.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\Configuracion\uFrameConfiguracion.dfm */ /* C:\Codigo Tecsitel\Lib\DevExpressVCL\dxOffice11.res */ /* C:\Codigo Tecsitel\Lib\DevExpressVCL\cxControls.res */ /* C:\Codigo Tecsitel\Lib\DevExpressVCL\cxLookAndFeelPainters.res */ /* c:\archivos de programa\codegear\rad studio\5.0\lib\FileCtrl.res */ /* C:\Codigo Tecsitel\Lib\DevExpressVCL\cxEdit.res */ /* C:\Codigo Tecsitel\Lib\DevExpressVCL\cxShellBrowser.dfm */ -/* C:\Codigo tecsitel\Source\Servidor\Configuracion\uConexionBD.dfm */ -/* C:\Codigo tecsitel\Source\Servidor\Configuracion\uConfGeneral.dfm */ -/* C:\Codigo tecsitel\Source\Servidor\Configuracion\uConfiguracion.dfm */ -/* C:\Codigo tecsitel\Source\Servidor\uAcercaDe.dfm */ -/* C:\Codigo tecsitel\Source\Servidor\uServerMainForm.dfm */ -/* C:\Codigo tecsitel\Source\Servidor\srvLogin_Impl.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Contactos\Servidor\srvContactos_Impl.dfm */ -/* C:\Codigo tecsitel\Source\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.dfm */ -/* C:\Codigo tecsitel\Source\Servidor\Configuracion\srvConfiguracion_Impl.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Familias\Servidor\srvFamilias_Impl.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.dfm */ -/* C:\Codigo tecsitel\Source\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Articulos\Servidor\srvArticulos_Impl.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.dfm */ -/* C:\Codigo tecsitel\Source\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.dfm */ -/* C:\Codigo tecsitel\Source\Servidor\FactuGES_Server.res */ -/* C:\Codigo tecsitel\Source\Servidor\..\Servicios\RODLFile.res */ -/* C:\Codigo tecsitel\Source\Servidor\FactuGES_Server.drf */ +/* C:\Codigo Tecsitel\Source\Servidor\Configuracion\uConexionBD.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\Configuracion\uConfGeneral.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\Configuracion\uConfiguracion.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\uAcercaDe.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\uServerMainForm.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\srvLogin_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Servidor\srvContactos_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\Configuracion\srvConfiguracion_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Familias\Servidor\srvFamilias_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Articulos\Servidor\srvArticulos_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\FactuGES_Server.res */ +/* C:\Codigo Tecsitel\Source\Servidor\..\Servicios\RODLFile.res */ +/* C:\Codigo Tecsitel\Source\Servidor\FactuGES_Server.drf */ diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index a0df5a52..419bbf9a 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,4 +1,4 @@ -MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico" +MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico" 1 VERSIONINFO FILEVERSION 3,0,0,0 PRODUCTVERSION 3,0,0,0 @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "3.0.0.0\0" VALUE "ProductVersion", "3.0.0.0\0" - VALUE "CompileDate", "viernes, 02 de noviembre de 2007 11:58\0" + VALUE "CompileDate", "jueves, 08 de noviembre de 2007 19:47\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/uDataModuleServer.dfm b/Source/Servidor/uDataModuleServer.dfm index da67d563..fa6c82af 100644 --- a/Source/Servidor/uDataModuleServer.dfm +++ b/Source/Servidor/uDataModuleServer.dfm @@ -39,9 +39,9 @@ object dmServer: TdmServer item Name = 'IBX' ConnectionString = - 'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Database\FACTUG' + - 'ES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO885' + - '9_1;' + 'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Output\Debug\Da' + + 'tabase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;C' + + 'harset=ISO8859_1;' ConnectionType = 'Interbase' Default = True end>