From 618479b3bc5afd194f21a5f5aa0bb89bd51d72d2 Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 7 Jul 2022 17:14:25 +0000 Subject: [PATCH] Copia de contratos de graden a uecko git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@168 93f398dd-4eb6-7a46-baf6-13f46f578da2 --- Source/Base/Base.dproj | 103 +-- Source/Cliente/FactuGES.dpr | 1 + Source/Cliente/FactuGES.dproj | 74 +- Source/Cliente/FactuGES.res | Bin 171984 -> 172156 bytes Source/Informes/1/InfContratoCliente.fr3 | 18 +- .../Controller/Articulos_controller.dproj | 12 +- .../Articulos/Data/Articulos_data.dproj | 2 +- .../Articulos/Views/Articulos_view.dproj | 62 +- .../Controller/Contactos_controller.dproj | 26 +- .../Controller/uClientesController.pas | 9 + .../Contactos/Data/Contactos_data.dproj | 12 +- .../Contactos/Model/Contactos_model.dproj | 30 +- .../Contactos/Views/Contactos_view.dproj | 70 +- .../ContratosCliente_Group.groupproj | 26 +- .../ContratosCliente_controller.dproj | 16 +- .../uContratosClienteController.pas | 78 +- .../uDetallesContratoClienteController.pas | 6 +- .../Data/uDataModuleContratosCliente.dfm | 8 + .../Model/schContratosClienteClient_Intf.pas | 114 ++- .../Model/schContratosClienteServer_Intf.pas | 114 ++- .../Model/uBizContratosCliente.pas | 9 +- .../Servidor/srvContratosCliente_Impl.dfm | 69 +- .../Views/uEditorContratoCliente.dfm | 92 +-- .../Views/uEditorContratosCliente.dfm | 27 + .../Views/uEditorContratosCliente.pas | 89 ++- .../Views/uViewContratosCliente.dfm | 58 ++ .../Views/uViewContratosCliente.pas | 25 +- .../PresupuestosCliente_controller.dproj | 12 +- .../Model/PresupuestosCliente_model.dproj | 18 +- .../Tarifas/Controller/Tarifas_controller.dcu | Bin 15425 -> 15424 bytes Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.dproj | 684 +++++++++--------- Source/Servidor/FactuGES_Server.res | Bin 23344 -> 23344 bytes 33 files changed, 1188 insertions(+), 682 deletions(-) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index e7a23a9..db910fd 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,6 +44,13 @@ Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -58,54 +65,54 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Cliente/FactuGES.dpr b/Source/Cliente/FactuGES.dpr index 26dad99..953a000 100644 --- a/Source/Cliente/FactuGES.dpr +++ b/Source/Cliente/FactuGES.dpr @@ -1,6 +1,7 @@ program FactuGES; uses + ExceptionLog, Forms, Windows, SysUtils, diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index e94c1e4..d42baa0 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -43,15 +43,24 @@ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib - DEBUG; + DEBUG;EUREKALOG;EUREKALOG_VER6 True True + 3 Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse3900FalseFalseFalseFalseFalse30821252Rodax Software S.L.3.9.0.0FactuGESFactuGES3.9.0.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4010FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.0.1.0FactuGESFactuGES4.0.1.0 + + + + + + + + File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse @@ -80,24 +89,24 @@ diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 862b3c283d6c052da0af17edf9c7ee2c6aa7cf57..fc6a2950836b528615dfdac36cad0da9dd4d6c01 100644 GIT binary patch delta 510 zcmYk1KTE?<6vcmewl$4KGIk6UMFm3yHxY}96ck*#IJHHkEm|$r#i<<>`T>M2{j>H1 zxQdRBj?Qj=heEwCFR>nY@4l0J&b=p}Z_f1H={;I6DmCo7u9M>r7CBrOENmKST@CYS zq(G6+o8CtT7Gmbn&q4~%Grfro>6m#;WLkzGh;0lG@=)wk9yz(|ATx_Up+>Ld{y@ix3vZ>g->pr?EQz E1<9U95dZ)H delta 340 zcmex!fa}73u7(!IElezP>kS0Bco^V-k%5OnK!AaPkwJnXgB3)>c`OVJObikd5V;d< z3=GV0UI!-w0}F$K0z_^F2Ll5uf(JB>jlsYGD#ypbz>eUlGQ=}*FgQ3sBsH8E7&sX` zJRrP|5C#S=hJ*yD#wiR8+zbs3P?a1YhcYmHU}RuW0Mh^e3ji^Y0|W*P2oHT=oc?Go zlb$Xo(6Jx@qwT>wkfT|EUPJ`}({1N5DKqL!Pn^dTKmE--CIwDo20aE#AU2pTI-kjU P`i1#S5lCW&3z)nCNct=i diff --git a/Source/Informes/1/InfContratoCliente.fr3 b/Source/Informes/1/InfContratoCliente.fr3 index fe5289e..a572987 100644 --- a/Source/Informes/1/InfContratoCliente.fr3 +++ b/Source/Informes/1/InfContratoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -78,4 +78,20 @@ + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Articulos/Controller/Articulos_controller.dproj b/Source/Modulos/Articulos/Controller/Articulos_controller.dproj index 67f7b0a..61dd6cf 100644 --- a/Source/Modulos/Articulos/Controller/Articulos_controller.dproj +++ b/Source/Modulos/Articulos/Controller/Articulos_controller.dproj @@ -55,12 +55,12 @@ MainSource - - - - - - + + + + + + diff --git a/Source/Modulos/Articulos/Data/Articulos_data.dproj b/Source/Modulos/Articulos/Data/Articulos_data.dproj index 126ef52..8f62cd5 100644 --- a/Source/Modulos/Articulos/Data/Articulos_data.dproj +++ b/Source/Modulos/Articulos/Data/Articulos_data.dproj @@ -54,7 +54,7 @@ MainSource - +
DataModuleArticulos
 diff --git a/Source/Modulos/Articulos/Views/Articulos_view.dproj b/Source/Modulos/Articulos/Views/Articulos_view.dproj index e849909..bef885b 100644 --- a/Source/Modulos/Articulos/Views/Articulos_view.dproj +++ b/Source/Modulos/Articulos/Views/Articulos_view.dproj @@ -55,37 +55,37 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorArticulo
diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj index a6e9c1c..d0def6e 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj @@ -53,19 +53,19 @@ MainSource - - - - - - - - - - - - - + + + + + + + + + + + + + diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas index d034667..e41087f 100644 --- a/Source/Modulos/Contactos/Controller/uClientesController.pas +++ b/Source/Modulos/Contactos/Controller/uClientesController.pas @@ -20,6 +20,8 @@ type procedure Print(ACliente : IBizCliente; AllItems: Boolean = false); procedure SetTieneSubcuenta(ACliente: IBizCliente; AValue: Boolean); procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean); + + function darClienteGraden(const ID: Integer): IBizContacto; end; TClientesController = class(TContactosController, IClientesController) @@ -51,6 +53,8 @@ type procedure Print(ACliente : IBizCliente; AllItems: Boolean = false); procedure SetTieneSubcuenta(ACliente: IBizCliente; AValue: Boolean); procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean); + + function darClienteGraden(const ID: Integer): IBizContacto; end; implementation @@ -101,6 +105,11 @@ begin FDireccionesController := TDireccionesContactoController.Create; end; +function TClientesController.darClienteGraden(const ID: Integer): IBizContacto; +begin + Result := (FDataModule as IDataModuleClientes).GetItem(ID); +end; + destructor TClientesController.Destroy; begin FDireccionesController := NIL; diff --git a/Source/Modulos/Contactos/Data/Contactos_data.dproj b/Source/Modulos/Contactos/Data/Contactos_data.dproj index 6dc339b..49f9950 100644 --- a/Source/Modulos/Contactos/Data/Contactos_data.dproj +++ b/Source/Modulos/Contactos/Data/Contactos_data.dproj @@ -49,12 +49,12 @@ MainSource - - - - - - + + + + + +
DataModuleClientes
TDAClientDataModule diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dproj b/Source/Modulos/Contactos/Model/Contactos_model.dproj index 5869bcb..f4033d0 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.dproj +++ b/Source/Modulos/Contactos/Model/Contactos_model.dproj @@ -49,27 +49,29 @@ MainSource + + + + + + + + + + + + + + + - - - - - - - - - - - - - @@ -80,8 +82,6 @@ - - diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 181ccd4ac81d75639daffc134d0339c9f27dae47..41f43dd0da1122b7f43c332dd253e873c8cdebf7 100644 GIT binary patch delta 113 zcmdn6jd24I=|plfFt9K{0Lx_a$fK+#40;R(lNqDRp{&{{ZTlRCQieQ+REA;(9R>vk pBL;IInF8c1Fl2#cG8yvWB1Q}bKov$nz9CSZ6@xK@;pFF0o&Y7)6@mZ& delta 113 zcmdn6jd24I=|pmKGB7iM0Fa(+9(k12m_d)hax!C7Ih0i!rEQ