diff --git a/Build/Build.fbp5 b/Build/Build.fbp5 index 6f1991ba..1bc1bdb0 100644 --- a/Build/Build.fbp5 +++ b/Build/Build.fbp5 @@ -611,7 +611,7 @@ source_path True 3082 - 3 + 1 0 0 False @@ -633,7 +633,7 @@ source_path True @@ -4420,7 +4420,7 @@ Comments= False False - False + True True False False @@ -4430,7 +4430,7 @@ Comments= False False False - 3081 + 3082 1 0 @@ -4452,7 +4452,16 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -5622,14 +5631,14 @@ Comments= - False + True True False True False 0 - True + False 0 1000 False @@ -5645,7 +5654,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -5669,7 +5678,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -5687,42 +5696,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 @@ -5732,28 +5729,28 @@ Comments= 4194304 False False - False + True True %library_path% 0 - True + False 0 1048576 16384 True - True + False %output_path% False False fa8 - True + False False True True - False + True False WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; @@ -5774,7 +5771,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -5798,7 +5795,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -5816,42 +5813,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 @@ -5861,28 +5846,28 @@ Comments= 4194304 False False - False + True True %library_path% 0 - True + False 0 1048576 16384 True - True + False %output_path% False False fa8 - True + False False True True - False + True False WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; @@ -5903,7 +5888,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -5927,7 +5912,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -5945,42 +5930,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 @@ -5990,28 +5963,28 @@ Comments= 4194304 False False - False + True True %library_path% 0 - True + False 0 1048576 16384 True - True + False %output_path% False False fa8 - True + False False True True - False + True False WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; @@ -6032,7 +6005,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -6056,7 +6029,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -6074,42 +6047,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 @@ -6123,7 +6084,7 @@ Comments= True %library_path% 0 - True + False 0 1048576 16384 @@ -6135,7 +6096,7 @@ Comments= False fa8 - True + False False True @@ -6161,7 +6122,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -6203,7 +6164,7 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False False False False - True + False True True False @@ -6253,7 +6214,7 @@ Comments= %library_path% 0 True - 0 + 3 1048576 16384 @@ -6290,7 +6251,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -6314,7 +6275,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -6332,42 +6293,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 @@ -6377,28 +6326,28 @@ Comments= 4194304 False False - False + True True %library_path% 0 - True + False 0 1048576 16384 True - True + False %output_path% False False fa8 - True + False False True True - False + True False WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; @@ -6419,7 +6368,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -6443,7 +6392,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -6461,42 +6410,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 @@ -6510,7 +6447,7 @@ Comments= True %library_path% 0 - True + False 0 1048576 16384 @@ -6522,7 +6459,7 @@ Comments= False fa8 - True + False False True @@ -6934,412 +6871,6 @@ Comments= - - - - 0 - - - - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - 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 - [] - 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 - False - False - True - True - 0 - 1252 - 11 - 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 - [] - 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 - False - False - True - True - 0 - 1252 - 11 - 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 - [] - 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 - - - @@ -7382,7 +6913,7 @@ Comments= False False - False + True True False False @@ -7392,7 +6923,7 @@ Comments= False False False - 3081 + 3082 1 0 @@ -7415,7 +6946,16 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -9032,385 +8572,6 @@ Comments= - - - - 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 - - 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 - - - - - - 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 - - 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 - - - - - - 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 - - - @@ -10042,6 +9203,989 @@ Comments= + + + + 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 + + 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 + True + True + %library_path% + 0 + False + 0 + 1048576 + 16384 + + True + False + %output_path% + False + + False + fa8 + False + False + + True + True + True + 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 + + 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 + True + True + %library_path% + 0 + False + 0 + 1048576 + 16384 + + True + False + %output_path% + False + + False + fa8 + False + False + + True + True + True + 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 + + 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 + True + True + %library_path% + 0 + False + 0 + 1048576 + 16384 + + True + False + %output_path% + False + + False + fa8 + False + False + + True + True + True + 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 + + 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 + True + True + %library_path% + 0 + False + 0 + 1048576 + 16384 + + True + False + %output_path% + False + + False + fa8 + False + False + + True + True + True + 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 + + 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 + 0 + 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 + + + + + + + 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 + + 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 + + + + + + 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 + + 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 + + + + + + 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 + + + @@ -10463,7 +10607,7 @@ Comments= - False + True True False True @@ -10486,7 +10630,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -10510,7 +10654,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -10527,42 +10671,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 @@ -10576,7 +10708,7 @@ Comments= True %library_path% 0 - True + False 0 1048576 16384 @@ -10588,7 +10720,7 @@ Comments= False fa8 - True + False False True @@ -10614,7 +10746,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -10638,7 +10770,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -10655,42 +10787,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 @@ -10704,7 +10824,7 @@ Comments= True %library_path% 0 - True + False 0 1048576 16384 @@ -10716,7 +10836,7 @@ Comments= False fa8 - True + False False True @@ -10742,7 +10862,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -10766,7 +10886,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -10783,42 +10903,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 @@ -10832,7 +10940,7 @@ Comments= True %library_path% 0 - True + False 0 1048576 16384 @@ -10844,7 +10952,7 @@ Comments= False fa8 - True + False False True @@ -10866,7 +10974,7 @@ Comments= - False + True True False True @@ -10889,7 +10997,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -10901,7 +11009,7 @@ Comments= False False - False + True True False False @@ -10911,9 +11019,9 @@ Comments= False False False - 3081 + 3082 - 0 + 1 0 0 False @@ -10931,18 +11039,18 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False @@ -10950,23 +11058,20 @@ Comments= False False False - True + False True True False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -10980,7 +11085,7 @@ Comments= True %library_path% 0 - True + False 0 1048576 16384 @@ -10992,7 +11097,7 @@ Comments= False fa8 - True + False False True @@ -11018,7 +11123,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -11030,7 +11135,7 @@ Comments= False False - False + True True False False @@ -11040,9 +11145,9 @@ Comments= False False False - 3081 + 3082 - 0 + 1 0 0 False @@ -11060,18 +11165,18 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False @@ -11079,23 +11184,20 @@ Comments= False False False - True + False True True False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -11109,7 +11211,7 @@ Comments= True %library_path% 0 - True + False 0 1048576 16384 @@ -11121,7 +11223,7 @@ Comments= False fa8 - True + False False True @@ -11147,7 +11249,7 @@ Comments= True 0 1252 - 11 + 12 Release False @@ -11159,7 +11261,7 @@ Comments= False False - False + True True False False @@ -11169,9 +11271,9 @@ Comments= False False False - 3081 + 3082 - 0 + 1 0 0 False @@ -11189,18 +11291,18 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False @@ -11208,23 +11310,20 @@ Comments= False False False - True + False True True False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -11238,7 +11337,7 @@ Comments= True %library_path% 0 - True + False 0 1048576 16384 @@ -11250,7 +11349,7 @@ Comments= False fa8 - True + False False True @@ -12726,264 +12825,6 @@ Comments= 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 - - 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 - - @@ -13476,19 +13317,19 @@ Comments= True 0 1252 - 11 + 12 Release False - False + True True False False False - False + True True False False @@ -13498,9 +13339,9 @@ Comments= False False False - 3081 + 3082 - 0 + 1 0 0 False @@ -13517,18 +13358,18 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False @@ -13536,23 +13377,20 @@ Comments= False False False - True + False True True False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -13566,7 +13404,7 @@ Comments= True %library_path% 0 - True + False 0 1048576 16384 @@ -13578,7 +13416,7 @@ Comments= False fa8 - True + False False True @@ -13604,19 +13442,19 @@ Comments= True 0 1252 - 11 + 12 Release False - False + True True False False False - False + True True False False @@ -13626,9 +13464,9 @@ Comments= False False False - 3081 + 3082 - 0 + 1 0 0 False @@ -13645,18 +13483,18 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False @@ -13664,23 +13502,20 @@ Comments= False False False - True + False True True False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -13694,7 +13529,7 @@ Comments= True %library_path% 0 - True + False 0 1048576 16384 @@ -13706,7 +13541,7 @@ Comments= False fa8 - True + False False True @@ -13732,19 +13567,19 @@ Comments= True 0 1252 - 11 + 12 Release False - False + True True False False False - False + True True False False @@ -13754,9 +13589,9 @@ Comments= False False False - 3081 + 3082 - 0 + 1 0 0 False @@ -13774,18 +13609,18 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False @@ -13793,23 +13628,20 @@ Comments= False False False - True + False True True False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -13823,7 +13655,7 @@ Comments= True %library_path% 0 - True + False 0 1048576 16384 @@ -13835,7 +13667,7 @@ Comments= False fa8 - True + False False True @@ -13861,19 +13693,19 @@ Comments= True 0 1252 - 11 + 12 Release False - False + True True False False False - False + True True False False @@ -13883,9 +13715,9 @@ Comments= False False False - 3081 + 3082 - 0 + 1 0 0 False @@ -13903,18 +13735,18 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False @@ -13922,23 +13754,20 @@ Comments= False False False - True + False True True False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -13952,7 +13781,7 @@ Comments= True %library_path% 0 - True + False 0 1048576 16384 @@ -13964,7 +13793,7 @@ Comments= False fa8 - True + False False True @@ -14014,7 +13843,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -14035,16 +13864,7 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -14057,17 +13877,14 @@ Comments= False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -14081,7 +13898,7 @@ Comments= True %library_path% 0 - True + False 3 1048576 16384 @@ -14093,7 +13910,7 @@ Comments= False fa8 - True + False False True @@ -14143,7 +13960,7 @@ Comments= False 3081 - 0 + 1 0 0 False @@ -14164,16 +13981,7 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -14186,17 +13994,14 @@ Comments= False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -14210,7 +14015,7 @@ Comments= True %library_path% 0 - True + False 3 1048576 16384 @@ -14222,7 +14027,7 @@ Comments= False fa8 - True + False False True @@ -14260,7 +14065,7 @@ Comments= False False - False + True True False False @@ -14270,9 +14075,9 @@ Comments= False False False - 3081 + 3082 - 0 + 1 0 0 False @@ -14295,13 +14100,13 @@ Comments= False @@ -14315,17 +14120,14 @@ Comments= False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -14339,7 +14141,7 @@ Comments= True %library_path% 0 - True + False 3 1048576 16384 @@ -14351,7 +14153,7 @@ Comments= False fa8 - True + False False True @@ -14389,7 +14191,7 @@ Comments= False False - False + True True False False @@ -14399,9 +14201,9 @@ Comments= False False False - 3081 + 3082 - 0 + 1 0 0 False @@ -14424,13 +14226,13 @@ Comments= False @@ -14444,17 +14246,14 @@ Comments= False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -14468,7 +14267,7 @@ Comments= True %library_path% 0 - True + False 3 1048576 16384 @@ -14480,7 +14279,7 @@ Comments= False fa8 - True + False False True @@ -14506,12 +14305,12 @@ Comments= True 0 1252 - 11 + 12 Release False - False + True True False @@ -14548,7 +14347,7 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False False False False - True + False True True False @@ -14598,7 +14397,7 @@ Comments= %library_path% 0 True - 0 + 3 1048576 16384 @@ -14891,12 +14690,12 @@ Comments= True 0 1252 - 11 + 12 Release False - False + True True False @@ -14933,7 +14732,7 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False False False False - True + False True True False @@ -14983,7 +14782,7 @@ Comments= %library_path% 0 True - 0 + 3 1048576 16384 @@ -15020,12 +14819,12 @@ Comments= True 0 1252 - 11 + 12 Release False - False + True True False @@ -15062,7 +14861,7 @@ Comments= False False False - [] + [usPackages,usCompiler,usLinker,usVersionInfo] False False False False False - True + False True True False @@ -15112,7 +14911,7 @@ Comments= %library_path% 0 True - 0 + 3 1048576 16384 @@ -15161,7 +14960,7 @@ Comments= False False - False + True True False False @@ -15171,9 +14970,9 @@ Comments= False False False - 3081 + 3082 - 0 + 1 0 0 False @@ -15196,13 +14995,13 @@ Comments= False @@ -15216,17 +15015,14 @@ Comments= False False %package_path% - + False %modules_dcp_path% - True + False - True + False False True @@ -15240,8 +15036,8 @@ Comments= True %library_path% 0 - True - 3 + False + 0 1048576 16384 @@ -15252,7 +15048,7 @@ Comments= False fa8 - True + False False True diff --git a/Database/Anterior/VISTAS.SQL b/Database/Anterior/VISTAS.SQL index 8a7051c3..05bc8cc3 100644 --- a/Database/Anterior/VISTAS.SQL +++ b/Database/Anterior/VISTAS.SQL @@ -1370,3 +1370,578 @@ FROM LEFT OUTER JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID_REMESA = REMESAS_PROVEEDOR.ID) LEFT OUTER JOIN V_REC_PRO_COMPENSADOS ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID) GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17; + + + + + + + + +DROP VIEW V_INVENTARIO; +DROP VIEW V_INVENTARIO_AUX; +DROP VIEW V_INV_STOCK; +DROP VIEW V_INV_STOCK_AUX; +DROP VIEW V_INV_ENTRADAS; +DROP VIEW V_INV_ENTRADAS_AUX; +DROP VIEW V_INV_ENTRADAS_MOV; +DROP VIEW V_INV_ENTRADAS_ALB; +DROP VIEW V_INV_SALIDAS; +DROP VIEW V_INV_ENTRADAS_PENDIENTES; +DROP VIEW V_INV_SALIDAS_AUX; +DROP VIEW V_INV_SALIDAS_ALB; +DROP VIEW V_INV_SALIDAS_MOV; +DROP VIEW V_INV_RESERVAS; +DROP VIEW V_HISTORICO_MOVIMIENTOS; +DROP VIEW V_HIS_MOV_AUX; +DROP VIEW V_HIS_MOV_ALB_CLI; +DROP VIEW V_HIS_MOV_ALB_PROV; +DROP VIEW V_HIS_MOV_REGULARIZACIONES; +DROP VIEW V_ALB_CLI_DETALLES; + +/* +INVENTARIO +*/ + +/*Agrupa los artículos de un mismo albarán (ya que en un albarán puede existir varias lineas con el mismo artículo). + Para cada artículo de albarán le ponemos el pedido con el que esta asociado, la situacion y el almacén de donde salió. + Se quitan todos los artículos que no tengamos en catálogo (ID_ARTICULO nulo, lineas de detalle libres) -> esta premisa la cambiamos para que + no se falsee la situación de los pedidos, asi pues todo articulo que no este en el catálogo lo pondremos con ID_ARTICULO 0. + Se quitan también aquellos que no seán inventariables -> esta premisa falsearía la situación de los pedidos*/ + +CREATE VIEW V_ALB_CLI_DETALLES( + ID_ALBARAN, + ID_PEDIDO, + SITUACION, + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, + ALBARANES_CLIENTE.ID_PEDIDO, + V_ALB_CLI_SITUACION.SITUACION, + ALBARANES_CLIENTE.ID_ALMACEN, + COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0), + SUM(COALESCE(ALBARANES_CLIENTE_DETALLES.CANTIDAD, 0)) + +FROM ALBARANES_CLIENTE_DETALLES +LEFT JOIN ALBARANES_CLIENTE +ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = ALBARANES_CLIENTE.ID) +LEFT JOIN V_ALB_CLI_SITUACION +ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = V_ALB_CLI_SITUACION.ID) + +/*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos +LEFT JOIN ARTICULOS +ON (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID) + +WHERE (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO is not null) +AND (ARTICULOS.INVENTARIABLE = 1) +*/ + +group BY ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, + ALBARANES_CLIENTE.ID_PEDIDO, + V_ALB_CLI_SITUACION.SITUACION, + ALBARANES_CLIENTE.ID_ALMACEN, + ALBARANES_CLIENTE_DETALLES.ID_ARTICULO; + + + +/*Todos los articulos reservados en almacén para algún albarán (Pendiente))*/ + +CREATE VIEW V_INV_RESERVAS( + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) +FROM V_ALB_CLI_DETALLES +WHERE (ID_ALMACEN IS NOT NULL) +AND (SITUACION = 'PENDIENTE') +GROUP BY ID_ALMACEN, ID_ARTICULO; + +/*Todas las salidas de articulos a partir de los movimientos libres realizados por el usuario*/ + +CREATE VIEW V_INV_SALIDAS_MOV( + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) +FROM MOVIMIENTOS +WHERE TIPO = 'S' +GROUP BY ID_ALMACEN, ID_ARTICULO; + + +/*Todas las salidas de articulos a partir de los albaranes de cliente*/ +/*No tendremos en cuenta los albaranes que no tengan un almacén origen, es decir que no se contabilizarán*/ +/*aquellos albaranes que se manden directamente al cliente sin pasar por almacén*/ +/*Serán salidas en el momento que el albarán este enviado o servido, si esta pendiente estará reservado*/ + +CREATE VIEW V_INV_SALIDAS_ALB( + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) +FROM V_ALB_CLI_DETALLES +WHERE (ID_ALMACEN IS NOT NULL) +AND (SITUACION in ('ENVIADO', 'SERVIDO')) +GROUP BY ID_ALMACEN, ID_ARTICULO; + + +/*Al igual que en las vistas de articulos de pedido de proveedor y cliente, es mucho más rápido y mejor para este*/ +/*caso una unión y luego una agrupación que un FULL OUTER JOIN*/ + +CREATE VIEW V_INV_SALIDAS_AUX( + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT ID_ALMACEN, + ID_ARTICULO, + CANTIDAD +FROM V_INV_SALIDAS_ALB +UNION ALL +SELECT ID_ALMACEN, + ID_ARTICULO, + CANTIDAD +FROM V_INV_SALIDAS_MOV; + +/*Todos los articulos pedidos a proveedor y que todavía no he recibido, y que tienen un almacén destino*/ + +CREATE VIEW V_INV_ENTRADAS_PENDIENTES( + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT PEDIDOS_PROVEEDOR.ID_ALMACEN, V_PED_PROV_ARTICULOS.ID_ARTICULO, SUM(V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE) +FROM V_PED_PROV_ARTICULOS +LEFT JOIN PEDIDOS_PROVEEDOR +ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS.ID_PEDIDO) +WHERE (PEDIDOS_PROVEEDOR.ID_ALMACEN IS NOT NULL) +GROUP BY PEDIDOS_PROVEEDOR.ID_ALMACEN, V_PED_PROV_ARTICULOS.ID_ARTICULO; + +/*Todas las salidas de almacen, bien por albarán o por movimiento libre, a partir de la vista auxiliar anterior*/ + +CREATE VIEW V_INV_SALIDAS( + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT +ID_ALMACEN, +ID_ARTICULO, +SUM(CANTIDAD) as CANTIDAD +FROM V_INV_SALIDAS_AUX + +GROUP BY ID_ALMACEN, + ID_ARTICULO; + + + +/*Todas las entradas de articulos a partir de los albaranes de proveedor*/ +/*No tendremos en cuenta los albaranes que no tengan un almacén destino, es decir que no se contabilizarán*/ +/*aquellos albaranes que se manden directamente al cliente*/ + +CREATE VIEW V_INV_ENTRADAS_ALB( + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) +FROM V_ALB_PROV_DETALLES +WHERE (ID_ALMACEN IS NOT NULL) +GROUP BY ID_ALMACEN, ID_ARTICULO; + + + +/*Todas las entradas de articulos a partir de los movimientos libres realizados por el usuario*/ + +CREATE VIEW V_INV_ENTRADAS_MOV( + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) +FROM MOVIMIENTOS +WHERE TIPO = 'E' +GROUP BY ID_ALMACEN, ID_ARTICULO; + + + +/*Al igual que en las vistas de articulos de pedido de proveedor y cliente, es mucho más rápido y mejor para este*/ +/*caso una unión y luego una agrupación que un FULL OUTER JOIN*/ + +CREATE VIEW V_INV_ENTRADAS_AUX( + TIPO, + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT 'ALB', + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD +FROM V_INV_ENTRADAS_ALB +UNION ALL +SELECT 'MOV', + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD +FROM V_INV_ENTRADAS_MOV; + + +/*Todas las entradas en almacen, bien por albarán o por movimiento libre, a partir de la vista auxiliar anterior*/ + +CREATE VIEW V_INV_ENTRADAS( + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT +ID_ALMACEN, +ID_ARTICULO, +SUM(CANTIDAD) as CANTIDAD +FROM V_INV_ENTRADAS_AUX + +GROUP BY ID_ALMACEN, + ID_ARTICULO; + +/*Al igual que en las vistas de articulos de pedido de proveedor y cliente, es mucho más rápido y mejor para este*/ +/*caso una unión y luego una agrupación que un FULL OUTER JOIN*/ + +CREATE VIEW V_INV_STOCK_AUX( + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD_ENTRADA, + CANTIDAD_SALIDA) +AS +SELECT ID_ALMACEN, + ID_ARTICULO, + CANTIDAD as CANTIDAD_ENTRADA, + 0 as CANTIDAD_SALIDA +FROM V_INV_ENTRADAS +UNION ALL +SELECT ID_ALMACEN, + ID_ARTICULO, + 0 as CANTIDAD_ENTRADA, + CANTIDAD as CANTIDAD_SALIDA +FROM V_INV_SALIDAS; + +/* Stock actual por articulo y almacén, calculado a partir de la vista auxiliar anterior*/ + +CREATE VIEW V_INV_STOCK( + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT +ID_ALMACEN, +ID_ARTICULO, +(SUM(CANTIDAD_ENTRADA) - SUM(CANTIDAD_SALIDA)) as CANTIDAD +FROM V_INV_STOCK_AUX +GROUP BY ID_ALMACEN, + ID_ARTICULO; + + +/*Tomamos la misma filosofia que en los casos anteriores ya que los tiempos se reducen, que es una barbaridad*/ + +CREATE VIEW V_INVENTARIO_AUX( + ID_ALMACEN, + ID_ARTICULO, + STOCK, + PENDIENTE_RECEPCION, + RESERVA) +AS +SELECT ID_ALMACEN, ID_ARTICULO, CANTIDAD as STOCK, 0 as PENDIENTES, 0 as RESERVADAS +FROM V_INV_STOCK +UNION ALL +SELECT ID_ALMACEN, ID_ARTICULO, 0 as STOCK, CANTIDAD as PENDIENTES, 0 AS RESERVADAS +FROM V_INV_ENTRADAS_PENDIENTES +UNION ALL +SELECT ID_ALMACEN, ID_ARTICULO, 0 as STOCK, 0 as PENDIENTES, CANTIDAD AS RESERVADAS +FROM V_INV_RESERVAS; + +/*Vista de inventario final OPTIMIZADISIMAAAA*/ +CREATE VIEW V_INVENTARIO( + ID_ALMACEN, + ID_EMPRESA, + NOMBRE, + ID_ARTICULO, + REFERENCIA, + FAMILIA, + DESCRIPCION, + REFERENCIA_PROV, + PRECIO_NETO, + STOCK, + UNIDADES_ALMACEN, + COSTE_UNIDADES, + RESERVA, + PENDIENTE_RECEPCION) +AS +SELECT ID_ALMACEN, + ALMACENES.ID_EMPRESA, + ALMACENES.NOMBRE, + ID_ARTICULO, + ARTICULOS.REFERENCIA, + ARTICULOS.FAMILIA, + ARTICULOS.DESCRIPCION, + ARTICULOS.REFERENCIA_PROV, + COALESCE(ARTICULOS.PRECIO_NETO,0) as PRECIO_NETO, + (SUM(STOCK) - SUM(RESERVA)) as STOCK, + SUM(STOCK) as UNIDADES_ALMACEN, + + /*Si las unidades son negativas no se tiene en cuenta el coste*/ + CASE WHEN (SUM(STOCK) < 0) THEN 0 + ELSE (COALESCE(ARTICULOS.PRECIO_NETO,0) * SUM(STOCK)) + END as COSTE_UNIDADES, + + SUM(RESERVA) as RESERVA, + SUM(PENDIENTE_RECEPCION) as PENDIENTE_RECEPCION + +FROM V_INVENTARIO_AUX +LEFT JOIN ARTICULOS +ON (ARTICULOS.ID = V_INVENTARIO_AUX.ID_ARTICULO) +LEFT JOIN ALMACENES +ON (ALMACENES.ID = V_INVENTARIO_AUX.ID_ALMACEN) + +WHERE (ID_ARTICULO <> 0) +AND (ARTICULOS.ELIMINADO = 0) +AND (ARTICULOS.INVENTARIABLE = 1) + +GROUP BY ID_ALMACEN, + ALMACENES.ID_EMPRESA, + ALMACENES.NOMBRE, + ID_ARTICULO, + ARTICULOS.REFERENCIA, + ARTICULOS.FAMILIA, + ARTICULOS.DESCRIPCION, + ARTICULOS.REFERENCIA_PROV, + ARTICULOS.PRECIO_NETO; + + + +/************************************************************************/ +/* HISTORICO MOVIMIENTOS ************************************************/ +/************************************************************************/ +/*Las siguientes vista nos presentará el historico de movimientos de todos los artículos*/ + +CREATE VIEW V_HIS_MOV_REGULARIZACIONES( + FECHA, + ID_ALMACEN, + ID_ARTICULO, + TIPO_MOVIMIENTO, + CANTIDAD, + CAUSA) +AS +SELECT FECHA_MOVIMIENTO, ID_ALMACEN, ID_ARTICULO, +CASE WHEN TIPO = 'E' THEN 'Entrada' +ELSE 'Salida' END, +CASE WHEN TIPO = 'S' THEN (-1)* CANTIDAD + ELSE CANTIDAD END, +'Regularización por - ' || CAUSA +FROM MOVIMIENTOS; + + +CREATE VIEW V_HIS_MOV_ALB_PROV( + FECHA, + ID_ALMACEN, + ID_ARTICULO, + TIPO_MOVIMIENTO, + CANTIDAD, + CAUSA) +AS +SELECT + ALBARANES_PROVEEDOR.FECHA_ALBARAN, + V_ALB_PROV_DETALLES.ID_ALMACEN, + V_ALB_PROV_DETALLES.ID_ARTICULO, + CASE WHEN V_ALB_PROV_DETALLES.CANTIDAD < 0 THEN 'Salida' + ELSE 'Entrada' END, + V_ALB_PROV_DETALLES.CANTIDAD, + CASE WHEN ALBARANES_PROVEEDOR.IMPORTE_TOTAL < 0 THEN 'Orden de devolución ' || ALBARANES_PROVEEDOR.REFERENCIA + ELSE 'Albarán de proveedor ' || ALBARANES_PROVEEDOR.REFERENCIA END + + +FROM V_ALB_PROV_DETALLES +LEFT JOIN ALBARANES_PROVEEDOR +ON (V_ALB_PROV_DETALLES.ID_ALBARAN = ALBARANES_PROVEEDOR.ID) +WHERE (V_ALB_PROV_DETALLES.ID_ALMACEN IS NOT NULL); + + +CREATE VIEW V_HIS_MOV_ALB_CLI( + FECHA, + ID_ALMACEN, + ID_ARTICULO, + TIPO_MOVIMIENTO, + CANTIDAD, + CAUSA) +AS +SELECT + ALBARANES_CLIENTE.FECHA_ALBARAN, + V_ALB_CLI_DETALLES.ID_ALMACEN, + V_ALB_CLI_DETALLES.ID_ARTICULO, + CASE WHEN V_ALB_CLI_DETALLES.CANTIDAD < 0 THEN 'Entrada' + ELSE 'Salida' END, + (-1)*V_ALB_CLI_DETALLES.CANTIDAD, + CASE WHEN ALBARANES_CLIENTE.IMPORTE_TOTAL < 0 THEN 'Orden de devolución de cliente ' || ALBARANES_CLIENTE.REFERENCIA + ELSE 'Albarán de cliente ' || ALBARANES_CLIENTE.REFERENCIA END + +FROM V_ALB_CLI_DETALLES +LEFT JOIN ALBARANES_CLIENTE +ON (V_ALB_CLI_DETALLES.ID_ALBARAN = ALBARANES_CLIENTE.ID) + +WHERE (V_ALB_CLI_DETALLES.ID_ALMACEN IS NOT NULL) +AND (V_ALB_CLI_DETALLES.SITUACION in ('ENVIADO', 'SERVIDO')); + + +CREATE VIEW V_HIS_MOV_AUX( + FECHA, + ID_ALMACEN, + ID_ARTICULO, + TIPO_MOVIMIENTO, + CANTIDAD, + CAUSA) +AS +SELECT + FECHA, + ID_ALMACEN, + ID_ARTICULO, + TIPO_MOVIMIENTO, + CANTIDAD, + CAUSA +FROM V_HIS_MOV_ALB_PROV +UNION ALL +SELECT + FECHA, + ID_ALMACEN, + ID_ARTICULO, + TIPO_MOVIMIENTO, + CANTIDAD, + CAUSA +FROM V_HIS_MOV_ALB_CLI +UNION ALL +SELECT + FECHA, + ID_ALMACEN, + ID_ARTICULO, + TIPO_MOVIMIENTO, + CANTIDAD, + CAUSA +FROM V_HIS_MOV_REGULARIZACIONES; + + +CREATE VIEW V_HISTORICO_MOVIMIENTOS( + FECHA, + ID_ALMACEN, + ID_EMPRESA, + NOMBRE_ALMACEN, + ID_ARTICULO, + FAMILIA, + REFERENCIA, + REFERENCIA_PROV, + DESCRIPCION, + TIPO_MOVIMIENTO, + CANTIDAD, + CAUSA) +AS +SELECT + V_HIS_MOV_AUX.FECHA, + V_HIS_MOV_AUX.ID_ALMACEN, + ALMACENES.ID_EMPRESA, + ALMACENES.NOMBRE, + V_HIS_MOV_AUX.ID_ARTICULO, + ARTICULOS.FAMILIA, + ARTICULOS.REFERENCIA, + ARTICULOS.REFERENCIA_PROV, + ARTICULOS.DESCRIPCION, + V_HIS_MOV_AUX.TIPO_MOVIMIENTO, + V_HIS_MOV_AUX.CANTIDAD, + V_HIS_MOV_AUX.CAUSA + +FROM V_HIS_MOV_AUX +LEFT JOIN ALMACENES ON (ALMACENES.ID = V_HIS_MOV_AUX.ID_ALMACEN) +LEFT JOIN ARTICULOS ON (ARTICULOS.ID = V_HIS_MOV_AUX.ID_ARTICULO) + +WHERE (V_HIS_MOV_AUX.ID_ARTICULO <> 0) +AND (ARTICULOS.INVENTARIABLE = 1); + + +DROP VIEW V_INV_DETALLE_RESERVAS; + + +/*Vista para ver para quien estan reservados los articulos del inventario*/ + +CREATE VIEW V_INV_DETALLE_RESERVAS( + ID_ALB, + ID_EMPRESA, + REFERENCIA_ALB, + SITUACION_ALB, + FECHA_PREVISTA_ENVIO_ALB, + ID_ALMACEN_ALB, + ALMACEN_ALB, + ID_CLIENTE_ALB, + CLIENTE_ALB, + ID_ART, + FAMILIA_ART, + REFERENCIA_ART, + REFERENCIA_PROV_ART, + DESCRIPCION_ART, + CANTIDAD_ART) +AS + +SELECT + ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, + ALBARANES_CLIENTE.ID_EMPRESA, + ALBARANES_CLIENTE.REFERENCIA, + V_ALB_CLI_SITUACION.SITUACION, + ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO, + ALBARANES_CLIENTE.ID_ALMACEN, + ALMACENES.NOMBRE AS ALMACEN, + ALBARANES_CLIENTE.ID_CLIENTE, + CONTACTOS.NOMBRE AS CLIENTE, + ARTICULOS.ID, + ARTICULOS.FAMILIA, + ARTICULOS.REFERENCIA, + ARTICULOS.REFERENCIA_PROV, + ARTICULOS.DESCRIPCION, + SUM(COALESCE(ALBARANES_CLIENTE_DETALLES.CANTIDAD, 0)) + +FROM ALBARANES_CLIENTE_DETALLES +LEFT JOIN ALBARANES_CLIENTE +ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = ALBARANES_CLIENTE.ID) +LEFT JOIN CONTACTOS +ON (ALBARANES_CLIENTE.ID_CLIENTE = CONTACTOS.ID) +LEFT JOIN ALMACENES +ON (ALBARANES_CLIENTE.ID_ALMACEN = ALMACENES.ID) +LEFT JOIN ARTICULOS +ON (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID) +LEFT JOIN V_ALB_CLI_SITUACION +ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = V_ALB_CLI_SITUACION.ID) + +/*Quitamos aquellos detalles que no tengan cabecera existente + aquellos que no se correspondan con un almacén es decir albaranes libres + que el albaran este pendiente (los articulos estan reservados en el almacen) + aquellos que no se correspondan con artículos existentes en el catalogo + y que no sean inventariables*/ +WHERE (ALBARANES_CLIENTE.ID IS NOT NULL) +AND (ALBARANES_CLIENTE.ID_ALMACEN IS NOT NULL) +AND (V_ALB_CLI_SITUACION.SITUACION = 'PENDIENTE') +AND (ARTICULOS.ID is not null) +AND (ARTICULOS.ELIMINADO = 0) +AND (ARTICULOS.INVENTARIABLE = 1) + +GROUP BY + ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, + ALBARANES_CLIENTE.ID_EMPRESA, + ALBARANES_CLIENTE.REFERENCIA, + V_ALB_CLI_SITUACION.SITUACION, + ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO, + ALBARANES_CLIENTE.ID_ALMACEN, + ALMACENES.NOMBRE, + ALBARANES_CLIENTE.ID_CLIENTE, + CONTACTOS.NOMBRE, + ARTICULOS.ID, + ARTICULOS.FAMILIA, + ARTICULOS.REFERENCIA, + ARTICULOS.REFERENCIA_PROV, + ARTICULOS.DESCRIPCION; diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 22f70de6..065b913c 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,27 +44,6 @@ 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 @@ -81,55 +60,55 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas index 466f6a75..13b53939 100644 --- a/Source/Cliente/uBootStrap.pas +++ b/Source/Cliente/uBootStrap.pas @@ -42,6 +42,9 @@ begin LoadModule('RemesasCliente_plugin.bpl'); LoadModule('RemesasProveedor_plugin.bpl'); + + LoadModule('Inventario_plugin.bpl'); + LoadModule('HistoricoMovimientos_plugin.bpl'); end; end; diff --git a/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm b/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm index 7aa08b33..edf41a27 100644 --- a/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm +++ b/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm @@ -1,6 +1,6 @@ inherited DataModuleArticulos: TDataModuleArticulos OnCreate = DAClientDataModuleCreate - Height = 414 + Height = 219 Width = 518 object RORemoteService: TRORemoteService Message = dmConexion.ROMessage diff --git a/Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.dpk b/Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.dpk index fd92d182..81589b61 100644 --- a/Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.dpk +++ b/Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.dpk @@ -22,35 +22,16 @@ package BancaElectronica_controller; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dbrtl, - cxLibraryD10, - dxThemeD10, - dsnap, - vcldb, - adortl, - dxBarExtItemsD10, - dxComnD10, - dxBarD10, - dxLayoutControlD10, - dxPSCoreD10, - dxPScxCommonD10, - dxPScxGridLnkD10, - dxPsPrVwAdvD10, - DataAbstract_D10, - Base, GUIBase, - Usuarios, - Empresas_model, - Empresas_controller, + Base, + ApplicationBase, Contactos_model, Contactos_controller, - RemesasCliente_model, - RemesasCliente_controller; + RemesasCliente_controller, + RemesasCliente_model; contains uBancaElectronicaController in 'uBancaElectronicaController.pas', diff --git a/Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.dproj b/Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.dproj new file mode 100644 index 00000000..fc7cd11d --- /dev/null +++ b/Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.dproj @@ -0,0 +1,587 @@ + + + {d465978e-860e-4eb2-9a25-2afb559e8e07} + BancaElectronica_controller.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\BancaElectronica_controller.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 + + + 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 + + + + BancaElectronica_controller.dpk + + + + + + + MainSource + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Banca electronica/Data/BancaElectronica_data.dproj b/Source/Modulos/Banca electronica/Data/BancaElectronica_data.dproj new file mode 100644 index 00000000..34d7284d --- /dev/null +++ b/Source/Modulos/Banca electronica/Data/BancaElectronica_data.dproj @@ -0,0 +1,116 @@ + + + {a790c41f-c58c-4960-9333-616896fc3b42} + BancaElectronica_data.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\BancaElectronica_data.bpl + + + 7.0 + False + False + 0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + DEBUG + + + Delphi.Personality + Package + + + False + True + False + + + False + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + BancaElectronica_data.dpk + + + + + + + MainSource + + + + + + + + + + + + + + + + +
DataModuleBancaElectronica
+ TDAClientDataModule + + + + + + + + \ No newline at end of file diff --git a/Source/Modulos/Banca electronica/Model/BancaElectronica_model.dpk b/Source/Modulos/Banca electronica/Model/BancaElectronica_model.dpk index 36ebabf7..15bb6ce8 100644 --- a/Source/Modulos/Banca electronica/Model/BancaElectronica_model.dpk +++ b/Source/Modulos/Banca electronica/Model/BancaElectronica_model.dpk @@ -25,14 +25,7 @@ package BancaElectronica_model; {$IMPLICITBUILD OFF} requires - rtl, - dsnap, - dbrtl, - vcldb, - vcl, - adortl, - Base, - DataAbstract_D10; + Base; contains uIDataModuleBancaElectronica in 'Data\uIDataModuleBancaElectronica.pas', diff --git a/Source/Modulos/Banca electronica/Model/BancaElectronica_model.dproj b/Source/Modulos/Banca electronica/Model/BancaElectronica_model.dproj new file mode 100644 index 00000000..c22ba8c6 --- /dev/null +++ b/Source/Modulos/Banca electronica/Model/BancaElectronica_model.dproj @@ -0,0 +1,539 @@ + + + {36741ce3-2830-49dc-8b68-8b189bf8229f} + BancaElectronica_model.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\BancaElectronica_model.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 + + + Delphi.Personality + Package + +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0BancaElectronica_model.dpk + + + + + MainSource + + + + + + + + + + diff --git a/Source/Modulos/Banca electronica/PedidosProveedor_Group.groupproj b/Source/Modulos/Banca electronica/PedidosProveedor_Group.groupproj new file mode 100644 index 00000000..0940802d --- /dev/null +++ b/Source/Modulos/Banca electronica/PedidosProveedor_Group.groupproj @@ -0,0 +1,94 @@ + + + {63bda8d7-1426-4a34-849f-51032a5e877d} + + + + + + + + + + + + + Default.Personality + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Source/Modulos/Banca electronica/Plugin/BancaElectronica_plugin.dpk b/Source/Modulos/Banca electronica/Plugin/BancaElectronica_plugin.dpk index 3d352a85..0db2e976 100644 --- a/Source/Modulos/Banca electronica/Plugin/BancaElectronica_plugin.dpk +++ b/Source/Modulos/Banca electronica/Plugin/BancaElectronica_plugin.dpk @@ -22,18 +22,11 @@ package BancaElectronica_plugin; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - BancaElectronica_controller, - BancaElectronica_view; + BancaElectronica_view, + BancaElectronica_controller; contains uPluginBancaElectronica in 'uPluginBancaElectronica.pas'; diff --git a/Source/Modulos/Banca electronica/Plugin/BancaElectronica_plugin.dproj b/Source/Modulos/Banca electronica/Plugin/BancaElectronica_plugin.dproj new file mode 100644 index 00000000..9e3699fb --- /dev/null +++ b/Source/Modulos/Banca electronica/Plugin/BancaElectronica_plugin.dproj @@ -0,0 +1,577 @@ + + + {e4a70e78-dcab-415c-9e35-1956bd41ae1a} + BancaElectronica_plugin.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\BancaElectronica_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 + + + 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 + + + + BancaElectronica_plugin.dpk + + + + + + + MainSource + + + + + + + + diff --git a/Source/Modulos/Banca electronica/Views/BancaElectronica_view.dpk b/Source/Modulos/Banca electronica/Views/BancaElectronica_view.dpk index 3730cfec..79b6efa6 100644 --- a/Source/Modulos/Banca electronica/Views/BancaElectronica_view.dpk +++ b/Source/Modulos/Banca electronica/Views/BancaElectronica_view.dpk @@ -22,21 +22,11 @@ package BancaElectronica_view; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dbrtl, - vcldb, - dsnap, - adortl, - DataAbstract_D10, - Base, - GUIBase, BancaElectronica_controller, - JvGlobusD10R, - JvDlgsD10R; + JvGlobusD11R; contains uBancaElectronicaViewRegister in 'uBancaElectronicaViewRegister.pas', diff --git a/Source/Modulos/Banca electronica/Views/BancaElectronica_view.dproj b/Source/Modulos/Banca electronica/Views/BancaElectronica_view.dproj new file mode 100644 index 00000000..c213c82d --- /dev/null +++ b/Source/Modulos/Banca electronica/Views/BancaElectronica_view.dproj @@ -0,0 +1,580 @@ + + + {318cdb6c-0c6b-444c-81a7-75d2547d33e7} + BancaElectronica_view.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\BancaElectronica_view.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 + + + 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 + + + + BancaElectronica_view.dpk + + + + + + + MainSource + + + + + +
fEditorExportacionNorma19
+ + + + + diff --git a/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.dpk b/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.dpk index dd1ee17c..e77ca7da 100644 --- a/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.dpk +++ b/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.dpk @@ -22,22 +22,13 @@ package HistoricoMovimientos_controller; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dbrtl, - cxLibraryD10, - dxThemeD10, - dsnap, - vcldb, - adortl, - GUIBase, - Usuarios, - Almacenes_controller, + HistoricoMovimientos_model, HistoricoMovimientos_data, - HistoricoMovimientos_model; + Almacenes_controller, + ApplicationBase; contains uIEditorHistoricoMovimientos in 'View\uIEditorHistoricoMovimientos.pas', diff --git a/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.dproj b/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.dproj new file mode 100644 index 00000000..98dbba29 --- /dev/null +++ b/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.dproj @@ -0,0 +1,540 @@ + + + {5874467b-b5ec-4f13-a56b-36d9d93d49a5} + HistoricoMovimientos_controller.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\HistoricoMovimientos_controller.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 + + + Delphi.Personality + Package + +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0HistoricoMovimientos_controller.dpk + + + + + MainSource + + + + + + + + + + + diff --git a/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.rc b/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.rc +++ b/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.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/Historico de movimientos/Controller/HistoricoMovimientos_controller.res b/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.res index 36f26e23..8b251f31 100644 Binary files a/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.res and b/Source/Modulos/Historico de movimientos/Controller/HistoricoMovimientos_controller.res differ diff --git a/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas b/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas index afff2442..30bfd7e2 100644 --- a/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas +++ b/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas @@ -61,7 +61,7 @@ uses Forms, cxControls, DB, schHistoricoMovimientosClient_Intf, uEditorRegistryUtils, uIEditorHistoricoMovimientos, uDataModuleHistoricoMovimientos, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, - uDateUtils, uROTypes, DateUtils, Controls, Windows, + uDateUtils, uROTypes, DateUtils, Controls, Windows, uFactuGES_App, dialogs, Variants, uBizAlmacenes, uControllerDetallesBase, uDialogUtils, schArticulosClient_Intf; @@ -184,10 +184,10 @@ begin AHistoricoMovimientos.DataTable.Active := False; // Filtrar los HistoricoMovimientos actuales por empresa - with AAlbaran.DataTable.DynamicWhere do + with AHistoricoMovimientos.DataTable.DynamicWhere do begin // (ID_EMPRESA >= ID) - Condicion := NewBinaryExpression(NewField('', fld_Historico_MovimientosID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual); + Condicion := NewBinaryExpression(NewField('', fld_HistoricoMovimientosID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual); if IsEmpty then Expression := Condicion diff --git a/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.dpk b/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.dpk index 6d130010..3b89de47 100644 --- a/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.dpk +++ b/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.dpk @@ -22,18 +22,9 @@ package HistoricoMovimientos_data; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - dbrtl, - cxLibraryD10, - dxThemeD10, - vcl, - dsnap, - vcldb, - adortl, - Base, HistoricoMovimientos_model; contains diff --git a/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.dproj b/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.dproj new file mode 100644 index 00000000..38303990 --- /dev/null +++ b/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.dproj @@ -0,0 +1,538 @@ + + + {761338d5-bf04-40b1-a99b-dec8ced70bf0} + HistoricoMovimientos_data.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\HistoricoMovimientos_data.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 + + + Delphi.Personality + Package + +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0HistoricoMovimientos_data.dpk + + + + + MainSource + + + +
DataModuleHistoricoMovimientos
+ + + + + diff --git a/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.rc b/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.rc +++ b/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_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/Historico de movimientos/Data/HistoricoMovimientos_data.res b/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.res index 36f26e23..8b251f31 100644 Binary files a/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.res and b/Source/Modulos/Historico de movimientos/Data/HistoricoMovimientos_data.res differ diff --git a/Source/Modulos/Historico de movimientos/Data/uDataModuleHistoricoMovimientos.dfm b/Source/Modulos/Historico de movimientos/Data/uDataModuleHistoricoMovimientos.dfm index 21146bd1..e69ca02e 100644 --- a/Source/Modulos/Historico de movimientos/Data/uDataModuleHistoricoMovimientos.dfm +++ b/Source/Modulos/Historico de movimientos/Data/uDataModuleHistoricoMovimientos.dfm @@ -1,13 +1,29 @@ inherited DataModuleHistoricoMovimientos: TDataModuleHistoricoMovimientos OnCreate = DAClientDataModuleCreate - Height = 414 + Height = 231 Width = 518 object RORemoteService: TRORemoteService + Message = dmConexion.ROMessage + Channel = dmConexion.ROChannel ServiceName = 'srvHistoricoMovimientos' Left = 48 Top = 24 end - object tbl_Historico_Movimientos: TDACDSDataTable + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 84 + end + object rda_Historico_Movimientos: TDARemoteDataAdapter + GetSchemaCall.RemoteService = RORemoteService + GetDataCall.RemoteService = RORemoteService + UpdateDataCall.RemoteService = RORemoteService + GetScriptsCall.RemoteService = RORemoteService + RemoteService = RORemoteService + DataStreamer = Bin2DataStreamer + Left = 51 + Top = 143 + end + object tbl_HistoricoMovimientos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item @@ -32,7 +48,7 @@ inherited DataModuleHistoricoMovimientos: TDataModuleHistoricoMovimientos Name = 'NOMBRE_ALMACEN' DataType = datString Size = 255 - DisplayLabel = 'Almac'#233'n' + DisplayLabel = 'Almac'#195#169'n' DictionaryEntry = 'HISTORICO_MOVIMIENTOS_NOMBRE_ALMACEN' end item @@ -66,7 +82,7 @@ inherited DataModuleHistoricoMovimientos: TDataModuleHistoricoMovimientos Name = 'DESCRIPCION' DataType = datString Size = 255 - DisplayLabel = 'Descripci'#243'n' + DisplayLabel = 'Descripci'#195#179'n' DictionaryEntry = 'HISTORICO_MOVIMIENTOS_DESCRIPCION' end item @@ -90,33 +106,19 @@ inherited DataModuleHistoricoMovimientos: TDataModuleHistoricoMovimientos DictionaryEntry = 'HISTORICO_MOVIMIENTOS_CAUSA' end> Params = <> - MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_Historico_Movimientos DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'HISTORICO_MOVIMIENTOS' + LogicalName = 'HistoricoMovimientos' IndexDefs = <> - Left = 288 - Top = 144 + Left = 232 + Top = 80 end - object ds_Historico_Movimientos: TDADataSource - DataSet = tbl_Historico_Movimientos.Dataset - DataTable = tbl_Historico_Movimientos - Left = 288 - Top = 88 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 48 - Top = 84 - end - object rda_Historico_Movimientos: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetDataCall.RemoteService = RORemoteService - UpdateDataCall.RemoteService = RORemoteService - GetScriptsCall.RemoteService = RORemoteService - RemoteService = RORemoteService - DataStreamer = Bin2DataStreamer - Left = 51 - Top = 143 + object ds_HistoricoMovimientos: TDADataSource + DataSet = tbl_HistoricoMovimientos.Dataset + DataTable = tbl_HistoricoMovimientos + Left = 232 + Top = 24 end end diff --git a/Source/Modulos/Historico de movimientos/Data/uDataModuleHistoricoMovimientos.pas b/Source/Modulos/Historico de movimientos/Data/uDataModuleHistoricoMovimientos.pas index 71600073..cfeab7a7 100644 --- a/Source/Modulos/Historico de movimientos/Data/uDataModuleHistoricoMovimientos.pas +++ b/Source/Modulos/Historico de movimientos/Data/uDataModuleHistoricoMovimientos.pas @@ -8,18 +8,19 @@ uses uROServiceComponent, uRORemoteService, uROClient, uROBinMessage, uDADesigntimeCall, uDataModuleBase, uIDataModuleHistoricoMovimientos, uBizHistoricoMovimientos, - uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces; + uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, + uDAMemDataTable; type TDataModuleHistoricoMovimientos = class(TDataModuleBase, IDataModuleHistoricoMovimientos) RORemoteService: TRORemoteService; - tbl_Historico_Movimientos: TDACDSDataTable; - ds_Historico_Movimientos: TDADataSource; Bin2DataStreamer: TDABin2DataStreamer; rda_Historico_Movimientos: TDARemoteDataAdapter; + tbl_HistoricoMovimientos: TDAMemDataTable; + ds_HistoricoMovimientos: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); protected - procedure AsignarClaseNegocio(var AHistoricoMovimientos: TDACDSDataTable); virtual; + procedure AsignarClaseNegocio(var AHistoricoMovimientos: TDAMemDataTable); virtual; public function GetItems : IBizHistoricoMovimientos; overload; function GetItems(const ID_ALMACEN : Integer) : IBizHistoricoMovimientos; overload; @@ -30,12 +31,12 @@ implementation {$R *.DFM} uses - FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces, + FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, schHistoricoMovimientosClient_Intf; { TdmArticulos } -procedure TDataModuleHistoricoMovimientos.AsignarClaseNegocio(var AHistoricoMovimientos: TDACDSDataTable); +procedure TDataModuleHistoricoMovimientos.AsignarClaseNegocio(var AHistoricoMovimientos: TDAMemDataTable); begin AHistoricoMovimientos.BusinessRulesID := BIZ_CLIENT_HISTORICO_MOVIMIENTOS; end; @@ -57,7 +58,7 @@ begin with Result.DataTable.DynamicWhere do begin // (ID_ALMACEN = :ID_ALMACEN) - Condicion := NewBinaryExpression(NewField('', fld_Historico_MovimientosID_ALMACEN), NewConstant(ID_ALMACEN, datInteger), dboEqual); + Condicion := NewBinaryExpression(NewField('', fld_HistoricoMovimientosID_ALMACEN), NewConstant(ID_ALMACEN, datInteger), dboEqual); if IsEmpty then Expression := Condicion @@ -76,7 +77,7 @@ var begin ShowHourglassCursor; try - AHistoricoMovimientos := CloneDataTable(tbl_Historico_Movimientos); + AHistoricoMovimientos := CloneDataTable(tbl_HistoricoMovimientos); AsignarClaseNegocio(AHistoricoMovimientos); Result := (AHistoricoMovimientos as IBizHistoricoMovimientos); finally diff --git a/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.dpk b/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.dpk index e3a98bb3..98aeb178 100644 --- a/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.dpk +++ b/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.dpk @@ -22,16 +22,9 @@ package HistoricoMovimientos_model; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dsnap, - dbrtl, - vcldb, - adortl, - DataAbstract_D10, Articulos_model; contains diff --git a/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.dproj b/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.dproj new file mode 100644 index 00000000..e21916a1 --- /dev/null +++ b/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.dproj @@ -0,0 +1,538 @@ + + + {82e91760-acc0-4662-9c28-456e5ea6089c} + HistoricoMovimientos_model.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\HistoricoMovimientos_model.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 + + + Delphi.Personality + Package + +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0HistoricoMovimientos_model.dpk + + + + + MainSource + + + + + + + + + diff --git a/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.rc b/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.rc +++ b/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_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/Historico de movimientos/Model/HistoricoMovimientos_model.res b/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.res index 36f26e23..8b251f31 100644 Binary files a/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.res and b/Source/Modulos/Historico de movimientos/Model/HistoricoMovimientos_model.res differ diff --git a/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosClient_Intf.pas b/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosClient_Intf.pas index 5c2c1eab..33a17b70 100644 --- a/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosClient_Intf.pas +++ b/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosClient_Intf.pas @@ -3,134 +3,206 @@ unit schHistoricoMovimientosClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable; + 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_HISTORICO_MOVIMIENTOS = '{501EFA9F-4F86-42D1-A8FB-9EE6E8B67BE4}'; + RID_HistoricoMovimientos = '{78F8AAD8-7791-4695-84E0-778DD741063E}'; { Data table names } - nme_HISTORICO_MOVIMIENTOS = 'HISTORICO_MOVIMIENTOS'; + nme_HistoricoMovimientos = 'HistoricoMovimientos'; - { HISTORICO_MOVIMIENTOS fields } - fld_HISTORICO_MOVIMIENTOSFECHA = 'FECHA'; - fld_HISTORICO_MOVIMIENTOSID_ALMACEN = 'ID_ALMACEN'; - fld_HISTORICO_MOVIMIENTOSID_EMPRESA = 'ID_EMPRESA'; - fld_HISTORICO_MOVIMIENTOSNOMBRE_ALMACEN = 'NOMBRE_ALMACEN'; - fld_HISTORICO_MOVIMIENTOSID_ARTICULO = 'ID_ARTICULO'; - fld_HISTORICO_MOVIMIENTOSFAMILIA = 'FAMILIA'; - fld_HISTORICO_MOVIMIENTOSREFERENCIA = 'REFERENCIA'; - fld_HISTORICO_MOVIMIENTOSREFERENCIA_PROV = 'REFERENCIA_PROV'; - fld_HISTORICO_MOVIMIENTOSDESCRIPCION = 'DESCRIPCION'; - fld_HISTORICO_MOVIMIENTOSTIPO_MOVIMIENTO = 'TIPO_MOVIMIENTO'; - fld_HISTORICO_MOVIMIENTOSCANTIDAD = 'CANTIDAD'; - fld_HISTORICO_MOVIMIENTOSCAUSA = 'CAUSA'; + { HistoricoMovimientos fields } + fld_HistoricoMovimientosFECHA = 'FECHA'; + fld_HistoricoMovimientosID_ALMACEN = 'ID_ALMACEN'; + fld_HistoricoMovimientosID_EMPRESA = 'ID_EMPRESA'; + fld_HistoricoMovimientosNOMBRE_ALMACEN = 'NOMBRE_ALMACEN'; + fld_HistoricoMovimientosID_ARTICULO = 'ID_ARTICULO'; + fld_HistoricoMovimientosFAMILIA = 'FAMILIA'; + fld_HistoricoMovimientosREFERENCIA = 'REFERENCIA'; + fld_HistoricoMovimientosREFERENCIA_PROV = 'REFERENCIA_PROV'; + fld_HistoricoMovimientosDESCRIPCION = 'DESCRIPCION'; + fld_HistoricoMovimientosTIPO_MOVIMIENTO = 'TIPO_MOVIMIENTO'; + fld_HistoricoMovimientosCANTIDAD = 'CANTIDAD'; + fld_HistoricoMovimientosCAUSA = 'CAUSA'; - { HISTORICO_MOVIMIENTOS field indexes } - idx_HISTORICO_MOVIMIENTOSFECHA = 0; - idx_HISTORICO_MOVIMIENTOSID_ALMACEN = 1; - idx_HISTORICO_MOVIMIENTOSID_EMPRESA = 2; - idx_HISTORICO_MOVIMIENTOSNOMBRE_ALMACEN = 3; - idx_HISTORICO_MOVIMIENTOSID_ARTICULO = 4; - idx_HISTORICO_MOVIMIENTOSFAMILIA = 5; - idx_HISTORICO_MOVIMIENTOSREFERENCIA = 6; - idx_HISTORICO_MOVIMIENTOSREFERENCIA_PROV = 7; - idx_HISTORICO_MOVIMIENTOSDESCRIPCION = 8; - idx_HISTORICO_MOVIMIENTOSTIPO_MOVIMIENTO = 9; - idx_HISTORICO_MOVIMIENTOSCANTIDAD = 10; - idx_HISTORICO_MOVIMIENTOSCAUSA = 11; + { HistoricoMovimientos field indexes } + idx_HistoricoMovimientosFECHA = 0; + idx_HistoricoMovimientosID_ALMACEN = 1; + idx_HistoricoMovimientosID_EMPRESA = 2; + idx_HistoricoMovimientosNOMBRE_ALMACEN = 3; + idx_HistoricoMovimientosID_ARTICULO = 4; + idx_HistoricoMovimientosFAMILIA = 5; + idx_HistoricoMovimientosREFERENCIA = 6; + idx_HistoricoMovimientosREFERENCIA_PROV = 7; + idx_HistoricoMovimientosDESCRIPCION = 8; + idx_HistoricoMovimientosTIPO_MOVIMIENTO = 9; + idx_HistoricoMovimientosCANTIDAD = 10; + idx_HistoricoMovimientosCAUSA = 11; type - { IHISTORICO_MOVIMIENTOS } - IHISTORICO_MOVIMIENTOS = interface(IDAStronglyTypedDataTable) - ['{E5D2E089-2433-4EC0-B2E2-96A018F64B87}'] + { IHistoricoMovimientos } + IHistoricoMovimientos = interface(IDAStronglyTypedDataTable) + ['{13452610-3745-4EF7-9F6D-224ACA695E83}'] { Property getters and setters } function GetFECHAValue: DateTime; procedure SetFECHAValue(const aValue: DateTime); + function GetFECHAIsNull: Boolean; + procedure SetFECHAIsNull(const aValue: Boolean); function GetID_ALMACENValue: Integer; procedure SetID_ALMACENValue(const aValue: Integer); + function GetID_ALMACENIsNull: Boolean; + procedure SetID_ALMACENIsNull(const aValue: Boolean); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); function GetNOMBRE_ALMACENValue: String; procedure SetNOMBRE_ALMACENValue(const aValue: String); + function GetNOMBRE_ALMACENIsNull: Boolean; + procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); function GetID_ARTICULOValue: Integer; procedure SetID_ARTICULOValue(const aValue: Integer); + function GetID_ARTICULOIsNull: Boolean; + procedure SetID_ARTICULOIsNull(const aValue: Boolean); function GetFAMILIAValue: String; procedure SetFAMILIAValue(const aValue: String); + function GetFAMILIAIsNull: Boolean; + procedure SetFAMILIAIsNull(const aValue: Boolean); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); function GetREFERENCIA_PROVValue: String; procedure SetREFERENCIA_PROVValue(const aValue: String); + function GetREFERENCIA_PROVIsNull: Boolean; + procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); + function GetDESCRIPCIONIsNull: Boolean; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); function GetTIPO_MOVIMIENTOValue: String; procedure SetTIPO_MOVIMIENTOValue(const aValue: String); + function GetTIPO_MOVIMIENTOIsNull: Boolean; + procedure SetTIPO_MOVIMIENTOIsNull(const aValue: Boolean); function GetCANTIDADValue: Integer; procedure SetCANTIDADValue(const aValue: Integer); + function GetCANTIDADIsNull: Boolean; + procedure SetCANTIDADIsNull(const aValue: Boolean); function GetCAUSAValue: String; procedure SetCAUSAValue(const aValue: String); + function GetCAUSAIsNull: Boolean; + procedure SetCAUSAIsNull(const aValue: Boolean); { Properties } property FECHA: DateTime read GetFECHAValue write SetFECHAValue; + property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; + property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; + property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; + property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; + property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property TIPO_MOVIMIENTO: String read GetTIPO_MOVIMIENTOValue write SetTIPO_MOVIMIENTOValue; + property TIPO_MOVIMIENTOIsNull: Boolean read GetTIPO_MOVIMIENTOIsNull write SetTIPO_MOVIMIENTOIsNull; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; property CAUSA: String read GetCAUSAValue write SetCAUSAValue; + property CAUSAIsNull: Boolean read GetCAUSAIsNull write SetCAUSAIsNull; end; - { THISTORICO_MOVIMIENTOSDataTableRules } - THISTORICO_MOVIMIENTOSDataTableRules = class(TIntfObjectDADataTableRules, IHISTORICO_MOVIMIENTOS) + { THistoricoMovimientosDataTableRules } + THistoricoMovimientosDataTableRules = class(TIntfObjectDADataTableRules, IHistoricoMovimientos) private protected { Property getters and setters } function GetFECHAValue: DateTime; virtual; procedure SetFECHAValue(const aValue: DateTime); virtual; + function GetFECHAIsNull: Boolean; virtual; + procedure SetFECHAIsNull(const aValue: Boolean); virtual; function GetID_ALMACENValue: Integer; virtual; procedure SetID_ALMACENValue(const aValue: Integer); virtual; + function GetID_ALMACENIsNull: Boolean; virtual; + procedure SetID_ALMACENIsNull(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 GetNOMBRE_ALMACENValue: String; virtual; procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual; + function GetNOMBRE_ALMACENIsNull: Boolean; virtual; + procedure SetNOMBRE_ALMACENIsNull(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 GetFAMILIAValue: String; virtual; procedure SetFAMILIAValue(const aValue: String); virtual; + function GetFAMILIAIsNull: Boolean; virtual; + procedure SetFAMILIAIsNull(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 GetREFERENCIA_PROVValue: String; virtual; procedure SetREFERENCIA_PROVValue(const aValue: String); virtual; + function GetREFERENCIA_PROVIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; function GetTIPO_MOVIMIENTOValue: String; virtual; procedure SetTIPO_MOVIMIENTOValue(const aValue: String); virtual; + function GetTIPO_MOVIMIENTOIsNull: Boolean; virtual; + procedure SetTIPO_MOVIMIENTOIsNull(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 GetCAUSAValue: String; virtual; procedure SetCAUSAValue(const aValue: String); virtual; + function GetCAUSAIsNull: Boolean; virtual; + procedure SetCAUSAIsNull(const aValue: Boolean); virtual; { Properties } property FECHA: DateTime read GetFECHAValue write SetFECHAValue; + property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; + property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; + property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; + property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; + property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property TIPO_MOVIMIENTO: String read GetTIPO_MOVIMIENTOValue write SetTIPO_MOVIMIENTOValue; + property TIPO_MOVIMIENTOIsNull: Boolean read GetTIPO_MOVIMIENTOIsNull write SetTIPO_MOVIMIENTOIsNull; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; property CAUSA: String read GetCAUSAValue write SetCAUSAValue; + property CAUSAIsNull: Boolean read GetCAUSAIsNull write SetCAUSAIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -140,141 +212,273 @@ type implementation -uses Variants; +uses Variants, uROBinaryHelpers; -{ THISTORICO_MOVIMIENTOSDataTableRules } -constructor THISTORICO_MOVIMIENTOSDataTableRules.Create(aDataTable: TDADataTable); +{ THistoricoMovimientosDataTableRules } +constructor THistoricoMovimientosDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; -destructor THISTORICO_MOVIMIENTOSDataTableRules.Destroy; +destructor THistoricoMovimientosDataTableRules.Destroy; begin inherited; end; -function THISTORICO_MOVIMIENTOSDataTableRules.GetFECHAValue: DateTime; +function THistoricoMovimientosDataTableRules.GetFECHAValue: DateTime; begin - result := DataTable.Fields[idx_HISTORICO_MOVIMIENTOSFECHA].AsDateTime; + result := DataTable.Fields[idx_HistoricoMovimientosFECHA].AsDateTime; end; -procedure THISTORICO_MOVIMIENTOSDataTableRules.SetFECHAValue(const aValue: DateTime); +procedure THistoricoMovimientosDataTableRules.SetFECHAValue(const aValue: DateTime); begin - DataTable.Fields[idx_HISTORICO_MOVIMIENTOSFECHA].AsDateTime := aValue; + DataTable.Fields[idx_HistoricoMovimientosFECHA].AsDateTime := aValue; end; -function THISTORICO_MOVIMIENTOSDataTableRules.GetID_ALMACENValue: Integer; +function THistoricoMovimientosDataTableRules.GetFECHAIsNull: boolean; begin - result := DataTable.Fields[idx_HISTORICO_MOVIMIENTOSID_ALMACEN].AsInteger; + result := DataTable.Fields[idx_HistoricoMovimientosFECHA].IsNull; end; -procedure THISTORICO_MOVIMIENTOSDataTableRules.SetID_ALMACENValue(const aValue: Integer); +procedure THistoricoMovimientosDataTableRules.SetFECHAIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_HISTORICO_MOVIMIENTOSID_ALMACEN].AsInteger := aValue; + if aValue then + DataTable.Fields[idx_HistoricoMovimientosFECHA].AsVariant := Null; end; -function THISTORICO_MOVIMIENTOSDataTableRules.GetID_EMPRESAValue: Integer; +function THistoricoMovimientosDataTableRules.GetID_ALMACENValue: Integer; begin - result := DataTable.Fields[idx_HISTORICO_MOVIMIENTOSID_EMPRESA].AsInteger; + result := DataTable.Fields[idx_HistoricoMovimientosID_ALMACEN].AsInteger; end; -procedure THISTORICO_MOVIMIENTOSDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +procedure THistoricoMovimientosDataTableRules.SetID_ALMACENValue(const aValue: Integer); begin - DataTable.Fields[idx_HISTORICO_MOVIMIENTOSID_EMPRESA].AsInteger := aValue; + DataTable.Fields[idx_HistoricoMovimientosID_ALMACEN].AsInteger := aValue; end; -function THISTORICO_MOVIMIENTOSDataTableRules.GetNOMBRE_ALMACENValue: String; +function THistoricoMovimientosDataTableRules.GetID_ALMACENIsNull: boolean; begin - result := DataTable.Fields[idx_HISTORICO_MOVIMIENTOSNOMBRE_ALMACEN].AsString; + result := DataTable.Fields[idx_HistoricoMovimientosID_ALMACEN].IsNull; end; -procedure THISTORICO_MOVIMIENTOSDataTableRules.SetNOMBRE_ALMACENValue(const aValue: String); +procedure THistoricoMovimientosDataTableRules.SetID_ALMACENIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_HISTORICO_MOVIMIENTOSNOMBRE_ALMACEN].AsString := aValue; + if aValue then + DataTable.Fields[idx_HistoricoMovimientosID_ALMACEN].AsVariant := Null; end; -function THISTORICO_MOVIMIENTOSDataTableRules.GetID_ARTICULOValue: Integer; +function THistoricoMovimientosDataTableRules.GetID_EMPRESAValue: Integer; begin - result := DataTable.Fields[idx_HISTORICO_MOVIMIENTOSID_ARTICULO].AsInteger; + result := DataTable.Fields[idx_HistoricoMovimientosID_EMPRESA].AsInteger; end; -procedure THISTORICO_MOVIMIENTOSDataTableRules.SetID_ARTICULOValue(const aValue: Integer); +procedure THistoricoMovimientosDataTableRules.SetID_EMPRESAValue(const aValue: Integer); begin - DataTable.Fields[idx_HISTORICO_MOVIMIENTOSID_ARTICULO].AsInteger := aValue; + DataTable.Fields[idx_HistoricoMovimientosID_EMPRESA].AsInteger := aValue; end; -function THISTORICO_MOVIMIENTOSDataTableRules.GetFAMILIAValue: String; +function THistoricoMovimientosDataTableRules.GetID_EMPRESAIsNull: boolean; begin - result := DataTable.Fields[idx_HISTORICO_MOVIMIENTOSFAMILIA].AsString; + result := DataTable.Fields[idx_HistoricoMovimientosID_EMPRESA].IsNull; end; -procedure THISTORICO_MOVIMIENTOSDataTableRules.SetFAMILIAValue(const aValue: String); +procedure THistoricoMovimientosDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_HISTORICO_MOVIMIENTOSFAMILIA].AsString := aValue; + if aValue then + DataTable.Fields[idx_HistoricoMovimientosID_EMPRESA].AsVariant := Null; end; -function THISTORICO_MOVIMIENTOSDataTableRules.GetREFERENCIAValue: String; +function THistoricoMovimientosDataTableRules.GetNOMBRE_ALMACENValue: String; begin - result := DataTable.Fields[idx_HISTORICO_MOVIMIENTOSREFERENCIA].AsString; + result := DataTable.Fields[idx_HistoricoMovimientosNOMBRE_ALMACEN].AsString; end; -procedure THISTORICO_MOVIMIENTOSDataTableRules.SetREFERENCIAValue(const aValue: String); +procedure THistoricoMovimientosDataTableRules.SetNOMBRE_ALMACENValue(const aValue: String); begin - DataTable.Fields[idx_HISTORICO_MOVIMIENTOSREFERENCIA].AsString := aValue; + DataTable.Fields[idx_HistoricoMovimientosNOMBRE_ALMACEN].AsString := aValue; end; -function THISTORICO_MOVIMIENTOSDataTableRules.GetREFERENCIA_PROVValue: String; +function THistoricoMovimientosDataTableRules.GetNOMBRE_ALMACENIsNull: boolean; begin - result := DataTable.Fields[idx_HISTORICO_MOVIMIENTOSREFERENCIA_PROV].AsString; + result := DataTable.Fields[idx_HistoricoMovimientosNOMBRE_ALMACEN].IsNull; end; -procedure THISTORICO_MOVIMIENTOSDataTableRules.SetREFERENCIA_PROVValue(const aValue: String); +procedure THistoricoMovimientosDataTableRules.SetNOMBRE_ALMACENIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_HISTORICO_MOVIMIENTOSREFERENCIA_PROV].AsString := aValue; + if aValue then + DataTable.Fields[idx_HistoricoMovimientosNOMBRE_ALMACEN].AsVariant := Null; end; -function THISTORICO_MOVIMIENTOSDataTableRules.GetDESCRIPCIONValue: String; +function THistoricoMovimientosDataTableRules.GetID_ARTICULOValue: Integer; begin - result := DataTable.Fields[idx_HISTORICO_MOVIMIENTOSDESCRIPCION].AsString; + result := DataTable.Fields[idx_HistoricoMovimientosID_ARTICULO].AsInteger; end; -procedure THISTORICO_MOVIMIENTOSDataTableRules.SetDESCRIPCIONValue(const aValue: String); +procedure THistoricoMovimientosDataTableRules.SetID_ARTICULOValue(const aValue: Integer); begin - DataTable.Fields[idx_HISTORICO_MOVIMIENTOSDESCRIPCION].AsString := aValue; + DataTable.Fields[idx_HistoricoMovimientosID_ARTICULO].AsInteger := aValue; end; -function THISTORICO_MOVIMIENTOSDataTableRules.GetTIPO_MOVIMIENTOValue: String; +function THistoricoMovimientosDataTableRules.GetID_ARTICULOIsNull: boolean; begin - result := DataTable.Fields[idx_HISTORICO_MOVIMIENTOSTIPO_MOVIMIENTO].AsString; + result := DataTable.Fields[idx_HistoricoMovimientosID_ARTICULO].IsNull; end; -procedure THISTORICO_MOVIMIENTOSDataTableRules.SetTIPO_MOVIMIENTOValue(const aValue: String); +procedure THistoricoMovimientosDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_HISTORICO_MOVIMIENTOSTIPO_MOVIMIENTO].AsString := aValue; + if aValue then + DataTable.Fields[idx_HistoricoMovimientosID_ARTICULO].AsVariant := Null; end; -function THISTORICO_MOVIMIENTOSDataTableRules.GetCANTIDADValue: Integer; +function THistoricoMovimientosDataTableRules.GetFAMILIAValue: String; begin - result := DataTable.Fields[idx_HISTORICO_MOVIMIENTOSCANTIDAD].AsInteger; + result := DataTable.Fields[idx_HistoricoMovimientosFAMILIA].AsString; end; -procedure THISTORICO_MOVIMIENTOSDataTableRules.SetCANTIDADValue(const aValue: Integer); +procedure THistoricoMovimientosDataTableRules.SetFAMILIAValue(const aValue: String); begin - DataTable.Fields[idx_HISTORICO_MOVIMIENTOSCANTIDAD].AsInteger := aValue; + DataTable.Fields[idx_HistoricoMovimientosFAMILIA].AsString := aValue; end; -function THISTORICO_MOVIMIENTOSDataTableRules.GetCAUSAValue: String; +function THistoricoMovimientosDataTableRules.GetFAMILIAIsNull: boolean; begin - result := DataTable.Fields[idx_HISTORICO_MOVIMIENTOSCAUSA].AsString; + result := DataTable.Fields[idx_HistoricoMovimientosFAMILIA].IsNull; end; -procedure THISTORICO_MOVIMIENTOSDataTableRules.SetCAUSAValue(const aValue: String); +procedure THistoricoMovimientosDataTableRules.SetFAMILIAIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_HISTORICO_MOVIMIENTOSCAUSA].AsString := aValue; + if aValue then + DataTable.Fields[idx_HistoricoMovimientosFAMILIA].AsVariant := Null; +end; + +function THistoricoMovimientosDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_HistoricoMovimientosREFERENCIA].AsString; +end; + +procedure THistoricoMovimientosDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_HistoricoMovimientosREFERENCIA].AsString := aValue; +end; + +function THistoricoMovimientosDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_HistoricoMovimientosREFERENCIA].IsNull; +end; + +procedure THistoricoMovimientosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_HistoricoMovimientosREFERENCIA].AsVariant := Null; +end; + +function THistoricoMovimientosDataTableRules.GetREFERENCIA_PROVValue: String; +begin + result := DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_PROV].AsString; +end; + +procedure THistoricoMovimientosDataTableRules.SetREFERENCIA_PROVValue(const aValue: String); +begin + DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_PROV].AsString := aValue; +end; + +function THistoricoMovimientosDataTableRules.GetREFERENCIA_PROVIsNull: boolean; +begin + result := DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_PROV].IsNull; +end; + +procedure THistoricoMovimientosDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_PROV].AsVariant := Null; +end; + +function THistoricoMovimientosDataTableRules.GetDESCRIPCIONValue: String; +begin + result := DataTable.Fields[idx_HistoricoMovimientosDESCRIPCION].AsString; +end; + +procedure THistoricoMovimientosDataTableRules.SetDESCRIPCIONValue(const aValue: String); +begin + DataTable.Fields[idx_HistoricoMovimientosDESCRIPCION].AsString := aValue; +end; + +function THistoricoMovimientosDataTableRules.GetDESCRIPCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_HistoricoMovimientosDESCRIPCION].IsNull; +end; + +procedure THistoricoMovimientosDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_HistoricoMovimientosDESCRIPCION].AsVariant := Null; +end; + +function THistoricoMovimientosDataTableRules.GetTIPO_MOVIMIENTOValue: String; +begin + result := DataTable.Fields[idx_HistoricoMovimientosTIPO_MOVIMIENTO].AsString; +end; + +procedure THistoricoMovimientosDataTableRules.SetTIPO_MOVIMIENTOValue(const aValue: String); +begin + DataTable.Fields[idx_HistoricoMovimientosTIPO_MOVIMIENTO].AsString := aValue; +end; + +function THistoricoMovimientosDataTableRules.GetTIPO_MOVIMIENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_HistoricoMovimientosTIPO_MOVIMIENTO].IsNull; +end; + +procedure THistoricoMovimientosDataTableRules.SetTIPO_MOVIMIENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_HistoricoMovimientosTIPO_MOVIMIENTO].AsVariant := Null; +end; + +function THistoricoMovimientosDataTableRules.GetCANTIDADValue: Integer; +begin + result := DataTable.Fields[idx_HistoricoMovimientosCANTIDAD].AsInteger; +end; + +procedure THistoricoMovimientosDataTableRules.SetCANTIDADValue(const aValue: Integer); +begin + DataTable.Fields[idx_HistoricoMovimientosCANTIDAD].AsInteger := aValue; +end; + +function THistoricoMovimientosDataTableRules.GetCANTIDADIsNull: boolean; +begin + result := DataTable.Fields[idx_HistoricoMovimientosCANTIDAD].IsNull; +end; + +procedure THistoricoMovimientosDataTableRules.SetCANTIDADIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_HistoricoMovimientosCANTIDAD].AsVariant := Null; +end; + +function THistoricoMovimientosDataTableRules.GetCAUSAValue: String; +begin + result := DataTable.Fields[idx_HistoricoMovimientosCAUSA].AsString; +end; + +procedure THistoricoMovimientosDataTableRules.SetCAUSAValue(const aValue: String); +begin + DataTable.Fields[idx_HistoricoMovimientosCAUSA].AsString := aValue; +end; + +function THistoricoMovimientosDataTableRules.GetCAUSAIsNull: boolean; +begin + result := DataTable.Fields[idx_HistoricoMovimientosCAUSA].IsNull; +end; + +procedure THistoricoMovimientosDataTableRules.SetCAUSAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_HistoricoMovimientosCAUSA].AsVariant := Null; end; initialization - RegisterDataTableRules(RID_HISTORICO_MOVIMIENTOS, THISTORICO_MOVIMIENTOSDataTableRules); + RegisterDataTableRules(RID_HistoricoMovimientos, THistoricoMovimientosDataTableRules); end. diff --git a/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosServer_Intf.pas b/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosServer_Intf.pas index ce82236e..2ce16ff8 100644 --- a/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosServer_Intf.pas +++ b/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosServer_Intf.pas @@ -3,18 +3,18 @@ unit schHistoricoMovimientosServer_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schHistoricoMovimientosClient_Intf; + Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schHistoricoMovimientosClient_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_HISTORICO_MOVIMIENTOSDelta = '{2C024E72-D176-4BD9-9740-772FD40C7E80}'; + RID_HistoricoMovimientosDelta = '{3CD3F6E4-FEEA-4235-AA03-835172F2594A}'; type - { IHISTORICO_MOVIMIENTOSDelta } - IHISTORICO_MOVIMIENTOSDelta = interface(IHISTORICO_MOVIMIENTOS) - ['{2C024E72-D176-4BD9-9740-772FD40C7E80}'] + { IHistoricoMovimientosDelta } + IHistoricoMovimientosDelta = interface(IHistoricoMovimientos) + ['{3CD3F6E4-FEEA-4235-AA03-835172F2594A}'] { Property getters and setters } function GetOldFECHAValue : DateTime; function GetOldID_ALMACENValue : Integer; @@ -44,73 +44,133 @@ type property OldCAUSA : String read GetOldCAUSAValue; end; - { THISTORICO_MOVIMIENTOSBusinessProcessorRules } - THISTORICO_MOVIMIENTOSBusinessProcessorRules = class(TDABusinessProcessorRules, IHISTORICO_MOVIMIENTOS, IHISTORICO_MOVIMIENTOSDelta) + { THistoricoMovimientosBusinessProcessorRules } + THistoricoMovimientosBusinessProcessorRules = class(TDABusinessProcessorRules, IHistoricoMovimientos, IHistoricoMovimientosDelta) private protected { Property getters and setters } function GetFECHAValue: DateTime; virtual; + function GetFECHAIsNull: Boolean; virtual; function GetOldFECHAValue: DateTime; virtual; + function GetOldFECHAIsNull: Boolean; virtual; procedure SetFECHAValue(const aValue: DateTime); virtual; + procedure SetFECHAIsNull(const aValue: Boolean); virtual; function GetID_ALMACENValue: Integer; virtual; + function GetID_ALMACENIsNull: Boolean; virtual; function GetOldID_ALMACENValue: Integer; virtual; + function GetOldID_ALMACENIsNull: Boolean; virtual; procedure SetID_ALMACENValue(const aValue: Integer); virtual; + procedure SetID_ALMACENIsNull(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 GetNOMBRE_ALMACENValue: String; virtual; + function GetNOMBRE_ALMACENIsNull: Boolean; virtual; function GetOldNOMBRE_ALMACENValue: String; virtual; + function GetOldNOMBRE_ALMACENIsNull: Boolean; virtual; procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual; + procedure SetNOMBRE_ALMACENIsNull(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 GetFAMILIAValue: String; virtual; + function GetFAMILIAIsNull: Boolean; virtual; function GetOldFAMILIAValue: String; virtual; + function GetOldFAMILIAIsNull: Boolean; virtual; procedure SetFAMILIAValue(const aValue: String); virtual; + procedure SetFAMILIAIsNull(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 GetREFERENCIA_PROVValue: String; virtual; + function GetREFERENCIA_PROVIsNull: Boolean; virtual; function GetOldREFERENCIA_PROVValue: String; virtual; + function GetOldREFERENCIA_PROVIsNull: Boolean; virtual; procedure SetREFERENCIA_PROVValue(const aValue: String); virtual; + procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; function GetOldDESCRIPCIONValue: String; virtual; + function GetOldDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; function GetTIPO_MOVIMIENTOValue: String; virtual; + function GetTIPO_MOVIMIENTOIsNull: Boolean; virtual; function GetOldTIPO_MOVIMIENTOValue: String; virtual; + function GetOldTIPO_MOVIMIENTOIsNull: Boolean; virtual; procedure SetTIPO_MOVIMIENTOValue(const aValue: String); virtual; + procedure SetTIPO_MOVIMIENTOIsNull(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 GetCAUSAValue: String; virtual; + function GetCAUSAIsNull: Boolean; virtual; function GetOldCAUSAValue: String; virtual; + function GetOldCAUSAIsNull: Boolean; virtual; procedure SetCAUSAValue(const aValue: String); virtual; + procedure SetCAUSAIsNull(const aValue: Boolean); virtual; { Properties } property FECHA : DateTime read GetFECHAValue write SetFECHAValue; + property FECHAIsNull : Boolean read GetFECHAIsNull write SetFECHAIsNull; property OldFECHA : DateTime read GetOldFECHAValue; + property OldFECHAIsNull : Boolean read GetOldFECHAIsNull; property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue; + property ID_ALMACENIsNull : Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; + property OldID_ALMACENIsNull : Boolean read GetOldID_ALMACENIsNull; 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 NOMBRE_ALMACEN : String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; + property NOMBRE_ALMACENIsNull : Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull; property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue; + property OldNOMBRE_ALMACENIsNull : Boolean read GetOldNOMBRE_ALMACENIsNull; 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 FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue; + property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property OldFAMILIA : String read GetOldFAMILIAValue; + property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull; 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 REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; + property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; + property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; property TIPO_MOVIMIENTO : String read GetTIPO_MOVIMIENTOValue write SetTIPO_MOVIMIENTOValue; + property TIPO_MOVIMIENTOIsNull : Boolean read GetTIPO_MOVIMIENTOIsNull write SetTIPO_MOVIMIENTOIsNull; property OldTIPO_MOVIMIENTO : String read GetOldTIPO_MOVIMIENTOValue; + property OldTIPO_MOVIMIENTOIsNull : Boolean read GetOldTIPO_MOVIMIENTOIsNull; 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 CAUSA : String read GetCAUSAValue write SetCAUSAValue; + property CAUSAIsNull : Boolean read GetCAUSAIsNull write SetCAUSAIsNull; property OldCAUSA : String read GetOldCAUSAValue; + property OldCAUSAIsNull : Boolean read GetOldCAUSAIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -121,201 +181,393 @@ type implementation uses - Variants, uROBinaryHelpers; + Variants, uROBinaryHelpers, uDAInterfaces; -{ THISTORICO_MOVIMIENTOSBusinessProcessorRules } -constructor THISTORICO_MOVIMIENTOSBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +{ THistoricoMovimientosBusinessProcessorRules } +constructor THistoricoMovimientosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; -destructor THISTORICO_MOVIMIENTOSBusinessProcessorRules.Destroy; +destructor THistoricoMovimientosBusinessProcessorRules.Destroy; begin inherited; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetFECHAValue: DateTime; +function THistoricoMovimientosBusinessProcessorRules.GetFECHAValue: DateTime; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSFECHA]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFECHA]; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetOldFECHAValue: DateTime; +function THistoricoMovimientosBusinessProcessorRules.GetFECHAIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_HISTORICO_MOVIMIENTOSFECHA]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFECHA]); end; -procedure THISTORICO_MOVIMIENTOSBusinessProcessorRules.SetFECHAValue(const aValue: DateTime); +function THistoricoMovimientosBusinessProcessorRules.GetOldFECHAValue: DateTime; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSFECHA] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosFECHA]; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetID_ALMACENValue: Integer; +function THistoricoMovimientosBusinessProcessorRules.GetOldFECHAIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSID_ALMACEN]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosFECHA]); end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetOldID_ALMACENValue: Integer; +procedure THistoricoMovimientosBusinessProcessorRules.SetFECHAValue(const aValue: DateTime); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_HISTORICO_MOVIMIENTOSID_ALMACEN]; + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFECHA] := aValue; end; -procedure THISTORICO_MOVIMIENTOSBusinessProcessorRules.SetID_ALMACENValue(const aValue: Integer); +procedure THistoricoMovimientosBusinessProcessorRules.SetFECHAIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSID_ALMACEN] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFECHA] := Null; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetID_EMPRESAValue: Integer; +function THistoricoMovimientosBusinessProcessorRules.GetID_ALMACENValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSID_EMPRESA]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosID_ALMACEN]; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +function THistoricoMovimientosBusinessProcessorRules.GetID_ALMACENIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_HISTORICO_MOVIMIENTOSID_EMPRESA]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosID_ALMACEN]); end; -procedure THISTORICO_MOVIMIENTOSBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +function THistoricoMovimientosBusinessProcessorRules.GetOldID_ALMACENValue: Integer; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSID_EMPRESA] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosID_ALMACEN]; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetNOMBRE_ALMACENValue: String; +function THistoricoMovimientosBusinessProcessorRules.GetOldID_ALMACENIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSNOMBRE_ALMACEN]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosID_ALMACEN]); end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetOldNOMBRE_ALMACENValue: String; +procedure THistoricoMovimientosBusinessProcessorRules.SetID_ALMACENValue(const aValue: Integer); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_HISTORICO_MOVIMIENTOSNOMBRE_ALMACEN]; + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosID_ALMACEN] := aValue; end; -procedure THISTORICO_MOVIMIENTOSBusinessProcessorRules.SetNOMBRE_ALMACENValue(const aValue: String); +procedure THistoricoMovimientosBusinessProcessorRules.SetID_ALMACENIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSNOMBRE_ALMACEN] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosID_ALMACEN] := Null; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetID_ARTICULOValue: Integer; +function THistoricoMovimientosBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSID_ARTICULO]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosID_EMPRESA]; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; +function THistoricoMovimientosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_HISTORICO_MOVIMIENTOSID_ARTICULO]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosID_EMPRESA]); end; -procedure THISTORICO_MOVIMIENTOSBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); +function THistoricoMovimientosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSID_ARTICULO] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosID_EMPRESA]; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetFAMILIAValue: String; +function THistoricoMovimientosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSFAMILIA]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosID_EMPRESA]); end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetOldFAMILIAValue: String; +procedure THistoricoMovimientosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_HISTORICO_MOVIMIENTOSFAMILIA]; + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosID_EMPRESA] := aValue; end; -procedure THISTORICO_MOVIMIENTOSBusinessProcessorRules.SetFAMILIAValue(const aValue: String); +procedure THistoricoMovimientosBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSFAMILIA] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosID_EMPRESA] := Null; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetREFERENCIAValue: String; +function THistoricoMovimientosBusinessProcessorRules.GetNOMBRE_ALMACENValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSREFERENCIA]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosNOMBRE_ALMACEN]; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetOldREFERENCIAValue: String; +function THistoricoMovimientosBusinessProcessorRules.GetNOMBRE_ALMACENIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_HISTORICO_MOVIMIENTOSREFERENCIA]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosNOMBRE_ALMACEN]); end; -procedure THISTORICO_MOVIMIENTOSBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +function THistoricoMovimientosBusinessProcessorRules.GetOldNOMBRE_ALMACENValue: String; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSREFERENCIA] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosNOMBRE_ALMACEN]; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetREFERENCIA_PROVValue: String; +function THistoricoMovimientosBusinessProcessorRules.GetOldNOMBRE_ALMACENIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSREFERENCIA_PROV]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosNOMBRE_ALMACEN]); end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String; +procedure THistoricoMovimientosBusinessProcessorRules.SetNOMBRE_ALMACENValue(const aValue: String); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_HISTORICO_MOVIMIENTOSREFERENCIA_PROV]; + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosNOMBRE_ALMACEN] := aValue; end; -procedure THISTORICO_MOVIMIENTOSBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String); +procedure THistoricoMovimientosBusinessProcessorRules.SetNOMBRE_ALMACENIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSREFERENCIA_PROV] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosNOMBRE_ALMACEN] := Null; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetDESCRIPCIONValue: String; +function THistoricoMovimientosBusinessProcessorRules.GetID_ARTICULOValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSDESCRIPCION]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosID_ARTICULO]; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetOldDESCRIPCIONValue: String; +function THistoricoMovimientosBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_HISTORICO_MOVIMIENTOSDESCRIPCION]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosID_ARTICULO]); end; -procedure THISTORICO_MOVIMIENTOSBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); +function THistoricoMovimientosBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSDESCRIPCION] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosID_ARTICULO]; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetTIPO_MOVIMIENTOValue: String; +function THistoricoMovimientosBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSTIPO_MOVIMIENTO]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosID_ARTICULO]); end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetOldTIPO_MOVIMIENTOValue: String; +procedure THistoricoMovimientosBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_HISTORICO_MOVIMIENTOSTIPO_MOVIMIENTO]; + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosID_ARTICULO] := aValue; end; -procedure THISTORICO_MOVIMIENTOSBusinessProcessorRules.SetTIPO_MOVIMIENTOValue(const aValue: String); +procedure THistoricoMovimientosBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSTIPO_MOVIMIENTO] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosID_ARTICULO] := Null; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetCANTIDADValue: Integer; +function THistoricoMovimientosBusinessProcessorRules.GetFAMILIAValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSCANTIDAD]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFAMILIA]; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetOldCANTIDADValue: Integer; +function THistoricoMovimientosBusinessProcessorRules.GetFAMILIAIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_HISTORICO_MOVIMIENTOSCANTIDAD]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFAMILIA]); end; -procedure THISTORICO_MOVIMIENTOSBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); +function THistoricoMovimientosBusinessProcessorRules.GetOldFAMILIAValue: String; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSCANTIDAD] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosFAMILIA]; end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetCAUSAValue: String; +function THistoricoMovimientosBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSCAUSA]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosFAMILIA]); end; -function THISTORICO_MOVIMIENTOSBusinessProcessorRules.GetOldCAUSAValue: String; +procedure THistoricoMovimientosBusinessProcessorRules.SetFAMILIAValue(const aValue: String); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_HISTORICO_MOVIMIENTOSCAUSA]; + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFAMILIA] := aValue; end; -procedure THISTORICO_MOVIMIENTOSBusinessProcessorRules.SetCAUSAValue(const aValue: String); +procedure THistoricoMovimientosBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_HISTORICO_MOVIMIENTOSCAUSA] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFAMILIA] := Null; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA]; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA]); +end; + +function THistoricoMovimientosBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosREFERENCIA]; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosREFERENCIA]); +end; + +procedure THistoricoMovimientosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA] := aValue; +end; + +procedure THistoricoMovimientosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA] := Null; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetREFERENCIA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_PROV]; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_PROV]); +end; + +function THistoricoMovimientosBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosREFERENCIA_PROV]; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosREFERENCIA_PROV]); +end; + +procedure THistoricoMovimientosBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_PROV] := aValue; +end; + +procedure THistoricoMovimientosBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_PROV] := Null; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosDESCRIPCION]; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosDESCRIPCION]); +end; + +function THistoricoMovimientosBusinessProcessorRules.GetOldDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosDESCRIPCION]; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosDESCRIPCION]); +end; + +procedure THistoricoMovimientosBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosDESCRIPCION] := aValue; +end; + +procedure THistoricoMovimientosBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosDESCRIPCION] := Null; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetTIPO_MOVIMIENTOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosTIPO_MOVIMIENTO]; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetTIPO_MOVIMIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosTIPO_MOVIMIENTO]); +end; + +function THistoricoMovimientosBusinessProcessorRules.GetOldTIPO_MOVIMIENTOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosTIPO_MOVIMIENTO]; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetOldTIPO_MOVIMIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosTIPO_MOVIMIENTO]); +end; + +procedure THistoricoMovimientosBusinessProcessorRules.SetTIPO_MOVIMIENTOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosTIPO_MOVIMIENTO] := aValue; +end; + +procedure THistoricoMovimientosBusinessProcessorRules.SetTIPO_MOVIMIENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosTIPO_MOVIMIENTO] := Null; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetCANTIDADValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosCANTIDAD]; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetCANTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosCANTIDAD]); +end; + +function THistoricoMovimientosBusinessProcessorRules.GetOldCANTIDADValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosCANTIDAD]; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosCANTIDAD]); +end; + +procedure THistoricoMovimientosBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosCANTIDAD] := aValue; +end; + +procedure THistoricoMovimientosBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosCANTIDAD] := Null; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetCAUSAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosCAUSA]; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetCAUSAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosCAUSA]); +end; + +function THistoricoMovimientosBusinessProcessorRules.GetOldCAUSAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosCAUSA]; +end; + +function THistoricoMovimientosBusinessProcessorRules.GetOldCAUSAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosCAUSA]); +end; + +procedure THistoricoMovimientosBusinessProcessorRules.SetCAUSAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosCAUSA] := aValue; +end; + +procedure THistoricoMovimientosBusinessProcessorRules.SetCAUSAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosCAUSA] := Null; end; initialization - RegisterBusinessProcessorRules(RID_HISTORICO_MOVIMIENTOSDelta, THISTORICO_MOVIMIENTOSBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_HistoricoMovimientosDelta, THistoricoMovimientosBusinessProcessorRules); end. diff --git a/Source/Modulos/Historico de movimientos/Model/uBizHistoricoMovimientos.pas b/Source/Modulos/Historico de movimientos/Model/uBizHistoricoMovimientos.pas index 0e59d953..bf051881 100644 --- a/Source/Modulos/Historico de movimientos/Model/uBizHistoricoMovimientos.pas +++ b/Source/Modulos/Historico de movimientos/Model/uBizHistoricoMovimientos.pas @@ -10,11 +10,11 @@ const BIZ_CLIENT_HISTORICO_MOVIMIENTOS = 'Client.HistoricoMovimientos'; type - IBizHistoricoMovimientos = interface(IHistorico_Movimientos) + IBizHistoricoMovimientos = interface(IHistoricoMovimientos) ['{7B2C3A2C-F96E-4BC0-85D6-D513FAD65118}'] end; - TBizHistoricoMovimientos = class(THistorico_MovimientosDataTableRules, IBizHistoricoMovimientos, ISeleccionable) + TBizHistoricoMovimientos = class(THistoricoMovimientosDataTableRules, IBizHistoricoMovimientos, ISeleccionable) protected FSeleccionableInterface : ISeleccionable; diff --git a/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.dpk b/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.dpk index eb22ca0a..61fffe60 100644 --- a/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.dpk +++ b/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.dpk @@ -22,17 +22,11 @@ package HistoricoMovimientos_plugin; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, HistoricoMovimientos_controller, + HistoricoMovimientos_model, HistoricoMovimientos_view; contains diff --git a/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.dproj b/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.dproj new file mode 100644 index 00000000..3c98a386 --- /dev/null +++ b/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.dproj @@ -0,0 +1,540 @@ + + + {232d2cbd-4910-4042-a617-8366cf356ec9} + HistoricoMovimientos_plugin.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\HistoricoMovimientos_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 + + + Delphi.Personality + Package + +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0HistoricoMovimientos_plugin.dpk + + + + + MainSource + + + + + +
PluginHistoricoMovimientos
+ + + + + diff --git a/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.rc b/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.rc +++ b/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.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/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.res b/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.res index 36f26e23..8b251f31 100644 Binary files a/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.res and b/Source/Modulos/Historico de movimientos/Plugin/HistoricoMovimientos_plugin.res differ diff --git a/Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.dfm b/Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.dfm index 77edf388..f6f85cf9 100644 --- a/Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.dfm +++ b/Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.dfm @@ -1,12 +1,11 @@ object srvHistoricoMovimientos: TsrvHistoricoMovimientos OldCreateOrder = True SessionManager = dmServer.SessionManager - AcquireConnection = True ConnectionName = 'IBX' ServiceSchema = schHistoricoMovimientos - ServiceAdapter = DABINAdapter - OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection - OnAfterGetDatasetData = DARemoteServiceAfterGetDatasetData + ServiceDataStreamer = Bin2DataStreamer + ExportedDataTables = <> + BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection Height = 154 Width = 303 object schHistoricoMovimientos: TDASchema @@ -19,12 +18,7 @@ object srvHistoricoMovimientos: TsrvHistoricoMovimientos item Connection = 'IBX' TargetTable = 'V_HISTORICO_MOVIMIENTOS' - SQL = - 'SELECT'#10' FECHA,'#10' ID_ALMACEN,'#10' ID_EMPRESA,'#10' NOMBRE_ALM' + - 'ACEN,'#10' ID_ARTICULO,'#10' FAMILIA,'#10' REFERENCIA,'#10' REFERENC' + - 'IA_PROV,'#10' DESCRIPCION,'#10' TIPO_MOVIMIENTO,'#10' CANTIDAD,'#10' ' + - ' CAUSA'#10#10#10'FROM V_HISTORICO_MOVIMIENTOS'#10'ORDER BY FECHA DESC' - StatementType = stSQL + StatementType = stAutoSQL ColumnMappings = < item DatasetField = 'FECHA' @@ -75,254 +69,162 @@ object srvHistoricoMovimientos: TsrvHistoricoMovimientos TableField = 'REFERENCIA_PROV' end> end> - Name = 'HISTORICO_MOVIMIENTOS' + Name = 'HistoricoMovimientos' Fields = < item Name = 'FECHA' DataType = datDateTime - BlobType = dabtUnknown DictionaryEntry = 'HISTORICO_MOVIMIENTOS_FECHA' InPrimaryKey = True - Calculated = False - Lookup = False - LookupCache = False end item Name = 'ID_ALMACEN' DataType = datInteger - BlobType = dabtUnknown DictionaryEntry = 'HISTORICO_MOVIMIENTOS_ID_ALMACEN' InPrimaryKey = True - Calculated = False - Lookup = False - LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger - BlobType = dabtUnknown DictionaryEntry = 'HISTORICO_MOVIMIENTOS_ID_EMPRESA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'NOMBRE_ALMACEN' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'HISTORICO_MOVIMIENTOS_NOMBRE_ALMACEN' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'ID_ARTICULO' DataType = datInteger - BlobType = dabtUnknown DictionaryEntry = 'HISTORICO_MOVIMIENTOS_ID_ARTICULO' InPrimaryKey = True - Calculated = False - Lookup = False - LookupCache = False end item Name = 'FAMILIA' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'HISTORICO_MOVIMIENTOS_FAMILIA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'HISTORICO_MOVIMIENTOS_REFERENCIA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'HISTORICO_MOVIMIENTOS_REFERENCIA_PROV' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'DESCRIPCION' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'HISTORICO_MOVIMIENTOS_DESCRIPCION' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'TIPO_MOVIMIENTO' DataType = datString Size = 7 - BlobType = dabtUnknown DictionaryEntry = 'HISTORICO_MOVIMIENTOS_TIPO_MOVIMIENTO' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'CANTIDAD' DataType = datInteger - BlobType = dabtUnknown DictionaryEntry = 'HISTORICO_MOVIMIENTOS_CANTIDAD' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'CAUSA' DataType = datString Size = 2021 - BlobType = dabtUnknown DictionaryEntry = 'HISTORICO_MOVIMIENTOS_CAUSA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript end> + JoinDataTables = <> + UnionDataTables = <> Commands = <> RelationShips = <> UpdateRules = <> - Left = 80 + Version = 0 + Left = 48 Top = 16 end - object DABINAdapter: TDABINAdapter - Left = 40 - Top = 72 - end object DataDictionary: TDADataDictionary Fields = < item Name = 'HISTORICO_MOVIMIENTOS_FECHA' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Fecha' - Alignment = taLeftJustify end item Name = 'HISTORICO_MOVIMIENTOS_ID_ALMACEN' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'ID_ALMACEN' - Alignment = taLeftJustify end item Name = 'HISTORICO_MOVIMIENTOS_ID_EMPRESA' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'ID_EMPRESA' - Alignment = taLeftJustify end item Name = 'HISTORICO_MOVIMIENTOS_NOMBRE_ALMACEN' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Almac'#233'n' - Alignment = taLeftJustify end item Name = 'HISTORICO_MOVIMIENTOS_ID_ARTICULO' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'ID_ARTICULO' - Alignment = taLeftJustify end item Name = 'HISTORICO_MOVIMIENTOS_FAMILIA' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Familia' - Alignment = taLeftJustify end item Name = 'HISTORICO_MOVIMIENTOS_DESCRIPCION' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Descripci'#243'n' - Alignment = taLeftJustify end item Name = 'HISTORICO_MOVIMIENTOS_TIPO_MOVIMIENTO' DataType = datString Size = 7 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Tipo mov.' - Alignment = taLeftJustify end item Name = 'HISTORICO_MOVIMIENTOS_CANTIDAD' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Cantidad' - Alignment = taLeftJustify end item Name = 'HISTORICO_MOVIMIENTOS_CAUSA' DataType = datString Size = 2021 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Causa' - Alignment = taLeftJustify end item Name = 'HISTORICO_MOVIMIENTOS_REFERENCIA' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Referencia' - Alignment = taLeftJustify end item Name = 'HISTORICO_MOVIMIENTOS_REFERENCIA_PROV' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Ref. proveedor' - Alignment = taLeftJustify end> - Left = 134 - Top = 70 + Left = 166 + Top = 22 + end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 88 end end diff --git a/Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.pas b/Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.pas index d4292b7f..19faaa45 100644 --- a/Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.pas +++ b/Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.pas @@ -12,21 +12,22 @@ interface uses {vcl:} Classes, SysUtils, {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract_Intf, - {Generated:} FactuGES_Intf, uDAClasses, uDAScriptingProvider, - uDABusinessProcessor, uDADataTable, uDABINAdapter, uDAInterfaces; + {Ancestor Implementation:} DataAbstractService_Impl, + {Used RODLs:} DataAbstract4_Intf, + {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, + uDAScriptingProvider, uDAClasses, + FactuGES_Intf, uDAInterfaces; type { TsrvHistoricoMovimientos } - TsrvHistoricoMovimientos = class(TDARemoteService, IsrvHistoricoMovimientos) - DABINAdapter: TDABINAdapter; + TsrvHistoricoMovimientos = class(TDataAbstractService, IsrvHistoricoMovimientos) + Bin2DataStreamer: TDABin2DataStreamer; schHistoricoMovimientos: TDASchema; DataDictionary: TDADataDictionary; procedure DARemoteServiceAfterGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); - procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService; - var ConnectionName: string); + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; + var aConnectionName: string); end; implementation @@ -46,17 +47,19 @@ procedure TsrvHistoricoMovimientos.DARemoteServiceAfterGetDatasetData( const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); begin +{ if DataSet.Name = nme_Inventario then begin { Aquí se asegura que el usuario sólo accede a los Articulos de las empresas a las que tiene permiso para acceder filtrando DataSet por ID_EMPRESA. } - FiltrarAccesoUsuario(Session, Connection, schHistoricoMovimientos, DataSet, fld_InventarioID_EMPRESA); +{ FiltrarAccesoUsuario(Session, Connection, schHistoricoMovimientos, DataSet, fld_InventarioID_EMPRESA); end; +} end; -procedure TsrvHistoricoMovimientos.DARemoteServiceBeforeAcquireConnection( - Sender: TDARemoteService; var ConnectionName: string); +procedure TsrvHistoricoMovimientos.DataAbstractServiceBeforeAcquireConnection( + aSender: TObject; var aConnectionName: string); begin ConnectionName := dmServer.ConnectionName; end; diff --git a/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.dpk b/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.dpk index 7e9ff15a..87aac570 100644 --- a/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.dpk +++ b/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.dpk @@ -22,62 +22,10 @@ package HistoricoMovimientos_view; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dbrtl, - vcldb, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - vcljpg, - cxExtEditorsD10, - vclx, - cxGridD10, - cxPageControlD10, - cxExportD10, - dxPSCoreD10, - dxComnD10, - frx10, - fs10, - fqb100, - bdertl, - dxPScxCommonD10, - dxPSLnksD10, - designide, - xmlrtl, - vclactnband, - vclshlctrls, - dxPScxGridLnkD10, - dclcxLibraryD10, - PngComponentsD10, - PNG_D10, - dsnap, - adortl, - tbx_d10, - tb2k_d10, - JvCoreD10R, - Jcl, - JclVcl, - JvSystemD10R, - JvPageCompsD10R, - JvStdCtrlsD10R, - GUIBase, - Almacenes_controller, - Almacenes_model, - JvGlobusD10R, - VclSmp, - vclie, - GUISDK_D10, - ccpack10, - cfpack_d10, - JvAppFrmD10R, - PedProv_AlbProv_relation, - JSDialog100, - HistoricoMovimientos_data, + HistoricoMovimientos_model, HistoricoMovimientos_controller; contains diff --git a/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.dproj b/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.dproj new file mode 100644 index 00000000..0474f71e --- /dev/null +++ b/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.dproj @@ -0,0 +1,545 @@ + + + {4269f0a2-b81f-47f7-a014-f7f28bc5bb79} + HistoricoMovimientos_view.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\HistoricoMovimientos_view.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 + + + Delphi.Personality + Package + +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0HistoricoMovimientos_view.dpk + + + + + MainSource + + + + +
fEditorHistoricoMovimientos
+ TfrEditorHistoricoMovimientos + + + +
frViewHistoricoMovimientos
+ TFrame + + + + + diff --git a/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.rc b/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.rc +++ b/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.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/Historico de movimientos/Views/HistoricoMovimientos_view.res b/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.res index 36f26e23..8b251f31 100644 Binary files a/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.res and b/Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.res differ diff --git a/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm b/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm index 348c111d..a6c5d459 100644 --- a/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm +++ b/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm @@ -135,7 +135,6 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos end inherited TBXDock: TTBXDock Width = 902 - ExplicitTop = 27 ExplicitWidth = 902 inherited tbxMain: TTBXToolbar ExplicitWidth = 358 diff --git a/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.pas b/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.pas index cc4af3cf..8e69d231 100644 Binary files a/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.pas and b/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.pas differ diff --git a/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm b/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm index 3cead18f..63968094 100644 --- a/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm +++ b/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm @@ -6,7 +6,7 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos DataController.KeyFieldNames = 'RecID' DataController.Summary.DefaultGroupSummaryItems = < item - Format = ',0.00 '#8364';-,0.00 '#8364 + Format = ',0.00 '#8364';-,0.00 '#8364 Kind = skSum Position = spFooter end> diff --git a/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas b/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas index b91bcb5c..32b02146 100644 --- a/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas +++ b/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas @@ -14,7 +14,7 @@ uses cxImageComboBox, ImgList, PngImageList, cxTextEdit, Grids, DBGrids, cxDBLookupComboBox, cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid, uBizHistoricoMovimientos, uBizAlmacenes, cxSpinEdit, uViewFiltroBase, TB2Item, TBX, - TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit; + TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uDAInterfaces; type IViewHistoricoMovimientos = interface(IViewGrid) @@ -118,7 +118,7 @@ begin if Assigned(ARecord) then begin - IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_Historico_MovimientosCANTIDAD).Index; + IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_HistoricoMovimientosCANTIDAD).Index; ACantidad := ARecord.DisplayTexts[IndiceCol]; if (ACantidad < 0) then AStyle := cxStyleSalida diff --git a/Source/Modulos/Inventario/Controller/Inventario_controller.dpk b/Source/Modulos/Inventario/Controller/Inventario_controller.dpk index f5d05bb8..bceee262 100644 --- a/Source/Modulos/Inventario/Controller/Inventario_controller.dpk +++ b/Source/Modulos/Inventario/Controller/Inventario_controller.dpk @@ -22,25 +22,15 @@ package Inventario_controller; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, Inventario_model, - vcl, - dbrtl, - cxLibraryD10, - dxThemeD10, - dsnap, - vcldb, - adortl, - GUIBase, Inventario_data, - Usuarios, - Almacenes_controller, Articulos_controller, - PedidosCliente_controller, - PedidosCliente_model, + Almacenes_controller, + PresupuestosCliente_model, + PresupuestosCliente_controller, PedidosProveedor_controller, PedidosProveedor_model; diff --git a/Source/Modulos/Inventario/Controller/Inventario_controller.dproj b/Source/Modulos/Inventario/Controller/Inventario_controller.dproj new file mode 100644 index 00000000..7fd59e3f --- /dev/null +++ b/Source/Modulos/Inventario/Controller/Inventario_controller.dproj @@ -0,0 +1,593 @@ + + + {5874467b-b5ec-4f13-a56b-36d9d93d49a5} + Inventario_controller.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Inventario_controller.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 + + + 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 + + + + Inventario_controller.dpk + + + + + + + MainSource + + + + + + + + + + +
dmInventarioUtils
+ TDataModule + + + + + + + + + + + + diff --git a/Source/Modulos/Inventario/Controller/uArticulosInventarioController.pas b/Source/Modulos/Inventario/Controller/uArticulosInventarioController.pas index 05bf585f..d52d1981 100644 --- a/Source/Modulos/Inventario/Controller/uArticulosInventarioController.pas +++ b/Source/Modulos/Inventario/Controller/uArticulosInventarioController.pas @@ -19,7 +19,7 @@ implementation { TArticulosInventarioController } -uses Controls, uIEditorElegirArticulosCatalogo; +uses Controls, cxControls, uIEditorElegirArticulosCatalogo; function TArticulosInventarioController.ElegirArticulos(AArticulos: IBizArticulo; AMensaje: String; AMultiSelect: Boolean): IBizArticulo; diff --git a/Source/Modulos/Inventario/Controller/uInventarioController.pas b/Source/Modulos/Inventario/Controller/uInventarioController.pas index a0a236c9..5ef10f0d 100644 --- a/Source/Modulos/Inventario/Controller/uInventarioController.pas +++ b/Source/Modulos/Inventario/Controller/uInventarioController.pas @@ -6,7 +6,7 @@ interface uses Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem, uIDataModuleInventario, uBizInventario, uArticulosInventarioController, - uAlmacenesController, uPedidosClienteController, uBizPedidosCliente, + uAlmacenesController, uPresupuestosClienteController, uBizPresupuestosCliente, uPedidosProveedorController, uBizPedidosProveedor, uBizArticulos, uBizAlmacenes; @@ -51,18 +51,18 @@ type private FAlmacenesController: IAlmacenesController; FArticulosController : IArticulosInventarioController; - FPedidosClienteController : IPedidosClienteController; + FPresupuestosClienteController : IPresupuestosClienteController; FPedidosProveedorController : IPedidosProveedorController; function GetAlmacenesController: IAlmacenesController; function GetArticulosController: IArticulosInventarioController; - function GetPedidosClienteController: IPedidosClienteController; + function GetPresupuestosClienteController: IPresupuestosClienteController; function GetPedidosProveedorController: IPedidosProveedorController; procedure SetAlmacenesController(const Value: IAlmacenesController); procedure SetArticulosController(const Value: IArticulosInventarioController); - procedure SetPedidosClienteController(const Value: IPedidosClienteController); + procedure SetPresupuestosClienteController(const Value: IPresupuestosClienteController); procedure SetPedidosProveedorController(const Value: IPedidosProveedorController); - function Reservar(AInventario : IBizInventario; Todos: Boolean; Const APedido: IBizPedidoCliente): Boolean; overload; + function Reservar(AInventario : IBizInventario; Todos: Boolean; Const APedido: IBizPresupuestoCliente): Boolean; overload; function Liberar(AInventario : IBizInventario; Todos: Boolean): Boolean; overload; function EntradaSalidaArticulos(AArticulos, AInventario : IBizInventario; APedido: IBizPedidoProveedor = Nil): Boolean; overload; @@ -90,7 +90,7 @@ type public property AlmacenesController: IAlmacenesController read GetAlmacenesController write SetAlmacenesController; property ArticulosController: IArticulosInventarioController read GetArticulosController write SetArticulosController; - property PedidosClienteController: IPedidosClienteController read GetPedidosClienteController write SetPedidosClienteController; + property PresupuestosClienteController: IPresupuestosClienteController read GetPresupuestosClienteController write SetPresupuestosClienteController; property PedidosProveedorController: IPedidosProveedorController read GetPedidosProveedorController write SetPedidosProveedorController; constructor Create; virtual; @@ -136,7 +136,7 @@ uses uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows, dialogs, Variants, schPedidosProveedorClient_Intf, - uControllerDetallesBase, uDialogUtils, + uControllerDetallesBase, uDialogUtils, uFactuGES_App, uIEditorEntradaSalidaArticulos, schArticulosClient_Intf, uIEditorElegirArticulosAlmacen, uInventarioUtils, uIEditorDetalleReservas; @@ -283,7 +283,7 @@ begin AsignarDataModule; FArticulosController := TArticulosInventarioController.Create; FAlmacenesController := TAlmacenesController.Create; - FPedidosClienteController := TPedidosClienteController.Create; + FPresupuestosClienteController := TPresupuestosClienteController.Create; FPedidosProveedorController := TPedidosProveedorController.Create; end; @@ -315,7 +315,7 @@ begin FDataModule := Nil; FArticulosController := Nil; FAlmacenesController := Nil; - FPedidosClienteController := Nil; + FPresupuestosClienteController := Nil; FPedidosProveedorController := Nil; inherited; end; @@ -385,7 +385,7 @@ begin with ADetalleReservas.DataTable.DynamicWhere do begin // (ID_EMPRESA >= ID) - Condicion := NewBinaryExpression(NewField('', fld_DETALLE_RESERVAS_INVID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual); + Condicion := NewBinaryExpression(NewField('', fld_DetalleReservasID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual); if IsEmpty then Expression := Condicion @@ -690,24 +690,24 @@ end;} procedure TInventarioController.Reservar(AInventario : IBizInventario); var - APedido: IBizPedidoCliente; + APresupuesto: IBizPresupuestoCliente; begin if not Assigned(AInventario) then exit; try - APedido := FPedidosClienteController.BuscarPendientes; - APedido := FPedidosClienteController.ElegirPedidos(APedido, '', False); + APresupuesto := FPresupuestosClienteController.BuscarPendientes; + APresupuesto := FPresupuestosClienteController.ElegirPresupuestos(APresupuesto, '', False); - if Assigned(APedido) then - Reservar(AInventario, False, APedido); + if Assigned(APresupuesto) then + Reservar(AInventario, False, APresupuesto); finally - APedido := Nil; + APresupuesto := Nil; end; end; -function TInventarioController.Reservar(AInventario : IBizInventario; Todos: Boolean; const APedido: IBizPedidoCliente): Boolean; +function TInventarioController.Reservar(AInventario : IBizInventario; Todos: Boolean; const APedido: IBizPresupuestoCliente): Boolean; begin { Result := False; @@ -801,9 +801,9 @@ begin FArticulosController := Value end; -procedure TInventarioController.SetPedidosClienteController(const Value: IPedidosClienteController); +procedure TInventarioController.SetPresupuestosClienteController(const Value: IPresupuestosClienteController); begin - FPedidosClienteController := Value + FPresupuestosClienteController := Value end; procedure TInventarioController.SetPedidosProveedorController(const Value: IPedidosProveedorController); @@ -893,7 +893,7 @@ begin AInventario.DataTable.Active := False; // Filtrar los inventario actuales por empresa - with AAlbaran.DataTable.DynamicWhere do + with AInventario.DataTable.DynamicWhere do begin // (ID_EMPRESA >= ID) Condicion := NewBinaryExpression(NewField('', fld_InventarioID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual); @@ -915,9 +915,9 @@ begin Result := FArticulosController; end; -function TInventarioController.GetPedidosClienteController: IPedidosClienteController; +function TInventarioController.GetPresupuestosClienteController: IPresupuestosClienteController; begin - Result := FPedidosClienteController; + Result := FPresupuestosClienteController; end; function TInventarioController.GetPedidosProveedorController: IPedidosProveedorController; @@ -1069,7 +1069,6 @@ begin //Realmente son los campos de la tabla movimientos los que estamos asignando //que luego por comandos se realizarán las inserciones - AArticulos.ID := FDataModule.GetNextID(AArticulos.DataTable.LogicalName); AArticulos.FECHA_MOVIMIENTO := FechaMovimiento; AArticulos.CAUSA := CausaMovimiento; case AArticulos.TipoMovimiento of @@ -1093,7 +1092,6 @@ begin while not EOF do begin AArticulosTraslado.Insert; - AArticulosTraslado.ID := FDataModule.GetNextID(AArticulosTraslado.DataTable.LogicalName); AArticulosTraslado.ID_ALMACEN := AArticulos.IDAlmacenDestino; AArticulosTraslado.ID_ARTICULO := AArticulos.ID_ARTICULO; AArticulosTraslado.FECHA_MOVIMIENTO := AArticulos.FECHA_MOVIMIENTO; diff --git a/Source/Modulos/Inventario/Data/Inventario_data.dpk b/Source/Modulos/Inventario/Data/Inventario_data.dpk index d968db4f..7cd61c54 100644 --- a/Source/Modulos/Inventario/Data/Inventario_data.dpk +++ b/Source/Modulos/Inventario/Data/Inventario_data.dpk @@ -22,19 +22,11 @@ package Inventario_data; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - dbrtl, - cxLibraryD10, - dxThemeD10, - vcl, - dsnap, - vcldb, - adortl, - Base, - Inventario_model; + Inventario_model, + Base; contains uDataModuleInventario in 'uDataModuleInventario.pas' {DataModuleInventario}; diff --git a/Source/Modulos/Inventario/Data/Inventario_data.dproj b/Source/Modulos/Inventario/Data/Inventario_data.dproj new file mode 100644 index 00000000..68664cb3 --- /dev/null +++ b/Source/Modulos/Inventario/Data/Inventario_data.dproj @@ -0,0 +1,579 @@ + + + {761338d5-bf04-40b1-a99b-dec8ced70bf0} + Inventario_data.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Inventario_data.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 + + + 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 + + + + Inventario_data.dpk + + + + + + + MainSource + + + + +
DataModuleInventario
+ + + + + diff --git a/Source/Modulos/Inventario/Data/uDataModuleInventario.dfm b/Source/Modulos/Inventario/Data/uDataModuleInventario.dfm index 4902f49c..8461a920 100644 --- a/Source/Modulos/Inventario/Data/uDataModuleInventario.dfm +++ b/Source/Modulos/Inventario/Data/uDataModuleInventario.dfm @@ -1,151 +1,29 @@ inherited DataModuleInventario: TDataModuleInventario OnCreate = DAClientDataModuleCreate - Height = 414 + Height = 238 Width = 518 object RORemoteService: TRORemoteService + Message = dmConexion.ROMessage + Channel = dmConexion.ROChannel ServiceName = 'srvInventario' Left = 48 Top = 24 end - object tbl_INVENTARIO: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'ID' - DataType = datInteger - LogChanges = False - DisplayLabel = 'INVENTARIO_ID' - DictionaryEntry = 'INVENTARIO_ID' - InPrimaryKey = True - Calculated = True - end - item - Name = 'ID_ALMACEN' - DataType = datInteger - DictionaryEntry = 'INVENTARIO_ID_ALMACEN' - end - item - Name = 'ID_ARTICULO' - DataType = datInteger - DictionaryEntry = 'INVENTARIO_ID_ARTICULO' - end - item - Name = 'ALMACEN' - DataType = datString - Size = 255 - DictionaryEntry = 'INVENTARIO_ALMACEN' - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'INVENTARIO_ID_EMPRESA' - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - DisplayLabel = 'INVENTARIO_REFERENCIA' - DictionaryEntry = 'INVENTARIO_REFERENCIA' - end - item - Name = 'FAMILIA' - DataType = datString - Size = 255 - DictionaryEntry = 'INVENTARIO_FAMILIA' - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - DictionaryEntry = 'INVENTARIO_DESCRIPCION' - end - item - Name = 'PRECIO_NETO' - DataType = datCurrency - DisplayLabel = 'Precio unidad' - Alignment = taRightJustify - DictionaryEntry = 'INVENTARIO_PRECIO_NETO' - end - item - Name = 'REFERENCIA_PROVEEDOR' - DataType = datString - Size = 255 - DictionaryEntry = 'INVENTARIO_REFERENCIA_PROVEEDOR' - end - item - Name = 'UNIDADES_ALMACEN' - DataType = datInteger - DisplayLabel = 'U. Almac'#233'n' - DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN' - end - item - Name = 'COSTE_UNIDADES' - DataType = datCurrency - DisplayLabel = 'Coste unidades' - Alignment = taRightJustify - DictionaryEntry = 'INVENTARIO_COSTE_UNIDADES' - end - item - Name = 'STOCK' - DataType = datInteger - DisplayLabel = 'Stock disponible' - DictionaryEntry = 'INVENTARIO_STOCK' - end - item - Name = 'RESERVA' - DataType = datInteger - DisplayLabel = 'Reservado' - DictionaryEntry = 'INVENTARIO_RESERVA' - end - item - Name = 'PENDIENTE_RECEPCION' - DataType = datInteger - DisplayLabel = 'Pendiente de recibir' - DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION' - end - item - Name = 'CANTIDAD' - DataType = datInteger - DisplayLabel = 'INVENTARIO_CANTIDAD' - DictionaryEntry = 'INVENTARIO_CANTIDAD' - end - item - Name = 'FECHA_MOVIMIENTO' - DataType = datDateTime - DisplayLabel = 'INVENTARIO_FECHA_MOVIMIENTO' - DictionaryEntry = 'INVENTARIO_FECHA_MOVIMIENTO' - end - item - Name = 'CAUSA' - DataType = datString - Size = 255 - DisplayLabel = 'INVENTARIO_CAUSA' - DictionaryEntry = 'INVENTARIO_CAUSA' - end - item - Name = 'TIPO' - DataType = datString - Size = 1 - DisplayLabel = 'INVENTARIO_TIPO' - DictionaryEntry = 'INVENTARIO_TIPO' - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'INVENTARIO' - IndexDefs = <> - Left = 280 - Top = 160 + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 84 end - object ds_INVENTARIO: TDADataSource - DataSet = tbl_INVENTARIO.Dataset - DataTable = tbl_INVENTARIO - Left = 280 - Top = 96 + object rda_Inventario: TDARemoteDataAdapter + GetSchemaCall.RemoteService = RORemoteService + GetDataCall.RemoteService = RORemoteService + UpdateDataCall.RemoteService = RORemoteService + GetScriptsCall.RemoteService = RORemoteService + RemoteService = RORemoteService + DataStreamer = Bin2DataStreamer + Left = 51 + Top = 151 end - object tbl_DetalleReservas: TDACDSDataTable + object tbl_DetalleReservas: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item @@ -164,14 +42,14 @@ inherited DataModuleInventario: TDataModuleInventario Name = 'REFERENCIA_ALB' DataType = datString Size = 255 - DisplayLabel = 'Ref. albar'#225'n' + DisplayLabel = 'Ref. albar'#195#161'n' DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ALB' end item Name = 'SITUACION_ALB' DataType = datString Size = 9 - DisplayLabel = 'Situaci'#243'n' + DisplayLabel = 'Situaci'#195#179'n' DictionaryEntry = 'DETALLE_RESERVAS_INV_SITUACION_ALB' end item @@ -183,14 +61,14 @@ inherited DataModuleInventario: TDataModuleInventario item Name = 'ID_ALMACEN_ALB' DataType = datInteger - DisplayLabel = 'IdAlmac'#233'n' + DisplayLabel = 'IdAlmac'#195#169'n' DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALMACEN_ALB' end item Name = 'ALMACEN_ALB' DataType = datString Size = 255 - DisplayLabel = 'Almac'#233'n' + DisplayLabel = 'Almac'#195#169'n' DictionaryEntry = 'DETALLE_RESERVAS_INV_ALMACEN_ALB' end item @@ -237,43 +115,167 @@ inherited DataModuleInventario: TDataModuleInventario Name = 'DESCRIPCION_ART' DataType = datString Size = 255 - DisplayLabel = 'Descripci'#243'n' + DisplayLabel = 'Descripci'#195#179'n' DictionaryEntry = 'DETALLE_RESERVAS_INV_DESCRIPCION_ART' end item Name = 'CANTIDAD_ART' - DataType = datInteger + DataType = datLargeInt DisplayLabel = 'Reservado' DictionaryEntry = 'DETALLE_RESERVAS_INV_CANTIDAD_ART' end> Params = <> - MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_Inventario DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'DETALLE_RESERVAS_INV' + LogicalName = 'DetalleReservas' IndexDefs = <> - Left = 408 - Top = 160 + Left = 360 + Top = 128 end - object dsDetalleReservas: TDADataSource + object ds_DetalleReservas: TDADataSource DataSet = tbl_DetalleReservas.Dataset DataTable = tbl_DetalleReservas - Left = 408 - Top = 104 + Left = 360 + Top = 72 end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 48 - Top = 84 + object tbl_Inventario: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID_ALMACEN' + DataType = datInteger + DictionaryEntry = 'INVENTARIO_ID_ALMACEN' + end + item + Name = 'ID_ARTICULO' + DataType = datInteger + DictionaryEntry = 'INVENTARIO_ID_ARTICULO' + end + item + Name = 'ALMACEN' + DataType = datString + Size = 255 + DictionaryEntry = 'INVENTARIO_ALMACEN' + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + DictionaryEntry = 'INVENTARIO_ID_EMPRESA' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + DisplayLabel = 'INVENTARIO_REFERENCIA' + DictionaryEntry = 'INVENTARIO_REFERENCIA' + end + item + Name = 'FAMILIA' + DataType = datString + Size = 255 + DictionaryEntry = 'INVENTARIO_FAMILIA' + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + DictionaryEntry = 'INVENTARIO_DESCRIPCION' + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + DictionaryEntry = 'INVENTARIO_REFERENCIA_PROVEEDOR' + end + item + Name = 'PRECIO_NETO' + DataType = datCurrency + DisplayLabel = 'Precio unidad' + Alignment = taRightJustify + DictionaryEntry = 'INVENTARIO_PRECIO_NETO' + end + item + Name = 'STOCK' + DataType = datLargeInt + DisplayLabel = 'Stock disponible' + DictionaryEntry = 'INVENTARIO_STOCK' + end + item + Name = 'UNIDADES_ALMACEN' + DataType = datLargeInt + DisplayLabel = 'U. Almac'#195#169'n' + DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN' + end + item + Name = 'COSTE_UNIDADES' + DataType = datCurrency + DisplayLabel = 'Coste unidades' + Alignment = taRightJustify + DictionaryEntry = 'INVENTARIO_COSTE_UNIDADES' + end + item + Name = 'RESERVA' + DataType = datLargeInt + DisplayLabel = 'Reservado' + DictionaryEntry = 'INVENTARIO_RESERVA' + end + item + Name = 'PENDIENTE_RECEPCION' + DataType = datLargeInt + DisplayLabel = 'Pendiente de recibir' + DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION' + end + item + Name = 'ID' + DataType = datInteger + LogChanges = False + DisplayLabel = 'INVENTARIO_ID' + DictionaryEntry = 'INVENTARIO_ID' + InPrimaryKey = True + Calculated = True + end + item + Name = 'CANTIDAD' + DataType = datInteger + DisplayLabel = 'INVENTARIO_CANTIDAD' + DictionaryEntry = 'INVENTARIO_CANTIDAD' + end + item + Name = 'FECHA_MOVIMIENTO' + DataType = datDateTime + DisplayLabel = 'INVENTARIO_FECHA_MOVIMIENTO' + DictionaryEntry = 'INVENTARIO_FECHA_MOVIMIENTO' + end + item + Name = 'CAUSA' + DataType = datString + Size = 255 + DisplayLabel = 'INVENTARIO_CAUSA' + DictionaryEntry = 'INVENTARIO_CAUSA' + end + item + Name = 'TIPO' + DataType = datString + Size = 1 + DisplayLabel = 'INVENTARIO_TIPO' + DictionaryEntry = 'INVENTARIO_TIPO' + end> + Params = <> + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_Inventario + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'Inventario' + IndexDefs = <> + Left = 184 + Top = 128 end - object rda_Inventario: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetDataCall.RemoteService = RORemoteService - UpdateDataCall.RemoteService = RORemoteService - GetScriptsCall.RemoteService = RORemoteService - RemoteService = RORemoteService - DataStreamer = Bin2DataStreamer - Left = 51 - Top = 151 + object ds_Inventario: TDADataSource + DataSet = tbl_Inventario.Dataset + DataTable = tbl_Inventario + Left = 184 + Top = 72 end end diff --git a/Source/Modulos/Inventario/Data/uDataModuleInventario.pas b/Source/Modulos/Inventario/Data/uDataModuleInventario.pas index ad1de0af..35161cea 100644 --- a/Source/Modulos/Inventario/Data/uDataModuleInventario.pas +++ b/Source/Modulos/Inventario/Data/uDataModuleInventario.pas @@ -8,17 +8,17 @@ uses uROServiceComponent, uRORemoteService, uROClient, uROBinMessage, uDADesigntimeCall, uDataModuleBase, uIDataModuleInventario, uBizInventario, uDARemoteDataAdapter, uDADataStreamer, - uDABin2DataStreamer, uDAInterfaces; + uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable; type TDataModuleInventario = class(TDataModuleBase, IDataModuleInventario) RORemoteService: TRORemoteService; - tbl_INVENTARIO: TDACDSDataTable; - ds_INVENTARIO: TDADataSource; - tbl_DetalleReservas: TDACDSDataTable; - dsDetalleReservas: TDADataSource; Bin2DataStreamer: TDABin2DataStreamer; rda_Inventario: TDARemoteDataAdapter; + tbl_DetalleReservas: TDAMemDataTable; + ds_DetalleReservas: TDADataSource; + tbl_Inventario: TDAMemDataTable; + ds_Inventario: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); public function GetItems : IBizInventario; overload; @@ -31,7 +31,7 @@ implementation {$R *.DFM} uses - FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces, + FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, schInventarioClient_Intf; { TdmArticulos } diff --git a/Source/Modulos/Inventario/Model/Data/uIDataModuleInventario.pas b/Source/Modulos/Inventario/Model/Data/uIDataModuleInventario.pas index df3829e5..faf82231 100644 --- a/Source/Modulos/Inventario/Model/Data/uIDataModuleInventario.pas +++ b/Source/Modulos/Inventario/Model/Data/uIDataModuleInventario.pas @@ -10,7 +10,6 @@ type ['{50AFDC00-4F91-4BC3-BB8A-1F53937BF9A6}'] function GetItems: IBizInventario; overload; function GetItems(const ID_ALMACEN : Integer) : IBizInventario; overload; - function GetNextID(const DataSetName : String) : Integer; function GetDetalleReservas: IBizDetalleReservas; end; diff --git a/Source/Modulos/Inventario/Model/Inventario_model.dpk b/Source/Modulos/Inventario/Model/Inventario_model.dpk index 85e3ec93..9bb03232 100644 --- a/Source/Modulos/Inventario/Model/Inventario_model.dpk +++ b/Source/Modulos/Inventario/Model/Inventario_model.dpk @@ -22,16 +22,10 @@ package Inventario_model; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dsnap, - dbrtl, - vcldb, - adortl, - DataAbstract_D10, + Base, Articulos_model; contains diff --git a/Source/Modulos/Inventario/Model/Inventario_model.dproj b/Source/Modulos/Inventario/Model/Inventario_model.dproj new file mode 100644 index 00000000..9257db20 --- /dev/null +++ b/Source/Modulos/Inventario/Model/Inventario_model.dproj @@ -0,0 +1,580 @@ + + + {82e91760-acc0-4662-9c28-456e5ea6089c} + Inventario_model.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Inventario_model.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 + + + 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 + + + + Inventario_model.dpk + + + + + + + MainSource + + + + + + + + + + + diff --git a/Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas b/Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas index 402369e2..e6a8b607 100644 --- a/Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas +++ b/Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas @@ -3,226 +3,340 @@ unit schInventarioClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable; + 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_INVENTARIO = '{3AB4E732-7897-4CF1-8E79-E09DD13DC2E9}'; - RID_DETALLE_RESERVAS_INV = '{EE8DE96E-5709-43B7-9AB0-B67D3DFA1353}'; + RID_Inventario = '{308FFF0B-E3D1-48F4-901A-38F4A16CCA35}'; + RID_DetalleReservas = '{CE79FB16-723C-4B31-BE6C-4C48D6D8852F}'; { Data table names } - nme_INVENTARIO = 'INVENTARIO'; - nme_DETALLE_RESERVAS_INV = 'DETALLE_RESERVAS_INV'; + nme_Inventario = 'Inventario'; + nme_DetalleReservas = 'DetalleReservas'; - { INVENTARIO fields } - fld_INVENTARIOID = 'ID'; - fld_INVENTARIOID_ALMACEN = 'ID_ALMACEN'; - fld_INVENTARIOID_ARTICULO = 'ID_ARTICULO'; - fld_INVENTARIOALMACEN = 'ALMACEN'; - fld_INVENTARIOID_EMPRESA = 'ID_EMPRESA'; - fld_INVENTARIOREFERENCIA = 'REFERENCIA'; - fld_INVENTARIOFAMILIA = 'FAMILIA'; - fld_INVENTARIODESCRIPCION = 'DESCRIPCION'; - fld_INVENTARIOPRECIO_NETO = 'PRECIO_NETO'; - fld_INVENTARIOREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; - fld_INVENTARIOUNIDADES_ALMACEN = 'UNIDADES_ALMACEN'; - fld_INVENTARIOCOSTE_UNIDADES = 'COSTE_UNIDADES'; - fld_INVENTARIOSTOCK = 'STOCK'; - fld_INVENTARIORESERVA = 'RESERVA'; - fld_INVENTARIOPENDIENTE_RECEPCION = 'PENDIENTE_RECEPCION'; - fld_INVENTARIOCANTIDAD = 'CANTIDAD'; - fld_INVENTARIOFECHA_MOVIMIENTO = 'FECHA_MOVIMIENTO'; - fld_INVENTARIOCAUSA = 'CAUSA'; - fld_INVENTARIOTIPO = 'TIPO'; + { Inventario fields } + fld_InventarioID_ALMACEN = 'ID_ALMACEN'; + fld_InventarioID_ARTICULO = 'ID_ARTICULO'; + fld_InventarioALMACEN = 'ALMACEN'; + fld_InventarioID_EMPRESA = 'ID_EMPRESA'; + fld_InventarioREFERENCIA = 'REFERENCIA'; + fld_InventarioFAMILIA = 'FAMILIA'; + fld_InventarioDESCRIPCION = 'DESCRIPCION'; + fld_InventarioREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; + fld_InventarioPRECIO_NETO = 'PRECIO_NETO'; + fld_InventarioSTOCK = 'STOCK'; + fld_InventarioUNIDADES_ALMACEN = 'UNIDADES_ALMACEN'; + fld_InventarioCOSTE_UNIDADES = 'COSTE_UNIDADES'; + fld_InventarioRESERVA = 'RESERVA'; + fld_InventarioPENDIENTE_RECEPCION = 'PENDIENTE_RECEPCION'; + fld_InventarioID = 'ID'; + fld_InventarioCANTIDAD = 'CANTIDAD'; + fld_InventarioFECHA_MOVIMIENTO = 'FECHA_MOVIMIENTO'; + fld_InventarioCAUSA = 'CAUSA'; + fld_InventarioTIPO = 'TIPO'; - { INVENTARIO field indexes } - idx_INVENTARIOID = 0; - idx_INVENTARIOID_ALMACEN = 1; - idx_INVENTARIOID_ARTICULO = 2; - idx_INVENTARIOALMACEN = 3; - idx_INVENTARIOID_EMPRESA = 4; - idx_INVENTARIOREFERENCIA = 5; - idx_INVENTARIOFAMILIA = 6; - idx_INVENTARIODESCRIPCION = 7; - idx_INVENTARIOPRECIO_NETO = 8; - idx_INVENTARIOREFERENCIA_PROVEEDOR = 9; - idx_INVENTARIOUNIDADES_ALMACEN = 10; - idx_INVENTARIOCOSTE_UNIDADES = 11; - idx_INVENTARIOSTOCK = 12; - idx_INVENTARIORESERVA = 13; - idx_INVENTARIOPENDIENTE_RECEPCION = 14; - idx_INVENTARIOCANTIDAD = 15; - idx_INVENTARIOFECHA_MOVIMIENTO = 16; - idx_INVENTARIOCAUSA = 17; - idx_INVENTARIOTIPO = 18; + { Inventario field indexes } + idx_InventarioID_ALMACEN = 0; + idx_InventarioID_ARTICULO = 1; + idx_InventarioALMACEN = 2; + idx_InventarioID_EMPRESA = 3; + idx_InventarioREFERENCIA = 4; + idx_InventarioFAMILIA = 5; + idx_InventarioDESCRIPCION = 6; + idx_InventarioREFERENCIA_PROVEEDOR = 7; + idx_InventarioPRECIO_NETO = 8; + idx_InventarioSTOCK = 9; + idx_InventarioUNIDADES_ALMACEN = 10; + idx_InventarioCOSTE_UNIDADES = 11; + idx_InventarioRESERVA = 12; + idx_InventarioPENDIENTE_RECEPCION = 13; + idx_InventarioID = 14; + idx_InventarioCANTIDAD = 15; + idx_InventarioFECHA_MOVIMIENTO = 16; + idx_InventarioCAUSA = 17; + idx_InventarioTIPO = 18; - { DETALLE_RESERVAS_INV fields } - fld_DETALLE_RESERVAS_INVID_ALB = 'ID_ALB'; - fld_DETALLE_RESERVAS_INVID_EMPRESA = 'ID_EMPRESA'; - fld_DETALLE_RESERVAS_INVREFERENCIA_ALB = 'REFERENCIA_ALB'; - fld_DETALLE_RESERVAS_INVSITUACION_ALB = 'SITUACION_ALB'; - fld_DETALLE_RESERVAS_INVFECHA_PREVISTA_ENVIO_ALB = 'FECHA_PREVISTA_ENVIO_ALB'; - fld_DETALLE_RESERVAS_INVID_ALMACEN_ALB = 'ID_ALMACEN_ALB'; - fld_DETALLE_RESERVAS_INVALMACEN_ALB = 'ALMACEN_ALB'; - fld_DETALLE_RESERVAS_INVID_CLIENTE_ALB = 'ID_CLIENTE_ALB'; - fld_DETALLE_RESERVAS_INVCLIENTE_ALB = 'CLIENTE_ALB'; - fld_DETALLE_RESERVAS_INVID_ART = 'ID_ART'; - fld_DETALLE_RESERVAS_INVFAMILIA_ART = 'FAMILIA_ART'; - fld_DETALLE_RESERVAS_INVREFERENCIA_ART = 'REFERENCIA_ART'; - fld_DETALLE_RESERVAS_INVREFERENCIA_PROV_ART = 'REFERENCIA_PROV_ART'; - fld_DETALLE_RESERVAS_INVDESCRIPCION_ART = 'DESCRIPCION_ART'; - fld_DETALLE_RESERVAS_INVCANTIDAD_ART = 'CANTIDAD_ART'; + { DetalleReservas fields } + fld_DetalleReservasID_ALB = 'ID_ALB'; + fld_DetalleReservasID_EMPRESA = 'ID_EMPRESA'; + fld_DetalleReservasREFERENCIA_ALB = 'REFERENCIA_ALB'; + fld_DetalleReservasSITUACION_ALB = 'SITUACION_ALB'; + fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB = 'FECHA_PREVISTA_ENVIO_ALB'; + fld_DetalleReservasID_ALMACEN_ALB = 'ID_ALMACEN_ALB'; + fld_DetalleReservasALMACEN_ALB = 'ALMACEN_ALB'; + fld_DetalleReservasID_CLIENTE_ALB = 'ID_CLIENTE_ALB'; + fld_DetalleReservasCLIENTE_ALB = 'CLIENTE_ALB'; + fld_DetalleReservasID_ART = 'ID_ART'; + fld_DetalleReservasFAMILIA_ART = 'FAMILIA_ART'; + fld_DetalleReservasREFERENCIA_ART = 'REFERENCIA_ART'; + fld_DetalleReservasREFERENCIA_PROV_ART = 'REFERENCIA_PROV_ART'; + fld_DetalleReservasDESCRIPCION_ART = 'DESCRIPCION_ART'; + fld_DetalleReservasCANTIDAD_ART = 'CANTIDAD_ART'; - { DETALLE_RESERVAS_INV field indexes } - idx_DETALLE_RESERVAS_INVID_ALB = 0; - idx_DETALLE_RESERVAS_INVID_EMPRESA = 1; - idx_DETALLE_RESERVAS_INVREFERENCIA_ALB = 2; - idx_DETALLE_RESERVAS_INVSITUACION_ALB = 3; - idx_DETALLE_RESERVAS_INVFECHA_PREVISTA_ENVIO_ALB = 4; - idx_DETALLE_RESERVAS_INVID_ALMACEN_ALB = 5; - idx_DETALLE_RESERVAS_INVALMACEN_ALB = 6; - idx_DETALLE_RESERVAS_INVID_CLIENTE_ALB = 7; - idx_DETALLE_RESERVAS_INVCLIENTE_ALB = 8; - idx_DETALLE_RESERVAS_INVID_ART = 9; - idx_DETALLE_RESERVAS_INVFAMILIA_ART = 10; - idx_DETALLE_RESERVAS_INVREFERENCIA_ART = 11; - idx_DETALLE_RESERVAS_INVREFERENCIA_PROV_ART = 12; - idx_DETALLE_RESERVAS_INVDESCRIPCION_ART = 13; - idx_DETALLE_RESERVAS_INVCANTIDAD_ART = 14; + { DetalleReservas field indexes } + idx_DetalleReservasID_ALB = 0; + idx_DetalleReservasID_EMPRESA = 1; + idx_DetalleReservasREFERENCIA_ALB = 2; + idx_DetalleReservasSITUACION_ALB = 3; + idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB = 4; + idx_DetalleReservasID_ALMACEN_ALB = 5; + idx_DetalleReservasALMACEN_ALB = 6; + idx_DetalleReservasID_CLIENTE_ALB = 7; + idx_DetalleReservasCLIENTE_ALB = 8; + idx_DetalleReservasID_ART = 9; + idx_DetalleReservasFAMILIA_ART = 10; + idx_DetalleReservasREFERENCIA_ART = 11; + idx_DetalleReservasREFERENCIA_PROV_ART = 12; + idx_DetalleReservasDESCRIPCION_ART = 13; + idx_DetalleReservasCANTIDAD_ART = 14; type - { IINVENTARIO } - IINVENTARIO = interface(IDAStronglyTypedDataTable) - ['{FF96221D-1DEB-42D7-9EB8-26DA6BD30F2A}'] + { IInventario } + IInventario = interface(IDAStronglyTypedDataTable) + ['{E59DAC0B-889A-47F9-9049-052D880B24BE}'] { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); function GetID_ALMACENValue: Integer; procedure SetID_ALMACENValue(const aValue: Integer); + function GetID_ALMACENIsNull: Boolean; + procedure SetID_ALMACENIsNull(const aValue: Boolean); function GetID_ARTICULOValue: Integer; procedure SetID_ARTICULOValue(const aValue: Integer); + function GetID_ARTICULOIsNull: Boolean; + procedure SetID_ARTICULOIsNull(const aValue: Boolean); function GetALMACENValue: String; procedure SetALMACENValue(const aValue: String); + function GetALMACENIsNull: Boolean; + procedure SetALMACENIsNull(const aValue: Boolean); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); function GetFAMILIAValue: String; procedure SetFAMILIAValue(const aValue: String); + function GetFAMILIAIsNull: Boolean; + procedure SetFAMILIAIsNull(const aValue: Boolean); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); - function GetPRECIO_NETOValue: Currency; - procedure SetPRECIO_NETOValue(const aValue: Currency); + function GetDESCRIPCIONIsNull: Boolean; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); function GetREFERENCIA_PROVEEDORValue: String; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); - function GetUNIDADES_ALMACENValue: Integer; - procedure SetUNIDADES_ALMACENValue(const aValue: Integer); + function GetREFERENCIA_PROVEEDORIsNull: Boolean; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); + function GetPRECIO_NETOValue: Currency; + procedure SetPRECIO_NETOValue(const aValue: Currency); + function GetPRECIO_NETOIsNull: Boolean; + procedure SetPRECIO_NETOIsNull(const aValue: Boolean); + function GetSTOCKValue: Int64; + procedure SetSTOCKValue(const aValue: Int64); + function GetSTOCKIsNull: Boolean; + procedure SetSTOCKIsNull(const aValue: Boolean); + function GetUNIDADES_ALMACENValue: Int64; + procedure SetUNIDADES_ALMACENValue(const aValue: Int64); + function GetUNIDADES_ALMACENIsNull: Boolean; + procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean); function GetCOSTE_UNIDADESValue: Currency; procedure SetCOSTE_UNIDADESValue(const aValue: Currency); - function GetSTOCKValue: Integer; - procedure SetSTOCKValue(const aValue: Integer); - function GetRESERVAValue: Integer; - procedure SetRESERVAValue(const aValue: Integer); - function GetPENDIENTE_RECEPCIONValue: Integer; - procedure SetPENDIENTE_RECEPCIONValue(const aValue: Integer); + function GetCOSTE_UNIDADESIsNull: Boolean; + procedure SetCOSTE_UNIDADESIsNull(const aValue: Boolean); + function GetRESERVAValue: Int64; + procedure SetRESERVAValue(const aValue: Int64); + function GetRESERVAIsNull: Boolean; + procedure SetRESERVAIsNull(const aValue: Boolean); + function GetPENDIENTE_RECEPCIONValue: Int64; + procedure SetPENDIENTE_RECEPCIONValue(const aValue: Int64); + function GetPENDIENTE_RECEPCIONIsNull: Boolean; + procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean); + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); function GetCANTIDADValue: Integer; procedure SetCANTIDADValue(const aValue: Integer); + function GetCANTIDADIsNull: Boolean; + procedure SetCANTIDADIsNull(const aValue: Boolean); function GetFECHA_MOVIMIENTOValue: DateTime; procedure SetFECHA_MOVIMIENTOValue(const aValue: DateTime); + function GetFECHA_MOVIMIENTOIsNull: Boolean; + procedure SetFECHA_MOVIMIENTOIsNull(const aValue: Boolean); function GetCAUSAValue: String; procedure SetCAUSAValue(const aValue: String); + function GetCAUSAIsNull: Boolean; + procedure SetCAUSAIsNull(const aValue: Boolean); function GetTIPOValue: String; procedure SetTIPOValue(const aValue: String); + function GetTIPOIsNull: Boolean; + procedure SetTIPOIsNull(const aValue: Boolean); { Properties } - property ID: Integer read GetIDValue write SetIDValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; + property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ALMACEN: String read GetALMACENValue write SetALMACENValue; + property ALMACENIsNull: Boolean read GetALMACENIsNull write SetALMACENIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; + property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; - property UNIDADES_ALMACEN: Integer read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue; + property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; + property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; + property STOCK: Int64 read GetSTOCKValue write SetSTOCKValue; + property STOCKIsNull: Boolean read GetSTOCKIsNull write SetSTOCKIsNull; + property UNIDADES_ALMACEN: Int64 read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue; + property UNIDADES_ALMACENIsNull: Boolean read GetUNIDADES_ALMACENIsNull write SetUNIDADES_ALMACENIsNull; property COSTE_UNIDADES: Currency read GetCOSTE_UNIDADESValue write SetCOSTE_UNIDADESValue; - property STOCK: Integer read GetSTOCKValue write SetSTOCKValue; - property RESERVA: Integer read GetRESERVAValue write SetRESERVAValue; - property PENDIENTE_RECEPCION: Integer read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue; + property COSTE_UNIDADESIsNull: Boolean read GetCOSTE_UNIDADESIsNull write SetCOSTE_UNIDADESIsNull; + property RESERVA: Int64 read GetRESERVAValue write SetRESERVAValue; + property RESERVAIsNull: Boolean read GetRESERVAIsNull write SetRESERVAIsNull; + property PENDIENTE_RECEPCION: Int64 read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue; + property PENDIENTE_RECEPCIONIsNull: Boolean read GetPENDIENTE_RECEPCIONIsNull write SetPENDIENTE_RECEPCIONIsNull; + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; property FECHA_MOVIMIENTO: DateTime read GetFECHA_MOVIMIENTOValue write SetFECHA_MOVIMIENTOValue; + property FECHA_MOVIMIENTOIsNull: Boolean read GetFECHA_MOVIMIENTOIsNull write SetFECHA_MOVIMIENTOIsNull; property CAUSA: String read GetCAUSAValue write SetCAUSAValue; + property CAUSAIsNull: Boolean read GetCAUSAIsNull write SetCAUSAIsNull; property TIPO: String read GetTIPOValue write SetTIPOValue; + property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; end; - { TINVENTARIODataTableRules } - TINVENTARIODataTableRules = class(TIntfObjectDADataTableRules, IINVENTARIO) + { TInventarioDataTableRules } + TInventarioDataTableRules = class(TIntfObjectDADataTableRules, IInventario) private protected { Property getters and setters } - function GetIDValue: Integer; virtual; - procedure SetIDValue(const aValue: Integer); virtual; function GetID_ALMACENValue: Integer; virtual; procedure SetID_ALMACENValue(const aValue: Integer); virtual; + function GetID_ALMACENIsNull: Boolean; virtual; + procedure SetID_ALMACENIsNull(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 GetALMACENValue: String; virtual; procedure SetALMACENValue(const aValue: String); virtual; + function GetALMACENIsNull: Boolean; virtual; + procedure SetALMACENIsNull(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 GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetFAMILIAValue: String; virtual; procedure SetFAMILIAValue(const aValue: String); virtual; + function GetFAMILIAIsNull: Boolean; virtual; + procedure SetFAMILIAIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; - function GetPRECIO_NETOValue: Currency; virtual; - procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_PROVEEDORValue: String; virtual; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; - function GetUNIDADES_ALMACENValue: Integer; virtual; - procedure SetUNIDADES_ALMACENValue(const aValue: Integer); virtual; + function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetPRECIO_NETOValue: Currency; virtual; + procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; + function GetPRECIO_NETOIsNull: Boolean; virtual; + procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual; + function GetSTOCKValue: Int64; virtual; + procedure SetSTOCKValue(const aValue: Int64); virtual; + function GetSTOCKIsNull: Boolean; virtual; + procedure SetSTOCKIsNull(const aValue: Boolean); virtual; + function GetUNIDADES_ALMACENValue: Int64; virtual; + procedure SetUNIDADES_ALMACENValue(const aValue: Int64); virtual; + function GetUNIDADES_ALMACENIsNull: Boolean; virtual; + procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean); virtual; function GetCOSTE_UNIDADESValue: Currency; virtual; procedure SetCOSTE_UNIDADESValue(const aValue: Currency); virtual; - function GetSTOCKValue: Integer; virtual; - procedure SetSTOCKValue(const aValue: Integer); virtual; - function GetRESERVAValue: Integer; virtual; - procedure SetRESERVAValue(const aValue: Integer); virtual; - function GetPENDIENTE_RECEPCIONValue: Integer; virtual; - procedure SetPENDIENTE_RECEPCIONValue(const aValue: Integer); virtual; + function GetCOSTE_UNIDADESIsNull: Boolean; virtual; + procedure SetCOSTE_UNIDADESIsNull(const aValue: Boolean); virtual; + function GetRESERVAValue: Int64; virtual; + procedure SetRESERVAValue(const aValue: Int64); virtual; + function GetRESERVAIsNull: Boolean; virtual; + procedure SetRESERVAIsNull(const aValue: Boolean); virtual; + function GetPENDIENTE_RECEPCIONValue: Int64; virtual; + procedure SetPENDIENTE_RECEPCIONValue(const aValue: Int64); virtual; + function GetPENDIENTE_RECEPCIONIsNull: Boolean; virtual; + procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean); virtual; + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(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 GetFECHA_MOVIMIENTOValue: DateTime; virtual; procedure SetFECHA_MOVIMIENTOValue(const aValue: DateTime); virtual; + function GetFECHA_MOVIMIENTOIsNull: Boolean; virtual; + procedure SetFECHA_MOVIMIENTOIsNull(const aValue: Boolean); virtual; function GetCAUSAValue: String; virtual; procedure SetCAUSAValue(const aValue: String); virtual; + function GetCAUSAIsNull: Boolean; virtual; + procedure SetCAUSAIsNull(const aValue: Boolean); virtual; function GetTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; + function GetTIPOIsNull: Boolean; virtual; + procedure SetTIPOIsNull(const aValue: Boolean); virtual; { Properties } - property ID: Integer read GetIDValue write SetIDValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; + property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ALMACEN: String read GetALMACENValue write SetALMACENValue; + property ALMACENIsNull: Boolean read GetALMACENIsNull write SetALMACENIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; + property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; - property UNIDADES_ALMACEN: Integer read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue; + property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; + property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; + property STOCK: Int64 read GetSTOCKValue write SetSTOCKValue; + property STOCKIsNull: Boolean read GetSTOCKIsNull write SetSTOCKIsNull; + property UNIDADES_ALMACEN: Int64 read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue; + property UNIDADES_ALMACENIsNull: Boolean read GetUNIDADES_ALMACENIsNull write SetUNIDADES_ALMACENIsNull; property COSTE_UNIDADES: Currency read GetCOSTE_UNIDADESValue write SetCOSTE_UNIDADESValue; - property STOCK: Integer read GetSTOCKValue write SetSTOCKValue; - property RESERVA: Integer read GetRESERVAValue write SetRESERVAValue; - property PENDIENTE_RECEPCION: Integer read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue; + property COSTE_UNIDADESIsNull: Boolean read GetCOSTE_UNIDADESIsNull write SetCOSTE_UNIDADESIsNull; + property RESERVA: Int64 read GetRESERVAValue write SetRESERVAValue; + property RESERVAIsNull: Boolean read GetRESERVAIsNull write SetRESERVAIsNull; + property PENDIENTE_RECEPCION: Int64 read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue; + property PENDIENTE_RECEPCIONIsNull: Boolean read GetPENDIENTE_RECEPCIONIsNull write SetPENDIENTE_RECEPCIONIsNull; + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; property FECHA_MOVIMIENTO: DateTime read GetFECHA_MOVIMIENTOValue write SetFECHA_MOVIMIENTOValue; + property FECHA_MOVIMIENTOIsNull: Boolean read GetFECHA_MOVIMIENTOIsNull write SetFECHA_MOVIMIENTOIsNull; property CAUSA: String read GetCAUSAValue write SetCAUSAValue; + property CAUSAIsNull: Boolean read GetCAUSAIsNull write SetCAUSAIsNull; property TIPO: String read GetTIPOValue write SetTIPOValue; + property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -230,112 +344,202 @@ type end; - { IDETALLE_RESERVAS_INV } - IDETALLE_RESERVAS_INV = interface(IDAStronglyTypedDataTable) - ['{D0FB81D1-6746-4FCF-94C2-AE823C8382C8}'] + { IDetalleReservas } + IDetalleReservas = interface(IDAStronglyTypedDataTable) + ['{BA120247-EDE7-4A2A-A826-64062E6E767C}'] { Property getters and setters } function GetID_ALBValue: Integer; procedure SetID_ALBValue(const aValue: Integer); + function GetID_ALBIsNull: Boolean; + procedure SetID_ALBIsNull(const aValue: Boolean); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); function GetREFERENCIA_ALBValue: String; procedure SetREFERENCIA_ALBValue(const aValue: String); + function GetREFERENCIA_ALBIsNull: Boolean; + procedure SetREFERENCIA_ALBIsNull(const aValue: Boolean); function GetSITUACION_ALBValue: String; procedure SetSITUACION_ALBValue(const aValue: String); + function GetSITUACION_ALBIsNull: Boolean; + procedure SetSITUACION_ALBIsNull(const aValue: Boolean); function GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime; procedure SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime); + function GetFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean; + procedure SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean); function GetID_ALMACEN_ALBValue: Integer; procedure SetID_ALMACEN_ALBValue(const aValue: Integer); + function GetID_ALMACEN_ALBIsNull: Boolean; + procedure SetID_ALMACEN_ALBIsNull(const aValue: Boolean); function GetALMACEN_ALBValue: String; procedure SetALMACEN_ALBValue(const aValue: String); + function GetALMACEN_ALBIsNull: Boolean; + procedure SetALMACEN_ALBIsNull(const aValue: Boolean); function GetID_CLIENTE_ALBValue: Integer; procedure SetID_CLIENTE_ALBValue(const aValue: Integer); + function GetID_CLIENTE_ALBIsNull: Boolean; + procedure SetID_CLIENTE_ALBIsNull(const aValue: Boolean); function GetCLIENTE_ALBValue: String; procedure SetCLIENTE_ALBValue(const aValue: String); + function GetCLIENTE_ALBIsNull: Boolean; + procedure SetCLIENTE_ALBIsNull(const aValue: Boolean); function GetID_ARTValue: Integer; procedure SetID_ARTValue(const aValue: Integer); + function GetID_ARTIsNull: Boolean; + procedure SetID_ARTIsNull(const aValue: Boolean); function GetFAMILIA_ARTValue: String; procedure SetFAMILIA_ARTValue(const aValue: String); + function GetFAMILIA_ARTIsNull: Boolean; + procedure SetFAMILIA_ARTIsNull(const aValue: Boolean); function GetREFERENCIA_ARTValue: String; procedure SetREFERENCIA_ARTValue(const aValue: String); + function GetREFERENCIA_ARTIsNull: Boolean; + procedure SetREFERENCIA_ARTIsNull(const aValue: Boolean); function GetREFERENCIA_PROV_ARTValue: String; procedure SetREFERENCIA_PROV_ARTValue(const aValue: String); + function GetREFERENCIA_PROV_ARTIsNull: Boolean; + procedure SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean); function GetDESCRIPCION_ARTValue: String; procedure SetDESCRIPCION_ARTValue(const aValue: String); - function GetCANTIDAD_ARTValue: Integer; - procedure SetCANTIDAD_ARTValue(const aValue: Integer); + function GetDESCRIPCION_ARTIsNull: Boolean; + procedure SetDESCRIPCION_ARTIsNull(const aValue: Boolean); + function GetCANTIDAD_ARTValue: Int64; + procedure SetCANTIDAD_ARTValue(const aValue: Int64); + function GetCANTIDAD_ARTIsNull: Boolean; + procedure SetCANTIDAD_ARTIsNull(const aValue: Boolean); { Properties } property ID_ALB: Integer read GetID_ALBValue write SetID_ALBValue; + property ID_ALBIsNull: Boolean read GetID_ALBIsNull write SetID_ALBIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA_ALB: String read GetREFERENCIA_ALBValue write SetREFERENCIA_ALBValue; + property REFERENCIA_ALBIsNull: Boolean read GetREFERENCIA_ALBIsNull write SetREFERENCIA_ALBIsNull; property SITUACION_ALB: String read GetSITUACION_ALBValue write SetSITUACION_ALBValue; + property SITUACION_ALBIsNull: Boolean read GetSITUACION_ALBIsNull write SetSITUACION_ALBIsNull; property FECHA_PREVISTA_ENVIO_ALB: DateTime read GetFECHA_PREVISTA_ENVIO_ALBValue write SetFECHA_PREVISTA_ENVIO_ALBValue; + property FECHA_PREVISTA_ENVIO_ALBIsNull: Boolean read GetFECHA_PREVISTA_ENVIO_ALBIsNull write SetFECHA_PREVISTA_ENVIO_ALBIsNull; property ID_ALMACEN_ALB: Integer read GetID_ALMACEN_ALBValue write SetID_ALMACEN_ALBValue; + property ID_ALMACEN_ALBIsNull: Boolean read GetID_ALMACEN_ALBIsNull write SetID_ALMACEN_ALBIsNull; property ALMACEN_ALB: String read GetALMACEN_ALBValue write SetALMACEN_ALBValue; + property ALMACEN_ALBIsNull: Boolean read GetALMACEN_ALBIsNull write SetALMACEN_ALBIsNull; property ID_CLIENTE_ALB: Integer read GetID_CLIENTE_ALBValue write SetID_CLIENTE_ALBValue; + property ID_CLIENTE_ALBIsNull: Boolean read GetID_CLIENTE_ALBIsNull write SetID_CLIENTE_ALBIsNull; property CLIENTE_ALB: String read GetCLIENTE_ALBValue write SetCLIENTE_ALBValue; + property CLIENTE_ALBIsNull: Boolean read GetCLIENTE_ALBIsNull write SetCLIENTE_ALBIsNull; property ID_ART: Integer read GetID_ARTValue write SetID_ARTValue; + property ID_ARTIsNull: Boolean read GetID_ARTIsNull write SetID_ARTIsNull; property FAMILIA_ART: String read GetFAMILIA_ARTValue write SetFAMILIA_ARTValue; + property FAMILIA_ARTIsNull: Boolean read GetFAMILIA_ARTIsNull write SetFAMILIA_ARTIsNull; property REFERENCIA_ART: String read GetREFERENCIA_ARTValue write SetREFERENCIA_ARTValue; + property REFERENCIA_ARTIsNull: Boolean read GetREFERENCIA_ARTIsNull write SetREFERENCIA_ARTIsNull; property REFERENCIA_PROV_ART: String read GetREFERENCIA_PROV_ARTValue write SetREFERENCIA_PROV_ARTValue; + property REFERENCIA_PROV_ARTIsNull: Boolean read GetREFERENCIA_PROV_ARTIsNull write SetREFERENCIA_PROV_ARTIsNull; property DESCRIPCION_ART: String read GetDESCRIPCION_ARTValue write SetDESCRIPCION_ARTValue; - property CANTIDAD_ART: Integer read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue; + property DESCRIPCION_ARTIsNull: Boolean read GetDESCRIPCION_ARTIsNull write SetDESCRIPCION_ARTIsNull; + property CANTIDAD_ART: Int64 read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue; + property CANTIDAD_ARTIsNull: Boolean read GetCANTIDAD_ARTIsNull write SetCANTIDAD_ARTIsNull; end; - { TDETALLE_RESERVAS_INVDataTableRules } - TDETALLE_RESERVAS_INVDataTableRules = class(TIntfObjectDADataTableRules, IDETALLE_RESERVAS_INV) + { TDetalleReservasDataTableRules } + TDetalleReservasDataTableRules = class(TIntfObjectDADataTableRules, IDetalleReservas) private protected { Property getters and setters } function GetID_ALBValue: Integer; virtual; procedure SetID_ALBValue(const aValue: Integer); virtual; + function GetID_ALBIsNull: Boolean; virtual; + procedure SetID_ALBIsNull(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 GetREFERENCIA_ALBValue: String; virtual; procedure SetREFERENCIA_ALBValue(const aValue: String); virtual; + function GetREFERENCIA_ALBIsNull: Boolean; virtual; + procedure SetREFERENCIA_ALBIsNull(const aValue: Boolean); virtual; function GetSITUACION_ALBValue: String; virtual; procedure SetSITUACION_ALBValue(const aValue: String); virtual; + function GetSITUACION_ALBIsNull: Boolean; virtual; + procedure SetSITUACION_ALBIsNull(const aValue: Boolean); virtual; function GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime; virtual; procedure SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime); virtual; + function GetFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean; virtual; + procedure SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean); virtual; function GetID_ALMACEN_ALBValue: Integer; virtual; procedure SetID_ALMACEN_ALBValue(const aValue: Integer); virtual; + function GetID_ALMACEN_ALBIsNull: Boolean; virtual; + procedure SetID_ALMACEN_ALBIsNull(const aValue: Boolean); virtual; function GetALMACEN_ALBValue: String; virtual; procedure SetALMACEN_ALBValue(const aValue: String); virtual; + function GetALMACEN_ALBIsNull: Boolean; virtual; + procedure SetALMACEN_ALBIsNull(const aValue: Boolean); virtual; function GetID_CLIENTE_ALBValue: Integer; virtual; procedure SetID_CLIENTE_ALBValue(const aValue: Integer); virtual; + function GetID_CLIENTE_ALBIsNull: Boolean; virtual; + procedure SetID_CLIENTE_ALBIsNull(const aValue: Boolean); virtual; function GetCLIENTE_ALBValue: String; virtual; procedure SetCLIENTE_ALBValue(const aValue: String); virtual; + function GetCLIENTE_ALBIsNull: Boolean; virtual; + procedure SetCLIENTE_ALBIsNull(const aValue: Boolean); virtual; function GetID_ARTValue: Integer; virtual; procedure SetID_ARTValue(const aValue: Integer); virtual; + function GetID_ARTIsNull: Boolean; virtual; + procedure SetID_ARTIsNull(const aValue: Boolean); virtual; function GetFAMILIA_ARTValue: String; virtual; procedure SetFAMILIA_ARTValue(const aValue: String); virtual; + function GetFAMILIA_ARTIsNull: Boolean; virtual; + procedure SetFAMILIA_ARTIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_ARTValue: String; virtual; procedure SetREFERENCIA_ARTValue(const aValue: String); virtual; + function GetREFERENCIA_ARTIsNull: Boolean; virtual; + procedure SetREFERENCIA_ARTIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_PROV_ARTValue: String; virtual; procedure SetREFERENCIA_PROV_ARTValue(const aValue: String); virtual; + function GetREFERENCIA_PROV_ARTIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean); virtual; function GetDESCRIPCION_ARTValue: String; virtual; procedure SetDESCRIPCION_ARTValue(const aValue: String); virtual; - function GetCANTIDAD_ARTValue: Integer; virtual; - procedure SetCANTIDAD_ARTValue(const aValue: Integer); virtual; + function GetDESCRIPCION_ARTIsNull: Boolean; virtual; + procedure SetDESCRIPCION_ARTIsNull(const aValue: Boolean); virtual; + function GetCANTIDAD_ARTValue: Int64; virtual; + procedure SetCANTIDAD_ARTValue(const aValue: Int64); virtual; + function GetCANTIDAD_ARTIsNull: Boolean; virtual; + procedure SetCANTIDAD_ARTIsNull(const aValue: Boolean); virtual; { Properties } property ID_ALB: Integer read GetID_ALBValue write SetID_ALBValue; + property ID_ALBIsNull: Boolean read GetID_ALBIsNull write SetID_ALBIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA_ALB: String read GetREFERENCIA_ALBValue write SetREFERENCIA_ALBValue; + property REFERENCIA_ALBIsNull: Boolean read GetREFERENCIA_ALBIsNull write SetREFERENCIA_ALBIsNull; property SITUACION_ALB: String read GetSITUACION_ALBValue write SetSITUACION_ALBValue; + property SITUACION_ALBIsNull: Boolean read GetSITUACION_ALBIsNull write SetSITUACION_ALBIsNull; property FECHA_PREVISTA_ENVIO_ALB: DateTime read GetFECHA_PREVISTA_ENVIO_ALBValue write SetFECHA_PREVISTA_ENVIO_ALBValue; + property FECHA_PREVISTA_ENVIO_ALBIsNull: Boolean read GetFECHA_PREVISTA_ENVIO_ALBIsNull write SetFECHA_PREVISTA_ENVIO_ALBIsNull; property ID_ALMACEN_ALB: Integer read GetID_ALMACEN_ALBValue write SetID_ALMACEN_ALBValue; + property ID_ALMACEN_ALBIsNull: Boolean read GetID_ALMACEN_ALBIsNull write SetID_ALMACEN_ALBIsNull; property ALMACEN_ALB: String read GetALMACEN_ALBValue write SetALMACEN_ALBValue; + property ALMACEN_ALBIsNull: Boolean read GetALMACEN_ALBIsNull write SetALMACEN_ALBIsNull; property ID_CLIENTE_ALB: Integer read GetID_CLIENTE_ALBValue write SetID_CLIENTE_ALBValue; + property ID_CLIENTE_ALBIsNull: Boolean read GetID_CLIENTE_ALBIsNull write SetID_CLIENTE_ALBIsNull; property CLIENTE_ALB: String read GetCLIENTE_ALBValue write SetCLIENTE_ALBValue; + property CLIENTE_ALBIsNull: Boolean read GetCLIENTE_ALBIsNull write SetCLIENTE_ALBIsNull; property ID_ART: Integer read GetID_ARTValue write SetID_ARTValue; + property ID_ARTIsNull: Boolean read GetID_ARTIsNull write SetID_ARTIsNull; property FAMILIA_ART: String read GetFAMILIA_ARTValue write SetFAMILIA_ARTValue; + property FAMILIA_ARTIsNull: Boolean read GetFAMILIA_ARTIsNull write SetFAMILIA_ARTIsNull; property REFERENCIA_ART: String read GetREFERENCIA_ARTValue write SetREFERENCIA_ARTValue; + property REFERENCIA_ARTIsNull: Boolean read GetREFERENCIA_ARTIsNull write SetREFERENCIA_ARTIsNull; property REFERENCIA_PROV_ART: String read GetREFERENCIA_PROV_ARTValue write SetREFERENCIA_PROV_ARTValue; + property REFERENCIA_PROV_ARTIsNull: Boolean read GetREFERENCIA_PROV_ARTIsNull write SetREFERENCIA_PROV_ARTIsNull; property DESCRIPCION_ART: String read GetDESCRIPCION_ARTValue write SetDESCRIPCION_ARTValue; - property CANTIDAD_ART: Integer read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue; + property DESCRIPCION_ARTIsNull: Boolean read GetDESCRIPCION_ARTIsNull write SetDESCRIPCION_ARTIsNull; + property CANTIDAD_ART: Int64 read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue; + property CANTIDAD_ARTIsNull: Boolean read GetCANTIDAD_ARTIsNull write SetCANTIDAD_ARTIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -345,374 +549,748 @@ type implementation -uses Variants; +uses Variants, uROBinaryHelpers; -{ TINVENTARIODataTableRules } -constructor TINVENTARIODataTableRules.Create(aDataTable: TDADataTable); +{ TInventarioDataTableRules } +constructor TInventarioDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; -destructor TINVENTARIODataTableRules.Destroy; +destructor TInventarioDataTableRules.Destroy; begin inherited; end; -function TINVENTARIODataTableRules.GetIDValue: Integer; +function TInventarioDataTableRules.GetID_ALMACENValue: Integer; begin - result := DataTable.Fields[idx_INVENTARIOID].AsInteger; + result := DataTable.Fields[idx_InventarioID_ALMACEN].AsInteger; end; -procedure TINVENTARIODataTableRules.SetIDValue(const aValue: Integer); +procedure TInventarioDataTableRules.SetID_ALMACENValue(const aValue: Integer); begin - DataTable.Fields[idx_INVENTARIOID].AsInteger := aValue; + DataTable.Fields[idx_InventarioID_ALMACEN].AsInteger := aValue; end; -function TINVENTARIODataTableRules.GetID_ALMACENValue: Integer; +function TInventarioDataTableRules.GetID_ALMACENIsNull: boolean; begin - result := DataTable.Fields[idx_INVENTARIOID_ALMACEN].AsInteger; + result := DataTable.Fields[idx_InventarioID_ALMACEN].IsNull; end; -procedure TINVENTARIODataTableRules.SetID_ALMACENValue(const aValue: Integer); +procedure TInventarioDataTableRules.SetID_ALMACENIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_INVENTARIOID_ALMACEN].AsInteger := aValue; + if aValue then + DataTable.Fields[idx_InventarioID_ALMACEN].AsVariant := Null; end; -function TINVENTARIODataTableRules.GetID_ARTICULOValue: Integer; +function TInventarioDataTableRules.GetID_ARTICULOValue: Integer; begin - result := DataTable.Fields[idx_INVENTARIOID_ARTICULO].AsInteger; + result := DataTable.Fields[idx_InventarioID_ARTICULO].AsInteger; end; -procedure TINVENTARIODataTableRules.SetID_ARTICULOValue(const aValue: Integer); +procedure TInventarioDataTableRules.SetID_ARTICULOValue(const aValue: Integer); begin - DataTable.Fields[idx_INVENTARIOID_ARTICULO].AsInteger := aValue; + DataTable.Fields[idx_InventarioID_ARTICULO].AsInteger := aValue; end; -function TINVENTARIODataTableRules.GetALMACENValue: String; +function TInventarioDataTableRules.GetID_ARTICULOIsNull: boolean; begin - result := DataTable.Fields[idx_INVENTARIOALMACEN].AsString; + result := DataTable.Fields[idx_InventarioID_ARTICULO].IsNull; end; -procedure TINVENTARIODataTableRules.SetALMACENValue(const aValue: String); +procedure TInventarioDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_INVENTARIOALMACEN].AsString := aValue; + if aValue then + DataTable.Fields[idx_InventarioID_ARTICULO].AsVariant := Null; end; -function TINVENTARIODataTableRules.GetID_EMPRESAValue: Integer; +function TInventarioDataTableRules.GetALMACENValue: String; begin - result := DataTable.Fields[idx_INVENTARIOID_EMPRESA].AsInteger; + result := DataTable.Fields[idx_InventarioALMACEN].AsString; end; -procedure TINVENTARIODataTableRules.SetID_EMPRESAValue(const aValue: Integer); +procedure TInventarioDataTableRules.SetALMACENValue(const aValue: String); begin - DataTable.Fields[idx_INVENTARIOID_EMPRESA].AsInteger := aValue; + DataTable.Fields[idx_InventarioALMACEN].AsString := aValue; end; -function TINVENTARIODataTableRules.GetREFERENCIAValue: String; +function TInventarioDataTableRules.GetALMACENIsNull: boolean; begin - result := DataTable.Fields[idx_INVENTARIOREFERENCIA].AsString; + result := DataTable.Fields[idx_InventarioALMACEN].IsNull; end; -procedure TINVENTARIODataTableRules.SetREFERENCIAValue(const aValue: String); +procedure TInventarioDataTableRules.SetALMACENIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_INVENTARIOREFERENCIA].AsString := aValue; + if aValue then + DataTable.Fields[idx_InventarioALMACEN].AsVariant := Null; end; -function TINVENTARIODataTableRules.GetFAMILIAValue: String; +function TInventarioDataTableRules.GetID_EMPRESAValue: Integer; begin - result := DataTable.Fields[idx_INVENTARIOFAMILIA].AsString; + result := DataTable.Fields[idx_InventarioID_EMPRESA].AsInteger; end; -procedure TINVENTARIODataTableRules.SetFAMILIAValue(const aValue: String); +procedure TInventarioDataTableRules.SetID_EMPRESAValue(const aValue: Integer); begin - DataTable.Fields[idx_INVENTARIOFAMILIA].AsString := aValue; + DataTable.Fields[idx_InventarioID_EMPRESA].AsInteger := aValue; end; -function TINVENTARIODataTableRules.GetDESCRIPCIONValue: String; +function TInventarioDataTableRules.GetID_EMPRESAIsNull: boolean; begin - result := DataTable.Fields[idx_INVENTARIODESCRIPCION].AsString; + result := DataTable.Fields[idx_InventarioID_EMPRESA].IsNull; end; -procedure TINVENTARIODataTableRules.SetDESCRIPCIONValue(const aValue: String); +procedure TInventarioDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_INVENTARIODESCRIPCION].AsString := aValue; + if aValue then + DataTable.Fields[idx_InventarioID_EMPRESA].AsVariant := Null; end; -function TINVENTARIODataTableRules.GetPRECIO_NETOValue: Currency; +function TInventarioDataTableRules.GetREFERENCIAValue: String; begin - result := DataTable.Fields[idx_INVENTARIOPRECIO_NETO].AsCurrency; + result := DataTable.Fields[idx_InventarioREFERENCIA].AsString; end; -procedure TINVENTARIODataTableRules.SetPRECIO_NETOValue(const aValue: Currency); +procedure TInventarioDataTableRules.SetREFERENCIAValue(const aValue: String); begin - DataTable.Fields[idx_INVENTARIOPRECIO_NETO].AsCurrency := aValue; + DataTable.Fields[idx_InventarioREFERENCIA].AsString := aValue; end; -function TINVENTARIODataTableRules.GetREFERENCIA_PROVEEDORValue: String; +function TInventarioDataTableRules.GetREFERENCIAIsNull: boolean; begin - result := DataTable.Fields[idx_INVENTARIOREFERENCIA_PROVEEDOR].AsString; + result := DataTable.Fields[idx_InventarioREFERENCIA].IsNull; end; -procedure TINVENTARIODataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +procedure TInventarioDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_INVENTARIOREFERENCIA_PROVEEDOR].AsString := aValue; + if aValue then + DataTable.Fields[idx_InventarioREFERENCIA].AsVariant := Null; end; -function TINVENTARIODataTableRules.GetUNIDADES_ALMACENValue: Integer; +function TInventarioDataTableRules.GetFAMILIAValue: String; begin - result := DataTable.Fields[idx_INVENTARIOUNIDADES_ALMACEN].AsInteger; + result := DataTable.Fields[idx_InventarioFAMILIA].AsString; end; -procedure TINVENTARIODataTableRules.SetUNIDADES_ALMACENValue(const aValue: Integer); +procedure TInventarioDataTableRules.SetFAMILIAValue(const aValue: String); begin - DataTable.Fields[idx_INVENTARIOUNIDADES_ALMACEN].AsInteger := aValue; + DataTable.Fields[idx_InventarioFAMILIA].AsString := aValue; end; -function TINVENTARIODataTableRules.GetCOSTE_UNIDADESValue: Currency; +function TInventarioDataTableRules.GetFAMILIAIsNull: boolean; begin - result := DataTable.Fields[idx_INVENTARIOCOSTE_UNIDADES].AsCurrency; + result := DataTable.Fields[idx_InventarioFAMILIA].IsNull; end; -procedure TINVENTARIODataTableRules.SetCOSTE_UNIDADESValue(const aValue: Currency); +procedure TInventarioDataTableRules.SetFAMILIAIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_INVENTARIOCOSTE_UNIDADES].AsCurrency := aValue; + if aValue then + DataTable.Fields[idx_InventarioFAMILIA].AsVariant := Null; end; -function TINVENTARIODataTableRules.GetSTOCKValue: Integer; +function TInventarioDataTableRules.GetDESCRIPCIONValue: String; begin - result := DataTable.Fields[idx_INVENTARIOSTOCK].AsInteger; + result := DataTable.Fields[idx_InventarioDESCRIPCION].AsString; end; -procedure TINVENTARIODataTableRules.SetSTOCKValue(const aValue: Integer); +procedure TInventarioDataTableRules.SetDESCRIPCIONValue(const aValue: String); begin - DataTable.Fields[idx_INVENTARIOSTOCK].AsInteger := aValue; + DataTable.Fields[idx_InventarioDESCRIPCION].AsString := aValue; end; -function TINVENTARIODataTableRules.GetRESERVAValue: Integer; +function TInventarioDataTableRules.GetDESCRIPCIONIsNull: boolean; begin - result := DataTable.Fields[idx_INVENTARIORESERVA].AsInteger; + result := DataTable.Fields[idx_InventarioDESCRIPCION].IsNull; end; -procedure TINVENTARIODataTableRules.SetRESERVAValue(const aValue: Integer); +procedure TInventarioDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_INVENTARIORESERVA].AsInteger := aValue; + if aValue then + DataTable.Fields[idx_InventarioDESCRIPCION].AsVariant := Null; end; -function TINVENTARIODataTableRules.GetPENDIENTE_RECEPCIONValue: Integer; +function TInventarioDataTableRules.GetREFERENCIA_PROVEEDORValue: String; begin - result := DataTable.Fields[idx_INVENTARIOPENDIENTE_RECEPCION].AsInteger; + result := DataTable.Fields[idx_InventarioREFERENCIA_PROVEEDOR].AsString; end; -procedure TINVENTARIODataTableRules.SetPENDIENTE_RECEPCIONValue(const aValue: Integer); +procedure TInventarioDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); begin - DataTable.Fields[idx_INVENTARIOPENDIENTE_RECEPCION].AsInteger := aValue; + DataTable.Fields[idx_InventarioREFERENCIA_PROVEEDOR].AsString := aValue; end; -function TINVENTARIODataTableRules.GetCANTIDADValue: Integer; +function TInventarioDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean; begin - result := DataTable.Fields[idx_INVENTARIOCANTIDAD].AsInteger; + result := DataTable.Fields[idx_InventarioREFERENCIA_PROVEEDOR].IsNull; end; -procedure TINVENTARIODataTableRules.SetCANTIDADValue(const aValue: Integer); +procedure TInventarioDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_INVENTARIOCANTIDAD].AsInteger := aValue; + if aValue then + DataTable.Fields[idx_InventarioREFERENCIA_PROVEEDOR].AsVariant := Null; end; -function TINVENTARIODataTableRules.GetFECHA_MOVIMIENTOValue: DateTime; +function TInventarioDataTableRules.GetPRECIO_NETOValue: Currency; begin - result := DataTable.Fields[idx_INVENTARIOFECHA_MOVIMIENTO].AsDateTime; + result := DataTable.Fields[idx_InventarioPRECIO_NETO].AsCurrency; end; -procedure TINVENTARIODataTableRules.SetFECHA_MOVIMIENTOValue(const aValue: DateTime); +procedure TInventarioDataTableRules.SetPRECIO_NETOValue(const aValue: Currency); begin - DataTable.Fields[idx_INVENTARIOFECHA_MOVIMIENTO].AsDateTime := aValue; + DataTable.Fields[idx_InventarioPRECIO_NETO].AsCurrency := aValue; end; -function TINVENTARIODataTableRules.GetCAUSAValue: String; +function TInventarioDataTableRules.GetPRECIO_NETOIsNull: boolean; begin - result := DataTable.Fields[idx_INVENTARIOCAUSA].AsString; + result := DataTable.Fields[idx_InventarioPRECIO_NETO].IsNull; end; -procedure TINVENTARIODataTableRules.SetCAUSAValue(const aValue: String); +procedure TInventarioDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_INVENTARIOCAUSA].AsString := aValue; + if aValue then + DataTable.Fields[idx_InventarioPRECIO_NETO].AsVariant := Null; end; -function TINVENTARIODataTableRules.GetTIPOValue: String; +function TInventarioDataTableRules.GetSTOCKValue: Int64; begin - result := DataTable.Fields[idx_INVENTARIOTIPO].AsString; + result := DataTable.Fields[idx_InventarioSTOCK].AsLargeInt; end; -procedure TINVENTARIODataTableRules.SetTIPOValue(const aValue: String); +procedure TInventarioDataTableRules.SetSTOCKValue(const aValue: Int64); begin - DataTable.Fields[idx_INVENTARIOTIPO].AsString := aValue; + DataTable.Fields[idx_InventarioSTOCK].AsLargeInt := aValue; +end; + +function TInventarioDataTableRules.GetSTOCKIsNull: boolean; +begin + result := DataTable.Fields[idx_InventarioSTOCK].IsNull; +end; + +procedure TInventarioDataTableRules.SetSTOCKIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InventarioSTOCK].AsVariant := Null; +end; + +function TInventarioDataTableRules.GetUNIDADES_ALMACENValue: Int64; +begin + result := DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsLargeInt; +end; + +procedure TInventarioDataTableRules.SetUNIDADES_ALMACENValue(const aValue: Int64); +begin + DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsLargeInt := aValue; +end; + +function TInventarioDataTableRules.GetUNIDADES_ALMACENIsNull: boolean; +begin + result := DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].IsNull; +end; + +procedure TInventarioDataTableRules.SetUNIDADES_ALMACENIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsVariant := Null; +end; + +function TInventarioDataTableRules.GetCOSTE_UNIDADESValue: Currency; +begin + result := DataTable.Fields[idx_InventarioCOSTE_UNIDADES].AsCurrency; +end; + +procedure TInventarioDataTableRules.SetCOSTE_UNIDADESValue(const aValue: Currency); +begin + DataTable.Fields[idx_InventarioCOSTE_UNIDADES].AsCurrency := aValue; +end; + +function TInventarioDataTableRules.GetCOSTE_UNIDADESIsNull: boolean; +begin + result := DataTable.Fields[idx_InventarioCOSTE_UNIDADES].IsNull; +end; + +procedure TInventarioDataTableRules.SetCOSTE_UNIDADESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InventarioCOSTE_UNIDADES].AsVariant := Null; +end; + +function TInventarioDataTableRules.GetRESERVAValue: Int64; +begin + result := DataTable.Fields[idx_InventarioRESERVA].AsLargeInt; +end; + +procedure TInventarioDataTableRules.SetRESERVAValue(const aValue: Int64); +begin + DataTable.Fields[idx_InventarioRESERVA].AsLargeInt := aValue; +end; + +function TInventarioDataTableRules.GetRESERVAIsNull: boolean; +begin + result := DataTable.Fields[idx_InventarioRESERVA].IsNull; +end; + +procedure TInventarioDataTableRules.SetRESERVAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InventarioRESERVA].AsVariant := Null; +end; + +function TInventarioDataTableRules.GetPENDIENTE_RECEPCIONValue: Int64; +begin + result := DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsLargeInt; +end; + +procedure TInventarioDataTableRules.SetPENDIENTE_RECEPCIONValue(const aValue: Int64); +begin + DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsLargeInt := aValue; +end; + +function TInventarioDataTableRules.GetPENDIENTE_RECEPCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].IsNull; +end; + +procedure TInventarioDataTableRules.SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsVariant := Null; +end; + +function TInventarioDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_InventarioID].AsInteger; +end; + +procedure TInventarioDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_InventarioID].AsInteger := aValue; +end; + +function TInventarioDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_InventarioID].IsNull; +end; + +procedure TInventarioDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InventarioID].AsVariant := Null; +end; + +function TInventarioDataTableRules.GetCANTIDADValue: Integer; +begin + result := DataTable.Fields[idx_InventarioCANTIDAD].AsInteger; +end; + +procedure TInventarioDataTableRules.SetCANTIDADValue(const aValue: Integer); +begin + DataTable.Fields[idx_InventarioCANTIDAD].AsInteger := aValue; +end; + +function TInventarioDataTableRules.GetCANTIDADIsNull: boolean; +begin + result := DataTable.Fields[idx_InventarioCANTIDAD].IsNull; +end; + +procedure TInventarioDataTableRules.SetCANTIDADIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InventarioCANTIDAD].AsVariant := Null; +end; + +function TInventarioDataTableRules.GetFECHA_MOVIMIENTOValue: DateTime; +begin + result := DataTable.Fields[idx_InventarioFECHA_MOVIMIENTO].AsDateTime; +end; + +procedure TInventarioDataTableRules.SetFECHA_MOVIMIENTOValue(const aValue: DateTime); +begin + DataTable.Fields[idx_InventarioFECHA_MOVIMIENTO].AsDateTime := aValue; +end; + +function TInventarioDataTableRules.GetFECHA_MOVIMIENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_InventarioFECHA_MOVIMIENTO].IsNull; +end; + +procedure TInventarioDataTableRules.SetFECHA_MOVIMIENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InventarioFECHA_MOVIMIENTO].AsVariant := Null; +end; + +function TInventarioDataTableRules.GetCAUSAValue: String; +begin + result := DataTable.Fields[idx_InventarioCAUSA].AsString; +end; + +procedure TInventarioDataTableRules.SetCAUSAValue(const aValue: String); +begin + DataTable.Fields[idx_InventarioCAUSA].AsString := aValue; +end; + +function TInventarioDataTableRules.GetCAUSAIsNull: boolean; +begin + result := DataTable.Fields[idx_InventarioCAUSA].IsNull; +end; + +procedure TInventarioDataTableRules.SetCAUSAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InventarioCAUSA].AsVariant := Null; +end; + +function TInventarioDataTableRules.GetTIPOValue: String; +begin + result := DataTable.Fields[idx_InventarioTIPO].AsString; +end; + +procedure TInventarioDataTableRules.SetTIPOValue(const aValue: String); +begin + DataTable.Fields[idx_InventarioTIPO].AsString := aValue; +end; + +function TInventarioDataTableRules.GetTIPOIsNull: boolean; +begin + result := DataTable.Fields[idx_InventarioTIPO].IsNull; +end; + +procedure TInventarioDataTableRules.SetTIPOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InventarioTIPO].AsVariant := Null; end; -{ TDETALLE_RESERVAS_INVDataTableRules } -constructor TDETALLE_RESERVAS_INVDataTableRules.Create(aDataTable: TDADataTable); +{ TDetalleReservasDataTableRules } +constructor TDetalleReservasDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; -destructor TDETALLE_RESERVAS_INVDataTableRules.Destroy; +destructor TDetalleReservasDataTableRules.Destroy; begin inherited; end; -function TDETALLE_RESERVAS_INVDataTableRules.GetID_ALBValue: Integer; +function TDetalleReservasDataTableRules.GetID_ALBValue: Integer; begin - result := DataTable.Fields[idx_DETALLE_RESERVAS_INVID_ALB].AsInteger; + result := DataTable.Fields[idx_DetalleReservasID_ALB].AsInteger; end; -procedure TDETALLE_RESERVAS_INVDataTableRules.SetID_ALBValue(const aValue: Integer); +procedure TDetalleReservasDataTableRules.SetID_ALBValue(const aValue: Integer); begin - DataTable.Fields[idx_DETALLE_RESERVAS_INVID_ALB].AsInteger := aValue; + DataTable.Fields[idx_DetalleReservasID_ALB].AsInteger := aValue; end; -function TDETALLE_RESERVAS_INVDataTableRules.GetID_EMPRESAValue: Integer; +function TDetalleReservasDataTableRules.GetID_ALBIsNull: boolean; begin - result := DataTable.Fields[idx_DETALLE_RESERVAS_INVID_EMPRESA].AsInteger; + result := DataTable.Fields[idx_DetalleReservasID_ALB].IsNull; end; -procedure TDETALLE_RESERVAS_INVDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +procedure TDetalleReservasDataTableRules.SetID_ALBIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_DETALLE_RESERVAS_INVID_EMPRESA].AsInteger := aValue; + if aValue then + DataTable.Fields[idx_DetalleReservasID_ALB].AsVariant := Null; end; -function TDETALLE_RESERVAS_INVDataTableRules.GetREFERENCIA_ALBValue: String; +function TDetalleReservasDataTableRules.GetID_EMPRESAValue: Integer; begin - result := DataTable.Fields[idx_DETALLE_RESERVAS_INVREFERENCIA_ALB].AsString; + result := DataTable.Fields[idx_DetalleReservasID_EMPRESA].AsInteger; end; -procedure TDETALLE_RESERVAS_INVDataTableRules.SetREFERENCIA_ALBValue(const aValue: String); +procedure TDetalleReservasDataTableRules.SetID_EMPRESAValue(const aValue: Integer); begin - DataTable.Fields[idx_DETALLE_RESERVAS_INVREFERENCIA_ALB].AsString := aValue; + DataTable.Fields[idx_DetalleReservasID_EMPRESA].AsInteger := aValue; end; -function TDETALLE_RESERVAS_INVDataTableRules.GetSITUACION_ALBValue: String; +function TDetalleReservasDataTableRules.GetID_EMPRESAIsNull: boolean; begin - result := DataTable.Fields[idx_DETALLE_RESERVAS_INVSITUACION_ALB].AsString; + result := DataTable.Fields[idx_DetalleReservasID_EMPRESA].IsNull; end; -procedure TDETALLE_RESERVAS_INVDataTableRules.SetSITUACION_ALBValue(const aValue: String); +procedure TDetalleReservasDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_DETALLE_RESERVAS_INVSITUACION_ALB].AsString := aValue; + if aValue then + DataTable.Fields[idx_DetalleReservasID_EMPRESA].AsVariant := Null; end; -function TDETALLE_RESERVAS_INVDataTableRules.GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime; +function TDetalleReservasDataTableRules.GetREFERENCIA_ALBValue: String; begin - result := DataTable.Fields[idx_DETALLE_RESERVAS_INVFECHA_PREVISTA_ENVIO_ALB].AsDateTime; + result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].AsString; end; -procedure TDETALLE_RESERVAS_INVDataTableRules.SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime); +procedure TDetalleReservasDataTableRules.SetREFERENCIA_ALBValue(const aValue: String); begin - DataTable.Fields[idx_DETALLE_RESERVAS_INVFECHA_PREVISTA_ENVIO_ALB].AsDateTime := aValue; + DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].AsString := aValue; end; -function TDETALLE_RESERVAS_INVDataTableRules.GetID_ALMACEN_ALBValue: Integer; +function TDetalleReservasDataTableRules.GetREFERENCIA_ALBIsNull: boolean; begin - result := DataTable.Fields[idx_DETALLE_RESERVAS_INVID_ALMACEN_ALB].AsInteger; + result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].IsNull; end; -procedure TDETALLE_RESERVAS_INVDataTableRules.SetID_ALMACEN_ALBValue(const aValue: Integer); +procedure TDetalleReservasDataTableRules.SetREFERENCIA_ALBIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_DETALLE_RESERVAS_INVID_ALMACEN_ALB].AsInteger := aValue; + if aValue then + DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].AsVariant := Null; end; -function TDETALLE_RESERVAS_INVDataTableRules.GetALMACEN_ALBValue: String; +function TDetalleReservasDataTableRules.GetSITUACION_ALBValue: String; begin - result := DataTable.Fields[idx_DETALLE_RESERVAS_INVALMACEN_ALB].AsString; + result := DataTable.Fields[idx_DetalleReservasSITUACION_ALB].AsString; end; -procedure TDETALLE_RESERVAS_INVDataTableRules.SetALMACEN_ALBValue(const aValue: String); +procedure TDetalleReservasDataTableRules.SetSITUACION_ALBValue(const aValue: String); begin - DataTable.Fields[idx_DETALLE_RESERVAS_INVALMACEN_ALB].AsString := aValue; + DataTable.Fields[idx_DetalleReservasSITUACION_ALB].AsString := aValue; end; -function TDETALLE_RESERVAS_INVDataTableRules.GetID_CLIENTE_ALBValue: Integer; +function TDetalleReservasDataTableRules.GetSITUACION_ALBIsNull: boolean; begin - result := DataTable.Fields[idx_DETALLE_RESERVAS_INVID_CLIENTE_ALB].AsInteger; + result := DataTable.Fields[idx_DetalleReservasSITUACION_ALB].IsNull; end; -procedure TDETALLE_RESERVAS_INVDataTableRules.SetID_CLIENTE_ALBValue(const aValue: Integer); +procedure TDetalleReservasDataTableRules.SetSITUACION_ALBIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_DETALLE_RESERVAS_INVID_CLIENTE_ALB].AsInteger := aValue; + if aValue then + DataTable.Fields[idx_DetalleReservasSITUACION_ALB].AsVariant := Null; end; -function TDETALLE_RESERVAS_INVDataTableRules.GetCLIENTE_ALBValue: String; +function TDetalleReservasDataTableRules.GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime; begin - result := DataTable.Fields[idx_DETALLE_RESERVAS_INVCLIENTE_ALB].AsString; + result := DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].AsDateTime; end; -procedure TDETALLE_RESERVAS_INVDataTableRules.SetCLIENTE_ALBValue(const aValue: String); +procedure TDetalleReservasDataTableRules.SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime); begin - DataTable.Fields[idx_DETALLE_RESERVAS_INVCLIENTE_ALB].AsString := aValue; + DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].AsDateTime := aValue; end; -function TDETALLE_RESERVAS_INVDataTableRules.GetID_ARTValue: Integer; +function TDetalleReservasDataTableRules.GetFECHA_PREVISTA_ENVIO_ALBIsNull: boolean; begin - result := DataTable.Fields[idx_DETALLE_RESERVAS_INVID_ART].AsInteger; + result := DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].IsNull; end; -procedure TDETALLE_RESERVAS_INVDataTableRules.SetID_ARTValue(const aValue: Integer); +procedure TDetalleReservasDataTableRules.SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_DETALLE_RESERVAS_INVID_ART].AsInteger := aValue; + if aValue then + DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].AsVariant := Null; end; -function TDETALLE_RESERVAS_INVDataTableRules.GetFAMILIA_ARTValue: String; +function TDetalleReservasDataTableRules.GetID_ALMACEN_ALBValue: Integer; begin - result := DataTable.Fields[idx_DETALLE_RESERVAS_INVFAMILIA_ART].AsString; + result := DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].AsInteger; end; -procedure TDETALLE_RESERVAS_INVDataTableRules.SetFAMILIA_ARTValue(const aValue: String); +procedure TDetalleReservasDataTableRules.SetID_ALMACEN_ALBValue(const aValue: Integer); begin - DataTable.Fields[idx_DETALLE_RESERVAS_INVFAMILIA_ART].AsString := aValue; + DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].AsInteger := aValue; end; -function TDETALLE_RESERVAS_INVDataTableRules.GetREFERENCIA_ARTValue: String; +function TDetalleReservasDataTableRules.GetID_ALMACEN_ALBIsNull: boolean; begin - result := DataTable.Fields[idx_DETALLE_RESERVAS_INVREFERENCIA_ART].AsString; + result := DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].IsNull; end; -procedure TDETALLE_RESERVAS_INVDataTableRules.SetREFERENCIA_ARTValue(const aValue: String); +procedure TDetalleReservasDataTableRules.SetID_ALMACEN_ALBIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_DETALLE_RESERVAS_INVREFERENCIA_ART].AsString := aValue; + if aValue then + DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].AsVariant := Null; end; -function TDETALLE_RESERVAS_INVDataTableRules.GetREFERENCIA_PROV_ARTValue: String; +function TDetalleReservasDataTableRules.GetALMACEN_ALBValue: String; begin - result := DataTable.Fields[idx_DETALLE_RESERVAS_INVREFERENCIA_PROV_ART].AsString; + result := DataTable.Fields[idx_DetalleReservasALMACEN_ALB].AsString; end; -procedure TDETALLE_RESERVAS_INVDataTableRules.SetREFERENCIA_PROV_ARTValue(const aValue: String); +procedure TDetalleReservasDataTableRules.SetALMACEN_ALBValue(const aValue: String); begin - DataTable.Fields[idx_DETALLE_RESERVAS_INVREFERENCIA_PROV_ART].AsString := aValue; + DataTable.Fields[idx_DetalleReservasALMACEN_ALB].AsString := aValue; end; -function TDETALLE_RESERVAS_INVDataTableRules.GetDESCRIPCION_ARTValue: String; +function TDetalleReservasDataTableRules.GetALMACEN_ALBIsNull: boolean; begin - result := DataTable.Fields[idx_DETALLE_RESERVAS_INVDESCRIPCION_ART].AsString; + result := DataTable.Fields[idx_DetalleReservasALMACEN_ALB].IsNull; end; -procedure TDETALLE_RESERVAS_INVDataTableRules.SetDESCRIPCION_ARTValue(const aValue: String); +procedure TDetalleReservasDataTableRules.SetALMACEN_ALBIsNull(const aValue: Boolean); begin - DataTable.Fields[idx_DETALLE_RESERVAS_INVDESCRIPCION_ART].AsString := aValue; + if aValue then + DataTable.Fields[idx_DetalleReservasALMACEN_ALB].AsVariant := Null; end; -function TDETALLE_RESERVAS_INVDataTableRules.GetCANTIDAD_ARTValue: Integer; +function TDetalleReservasDataTableRules.GetID_CLIENTE_ALBValue: Integer; begin - result := DataTable.Fields[idx_DETALLE_RESERVAS_INVCANTIDAD_ART].AsInteger; + result := DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].AsInteger; end; -procedure TDETALLE_RESERVAS_INVDataTableRules.SetCANTIDAD_ARTValue(const aValue: Integer); +procedure TDetalleReservasDataTableRules.SetID_CLIENTE_ALBValue(const aValue: Integer); begin - DataTable.Fields[idx_DETALLE_RESERVAS_INVCANTIDAD_ART].AsInteger := aValue; + DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].AsInteger := aValue; +end; + +function TDetalleReservasDataTableRules.GetID_CLIENTE_ALBIsNull: boolean; +begin + result := DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].IsNull; +end; + +procedure TDetalleReservasDataTableRules.SetID_CLIENTE_ALBIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].AsVariant := Null; +end; + +function TDetalleReservasDataTableRules.GetCLIENTE_ALBValue: String; +begin + result := DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].AsString; +end; + +procedure TDetalleReservasDataTableRules.SetCLIENTE_ALBValue(const aValue: String); +begin + DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].AsString := aValue; +end; + +function TDetalleReservasDataTableRules.GetCLIENTE_ALBIsNull: boolean; +begin + result := DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].IsNull; +end; + +procedure TDetalleReservasDataTableRules.SetCLIENTE_ALBIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].AsVariant := Null; +end; + +function TDetalleReservasDataTableRules.GetID_ARTValue: Integer; +begin + result := DataTable.Fields[idx_DetalleReservasID_ART].AsInteger; +end; + +procedure TDetalleReservasDataTableRules.SetID_ARTValue(const aValue: Integer); +begin + DataTable.Fields[idx_DetalleReservasID_ART].AsInteger := aValue; +end; + +function TDetalleReservasDataTableRules.GetID_ARTIsNull: boolean; +begin + result := DataTable.Fields[idx_DetalleReservasID_ART].IsNull; +end; + +procedure TDetalleReservasDataTableRules.SetID_ARTIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DetalleReservasID_ART].AsVariant := Null; +end; + +function TDetalleReservasDataTableRules.GetFAMILIA_ARTValue: String; +begin + result := DataTable.Fields[idx_DetalleReservasFAMILIA_ART].AsString; +end; + +procedure TDetalleReservasDataTableRules.SetFAMILIA_ARTValue(const aValue: String); +begin + DataTable.Fields[idx_DetalleReservasFAMILIA_ART].AsString := aValue; +end; + +function TDetalleReservasDataTableRules.GetFAMILIA_ARTIsNull: boolean; +begin + result := DataTable.Fields[idx_DetalleReservasFAMILIA_ART].IsNull; +end; + +procedure TDetalleReservasDataTableRules.SetFAMILIA_ARTIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DetalleReservasFAMILIA_ART].AsVariant := Null; +end; + +function TDetalleReservasDataTableRules.GetREFERENCIA_ARTValue: String; +begin + result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].AsString; +end; + +procedure TDetalleReservasDataTableRules.SetREFERENCIA_ARTValue(const aValue: String); +begin + DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].AsString := aValue; +end; + +function TDetalleReservasDataTableRules.GetREFERENCIA_ARTIsNull: boolean; +begin + result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].IsNull; +end; + +procedure TDetalleReservasDataTableRules.SetREFERENCIA_ARTIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].AsVariant := Null; +end; + +function TDetalleReservasDataTableRules.GetREFERENCIA_PROV_ARTValue: String; +begin + result := DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].AsString; +end; + +procedure TDetalleReservasDataTableRules.SetREFERENCIA_PROV_ARTValue(const aValue: String); +begin + DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].AsString := aValue; +end; + +function TDetalleReservasDataTableRules.GetREFERENCIA_PROV_ARTIsNull: boolean; +begin + result := DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].IsNull; +end; + +procedure TDetalleReservasDataTableRules.SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].AsVariant := Null; +end; + +function TDetalleReservasDataTableRules.GetDESCRIPCION_ARTValue: String; +begin + result := DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].AsString; +end; + +procedure TDetalleReservasDataTableRules.SetDESCRIPCION_ARTValue(const aValue: String); +begin + DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].AsString := aValue; +end; + +function TDetalleReservasDataTableRules.GetDESCRIPCION_ARTIsNull: boolean; +begin + result := DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].IsNull; +end; + +procedure TDetalleReservasDataTableRules.SetDESCRIPCION_ARTIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].AsVariant := Null; +end; + +function TDetalleReservasDataTableRules.GetCANTIDAD_ARTValue: Int64; +begin + result := DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsLargeInt; +end; + +procedure TDetalleReservasDataTableRules.SetCANTIDAD_ARTValue(const aValue: Int64); +begin + DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsLargeInt := aValue; +end; + +function TDetalleReservasDataTableRules.GetCANTIDAD_ARTIsNull: boolean; +begin + result := DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].IsNull; +end; + +procedure TDetalleReservasDataTableRules.SetCANTIDAD_ARTIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsVariant := Null; end; initialization - RegisterDataTableRules(RID_INVENTARIO, TINVENTARIODataTableRules); - RegisterDataTableRules(RID_DETALLE_RESERVAS_INV, TDETALLE_RESERVAS_INVDataTableRules); + RegisterDataTableRules(RID_Inventario, TInventarioDataTableRules); + RegisterDataTableRules(RID_DetalleReservas, TDetalleReservasDataTableRules); end. diff --git a/Source/Modulos/Inventario/Model/schInventarioServer_Intf.pas b/Source/Modulos/Inventario/Model/schInventarioServer_Intf.pas index f57846f3..8084703a 100644 --- a/Source/Modulos/Inventario/Model/schInventarioServer_Intf.pas +++ b/Source/Modulos/Inventario/Model/schInventarioServer_Intf.pas @@ -3,21 +3,20 @@ unit schInventarioServer_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schInventarioClient_Intf; + Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schInventarioClient_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_INVENTARIODelta = '{FD6A3797-743C-4AE0-890F-C651A3E630A5}'; - RID_DETALLE_RESERVAS_INVDelta = '{D5B89CFC-9817-4CF4-9E20-BFB33C0E196B}'; + RID_InventarioDelta = '{85349204-7741-43F5-9BA3-E220A4FD11A6}'; + RID_DetalleReservasDelta = '{33516718-F449-4975-84BC-AA4394AD0C53}'; type - { IINVENTARIODelta } - IINVENTARIODelta = interface(IINVENTARIO) - ['{FD6A3797-743C-4AE0-890F-C651A3E630A5}'] + { IInventarioDelta } + IInventarioDelta = interface(IInventario) + ['{85349204-7741-43F5-9BA3-E220A4FD11A6}'] { Property getters and setters } - function GetOldIDValue : Integer; function GetOldID_ALMACENValue : Integer; function GetOldID_ARTICULOValue : Integer; function GetOldALMACENValue : String; @@ -25,20 +24,20 @@ type function GetOldREFERENCIAValue : String; function GetOldFAMILIAValue : String; function GetOldDESCRIPCIONValue : String; - function GetOldPRECIO_NETOValue : Currency; function GetOldREFERENCIA_PROVEEDORValue : String; - function GetOldUNIDADES_ALMACENValue : Integer; + function GetOldPRECIO_NETOValue : Currency; + function GetOldSTOCKValue : Int64; + function GetOldUNIDADES_ALMACENValue : Int64; function GetOldCOSTE_UNIDADESValue : Currency; - function GetOldSTOCKValue : Integer; - function GetOldRESERVAValue : Integer; - function GetOldPENDIENTE_RECEPCIONValue : Integer; + function GetOldRESERVAValue : Int64; + function GetOldPENDIENTE_RECEPCIONValue : Int64; + function GetOldIDValue : Integer; function GetOldCANTIDADValue : Integer; function GetOldFECHA_MOVIMIENTOValue : DateTime; function GetOldCAUSAValue : String; function GetOldTIPOValue : String; { Properties } - property OldID : Integer read GetOldIDValue; property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldALMACEN : String read GetOldALMACENValue; @@ -46,121 +45,217 @@ type property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldFAMILIA : String read GetOldFAMILIAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; - property OldUNIDADES_ALMACEN : Integer read GetOldUNIDADES_ALMACENValue; + property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; + property OldSTOCK : Int64 read GetOldSTOCKValue; + property OldUNIDADES_ALMACEN : Int64 read GetOldUNIDADES_ALMACENValue; property OldCOSTE_UNIDADES : Currency read GetOldCOSTE_UNIDADESValue; - property OldSTOCK : Integer read GetOldSTOCKValue; - property OldRESERVA : Integer read GetOldRESERVAValue; - property OldPENDIENTE_RECEPCION : Integer read GetOldPENDIENTE_RECEPCIONValue; + property OldRESERVA : Int64 read GetOldRESERVAValue; + property OldPENDIENTE_RECEPCION : Int64 read GetOldPENDIENTE_RECEPCIONValue; + property OldID : Integer read GetOldIDValue; property OldCANTIDAD : Integer read GetOldCANTIDADValue; property OldFECHA_MOVIMIENTO : DateTime read GetOldFECHA_MOVIMIENTOValue; property OldCAUSA : String read GetOldCAUSAValue; property OldTIPO : String read GetOldTIPOValue; end; - { TINVENTARIOBusinessProcessorRules } - TINVENTARIOBusinessProcessorRules = class(TDABusinessProcessorRules, IINVENTARIO, IINVENTARIODelta) + { TInventarioBusinessProcessorRules } + TInventarioBusinessProcessorRules = class(TDABusinessProcessorRules, IInventario, IInventarioDelta) private protected { Property getters and setters } - function GetIDValue: Integer; virtual; - function GetOldIDValue: Integer; virtual; - procedure SetIDValue(const aValue: Integer); virtual; function GetID_ALMACENValue: Integer; virtual; + function GetID_ALMACENIsNull: Boolean; virtual; function GetOldID_ALMACENValue: Integer; virtual; + function GetOldID_ALMACENIsNull: Boolean; virtual; procedure SetID_ALMACENValue(const aValue: Integer); virtual; + procedure SetID_ALMACENIsNull(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 GetALMACENValue: String; virtual; + function GetALMACENIsNull: Boolean; virtual; function GetOldALMACENValue: String; virtual; + function GetOldALMACENIsNull: Boolean; virtual; procedure SetALMACENValue(const aValue: String); virtual; + procedure SetALMACENIsNull(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 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 GetFAMILIAValue: String; virtual; + function GetFAMILIAIsNull: Boolean; virtual; function GetOldFAMILIAValue: String; virtual; + function GetOldFAMILIAIsNull: Boolean; virtual; procedure SetFAMILIAValue(const aValue: String); virtual; + procedure SetFAMILIAIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; function GetOldDESCRIPCIONValue: String; virtual; + function GetOldDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; - function GetPRECIO_NETOValue: Currency; virtual; - function GetOldPRECIO_NETOValue: Currency; virtual; - procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_PROVEEDORValue: String; virtual; + function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; function GetOldREFERENCIA_PROVEEDORValue: String; virtual; + function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; - function GetUNIDADES_ALMACENValue: Integer; virtual; - function GetOldUNIDADES_ALMACENValue: Integer; virtual; - procedure SetUNIDADES_ALMACENValue(const aValue: Integer); virtual; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetPRECIO_NETOValue: Currency; virtual; + function GetPRECIO_NETOIsNull: Boolean; virtual; + function GetOldPRECIO_NETOValue: Currency; virtual; + function GetOldPRECIO_NETOIsNull: Boolean; virtual; + procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; + procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual; + function GetSTOCKValue: Int64; virtual; + function GetSTOCKIsNull: Boolean; virtual; + function GetOldSTOCKValue: Int64; virtual; + function GetOldSTOCKIsNull: Boolean; virtual; + procedure SetSTOCKValue(const aValue: Int64); virtual; + procedure SetSTOCKIsNull(const aValue: Boolean); virtual; + function GetUNIDADES_ALMACENValue: Int64; virtual; + function GetUNIDADES_ALMACENIsNull: Boolean; virtual; + function GetOldUNIDADES_ALMACENValue: Int64; virtual; + function GetOldUNIDADES_ALMACENIsNull: Boolean; virtual; + procedure SetUNIDADES_ALMACENValue(const aValue: Int64); virtual; + procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean); virtual; function GetCOSTE_UNIDADESValue: Currency; virtual; + function GetCOSTE_UNIDADESIsNull: Boolean; virtual; function GetOldCOSTE_UNIDADESValue: Currency; virtual; + function GetOldCOSTE_UNIDADESIsNull: Boolean; virtual; procedure SetCOSTE_UNIDADESValue(const aValue: Currency); virtual; - function GetSTOCKValue: Integer; virtual; - function GetOldSTOCKValue: Integer; virtual; - procedure SetSTOCKValue(const aValue: Integer); virtual; - function GetRESERVAValue: Integer; virtual; - function GetOldRESERVAValue: Integer; virtual; - procedure SetRESERVAValue(const aValue: Integer); virtual; - function GetPENDIENTE_RECEPCIONValue: Integer; virtual; - function GetOldPENDIENTE_RECEPCIONValue: Integer; virtual; - procedure SetPENDIENTE_RECEPCIONValue(const aValue: Integer); virtual; + procedure SetCOSTE_UNIDADESIsNull(const aValue: Boolean); virtual; + function GetRESERVAValue: Int64; virtual; + function GetRESERVAIsNull: Boolean; virtual; + function GetOldRESERVAValue: Int64; virtual; + function GetOldRESERVAIsNull: Boolean; virtual; + procedure SetRESERVAValue(const aValue: Int64); virtual; + procedure SetRESERVAIsNull(const aValue: Boolean); virtual; + function GetPENDIENTE_RECEPCIONValue: Int64; virtual; + function GetPENDIENTE_RECEPCIONIsNull: Boolean; virtual; + function GetOldPENDIENTE_RECEPCIONValue: Int64; virtual; + function GetOldPENDIENTE_RECEPCIONIsNull: Boolean; virtual; + procedure SetPENDIENTE_RECEPCIONValue(const aValue: Int64); virtual; + procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean); virtual; + 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 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 GetFECHA_MOVIMIENTOValue: DateTime; virtual; + function GetFECHA_MOVIMIENTOIsNull: Boolean; virtual; function GetOldFECHA_MOVIMIENTOValue: DateTime; virtual; + function GetOldFECHA_MOVIMIENTOIsNull: Boolean; virtual; procedure SetFECHA_MOVIMIENTOValue(const aValue: DateTime); virtual; + procedure SetFECHA_MOVIMIENTOIsNull(const aValue: Boolean); virtual; function GetCAUSAValue: String; virtual; + function GetCAUSAIsNull: Boolean; virtual; function GetOldCAUSAValue: String; virtual; + function GetOldCAUSAIsNull: Boolean; virtual; procedure SetCAUSAValue(const aValue: String); virtual; + procedure SetCAUSAIsNull(const aValue: Boolean); virtual; function GetTIPOValue: String; virtual; + function GetTIPOIsNull: Boolean; virtual; function GetOldTIPOValue: String; virtual; + function GetOldTIPOIsNull: Boolean; virtual; procedure SetTIPOValue(const aValue: String); virtual; + procedure SetTIPOIsNull(const aValue: Boolean); virtual; { Properties } - property ID : Integer read GetIDValue write SetIDValue; - property OldID : Integer read GetOldIDValue; property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue; + property ID_ALMACENIsNull : Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; + property OldID_ALMACENIsNull : Boolean read GetOldID_ALMACENIsNull; 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 ALMACEN : String read GetALMACENValue write SetALMACENValue; + property ALMACENIsNull : Boolean read GetALMACENIsNull write SetALMACENIsNull; property OldALMACEN : String read GetOldALMACENValue; + property OldALMACENIsNull : Boolean read GetOldALMACENIsNull; 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 REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue; + property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property OldFAMILIA : String read GetOldFAMILIAValue; + property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; - property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; + property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; - property UNIDADES_ALMACEN : Integer read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue; - property OldUNIDADES_ALMACEN : Integer read GetOldUNIDADES_ALMACENValue; + property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull; + property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; + property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; + property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; + property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull; + property STOCK : Int64 read GetSTOCKValue write SetSTOCKValue; + property STOCKIsNull : Boolean read GetSTOCKIsNull write SetSTOCKIsNull; + property OldSTOCK : Int64 read GetOldSTOCKValue; + property OldSTOCKIsNull : Boolean read GetOldSTOCKIsNull; + property UNIDADES_ALMACEN : Int64 read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue; + property UNIDADES_ALMACENIsNull : Boolean read GetUNIDADES_ALMACENIsNull write SetUNIDADES_ALMACENIsNull; + property OldUNIDADES_ALMACEN : Int64 read GetOldUNIDADES_ALMACENValue; + property OldUNIDADES_ALMACENIsNull : Boolean read GetOldUNIDADES_ALMACENIsNull; property COSTE_UNIDADES : Currency read GetCOSTE_UNIDADESValue write SetCOSTE_UNIDADESValue; + property COSTE_UNIDADESIsNull : Boolean read GetCOSTE_UNIDADESIsNull write SetCOSTE_UNIDADESIsNull; property OldCOSTE_UNIDADES : Currency read GetOldCOSTE_UNIDADESValue; - property STOCK : Integer read GetSTOCKValue write SetSTOCKValue; - property OldSTOCK : Integer read GetOldSTOCKValue; - property RESERVA : Integer read GetRESERVAValue write SetRESERVAValue; - property OldRESERVA : Integer read GetOldRESERVAValue; - property PENDIENTE_RECEPCION : Integer read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue; - property OldPENDIENTE_RECEPCION : Integer read GetOldPENDIENTE_RECEPCIONValue; + property OldCOSTE_UNIDADESIsNull : Boolean read GetOldCOSTE_UNIDADESIsNull; + property RESERVA : Int64 read GetRESERVAValue write SetRESERVAValue; + property RESERVAIsNull : Boolean read GetRESERVAIsNull write SetRESERVAIsNull; + property OldRESERVA : Int64 read GetOldRESERVAValue; + property OldRESERVAIsNull : Boolean read GetOldRESERVAIsNull; + property PENDIENTE_RECEPCION : Int64 read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue; + property PENDIENTE_RECEPCIONIsNull : Boolean read GetPENDIENTE_RECEPCIONIsNull write SetPENDIENTE_RECEPCIONIsNull; + property OldPENDIENTE_RECEPCION : Int64 read GetOldPENDIENTE_RECEPCIONValue; + property OldPENDIENTE_RECEPCIONIsNull : Boolean read GetOldPENDIENTE_RECEPCIONIsNull; + 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 CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; property OldCANTIDAD : Integer read GetOldCANTIDADValue; + property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull; property FECHA_MOVIMIENTO : DateTime read GetFECHA_MOVIMIENTOValue write SetFECHA_MOVIMIENTOValue; + property FECHA_MOVIMIENTOIsNull : Boolean read GetFECHA_MOVIMIENTOIsNull write SetFECHA_MOVIMIENTOIsNull; property OldFECHA_MOVIMIENTO : DateTime read GetOldFECHA_MOVIMIENTOValue; + property OldFECHA_MOVIMIENTOIsNull : Boolean read GetOldFECHA_MOVIMIENTOIsNull; property CAUSA : String read GetCAUSAValue write SetCAUSAValue; + property CAUSAIsNull : Boolean read GetCAUSAIsNull write SetCAUSAIsNull; property OldCAUSA : String read GetOldCAUSAValue; + property OldCAUSAIsNull : Boolean read GetOldCAUSAIsNull; property TIPO : String read GetTIPOValue write SetTIPOValue; + property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull; property OldTIPO : String read GetOldTIPOValue; + property OldTIPOIsNull : Boolean read GetOldTIPOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -168,9 +263,9 @@ type end; - { IDETALLE_RESERVAS_INVDelta } - IDETALLE_RESERVAS_INVDelta = interface(IDETALLE_RESERVAS_INV) - ['{D5B89CFC-9817-4CF4-9E20-BFB33C0E196B}'] + { IDetalleReservasDelta } + IDetalleReservasDelta = interface(IDetalleReservas) + ['{33516718-F449-4975-84BC-AA4394AD0C53}'] { Property getters and setters } function GetOldID_ALBValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -186,7 +281,7 @@ type function GetOldREFERENCIA_ARTValue : String; function GetOldREFERENCIA_PROV_ARTValue : String; function GetOldDESCRIPCION_ARTValue : String; - function GetOldCANTIDAD_ARTValue : Integer; + function GetOldCANTIDAD_ARTValue : Int64; { Properties } property OldID_ALB : Integer read GetOldID_ALBValue; @@ -203,91 +298,166 @@ type property OldREFERENCIA_ART : String read GetOldREFERENCIA_ARTValue; property OldREFERENCIA_PROV_ART : String read GetOldREFERENCIA_PROV_ARTValue; property OldDESCRIPCION_ART : String read GetOldDESCRIPCION_ARTValue; - property OldCANTIDAD_ART : Integer read GetOldCANTIDAD_ARTValue; + property OldCANTIDAD_ART : Int64 read GetOldCANTIDAD_ARTValue; end; - { TDETALLE_RESERVAS_INVBusinessProcessorRules } - TDETALLE_RESERVAS_INVBusinessProcessorRules = class(TDABusinessProcessorRules, IDETALLE_RESERVAS_INV, IDETALLE_RESERVAS_INVDelta) + { TDetalleReservasBusinessProcessorRules } + TDetalleReservasBusinessProcessorRules = class(TDABusinessProcessorRules, IDetalleReservas, IDetalleReservasDelta) private protected { Property getters and setters } function GetID_ALBValue: Integer; virtual; + function GetID_ALBIsNull: Boolean; virtual; function GetOldID_ALBValue: Integer; virtual; + function GetOldID_ALBIsNull: Boolean; virtual; procedure SetID_ALBValue(const aValue: Integer); virtual; + procedure SetID_ALBIsNull(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 GetREFERENCIA_ALBValue: String; virtual; + function GetREFERENCIA_ALBIsNull: Boolean; virtual; function GetOldREFERENCIA_ALBValue: String; virtual; + function GetOldREFERENCIA_ALBIsNull: Boolean; virtual; procedure SetREFERENCIA_ALBValue(const aValue: String); virtual; + procedure SetREFERENCIA_ALBIsNull(const aValue: Boolean); virtual; function GetSITUACION_ALBValue: String; virtual; + function GetSITUACION_ALBIsNull: Boolean; virtual; function GetOldSITUACION_ALBValue: String; virtual; + function GetOldSITUACION_ALBIsNull: Boolean; virtual; procedure SetSITUACION_ALBValue(const aValue: String); virtual; + procedure SetSITUACION_ALBIsNull(const aValue: Boolean); virtual; function GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime; virtual; + function GetFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean; virtual; function GetOldFECHA_PREVISTA_ENVIO_ALBValue: DateTime; virtual; + function GetOldFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean; virtual; procedure SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime); virtual; + procedure SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean); virtual; function GetID_ALMACEN_ALBValue: Integer; virtual; + function GetID_ALMACEN_ALBIsNull: Boolean; virtual; function GetOldID_ALMACEN_ALBValue: Integer; virtual; + function GetOldID_ALMACEN_ALBIsNull: Boolean; virtual; procedure SetID_ALMACEN_ALBValue(const aValue: Integer); virtual; + procedure SetID_ALMACEN_ALBIsNull(const aValue: Boolean); virtual; function GetALMACEN_ALBValue: String; virtual; + function GetALMACEN_ALBIsNull: Boolean; virtual; function GetOldALMACEN_ALBValue: String; virtual; + function GetOldALMACEN_ALBIsNull: Boolean; virtual; procedure SetALMACEN_ALBValue(const aValue: String); virtual; + procedure SetALMACEN_ALBIsNull(const aValue: Boolean); virtual; function GetID_CLIENTE_ALBValue: Integer; virtual; + function GetID_CLIENTE_ALBIsNull: Boolean; virtual; function GetOldID_CLIENTE_ALBValue: Integer; virtual; + function GetOldID_CLIENTE_ALBIsNull: Boolean; virtual; procedure SetID_CLIENTE_ALBValue(const aValue: Integer); virtual; + procedure SetID_CLIENTE_ALBIsNull(const aValue: Boolean); virtual; function GetCLIENTE_ALBValue: String; virtual; + function GetCLIENTE_ALBIsNull: Boolean; virtual; function GetOldCLIENTE_ALBValue: String; virtual; + function GetOldCLIENTE_ALBIsNull: Boolean; virtual; procedure SetCLIENTE_ALBValue(const aValue: String); virtual; + procedure SetCLIENTE_ALBIsNull(const aValue: Boolean); virtual; function GetID_ARTValue: Integer; virtual; + function GetID_ARTIsNull: Boolean; virtual; function GetOldID_ARTValue: Integer; virtual; + function GetOldID_ARTIsNull: Boolean; virtual; procedure SetID_ARTValue(const aValue: Integer); virtual; + procedure SetID_ARTIsNull(const aValue: Boolean); virtual; function GetFAMILIA_ARTValue: String; virtual; + function GetFAMILIA_ARTIsNull: Boolean; virtual; function GetOldFAMILIA_ARTValue: String; virtual; + function GetOldFAMILIA_ARTIsNull: Boolean; virtual; procedure SetFAMILIA_ARTValue(const aValue: String); virtual; + procedure SetFAMILIA_ARTIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_ARTValue: String; virtual; + function GetREFERENCIA_ARTIsNull: Boolean; virtual; function GetOldREFERENCIA_ARTValue: String; virtual; + function GetOldREFERENCIA_ARTIsNull: Boolean; virtual; procedure SetREFERENCIA_ARTValue(const aValue: String); virtual; + procedure SetREFERENCIA_ARTIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_PROV_ARTValue: String; virtual; + function GetREFERENCIA_PROV_ARTIsNull: Boolean; virtual; function GetOldREFERENCIA_PROV_ARTValue: String; virtual; + function GetOldREFERENCIA_PROV_ARTIsNull: Boolean; virtual; procedure SetREFERENCIA_PROV_ARTValue(const aValue: String); virtual; + procedure SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean); virtual; function GetDESCRIPCION_ARTValue: String; virtual; + function GetDESCRIPCION_ARTIsNull: Boolean; virtual; function GetOldDESCRIPCION_ARTValue: String; virtual; + function GetOldDESCRIPCION_ARTIsNull: Boolean; virtual; procedure SetDESCRIPCION_ARTValue(const aValue: String); virtual; - function GetCANTIDAD_ARTValue: Integer; virtual; - function GetOldCANTIDAD_ARTValue: Integer; virtual; - procedure SetCANTIDAD_ARTValue(const aValue: Integer); virtual; + procedure SetDESCRIPCION_ARTIsNull(const aValue: Boolean); virtual; + function GetCANTIDAD_ARTValue: Int64; virtual; + function GetCANTIDAD_ARTIsNull: Boolean; virtual; + function GetOldCANTIDAD_ARTValue: Int64; virtual; + function GetOldCANTIDAD_ARTIsNull: Boolean; virtual; + procedure SetCANTIDAD_ARTValue(const aValue: Int64); virtual; + procedure SetCANTIDAD_ARTIsNull(const aValue: Boolean); virtual; { Properties } property ID_ALB : Integer read GetID_ALBValue write SetID_ALBValue; + property ID_ALBIsNull : Boolean read GetID_ALBIsNull write SetID_ALBIsNull; property OldID_ALB : Integer read GetOldID_ALBValue; + property OldID_ALBIsNull : Boolean read GetOldID_ALBIsNull; 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 REFERENCIA_ALB : String read GetREFERENCIA_ALBValue write SetREFERENCIA_ALBValue; + property REFERENCIA_ALBIsNull : Boolean read GetREFERENCIA_ALBIsNull write SetREFERENCIA_ALBIsNull; property OldREFERENCIA_ALB : String read GetOldREFERENCIA_ALBValue; + property OldREFERENCIA_ALBIsNull : Boolean read GetOldREFERENCIA_ALBIsNull; property SITUACION_ALB : String read GetSITUACION_ALBValue write SetSITUACION_ALBValue; + property SITUACION_ALBIsNull : Boolean read GetSITUACION_ALBIsNull write SetSITUACION_ALBIsNull; property OldSITUACION_ALB : String read GetOldSITUACION_ALBValue; + property OldSITUACION_ALBIsNull : Boolean read GetOldSITUACION_ALBIsNull; property FECHA_PREVISTA_ENVIO_ALB : DateTime read GetFECHA_PREVISTA_ENVIO_ALBValue write SetFECHA_PREVISTA_ENVIO_ALBValue; + property FECHA_PREVISTA_ENVIO_ALBIsNull : Boolean read GetFECHA_PREVISTA_ENVIO_ALBIsNull write SetFECHA_PREVISTA_ENVIO_ALBIsNull; property OldFECHA_PREVISTA_ENVIO_ALB : DateTime read GetOldFECHA_PREVISTA_ENVIO_ALBValue; + property OldFECHA_PREVISTA_ENVIO_ALBIsNull : Boolean read GetOldFECHA_PREVISTA_ENVIO_ALBIsNull; property ID_ALMACEN_ALB : Integer read GetID_ALMACEN_ALBValue write SetID_ALMACEN_ALBValue; + property ID_ALMACEN_ALBIsNull : Boolean read GetID_ALMACEN_ALBIsNull write SetID_ALMACEN_ALBIsNull; property OldID_ALMACEN_ALB : Integer read GetOldID_ALMACEN_ALBValue; + property OldID_ALMACEN_ALBIsNull : Boolean read GetOldID_ALMACEN_ALBIsNull; property ALMACEN_ALB : String read GetALMACEN_ALBValue write SetALMACEN_ALBValue; + property ALMACEN_ALBIsNull : Boolean read GetALMACEN_ALBIsNull write SetALMACEN_ALBIsNull; property OldALMACEN_ALB : String read GetOldALMACEN_ALBValue; + property OldALMACEN_ALBIsNull : Boolean read GetOldALMACEN_ALBIsNull; property ID_CLIENTE_ALB : Integer read GetID_CLIENTE_ALBValue write SetID_CLIENTE_ALBValue; + property ID_CLIENTE_ALBIsNull : Boolean read GetID_CLIENTE_ALBIsNull write SetID_CLIENTE_ALBIsNull; property OldID_CLIENTE_ALB : Integer read GetOldID_CLIENTE_ALBValue; + property OldID_CLIENTE_ALBIsNull : Boolean read GetOldID_CLIENTE_ALBIsNull; property CLIENTE_ALB : String read GetCLIENTE_ALBValue write SetCLIENTE_ALBValue; + property CLIENTE_ALBIsNull : Boolean read GetCLIENTE_ALBIsNull write SetCLIENTE_ALBIsNull; property OldCLIENTE_ALB : String read GetOldCLIENTE_ALBValue; + property OldCLIENTE_ALBIsNull : Boolean read GetOldCLIENTE_ALBIsNull; property ID_ART : Integer read GetID_ARTValue write SetID_ARTValue; + property ID_ARTIsNull : Boolean read GetID_ARTIsNull write SetID_ARTIsNull; property OldID_ART : Integer read GetOldID_ARTValue; + property OldID_ARTIsNull : Boolean read GetOldID_ARTIsNull; property FAMILIA_ART : String read GetFAMILIA_ARTValue write SetFAMILIA_ARTValue; + property FAMILIA_ARTIsNull : Boolean read GetFAMILIA_ARTIsNull write SetFAMILIA_ARTIsNull; property OldFAMILIA_ART : String read GetOldFAMILIA_ARTValue; + property OldFAMILIA_ARTIsNull : Boolean read GetOldFAMILIA_ARTIsNull; property REFERENCIA_ART : String read GetREFERENCIA_ARTValue write SetREFERENCIA_ARTValue; + property REFERENCIA_ARTIsNull : Boolean read GetREFERENCIA_ARTIsNull write SetREFERENCIA_ARTIsNull; property OldREFERENCIA_ART : String read GetOldREFERENCIA_ARTValue; + property OldREFERENCIA_ARTIsNull : Boolean read GetOldREFERENCIA_ARTIsNull; property REFERENCIA_PROV_ART : String read GetREFERENCIA_PROV_ARTValue write SetREFERENCIA_PROV_ARTValue; + property REFERENCIA_PROV_ARTIsNull : Boolean read GetREFERENCIA_PROV_ARTIsNull write SetREFERENCIA_PROV_ARTIsNull; property OldREFERENCIA_PROV_ART : String read GetOldREFERENCIA_PROV_ARTValue; + property OldREFERENCIA_PROV_ARTIsNull : Boolean read GetOldREFERENCIA_PROV_ARTIsNull; property DESCRIPCION_ART : String read GetDESCRIPCION_ARTValue write SetDESCRIPCION_ARTValue; + property DESCRIPCION_ARTIsNull : Boolean read GetDESCRIPCION_ARTIsNull write SetDESCRIPCION_ARTIsNull; property OldDESCRIPCION_ART : String read GetOldDESCRIPCION_ARTValue; - property CANTIDAD_ART : Integer read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue; - property OldCANTIDAD_ART : Integer read GetOldCANTIDAD_ARTValue; + property OldDESCRIPCION_ARTIsNull : Boolean read GetOldDESCRIPCION_ARTIsNull; + property CANTIDAD_ART : Int64 read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue; + property CANTIDAD_ARTIsNull : Boolean read GetCANTIDAD_ARTIsNull write SetCANTIDAD_ARTIsNull; + property OldCANTIDAD_ART : Int64 read GetOldCANTIDAD_ARTValue; + property OldCANTIDAD_ARTIsNull : Boolean read GetOldCANTIDAD_ARTIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -298,544 +468,1088 @@ type implementation uses - Variants, uROBinaryHelpers; + Variants, uROBinaryHelpers, uDAInterfaces; -{ TINVENTARIOBusinessProcessorRules } -constructor TINVENTARIOBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +{ TInventarioBusinessProcessorRules } +constructor TInventarioBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; -destructor TINVENTARIOBusinessProcessorRules.Destroy; +destructor TInventarioBusinessProcessorRules.Destroy; begin inherited; end; -function TINVENTARIOBusinessProcessorRules.GetIDValue: Integer; +function TInventarioBusinessProcessorRules.GetID_ALMACENValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID_ALMACEN]; end; -function TINVENTARIOBusinessProcessorRules.GetOldIDValue: Integer; +function TInventarioBusinessProcessorRules.GetID_ALMACENIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOID]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID_ALMACEN]); end; -procedure TINVENTARIOBusinessProcessorRules.SetIDValue(const aValue: Integer); +function TInventarioBusinessProcessorRules.GetOldID_ALMACENValue: Integer; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioID_ALMACEN]; end; -function TINVENTARIOBusinessProcessorRules.GetID_ALMACENValue: Integer; +function TInventarioBusinessProcessorRules.GetOldID_ALMACENIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_ALMACEN]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioID_ALMACEN]); end; -function TINVENTARIOBusinessProcessorRules.GetOldID_ALMACENValue: Integer; +procedure TInventarioBusinessProcessorRules.SetID_ALMACENValue(const aValue: Integer); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOID_ALMACEN]; + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID_ALMACEN] := aValue; end; -procedure TINVENTARIOBusinessProcessorRules.SetID_ALMACENValue(const aValue: Integer); +procedure TInventarioBusinessProcessorRules.SetID_ALMACENIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_ALMACEN] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID_ALMACEN] := Null; end; -function TINVENTARIOBusinessProcessorRules.GetID_ARTICULOValue: Integer; +function TInventarioBusinessProcessorRules.GetID_ARTICULOValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_ARTICULO]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID_ARTICULO]; end; -function TINVENTARIOBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; +function TInventarioBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOID_ARTICULO]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID_ARTICULO]); end; -procedure TINVENTARIOBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); +function TInventarioBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_ARTICULO] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioID_ARTICULO]; end; -function TINVENTARIOBusinessProcessorRules.GetALMACENValue: String; +function TInventarioBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOALMACEN]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioID_ARTICULO]); end; -function TINVENTARIOBusinessProcessorRules.GetOldALMACENValue: String; +procedure TInventarioBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOALMACEN]; + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID_ARTICULO] := aValue; end; -procedure TINVENTARIOBusinessProcessorRules.SetALMACENValue(const aValue: String); +procedure TInventarioBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOALMACEN] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID_ARTICULO] := Null; end; -function TINVENTARIOBusinessProcessorRules.GetID_EMPRESAValue: Integer; +function TInventarioBusinessProcessorRules.GetALMACENValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_EMPRESA]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioALMACEN]; end; -function TINVENTARIOBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +function TInventarioBusinessProcessorRules.GetALMACENIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOID_EMPRESA]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioALMACEN]); end; -procedure TINVENTARIOBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +function TInventarioBusinessProcessorRules.GetOldALMACENValue: String; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_EMPRESA] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioALMACEN]; end; -function TINVENTARIOBusinessProcessorRules.GetREFERENCIAValue: String; +function TInventarioBusinessProcessorRules.GetOldALMACENIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOREFERENCIA]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioALMACEN]); end; -function TINVENTARIOBusinessProcessorRules.GetOldREFERENCIAValue: String; +procedure TInventarioBusinessProcessorRules.SetALMACENValue(const aValue: String); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOREFERENCIA]; + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioALMACEN] := aValue; end; -procedure TINVENTARIOBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +procedure TInventarioBusinessProcessorRules.SetALMACENIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOREFERENCIA] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioALMACEN] := Null; end; -function TINVENTARIOBusinessProcessorRules.GetFAMILIAValue: String; +function TInventarioBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOFAMILIA]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID_EMPRESA]; end; -function TINVENTARIOBusinessProcessorRules.GetOldFAMILIAValue: String; +function TInventarioBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOFAMILIA]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID_EMPRESA]); end; -procedure TINVENTARIOBusinessProcessorRules.SetFAMILIAValue(const aValue: String); +function TInventarioBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOFAMILIA] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioID_EMPRESA]; end; -function TINVENTARIOBusinessProcessorRules.GetDESCRIPCIONValue: String; +function TInventarioBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIODESCRIPCION]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioID_EMPRESA]); end; -function TINVENTARIOBusinessProcessorRules.GetOldDESCRIPCIONValue: String; +procedure TInventarioBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIODESCRIPCION]; + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID_EMPRESA] := aValue; end; -procedure TINVENTARIOBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); +procedure TInventarioBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIODESCRIPCION] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID_EMPRESA] := Null; end; -function TINVENTARIOBusinessProcessorRules.GetPRECIO_NETOValue: Currency; +function TInventarioBusinessProcessorRules.GetREFERENCIAValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOPRECIO_NETO]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioREFERENCIA]; end; -function TINVENTARIOBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency; +function TInventarioBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOPRECIO_NETO]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioREFERENCIA]); end; -procedure TINVENTARIOBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency); +function TInventarioBusinessProcessorRules.GetOldREFERENCIAValue: String; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOPRECIO_NETO] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioREFERENCIA]; end; -function TINVENTARIOBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; +function TInventarioBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOREFERENCIA_PROVEEDOR]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioREFERENCIA]); end; -function TINVENTARIOBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; +procedure TInventarioBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOREFERENCIA_PROVEEDOR]; + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioREFERENCIA] := aValue; end; -procedure TINVENTARIOBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +procedure TInventarioBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOREFERENCIA_PROVEEDOR] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioREFERENCIA] := Null; end; -function TINVENTARIOBusinessProcessorRules.GetUNIDADES_ALMACENValue: Integer; +function TInventarioBusinessProcessorRules.GetFAMILIAValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOUNIDADES_ALMACEN]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioFAMILIA]; end; -function TINVENTARIOBusinessProcessorRules.GetOldUNIDADES_ALMACENValue: Integer; +function TInventarioBusinessProcessorRules.GetFAMILIAIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOUNIDADES_ALMACEN]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioFAMILIA]); end; -procedure TINVENTARIOBusinessProcessorRules.SetUNIDADES_ALMACENValue(const aValue: Integer); +function TInventarioBusinessProcessorRules.GetOldFAMILIAValue: String; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOUNIDADES_ALMACEN] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioFAMILIA]; end; -function TINVENTARIOBusinessProcessorRules.GetCOSTE_UNIDADESValue: Currency; +function TInventarioBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOCOSTE_UNIDADES]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioFAMILIA]); end; -function TINVENTARIOBusinessProcessorRules.GetOldCOSTE_UNIDADESValue: Currency; +procedure TInventarioBusinessProcessorRules.SetFAMILIAValue(const aValue: String); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOCOSTE_UNIDADES]; + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioFAMILIA] := aValue; end; -procedure TINVENTARIOBusinessProcessorRules.SetCOSTE_UNIDADESValue(const aValue: Currency); +procedure TInventarioBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOCOSTE_UNIDADES] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioFAMILIA] := Null; end; -function TINVENTARIOBusinessProcessorRules.GetSTOCKValue: Integer; +function TInventarioBusinessProcessorRules.GetDESCRIPCIONValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOSTOCK]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioDESCRIPCION]; end; -function TINVENTARIOBusinessProcessorRules.GetOldSTOCKValue: Integer; +function TInventarioBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOSTOCK]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioDESCRIPCION]); end; -procedure TINVENTARIOBusinessProcessorRules.SetSTOCKValue(const aValue: Integer); +function TInventarioBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOSTOCK] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioDESCRIPCION]; end; -function TINVENTARIOBusinessProcessorRules.GetRESERVAValue: Integer; +function TInventarioBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIORESERVA]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioDESCRIPCION]); end; -function TINVENTARIOBusinessProcessorRules.GetOldRESERVAValue: Integer; +procedure TInventarioBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIORESERVA]; + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioDESCRIPCION] := aValue; end; -procedure TINVENTARIOBusinessProcessorRules.SetRESERVAValue(const aValue: Integer); +procedure TInventarioBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIORESERVA] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioDESCRIPCION] := Null; end; -function TINVENTARIOBusinessProcessorRules.GetPENDIENTE_RECEPCIONValue: Integer; +function TInventarioBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOPENDIENTE_RECEPCION]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioREFERENCIA_PROVEEDOR]; end; -function TINVENTARIOBusinessProcessorRules.GetOldPENDIENTE_RECEPCIONValue: Integer; +function TInventarioBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOPENDIENTE_RECEPCION]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioREFERENCIA_PROVEEDOR]); end; -procedure TINVENTARIOBusinessProcessorRules.SetPENDIENTE_RECEPCIONValue(const aValue: Integer); +function TInventarioBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOPENDIENTE_RECEPCION] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioREFERENCIA_PROVEEDOR]; end; -function TINVENTARIOBusinessProcessorRules.GetCANTIDADValue: Integer; +function TInventarioBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOCANTIDAD]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioREFERENCIA_PROVEEDOR]); end; -function TINVENTARIOBusinessProcessorRules.GetOldCANTIDADValue: Integer; +procedure TInventarioBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOCANTIDAD]; + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioREFERENCIA_PROVEEDOR] := aValue; end; -procedure TINVENTARIOBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); +procedure TInventarioBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOCANTIDAD] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioREFERENCIA_PROVEEDOR] := Null; end; -function TINVENTARIOBusinessProcessorRules.GetFECHA_MOVIMIENTOValue: DateTime; +function TInventarioBusinessProcessorRules.GetPRECIO_NETOValue: Currency; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOFECHA_MOVIMIENTO]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPRECIO_NETO]; end; -function TINVENTARIOBusinessProcessorRules.GetOldFECHA_MOVIMIENTOValue: DateTime; +function TInventarioBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOFECHA_MOVIMIENTO]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPRECIO_NETO]); end; -procedure TINVENTARIOBusinessProcessorRules.SetFECHA_MOVIMIENTOValue(const aValue: DateTime); +function TInventarioBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOFECHA_MOVIMIENTO] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioPRECIO_NETO]; end; -function TINVENTARIOBusinessProcessorRules.GetCAUSAValue: String; +function TInventarioBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOCAUSA]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioPRECIO_NETO]); end; -function TINVENTARIOBusinessProcessorRules.GetOldCAUSAValue: String; +procedure TInventarioBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOCAUSA]; + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPRECIO_NETO] := aValue; end; -procedure TINVENTARIOBusinessProcessorRules.SetCAUSAValue(const aValue: String); +procedure TInventarioBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOCAUSA] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPRECIO_NETO] := Null; end; -function TINVENTARIOBusinessProcessorRules.GetTIPOValue: String; +function TInventarioBusinessProcessorRules.GetSTOCKValue: Int64; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOTIPO]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK]; end; -function TINVENTARIOBusinessProcessorRules.GetOldTIPOValue: String; +function TInventarioBusinessProcessorRules.GetSTOCKIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOTIPO]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK]); end; -procedure TINVENTARIOBusinessProcessorRules.SetTIPOValue(const aValue: String); +function TInventarioBusinessProcessorRules.GetOldSTOCKValue: Int64; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOTIPO] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioSTOCK]; +end; + +function TInventarioBusinessProcessorRules.GetOldSTOCKIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioSTOCK]); +end; + +procedure TInventarioBusinessProcessorRules.SetSTOCKValue(const aValue: Int64); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK] := aValue; +end; + +procedure TInventarioBusinessProcessorRules.SetSTOCKIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK] := Null; +end; + +function TInventarioBusinessProcessorRules.GetUNIDADES_ALMACENValue: Int64; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN]; +end; + +function TInventarioBusinessProcessorRules.GetUNIDADES_ALMACENIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN]); +end; + +function TInventarioBusinessProcessorRules.GetOldUNIDADES_ALMACENValue: Int64; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioUNIDADES_ALMACEN]; +end; + +function TInventarioBusinessProcessorRules.GetOldUNIDADES_ALMACENIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioUNIDADES_ALMACEN]); +end; + +procedure TInventarioBusinessProcessorRules.SetUNIDADES_ALMACENValue(const aValue: Int64); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN] := aValue; +end; + +procedure TInventarioBusinessProcessorRules.SetUNIDADES_ALMACENIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN] := Null; +end; + +function TInventarioBusinessProcessorRules.GetCOSTE_UNIDADESValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOSTE_UNIDADES]; +end; + +function TInventarioBusinessProcessorRules.GetCOSTE_UNIDADESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOSTE_UNIDADES]); +end; + +function TInventarioBusinessProcessorRules.GetOldCOSTE_UNIDADESValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOSTE_UNIDADES]; +end; + +function TInventarioBusinessProcessorRules.GetOldCOSTE_UNIDADESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOSTE_UNIDADES]); +end; + +procedure TInventarioBusinessProcessorRules.SetCOSTE_UNIDADESValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOSTE_UNIDADES] := aValue; +end; + +procedure TInventarioBusinessProcessorRules.SetCOSTE_UNIDADESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOSTE_UNIDADES] := Null; +end; + +function TInventarioBusinessProcessorRules.GetRESERVAValue: Int64; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA]; +end; + +function TInventarioBusinessProcessorRules.GetRESERVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA]); +end; + +function TInventarioBusinessProcessorRules.GetOldRESERVAValue: Int64; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioRESERVA]; +end; + +function TInventarioBusinessProcessorRules.GetOldRESERVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioRESERVA]); +end; + +procedure TInventarioBusinessProcessorRules.SetRESERVAValue(const aValue: Int64); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA] := aValue; +end; + +procedure TInventarioBusinessProcessorRules.SetRESERVAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA] := Null; +end; + +function TInventarioBusinessProcessorRules.GetPENDIENTE_RECEPCIONValue: Int64; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION]; +end; + +function TInventarioBusinessProcessorRules.GetPENDIENTE_RECEPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION]); +end; + +function TInventarioBusinessProcessorRules.GetOldPENDIENTE_RECEPCIONValue: Int64; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioPENDIENTE_RECEPCION]; +end; + +function TInventarioBusinessProcessorRules.GetOldPENDIENTE_RECEPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioPENDIENTE_RECEPCION]); +end; + +procedure TInventarioBusinessProcessorRules.SetPENDIENTE_RECEPCIONValue(const aValue: Int64); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION] := aValue; +end; + +procedure TInventarioBusinessProcessorRules.SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION] := Null; +end; + +function TInventarioBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID]; +end; + +function TInventarioBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID]); +end; + +function TInventarioBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioID]; +end; + +function TInventarioBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioID]); +end; + +procedure TInventarioBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID] := aValue; +end; + +procedure TInventarioBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID] := Null; +end; + +function TInventarioBusinessProcessorRules.GetCANTIDADValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCANTIDAD]; +end; + +function TInventarioBusinessProcessorRules.GetCANTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCANTIDAD]); +end; + +function TInventarioBusinessProcessorRules.GetOldCANTIDADValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCANTIDAD]; +end; + +function TInventarioBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCANTIDAD]); +end; + +procedure TInventarioBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCANTIDAD] := aValue; +end; + +procedure TInventarioBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCANTIDAD] := Null; +end; + +function TInventarioBusinessProcessorRules.GetFECHA_MOVIMIENTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioFECHA_MOVIMIENTO]; +end; + +function TInventarioBusinessProcessorRules.GetFECHA_MOVIMIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioFECHA_MOVIMIENTO]); +end; + +function TInventarioBusinessProcessorRules.GetOldFECHA_MOVIMIENTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioFECHA_MOVIMIENTO]; +end; + +function TInventarioBusinessProcessorRules.GetOldFECHA_MOVIMIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioFECHA_MOVIMIENTO]); +end; + +procedure TInventarioBusinessProcessorRules.SetFECHA_MOVIMIENTOValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioFECHA_MOVIMIENTO] := aValue; +end; + +procedure TInventarioBusinessProcessorRules.SetFECHA_MOVIMIENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioFECHA_MOVIMIENTO] := Null; +end; + +function TInventarioBusinessProcessorRules.GetCAUSAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCAUSA]; +end; + +function TInventarioBusinessProcessorRules.GetCAUSAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCAUSA]); +end; + +function TInventarioBusinessProcessorRules.GetOldCAUSAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCAUSA]; +end; + +function TInventarioBusinessProcessorRules.GetOldCAUSAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCAUSA]); +end; + +procedure TInventarioBusinessProcessorRules.SetCAUSAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCAUSA] := aValue; +end; + +procedure TInventarioBusinessProcessorRules.SetCAUSAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCAUSA] := Null; +end; + +function TInventarioBusinessProcessorRules.GetTIPOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioTIPO]; +end; + +function TInventarioBusinessProcessorRules.GetTIPOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioTIPO]); +end; + +function TInventarioBusinessProcessorRules.GetOldTIPOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioTIPO]; +end; + +function TInventarioBusinessProcessorRules.GetOldTIPOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioTIPO]); +end; + +procedure TInventarioBusinessProcessorRules.SetTIPOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioTIPO] := aValue; +end; + +procedure TInventarioBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioTIPO] := Null; end; -{ TDETALLE_RESERVAS_INVBusinessProcessorRules } -constructor TDETALLE_RESERVAS_INVBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +{ TDetalleReservasBusinessProcessorRules } +constructor TDetalleReservasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; -destructor TDETALLE_RESERVAS_INVBusinessProcessorRules.Destroy; +destructor TDetalleReservasBusinessProcessorRules.Destroy; begin inherited; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetID_ALBValue: Integer; +function TDetalleReservasBusinessProcessorRules.GetID_ALBValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_ALB]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALB]; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldID_ALBValue: Integer; +function TDetalleReservasBusinessProcessorRules.GetID_ALBIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVID_ALB]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALB]); end; -procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetID_ALBValue(const aValue: Integer); +function TDetalleReservasBusinessProcessorRules.GetOldID_ALBValue: Integer; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_ALB] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ALB]; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetID_EMPRESAValue: Integer; +function TDetalleReservasBusinessProcessorRules.GetOldID_ALBIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_EMPRESA]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ALB]); end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +procedure TDetalleReservasBusinessProcessorRules.SetID_ALBValue(const aValue: Integer); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVID_EMPRESA]; + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALB] := aValue; end; -procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +procedure TDetalleReservasBusinessProcessorRules.SetID_ALBIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_EMPRESA] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALB] := Null; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetREFERENCIA_ALBValue: String; +function TDetalleReservasBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_ALB]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_EMPRESA]; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldREFERENCIA_ALBValue: String; +function TDetalleReservasBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_ALB]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_EMPRESA]); end; -procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetREFERENCIA_ALBValue(const aValue: String); +function TDetalleReservasBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_ALB] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_EMPRESA]; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetSITUACION_ALBValue: String; +function TDetalleReservasBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVSITUACION_ALB]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_EMPRESA]); end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldSITUACION_ALBValue: String; +procedure TDetalleReservasBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVSITUACION_ALB]; + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_EMPRESA] := aValue; end; -procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetSITUACION_ALBValue(const aValue: String); +procedure TDetalleReservasBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVSITUACION_ALB] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_EMPRESA] := Null; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime; +function TDetalleReservasBusinessProcessorRules.GetREFERENCIA_ALBValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVFECHA_PREVISTA_ENVIO_ALB]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ALB]; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldFECHA_PREVISTA_ENVIO_ALBValue: DateTime; +function TDetalleReservasBusinessProcessorRules.GetREFERENCIA_ALBIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVFECHA_PREVISTA_ENVIO_ALB]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ALB]); end; -procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime); +function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIA_ALBValue: String; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVFECHA_PREVISTA_ENVIO_ALB] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA_ALB]; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetID_ALMACEN_ALBValue: Integer; +function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIA_ALBIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_ALMACEN_ALB]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA_ALB]); end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldID_ALMACEN_ALBValue: Integer; +procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIA_ALBValue(const aValue: String); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVID_ALMACEN_ALB]; + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ALB] := aValue; end; -procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetID_ALMACEN_ALBValue(const aValue: Integer); +procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIA_ALBIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_ALMACEN_ALB] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ALB] := Null; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetALMACEN_ALBValue: String; +function TDetalleReservasBusinessProcessorRules.GetSITUACION_ALBValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVALMACEN_ALB]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasSITUACION_ALB]; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldALMACEN_ALBValue: String; +function TDetalleReservasBusinessProcessorRules.GetSITUACION_ALBIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVALMACEN_ALB]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasSITUACION_ALB]); end; -procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetALMACEN_ALBValue(const aValue: String); +function TDetalleReservasBusinessProcessorRules.GetOldSITUACION_ALBValue: String; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVALMACEN_ALB] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasSITUACION_ALB]; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetID_CLIENTE_ALBValue: Integer; +function TDetalleReservasBusinessProcessorRules.GetOldSITUACION_ALBIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_CLIENTE_ALB]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasSITUACION_ALB]); end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldID_CLIENTE_ALBValue: Integer; +procedure TDetalleReservasBusinessProcessorRules.SetSITUACION_ALBValue(const aValue: String); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVID_CLIENTE_ALB]; + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasSITUACION_ALB] := aValue; end; -procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetID_CLIENTE_ALBValue(const aValue: Integer); +procedure TDetalleReservasBusinessProcessorRules.SetSITUACION_ALBIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_CLIENTE_ALB] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasSITUACION_ALB] := Null; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetCLIENTE_ALBValue: String; +function TDetalleReservasBusinessProcessorRules.GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVCLIENTE_ALB]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB]; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldCLIENTE_ALBValue: String; +function TDetalleReservasBusinessProcessorRules.GetFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVCLIENTE_ALB]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB]); end; -procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetCLIENTE_ALBValue(const aValue: String); +function TDetalleReservasBusinessProcessorRules.GetOldFECHA_PREVISTA_ENVIO_ALBValue: DateTime; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVCLIENTE_ALB] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB]; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetID_ARTValue: Integer; +function TDetalleReservasBusinessProcessorRules.GetOldFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_ART]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB]); end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldID_ARTValue: Integer; +procedure TDetalleReservasBusinessProcessorRules.SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVID_ART]; + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB] := aValue; end; -procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetID_ARTValue(const aValue: Integer); +procedure TDetalleReservasBusinessProcessorRules.SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_ART] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB] := Null; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetFAMILIA_ARTValue: String; +function TDetalleReservasBusinessProcessorRules.GetID_ALMACEN_ALBValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVFAMILIA_ART]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN_ALB]; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldFAMILIA_ARTValue: String; +function TDetalleReservasBusinessProcessorRules.GetID_ALMACEN_ALBIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVFAMILIA_ART]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN_ALB]); end; -procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetFAMILIA_ARTValue(const aValue: String); +function TDetalleReservasBusinessProcessorRules.GetOldID_ALMACEN_ALBValue: Integer; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVFAMILIA_ART] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ALMACEN_ALB]; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetREFERENCIA_ARTValue: String; +function TDetalleReservasBusinessProcessorRules.GetOldID_ALMACEN_ALBIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_ART]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ALMACEN_ALB]); end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldREFERENCIA_ARTValue: String; +procedure TDetalleReservasBusinessProcessorRules.SetID_ALMACEN_ALBValue(const aValue: Integer); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_ART]; + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN_ALB] := aValue; end; -procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetREFERENCIA_ARTValue(const aValue: String); +procedure TDetalleReservasBusinessProcessorRules.SetID_ALMACEN_ALBIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_ART] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN_ALB] := Null; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetREFERENCIA_PROV_ARTValue: String; +function TDetalleReservasBusinessProcessorRules.GetALMACEN_ALBValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_PROV_ART]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasALMACEN_ALB]; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldREFERENCIA_PROV_ARTValue: String; +function TDetalleReservasBusinessProcessorRules.GetALMACEN_ALBIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_PROV_ART]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasALMACEN_ALB]); end; -procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetREFERENCIA_PROV_ARTValue(const aValue: String); +function TDetalleReservasBusinessProcessorRules.GetOldALMACEN_ALBValue: String; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_PROV_ART] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasALMACEN_ALB]; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetDESCRIPCION_ARTValue: String; +function TDetalleReservasBusinessProcessorRules.GetOldALMACEN_ALBIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVDESCRIPCION_ART]; + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasALMACEN_ALB]); end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldDESCRIPCION_ARTValue: String; +procedure TDetalleReservasBusinessProcessorRules.SetALMACEN_ALBValue(const aValue: String); begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVDESCRIPCION_ART]; + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasALMACEN_ALB] := aValue; end; -procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetDESCRIPCION_ARTValue(const aValue: String); +procedure TDetalleReservasBusinessProcessorRules.SetALMACEN_ALBIsNull(const aValue: Boolean); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVDESCRIPCION_ART] := aValue; + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasALMACEN_ALB] := Null; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetCANTIDAD_ARTValue: Integer; +function TDetalleReservasBusinessProcessorRules.GetID_CLIENTE_ALBValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVCANTIDAD_ART]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_CLIENTE_ALB]; end; -function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldCANTIDAD_ARTValue: Integer; +function TDetalleReservasBusinessProcessorRules.GetID_CLIENTE_ALBIsNull: Boolean; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVCANTIDAD_ART]; + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_CLIENTE_ALB]); end; -procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetCANTIDAD_ARTValue(const aValue: Integer); +function TDetalleReservasBusinessProcessorRules.GetOldID_CLIENTE_ALBValue: Integer; begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVCANTIDAD_ART] := aValue; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_CLIENTE_ALB]; +end; + +function TDetalleReservasBusinessProcessorRules.GetOldID_CLIENTE_ALBIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_CLIENTE_ALB]); +end; + +procedure TDetalleReservasBusinessProcessorRules.SetID_CLIENTE_ALBValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_CLIENTE_ALB] := aValue; +end; + +procedure TDetalleReservasBusinessProcessorRules.SetID_CLIENTE_ALBIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_CLIENTE_ALB] := Null; +end; + +function TDetalleReservasBusinessProcessorRules.GetCLIENTE_ALBValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCLIENTE_ALB]; +end; + +function TDetalleReservasBusinessProcessorRules.GetCLIENTE_ALBIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCLIENTE_ALB]); +end; + +function TDetalleReservasBusinessProcessorRules.GetOldCLIENTE_ALBValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCLIENTE_ALB]; +end; + +function TDetalleReservasBusinessProcessorRules.GetOldCLIENTE_ALBIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCLIENTE_ALB]); +end; + +procedure TDetalleReservasBusinessProcessorRules.SetCLIENTE_ALBValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCLIENTE_ALB] := aValue; +end; + +procedure TDetalleReservasBusinessProcessorRules.SetCLIENTE_ALBIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCLIENTE_ALB] := Null; +end; + +function TDetalleReservasBusinessProcessorRules.GetID_ARTValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ART]; +end; + +function TDetalleReservasBusinessProcessorRules.GetID_ARTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ART]); +end; + +function TDetalleReservasBusinessProcessorRules.GetOldID_ARTValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ART]; +end; + +function TDetalleReservasBusinessProcessorRules.GetOldID_ARTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ART]); +end; + +procedure TDetalleReservasBusinessProcessorRules.SetID_ARTValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ART] := aValue; +end; + +procedure TDetalleReservasBusinessProcessorRules.SetID_ARTIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ART] := Null; +end; + +function TDetalleReservasBusinessProcessorRules.GetFAMILIA_ARTValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFAMILIA_ART]; +end; + +function TDetalleReservasBusinessProcessorRules.GetFAMILIA_ARTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFAMILIA_ART]); +end; + +function TDetalleReservasBusinessProcessorRules.GetOldFAMILIA_ARTValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasFAMILIA_ART]; +end; + +function TDetalleReservasBusinessProcessorRules.GetOldFAMILIA_ARTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasFAMILIA_ART]); +end; + +procedure TDetalleReservasBusinessProcessorRules.SetFAMILIA_ARTValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFAMILIA_ART] := aValue; +end; + +procedure TDetalleReservasBusinessProcessorRules.SetFAMILIA_ARTIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFAMILIA_ART] := Null; +end; + +function TDetalleReservasBusinessProcessorRules.GetREFERENCIA_ARTValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ART]; +end; + +function TDetalleReservasBusinessProcessorRules.GetREFERENCIA_ARTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ART]); +end; + +function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIA_ARTValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA_ART]; +end; + +function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIA_ARTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA_ART]); +end; + +procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIA_ARTValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ART] := aValue; +end; + +procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIA_ARTIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ART] := Null; +end; + +function TDetalleReservasBusinessProcessorRules.GetREFERENCIA_PROV_ARTValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_PROV_ART]; +end; + +function TDetalleReservasBusinessProcessorRules.GetREFERENCIA_PROV_ARTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_PROV_ART]); +end; + +function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIA_PROV_ARTValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA_PROV_ART]; +end; + +function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIA_PROV_ARTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA_PROV_ART]); +end; + +procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIA_PROV_ARTValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_PROV_ART] := aValue; +end; + +procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_PROV_ART] := Null; +end; + +function TDetalleReservasBusinessProcessorRules.GetDESCRIPCION_ARTValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasDESCRIPCION_ART]; +end; + +function TDetalleReservasBusinessProcessorRules.GetDESCRIPCION_ARTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasDESCRIPCION_ART]); +end; + +function TDetalleReservasBusinessProcessorRules.GetOldDESCRIPCION_ARTValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasDESCRIPCION_ART]; +end; + +function TDetalleReservasBusinessProcessorRules.GetOldDESCRIPCION_ARTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasDESCRIPCION_ART]); +end; + +procedure TDetalleReservasBusinessProcessorRules.SetDESCRIPCION_ARTValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasDESCRIPCION_ART] := aValue; +end; + +procedure TDetalleReservasBusinessProcessorRules.SetDESCRIPCION_ARTIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasDESCRIPCION_ART] := Null; +end; + +function TDetalleReservasBusinessProcessorRules.GetCANTIDAD_ARTValue: Int64; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD_ART]; +end; + +function TDetalleReservasBusinessProcessorRules.GetCANTIDAD_ARTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD_ART]); +end; + +function TDetalleReservasBusinessProcessorRules.GetOldCANTIDAD_ARTValue: Int64; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCANTIDAD_ART]; +end; + +function TDetalleReservasBusinessProcessorRules.GetOldCANTIDAD_ARTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCANTIDAD_ART]); +end; + +procedure TDetalleReservasBusinessProcessorRules.SetCANTIDAD_ARTValue(const aValue: Int64); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD_ART] := aValue; +end; + +procedure TDetalleReservasBusinessProcessorRules.SetCANTIDAD_ARTIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD_ART] := Null; end; initialization - RegisterBusinessProcessorRules(RID_INVENTARIODelta, TINVENTARIOBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_DETALLE_RESERVAS_INVDelta, TDETALLE_RESERVAS_INVBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_InventarioDelta, TInventarioBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_DetalleReservasDelta, TDetalleReservasBusinessProcessorRules); end. diff --git a/Source/Modulos/Inventario/Model/uBizInventario.pas b/Source/Modulos/Inventario/Model/uBizInventario.pas index 5fbf3138..3a277c9d 100644 --- a/Source/Modulos/Inventario/Model/uBizInventario.pas +++ b/Source/Modulos/Inventario/Model/uBizInventario.pas @@ -20,7 +20,7 @@ type tEntradaPedidoProveedor, tSalidaAlbaranCliente); - IBizDetalleReservas = interface(IDetalle_Reservas_Inv) + IBizDetalleReservas = interface(IDetalleReservas) ['{7E718670-DDC1-411B-B8DF-A28B81F9B8C3}'] end; @@ -39,7 +39,7 @@ type property TipoMovimiento: TEnumTipoMovimiento read GetTipo write SetTipo; end; - TBizDetalleReservas = class(TDetalle_reservas_InvDataTableRules, IBizDetalleReservas) + TBizDetalleReservas = class(TDetalleReservasDataTableRules, IBizDetalleReservas) end; TBizInventario = class(TInventarioDataTableRules, IBizInventario, ISeleccionable) diff --git a/Source/Modulos/Inventario/Plugin/Inventario_plugin.dpk b/Source/Modulos/Inventario/Plugin/Inventario_plugin.dpk index d93196c6..ed82c8c5 100644 --- a/Source/Modulos/Inventario/Plugin/Inventario_plugin.dpk +++ b/Source/Modulos/Inventario/Plugin/Inventario_plugin.dpk @@ -22,17 +22,12 @@ package Inventario_plugin; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} +{$DEFINE DEBUG} requires - rtl, - vcl, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, Inventario_controller, + Inventario_model, Inventario_view; contains diff --git a/Source/Modulos/Inventario/Plugin/Inventario_plugin.dproj b/Source/Modulos/Inventario/Plugin/Inventario_plugin.dproj new file mode 100644 index 00000000..303b9c99 --- /dev/null +++ b/Source/Modulos/Inventario/Plugin/Inventario_plugin.dproj @@ -0,0 +1,540 @@ + + + + {232d2cbd-4910-4042-a617-8366cf356ec9} + Inventario_plugin.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Inventario_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 + +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Inventario_plugin.dpk + + + + + MainSource + + + + + + + + + diff --git a/Source/Modulos/Inventario/Plugin/Inventario_plugin.rc b/Source/Modulos/Inventario/Plugin/Inventario_plugin.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Inventario/Plugin/Inventario_plugin.rc +++ b/Source/Modulos/Inventario/Plugin/Inventario_plugin.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/Inventario/Plugin/Inventario_plugin.res b/Source/Modulos/Inventario/Plugin/Inventario_plugin.res index 36f26e23..8b251f31 100644 Binary files a/Source/Modulos/Inventario/Plugin/Inventario_plugin.res and b/Source/Modulos/Inventario/Plugin/Inventario_plugin.res differ diff --git a/Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm b/Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm index 6b704ebe..11afc4d1 100644 --- a/Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm +++ b/Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm @@ -1,13 +1,12 @@ object srvInventario: TsrvInventario OldCreateOrder = True SessionManager = dmServer.SessionManager - AcquireConnection = True ConnectionName = 'IBX' ServiceSchema = schInventario - ServiceAdapter = DABINAdapter - OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection - OnAfterGetDatasetData = DARemoteServiceAfterGetDatasetData - Height = 300 + ServiceDataStreamer = Bin2DataStreamer + ExportedDataTables = <> + BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection + Height = 168 Width = 300 object schInventario: TDASchema ConnectionManager = dmServer.ConnectionManager @@ -29,8 +28,8 @@ object srvInventario: TsrvInventario 'IENTE DEL INVENTARIO PERO POR FALTA'#10' DE TIEMPO Y FIABILIDAD Y' + 'A QUE AHORA FUNCIONA TODO, CREAMOS ESTOS CAMPOS FICTICIOS'#10' */' + #10#10' 0 as ID, 0 as CANTIDAD, current_date as FECHA_MOVIMIENTO, ' + - 'NULL as CAUSA, NULL as TIPO'#10#10#10'FROM V_INVENTARIO'#10'ORDER BY ID_ARTI' + - 'CULO' + 'NULL as CAUSA, NULL as TIPO'#10#10#10'FROM V_INVENTARIO'#10'where {where}'#10'OR' + + 'DER BY ID_ARTICULO'#10 StatementType = stSQL ColumnMappings = < item @@ -106,207 +105,112 @@ object srvInventario: TsrvInventario TableField = 'COSTE_UNIDADES' end> end> - Name = 'INVENTARIO' + Name = 'Inventario' Fields = < - item - Name = 'ID' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'INVENTARIO_ID' - InPrimaryKey = True - Calculated = True - Lookup = False - LookupCache = False - end item Name = 'ID_ALMACEN' DataType = datInteger - BlobType = dabtUnknown DictionaryEntry = 'INVENTARIO_ID_ALMACEN' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'ID_ARTICULO' DataType = datInteger - BlobType = dabtUnknown DictionaryEntry = 'INVENTARIO_ID_ARTICULO' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'ALMACEN' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'INVENTARIO_ALMACEN' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger - BlobType = dabtUnknown DictionaryEntry = 'INVENTARIO_ID_EMPRESA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'INVENTARIO_REFERENCIA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'FAMILIA' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'INVENTARIO_FAMILIA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'DESCRIPCION' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'INVENTARIO_DESCRIPCION' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRECIO_NETO' - DataType = datCurrency - BlobType = dabtUnknown - DictionaryEntry = 'INVENTARIO_PRECIO_NETO' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'INVENTARIO_REFERENCIA_PROVEEDOR' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False + end + item + Name = 'PRECIO_NETO' + DataType = datCurrency + DictionaryEntry = 'INVENTARIO_PRECIO_NETO' + end + item + Name = 'STOCK' + DataType = datLargeInt + DictionaryEntry = 'INVENTARIO_STOCK' end item Name = 'UNIDADES_ALMACEN' - DataType = datInteger - BlobType = dabtUnknown + DataType = datLargeInt DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'COSTE_UNIDADES' DataType = datCurrency - BlobType = dabtUnknown DictionaryEntry = 'INVENTARIO_COSTE_UNIDADES' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'STOCK' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'INVENTARIO_STOCK' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'RESERVA' - DataType = datInteger - BlobType = dabtUnknown + DataType = datLargeInt DictionaryEntry = 'INVENTARIO_RESERVA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'PENDIENTE_RECEPCION' - DataType = datInteger - BlobType = dabtUnknown + DataType = datLargeInt DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False + end + item + Name = 'ID' + DataType = datInteger + DictionaryEntry = 'INVENTARIO_ID' + InPrimaryKey = True + Calculated = True end item Name = 'CANTIDAD' DataType = datInteger - BlobType = dabtUnknown DictionaryEntry = 'INVENTARIO_CANTIDAD' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'FECHA_MOVIMIENTO' DataType = datDateTime - BlobType = dabtUnknown DictionaryEntry = 'INVENTARIO_FECHA_MOVIMIENTO' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'CAUSA' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'INVENTARIO_CAUSA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'TIPO' DataType = datString Size = 1 - BlobType = dabtUnknown DictionaryEntry = 'INVENTARIO_TIPO' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = <> @@ -319,7 +223,8 @@ object srvInventario: TsrvInventario ','#10' FECHA_PREVISTA_ENVIO_ALB,'#10' ID_ALMACEN_ALB,'#10' ALMACEN_ALB,'#10' ' + ' ID_CLIENTE_ALB,'#10' CLIENTE_ALB,'#10' ID_ART,'#10' FAMILIA_ART,'#10' REFER' + 'ENCIA_ART,'#10' REFERENCIA_PROV_ART,'#10' DESCRIPCION_ART,'#10' CANTIDAD_' + - 'ART'#10' '#10'FROM V_INV_DETALLE_RESERVAS'#10'ORDER BY REFERENCIA_ALB' + 'ART'#10' '#10'FROM V_INV_DETALLE_RESERVAS'#10'where {where}'#10'ORDER BY REFERE' + + 'NCIA_ALB'#10 StatementType = stSQL ColumnMappings = < item @@ -383,197 +288,119 @@ object srvInventario: TsrvInventario TableField = 'ID_EMPRESA' end> end> - Name = 'DETALLE_RESERVAS_INV' + Name = 'DetalleReservas' Fields = < item Name = 'ID_ALB' DataType = datInteger - BlobType = dabtUnknown DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALB' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger - BlobType = dabtUnknown DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_EMPRESA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'REFERENCIA_ALB' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ALB' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'SITUACION_ALB' DataType = datString Size = 9 - BlobType = dabtUnknown DictionaryEntry = 'DETALLE_RESERVAS_INV_SITUACION_ALB' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'FECHA_PREVISTA_ENVIO_ALB' DataType = datDateTime - BlobType = dabtUnknown DictionaryEntry = 'DETALLE_RESERVAS_INV_FECHA_PREVISTA_ENVIO_ALB' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'ID_ALMACEN_ALB' DataType = datInteger - BlobType = dabtUnknown DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALMACEN_ALB' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'ALMACEN_ALB' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'DETALLE_RESERVAS_INV_ALMACEN_ALB' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'ID_CLIENTE_ALB' DataType = datInteger - BlobType = dabtUnknown DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_CLIENTE_ALB' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'CLIENTE_ALB' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'DETALLE_RESERVAS_INV_CLIENTE_ALB' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'ID_ART' DataType = datInteger - BlobType = dabtUnknown DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ART' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'FAMILIA_ART' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'DETALLE_RESERVAS_INV_FAMILIA_ART' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'REFERENCIA_ART' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ART' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'REFERENCIA_PROV_ART' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_PROV_ART' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'DESCRIPCION_ART' DataType = datString Size = 255 - BlobType = dabtUnknown DictionaryEntry = 'DETALLE_RESERVAS_INV_DESCRIPCION_ART' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'CANTIDAD_ART' - DataType = datInteger - BlobType = dabtUnknown + DataType = datLargeInt DictionaryEntry = 'DETALLE_RESERVAS_INV_CANTIDAD_ART' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript end> + JoinDataTables = <> + UnionDataTables = <> Commands = < item Params = < item Name = 'ID' - DataType = datInteger - BlobType = dabtUnknown + DataType = datAutoInc + GeneratorName = 'GEN_MOVIMIENTOS_ID' Value = '' ParamType = daptInput end item Name = 'ID_ALMACEN' DataType = datInteger - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_ARTICULO' DataType = datInteger - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_MOVIMIENTO' DataType = datDateTime - BlobType = dabtUnknown Value = '' ParamType = daptInput end @@ -581,14 +408,12 @@ object srvInventario: TsrvInventario Name = 'TIPO' DataType = datString Size = 1 - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CANTIDAD' DataType = datInteger - BlobType = dabtUnknown Value = '' ParamType = daptInput end @@ -596,7 +421,6 @@ object srvInventario: TsrvInventario Name = 'CAUSA' DataType = datString Size = 2000 - BlobType = dabtUnknown Value = '' ParamType = daptInput end> @@ -617,10 +441,7 @@ object srvInventario: TsrvInventario Params = < item Name = 'OLD_ID' - DataType = datInteger - BlobType = dabtUnknown Value = '' - ParamType = daptInput end> Statements = < item @@ -635,96 +456,54 @@ object srvInventario: TsrvInventario item Params = < item - Name = 'ID_ALMACEN' - DataType = datInteger - BlobType = dabtUnknown + Name = 'ID' + Value = '' + end + item + Name = 'ID_ALMACEN' Value = '' - ParamType = daptInput end item Name = 'ID_ARTICULO' - DataType = datInteger - BlobType = dabtUnknown Value = '' - ParamType = daptInput end item Name = 'FECHA_MOVIMIENTO' - DataType = datDateTime - BlobType = dabtUnknown Value = '' - ParamType = daptInput end item Name = 'TIPO' - DataType = datString - Size = 1 - BlobType = dabtUnknown Value = '' - ParamType = daptInput end item Name = 'CANTIDAD' - DataType = datInteger - BlobType = dabtUnknown Value = '' - ParamType = daptInput end item Name = 'CAUSA' - DataType = datString - Size = 2000 - BlobType = dabtUnknown Value = '' - ParamType = daptInput end item Name = 'OLD_ID' - DataType = datInteger - BlobType = dabtUnknown Value = '' - ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'MOVIMIENTOS' SQL = - 'UPDATE MOVIMIENTOS'#10' SET '#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_A' + - 'RTICULO = :ID_ARTICULO,'#10' FECHA_MOVIMIENTO = :FECHA_MOVIMIENTO' + - ','#10' TIPO = :TIPO,'#10' CANTIDAD = :CANTIDAD,'#10' CAUSA = :CAUSA' + - #10' WHERE'#10' (ID = :OLD_ID)' + 'UPDATE MOVIMIENTOS'#10' SET '#10' ID = :ID,'#10' ID_ALMACEN = :ID_ALM' + + 'ACEN,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' FECHA_MOVIMIENTO = :FE' + + 'CHA_MOVIMIENTO,'#10' TIPO = :TIPO,'#10' CANTIDAD = :CANTIDAD,'#10' ' + + 'CAUSA = :CAUSA'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Update_INVENTARIO' end> RelationShips = <> - UpdateRules = < - item - Name = 'Insert INVENTARIO' - DoUpdate = False - DoInsert = True - DoDelete = False - DatasetName = 'INVENTARIO' - FailureBehaviour = fbRaiseException - end - item - Name = 'Update INVENTARIO' - DoUpdate = True - DoInsert = False - DoDelete = False - DatasetName = 'INVENTARIO' - FailureBehaviour = fbRaiseException - end - item - Name = 'Delete INVENTARIO' - DoUpdate = False - DoInsert = False - DoDelete = True - DatasetName = 'INVENTARIO' - FailureBehaviour = fbRaiseException - end> + UpdateRules = <> + Version = 0 Left = 40 Top = 16 end @@ -739,310 +518,205 @@ object srvInventario: TsrvInventario Left = 208 Top = 16 end - object DABINAdapter: TDABINAdapter - Left = 40 - Top = 72 - end object DataDictionary: TDADataDictionary Fields = < item Name = 'INVENTARIO_ID_ALMACEN' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'ID_ALMACEN' - Alignment = taLeftJustify end item Name = 'INVENTARIO_ID_ARTICULO' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'ID_ARTICULO' - Alignment = taLeftJustify end item Name = 'INVENTARIO_ALMACEN' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'ALMACEN' - Alignment = taLeftJustify end item Name = 'INVENTARIO_ID_EMPRESA' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'ID_EMPRESA' - Alignment = taLeftJustify end item Name = 'INVENTARIO_REFERENCIA_CLIENTE' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'REFERENCIA_CLIENTE' - Alignment = taLeftJustify end item Name = 'INVENTARIO_FAMILIA' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'FAMILIA' - Alignment = taLeftJustify end item Name = 'INVENTARIO_DESCRIPCION' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'DESCRIPCION' - Alignment = taLeftJustify end item Name = 'INVENTARIO_REFERENCIA_PROVEEDOR' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'REFERENCIA_PROVEEDOR' - Alignment = taLeftJustify end item Name = 'INVENTARIO_STOCK' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 + DataType = datLargeInt DisplayLabel = 'Stock disponible' - Alignment = taLeftJustify end item Name = 'INVENTARIO_RESERVA' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 + DataType = datLargeInt DisplayLabel = 'Reservado' - Alignment = taLeftJustify end item Name = 'INVENTARIO_PENDIENTE_RECEPCION' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 + DataType = datLargeInt DisplayLabel = 'Pendiente de recibir' - Alignment = taLeftJustify end item Name = 'INVENTARIO_ID' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify + ServerAutoRefresh = True end item Name = 'INVENTARIO_CANTIDAD' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify end item Name = 'INVENTARIO_FECHA_MOVIMIENTO' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify end item Name = 'INVENTARIO_CAUSA' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify end item Name = 'INVENTARIO_TIPO' DataType = datString Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify end item Name = 'INVENTARIO_REFERENCIA' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify end item Name = 'INVENTARIO_REFERENCIA_PROV' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify end item Name = 'INVENTARIO_UNIDADES_ALMACEN' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 + DataType = datLargeInt DisplayLabel = 'U. Almac'#233'n' - Alignment = taLeftJustify end item Name = 'INVENTARIO_PRECIO_NETO' DataType = datCurrency - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Precio unidad' Alignment = taRightJustify end item Name = 'INVENTARIO_COSTE_UNIDADES' DataType = datCurrency - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Coste unidades' Alignment = taRightJustify end item Name = 'DETALLE_RESERVAS_INV_ID_ALB' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'IdAlbaran' - Alignment = taLeftJustify end item Name = 'DETALLE_RESERVAS_INV_REFERENCIA_ALB' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Ref. albar'#225'n' - Alignment = taLeftJustify end item Name = 'DETALLE_RESERVAS_INV_SITUACION_ALB' DataType = datString Size = 9 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Situaci'#243'n' - Alignment = taLeftJustify end item Name = 'DETALLE_RESERVAS_INV_FECHA_PREVISTA_ENVIO_ALB' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Fecha prevista de envio' - Alignment = taLeftJustify end item Name = 'DETALLE_RESERVAS_INV_ID_ALMACEN_ALB' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'IdAlmac'#233'n' - Alignment = taLeftJustify end item Name = 'DETALLE_RESERVAS_INV_ALMACEN_ALB' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Almac'#233'n' - Alignment = taLeftJustify end item Name = 'DETALLE_RESERVAS_INV_ID_CLIENTE_ALB' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'IdCliente' - Alignment = taLeftJustify end item Name = 'DETALLE_RESERVAS_INV_CLIENTE_ALB' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Cliente' - Alignment = taLeftJustify end item Name = 'DETALLE_RESERVAS_INV_ID_ART' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'IdArticulo' - Alignment = taLeftJustify end item Name = 'DETALLE_RESERVAS_INV_FAMILIA_ART' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Familia' - Alignment = taLeftJustify end item Name = 'DETALLE_RESERVAS_INV_REFERENCIA_ART' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Referencia' - Alignment = taLeftJustify end item Name = 'DETALLE_RESERVAS_INV_REFERENCIA_PROV_ART' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Ref. proveedor' - Alignment = taLeftJustify end item Name = 'DETALLE_RESERVAS_INV_DESCRIPCION_ART' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Descripci'#243'n' - Alignment = taLeftJustify end item Name = 'DETALLE_RESERVAS_INV_CANTIDAD_ART' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 + DataType = datLargeInt DisplayLabel = 'Reservado' - Alignment = taLeftJustify end item Name = 'DETALLE_RESERVAS_INV_ID_EMPRESA' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify end> Left = 126 Top = 14 end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 40 + Top = 80 + end end diff --git a/Source/Modulos/Inventario/Servidor/srvInventario_Impl.pas b/Source/Modulos/Inventario/Servidor/srvInventario_Impl.pas index 7606b69b..9a1b1f82 100644 --- a/Source/Modulos/Inventario/Servidor/srvInventario_Impl.pas +++ b/Source/Modulos/Inventario/Servidor/srvInventario_Impl.pas @@ -10,28 +10,25 @@ unit srvInventario_Impl; interface uses - {vcl:} Classes, SysUtils, + {vcl:} Classes, SysUtils, {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract_Intf, - {Generated:} FactuGES_Intf, uDAClasses, uDAScriptingProvider, - uDABusinessProcessor, uDADataTable, uDABINAdapter, uDAInterfaces; + {Ancestor Implementation:} DataAbstractService_Impl, + {Used RODLs:} DataAbstract4_Intf, + {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, + uDAScriptingProvider, uDAClasses, + FactuGES_Intf, uDAInterfaces; type { TsrvInventario } - TsrvInventario = class(TDARemoteService, IsrvInventario) + TsrvInventario = class(TDataAbstractService, IsrvInventario) bpInventario: TDABusinessProcessor; - DABINAdapter: TDABINAdapter; + Bin2DataStreamer: TDABin2DataStreamer; schInventario: TDASchema; DataDictionary: TDADataDictionary; procedure DARemoteServiceAfterGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); - procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService; - var ConnectionName: string); - private - protected - { IsrvInventario methods } - function GetNextAutoInc(const GeneratorName: String): Integer; + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; + var aConnectionName: string); end; implementation @@ -51,26 +48,23 @@ procedure TsrvInventario.DARemoteServiceAfterGetDatasetData( const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); begin +{ if DataSet.Name = nme_Inventario then begin { Aquí se asegura que el usuario sólo accede a los Articulos de las empresas a las que tiene permiso para acceder filtrando DataSet por ID_EMPRESA. } - FiltrarAccesoUsuario(Session, Connection, schInventario, DataSet, fld_InventarioID_EMPRESA); +{ FiltrarAccesoUsuario(Session, Connection, schInventario, DataSet, fld_InventarioID_EMPRESA); end; +} end; -procedure TsrvInventario.DARemoteServiceBeforeAcquireConnection( - Sender: TDARemoteService; var ConnectionName: string); +procedure TsrvInventario.DataAbstractServiceBeforeAcquireConnection( + aSender: TObject; var aConnectionName: string); begin ConnectionName := dmServer.ConnectionName; end; -function TsrvInventario.GetNextAutoInc(const GeneratorName: String): Integer; -begin - Result := uDatabaseUtils.GetNextAutoInc(GeneratorName) -end; - initialization TROClassFactory.Create('srvInventario', Create_srvInventario, TsrvInventario_Invoker); diff --git a/Source/Modulos/Inventario/Views/Inventario_view.dpk b/Source/Modulos/Inventario/Views/Inventario_view.dpk index 800b3d30..ab34a6ec 100644 --- a/Source/Modulos/Inventario/Views/Inventario_view.dpk +++ b/Source/Modulos/Inventario/Views/Inventario_view.dpk @@ -22,67 +22,13 @@ package Inventario_view; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dbrtl, - vcldb, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - vcljpg, - cxExtEditorsD10, - vclx, - cxGridD10, - cxPageControlD10, - cxExportD10, - dxPSCoreD10, - dxComnD10, - frx10, - fs10, - fqb100, - bdertl, - dxPScxCommonD10, - dxPSLnksD10, - designide, - xmlrtl, - vclactnband, - vclshlctrls, - dxPScxGridLnkD10, - dclcxLibraryD10, - PngComponentsD10, - PNG_D10, - dsnap, - adortl, - tbx_d10, - tb2k_d10, - JvCoreD10R, - Jcl, - JclVcl, - JvSystemD10R, - JvPageCompsD10R, - JvStdCtrlsD10R, - GUIBase, - Inventario_model, - Inventario_data, Inventario_controller, - Almacenes_controller, - Almacenes_model, - JvGlobusD10R, - VclSmp, - vclie, - GUISDK_D10, - ccpack10, - cfpack_d10, - JvAppFrmD10R, - Articulos_view, - PedProv_AlbProv_relation, - cxIntlPrintSys3D10, - JvCtrlsD10R, - JSDialog100; + Inventario_model, + GUIBase, + Articulos_view; contains uViewInventario in 'uViewInventario.pas' {frViewInventario: TFrame}, diff --git a/Source/Modulos/Inventario/Views/Inventario_view.dproj b/Source/Modulos/Inventario/Views/Inventario_view.dproj new file mode 100644 index 00000000..e9643bc1 --- /dev/null +++ b/Source/Modulos/Inventario/Views/Inventario_view.dproj @@ -0,0 +1,574 @@ + + + {4269f0a2-b81f-47f7-a014-f7f28bc5bb79} + Inventario_view.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Inventario_view.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 + + + Delphi.Personality + Package + +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Inventario_view.dpk + + + + + MainSource + + + + + + +
fEditorDetalleReservas
+ TfEditorDetalleReservas + + +
fEditorElegirArticulosAlmacen
+ TfEditorElegirArticulosAlmacen + + +
fEditorElegirArticulosCatalogo
+ TfEditorElegirArticulosInventario + + +
fEditorEntradaSalidaArticulos
+ TfEditorEntradaArticulosInventario + + +
fEditorInventario
+ TfEditorInventario + + + +
frViewDetalleReservas
+ TFrame + + +
frViewElegirArticulosCatalogo
+ TFrame + + +
frViewEntradaSalidaArticulos
+ TFrame + + +
frViewInventario
+ TFrame + + + + diff --git a/Source/Modulos/Inventario/Views/Inventario_view.rc b/Source/Modulos/Inventario/Views/Inventario_view.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Inventario/Views/Inventario_view.rc +++ b/Source/Modulos/Inventario/Views/Inventario_view.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/Inventario/Views/Inventario_view.res b/Source/Modulos/Inventario/Views/Inventario_view.res index 36f26e23..8b251f31 100644 Binary files a/Source/Modulos/Inventario/Views/Inventario_view.res and b/Source/Modulos/Inventario/Views/Inventario_view.res differ diff --git a/Source/Modulos/Inventario/Views/uEditorDetalleReservas.pas b/Source/Modulos/Inventario/Views/uEditorDetalleReservas.pas index 571ad24a..79b8e82d 100644 Binary files a/Source/Modulos/Inventario/Views/uEditorDetalleReservas.pas and b/Source/Modulos/Inventario/Views/uEditorDetalleReservas.pas differ diff --git a/Source/Modulos/Inventario/Views/uEditorInventario.pas b/Source/Modulos/Inventario/Views/uEditorInventario.pas index 01c0f5d6..f37a4e8e 100644 --- a/Source/Modulos/Inventario/Views/uEditorInventario.pas +++ b/Source/Modulos/Inventario/Views/uEditorInventario.pas @@ -88,7 +88,8 @@ implementation uses cxControls, uGridUtils, uDataModuleInventario, uDataModuleUsuarios, uEditorBase, uDBSelectionListUtils, cxGridDBTableView, cxGridCustomTableView, - uAlmacenesController, uGenerarAlbaranesProvUtils, + uAlmacenesController, uFactuGES_App, + //uGenerarAlbaranesProvUtils, schInventarioClient_Intf; {, uDBSelectionList, uDataModulePedidosProveedor, @@ -291,7 +292,7 @@ end; procedure TfEditorInventario.actRecibirPedidoExecute(Sender: TObject); begin inherited; - RecibirPedidoProv; +// RecibirPedidoProv; RefrescarInterno; end; diff --git a/Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm b/Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm index f6ee9c78..65964954 100644 --- a/Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm +++ b/Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm @@ -10,7 +10,7 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas Kind = skSum Position = spFooter end> - DataController.Summary.FooterSummaryItems = < + DataController.Summary.FooterSummaryItems = < item Format = '0 art'#237'culos' Kind = skCount diff --git a/Source/Modulos/Inventario/Views/uViewDetalleReservas.pas b/Source/Modulos/Inventario/Views/uViewDetalleReservas.pas index cf502145..abde9497 100644 --- a/Source/Modulos/Inventario/Views/uViewDetalleReservas.pas +++ b/Source/Modulos/Inventario/Views/uViewDetalleReservas.pas @@ -14,7 +14,8 @@ uses cxImageComboBox, ImgList, PngImageList, cxTextEdit, Grids, DBGrids, cxDBLookupComboBox, cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid, uBizInventario, uBizAlmacenes, cxSpinEdit, uViewFiltroBase, TB2Item, TBX, - TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uAlmacenesController; + TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uAlmacenesController, + uDAInterfaces; type IViewDetalleReservas = interface(IViewGrid) diff --git a/Source/Modulos/Remesas de cliente/Controller/RemesasCliente_controller.res b/Source/Modulos/Remesas de cliente/Controller/RemesasCliente_controller.res index 86c94e6a..36f26e23 100644 Binary files a/Source/Modulos/Remesas de cliente/Controller/RemesasCliente_controller.res and b/Source/Modulos/Remesas de cliente/Controller/RemesasCliente_controller.res differ diff --git a/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.res b/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.res index 86c94e6a..36f26e23 100644 Binary files a/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.res and b/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.res differ diff --git a/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.res b/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.res index 86c94e6a..36f26e23 100644 Binary files a/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.res and b/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.res differ diff --git a/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.res b/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.res index 86c94e6a..36f26e23 100644 Binary files a/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.res and b/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.res differ diff --git a/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.res b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.res index 86c94e6a..36f26e23 100644 Binary files a/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.res and b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.res differ diff --git a/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.res b/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.res index 86c94e6a..36f26e23 100644 Binary files a/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.res and b/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.res differ diff --git a/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.res b/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.res index 86c94e6a..36f26e23 100644 Binary files a/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.res and b/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.res differ diff --git a/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.res b/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.res index 86c94e6a..36f26e23 100644 Binary files a/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.res and b/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.res differ diff --git a/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.res b/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.res index 86c94e6a..36f26e23 100644 Binary files a/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.res and b/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.res differ diff --git a/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.res b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.res index 86c94e6a..36f26e23 100644 Binary files a/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.res and b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.res differ diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL index 3a15db98..8e57f238 100644 --- a/Source/Servicios/FactuGES.RODL +++ b/Source/Servicios/FactuGES.RODL @@ -55,6 +55,22 @@ + + + + + + + + + + + + + + + + diff --git a/Source/Servicios/FactuGES.RODL.bak b/Source/Servicios/FactuGES.RODL.bak index fb1aa945..3a15db98 100644 --- a/Source/Servicios/FactuGES.RODL.bak +++ b/Source/Servicios/FactuGES.RODL.bak @@ -178,6 +178,7 @@ + diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index 251dec21..d08af04a 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/Source/Servicios/FactuGES_Intf.pas @@ -25,6 +25,8 @@ const { Service Interface ID's } IsrvContactos_IID : TGUID = '{28CCDC07-A3A4-4917-89B4-64423DC70C9D}'; IsrvLogin_IID : TGUID = '{399F9DB4-1B34-4140-AB6E-3BC10C0A7034}'; + IsrvInventario_IID : TGUID = '{36AF71D2-B19F-45DA-9C02-576B3A21158A}'; + IsrvHistoricoMovimientos_IID : TGUID = '{F1BE4D4C-017B-476D-A009-0D1B8D1A20CE}'; IsrvEmpresas_IID : TGUID = '{590F06D1-26B4-435B-B636-50CB8FFE6353}'; IsrvConfiguracion_IID : TGUID = '{0882B8A4-C8AA-424E-8FC1-C6226B670522}'; IsrvFamilias_IID : TGUID = '{D351175C-CBFD-4328-BF2A-FDC0B05A6308}'; @@ -50,6 +52,8 @@ type { Forward declarations } IsrvContactos = interface; IsrvLogin = interface; + IsrvInventario = interface; + IsrvHistoricoMovimientos = interface; IsrvEmpresas = interface; IsrvConfiguracion = interface; IsrvFamilias = interface; @@ -189,6 +193,40 @@ type function Ping: Boolean; end; + { IsrvInventario } + IsrvInventario = interface(IDataAbstractService) + ['{36AF71D2-B19F-45DA-9C02-576B3A21158A}'] + end; + + { CosrvInventario } + CosrvInventario = class + class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvInventario; + end; + + { TsrvInventario_Proxy } + TsrvInventario_Proxy = class(TDataAbstractService_Proxy, IsrvInventario) + protected + function __GetInterfaceName:string; override; + + end; + + { IsrvHistoricoMovimientos } + IsrvHistoricoMovimientos = interface(IDataAbstractService) + ['{F1BE4D4C-017B-476D-A009-0D1B8D1A20CE}'] + end; + + { CosrvHistoricoMovimientos } + CosrvHistoricoMovimientos = class + class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvHistoricoMovimientos; + end; + + { TsrvHistoricoMovimientos_Proxy } + TsrvHistoricoMovimientos_Proxy = class(TDataAbstractService_Proxy, IsrvHistoricoMovimientos) + protected + function __GetInterfaceName:string; override; + + end; + { IsrvEmpresas } IsrvEmpresas = interface(IDataAbstractService) ['{590F06D1-26B4-435B-B636-50CB8FFE6353}'] @@ -903,6 +941,30 @@ begin end end; +{ CosrvInventario } + +class function CosrvInventario.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvInventario; +begin + result := TsrvInventario_Proxy.Create(aMessage, aTransportChannel); +end; + +function TsrvInventario_Proxy.__GetInterfaceName:string; +begin + result := 'srvInventario'; +end; + +{ CosrvHistoricoMovimientos } + +class function CosrvHistoricoMovimientos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvHistoricoMovimientos; +begin + result := TsrvHistoricoMovimientos_Proxy.Create(aMessage, aTransportChannel); +end; + +function TsrvHistoricoMovimientos_Proxy.__GetInterfaceName:string; +begin + result := 'srvHistoricoMovimientos'; +end; + { CosrvEmpresas } class function CosrvEmpresas.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvEmpresas; @@ -1350,6 +1412,8 @@ initialization RegisterROClass(TRdxEmpresasArray); RegisterProxyClass(IsrvContactos_IID, TsrvContactos_Proxy); RegisterProxyClass(IsrvLogin_IID, TsrvLogin_Proxy); + RegisterProxyClass(IsrvInventario_IID, TsrvInventario_Proxy); + RegisterProxyClass(IsrvHistoricoMovimientos_IID, TsrvHistoricoMovimientos_Proxy); RegisterProxyClass(IsrvEmpresas_IID, TsrvEmpresas_Proxy); RegisterProxyClass(IsrvConfiguracion_IID, TsrvConfiguracion_Proxy); RegisterProxyClass(IsrvFamilias_IID, TsrvFamilias_Proxy); @@ -1375,6 +1439,8 @@ finalization UnregisterROClass(TRdxEmpresasArray); UnregisterProxyClass(IsrvContactos_IID); UnregisterProxyClass(IsrvLogin_IID); + UnregisterProxyClass(IsrvInventario_IID); + UnregisterProxyClass(IsrvHistoricoMovimientos_IID); UnregisterProxyClass(IsrvEmpresas_IID); UnregisterProxyClass(IsrvConfiguracion_IID); UnregisterProxyClass(IsrvFamilias_IID); diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index fca980e0..b459410a 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/Source/Servicios/FactuGES_Invk.pas @@ -37,6 +37,18 @@ type procedure Invoke_Ping(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); end; + TsrvInventario_Invoker = class(TDataAbstractService_Invoker) + private + protected + published + end; + + TsrvHistoricoMovimientos_Invoker = class(TDataAbstractService_Invoker) + private + protected + published + end; + TsrvEmpresas_Invoker = class(TDataAbstractService_Invoker) private protected diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res index 1f04127c..58cc3793 100644 Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index aa5813ac..2ccf67cf 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 23ef6dce..eb57d714 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -89,7 +89,13 @@ uses schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas', schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas', schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas', - schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas'; + schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas', + srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: TDataAbstractService}, + srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDataAbstractService}, + schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', + schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', + schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas', + schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 54ee59eb..4cf5427f 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -100,6 +100,18 @@ + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 4cfd0114..722ced7c 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0" - VALUE "CompileDate", "martes, 20 de noviembre de 2007 16:40\0" + VALUE "CompileDate", "miércoles, 21 de noviembre de 2007 16:57\0" END END BLOCK "VarFileInfo"