From 76d4ea30877ae35de5e63c20c4828b7f651d764c Mon Sep 17 00:00:00 2001 From: david Date: Sat, 23 Feb 2008 14:55:00 +0000 Subject: [PATCH] =?UTF-8?q?Activaci=C3=B3n=20de=20editor=20de=20referencia?= =?UTF-8?q?s=20para=20que=20el=20usuario=20pueda=20modificarlas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@135 f4e31baf-9722-1c47-927c-6f952f962d4b --- Build/Build.fbp5 | 1023 ++++++++++++++++- Source/Cliente/uBootStrap.pas | 1 + .../Controller/Referencias_controller.dpk | Bin 928 -> 699 bytes .../Controller/Referencias_controller.dproj | 559 +++++++++ .../Controller/Referencias_controller.rc | 22 + .../Controller/Referencias_controller.res | Bin 32 -> 384 bytes .../Controller/uReferenciasController.pas | 41 +- .../Referencias/Data/Referencias_data.dpk | Bin 710 -> 638 bytes .../Referencias/Data/Referencias_data.dproj | 554 +++++++++ .../Referencias/Data/Referencias_data.rc | 22 + .../Referencias/Data/Referencias_data.res | Bin 32 -> 384 bytes .../Data/uDataModuleReferencias.dfm | 93 +- .../Data/uDataModuleReferencias.pas | 11 +- .../Referencias/Model/Referencias_model.dpk | 11 +- .../Referencias/Model/Referencias_model.dproj | 544 +++++++++ .../Referencias/Model/Referencias_model.rc | 22 + .../Referencias/Model/Referencias_model.res | Bin 32 -> 384 bytes .../Model/schReferenciasClient_Intf.pas | 197 +++- .../Model/schReferenciasServer_Intf.pas | 231 +++- .../Referencias/Plugin/Referencias_plugin.dpk | 13 +- .../Plugin/Referencias_plugin.dproj | 540 +++++++++ .../Referencias/Plugin/Referencias_plugin.rc | 22 + .../Referencias/Plugin/Referencias_plugin.res | Bin 32 -> 384 bytes .../Referencias/Referencias_Group.groupproj | 124 ++ .../Servidor/srvReferencias_Impl.dfm | 138 +-- .../Servidor/srvReferencias_Impl.pas | 148 ++- .../Referencias/Views/Referencias_view.dpk | 12 +- .../Referencias/Views/Referencias_view.dproj | 542 +++++++++ .../Referencias/Views/Referencias_view.rc | 22 + .../Referencias/Views/Referencias_view.res | Bin 32 -> 384 bytes Source/Servicios/FactuGES.RODL | 2 +- Source/Servicios/FactuGES_Intf.pas | 4 +- Source/Servicios/FactuGES_Invk.pas | 2 +- Source/Servicios/RODLFILE.res | Bin 23990 -> 24021 bytes Source/Servidor/FactuGES_Server.RES | Bin 23204 -> 23204 bytes Source/Servidor/FactuGES_Server.dpr | 2 +- Source/Servidor/FactuGES_Server.dproj | 8 +- Source/Servidor/FactuGES_Server.rc | 2 +- Source/Servidor/srvReferencias_Impl.dfm | 112 -- Source/Servidor/srvReferencias_Impl.pas | 159 --- 40 files changed, 4533 insertions(+), 650 deletions(-) create mode 100644 Source/Modulos/Referencias/Controller/Referencias_controller.dproj create mode 100644 Source/Modulos/Referencias/Data/Referencias_data.dproj create mode 100644 Source/Modulos/Referencias/Model/Referencias_model.dproj create mode 100644 Source/Modulos/Referencias/Plugin/Referencias_plugin.dproj create mode 100644 Source/Modulos/Referencias/Referencias_Group.groupproj create mode 100644 Source/Modulos/Referencias/Views/Referencias_view.dproj delete mode 100644 Source/Servidor/srvReferencias_Impl.dfm delete mode 100644 Source/Servidor/srvReferencias_Impl.pas diff --git a/Build/Build.fbp5 b/Build/Build.fbp5 index 372fee82..cdb22727 100644 --- a/Build/Build.fbp5 +++ b/Build/Build.fbp5 @@ -158,6 +158,7 @@ False False + True @@ -303,11 +304,13 @@ source_path %project_path%\Output\Release\Servidor\Informes ]]> + lsCRLF 0 False 0 1000 + , True False @@ -599,6 +602,7 @@ source_path %project_path%\Resources\Iconos\Servidor.ico False True + False True True False @@ -612,6 +616,7 @@ source_path 3082 1 + 0 0 False @@ -795,6 +800,7 @@ CompileDate=lunes, 19 de noviembre de 2007 18:58 False False + False True True False @@ -808,6 +814,7 @@ CompileDate=lunes, 19 de noviembre de 2007 18:58 3082 1 + 0 0 False @@ -919,6 +926,7 @@ ProductVersion=1.0.0.0 False False + False True True False @@ -932,6 +940,7 @@ ProductVersion=1.0.0.0 3082 1 + 0 0 False @@ -1044,6 +1053,7 @@ Comments= False False + False True True False @@ -1057,6 +1067,7 @@ Comments= 3082 1 + 0 0 False @@ -1220,6 +1231,7 @@ Comments= False False + False True True False @@ -1233,6 +1245,7 @@ Comments= 3082 1 + 0 0 False @@ -1346,6 +1359,7 @@ Comments= False False + False True True False @@ -1359,6 +1373,7 @@ Comments= 3082 1 + 0 0 False @@ -1472,6 +1487,7 @@ Comments= False False + False True True False @@ -1485,6 +1501,7 @@ Comments= 3082 1 + 0 0 False @@ -1598,6 +1615,7 @@ Comments= False False + False True True False @@ -1611,6 +1629,7 @@ Comments= 3082 1 + 0 0 False @@ -1724,6 +1743,7 @@ Comments= False False + False True True False @@ -1737,6 +1757,7 @@ Comments= 3082 1 + 0 0 False @@ -1869,6 +1890,7 @@ Comments= False False + False True True False @@ -1882,6 +1904,7 @@ Comments= 3082 1 + 0 0 False @@ -1995,6 +2018,7 @@ Comments= False False + False True True False @@ -2008,6 +2032,7 @@ Comments= 3082 1 + 0 0 False @@ -2121,6 +2146,7 @@ Comments= False False + False True True False @@ -2134,6 +2160,7 @@ Comments= 3082 1 + 0 0 False @@ -2247,6 +2274,7 @@ Comments= False False + False True True False @@ -2260,6 +2288,7 @@ Comments= 3082 1 + 0 0 False @@ -2373,6 +2402,7 @@ Comments= False False + False True True False @@ -2386,6 +2416,7 @@ Comments= 3082 1 + 0 0 False @@ -2516,6 +2547,7 @@ Comments= False False + False True True False @@ -2529,6 +2561,7 @@ Comments= 3082 1 + 0 0 False @@ -2641,6 +2674,7 @@ Comments= False False + False True True False @@ -2654,6 +2688,7 @@ Comments= 3082 1 + 0 0 False @@ -2766,6 +2801,7 @@ Comments= False False + False True True False @@ -2779,6 +2815,7 @@ Comments= 3082 1 + 0 0 False @@ -2891,6 +2928,7 @@ Comments= False False + False True True False @@ -2904,6 +2942,7 @@ Comments= 3082 1 + 0 0 False @@ -3016,6 +3055,7 @@ Comments= False False + False True True False @@ -3029,6 +3069,7 @@ Comments= 3082 1 + 0 0 False @@ -3160,6 +3201,7 @@ Comments= False False + False True True False @@ -3173,6 +3215,7 @@ Comments= 3082 1 + 0 0 False @@ -3237,7 +3280,7 @@ Comments= %library_path% 0 False - 0 + 3 1048576 16384 @@ -3286,6 +3329,7 @@ Comments= False False + False True True False @@ -3299,6 +3343,7 @@ Comments= 3082 1 + 0 0 False @@ -3363,7 +3408,7 @@ Comments= %library_path% 0 False - 0 + 3 1048576 16384 @@ -3412,6 +3457,7 @@ Comments= False False + False True True False @@ -3425,6 +3471,7 @@ Comments= 3082 1 + 0 0 False @@ -3538,6 +3585,7 @@ Comments= False False + False True True False @@ -3551,6 +3599,7 @@ Comments= 3082 1 + 0 0 False @@ -3664,6 +3713,7 @@ Comments= False False + False True True False @@ -3677,6 +3727,7 @@ Comments= 3082 1 + 0 0 False @@ -3807,6 +3858,7 @@ Comments= False False + False True True False @@ -3820,6 +3872,7 @@ Comments= 3082 1 + 0 0 False @@ -3932,6 +3985,7 @@ Comments= False False + False True True False @@ -3945,6 +3999,7 @@ Comments= 3082 1 + 0 0 False @@ -4074,6 +4129,7 @@ Comments= False False + False True True False @@ -4087,6 +4143,7 @@ Comments= 3082 1 + 0 0 False @@ -4199,6 +4256,7 @@ Comments= False False + False True True False @@ -4212,6 +4270,7 @@ Comments= 3082 1 + 0 0 False @@ -4324,6 +4383,7 @@ Comments= False False + False True True False @@ -4337,6 +4397,7 @@ Comments= 3082 1 + 0 0 False @@ -4466,6 +4527,7 @@ Comments= False False + False True True False @@ -4479,6 +4541,7 @@ Comments= 3082 1 + 0 0 False @@ -4591,6 +4654,7 @@ Comments= False False + False True True False @@ -4604,6 +4668,7 @@ Comments= 3082 1 + 0 0 False @@ -4716,6 +4781,7 @@ Comments= False False + False True True False @@ -4729,6 +4795,7 @@ Comments= 3082 1 + 0 0 False @@ -4775,9 +4842,9 @@ Comments= False %modules_dcp_path% - False + True - False + True False True @@ -4791,7 +4858,7 @@ Comments= True %library_path% 0 - False + True 3 1048576 16384 @@ -4803,7 +4870,7 @@ Comments= False fa8 - False + True False True @@ -4858,6 +4925,7 @@ Comments= False False + False True True False @@ -4871,6 +4939,7 @@ Comments= 3082 1 + 0 0 False @@ -4917,9 +4986,9 @@ Comments= False %modules_dcp_path% - False + True - False + True False True @@ -4933,7 +5002,7 @@ Comments= True %library_path% 0 - False + True 0 1048576 16384 @@ -4945,7 +5014,7 @@ Comments= False fa8 - False + True False True @@ -4983,6 +5052,7 @@ Comments= False False + False True True False @@ -4996,6 +5066,7 @@ Comments= 3082 1 + 0 0 False @@ -5042,9 +5113,9 @@ Comments= False %modules_dcp_path% - False + True - False + True False True @@ -5058,7 +5129,7 @@ Comments= True %library_path% 0 - False + True 0 1048576 16384 @@ -5070,7 +5141,7 @@ Comments= False fa8 - False + True False True @@ -5125,6 +5196,7 @@ Comments= False False + False True True False @@ -5138,6 +5210,7 @@ Comments= 3082 1 + 0 0 False @@ -5251,6 +5324,7 @@ Comments= False False + False True True False @@ -5264,6 +5338,7 @@ Comments= 3082 1 + 0 0 False @@ -5377,6 +5452,7 @@ Comments= False False + False True True False @@ -5390,6 +5466,7 @@ Comments= 3082 1 + 0 0 False @@ -5503,6 +5580,7 @@ Comments= False False + False True True False @@ -5516,6 +5594,7 @@ Comments= 3082 1 + 0 0 False @@ -5629,6 +5708,7 @@ Comments= False False + False False True False @@ -5642,6 +5722,7 @@ Comments= 3081 1 + 0 0 False @@ -5668,6 +5749,658 @@ Comments= False False False + False + False + 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 + + + + + Referencias + 0 + + Referencias + 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 + True + False + False + False + False + False + False + False + False + 3082 + + 1 + + 0 + 0 + False + 0 + %source_path%\Modulos\Referencias\Model\Referencias_model.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + 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 + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + + 0 + 0 + False + 0 + %source_path%\Modulos\Referencias\Data\Referencias_data.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + 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 + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + + 0 + 0 + False + 0 + %source_path%\Modulos\Referencias\Controller\Referencias_controller.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + 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 + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + + 0 + 0 + False + 0 + %source_path%\Modulos\Referencias\Views\Referencias_view.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + 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 + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + + 0 + 0 + False + 0 + %source_path%\Modulos\Referencias\Plugin\Referencias_plugin.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False False False True @@ -5737,7 +6470,7 @@ Comments= False 0 - True + False 0 1000 False @@ -5765,6 +6498,7 @@ Comments= False False + False True True False @@ -5778,6 +6512,7 @@ Comments= 3082 1 + 0 0 False @@ -5890,6 +6625,7 @@ Comments= False False + False True True False @@ -5903,6 +6639,7 @@ Comments= 3082 1 + 0 0 False @@ -6015,6 +6752,7 @@ Comments= False False + False False True False @@ -6028,6 +6766,7 @@ Comments= 3081 1 + 0 0 False @@ -6131,6 +6870,7 @@ Comments= False False + False False True False @@ -6144,6 +6884,7 @@ Comments= 3081 1 + 0 0 False @@ -6247,6 +6988,7 @@ Comments= False False + False False True False @@ -6260,6 +7002,7 @@ Comments= 3081 1 + 0 0 False @@ -6354,7 +7097,7 @@ Comments= False 0 - True + False 0 1000 False @@ -6382,6 +7125,7 @@ Comments= False False + False True True False @@ -6395,6 +7139,7 @@ Comments= 3082 1 + 0 0 False @@ -6507,6 +7252,7 @@ Comments= False False + False False True False @@ -6520,6 +7266,7 @@ Comments= 3081 1 + 0 0 False @@ -6623,6 +7370,7 @@ Comments= False False + False False True False @@ -6636,6 +7384,7 @@ Comments= 3081 1 + 0 0 False @@ -6739,6 +7488,7 @@ Comments= False False + False False True False @@ -6752,6 +7502,7 @@ Comments= 3081 1 + 0 0 False @@ -6855,6 +7606,7 @@ Comments= False False + False False True False @@ -6868,6 +7620,7 @@ Comments= 3081 1 + 0 0 False @@ -6960,7 +7713,7 @@ Comments= False 0 - True + False 0 1000 False @@ -7006,6 +7759,7 @@ Comments= False False + False True True False @@ -7019,6 +7773,7 @@ Comments= 3082 1 + 0 0 False @@ -7132,6 +7887,7 @@ Comments= False False + False True True False @@ -7145,6 +7901,7 @@ Comments= 3082 1 + 0 0 False @@ -7258,6 +8015,7 @@ Comments= False False + False False True False @@ -7271,6 +8029,7 @@ Comments= 3081 1 + 0 0 False @@ -7375,6 +8134,7 @@ Comments= False False + False False True False @@ -7388,6 +8148,7 @@ Comments= 3081 1 + 0 0 False @@ -7492,6 +8253,7 @@ Comments= False False + False False True False @@ -7505,6 +8267,7 @@ Comments= 3081 1 + 0 0 False @@ -7628,6 +8391,7 @@ Comments= False False + False False True False @@ -7641,6 +8405,7 @@ Comments= 3081 1 + 0 0 False @@ -7745,6 +8510,7 @@ Comments= False False + False False True False @@ -7758,6 +8524,7 @@ Comments= 3081 1 + 0 0 False @@ -7862,6 +8629,7 @@ Comments= False False + False False True False @@ -7875,6 +8643,7 @@ Comments= 3081 1 + 0 0 False @@ -7979,6 +8748,7 @@ Comments= False False + False False True False @@ -7992,6 +8762,7 @@ Comments= 3081 1 + 0 0 False @@ -8096,6 +8867,7 @@ Comments= False False + False False True False @@ -8109,6 +8881,7 @@ Comments= 3081 1 + 0 0 False @@ -8213,6 +8986,7 @@ Comments= False False + False False True False @@ -8226,6 +9000,7 @@ Comments= 3081 1 + 0 0 False @@ -8330,6 +9105,7 @@ Comments= False False + False False True False @@ -8343,6 +9119,7 @@ Comments= 3081 1 + 0 0 False @@ -8466,6 +9243,7 @@ Comments= False False + False True True False @@ -8479,6 +9257,7 @@ Comments= 3082 1 + 0 0 False @@ -8592,6 +9371,7 @@ Comments= False False + False True True False @@ -8605,6 +9385,7 @@ Comments= 3082 1 + 0 0 False @@ -8718,6 +9499,7 @@ Comments= False False + False True True False @@ -8731,6 +9513,7 @@ Comments= 3082 1 + 0 0 False @@ -8863,6 +9646,7 @@ Comments= False False + False True True False @@ -8876,6 +9660,7 @@ Comments= 3082 1 + 0 0 False @@ -8989,6 +9774,7 @@ Comments= False False + False False True False @@ -9002,6 +9788,7 @@ Comments= 3081 1 + 0 0 False @@ -9106,6 +9893,7 @@ Comments= False False + False True True False @@ -9119,6 +9907,7 @@ Comments= 3082 1 + 0 0 False @@ -9251,6 +10040,7 @@ Comments= False False + False True True False @@ -9264,6 +10054,7 @@ Comments= 3082 1 + 0 0 False @@ -9377,6 +10168,7 @@ Comments= False False + False True True False @@ -9390,6 +10182,7 @@ Comments= 3082 1 + 0 0 False @@ -9503,7 +10296,8 @@ Comments= False False - False + False + True True False False @@ -9513,9 +10307,10 @@ Comments= False False False - 3081 + 3082 1 + 0 0 False @@ -9536,7 +10331,16 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -9639,6 +10443,7 @@ Comments= False False + False False True False @@ -9652,6 +10457,7 @@ Comments= 3081 0 + 0 0 False @@ -9767,6 +10573,7 @@ Comments= False False + False False True False @@ -9780,6 +10587,7 @@ Comments= 3081 0 + 0 0 False @@ -9895,6 +10703,7 @@ Comments= False False + False False True False @@ -9908,6 +10717,7 @@ Comments= 3081 0 + 0 0 False @@ -10013,7 +10823,7 @@ Comments= False 0 - True + False 0 1000 False @@ -10059,6 +10869,7 @@ Comments= False False + False False True False @@ -10072,6 +10883,7 @@ Comments= 3081 1 + 0 0 False @@ -10176,6 +10988,7 @@ Comments= False False + False False True False @@ -10189,6 +11002,7 @@ Comments= 3081 1 + 0 0 False @@ -10293,6 +11107,7 @@ Comments= False False + False True True False @@ -10306,6 +11121,7 @@ Comments= 3082 1 + 0 0 False @@ -10419,6 +11235,7 @@ Comments= False False + False True True False @@ -10432,6 +11249,7 @@ Comments= 3082 1 + 0 0 False @@ -10564,6 +11382,7 @@ Comments= False False + False True True False @@ -10577,6 +11396,7 @@ Comments= 3082 1 + 0 0 False @@ -10690,6 +11510,7 @@ Comments= False False + False True True False @@ -10703,6 +11524,7 @@ Comments= 3082 1 + 0 0 False @@ -10816,6 +11638,7 @@ Comments= False False + False True True False @@ -10829,6 +11652,7 @@ Comments= 3082 1 + 0 0 False @@ -10942,6 +11766,7 @@ Comments= False False + False True True False @@ -10955,6 +11780,7 @@ Comments= 3082 1 + 0 0 False @@ -11068,6 +11894,7 @@ Comments= False False + False False True False @@ -11081,6 +11908,7 @@ Comments= 3081 1 + 0 0 False @@ -11204,6 +12032,7 @@ Comments= False False + False False True False @@ -11217,6 +12046,7 @@ Comments= 3081 1 + 0 0 False @@ -11321,6 +12151,7 @@ Comments= False False + False False True False @@ -11334,6 +12165,7 @@ Comments= 3081 1 + 0 0 False @@ -11438,6 +12270,7 @@ Comments= False False + False False True False @@ -11451,6 +12284,7 @@ Comments= 3081 1 + 0 0 False @@ -11555,6 +12389,7 @@ Comments= False False + False False True False @@ -11568,6 +12403,7 @@ Comments= 3081 1 + 0 0 False @@ -11672,6 +12508,7 @@ Comments= False False + False False True False @@ -11685,6 +12522,7 @@ Comments= 3081 1 + 0 0 False @@ -11808,6 +12646,7 @@ Comments= False False + False False True False @@ -11821,6 +12660,7 @@ Comments= 3081 1 + 0 0 False @@ -11925,6 +12765,7 @@ Comments= False False + False False True False @@ -11938,6 +12779,7 @@ Comments= 3081 1 + 0 0 False @@ -12042,6 +12884,7 @@ Comments= False False + False True True False @@ -12055,6 +12898,7 @@ Comments= 3082 1 + 0 0 False @@ -12187,6 +13031,7 @@ Comments= False False + False True True False @@ -12200,6 +13045,7 @@ Comments= 3082 1 + 0 0 False @@ -12313,6 +13159,7 @@ Comments= False False + False True True False @@ -12326,6 +13173,7 @@ Comments= 3082 1 + 0 0 False @@ -12439,6 +13287,7 @@ Comments= False False + False True True False @@ -12452,6 +13301,7 @@ Comments= 3082 1 + 0 0 False @@ -12555,7 +13405,7 @@ Comments= False 0 - True + False 0 1000 False @@ -12601,6 +13451,7 @@ Comments= False False + False False True False @@ -12614,6 +13465,7 @@ Comments= 3081 1 + 0 0 False @@ -12717,6 +13569,7 @@ Comments= False False + False False True False @@ -12730,6 +13583,7 @@ Comments= 3081 1 + 0 0 False @@ -12833,6 +13687,7 @@ Comments= False False + False False True False @@ -12846,6 +13701,7 @@ Comments= 3081 1 + 0 0 False @@ -12968,6 +13824,7 @@ Comments= False False + False True True False @@ -12981,6 +13838,7 @@ Comments= 3082 1 + 0 0 False @@ -13094,6 +13952,7 @@ Comments= False False + False True True False @@ -13107,6 +13966,7 @@ Comments= 3082 1 + 0 0 False @@ -13220,6 +14080,7 @@ Comments= False False + False True True False @@ -13233,6 +14094,7 @@ Comments= 3082 1 + 0 0 False @@ -13364,6 +14226,7 @@ Comments= False False + False False True False @@ -13377,6 +14240,7 @@ Comments= 3081 0 + 0 0 False @@ -13493,6 +14357,7 @@ Comments= False False + False False True False @@ -13506,6 +14371,7 @@ Comments= 3081 0 + 0 0 False @@ -13624,6 +14490,7 @@ Comments= False False + False False True False @@ -13637,6 +14504,7 @@ Comments= 3081 0 + 0 0 False @@ -13756,6 +14624,7 @@ Comments= False False + False False True False @@ -13769,6 +14638,7 @@ Comments= 3081 0 + 0 0 False @@ -13888,7 +14758,8 @@ Comments= False False - False + False + True True False False @@ -13898,9 +14769,10 @@ Comments= False False False - 3081 + 3082 - 0 + 1 + 0 0 False @@ -13923,13 +14795,13 @@ Comments= False @@ -13943,10 +14815,7 @@ Comments= False False %package_path% - + False @@ -14019,6 +14888,7 @@ Comments= False False + False False True False @@ -14032,6 +14902,7 @@ Comments= 3081 0 + 0 0 False @@ -14149,6 +15020,7 @@ Comments= False False + False False True False @@ -14162,6 +15034,7 @@ Comments= 3081 0 + 0 0 False @@ -14278,6 +15151,7 @@ Comments= False False + False False True False @@ -14291,6 +15165,7 @@ Comments= 3081 0 + 0 0 False @@ -14407,6 +15282,7 @@ Comments= False False + False False True False @@ -14420,6 +15296,7 @@ Comments= 3081 0 + 0 0 False @@ -14527,7 +15404,7 @@ Comments= False 0 - True + False 0 1000 False @@ -14555,6 +15432,7 @@ Comments= False False + False True True False @@ -14568,6 +15446,7 @@ Comments= 3082 1 + 0 0 False @@ -14681,6 +15560,7 @@ Comments= False False + False True True False @@ -14694,6 +15574,7 @@ Comments= 3082 1 + 0 0 False @@ -14807,7 +15688,8 @@ Comments= False False - False + False + True True False False @@ -14817,9 +15699,10 @@ Comments= False False False - 3081 + 3082 1 + 0 0 False @@ -14840,7 +15723,16 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -14924,6 +15816,7 @@ Comments= False False + False False True False @@ -14937,6 +15830,7 @@ Comments= 3081 1 + 0 0 False @@ -15041,7 +15935,8 @@ Comments= False False - False + False + True True False False @@ -15051,9 +15946,10 @@ Comments= False False False - 3081 + 3082 1 + 0 0 False @@ -15074,7 +15970,16 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -15158,6 +16063,7 @@ Comments= False False + False True True False @@ -15171,6 +16077,7 @@ Comments= 3082 1 + 0 0 False @@ -15284,6 +16191,7 @@ Comments= False False + False True True False @@ -15297,6 +16205,7 @@ Comments= 3082 1 + 0 0 False @@ -15409,6 +16318,7 @@ Comments= False False + False True True False @@ -15422,6 +16332,7 @@ Comments= 3082 1 + 0 0 False @@ -15534,6 +16445,7 @@ Comments= False False + False True True False @@ -15547,6 +16459,7 @@ Comments= 3082 1 + 0 0 False @@ -15660,6 +16573,7 @@ Comments= False False + False True True False @@ -15673,6 +16587,7 @@ Comments= 3082 1 + 0 0 False @@ -15786,6 +16701,7 @@ Comments= False False + False False True False @@ -15799,6 +16715,7 @@ Comments= 3081 1 + 0 0 False @@ -15903,6 +16820,7 @@ Comments= False False + False False True False @@ -15916,6 +16834,7 @@ Comments= 3081 1 + 0 0 False @@ -16020,6 +16939,7 @@ Comments= False False + False True True False @@ -16033,6 +16953,7 @@ Comments= 3082 1 + 0 0 False @@ -16146,6 +17067,7 @@ Comments= False False + False True True False @@ -16159,6 +17081,7 @@ Comments= 3082 1 + 0 0 False @@ -16272,6 +17195,7 @@ Comments= False False + False False True False @@ -16285,6 +17209,7 @@ Comments= 3081 1 + 0 0 False @@ -16389,6 +17314,7 @@ Comments= False False + False False True False @@ -16402,6 +17328,7 @@ Comments= 3081 0 + 0 0 False @@ -16517,6 +17444,7 @@ Comments= False False + False False True False @@ -16530,6 +17458,7 @@ Comments= 3081 0 + 0 0 False @@ -16645,6 +17574,7 @@ Comments= False False + False True True False @@ -16658,6 +17588,7 @@ Comments= 3082 1 + 0 0 False @@ -16771,6 +17702,7 @@ Comments= False False + False True True False @@ -16784,6 +17716,7 @@ Comments= 3082 1 + 0 0 False @@ -16897,6 +17830,7 @@ Comments= False False + False True True False @@ -16910,6 +17844,7 @@ Comments= 3082 1 + 0 0 False @@ -17023,6 +17958,7 @@ Comments= False False + False True True False @@ -17036,6 +17972,7 @@ Comments= 3082 1 + 0 0 False @@ -17167,6 +18104,7 @@ Comments= %project_path%\Resources\Iconos\Factuges.ico False False + False True True False @@ -17179,14 +18117,15 @@ Comments= False 3082 - 1 + 2 + 0 - 0 + 1 False 0 %source_path%\Cliente\FactuGES.dpr True - 0 + 4 rcBorland @@ -17201,7 +18140,7 @@ Comments= False k*v7jI)GdZy&Gd~Y57L=Nn eT9lfXoS9f0pORRT2v&$Jn46!Hnlo95xd#B-Dj#M5 delta 329 zcmdnZx`2JdEyj8`w_08peU@|F{KQqIVd$PwJ0?&IWw_1J~uxl6%q`{qA7_biIer2 IdYBj(0K6|>q5uE@ diff --git a/Source/Modulos/Referencias/Controller/Referencias_controller.dproj b/Source/Modulos/Referencias/Controller/Referencias_controller.dproj new file mode 100644 index 00000000..00bd3c72 --- /dev/null +++ b/Source/Modulos/Referencias/Controller/Referencias_controller.dproj @@ -0,0 +1,559 @@ + + + + {7f80f8aa-6912-4714-986d-aed73035472b} + Referencias_controller.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Referencias_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.0Referencias_controller.dpk + + + + + MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Referencias/Controller/Referencias_controller.rc b/Source/Modulos/Referencias/Controller/Referencias_controller.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Referencias/Controller/Referencias_controller.rc +++ b/Source/Modulos/Referencias/Controller/Referencias_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/Referencias/Controller/Referencias_controller.res b/Source/Modulos/Referencias/Controller/Referencias_controller.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch literal 384 zcmZ9HOA3Ne6ox;+L5PEv(4cV`IIrjdPAV##hV&wc1g%+%X(R2Xc{`~7t6e0Ioa?#% zkMj%AQhz>WYy7LeWAUaqx~Kv?-;(-Hs4-^ATIZOBrid9+-6Ne7&88mi>kUR4lo#jxZ;#*s4zxg9yNlk=H9sqkCD2^cEXKpiTBNfgkKpXJBWWaLt(Qkv@0 w5yv*t82((Wlr2{_+FDoDHKW2QCXvc+s**ul{{$k*v7jI)GdZy&Ge2*#15*nC DotqE@ delta 142 zcmeyza*TDu6~=luw_08Tl zq$)x(Qgc&b+_Ge-j^ez;0gI29}wl$w@Wl$w{EnK+r3sgQ|* F0RVkmClCMt diff --git a/Source/Modulos/Referencias/Data/Referencias_data.dproj b/Source/Modulos/Referencias/Data/Referencias_data.dproj new file mode 100644 index 00000000..26c07021 --- /dev/null +++ b/Source/Modulos/Referencias/Data/Referencias_data.dproj @@ -0,0 +1,554 @@ + + + + {c8118762-09b6-432f-ba26-058fa36c39d9} + Referencias_data.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Referencias_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.0Referencias_data.dpk + + + + + MainSource + + + + + + + + + + + + + + + + + + + +
DataModuleReferencias
+ + + + diff --git a/Source/Modulos/Referencias/Data/Referencias_data.rc b/Source/Modulos/Referencias/Data/Referencias_data.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Referencias/Data/Referencias_data.rc +++ b/Source/Modulos/Referencias/Data/Referencias_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/Referencias/Data/Referencias_data.res b/Source/Modulos/Referencias/Data/Referencias_data.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch literal 384 zcmZ9HOA3Ne6ox;+L5PEv(4cV`IIrjdPAV##hV&wc1g%+%X(R2Xc{`~7t6e0Ioa?#% zkMj%AQhz>WYy7LeWAUaqx~Kv?-;(-Hs4-^ATIZOBrid9+-6Ne7&88mi>kUR4lo#jxZ;#*s4zxg9yNlk=H9sqkCD2^cEXKpiTBNfgkKpXJBWWaLt(Qkv@0 w5yv*t82((Wlr2{_+FDoDHKW2QCXvc+s**ul{{$ - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'Referencias' - IndexDefs = <> - Left = 256 - Top = 160 - end - object ds_Referencias: TDADataSource - DataSet = tbl_Referencias.Dataset - DataTable = tbl_Referencias - Left = 256 - Top = 88 - end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 84 @@ -65,4 +23,51 @@ inherited DataModuleReferencias: TDataModuleReferencias Left = 51 Top = 151 end + object tbl_Referencias: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + GeneratorName = 'GEN_REFERENCIAS_ID' + Required = True + InPrimaryKey = True + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + end + item + Name = 'CODIGO' + DataType = datString + Size = 50 + Required = True + end + item + Name = 'VALOR' + DataType = datString + Size = 255 + Required = True + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + end> + Params = <> + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_Referencias + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'Referencias' + IndexDefs = <> + Left = 256 + Top = 120 + end + object ds_Referencias: TDADataSource + DataSet = tbl_Referencias.Dataset + DataTable = tbl_Referencias + Left = 256 + Top = 64 + end end diff --git a/Source/Modulos/Referencias/Data/uDataModuleReferencias.pas b/Source/Modulos/Referencias/Data/uDataModuleReferencias.pas index 43204f23..65a444ae 100644 --- a/Source/Modulos/Referencias/Data/uDataModuleReferencias.pas +++ b/Source/Modulos/Referencias/Data/uDataModuleReferencias.pas @@ -3,19 +3,20 @@ unit uDataModuleReferencias; interface uses - SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter, + SysUtils, Classes, DB, uDADataTable, uDABINAdapter, uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes, - uROServiceComponent, uRORemoteService, uROClient, uROBinMessage, + uRORemoteService, uROClient, uROBinMessage, uDADesigntimeCall, uIDataModuleReferencias, uBizReferencias, uDataModuleBase, - uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces; + uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, + uDAMemDataTable; type TDataModuleReferencias = class(TDataModuleBase, IDataModuleReferencias) RORemoteService: TRORemoteService; - tbl_Referencias: TDACDSDataTable; - ds_Referencias: TDADataSource; Bin2DataStreamer: TDABin2DataStreamer; rda_Referencias: TDARemoteDataAdapter; + tbl_Referencias: TDAMemDataTable; + ds_Referencias: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); public function GetItems: IBizReferencia; diff --git a/Source/Modulos/Referencias/Model/Referencias_model.dpk b/Source/Modulos/Referencias/Model/Referencias_model.dpk index c0e33425..4f88ed7c 100644 --- a/Source/Modulos/Referencias/Model/Referencias_model.dpk +++ b/Source/Modulos/Referencias/Model/Referencias_model.dpk @@ -22,17 +22,14 @@ package Referencias_model; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - dsnap, - dbrtl, - vcldb, vcl, - adortl, + rtl, + dbrtl, Base, - DataAbstract_D10; + ApplicationBase; contains uIDataModuleReferencias in 'Data\uIDataModuleReferencias.pas', diff --git a/Source/Modulos/Referencias/Model/Referencias_model.dproj b/Source/Modulos/Referencias/Model/Referencias_model.dproj new file mode 100644 index 00000000..4fb41f52 --- /dev/null +++ b/Source/Modulos/Referencias/Model/Referencias_model.dproj @@ -0,0 +1,544 @@ + + + + {73acd39c-b2f0-49b7-9acf-10945bbac8c1} + Referencias_model.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Referencias_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.0Referencias_model.dpk + + + + + MainSource + + + + + + + + + + + + + + diff --git a/Source/Modulos/Referencias/Model/Referencias_model.rc b/Source/Modulos/Referencias/Model/Referencias_model.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Referencias/Model/Referencias_model.rc +++ b/Source/Modulos/Referencias/Model/Referencias_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/Referencias/Model/Referencias_model.res b/Source/Modulos/Referencias/Model/Referencias_model.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch literal 384 zcmZ9HOA3Ne6ox;+L5PEv(4cV`IIrjdPAV##hV&wc1g%+%X(R2Xc{`~7t6e0Ioa?#% zkMj%AQhz>WYy7LeWAUaqx~Kv?-;(-Hs4-^ATIZOBrid9+-6Ne7&88mi>kUR4lo#jxZ;#*s4zxg9yNlk=H9sqkCD2^cEXKpiTBNfgkKpXJBWWaLt(Qkv@0 w5yv*t82((Wlr2{_+FDoDHKW2QCXvc+s**ul{{$ + + + {82e36812-58c4-491b-b463-6b951e95da51} + Referencias_plugin.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Referencias_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.0Referencias_plugin.dpk + + + + + MainSource + + + + + +
PluginReferencias
+ + + + diff --git a/Source/Modulos/Referencias/Plugin/Referencias_plugin.rc b/Source/Modulos/Referencias/Plugin/Referencias_plugin.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Referencias/Plugin/Referencias_plugin.rc +++ b/Source/Modulos/Referencias/Plugin/Referencias_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/Referencias/Plugin/Referencias_plugin.res b/Source/Modulos/Referencias/Plugin/Referencias_plugin.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch literal 384 zcmZ9HOA3Ne6ox;+L5PEv(4cV`IIrjdPAV##hV&wc1g%+%X(R2Xc{`~7t6e0Ioa?#% zkMj%AQhz>WYy7LeWAUaqx~Kv?-;(-Hs4-^ATIZOBrid9+-6Ne7&88mi>kUR4lo#jxZ;#*s4zxg9yNlk=H9sqkCD2^cEXKpiTBNfgkKpXJBWWaLt(Qkv@0 w5yv*t82((Wlr2{_+FDoDHKW2QCXvc+s**ul{{$ + + {6fa7160e-0b4c-4f7c-9c55-08938cd225c4} + + + + + + + + + + + + + + + + Default.Personality + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm b/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm index d9eebcd4..817d4eb5 100644 --- a/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm +++ b/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm @@ -1,70 +1,34 @@ object srvReferencias: TsrvReferencias OldCreateOrder = True - OnCreate = DARemoteServiceCreate - RequiresSession = True + OnCreate = DataAbstractServiceCreate SessionManager = dmServer.SessionManager - AcquireConnection = True ServiceSchema = schReferencias - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection + ServiceDataStreamer = Bin2DataStreamer ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 202 - Width = 392 - object Diagrams: TDADiagrams - Left = 150 - Top = 90 - DiagramData = ''#13#10''#13#10 - end - object DataDictionary: TDADataDictionary - Fields = < - item - Name = 'Referencias_CODIGO' - DataType = datString - Size = 50 - DisplayLabel = 'CODIGO' - end - item - Name = 'Referencias_DESCRIPCION' - DataType = datString - Size = 255 - DisplayLabel = 'Referencias' - end - item - Name = 'Referencias_VALOR' - DataType = datString - Size = 255 - DisplayLabel = 'C'#243'digo' - end - item - Name = 'Referencias_ID_EMPRESA' - DataType = datInteger - DisplayLabel = 'ID_EMPRESA' - end> - Left = 150 - Top = 24 - end + BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection + Height = 300 + Width = 300 object schReferencias: TDASchema ConnectionManager = dmServer.ConnectionManager - DataDictionary = DataDictionary - Diagrams = Diagrams Datasets = < item Params = <> Statements = < item Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True TargetTable = 'REFERENCIAS' - SQL = - 'SELECT '#10' CODIGO, DESCRIPCION, VALOR, ID_EMPRESA'#10' FROM'#10' RE' + - 'FERENCIAS' - StatementType = stSQL + Name = 'IBX' + StatementType = stAutoSQL ColumnMappings = < item - DatasetField = 'DESCRIPCION' - TableField = 'DESCRIPCION' + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' end item DatasetField = 'CODIGO' @@ -75,90 +39,78 @@ object srvReferencias: TsrvReferencias TableField = 'VALOR' end item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' + DatasetField = 'DESCRIPCION' + TableField = 'DESCRIPCION' end> end> Name = 'Referencias' Fields = < + item + Name = 'ID' + DataType = datInteger + GeneratorName = 'GEN_REFERENCIAS_ID' + Required = True + InPrimaryKey = True + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + end item Name = 'CODIGO' DataType = datString Size = 50 - DictionaryEntry = 'Referencias_CODIGO' - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - DictionaryEntry = 'Referencias_DESCRIPCION' + Required = True end item Name = 'VALOR' DataType = datString Size = 255 - DictionaryEntry = 'Referencias_VALOR' + Required = True end item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'Referencias_ID_EMPRESA' + Name = 'DESCRIPCION' + DataType = datString + Size = 255 end> end> JoinDataTables = <> UnionDataTables = <> Commands = < item + IsPublic = False Params = < item Name = 'VALOR' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item - Name = 'OLD_CODIGO' - DataType = datString - Size = 50 + Name = 'CODIGO' Value = '' - ParamType = daptInput - end - item - Name = 'OLD_ID_EMPRESA' - DataType = datInteger - Value = '' - ParamType = daptInput end> Statements = < item Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True TargetTable = 'REFERENCIAS' + Name = 'IBX' SQL = - 'UPDATE REFERENCIAS'#10' SET '#10' VALOR = :VALOR'#10' WHERE'#10' (CODIGO' + - ' = :OLD_CODIGO)'#10' AND (ID_EMPRESA = :OLD_ID_EMPRESA)' + 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO' + + #10' AND {Where}'#10 StatementType = stSQL ColumnMappings = <> end> - Name = 'Update_Referencias' + Name = 'ModificarValorReferencia' end> RelationShips = <> UpdateRules = <> Version = 0 - Left = 48 + Left = 40 Top = 24 end - object DABINAdapter: TDABINAdapter - Left = 48 - Top = 90 - end - object bpReferencias: TDABusinessProcessor - Schema = schReferencias - UpdateCommandName = 'Update_Referencias' - ReferencedDataset = 'Referencias' - ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] - UpdateMode = updWhereKeyOnly - Left = 248 - Top = 24 + object Bin2DataStreamer: TDABin2DataStreamer + Left = 40 + Top = 88 end end diff --git a/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.pas b/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.pas index 43ca09dc..18f5e924 100644 --- a/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.pas +++ b/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.pas @@ -7,59 +7,161 @@ unit srvReferencias_Impl; { This is where you are supposed to code the implementation of your objects. } {----------------------------------------------------------------------------} +{$I Remobjects.inc} + interface uses {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract_Intf, - {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, - uDAScriptingProvider, uDAClasses, - FactuGES_Intf, uDAInterfaces, uDABinAdapter; + {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, + {Ancestor Implementation:} DataAbstractService_Impl, + {Used RODLs:} DataAbstract4_Intf, + {Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses, uDAInterfaces; type { TsrvReferencias } - TsrvReferencias = class(TDARemoteService, IsrvReferencias) - Diagrams: TDADiagrams; - DABINAdapter: TDABINAdapter; - bpReferencias: TDABusinessProcessor; + TsrvReferencias = class(TDataAbstractService, IsrvReferencias) + Bin2DataStreamer: TDABin2DataStreamer; schReferencias: TDASchema; - DataDictionary: TDADataDictionary; - procedure DARemoteServiceCreate(Sender: TObject); - procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService; - var ConnectionName: string); - protected + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; + var aConnectionName: string); + procedure DataAbstractServiceCreate(Sender: TObject); + private + public { IsrvReferencias methods } - function GetNextAutoInc(const GeneratorName: String): Integer; + function DarNuevaReferencia(const NombreReferencia: String; + const EmpresaID: Integer = -1): String; + function IncrementarValorReferencia(const NombreReferencia: String; + const Valor: String; const EmpresaID: Integer = -1): Boolean; end; implementation {$R *.dfm} uses - {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils; + {Generated:} FactuGES_Invk, Variants, + uDataModuleServer, uROClasses, uReferenciasUtils; procedure Create_srvReferencias(out anInstance : IUnknown); begin - anInstance := TsrvReferencias.Create(NIL); + anInstance := TsrvReferencias.Create(nil); end; { srvReferencias } -procedure TsrvReferencias.DARemoteServiceBeforeAcquireConnection( - Sender: TDARemoteService; var ConnectionName: string); +function TsrvReferencias.DarNuevaReferencia(const NombreReferencia: String; + const EmpresaID: Integer = -1): String; +var + ASchema : TDASchema; + AConn : IDAConnection; + dsData: IDADataset; + + AWhere : TDAWhereExpression; + AWhereExpr1: TDAWhereExpression; + AWhereExpr2: TDAWhereExpression; +begin + Result := ''; + + { Construir la expresión del Where a partir de los parámetros + que se reciban. + } + with TDAWhereBuilder.Create do + try + AWhereExpr1 := NewBinaryExpression(NewField('', 'CODIGO'), + NewConstant(NombreReferencia, datString), + dboEqual); + if (EmpresaID <> -1) then + begin + AWhereExpr2 := NewBinaryExpression(NewField('', 'ID_EMPRESA'), + NewConstant(EmpresaID, datInteger), + dboEqual); + + AWhere := NewBinaryExpression(AWhereExpr1, AWhereExpr2, dboAnd); + end + else + AWhere := AWhereExpr1; + finally + Free; + end; + + ASchema := schReferencias; + AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName); + + try + try + dsData := ASchema.NewDataset(AConn, 'Referencias', ['VALOR'], '', '', False, True); + dsData.DynamicWhere.Expression := AWhere; + except + RaiseError('No existe la tabla REFERENCIAS'); + end; + + dsData.Active := True; + + if dsData.IsEmpty then + RaiseError('No existe la referencia ' + NombreReferencia + ' en la tabla REFERENCIAS.'); + + Result := dsData.FieldByName('VALOR').AsString; + finally + dsData := NIL; + end; +end; + +procedure TsrvReferencias.DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); begin ConnectionName := dmServer.ConnectionName; end; -procedure TsrvReferencias.DARemoteServiceCreate(Sender: TObject); +procedure TsrvReferencias.DataAbstractServiceCreate(Sender: TObject); begin SessionManager := dmServer.SessionManager; end; -function TsrvReferencias.GetNextAutoInc(const GeneratorName: String): Integer; +function TsrvReferencias.IncrementarValorReferencia(const NombreReferencia: String; + const Valor: String; const EmpresaID: Integer = -1): Boolean; +var + ASchema : TDASchema; + AConn : IDAConnection; + dsCommand: IDASQLCommand; + + AWhere : TDAWhereExpression; begin - Result := uDatabaseUtils.GetNextAutoInc(GeneratorName) + Result := False; + AWhere := NIL; + { Construir la expresión del Where a partir de los parámetros + que se reciban. + } + if (EmpresaID <> -1) then + begin + with TDAWhereBuilder.Create do + try + AWhere := NewBinaryExpression(NewField('', 'ID_EMPRESA'), NewConstant(EmpresaID, datInteger), dboEqual); + finally + Free; + end; + end; + + ASchema := schReferencias; + AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName); + + try + try + dsCommand := ASchema.NewCommand(AConn, 'ModificarValorReferencia'); + with dsCommand do + begin + ParamByName('CODIGO').AsString := NombreReferencia; + ParamByName('VALOR').AsString := DarReferenciaSiguiente(Valor); + if EmpresaID <> -1 then + dsCommand.DynamicWhere.Expression := AWhere; + end; + dsCommand.Execute; + AConn.CommitTransaction; + Result := True; + except + RaiseError('Error al asignar la nueva referencia ' + Valor + ' en tablas'); + AConn.RollbackTransaction; + end; + finally + dsCommand := NIL; + end; end; initialization diff --git a/Source/Modulos/Referencias/Views/Referencias_view.dpk b/Source/Modulos/Referencias/Views/Referencias_view.dpk index 113bb2cb..6041e690 100644 --- a/Source/Modulos/Referencias/Views/Referencias_view.dpk +++ b/Source/Modulos/Referencias/Views/Referencias_view.dpk @@ -22,17 +22,11 @@ package Referencias_view; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dbrtl, - vcldb, - dsnap, - adortl, - DataAbstract_D10, - JvCmpD10R, + GUIBase, + Referencias_model, Referencias_controller; contains diff --git a/Source/Modulos/Referencias/Views/Referencias_view.dproj b/Source/Modulos/Referencias/Views/Referencias_view.dproj new file mode 100644 index 00000000..1acf870f --- /dev/null +++ b/Source/Modulos/Referencias/Views/Referencias_view.dproj @@ -0,0 +1,542 @@ + + + + {e3d36a6f-7004-4c89-9f3d-f2d77e386d1b} + Referencias_view.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Referencias_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.0Referencias_view.dpk + + + + + MainSource + + + + + +
fEditorReferencias
+ TfEditorFormasPago + + + + + diff --git a/Source/Modulos/Referencias/Views/Referencias_view.rc b/Source/Modulos/Referencias/Views/Referencias_view.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Referencias/Views/Referencias_view.rc +++ b/Source/Modulos/Referencias/Views/Referencias_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/Referencias/Views/Referencias_view.res b/Source/Modulos/Referencias/Views/Referencias_view.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch literal 384 zcmZ9HOA3Ne6ox;+L5PEv(4cV`IIrjdPAV##hV&wc1g%+%X(R2Xc{`~7t6e0Ioa?#% zkMj%AQhz>WYy7LeWAUaqx~Kv?-;(-Hs4-^ATIZOBrid9+-6Ne7&88mi>kUR4lo#jxZ;#*s4zxg9yNlk=H9sqkCD2^cEXKpiTBNfgkKpXJBWWaLt(Qkv@0 w5yv*t82((Wlr2{_+FDoDHKW2QCXvc+s**ul{{$ - + diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index 20b0ccd9..7ca71ad4 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/Source/Servicios/FactuGES_Intf.pas @@ -588,7 +588,7 @@ type { Description: Para uso interno del servidor. } - IsrvReferencias = interface + IsrvReferencias = interface(IDataAbstractService) ['{B957528D-3BE1-412D-A35E-801C97CCD252}'] function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String; function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean; @@ -600,7 +600,7 @@ type end; { TsrvReferencias_Proxy } - TsrvReferencias_Proxy = class(TROProxy, IsrvReferencias) + TsrvReferencias_Proxy = class(TDataAbstractService_Proxy, IsrvReferencias) protected function __GetInterfaceName:string; override; diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index 76d4ed65..df1eeb9e 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/Source/Servicios/FactuGES_Invk.pas @@ -176,7 +176,7 @@ type procedure Invoke_GenerarPGC(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); end; - TsrvReferencias_Invoker = class(TROInvoker) + TsrvReferencias_Invoker = class(TDataAbstractService_Invoker) private protected published diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res index ba8c595ecea32d4f176b2d42983c5df77f11c99e..b01d85813e1ce73571e949b7049f5c2cf6e8ab07 100644 GIT binary patch delta 23 fcmdnCoAK&y#t90Hts51+JSK0^mD`-<;UfwFb^!?X delta 19 bcmcb*n{nH2#t90HX&V*2JT`ZEc#8r6QgjDo diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index d170de4a0adbaae66e0a6c284277aa79b0865260..149f2ab65b4f44c7361dba2ed6b721b3c6d51e92 100644 GIT binary patch delta 45 zcmZ3om2t^d#tjlt!o>^^8Il+h8B!SX8FUyF7>pQJ(vl}y5F_srvRecibosProveedor TDataAbstractService + +
srvReferencias
+ TDataAbstractService + @@ -221,10 +225,6 @@
srvLogin
TDARemoteService - -
srvReferencias
- TDataAbstractService -
fAcercaDe
 diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index cd6c84c4..b7d75fa3 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", "jueves, 07 de febrero de 2008 18:44\0" + VALUE "CompileDate", "sábado, 23 de febrero de 2008 13:45\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/srvReferencias_Impl.dfm b/Source/Servidor/srvReferencias_Impl.dfm deleted file mode 100644 index 2a24dc8c..00000000 --- a/Source/Servidor/srvReferencias_Impl.dfm +++ /dev/null @@ -1,112 +0,0 @@ -object srvReferencias: TsrvReferencias - OldCreateOrder = True - SessionManager = dmServer.SessionManager - Height = 300 - Width = 300 - object schReferencias: TDASchema - ConnectionManager = dmServer.ConnectionManager - Datasets = < - item - IsPublic = False - Params = <> - Statements = < - item - Connection = 'IBX' - ConnectionType = 'Interbase' - Default = True - TargetTable = 'REFERENCIAS' - Name = 'IBX' - StatementType = stAutoSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'VALOR' - TableField = 'VALOR' - end - item - DatasetField = 'DESCRIPCION' - TableField = 'DESCRIPCION' - end> - end> - Name = 'Referencias' - Fields = < - item - Name = 'ID' - DataType = datInteger - GeneratorName = 'GEN_REFERENCIAS_ID' - Required = True - InPrimaryKey = True - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - end - item - Name = 'CODIGO' - DataType = datString - Size = 50 - Required = True - end - item - Name = 'VALOR' - DataType = datString - Size = 255 - Required = True - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - end> - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = < - item - IsPublic = False - Params = < - item - Name = 'VALOR' - Value = '' - end - item - Name = 'CODIGO' - Value = '' - end> - Statements = < - item - Connection = 'IBX' - ConnectionType = 'Interbase' - Default = True - TargetTable = 'REFERENCIAS' - Name = 'IBX' - SQL = - 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO' + - #10' AND {Where}'#10 - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'ModificarValorReferencia' - end> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 40 - Top = 24 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 40 - Top = 88 - end -end diff --git a/Source/Servidor/srvReferencias_Impl.pas b/Source/Servidor/srvReferencias_Impl.pas deleted file mode 100644 index 8c6e51d7..00000000 --- a/Source/Servidor/srvReferencias_Impl.pas +++ /dev/null @@ -1,159 +0,0 @@ -unit srvReferencias_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -{$I Remobjects.inc} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Required:} uRORemoteDataModule, - {Used RODLs:} DataAbstract4_Intf, - {Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses; - -type - { TsrvReferencias } - TsrvReferencias = class(TRORemoteDataModule, IsrvReferencias) - Bin2DataStreamer: TDABin2DataStreamer; - schReferencias: TDASchema; - private - public - { IsrvReferencias methods } - function DarNuevaReferencia(const NombreReferencia: String; - const EmpresaID: Integer = -1): String; - function IncrementarValorReferencia(const NombreReferencia: String; - const Valor: String; const EmpresaID: Integer = -1): Boolean; - end; - -implementation - -{$R *.dfm} -uses - {Generated:} FactuGES_Invk, Variants, - uDataModuleServer, uDAInterfaces, uROClasses, uReferenciasUtils; - -procedure Create_srvReferencias(out anInstance : IUnknown); -begin - anInstance := TsrvReferencias.Create(nil); -end; - -{ srvReferencias } -function TsrvReferencias.DarNuevaReferencia(const NombreReferencia: String; - const EmpresaID: Integer = -1): String; -var - ASchema : TDASchema; - AConn : IDAConnection; - dsData: IDADataset; - - AWhere : TDAWhereExpression; - AWhereExpr1: TDAWhereExpression; - AWhereExpr2: TDAWhereExpression; -begin - Result := ''; - - { Construir la expresión del Where a partir de los parámetros - que se reciban. - } - with TDAWhereBuilder.Create do - try - AWhereExpr1 := NewBinaryExpression(NewField('', 'CODIGO'), - NewConstant(NombreReferencia, datString), - dboEqual); - if (EmpresaID <> -1) then - begin - AWhereExpr2 := NewBinaryExpression(NewField('', 'ID_EMPRESA'), - NewConstant(EmpresaID, datInteger), - dboEqual); - - AWhere := NewBinaryExpression(AWhereExpr1, AWhereExpr2, dboAnd); - end - else - AWhere := AWhereExpr1; - finally - Free; - end; - - ASchema := schReferencias; - AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName); - - try - try - dsData := ASchema.NewDataset(AConn, 'Referencias', ['VALOR'], '', '', False, True); - dsData.DynamicWhere.Expression := AWhere; - except - RaiseError('No existe la tabla REFERENCIAS'); - end; - - dsData.Active := True; - - if dsData.IsEmpty then - RaiseError('No existe la referencia ' + NombreReferencia + ' en la tabla REFERENCIAS.'); - - Result := dsData.FieldByName('VALOR').AsString; - finally - dsData := NIL; - end; -end; - -function TsrvReferencias.IncrementarValorReferencia(const NombreReferencia: String; - const Valor: String; const EmpresaID: Integer = -1): Boolean; -var - ASchema : TDASchema; - AConn : IDAConnection; - dsCommand: IDASQLCommand; - - AWhere : TDAWhereExpression; -begin - Result := False; - AWhere := NIL; - { Construir la expresión del Where a partir de los parámetros - que se reciban. - } - if (EmpresaID <> -1) then - begin - with TDAWhereBuilder.Create do - try - AWhere := NewBinaryExpression(NewField('', 'ID_EMPRESA'), NewConstant(EmpresaID, datInteger), dboEqual); - finally - Free; - end; - end; - - ASchema := schReferencias; - AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName); - - try - try - dsCommand := ASchema.NewCommand(AConn, 'ModificarValorReferencia'); - with dsCommand do - begin - ParamByName('CODIGO').AsString := NombreReferencia; - ParamByName('VALOR').AsString := DarReferenciaSiguiente(Valor); - if EmpresaID <> -1 then - dsCommand.DynamicWhere.Expression := AWhere; - end; - dsCommand.Execute; - AConn.CommitTransaction; - Result := True; - except - RaiseError('Error al asignar la nueva referencia ' + Valor + ' en tablas'); - AConn.RollbackTransaction; - end; - finally - dsCommand := NIL; - end; -end; - -initialization - TROClassFactory.Create('srvReferencias', Create_srvReferencias, TsrvReferencias_Invoker); - -finalization - -end.