From 2164fe4e3050d4f57b7c5a8ec1e16c4eceef8f52 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 20 Nov 2007 15:45:03 +0000 Subject: [PATCH] Remesas de cliente y proveedor git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@150 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Database/Anterior/VISTAS.SQL | 99 ++ Source/Base/Base.dproj | 112 ++- Source/Cliente/uBootStrap.pas | 3 + Source/GUIBase/GUIBase.dproj | 33 +- .../Controller/uContactosController.pas | 18 +- .../Controller/RemesasCliente_controller.dpk | 27 +- .../RemesasCliente_controller.dproj | 592 ++++++++++++ .../Controller/RemesasCliente_controller.res | Bin 32 -> 5056 bytes .../Controller/uRemesasClienteController.pas | 12 +- .../Data/RemesasCliente_data.dpk | 13 +- .../Data/RemesasCliente_data.dproj | 587 ++++++++++++ .../Data/RemesasCliente_data.res | Bin 32 -> 5056 bytes .../Data/uDataModuleRemesasCliente.dfm | 69 +- .../Data/uDataModuleRemesasCliente.pas | 13 +- .../Model/Data/uIDataModuleRemesasCliente.pas | 1 - .../Model/RemesasCliente_model.dpk | 13 +- .../Model/RemesasCliente_model.dproj | 589 ++++++++++++ .../Model/RemesasCliente_model.res | Bin 32 -> 5056 bytes .../Model/schRemesasClienteClient_Intf.pas | 729 +++++++-------- .../Model/schRemesasClienteServer_Intf.pas | 861 +++++++++--------- .../Model/uBizRemesasCliente.pas | 8 +- .../Plugin/RemesasCliente_plugin.dpk | 13 +- .../Plugin/RemesasCliente_plugin.dproj | 580 ++++++++++++ .../Plugin/RemesasCliente_plugin.res | Bin 32 -> 5056 bytes .../Plugin/uPluginRemesasCliente.dfm | 2 +- .../RemesasCliente_Group.groupproj | 124 +++ .../Servidor/srvRemesasCliente_Impl.dfm | 430 ++------- .../Servidor/srvRemesasCliente_Impl.pas | 52 +- .../Views/RemesasCliente_view.dpk | 66 +- .../Views/RemesasCliente_view.dproj | 617 +++++++++++++ .../Views/RemesasCliente_view.res | Bin 32 -> 5056 bytes .../Views/uEditorRemesaCliente.dfm | 20 +- .../Views/uEditorRemesaCliente.pas | 11 +- .../Views/uEditorRemesasCliente.pas | 13 +- .../Views/uViewRecibosRemesaCliente.pas | 2 +- .../Views/uViewRemesaCliente.dfm | 8 +- .../Views/uViewRemesaCliente.pas | 8 +- .../RemesasProveedor_controller.dpk | 30 +- .../RemesasProveedor_controller.dproj | 591 ++++++++++++ .../RemesasProveedor_controller.res | Bin 32 -> 5056 bytes .../uRemesasProveedorController.pas | 15 +- .../Data/RemesasProveedor_data.dpk | 10 +- .../Data/RemesasProveedor_data.dproj | 586 ++++++++++++ .../Data/RemesasProveedor_data.res | Bin 32 -> 5056 bytes .../Data/uDataModuleRemesasProveedor.dfm | 73 +- .../Data/uDataModuleRemesasProveedor.pas | 13 +- .../Data/uIDataModuleRemesasProveedor.pas | 1 - .../Model/RemesasProveedor_model.dpk | 12 +- .../Model/RemesasProveedor_model.dproj | 589 ++++++++++++ .../Model/RemesasProveedor_model.res | Bin 32 -> 5056 bytes .../Model/schRemesasProveedorClient_Intf.pas | 729 +++++++-------- .../Model/schRemesasProveedorServer_Intf.pas | 861 +++++++++--------- .../Model/uBizRemesasProveedor.pas | 10 +- .../Plugin/RemesasProveedor_plugin.dpk | 13 +- .../Plugin/RemesasProveedor_plugin.dproj | 581 ++++++++++++ .../Plugin/RemesasProveedor_plugin.res | Bin 32 -> 5056 bytes .../RemesasProveedor_Group.groupproj | 124 +++ .../Servidor/srvRemesasProveedor_Impl.dfm | 429 ++------- .../Servidor/srvRemesasProveedor_Impl.pas | 38 +- .../Views/RemesasProveedor_view.dpk | 65 +- .../Views/RemesasProveedor_view.dproj | 615 +++++++++++++ .../Views/RemesasProveedor_view.res | Bin 32 -> 5056 bytes .../Views/uEditorRemesaProveedor.dfm | 30 +- .../Views/uEditorRemesaProveedor.pas | 5 +- .../Views/uEditorRemesasProveedor.dfm | 1 + .../Views/uEditorRemesasProveedor.pas | 4 +- .../Views/uViewRecibosRemesaProveedor.pas | 2 +- .../Views/uViewRemesaProveedor.dfm | 8 +- .../Views/uViewRemesaProveedor.pas | 8 +- Source/Servicios/FactuGES.RODL | 32 + Source/Servicios/FactuGES.RODL.bak | 47 + Source/Servicios/FactuGES_Intf.pas | 108 +++ Source/Servicios/FactuGES_Invk.pas | 74 ++ Source/Servicios/RODLFILE.res | Bin 19504 -> 20568 bytes Source/Servidor/FactuGES_Server.RES | Bin 23208 -> 23208 bytes Source/Servidor/FactuGES_Server.dpr | 8 +- Source/Servidor/FactuGES_Server.dproj | 12 + Source/Servidor/FactuGES_Server.rc | 2 +- 78 files changed, 8587 insertions(+), 2864 deletions(-) create mode 100644 Source/Modulos/Remesas de cliente/Controller/RemesasCliente_controller.dproj create mode 100644 Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.dproj create mode 100644 Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.dproj create mode 100644 Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.dproj create mode 100644 Source/Modulos/Remesas de cliente/RemesasCliente_Group.groupproj create mode 100644 Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dproj create mode 100644 Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.dproj create mode 100644 Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dproj create mode 100644 Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dproj create mode 100644 Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.dproj create mode 100644 Source/Modulos/Remesas de proveedor/RemesasProveedor_Group.groupproj create mode 100644 Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dproj diff --git a/Database/Anterior/VISTAS.SQL b/Database/Anterior/VISTAS.SQL index 9470084c..8a7051c3 100644 --- a/Database/Anterior/VISTAS.SQL +++ b/Database/Anterior/VISTAS.SQL @@ -1271,3 +1271,102 @@ FROM LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA) LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN); + +DROP VIEW V_REMESAS_CLIENTE; + +CREATE VIEW V_REMESAS_CLIENTE( + ID, + ID_EMPRESA, + REFERENCIA, + TIPO, + FECHA_REMESA, + DESCRIPCION, + ID_DATOS_BANCO, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + NOMBRE, + ENTIDAD, + SUCURSAL, + DC, + CUENTA, + SUFIJO_N19, + SUFIJO_N58, + IMPORTE_TOTAL) +AS +SELECT + REMESAS_CLIENTE.ID, + REMESAS_CLIENTE.ID_EMPRESA, + REMESAS_CLIENTE.REFERENCIA, + REMESAS_CLIENTE.TIPO, + REMESAS_CLIENTE.FECHA_REMESA, + REMESAS_CLIENTE.DESCRIPCION, + REMESAS_CLIENTE.ID_DATOS_BANCO, + REMESAS_CLIENTE.FECHA_ALTA, + REMESAS_CLIENTE.FECHA_MODIFICACION, + REMESAS_CLIENTE.USUARIO, + EMPRESAS_DATOS_BANCO.NOMBRE, + EMPRESAS_DATOS_BANCO.ENTIDAD, + EMPRESAS_DATOS_BANCO.SUCURSAL, + EMPRESAS_DATOS_BANCO.DC, + EMPRESAS_DATOS_BANCO.CUENTA, + EMPRESAS_DATOS_BANCO.SUFIJO_N19, + EMPRESAS_DATOS_BANCO.SUFIJO_N58, + SUM(COALESCE(RECIBOS_CLIENTE.IMPORTE,0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS,0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL + +FROM + REMESAS_CLIENTE + LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO) + LEFT OUTER JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID_REMESA = REMESAS_CLIENTE.ID) + LEFT OUTER JOIN V_REC_CLI_COMPENSADOS ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID) +GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17; + + +DROP VIEW V_REMESAS_PROVEEDOR; + +CREATE VIEW V_REMESAS_PROVEEDOR( + ID, + ID_EMPRESA, + REFERENCIA, + TIPO, + FECHA_REMESA, + DESCRIPCION, + ID_DATOS_BANCO, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + NOMBRE, + ENTIDAD, + SUCURSAL, + DC, + CUENTA, + SUFIJO_N19, + SUFIJO_N58, + IMPORTE_TOTAL) +AS +SELECT + REMESAS_PROVEEDOR.ID, + REMESAS_PROVEEDOR.ID_EMPRESA, + REMESAS_PROVEEDOR.REFERENCIA, + REMESAS_PROVEEDOR.TIPO, + REMESAS_PROVEEDOR.FECHA_REMESA, + REMESAS_PROVEEDOR.DESCRIPCION, + REMESAS_PROVEEDOR.ID_DATOS_BANCO, + REMESAS_PROVEEDOR.FECHA_ALTA, + REMESAS_PROVEEDOR.FECHA_MODIFICACION, + REMESAS_PROVEEDOR.USUARIO, + EMPRESAS_DATOS_BANCO.NOMBRE, + EMPRESAS_DATOS_BANCO.ENTIDAD, + EMPRESAS_DATOS_BANCO.SUCURSAL, + EMPRESAS_DATOS_BANCO.DC, + EMPRESAS_DATOS_BANCO.CUENTA, + EMPRESAS_DATOS_BANCO.SUFIJO_N19, + EMPRESAS_DATOS_BANCO.SUFIJO_N58, + SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL + +FROM + REMESAS_PROVEEDOR + LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO) + 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; diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index d90f8768..22f70de6 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -50,6 +50,20 @@ + + + + + + + + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components @@ -67,55 +81,55 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas index 73e44e34..466f6a75 100644 --- a/Source/Cliente/uBootStrap.pas +++ b/Source/Cliente/uBootStrap.pas @@ -39,6 +39,9 @@ begin LoadModule('RecibosProveedor_plugin.bpl'); LoadModule('FacturasProveedor_plugin.bpl'); + + LoadModule('RemesasCliente_plugin.bpl'); + LoadModule('RemesasProveedor_plugin.bpl'); end; end; diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index b397824a..70b14487 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -57,20 +57,22 @@ MainSource - - - - - - - - - - - - - - + + + + + + + + + + + + + + + +
fDialogBase
 @@ -157,11 +159,8 @@
frViewTotales
TFrame - - - diff --git a/Source/Modulos/Remesas de cliente/Controller/RemesasCliente_controller.res b/Source/Modulos/Remesas de cliente/Controller/RemesasCliente_controller.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5= ID) Condicion := NewBinaryExpression(NewField('', fld_RemesasClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual); @@ -481,7 +481,6 @@ end; function TRemesasClienteController.Guardar(ARemesaCliente: IBizRemesaCliente): Boolean; var - NuevoID: Integer; bEsNuevo: Boolean; begin Result := False; @@ -491,19 +490,14 @@ begin ShowHourglassCursor; try bEsNuevo := ARemesaCliente.EsNuevo; - if (bEsNuevo) then - NuevoID := FDataModule.GetNextID(ARemesaCliente.DataTable.LogicalName) - else - NuevoID := ARemesaCliente.ID; - AsignarID(ARemesaCliente, NuevoID); //Si es nuevo debemos hacer el applyupdates por la integridad referencial de BD if bEsNuevo then ARemesaCliente.DataTable.ApplyUpdates; //Si todo ha ido bien, asignamos la remesa a los recibos asociados //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros - RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, NuevoID); + RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, ARemesaCliente.ID); ARemesaCliente.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboCliente/ ElegirRecibosCliente) //Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen diff --git a/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.dpk b/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.dpk index b1926bad..0794b4e0 100644 --- a/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.dpk +++ b/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.dpk @@ -22,18 +22,11 @@ package RemesasCliente_data; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - dbrtl, - cxLibraryD10, - dxThemeD10, - vcl, - dsnap, - vcldb, - adortl, - RemesasCliente_model; + RemesasCliente_model, + Base; contains uDataModuleRemesasCliente in 'uDataModuleRemesasCliente.pas' {DataModuleRemesasCliente}; diff --git a/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.dproj b/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.dproj new file mode 100644 index 00000000..4bd7cdb2 --- /dev/null +++ b/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.dproj @@ -0,0 +1,587 @@ + + + {568778b1-e82d-41e9-b198-b7c58140e81b} + RemesasCliente_data.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasCliente_data.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + 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 + + + + RemesasCliente_data.dpk + + + + + + + MainSource + + + + +
DataModuleRemesasCliente
+ + + + + diff --git a/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.res b/Source/Modulos/Remesas de cliente/Data/RemesasCliente_data.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5 Params = <> - MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_RemesasCliente DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'RemesasCliente' IndexDefs = <> - Left = 288 - Top = 152 + Left = 208 + Top = 88 end object ds_RemesasCliente: TDADataSource DataSet = tbl_RemesasCliente.Dataset DataTable = tbl_RemesasCliente - Left = 288 - Top = 88 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 48 - Top = 84 - end - object rda_RemesasCliente: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetDataCall.RemoteService = RORemoteService - UpdateDataCall.RemoteService = RORemoteService - GetScriptsCall.RemoteService = RORemoteService - RemoteService = RORemoteService - DataStreamer = Bin2DataStreamer - Left = 51 - Top = 151 + Left = 208 + Top = 32 end end diff --git a/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.pas index 127ea5eb..a389226e 100644 --- a/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.pas +++ b/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.pas @@ -8,19 +8,20 @@ uses uROServiceComponent, uRORemoteService, uROClient, uROBinMessage, uDADesigntimeCall, uDataModuleBase, uIDataModuleRemesasCliente, uIDataModuleRemesasClienteReport, uBizRemesasCliente, - uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces; + uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, + uDAMemDataTable; type TDataModuleRemesasCliente = class(TDataModuleBase, IDataModuleRemesasCliente, IDataModuleRemesasClienteReport) RORemoteService: TRORemoteService; - tbl_RemesasCliente: TDACDSDataTable; - ds_RemesasCliente: TDADataSource; Bin2DataStreamer: TDABin2DataStreamer; rda_RemesasCliente: TDARemoteDataAdapter; + tbl_RemesasCliente: TDAMemDataTable; + ds_RemesasCliente: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); protected - procedure AsignarClaseNegocio(var ARemesaCliente: TDACDSDataTable); virtual; + procedure AsignarClaseNegocio(var ARemesaCliente: TDAMemDataTable); virtual; public function GetItems : IBizRemesaCliente; overload; @@ -36,12 +37,12 @@ implementation {$R *.DFM} uses - FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces, + FactuGES_Intf, uDataTableUtils, cxControls, uDataModuleConexion, schRemesasClienteClient_Intf, Dialogs; { TdmRemesasCliente } -procedure TDataModuleRemesasCliente.AsignarClaseNegocio(var ARemesaCliente: TDACDSDataTable); +procedure TDataModuleRemesasCliente.AsignarClaseNegocio(var ARemesaCliente: TDAMemDataTable); begin ARemesaCliente.BusinessRulesID := BIZ_CLIENT_REMESACLIENTE; end; diff --git a/Source/Modulos/Remesas de cliente/Model/Data/uIDataModuleRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Model/Data/uIDataModuleRemesasCliente.pas index e89ade1f..9ae9b379 100644 --- a/Source/Modulos/Remesas de cliente/Model/Data/uIDataModuleRemesasCliente.pas +++ b/Source/Modulos/Remesas de cliente/Model/Data/uIDataModuleRemesasCliente.pas @@ -10,7 +10,6 @@ type ['{9047C468-78DE-404E-9047-1125B382FE3B}'] function GetItems: IBizRemesaCliente; function GetItem(const ID : Integer) : IBizRemesaCliente; - function GetNextID(const DataSetName : String) : Integer; function NewItem : IBizRemesaCliente; end; diff --git a/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.dpk b/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.dpk index 41f418f4..688fdd25 100644 --- a/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.dpk +++ b/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.dpk @@ -22,18 +22,11 @@ package RemesasCliente_model; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - dsnap, - dbrtl, - vcldb, - vcl, - adortl, - Usuarios, - DataAbstract_D10, - RecibosCliente_model; + RecibosCliente_model, + ApplicationBase; contains uBizRemesasCliente in 'uBizRemesasCliente.pas', diff --git a/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.dproj b/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.dproj new file mode 100644 index 00000000..d414a110 --- /dev/null +++ b/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.dproj @@ -0,0 +1,589 @@ + + + {e4f81792-84cf-4900-a6ab-18f6dd2c7ada} + RemesasCliente_model.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasCliente_model.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + 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 + + + + RemesasCliente_model.dpk + + + + + + + MainSource + + + + + + + + + + + + diff --git a/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.res b/Source/Modulos/Remesas de cliente/Model/RemesasCliente_model.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5 + + {e4a70e78-dcab-415c-9e35-1956bd41ae1a} + RemesasCliente_plugin.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasCliente_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 + + + + RemesasCliente_plugin.dpk + + + + + + + MainSource + + + + + +
PluginRemesasCliente
+ + + + + diff --git a/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.res b/Source/Modulos/Remesas de cliente/Plugin/RemesasCliente_plugin.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5 + + {9e374daa-b130-47db-a2de-c184f072bea0} + + + + + + + + + + + + + + + + Default.Personality + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm b/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm index 022f9018..5e3e1323 100644 --- a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm +++ b/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm @@ -3,16 +3,11 @@ object srvRemesasCliente: TsrvRemesasCliente OnCreate = DARemoteServiceCreate RequiresSession = True SessionManager = dmServer.SessionManager - AcquireConnection = True ConnectionName = 'IBX' ServiceSchema = schRemesasCliente - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection - OnBeforeGetDatasetData = DARemoteServiceBeforeGetDatasetData + ServiceDataStreamer = Bin2DataStreamer ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] + BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection Height = 249 Width = 343 object Diagrams: TDADiagrams @@ -25,7 +20,10 @@ object srvRemesasCliente: TsrvRemesasCliente item Name = 'RemesasCliente_ID' DataType = datAutoInc + GeneratorName = 'GEN_REMESAS_CLIENTE_ID' + Required = True DisplayLabel = 'ID' + ServerAutoRefresh = True end item Name = 'RemesasCliente_FECHA_REMESA' @@ -125,7 +123,7 @@ object srvRemesasCliente: TsrvRemesasCliente end item Name = 'RemesasCliente_IMPORTE_TOTAL' - DataType = datFloat + DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify ServerAutoRefresh = True @@ -180,13 +178,7 @@ object srvRemesasCliente: TsrvRemesasCliente item Connection = 'IBX' TargetTable = 'V_REMESAS_CLIENTE' - SQL = - 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' + - #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' + - 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' + - ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_C' + - 'LIENTE' - StatementType = stSQL + StatementType = stAutoSQL ColumnMappings = < item DatasetField = 'ID' @@ -200,6 +192,10 @@ object srvRemesasCliente: TsrvRemesasCliente DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end + item + DatasetField = 'TIPO' + TableField = 'TIPO' + end item DatasetField = 'FECHA_REMESA' TableField = 'FECHA_REMESA' @@ -208,10 +204,6 @@ object srvRemesasCliente: TsrvRemesasCliente DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end - item - DatasetField = 'USUARIO' - TableField = 'USUARIO' - end item DatasetField = 'ID_DATOS_BANCO' TableField = 'ID_DATOS_BANCO' @@ -225,8 +217,8 @@ object srvRemesasCliente: TsrvRemesasCliente TableField = 'FECHA_MODIFICACION' end item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' + DatasetField = 'USUARIO' + TableField = 'USUARIO' end item DatasetField = 'NOMBRE' @@ -257,8 +249,8 @@ object srvRemesasCliente: TsrvRemesasCliente TableField = 'SUFIJO_N58' end item - DatasetField = 'TIPO' - TableField = 'TIPO' + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' end> end> Name = 'RemesasCliente' @@ -266,6 +258,8 @@ object srvRemesasCliente: TsrvRemesasCliente item Name = 'ID' DataType = datAutoInc + GeneratorName = 'GEN_REMESAS_CLIENTE_ID' + ServerAutoRefresh = True DictionaryEntry = 'RemesasCliente_ID' InPrimaryKey = True end @@ -297,12 +291,6 @@ object srvRemesasCliente: TsrvRemesasCliente Size = 255 DictionaryEntry = 'RemesasCliente_DESCRIPCION' end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DictionaryEntry = 'RemesasCliente_USUARIO' - end item Name = 'ID_DATOS_BANCO' DataType = datInteger @@ -318,253 +306,58 @@ object srvRemesasCliente: TsrvRemesasCliente DataType = datDateTime DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION' end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + DictionaryEntry = 'RemesasCliente_USUARIO' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + DictionaryEntry = 'RemesasCliente_NOMBRE' + end + item + Name = 'ENTIDAD' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_ENTIDAD' + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_SUCURSAL' + end + item + Name = 'DC' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_DC' + end + item + Name = 'CUENTA' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_CUENTA' + end + item + Name = 'SUFIJO_N19' + DataType = datString + Size = 3 + DictionaryEntry = 'RemesasCliente_SUFIJO_N19' + end + item + Name = 'SUFIJO_N58' + DataType = datString + Size = 3 + DictionaryEntry = 'RemesasCliente_SUFIJO_N58' + end item Name = 'IMPORTE_TOTAL' - DataType = datFloat + DataType = datCurrency DictionaryEntry = 'RemesasCliente_IMPORTE_TOTAL' - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - DictionaryEntry = 'RemesasCliente_NOMBRE' - end - item - Name = 'ENTIDAD' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_ENTIDAD' - end - item - Name = 'SUCURSAL' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_SUCURSAL' - end - item - Name = 'DC' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_DC' - end - item - Name = 'CUENTA' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_CUENTA' - end - item - Name = 'SUFIJO_N19' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N19' - end - item - Name = 'SUFIJO_N58' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N58' - end> - end - item - Params = < - item - Name = 'ID' - DataType = datInteger - Value = '22' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'V_REMESAS_CLIENTE' - SQL = - 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' + - #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' + - 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' + - ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_C' + - 'LIENTE'#10'WHERE ID = :ID' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'REFERENCIA' - TableField = 'REFERENCIA' - end - item - DatasetField = 'FECHA_REMESA' - TableField = 'FECHA_REMESA' - end - item - DatasetField = 'DESCRIPCION' - TableField = 'DESCRIPCION' - end - item - DatasetField = 'USUARIO' - TableField = 'USUARIO' - end - item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' - SQLOrigin = 'REMESAS_CLIENTE.ID_EMPRESA' - end - item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' - end - item - DatasetField = 'ID_DATOS_BANCO' - TableField = 'ID_DATOS_BANCO' - end - item - DatasetField = 'FECHA_ALTA' - TableField = 'FECHA_ALTA' - end - item - DatasetField = 'FECHA_MODIFICACION' - TableField = 'FECHA_MODIFICACION' - end - item - DatasetField = 'NOMBRE' - TableField = 'NOMBRE' - end - item - DatasetField = 'ENTIDAD' - TableField = 'ENTIDAD' - end - item - DatasetField = 'SUCURSAL' - TableField = 'SUCURSAL' - end - item - DatasetField = 'DC' - TableField = 'DC' - end - item - DatasetField = 'CUENTA' - TableField = 'CUENTA' - end - item - DatasetField = 'SUFIJO_N19' - TableField = 'SUFIJO_N19' - end - item - DatasetField = 'SUFIJO_N58' - TableField = 'SUFIJO_N58' - end - item - DatasetField = 'TIPO' - TableField = 'TIPO' - end> - end> - Name = 'RemesasCliente_Refresh' - Fields = < - item - Name = 'ID' - DataType = datAutoInc - DictionaryEntry = 'RemesasCliente_ID' - InPrimaryKey = True - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'RemesasCliente_ID_EMPRESA' - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - ServerAutoRefresh = True - end - item - Name = 'TIPO' - DataType = datString - Size = 40 - DictionaryEntry = 'RemesasCliente_TIPO' - end - item - Name = 'FECHA_REMESA' - DataType = datDateTime - DictionaryEntry = 'RemesasCliente_FECHA_REMESA' - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - DictionaryEntry = 'RemesasCliente_DESCRIPCION' - end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DictionaryEntry = 'RemesasCliente_USUARIO' - end - item - Name = 'ID_DATOS_BANCO' - DataType = datInteger - DictionaryEntry = 'RemesasCliente_ID_DATOS_BANCO' - end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - DictionaryEntry = 'RemesasCliente_FECHA_ALTA' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION' - end - item - Name = 'IMPORTE_TOTAL' - DataType = datFloat - DisplayLabel = 'Importe total' - Alignment = taRightJustify - ServerAutoRefresh = True - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - DictionaryEntry = 'RemesasCliente_NOMBRE' - end - item - Name = 'ENTIDAD' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_ENTIDAD' - end - item - Name = 'SUCURSAL' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_SUCURSAL' - end - item - Name = 'DC' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_DC' - end - item - Name = 'CUENTA' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_CUENTA' - end - item - Name = 'SUFIJO_N19' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N19' - end - item - Name = 'SUFIJO_N58' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N58' end> end> JoinDataTables = <> @@ -574,23 +367,15 @@ object srvRemesasCliente: TsrvRemesasCliente Params = < item Name = 'VALOR' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CODIGO' - DataType = datString - Size = 50 Value = '' - ParamType = daptInput end item - Name = 'ID_EMPRESA' - DataType = datInteger + Name = 'EMPRESA' Value = '' - ParamType = daptInput end> Statements = < item @@ -598,7 +383,7 @@ object srvRemesasCliente: TsrvRemesasCliente TargetTable = 'REFERENCIAS' SQL = 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :COD' + - 'IGO AND'#10' ID_EMPRESA = :ID_EMPRESA' + 'IGO AND'#10' ID_EMPRESA = :EMPRESA'#10 StatementType = stSQL ColumnMappings = <> end> @@ -608,67 +393,45 @@ object srvRemesasCliente: TsrvRemesasCliente Params = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_REMESAS_CLIENTE_ID' Value = '' - ParamType = daptInput end item Name = 'REFERENCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'TIPO' - DataType = datString - Size = 40 Value = '' - ParamType = daptInput end item Name = 'FECHA_REMESA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'DESCRIPCION' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'USUARIO' - DataType = datString - Size = 20 Value = '' - ParamType = daptInput end item Name = 'ID_EMPRESA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_DATOS_BANCO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'FECHA_ALTA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_MODIFICACION' - DataType = datDateTime Value = '' - ParamType = daptInput end> Statements = < item @@ -689,9 +452,7 @@ object srvRemesasCliente: TsrvRemesasCliente Params = < item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -706,80 +467,60 @@ object srvRemesasCliente: TsrvRemesasCliente item Params = < item - Name = 'REFERENCIA' - DataType = datString - Size = 255 + Name = 'ID' + Value = '' + end + item + Name = 'REFERENCIA' Value = '' - ParamType = daptInput end item Name = 'TIPO' - DataType = datString - Size = 40 Value = '' - ParamType = daptInput end item Name = 'FECHA_REMESA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'DESCRIPCION' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'USUARIO' - DataType = datString - Size = 20 Value = '' - ParamType = daptInput end item Name = 'ID_EMPRESA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_DATOS_BANCO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'FECHA_ALTA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_MODIFICACION' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'REMESAS_CLIENTE' SQL = - 'UPDATE REMESAS_CLIENTE'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' ' + - ' TIPO = :TIPO,'#10' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPCIO' + - 'N = :DESCRIPCION, '#10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :ID' + - '_EMPRESA, '#10' ID_DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALTA ' + - '= :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' W' + - 'HERE'#10' (ID = :OLD_ID)' + 'UPDATE REMESAS_CLIENTE'#10' SET '#10' ID = :ID,'#10' REFERENCIA = :RE' + + 'FERENCIA, '#10' TIPO = :TIPO,'#10' FECHA_REMESA = :FECHA_REMESA, '#10 + + ' DESCRIPCION = :DESCRIPCION, '#10' USUARIO = :USUARIO, '#10' ID' + + '_EMPRESA = :ID_EMPRESA, '#10' ID_DATOS_BANCO = :ID_DATOS_BANCO,'#10' ' + + ' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MO' + + 'DIFICACION'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -791,20 +532,19 @@ object srvRemesasCliente: TsrvRemesasCliente Left = 48 Top = 24 end - object DABINAdapter: TDABINAdapter - Left = 48 - Top = 72 - end object bpRemesasCliente: TDABusinessProcessor Schema = schRemesasCliente InsertCommandName = 'Insert_RemesasCliente' DeleteCommandName = 'Delete_RemesasCliente' UpdateCommandName = 'Update_RemesasCliente' - RefreshDatasetName = 'RemesasCliente_Refresh' ReferencedDataset = 'RemesasCliente' ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 248 Top = 24 end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 88 + end end diff --git a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas b/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas index dc5726d2..e7e7f001 100644 --- a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas +++ b/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas @@ -12,28 +12,27 @@ interface uses {vcl:} Classes, SysUtils, {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract_Intf, - {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses, - uDAScriptingProvider, uDABusinessProcessor, uDAInterfaces, uDADataStreamer; + {Ancestor Implementation:} DataAbstractService_Impl, + {Used RODLs:} DataAbstract4_Intf, + {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, + uDAScriptingProvider, uDAClasses, + FactuGES_Intf, uDAInterfaces, uDABinAdapter; type { TsrvRemesasCliente } - TsrvRemesasCliente = class(TDARemoteService, IsrvRemesasCliente) + TsrvRemesasCliente = class(TDataAbstractService, IsrvRemesasCliente) Diagrams: TDADiagrams; - DABINAdapter: TDABINAdapter; bpRemesasCliente: TDABusinessProcessor; schRemesasCliente: TDASchema; DataDictionary: TDADataDictionary; - procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService; - var ConnectionName: string); + Bin2DataStreamer: TDABin2DataStreamer; procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); - private + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; + var aConnectionName: string); protected { IsrvRemesasCliente methods } - function GetNextAutoInc(const GeneratorName: String): Integer; function GenerateReport(const ID: String): Binary; end; @@ -43,7 +42,9 @@ implementation uses {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, schRemesasClienteClient_Intf, uRestriccionesUsuarioUtils, - uBizRemesasClienteServer, uRptRemesasCliente_Server, Dialogs; +// uBizRemesasClienteServer, +// uRptRemesasCliente_Server, + Dialogs; procedure Create_srvRemesasCliente(out anInstance : IUnknown); begin @@ -51,46 +52,45 @@ begin end; { srvRemesasCliente } -procedure TsrvRemesasCliente.DARemoteServiceBeforeAcquireConnection( - Sender: TDARemoteService; var ConnectionName: string); -begin - ConnectionName := dmServer.ConnectionName; -end; procedure TsrvRemesasCliente.DARemoteServiceBeforeGetDatasetData( const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); begin +{ if DataSet.Name = nme_RemesasCliente then begin { Aquí se asegura que el usuario sólo accede a los RemesasCliente de las empresas a las que tiene permiso para acceder filtrando DataSet por ID_EMPRESA. } - FiltrarAccesoUsuario(Session, Connection, schRemesasCliente, DataSet, fld_RemesasClienteID_EMPRESA); +{ FiltrarAccesoUsuario(Session, Connection, schRemesasCliente, DataSet, fld_RemesasClienteID_EMPRESA); end; +} end; procedure TsrvRemesasCliente.DARemoteServiceCreate(Sender: TObject); begin SessionManager := dmServer.SessionManager; - bpRemesasCliente.BusinessRulesID := BIZ_SERVER_REMESAS_CLIENTE; +// bpRemesasCliente.BusinessRulesID := BIZ_SERVER_REMESAS_CLIENTE; +end; + +procedure TsrvRemesasCliente.DataAbstractServiceBeforeAcquireConnection( + aSender: TObject; var aConnectionName: string); +begin + ConnectionName := dmServer.ConnectionName; end; function TsrvRemesasCliente.GenerateReport(const ID: String): Binary; -var - AReportGenerator : TRptRemesasCliente; +//var +// AReportGenerator : TRptRemesasCliente; begin - AReportGenerator := TRptRemesasCliente.Create(nil); +{ AReportGenerator := TRptRemesasCliente.Create(nil); try Result := AReportGenerator.GenerarRemesa(ID); finally FreeAndNIL(AReportGenerator); end; -end; - -function TsrvRemesasCliente.GetNextAutoInc(const GeneratorName: String): Integer; -begin - Result := uDatabaseUtils.GetNextAutoInc(GeneratorName) +} end; initialization diff --git a/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dpk b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dpk index 9c561c66..ed986e5a 100644 --- a/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dpk +++ b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dpk @@ -22,69 +22,19 @@ package RemesasCliente_view; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dbrtl, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - vcljpg, - vcldb, - cxGridD10, - cxPageControlD10, - cxExtEditorsD10, - vclx, - cxExportD10, - dxPSCoreD10, - dxComnD10, - dxPScxCommonD10, - dxPSLnksD10, - designide, - xmlrtl, - vclactnband, - vclshlctrls, - dxPScxGridLnkD10, - dclcxLibraryD10, - JvCoreD10R, - Jcl, - JclVcl, - JvAppFrmD10R, - JvSystemD10R, - PngComponentsD10, - PNG_D10, - dsnap, - adortl, + RemesasCliente_model, + RemesasCliente_controller, + GUIBase, Familias_model, Familias_controller, - tbx_d10, - tb2k_d10, - JvPageCompsD10R, - JvStdCtrlsD10R, - dxLayoutControlD10, - GUISDK_D10, - ccpack10, - cfpack_d10, - JvGlobusD10R, - VclSmp, - bdertl, - vclie, - frx10, - fs10, - fqb100, - frxe10, - frxTee10, - fsTee10, + ApplicationBase, + teeUI, tee, - teeui, - teedb, - RemesasCliente_controller, - RemesasCliente_data, - RemesasCliente_model, - BancaElectronica_controller; + fsTee11, + frxTee11; contains uViewRemesasCliente in 'uViewRemesasCliente.pas' {frViewRemesasCliente: TFrame}, diff --git a/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dproj b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dproj new file mode 100644 index 00000000..13e45895 --- /dev/null +++ b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dproj @@ -0,0 +1,617 @@ + + + {5e4bdd4d-597f-407c-8b0c-32e37fbd6267} + RemesasCliente_view.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasCliente_view.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + 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 + + + + RemesasCliente_view.dpk + + + + + + + MainSource + + + + + + + + + + + + +
fEditorRemesaCliente
+ TfEditorRemesaCliente + + +
fEditorRemesaClienteReport
+ TfEditorRemesaClienteReport + + +
fEditorRemesasCliente
+ TfEditorArticulos + + + +
frViewRecibosRemesaCliente
+ TFrame + + +
frViewRemesaCliente
+ TFrame + + +
frViewRemesasCliente
+ TFrame + + + + + diff --git a/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.res b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5 + + {ff8e8509-28f4-4aa9-88e5-13f60fe956a6} + RemesasProveedor_controller.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasProveedor_controller.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + 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 + + + + RemesasProveedor_controller.dpk + + + + + + + MainSource + + + + + + + + + + + + + + diff --git a/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.res b/Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5= ID) Condicion := NewBinaryExpression(NewField('', fld_RemesasProveedorID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual); @@ -481,7 +481,6 @@ end; function TRemesasProveedorController.Guardar(ARemesaProveedor: IBizRemesaProveedor): Boolean; var - NuevoID: Integer; bEsNuevo: Boolean; begin Result := False; @@ -491,19 +490,13 @@ begin ShowHourglassCursor; try bEsNuevo := ARemesaProveedor.EsNuevo; - if (bEsNuevo) then - NuevoID := FDataModule.GetNextID(ARemesaProveedor.DataTable.LogicalName) - else - NuevoID := ARemesaProveedor.ID; - - AsignarID(ARemesaProveedor, NuevoID); //Si es nuevo debemos hacer el applyupdates por la integridad referencial de BD if bEsNuevo then ARemesaProveedor.DataTable.ApplyUpdates; //Si todo ha ido bien, asignamos la remesa a los recibos asociados //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros - RecibosProveedorController.AsignarRemesa(ARemesaProveedor.Recibos, NuevoID); + RecibosProveedorController.AsignarRemesa(ARemesaProveedor.Recibos, ARemesaProveedor.ID); ARemesaProveedor.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboProveedor/ ElegirRecibosProveedor) //Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen diff --git a/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dpk b/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dpk index 61b6d2f9..11d86fa8 100644 --- a/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dpk +++ b/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dpk @@ -22,17 +22,9 @@ package RemesasProveedor_data; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - dbrtl, - cxLibraryD10, - dxThemeD10, - vcl, - dsnap, - vcldb, - adortl, RemesasProveedor_model; contains diff --git a/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dproj b/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dproj new file mode 100644 index 00000000..e9419575 --- /dev/null +++ b/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dproj @@ -0,0 +1,586 @@ + + + {568778b1-e82d-41e9-b198-b7c58140e81b} + RemesasProveedor_data.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasProveedor_data.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + 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 + + + + RemesasProveedor_data.dpk + + + + + + + MainSource + + + +
DataModuleRemesasProveedor
+ + + + + diff --git a/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.res b/Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5 Params = <> - MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_RemesasProveedor DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'RemesasProveedor' IndexDefs = <> - Left = 272 - Top = 160 + Left = 192 + Top = 88 end object ds_RemesasProveedor: TDADataSource DataSet = tbl_RemesasProveedor.Dataset DataTable = tbl_RemesasProveedor - Left = 272 - Top = 96 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 46 - Top = 84 - end - object rda_RemesasProveedor: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetDataCall.RemoteService = RORemoteService - UpdateDataCall.RemoteService = RORemoteService - GetScriptsCall.RemoteService = RORemoteService - RemoteService = RORemoteService - DataStreamer = Bin2DataStreamer - Left = 49 - Top = 151 + Left = 192 + Top = 24 end end diff --git a/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.pas b/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.pas index 45bc4ca4..5b6b2c1e 100644 --- a/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.pas @@ -8,19 +8,20 @@ uses uROServiceComponent, uRORemoteService, uROClient, uROBinMessage, uDADesigntimeCall, uDataModuleBase, uIDataModuleRemesasProveedor, uIDataModuleRemesasProveedorReport, uBizRemesasProveedor, - uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces; + uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, + uDAMemDataTable; type TDataModuleRemesasProveedor = class(TDataModuleBase, IDataModuleRemesasProveedor, IDataModuleRemesasProveedorReport) RORemoteService: TRORemoteService; - tbl_RemesasProveedor: TDACDSDataTable; - ds_RemesasProveedor: TDADataSource; Bin2DataStreamer: TDABin2DataStreamer; rda_RemesasProveedor: TDARemoteDataAdapter; + tbl_RemesasProveedor: TDAMemDataTable; + ds_RemesasProveedor: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); protected - procedure AsignarClaseNegocio(var ARemesaProveedor: TDACDSDataTable); virtual; + procedure AsignarClaseNegocio(var ARemesaProveedor: TDAMemDataTable); virtual; public function GetItems : IBizRemesaProveedor; overload; @@ -36,12 +37,12 @@ implementation {$R *.DFM} uses - FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces, + FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, schRemesasProveedorClient_Intf, Dialogs; { TdmRemesasProveedor } -procedure TDataModuleRemesasProveedor.AsignarClaseNegocio(var ARemesaProveedor: TDACDSDataTable); +procedure TDataModuleRemesasProveedor.AsignarClaseNegocio(var ARemesaProveedor: TDAMemDataTable); begin ARemesaProveedor.BusinessRulesID := BIZ_CLIENT_REMESAPROVEEDOR; end; diff --git a/Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedor.pas b/Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedor.pas index c21c96fc..ec3024db 100644 --- a/Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedor.pas @@ -10,7 +10,6 @@ type ['{6073E44A-0B61-4D26-BCDE-33150D88C91B}'] function GetItems: IBizRemesaProveedor; function GetItem(const ID : Integer) : IBizRemesaProveedor; - function GetNextID(const DataSetName : String) : Integer; function NewItem : IBizRemesaProveedor; end; diff --git a/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dpk b/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dpk index 7ffb06c3..ac319457 100644 --- a/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dpk +++ b/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dpk @@ -22,20 +22,12 @@ package RemesasProveedor_model; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - dsnap, - dbrtl, - vcldb, - vcl, - adortl, - Usuarios, - DataAbstract_D10, + Base, RecibosProveedor_model; - contains uBizRemesasProveedor in 'uBizRemesasProveedor.pas', uIDataModuleRemesasProveedor in 'Data\uIDataModuleRemesasProveedor.pas', diff --git a/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dproj b/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dproj new file mode 100644 index 00000000..bd67d5ca --- /dev/null +++ b/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dproj @@ -0,0 +1,589 @@ + + + {e4f81792-84cf-4900-a6ab-18f6dd2c7ada} + RemesasProveedor_model.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasProveedor_model.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + 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 + + + + RemesasProveedor_model.dpk + + + + + + + MainSource + + + + + + + + + + + + diff --git a/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.res b/Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5 + + {e4a70e78-dcab-415c-9e35-1956bd41ae1a} + RemesasProveedor_plugin.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasProveedor_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 + + + + RemesasProveedor_plugin.dpk + + + + + + + MainSource + + + + + +
PluginRemesasProveedor
+ + + + + + diff --git a/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.res b/Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5 + + {9e374daa-b130-47db-a2de-c184f072bea0} + + + + + + + + + + + + + + + + Default.Personality + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm index 4f1344db..304f26a5 100644 --- a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm +++ b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm @@ -3,16 +3,11 @@ object srvRemesasProveedor: TsrvRemesasProveedor OnCreate = DARemoteServiceCreate RequiresSession = True SessionManager = dmServer.SessionManager - AcquireConnection = True ConnectionName = 'IBX' ServiceSchema = schRemesasProveedor - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection - OnBeforeGetDatasetData = DARemoteServiceBeforeGetDatasetData + ServiceDataStreamer = Bin2DataStreamer ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] + BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection Height = 249 Width = 343 object Diagrams: TDADiagrams @@ -25,7 +20,10 @@ object srvRemesasProveedor: TsrvRemesasProveedor item Name = 'RemesasCliente_ID' DataType = datAutoInc + GeneratorName = 'GEN_REMESAS_PROVEEDOR_ID' + Required = True DisplayLabel = 'ID' + ServerAutoRefresh = True end item Name = 'RemesasCliente_FECHA_REMESA' @@ -125,7 +123,7 @@ object srvRemesasProveedor: TsrvRemesasProveedor end item Name = 'RemesasProveedor_IMPORTE_TOTAL' - DataType = datFloat + DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify ServerAutoRefresh = True @@ -180,13 +178,7 @@ object srvRemesasProveedor: TsrvRemesasProveedor item Connection = 'IBX' TargetTable = 'V_REMESAS_PROVEEDOR' - SQL = - 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' + - #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' + - 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' + - ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_P' + - 'ROVEEDOR' - StatementType = stSQL + StatementType = stAutoSQL ColumnMappings = < item DatasetField = 'ID' @@ -200,6 +192,10 @@ object srvRemesasProveedor: TsrvRemesasProveedor DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end + item + DatasetField = 'TIPO' + TableField = 'TIPO' + end item DatasetField = 'FECHA_REMESA' TableField = 'FECHA_REMESA' @@ -208,10 +204,6 @@ object srvRemesasProveedor: TsrvRemesasProveedor DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end - item - DatasetField = 'USUARIO' - TableField = 'USUARIO' - end item DatasetField = 'ID_DATOS_BANCO' TableField = 'ID_DATOS_BANCO' @@ -225,8 +217,8 @@ object srvRemesasProveedor: TsrvRemesasProveedor TableField = 'FECHA_MODIFICACION' end item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' + DatasetField = 'USUARIO' + TableField = 'USUARIO' end item DatasetField = 'NOMBRE' @@ -257,8 +249,8 @@ object srvRemesasProveedor: TsrvRemesasProveedor TableField = 'SUFIJO_N58' end item - DatasetField = 'TIPO' - TableField = 'TIPO' + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' end> end> Name = 'RemesasProveedor' @@ -266,6 +258,8 @@ object srvRemesasProveedor: TsrvRemesasProveedor item Name = 'ID' DataType = datAutoInc + GeneratorName = 'GEN_REMESAS_PROVEEDOR_ID' + ServerAutoRefresh = True DictionaryEntry = 'RemesasCliente_ID' InPrimaryKey = True end @@ -297,12 +291,6 @@ object srvRemesasProveedor: TsrvRemesasProveedor Size = 255 DictionaryEntry = 'RemesasCliente_DESCRIPCION' end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DictionaryEntry = 'RemesasCliente_USUARIO' - end item Name = 'ID_DATOS_BANCO' DataType = datInteger @@ -318,253 +306,58 @@ object srvRemesasProveedor: TsrvRemesasProveedor DataType = datDateTime DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION' end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + DictionaryEntry = 'RemesasCliente_USUARIO' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + DictionaryEntry = 'RemesasCliente_NOMBRE' + end + item + Name = 'ENTIDAD' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_ENTIDAD' + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_SUCURSAL' + end + item + Name = 'DC' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_DC' + end + item + Name = 'CUENTA' + DataType = datString + Size = 15 + DictionaryEntry = 'RemesasCliente_CUENTA' + end + item + Name = 'SUFIJO_N19' + DataType = datString + Size = 3 + DictionaryEntry = 'RemesasCliente_SUFIJO_N19' + end + item + Name = 'SUFIJO_N58' + DataType = datString + Size = 3 + DictionaryEntry = 'RemesasCliente_SUFIJO_N58' + end item Name = 'IMPORTE_TOTAL' - DataType = datFloat + DataType = datCurrency DictionaryEntry = 'RemesasProveedor_IMPORTE_TOTAL' - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - DictionaryEntry = 'RemesasCliente_NOMBRE' - end - item - Name = 'ENTIDAD' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_ENTIDAD' - end - item - Name = 'SUCURSAL' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_SUCURSAL' - end - item - Name = 'DC' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_DC' - end - item - Name = 'CUENTA' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_CUENTA' - end - item - Name = 'SUFIJO_N19' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N19' - end - item - Name = 'SUFIJO_N58' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N58' - end> - end - item - Params = < - item - Name = 'ID' - DataType = datInteger - Value = '22' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'V_REMESAS_PROVEEDOR' - SQL = - 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' + - #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' + - 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' + - ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_P' + - 'ROVEEDOR'#10'WHERE ID = :ID' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'REFERENCIA' - TableField = 'REFERENCIA' - end - item - DatasetField = 'FECHA_REMESA' - TableField = 'FECHA_REMESA' - end - item - DatasetField = 'DESCRIPCION' - TableField = 'DESCRIPCION' - end - item - DatasetField = 'USUARIO' - TableField = 'USUARIO' - end - item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' - SQLOrigin = 'REMESAS_CLIENTE.ID_EMPRESA' - end - item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' - end - item - DatasetField = 'ID_DATOS_BANCO' - TableField = 'ID_DATOS_BANCO' - end - item - DatasetField = 'FECHA_ALTA' - TableField = 'FECHA_ALTA' - end - item - DatasetField = 'FECHA_MODIFICACION' - TableField = 'FECHA_MODIFICACION' - end - item - DatasetField = 'NOMBRE' - TableField = 'NOMBRE' - end - item - DatasetField = 'ENTIDAD' - TableField = 'ENTIDAD' - end - item - DatasetField = 'SUCURSAL' - TableField = 'SUCURSAL' - end - item - DatasetField = 'DC' - TableField = 'DC' - end - item - DatasetField = 'CUENTA' - TableField = 'CUENTA' - end - item - DatasetField = 'SUFIJO_N19' - TableField = 'SUFIJO_N19' - end - item - DatasetField = 'SUFIJO_N58' - TableField = 'SUFIJO_N58' - end - item - DatasetField = 'TIPO' - TableField = 'TIPO' - end> - end> - Name = 'RemesasProveedor_Refresh' - Fields = < - item - Name = 'ID' - DataType = datAutoInc - DictionaryEntry = 'RemesasCliente_ID' - InPrimaryKey = True - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'RemesasCliente_ID_EMPRESA' - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - ServerAutoRefresh = True - end - item - Name = 'TIPO' - DataType = datString - Size = 40 - DictionaryEntry = 'RemesasProveedor_TIPO' - end - item - Name = 'FECHA_REMESA' - DataType = datDateTime - DictionaryEntry = 'RemesasCliente_FECHA_REMESA' - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - DictionaryEntry = 'RemesasCliente_DESCRIPCION' - end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DictionaryEntry = 'RemesasCliente_USUARIO' - end - item - Name = 'ID_DATOS_BANCO' - DataType = datInteger - DictionaryEntry = 'RemesasCliente_ID_DATOS_BANCO' - end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - DictionaryEntry = 'RemesasCliente_FECHA_ALTA' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION' - end - item - Name = 'IMPORTE_TOTAL' - DataType = datFloat - DisplayLabel = 'Importe total' - Alignment = taRightJustify - ServerAutoRefresh = True - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - DictionaryEntry = 'RemesasCliente_NOMBRE' - end - item - Name = 'ENTIDAD' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_ENTIDAD' - end - item - Name = 'SUCURSAL' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_SUCURSAL' - end - item - Name = 'DC' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_DC' - end - item - Name = 'CUENTA' - DataType = datString - Size = 15 - DictionaryEntry = 'RemesasCliente_CUENTA' - end - item - Name = 'SUFIJO_N19' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N19' - end - item - Name = 'SUFIJO_N58' - DataType = datString - Size = 3 - DictionaryEntry = 'RemesasCliente_SUFIJO_N58' end> end> JoinDataTables = <> @@ -574,23 +367,15 @@ object srvRemesasProveedor: TsrvRemesasProveedor Params = < item Name = 'VALOR' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CODIGO' - DataType = datString - Size = 50 Value = '' - ParamType = daptInput end item - Name = 'ID_EMPRESA' - DataType = datInteger + Name = 'EMPRESA' Value = '' - ParamType = daptInput end> Statements = < item @@ -598,7 +383,7 @@ object srvRemesasProveedor: TsrvRemesasProveedor TargetTable = 'REFERENCIAS' SQL = 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :COD' + - 'IGO AND'#10' ID_EMPRESA = :ID_EMPRESA' + 'IGO AND'#10' ID_EMPRESA = :EMPRESA'#10 StatementType = stSQL ColumnMappings = <> end> @@ -608,67 +393,45 @@ object srvRemesasProveedor: TsrvRemesasProveedor Params = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_REMESAS_PROVEEDOR_ID' Value = '' - ParamType = daptInput end item Name = 'REFERENCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'TIPO' - DataType = datString - Size = 40 Value = '' - ParamType = daptInput end item Name = 'FECHA_REMESA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'DESCRIPCION' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'USUARIO' - DataType = datString - Size = 20 Value = '' - ParamType = daptInput end item Name = 'ID_EMPRESA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_DATOS_BANCO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'FECHA_ALTA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_MODIFICACION' - DataType = datDateTime Value = '' - ParamType = daptInput end> Statements = < item @@ -689,9 +452,7 @@ object srvRemesasProveedor: TsrvRemesasProveedor Params = < item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -706,80 +467,60 @@ object srvRemesasProveedor: TsrvRemesasProveedor item Params = < item - Name = 'REFERENCIA' - DataType = datString - Size = 255 + Name = 'ID' + Value = '' + end + item + Name = 'REFERENCIA' Value = '' - ParamType = daptInput end item Name = 'TIPO' - DataType = datString - Size = 40 Value = '' - ParamType = daptInput end item Name = 'FECHA_REMESA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'DESCRIPCION' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'USUARIO' - DataType = datString - Size = 20 Value = '' - ParamType = daptInput end item Name = 'ID_EMPRESA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_DATOS_BANCO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'FECHA_ALTA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_MODIFICACION' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'REMESAS_PROVEEDOR' SQL = - 'UPDATE REMESAS_PROVEEDOR'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' ' + - ' TIPO = :TIPO,'#10' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPC' + - 'ION = :DESCRIPCION, '#10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :' + - 'ID_EMPRESA, '#10' ID_DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALT' + - 'A = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' ' + - ' WHERE'#10' (ID = :OLD_ID)' + 'UPDATE REMESAS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' REFERENCIA = :' + + 'REFERENCIA, '#10' TIPO = :TIPO,'#10' FECHA_REMESA = :FECHA_REMESA,' + + ' '#10' DESCRIPCION = :DESCRIPCION, '#10' USUARIO = :USUARIO, '#10' ' + + 'ID_EMPRESA = :ID_EMPRESA, '#10' ID_DATOS_BANCO = :ID_DATOS_BANCO,' + + #10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_' + + 'MODIFICACION'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -791,10 +532,6 @@ object srvRemesasProveedor: TsrvRemesasProveedor Left = 48 Top = 24 end - object DABINAdapter: TDABINAdapter - Left = 48 - Top = 72 - end object bpRemesasProveedor: TDABusinessProcessor Schema = schRemesasProveedor InsertCommandName = 'Insert_RemesasProveedor' @@ -807,4 +544,8 @@ object srvRemesasProveedor: TsrvRemesasProveedor Left = 248 Top = 24 end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 88 + end end diff --git a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas index 3a3d19e6..a8f1ef13 100644 --- a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas +++ b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas @@ -12,25 +12,25 @@ interface uses {vcl:} Classes, SysUtils, {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract_Intf, + {Ancestor Implementation:} DataAbstractService_Impl, + {Used RODLs:} DataAbstract4_Intf, {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, uDAScriptingProvider, uDAClasses, FactuGES_Intf, uDAInterfaces, uDABinAdapter; type { TsrvRemesasProveedor } - TsrvRemesasProveedor = class(TDARemoteService, IsrvRemesasProveedor) + TsrvRemesasProveedor = class(TDataAbstractService, IsrvRemesasProveedor) Diagrams: TDADiagrams; - DABINAdapter: TDABINAdapter; bpRemesasProveedor: TDABusinessProcessor; schRemesasProveedor: TDASchema; DataDictionary: TDADataDictionary; - procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService; - var ConnectionName: string); + Bin2DataStreamer: TDABin2DataStreamer; procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; + var aConnectionName: string); private protected { IsrvRemesasProveedor methods } @@ -44,7 +44,8 @@ implementation uses {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, schRemesasProveedorClient_Intf, uRestriccionesUsuarioUtils, - uBizRemesasProveedorServer, uRptRemesasProveedor_Server, Dialogs; +// uBizRemesasProveedorServer, uRptRemesasProveedor_Server, + Dialogs; procedure Create_srvRemesasProveedor(out anInstance : IUnknown); begin @@ -52,41 +53,46 @@ begin end; { srvRemesasProveedor } -procedure TsrvRemesasProveedor.DARemoteServiceBeforeAcquireConnection( - Sender: TDARemoteService; var ConnectionName: string); -begin - ConnectionName := dmServer.ConnectionName; -end; procedure TsrvRemesasProveedor.DARemoteServiceBeforeGetDatasetData( const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); begin +{ if DataSet.Name = nme_RemesasProveedor then begin { Aquí se asegura que el usuario sólo accede a los RemesasProveedor de las empresas a las que tiene permiso para acceder filtrando DataSet por ID_EMPRESA. } - FiltrarAccesoUsuario(Session, Connection, schRemesasProveedor, DataSet, fld_RemesasProveedorID_EMPRESA); +{ FiltrarAccesoUsuario(Session, Connection, schRemesasProveedor, DataSet, fld_RemesasProveedorID_EMPRESA); end; +} end; procedure TsrvRemesasProveedor.DARemoteServiceCreate(Sender: TObject); begin SessionManager := dmServer.SessionManager; - bpRemesasProveedor.BusinessRulesID := BIZ_SERVER_REMESAS_PROVEEDOR; +// bpRemesasProveedor.BusinessRulesID := BIZ_SERVER_REMESAS_PROVEEDOR; +end; + +procedure TsrvRemesasProveedor.DataAbstractServiceBeforeAcquireConnection( + aSender: TObject; var aConnectionName: string); +begin + ConnectionName := dmServer.ConnectionName; end; function TsrvRemesasProveedor.GenerateReport(const ID: String): Binary; -var - AReportGenerator : TRptRemesasProveedor; +//var +// AReportGenerator : TRptRemesasProveedor; begin +{ AReportGenerator := TRptRemesasProveedor.Create(nil); try Result := AReportGenerator.GenerarRemesa(ID); finally FreeAndNIL(AReportGenerator); end; +} end; function TsrvRemesasProveedor.GetNextAutoInc(const GeneratorName: String): Integer; diff --git a/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dpk b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dpk index c65b6c55..6d75ffbe 100644 --- a/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dpk +++ b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dpk @@ -22,68 +22,17 @@ package RemesasProveedor_view; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dbrtl, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - vcljpg, - vcldb, - cxGridD10, - cxPageControlD10, - cxExtEditorsD10, - vclx, - cxExportD10, - dxPSCoreD10, - dxComnD10, - dxPScxCommonD10, - dxPSLnksD10, - designide, - xmlrtl, - vclactnband, - vclshlctrls, - dxPScxGridLnkD10, - dclcxLibraryD10, - JvCoreD10R, - Jcl, - JclVcl, - JvAppFrmD10R, - JvSystemD10R, - PngComponentsD10, - PNG_D10, - dsnap, - adortl, - Familias_model, - Familias_controller, - tbx_d10, - tb2k_d10, - JvPageCompsD10R, - JvStdCtrlsD10R, - dxLayoutControlD10, - GUISDK_D10, - ccpack10, - cfpack_d10, - JvGlobusD10R, - VclSmp, - bdertl, - vclie, - frx10, - fs10, - fqb100, - frxe10, - frxTee10, - fsTee10, - tee, - teeui, - teedb, RemesasProveedor_model, RemesasProveedor_controller, - RemesasProveedor_data; + Familias_controller, + Familias_model, + teeUI, + tee, + fsTee11, + frxTee11; contains uViewRemesasProveedor in 'uViewRemesasProveedor.pas' {frViewRemesasProveedor: TFrame}, diff --git a/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dproj b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dproj new file mode 100644 index 00000000..f697d4a9 --- /dev/null +++ b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dproj @@ -0,0 +1,615 @@ + + + {5e4bdd4d-597f-407c-8b0c-32e37fbd6267} + RemesasProveedor_view.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RemesasProveedor_view.bpl + + + 7.0 + False + False + False + True + 0 + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + False + True + True + True + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + 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 + + + + RemesasProveedor_view.dpk + + + + + + + MainSource + + + + + + + + + + +
fEditorRemesaProveedor
+ TfEditorRemesaCliente + + +
fEditorRemesaProveedorPreview
+ TfEditorRemesaClienteReport + + +
fEditorRemesasProveedor
+ TfEditorArticulos + + + +
frViewRecibosRemesaProveedor
+ TFrame + + +
frViewRemesaProveedor
+ TFrame + + +
frViewRemesasProveedor
+ TFrame + + + + + diff --git a/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.res b/Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Servicios/FactuGES.RODL.bak b/Source/Servicios/FactuGES.RODL.bak index 90677e65..fb1aa945 100644 --- a/Source/Servicios/FactuGES.RODL.bak +++ b/Source/Servicios/FactuGES.RODL.bak @@ -159,6 +159,37 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -207,6 +238,22 @@ + + + + + + + + + + + + + + + + diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index af1f978d..251dec21 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/Source/Servicios/FactuGES_Intf.pas @@ -35,6 +35,8 @@ const IsrvArticulos_IID : TGUID = '{CFBE5841-DF0F-48AD-853E-A35FDA989E6E}'; IsrvRecibosCliente_IID : TGUID = '{3B68252A-EE6A-4D37-B250-93F2DB940DDF}'; IsrvRecibosProveedor_IID : TGUID = '{22580F16-8FFC-4FE0-BCDD-5533D5DB1F55}'; + IsrvRemesasCliente_IID : TGUID = '{33F414D0-0D0B-4384-96CB-D94BC97A0C39}'; + IsrvRemesasProveedor_IID : TGUID = '{6540A037-9847-4650-89BB-7B349C6004DF}'; IsrvFacturasCliente_IID : TGUID = '{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}'; IsrvFacturasProveedor_IID : TGUID = '{7655160C-7023-452E-BB0E-C97E29B915E7}'; IsrvPresupuestosCliente_IID : TGUID = '{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}'; @@ -58,6 +60,8 @@ type IsrvArticulos = interface; IsrvRecibosCliente = interface; IsrvRecibosProveedor = interface; + IsrvRemesasCliente = interface; + IsrvRemesasProveedor = interface; IsrvFacturasCliente = interface; IsrvFacturasProveedor = interface; IsrvPresupuestosCliente = interface; @@ -361,6 +365,44 @@ type function GenerateReport(const ID: Integer): Binary; end; + { IsrvRemesasCliente } + IsrvRemesasCliente = interface(IDataAbstractService) + ['{33F414D0-0D0B-4384-96CB-D94BC97A0C39}'] + function GenerateReport(const ID: String): Binary; + end; + + { CosrvRemesasCliente } + CosrvRemesasCliente = class + class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRemesasCliente; + end; + + { TsrvRemesasCliente_Proxy } + TsrvRemesasCliente_Proxy = class(TDataAbstractService_Proxy, IsrvRemesasCliente) + protected + function __GetInterfaceName:string; override; + + function GenerateReport(const ID: String): Binary; + end; + + { IsrvRemesasProveedor } + IsrvRemesasProveedor = interface(IDataAbstractService) + ['{6540A037-9847-4650-89BB-7B349C6004DF}'] + function GenerateReport(const ID: String): Binary; + end; + + { CosrvRemesasProveedor } + CosrvRemesasProveedor = class + class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRemesasProveedor; + end; + + { TsrvRemesasProveedor_Proxy } + TsrvRemesasProveedor_Proxy = class(TDataAbstractService_Proxy, IsrvRemesasProveedor) + protected + function __GetInterfaceName:string; override; + + function GenerateReport(const ID: String): Binary; + end; + { IsrvFacturasCliente } IsrvFacturasCliente = interface(IDataAbstractService) ['{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}'] @@ -1037,6 +1079,68 @@ begin end end; +{ CosrvRemesasCliente } + +class function CosrvRemesasCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRemesasCliente; +begin + result := TsrvRemesasCliente_Proxy.Create(aMessage, aTransportChannel); +end; + +{ TsrvRemesasCliente_Proxy } + +function TsrvRemesasCliente_Proxy.__GetInterfaceName:string; +begin + result := 'srvRemesasCliente'; +end; + +function TsrvRemesasCliente_Proxy.GenerateReport(const ID: String): Binary; +begin + try + result := nil; + __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport'); + __Message.Write('ID', TypeInfo(String), ID, []); + __Message.Finalize; + + __TransportChannel.Dispatch(__Message); + + __Message.Read('Result', TypeInfo(Binary), result, []); + finally + __Message.UnsetAttributes(__TransportChannel); + __Message.FreeStream; + end +end; + +{ CosrvRemesasProveedor } + +class function CosrvRemesasProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRemesasProveedor; +begin + result := TsrvRemesasProveedor_Proxy.Create(aMessage, aTransportChannel); +end; + +{ TsrvRemesasProveedor_Proxy } + +function TsrvRemesasProveedor_Proxy.__GetInterfaceName:string; +begin + result := 'srvRemesasProveedor'; +end; + +function TsrvRemesasProveedor_Proxy.GenerateReport(const ID: String): Binary; +begin + try + result := nil; + __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport'); + __Message.Write('ID', TypeInfo(String), ID, []); + __Message.Finalize; + + __TransportChannel.Dispatch(__Message); + + __Message.Read('Result', TypeInfo(Binary), result, []); + finally + __Message.UnsetAttributes(__TransportChannel); + __Message.FreeStream; + end +end; + { CosrvFacturasCliente } class function CosrvFacturasCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasCliente; @@ -1256,6 +1360,8 @@ initialization RegisterProxyClass(IsrvArticulos_IID, TsrvArticulos_Proxy); RegisterProxyClass(IsrvRecibosCliente_IID, TsrvRecibosCliente_Proxy); RegisterProxyClass(IsrvRecibosProveedor_IID, TsrvRecibosProveedor_Proxy); + RegisterProxyClass(IsrvRemesasCliente_IID, TsrvRemesasCliente_Proxy); + RegisterProxyClass(IsrvRemesasProveedor_IID, TsrvRemesasProveedor_Proxy); RegisterProxyClass(IsrvFacturasCliente_IID, TsrvFacturasCliente_Proxy); RegisterProxyClass(IsrvFacturasProveedor_IID, TsrvFacturasProveedor_Proxy); RegisterProxyClass(IsrvPresupuestosCliente_IID, TsrvPresupuestosCliente_Proxy); @@ -1279,6 +1385,8 @@ finalization UnregisterProxyClass(IsrvArticulos_IID); UnregisterProxyClass(IsrvRecibosCliente_IID); UnregisterProxyClass(IsrvRecibosProveedor_IID); + UnregisterProxyClass(IsrvRemesasCliente_IID); + UnregisterProxyClass(IsrvRemesasProveedor_IID); UnregisterProxyClass(IsrvFacturasCliente_IID); UnregisterProxyClass(IsrvFacturasProveedor_IID); UnregisterProxyClass(IsrvPresupuestosCliente_IID); diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index 900e6d72..fca980e0 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/Source/Servicios/FactuGES_Invk.pas @@ -100,6 +100,20 @@ type procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); end; + TsrvRemesasCliente_Invoker = class(TDataAbstractService_Invoker) + private + protected + published + procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); + end; + + TsrvRemesasProveedor_Invoker = class(TDataAbstractService_Invoker) + private + protected + published + procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); + end; + TsrvFacturasCliente_Invoker = class(TDataAbstractService_Invoker) private protected @@ -354,6 +368,66 @@ begin end; end; +{ TsrvRemesasCliente_Invoker } + +procedure TsrvRemesasCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); +{ function GenerateReport(const ID: String): Binary; } +var + ID: String; + lResult: Binary; + __lObjectDisposer: TROObjectDisposer; +begin + lResult := nil; + try + __Message.Read('ID', TypeInfo(String), ID, []); + + lResult := (__Instance as IsrvRemesasCliente).GenerateReport(ID); + + __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRemesasCliente', 'GenerateReportResponse'); + __Message.Write('Result', TypeInfo(Binary), lResult, []); + __Message.Finalize; + __Message.UnsetAttributes(__Transport); + + finally + __lObjectDisposer := TROObjectDisposer.Create(__Instance); + try + __lObjectDisposer.Add(lResult); + finally + __lObjectDisposer.Free(); + end; + end; +end; + +{ TsrvRemesasProveedor_Invoker } + +procedure TsrvRemesasProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); +{ function GenerateReport(const ID: String): Binary; } +var + ID: String; + lResult: Binary; + __lObjectDisposer: TROObjectDisposer; +begin + lResult := nil; + try + __Message.Read('ID', TypeInfo(String), ID, []); + + lResult := (__Instance as IsrvRemesasProveedor).GenerateReport(ID); + + __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRemesasProveedor', 'GenerateReportResponse'); + __Message.Write('Result', TypeInfo(Binary), lResult, []); + __Message.Finalize; + __Message.UnsetAttributes(__Transport); + + finally + __lObjectDisposer := TROObjectDisposer.Create(__Instance); + try + __lObjectDisposer.Add(lResult); + finally + __lObjectDisposer.Free(); + end; + end; +end; + { TsrvFacturasCliente_Invoker } procedure TsrvFacturasCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res index 027249fdb03a2200276ddd8df8e169f32804b8bb..1f04127c1b30e1364fb6959027f1b689d209b1c4 100644 GIT binary patch delta 319 zcmX}mKT3l^5Cw2zrFTdXlC(o+cV~BYf)@K1>_Wf;2!4f-7?OyMcn9Tc(y2F4JczBw zaTT$7Ja_~1dpiuiUIve&qvOT<_+d6*cI$3`xlgO>?&h`|k1o#h+4#O_A0;S;l9B>a zwH#U6={`?PNJMrnWUBV8#e!Jb}0rAq&MM955N_U)_AFgBB+t0w(X;VMOq@ zg(h9aS*4_!J`C6WiVvrMsKst`*L7E$-9M}3O3Vc)kq1JbK*Ura;;2Fu@6i3SoFxos z7{n6;IorNTjKI;5B!@`3{;(!kODxLSHkZ&?x;4rL0;48Jl9~GL3HKxW`SCn^8h!&# CR#UhD delta 20 ccmcbyfN{eN#t8~c54<-j)#`6PZah&209=a*c>n+a diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index a8405af40417a6437a39e613d8ce0fe0c02ef3d5..aa5813ac76b839168a3c58d4d863ffef01ec06c5 100644 GIT binary patch delta 67 zcmZ3nm2t&Z#tjjXj69PgBb6CnOssrvRecibosProveedor TDataAbstractService + + + +
srvRemesasCliente
+ TDataAbstractService + + + + +
srvRemesasProveedor
+ TDataAbstractService + diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 51e74825..4cfd0114 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", "lunes, 19 de noviembre de 2007 20:09\0" + VALUE "CompileDate", "martes, 20 de noviembre de 2007 16:40\0" END END BLOCK "VarFileInfo"