From 32cca449cc8a2ff7d09fbe2e8532cb11c0161488 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 25 Sep 2013 17:12:09 +0000 Subject: [PATCH] =?UTF-8?q?Se=20adaptan=20los=20informes=20b=20para=20que?= =?UTF-8?q?=20no=20salgan=20datos=20de=20la=20empresa=20y=20no=20pregunte?= =?UTF-8?q?=20si=20imprimir=20con=20logotipo,=20se=20cambia=20l=C3=B3gica?= =?UTF-8?q?=20de=20forma=20de=20pago=20para=20presupuestos=20y=20contratos?= =?UTF-8?q?=20y=20que=20al=20cambiar=20de=20cliente=20que=20cambie=20de=20?= =?UTF-8?q?forma=20de=20pago?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@78 93f398dd-4eb6-7a46-baf6-13f46f578da2 --- Source/Base/Base.dproj | 96 +++++++++---------- .../uDataModuleConfiguracion.pas | 9 ++ 2 files changed, 57 insertions(+), 48 deletions(-) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 7dae4e8..9d7f06c 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -65,55 +65,55 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm diff --git a/Source/Base/Configuracion/uDataModuleConfiguracion.pas b/Source/Base/Configuracion/uDataModuleConfiguracion.pas index 5c543dc..a31decc 100644 --- a/Source/Base/Configuracion/uDataModuleConfiguracion.pas +++ b/Source/Base/Configuracion/uDataModuleConfiguracion.pas @@ -19,6 +19,7 @@ type function DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): Variant; function DarValorParaEmpresa(const CODIGO: String; const ID_EMPRESA: Integer; const ValorPorDefecto: String = ''): Variant; procedure GuardarValor(const CODIGO: String; const Valor: Variant); + procedure GuardarValorParaEmpresa(const CODIGO: String; const ID_EMPRESA: Integer; const Valor: Variant); procedure LeerConfiguracion; procedure SalvarConfiguracion; constructor Create(AOwner: TComponent); override; @@ -83,6 +84,14 @@ begin (RORemoteService as IsrvConfiguracion).GuardarValor(CODIGO, Valor); end; +procedure TdmConfiguracion.GuardarValorParaEmpresa(const CODIGO: String; + const ID_EMPRESA: Integer; const Valor: Variant); +begin + RORemoteService.Channel := dmConexion.ROChannel; + RORemoteService.Message := dmConexion.ROMessage; + (RORemoteService as IsrvConfiguracion).guardarValorParaEmpresa(CODIGO, ID_EMPRESA, Valor); +end; + procedure TdmConfiguracion.LeerConfiguracion; begin with FIniFile do