Se adaptan los presupuestos de cliente para que cuando se añadan se elija el tipo de presupuesto, rellenando la forma de pago, plazos y observaciones de ese tipo de presupuesto. Pantalla de configuración en la que se puede cambiar

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@535 f4e31baf-9722-1c47-927c-6f952f962d4b

Database/scripts/factuges.sql

@@ -638,7 +638,8 @@ CREATE TABLE CONFIGURACION (
     ID          TIPO_ID NOT NULL,
     CODIGO      VARCHAR(50) NOT NULL,
     VALOR       TIPO_CONCEPTO NOT NULL,
-    ID_EMPRESA  TIPO_ID
+    ID_EMPRESA  TIPO_ID,
+    VALOR_BLOB  TIPO_NOTAS
 );
 
 CREATE TABLE CONT_APUNTES (

Installer/librerias.txt

@@ -12,6 +12,7 @@ cxPageControlD11.bpl
 cxTreeListD11.bpl
 DataAbstract_Core_D11.bpl
 dclcxLibraryD11.bpl
+dxNavBarD11.bpl
 dxBarD11.bpl
 dxBarExtItemsD11.bpl
 dxComnD11.bpl
@@ -74,4 +75,5 @@ vcljpg100.bpl
 vclshlctrls100.bpl
 vclsmp100.bpl
 vclx100.bpl
-xmlrtl100.bpl
+xmlrtl100.bpl
+dcldxCoreD11.bpl

Source/ApplicationBase/ApplicationBase.dpk

@@ -48,7 +48,18 @@ requires
   vclactnband,
   designide,
   ccpackD11,
-  dxNavBarD11;
+  dxNavBarD11,
+  JvCoreD11R,
+  Jcl,
+  JclVcl,
+  JvMMD11R,
+  JvStdCtrlsD11R,
+  JvSystemD11R,
+  JvCtrlsD11R,
+  dxCoreD11,
+  cxEditorsD11,
+  cxDataD11,
+  cxExtEditorsD11;
 
 contains
   uFactuGES_App in 'uFactuGES_App.pas',
@@ -111,13 +122,13 @@ contains
   uDataModuleProvinciasPoblaciones in 'ProvinciasPoblaciones\Data\uDataModuleProvinciasPoblaciones.pas',
   uProvinciasPoblacionesController in 'ProvinciasPoblaciones\Controller\uProvinciasPoblacionesController.pas',
   uConfiguracionController in 'Configuracion\Controller\uConfiguracionController.pas',
-  uViewConfiguracionBase in 'Configuracion\Views\uViewConfiguracionBase.pas' {frViewConfiguracionBase: TCustomView},
   uEditorConfiguracion in 'Configuracion\Views\uEditorConfiguracion.pas' {fConfiguracionEditor},
   uViewConfiguracionGeneral in 'Configuracion\Views\uViewConfiguracionGeneral.pas' {frViewConfiguracionGeneral: TFrame},
   uIViewConfiguracionBase in 'Configuracion\Controller\Views\uIViewConfiguracionBase.pas',
   schUsuariosClient_Intf in 'Usuarios\Model\schUsuariosClient_Intf.pas',
   schUsuariosServer_Intf in 'Usuarios\Model\schUsuariosServer_Intf.pas',
   uEditorElegirEjercicios in 'Ejercicios\Views\uEditorElegirEjercicios.pas' {fEditorElegirEjercicios: TCustomEditor},
-  uIEditorElegirEjercicios in 'Ejercicios\Controller\View\uIEditorElegirEjercicios.pas';
+  uIEditorElegirEjercicios in 'Ejercicios\Controller\View\uIEditorElegirEjercicios.pas',
+  uViewConfiguracionBase in 'Configuracion\Views\uViewConfiguracionBase.pas' {frViewConfiguracionBase: TFrame};
 
 end.

Source/ApplicationBase/ApplicationBase.dproj

@@ -56,42 +56,50 @@
     <DelphiCompile Include="ApplicationBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\Base.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\ccpackD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cfpack_d11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dxNavBarD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\GUIBase.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvJansD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" />
     <DCCReference Include="Configuracion\Controller\uConfiguracionController.pas" />
     <DCCReference Include="Configuracion\Controller\Views\uIViewConfiguracionBase.pas" />
+    <DCCReference Include="Configuracion\Views\adortl.dcp" />
+    <DCCReference Include="Configuracion\Views\Base.dcp" />
+    <DCCReference Include="Configuracion\Views\ccpackD11.dcp" />
+    <DCCReference Include="Configuracion\Views\cfpack_d11.dcp" />
+    <DCCReference Include="Configuracion\Views\cxDataD11.dcp" />
+    <DCCReference Include="Configuracion\Views\cxEditorsD11.dcp" />
+    <DCCReference Include="Configuracion\Views\cxExtEditorsD11.dcp" />
+    <DCCReference Include="Configuracion\Views\cxLibraryD11.dcp" />
+    <DCCReference Include="Configuracion\Views\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="Configuracion\Views\dbrtl.dcp" />
+    <DCCReference Include="Configuracion\Views\designide.dcp" />
+    <DCCReference Include="Configuracion\Views\dsnap.dcp" />
+    <DCCReference Include="Configuracion\Views\dxCoreD11.dcp" />
+    <DCCReference Include="Configuracion\Views\dxGDIPlusD11.dcp" />
+    <DCCReference Include="Configuracion\Views\dxNavBarD11.dcp" />
+    <DCCReference Include="Configuracion\Views\dxThemeD11.dcp" />
+    <DCCReference Include="Configuracion\Views\GUIBase.dcp" />
+    <DCCReference Include="Configuracion\Views\GUISDK_D11R.dcp" />
+    <DCCReference Include="Configuracion\Views\Jcl.dcp" />
+    <DCCReference Include="Configuracion\Views\JclVcl.dcp" />
+    <DCCReference Include="Configuracion\Views\JvCoreD11R.dcp" />
+    <DCCReference Include="Configuracion\Views\JvCtrlsD11R.dcp" />
+    <DCCReference Include="Configuracion\Views\JvJansD11R.dcp" />
+    <DCCReference Include="Configuracion\Views\JvMMD11R.dcp" />
+    <DCCReference Include="Configuracion\Views\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="Configuracion\Views\JvSystemD11R.dcp" />
+    <DCCReference Include="Configuracion\Views\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="Configuracion\Views\rtl.dcp" />
     <DCCReference Include="Configuracion\Views\uEditorConfiguracion.pas">
       <Form>fConfiguracionEditor</Form>
     </DCCReference>
-    <DCCReference Include="Configuracion\Views\uViewConfiguracionBase.pas">
+    <DCCReference Include="Configuracion\Views\uViewConfiguracionBase.pas" />
-      <Form>frViewConfiguracionBase</Form>
-      <DesignClass>TCustomView</DesignClass>
-    </DCCReference>
     <DCCReference Include="Configuracion\Views\uViewConfiguracionGeneral.pas">
       <Form>frViewConfiguracionGeneral</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="Configuracion\Views\vcl.dcp" />
+    <DCCReference Include="Configuracion\Views\vclactnband.dcp" />
+    <DCCReference Include="Configuracion\Views\vcldb.dcp" />
+    <DCCReference Include="Configuracion\Views\vcljpg.dcp" />
+    <DCCReference Include="Configuracion\Views\vclx.dcp" />
+    <DCCReference Include="Configuracion\Views\xmlrtl.dcp" />
     <DCCReference Include="Ejercicios\Controller\uEjerciciosController.pas" />
     <DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicio.pas" />
     <DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicios.pas" />

Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.pas

@@ -4,9 +4,12 @@ interface
 
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uIViewConfiguracionBase,
-  uViewConfiguracionBase, uClassRegistryUtils, JvAppXMLStorage;
+  uViewConfiguracionBase, uClassRegistryUtils, JvAppXMLStorage,
+  uROTypes, uDataModuleConfiguracion;
 
 type
+  TEnumAlmacen = (teXML, teBD);
+
   IPluginConfigurable = interface
     ['{30063608-BFD2-47B9-80FA-F10A5067AF82}']
     function GetVistaConfiguracion : TClass;
@@ -16,39 +19,40 @@ type
   IConfiguracionController = interface(IControllerBase)
     ['{F29215BA-0D34-4AE9-B9A9-C80ABF49A81D}']
     procedure ConfigurarAplicacion;
-    procedure AplicarConfiguracion;    
+    procedure AplicarConfiguracion;
     procedure SalvarConfiguracion;
     procedure CargarConfiguracion;
 
-    function GetSettingAsString(const ASettingName: String; const ADefaultValue : String = ''): String;
+    function GetSettingAsString(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : String = ''): String;
-    function GetSettingAsInteger(const ASettingName: String; const ADefaultValue : Integer = 0): Integer;
+    function GetSettingAsInteger(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : Integer = 0): Integer;
-    function GetSettingAsFloat(const ASettingName: String; const ADefaultValue : Float = 0): Float;
+    function GetSettingAsFloat(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : Float = 0): Float;
-    function GetSettingAsBoolean(const ASettingName: String; const ADefaultValue : Boolean = False): Boolean;
+    function GetSettingAsBoolean(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : Boolean = False): Boolean;
 
-    procedure SetSettingAsString(const ASettingName: String; AValue : String);
+    procedure SetSettingAsString(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : String);
-    procedure SetSettingAsInteger(const ASettingName: String; AValue : Integer);
+    procedure SetSettingAsInteger(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : Integer);
-    procedure SetSettingAsFloat(const ASettingName: String; AValue : Float);
+    procedure SetSettingAsFloat(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : Float);
-    procedure SetSettingAsBoolean(const ASettingName: String; AValue : Boolean);
+    procedure SetSettingAsBoolean(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : Boolean);
   end;
 
   TConfiguracionController = class(TControllerBase, IConfiguracionController)
   private
     FAppXMLFileStorage : TJvAppXMLFileStorage;
+    FAppDBStorage : TdmConfiguracion;
   public
     procedure SalvarConfiguracion;
     procedure AplicarConfiguracion;
     procedure CargarConfiguracion;
     procedure ConfigurarAplicacion;
 
-    function GetSettingAsString(const ASettingName: String; const ADefaultValue : String = ''): String;
+    function GetSettingAsString(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : String = ''): String;
-    function GetSettingAsInteger(const ASettingName: String; const ADefaultValue : Integer = 0): Integer;
+    function GetSettingAsInteger(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : Integer = 0): Integer;
-    function GetSettingAsFloat(const ASettingName: String; const ADefaultValue : Float = 0): Float;
+    function GetSettingAsFloat(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : Float = 0): Float;
-    function GetSettingAsBoolean(const ASettingName: String; const ADefaultValue : Boolean = False): Boolean;
+    function GetSettingAsBoolean(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : Boolean = False): Boolean;
 
-    procedure SetSettingAsString(const ASettingName: String; AValue : String);
+    procedure SetSettingAsString(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : String);
-    procedure SetSettingAsInteger(const ASettingName: String; AValue : Integer);
+    procedure SetSettingAsInteger(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : Integer);
-    procedure SetSettingAsFloat(const ASettingName: String; AValue : Float);
+    procedure SetSettingAsFloat(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : Float);
-    procedure SetSettingAsBoolean(const ASettingName: String; AValue : Boolean);
+    procedure SetSettingAsBoolean(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : Boolean);
 
     constructor Create; override;
     destructor Destroy; override;
@@ -57,7 +61,7 @@ type
 implementation
 
 uses
-  Forms, uEditorConfiguracion, uViewConfiguracionGeneral, uDMBase, 
+  Forms, uEditorConfiguracion, uViewConfiguracionGeneral, uDMBase,
   JvAppStorage, uAppInfoUtils, Controls, uViewConfiguracionRegistryUtils;
 
 const
@@ -121,37 +125,54 @@ begin
     FileName := 'Rodax Software' + PathDelim + GetAppName + PathDelim + CONFIG_INI_FILE;
   end;
 
+  FAppDBStorage := dmConfiguracion;
+
   ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionGeneral, 'General');
 end;
 
 destructor TConfiguracionController.Destroy;
 begin
   FreeANDNIL(FAppXMLFileStorage);
+
+  FAppDBStorage := NIL;
+
   inherited;
 end;
 
-function TConfiguracionController.GetSettingAsBoolean(
+function TConfiguracionController.GetSettingAsBoolean(const AFuente: TEnumAlmacen;
   const ASettingName: String; const ADefaultValue: Boolean): Boolean;
 begin
-  Result := FAppXMLFileStorage.ReadBoolean(ASettingName, ADefaultValue)
+  case AFuente of
+    teXML: Result := FAppXMLFileStorage.ReadBoolean(ASettingName, ADefaultValue);
+    teBD: Result := FAppDBStorage.DarValor(ASettingName);
+  end;
 end;
 
-function TConfiguracionController.GetSettingAsFloat(const ASettingName: String;
+function TConfiguracionController.GetSettingAsFloat(const AFuente: TEnumAlmacen; const ASettingName: String;
   const ADefaultValue: Float): Float;
 begin
-  Result := FAppXMLFileStorage.ReadFloat(ASettingName, ADefaultValue);
+  case AFuente of
+    teXML: Result := FAppXMLFileStorage.ReadFloat(ASettingName, ADefaultValue);
+    teBD: Result := FAppDBStorage.DarValor(ASettingName);
+  end;
 end;
 
-function TConfiguracionController.GetSettingAsInteger(
+function TConfiguracionController.GetSettingAsInteger(const AFuente: TEnumAlmacen;
   const ASettingName: String; const ADefaultValue: Integer): Integer;
 begin
-  Result := FAppXMLFileStorage.ReadInteger(ASettingName, ADefaultValue);
+  case AFuente of
+    teXML: Result := FAppXMLFileStorage.ReadInteger(ASettingName, ADefaultValue);
+    teBD: Result := FAppDBStorage.DarValor(ASettingName);
+  end;
 end;
 
-function TConfiguracionController.GetSettingAsString(const ASettingName,
+function TConfiguracionController.GetSettingAsString(const AFuente: TEnumAlmacen; const ASettingName,
   ADefaultValue: String): String;
 begin
-  Result := FAppXMLFileStorage.ReadString(ASettingName, ADefaultValue);
+  case AFuente of
+    teXML: Result := FAppXMLFileStorage.ReadString(ASettingName, ADefaultValue);
+    teBD: Result := FAppDBStorage.DarValor(ASettingName);
+  end;
 end;
 
 procedure TConfiguracionController.SalvarConfiguracion;
@@ -159,28 +180,40 @@ begin
   FAppXMLFileStorage.Flush;
 end;
 
-procedure TConfiguracionController.SetSettingAsBoolean(
+procedure TConfiguracionController.SetSettingAsBoolean(const AFuente: TEnumAlmacen;
   const ASettingName: String; AValue: Boolean);
 begin
-  FAppXMLFileStorage.WriteBoolean(ASettingName, AValue);
+  case AFuente of
+    teXML: FAppXMLFileStorage.WriteBoolean(ASettingName, AValue);
+    teBD: FAppDBStorage.GuardarValor(ASettingName, AValue);
+  end;
 end;
 
-procedure TConfiguracionController.SetSettingAsFloat(const ASettingName: String;
+procedure TConfiguracionController.SetSettingAsFloat(const AFuente: TEnumAlmacen; const ASettingName: String;
   AValue: Float);
 begin
-  FAppXMLFileStorage.WriteFloat(ASettingName, AValue);
+  case AFuente of
+    teXML: FAppXMLFileStorage.WriteFloat(ASettingName, AValue);
+    teBD: FAppDBStorage.GuardarValor(ASettingName, AValue);
+  end;
 end;
 
-procedure TConfiguracionController.SetSettingAsInteger(
+procedure TConfiguracionController.SetSettingAsInteger(const AFuente: TEnumAlmacen;
   const ASettingName: String; AValue: Integer);
 begin
-  FAppXMLFileStorage.WriteInteger(ASettingName, AValue);
+  case AFuente of
+    teXML: FAppXMLFileStorage.WriteInteger(ASettingName, AValue);
+    teBD: FAppDBStorage.GuardarValor(ASettingName, AValue);
+  end;
 end;
 
-procedure TConfiguracionController.SetSettingAsString(
+procedure TConfiguracionController.SetSettingAsString(const AFuente: TEnumAlmacen;
   const ASettingName: String; AValue: String);
 begin
-  FAppXMLFileStorage.WriteString(ASettingName, AValue);
+  case AFuente of
+    teXML: FAppXMLFileStorage.WriteString(ASettingName, AValue);
+    teBD: FAppDBStorage.GuardarValor(ASettingName, AValue);
+  end;
 end;
 
 

Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dfm

@@ -3,7 +3,7 @@ object fConfiguracionEditor: TfConfiguracionEditor
   Top = 0
   Caption = 'Configuraci'#243'n de FactuGES'
   ClientHeight = 524
-  ClientWidth = 635
+  ClientWidth = 733
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -32,7 +32,7 @@ object fConfiguracionEditor: TfConfiguracionEditor
     TabOrder = 0
     View = 17
     ViewStyle.ColorSchemeName = 'Blue'
-    OptionsBehavior.SideBar.AllowSelectLinks = True
+    OptionsBehavior.Common.AllowSelectLinks = True
     OptionsView.Common.ShowGroupCaptions = False
     OptionsView.NavigationPane.ShowHeader = False
     OptionsView.NavigationPane.ShowOverflowPanel = False
@@ -47,16 +47,17 @@ object fConfiguracionEditor: TfConfiguracionEditor
   object Panel2: TPanel
     Left = 0
     Top = 482
-    Width = 635
+    Width = 733
     Height = 42
     Align = alBottom
     BevelOuter = bvNone
     TabOrder = 1
+    ExplicitWidth = 635
     DesignSize = (
-      635
+      733
       42)
     object bCancelar: TButton
-      Left = 552
+      Left = 650
       Top = 10
       Width = 75
       Height = 25
@@ -65,9 +66,10 @@ object fConfiguracionEditor: TfConfiguracionEditor
       Caption = '&Cancelar'
       ModalResult = 2
       TabOrder = 0
+      ExplicitLeft = 552
     end
     object bAceptar: TButton
-      Left = 471
+      Left = 569
       Top = 10
       Width = 75
       Height = 25
@@ -75,13 +77,14 @@ object fConfiguracionEditor: TfConfiguracionEditor
       Caption = '&Aceptar'
       ModalResult = 1
       TabOrder = 1
+      ExplicitLeft = 471
     end
   end
   object PageControlMain: TPageControl
     AlignWithMargins = True
     Left = 166
     Top = 6
-    Width = 461
+    Width = 559
     Height = 468
     Margins.Left = 4
     Margins.Top = 6
@@ -89,5 +92,6 @@ object fConfiguracionEditor: TfConfiguracionEditor
     Margins.Bottom = 8
     Align = alClient
     TabOrder = 2
+    ExplicitWidth = 461
   end
 end

Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm

@@ -1,17 +1,19 @@
 inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
-  Height = 375
   inherited Panel1: TPanel
+    Width = 424
     inherited Label3: TLabel
-      Width = 429
       Caption = 'Apariencia'
       ExplicitWidth = 63
     end
   end
+  inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
+    Width = 434
+  end
   object Panel2: TPanel
     AlignWithMargins = True
     Left = 5
     Top = 142
-    Width = 441
+    Width = 424
     Height = 22
     Margins.Left = 5
     Margins.Top = 0
@@ -35,11 +37,10 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     ParentBackground = False
     ParentFont = False
     TabOrder = 2
-    ExplicitTop = 109
     object Label2: TLabel
       Left = 6
       Top = 4
-      Width = 429
+      Width = 412
       Height = 14
       Align = alTop
       Caption = 'Seguridad'
@@ -50,7 +51,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     AlignWithMargins = True
     Left = 5
     Top = 68
-    Width = 441
+    Width = 424
     Height = 74
     Margins.Left = 5
     Margins.Top = 0
@@ -91,7 +92,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     AlignWithMargins = True
     Left = 5
     Top = 164
-    Width = 441
+    Width = 424
     Height = 72
     Margins.Left = 5
     Margins.Top = 0
@@ -101,7 +102,6 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     BevelOuter = bvNone
     ParentColor = True
     TabOrder = 4
-    ExplicitTop = 131
     object Label4: TLabel
       Left = 17
       Top = 43
@@ -140,7 +140,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     AlignWithMargins = True
     Left = 5
     Top = 236
-    Width = 441
+    Width = 424
     Height = 22
     Margins.Left = 5
     Margins.Top = 0
@@ -164,11 +164,10 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     ParentBackground = False
     ParentFont = False
     TabOrder = 5
-    ExplicitTop = 203
     object Label5: TLabel
       Left = 6
       Top = 4
-      Width = 429
+      Width = 412
       Height = 14
       Align = alTop
       Caption = 'Usuarios'
@@ -179,7 +178,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     AlignWithMargins = True
     Left = 5
     Top = 258
-    Width = 441
+    Width = 424
     Height = 72
     Margins.Left = 5
     Margins.Top = 0
@@ -189,7 +188,6 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     BevelOuter = bvNone
     ParentColor = True
     TabOrder = 6
-    ExplicitTop = 225
     object lblLongMinPass: TLabel
       Left = 17
       Top = 43

Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.pas

@@ -44,7 +44,7 @@ type
 implementation
 
 uses
-  uFactuGES_App, uDMBase;
+  uFactuGES_App, uDMBase, uConfiguracionController;
 
 {$R *.dfm}
 
@@ -55,11 +55,11 @@ procedure TfrViewConfiguracionGeneral.CargarValores;
   ASkinName : String;}
 begin
   inherited;
-  edtLongMinPass.Text := AppFactuGES.Configuracion.GetSettingAsString('MinPasswordLength', '3');
+  edtLongMinPass.Text := AppFactuGES.Configuracion.GetSettingAsString(teXML, 'MinPasswordLength', '3');
-  edtNumIntentos.Text := AppFactuGES.Configuracion.GetSettingAsString('MaxLoginAttempts', '3');
+  edtNumIntentos.Text := AppFactuGES.Configuracion.GetSettingAsString(teXML, 'MaxLoginAttempts', '3');
-  cbPassObligatoria.Checked := AppFactuGES.Configuracion.GetSettingAsBoolean('ForcePassword', True);
+  cbPassObligatoria.Checked := AppFactuGES.Configuracion.GetSettingAsBoolean(teXML, 'ForcePassword', True);
 
-  cbMostrarMenu.Checked := AppFactuGES.Configuracion.GetSettingAsBoolean('MostrarBarraMenus', True);
+  cbMostrarMenu.Checked := AppFactuGES.Configuracion.GetSettingAsBoolean(teXML, 'MostrarBarraMenus', True);
 
   {cbEsquemaColor.Items.Add('Usar estilo nativo de Windows');
   cbEsquemaColor.Items.AddStrings(dmBase.DarListaSkins);
@@ -86,11 +86,11 @@ procedure TfrViewConfiguracionGeneral.GuardarValores;
   ASkinName : String;}
 begin
   inherited;
-  AppFactuGES.Configuracion.SetSettingAsString('MinPasswordLength', edtLongMinPass.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teXML, 'MinPasswordLength', edtLongMinPass.Text);
-  AppFactuGES.Configuracion.SetSettingAsString('MaxLoginAttempts', edtNumIntentos.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teXML, 'MaxLoginAttempts', edtNumIntentos.Text);
-  AppFactuGES.Configuracion.SetSettingAsBoolean('ForcePassword', cbPassObligatoria.Checked);
+  AppFactuGES.Configuracion.SetSettingAsBoolean(teXML, 'ForcePassword', cbPassObligatoria.Checked);
 
-  AppFactuGES.Configuracion.SetSettingAsBoolean('MostrarBarraMenus', cbMostrarMenu.Checked);
+  AppFactuGES.Configuracion.SetSettingAsBoolean(teXML, 'MostrarBarraMenus', cbMostrarMenu.Checked);
 
   {if cbEsquemaColor.ItemIndex = 0 then
     ASkinName := ''

Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas

@@ -175,7 +175,7 @@ uses
   uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App, Dialogs,
   uDateUtils, uROTypes, DateUtils, Controls, Windows, uIEditorLogin,
   uIEditorUsuarios, uIEditorUsuario, uIEditorPerfilesUsuario,
-  uIEditorPerfilUsuario, uEditorCambiarPassword;
+  uIEditorPerfilUsuario, uEditorCambiarPassword, uConfiguracionController;
 
 { TUsuariosController }
 
@@ -678,9 +678,9 @@ procedure TUsuariosController.RecogerConfiguracion;
 begin
   with FUserControl do
   begin
-    Login.MaxLoginAttempts := AppFactuGES.Configuracion.GetSettingAsInteger('MaxLoginAttempts', 3);
+    Login.MaxLoginAttempts := AppFactuGES.Configuracion.GetSettingAsInteger(teXML, 'MaxLoginAttempts', 3);
-    UserPasswordChange.ForcePassword := AppFactuGES.Configuracion.GetSettingAsBoolean('ForcePassword', True);
+    UserPasswordChange.ForcePassword := AppFactuGES.Configuracion.GetSettingAsBoolean(teXML, 'ForcePassword', True);
-    UserPasswordChange.MinPasswordLength := AppFactuGES.Configuracion.GetSettingAsInteger('MinPasswordLength', 3);
+    UserPasswordChange.MinPasswordLength := AppFactuGES.Configuracion.GetSettingAsInteger(teXML, 'MinPasswordLength', 3);
   end;
 end;
 

Source/Base/Base.dproj

@@ -58,55 +58,55 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/Base/Configuracion/uDataModuleConfiguracion.pas

@@ -4,8 +4,8 @@ interface
 
 uses
   SysUtils, Classes, uRORemoteService, uDADataTable,
-  uDABINAdapter, uROClient, IniFiles,
+  uDABINAdapter, uROClient, IniFiles, Variants,
-  uDADataStreamer;
+  uDADataStreamer, uROTypes;
 
 const
   SERVER_URL = 'http://localhost:8099/bin';
@@ -19,6 +19,7 @@ type
     FIniFile : TIniFile;
   public
     function DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): Variant;
+    procedure GuardarValor(const CODIGO: String; const Valor: Variant);
     procedure LeerConfiguracion;
     procedure SalvarConfiguracion;
     constructor Create(AOwner: TComponent); override;
@@ -33,7 +34,7 @@ implementation
 {$R *.dfm}
 
 uses
-  Forms, FactuGES_Intf, Variants, uDataModuleConexion,
+  Forms, FactuGES_Intf, uDataModuleConexion,
   uSistemaFunc, SHFolder, uAppInfoUtils;
 
 const
@@ -68,6 +69,13 @@ begin
   inherited;
 end;
 
+procedure TdmConfiguracion.GuardarValor(const CODIGO: String; const Valor: Variant);
+begin
+  RORemoteService.Channel := dmConexion.ROChannel;
+  RORemoteService.Message := dmConexion.ROMessage;
+  (RORemoteService as IsrvConfiguracion).GuardarValor(CODIGO, Valor);
+end;
+
 procedure TdmConfiguracion.LeerConfiguracion;
 begin
   with FIniFile do

Source/Cliente/FactuGES.dproj

@@ -51,8 +51,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
       
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 2,4,4,0
+FILEVERSION 2,4,5,0
-PRODUCTVERSION 2,4,4,0
+PRODUCTVERSION 2,4,5,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.4.4.0\0"
+              VALUE "FileVersion", "2.4.5.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "2.4.4.0\0"
+              VALUE "ProductVersion", "2.4.5.0\0"
          END
     END
     BLOCK "VarFileInfo"

Source/GUIBase/GUIBase.dproj

@@ -58,34 +58,34 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\ccpackD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\cxExportD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\dxLayoutControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\dxPScxCommonD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\frx11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\frxe11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\fs11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\JvAppFrmD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\JvGlobusD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\tb2k_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>

Source/Modulos/Articulos/Controller/Articulos_controller.dproj

@@ -54,11 +54,11 @@
     <DelphiCompile Include="Articulos_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Articulos_data.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_data.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Articulos_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
     <DCCReference Include="uArticulosController.pas" />
     <DCCReference Include="uControllerDetallesArticulos.pas" />
     <DCCReference Include="View\uIEditorArticulo.pas" />

Source/Modulos/Articulos/Data/Articulos_data.dproj

@@ -54,7 +54,7 @@
     <DelphiCompile Include="Articulos_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Articulos_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" />
     <DCCReference Include="uDataModuleArticulos.pas">
       <Form>DataModuleArticulos</Form>
     </DCCReference>

Source/Modulos/Contactos/Controller/Contactos_controller.dproj

@@ -53,19 +53,19 @@
     <DelphiCompile Include="Contactos_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contabilidad_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_controller.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_data.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_data.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUISDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\xmlrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="uClientesController.pas" />
     <DCCReference Include="uContactosController.pas" />
     <DCCReference Include="uDireccionesContactoController.pas" />

Source/Modulos/Contactos/Data/Contactos_data.dproj

@@ -49,12 +49,12 @@
     <DelphiCompile Include="Contactos_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
     <DCCReference Include="uDataModuleClientes.pas">
       <Form>DataModuleClientes</Form>
       <DesignClass>TDAClientDataModule</DesignClass>

Source/Modulos/Contactos/Model/Contactos_model.dproj

@@ -49,22 +49,22 @@
     <DelphiCompile Include="Contactos_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\adortl.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Base.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\dbrtl.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\dsnap.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\FormasPago_controller.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\FormasPago_model.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\rtl.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\TiposIVA_controller.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\TiposIVA_model.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\vcl.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\vcldb.dcp" />
     <DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
     <DCCReference Include="Data\uIDataModuleClientes.pas" />
     <DCCReference Include="Data\uIDataModuleContactos.pas" />
     <DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />

Source/Modulos/Contactos/Model/uBizContactos.pas

@@ -435,7 +435,7 @@ implementation
 
 
 uses
-  uDataTableUtils, Classes, DateUtils, SysUtils, uFactuGES_App,
+  uDataTableUtils, Classes, DateUtils, SysUtils, uFactuGES_App, uConfiguracionController,
   uBizEmpresasTiendas, uBizTiposIVA, uBizFormasPago;
 
 const
@@ -741,7 +741,7 @@ begin
   ID_CATEGORIA := CATEGORIA_CLIENTE;
   BLOQUEADO := 0;
   RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;
-  REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString('Clientes.RegimenIVA', CLIENTE_REGIMEN_IVA);
+  REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Clientes.RegimenIVA', CLIENTE_REGIMEN_IVA);
 
   //CONTABILIDAD
   if Assigned(AppFactuGES.EjercicioActivo) then
@@ -826,7 +826,7 @@ procedure TBizProveedor.IniciarValoresContactoNuevo;
 begin
   inherited;
   ID_CATEGORIA := CATEGORIA_PROVEEDOR;
-  REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString('Proveedores.RegimenIVA', PROVEEDOR_REGIMEN_IVA);
+  REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Proveedores.RegimenIVA', PROVEEDOR_REGIMEN_IVA);
 
   //CONTABILIDAD
   if Assigned(AppFactuGES.EjercicioActivo) then

Source/Modulos/Contactos/Views/Contactos_view.dproj

@@ -47,40 +47,40 @@
     <DelphiCompile Include="Contactos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Recibos de cliente\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\bdertl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\Contactos_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\Contactos_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\FormasPago_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\FormasPago_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\GUISDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\JvGlobusD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\TiposIVA_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\TiposIVA_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\xmlrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="uContactosViewRegister.pas" />
     <DCCReference Include="uEditorCliente.pas">
       <Form>fEditorCliente</Form>

Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm

@@ -1,20 +1,20 @@
 inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
-  Width = 547
+  ExplicitWidth = 547
-  Height = 411
+  ExplicitHeight = 411
   inherited Panel1: TPanel
     Width = 537
     ExplicitTop = 49
     ExplicitWidth = 537
     inherited Label3: TLabel
-      Width = 525
+      Width = 166
       Caption = 'Configuraci'#243'n para clientes'
-      ExplicitTop = 5
+      ExplicitWidth = 166
-      ExplicitWidth = 525
     end
   end
   inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
     Width = 547
     LabelCaption = 'Configuraci'#243'n para contactos'
+    ExplicitWidth = 547
   end
   object Panel3: TPanel
     AlignWithMargins = True
@@ -64,7 +64,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
       Width = 168
       Height = 21
       Style = csDropDownList
-      ItemHeight = 13
+      ItemHeight = 0
       TabOrder = 0
     end
     object cbRegimenIVA: TComboBox
@@ -73,7 +73,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
       Width = 168
       Height = 21
       Style = csDropDownList
-      ItemHeight = 13
+      ItemHeight = 0
       TabOrder = 1
     end
     object bFormasPago: TButton
@@ -100,7 +100,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
       Width = 168
       Height = 21
       Style = csDropDownList
-      ItemHeight = 13
+      ItemHeight = 0
       TabOrder = 4
     end
   end
@@ -108,7 +108,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
     AlignWithMargins = True
     Left = 5
     Top = 223
-    Width = 537
+    Width = 424
     Height = 130
     Margins.Left = 5
     Margins.Top = 0
@@ -118,6 +118,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
     BevelOuter = bvNone
     ParentColor = True
     TabOrder = 3
+    ExplicitWidth = 537
     object Label7: TLabel
       Left = 17
       Top = 37
@@ -152,7 +153,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
       Width = 168
       Height = 21
       Style = csDropDownList
-      ItemHeight = 13
+      ItemHeight = 0
       TabOrder = 0
     end
     object cbRegimenIVAProv: TComboBox
@@ -161,7 +162,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
       Width = 168
       Height = 21
       Style = csDropDownList
-      ItemHeight = 13
+      ItemHeight = 0
       TabOrder = 1
     end
     object Button1: TButton
@@ -188,7 +189,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
       Width = 168
       Height = 21
       Style = csDropDownList
-      ItemHeight = 13
+      ItemHeight = 0
       TabOrder = 4
     end
   end
@@ -196,7 +197,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
     AlignWithMargins = True
     Left = 5
     Top = 201
-    Width = 537
+    Width = 424
     Height = 22
     Margins.Left = 5
     Margins.Top = 0
@@ -222,14 +223,14 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
     TabOrder = 4
     ExplicitLeft = -1
     ExplicitTop = 239
+    ExplicitWidth = 537
     object Label6: TLabel
       Left = 6
       Top = 4
-      Width = 525
+      Width = 196
       Height = 14
       Align = alTop
       Caption = 'Configuraci'#243'n para proveedores'
-      ExplicitWidth = 196
     end
   end
 end

Source/Modulos/Contactos/Views/uViewConfiguracionContactos.pas

@@ -52,7 +52,7 @@ implementation
 {$R *.dfm}
 
 uses
-  uRegimenIVAUtils, uFactuGES_App;
+  uRegimenIVAUtils, uFactuGES_App, uConfiguracionController;
 
 { TfrViewConfiguracionBase1 }
 
@@ -89,14 +89,14 @@ begin
   cbIVA.Items := FTiposIVAController.DarListaTiposIVA;
   cbTipoIVAProv.Items := cbIVA.Items;
 
-  cbRegimenIVA.ItemIndex := cbRegimenIVA.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Clientes.RegimenIVA', cbRegimenIVA.Items[0]));
+  cbRegimenIVA.ItemIndex := cbRegimenIVA.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Clientes.RegimenIVA', cbRegimenIVA.Items[0]));
-  cbRegimenIVAProv.ItemIndex := cbRegimenIVAProv.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Proveedores.RegimenIVA', cbRegimenIVAProv.Items[0]));
+  cbRegimenIVAProv.ItemIndex := cbRegimenIVAProv.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Proveedores.RegimenIVA', cbRegimenIVAProv.Items[0]));
 
-  cbFormaPago.ItemIndex := cbFormaPago.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Clientes.FormaPago', cbFormaPago.Items[0]));
+  cbFormaPago.ItemIndex := cbFormaPago.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Clientes.FormaPago', cbFormaPago.Items[0]));
-  cbFormaPagoProv.ItemIndex := cbFormaPagoProv.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Proveedores.FormaPago', cbFormaPagoProv.Items[0]));
+  cbFormaPagoProv.ItemIndex := cbFormaPagoProv.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Proveedores.FormaPago', cbFormaPagoProv.Items[0]));
 
-  cbIVA.ItemIndex := cbIVA.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Clientes.TipoIVA'));
+  cbIVA.ItemIndex := cbIVA.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString(teXML,'Clientes.TipoIVA'));
-  cbTipoIVAProv.ItemIndex := cbTipoIVAProv.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Proveedores.TipoIVA'));
+  cbTipoIVAProv.ItemIndex := cbTipoIVAProv.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString(teXML,'Proveedores.TipoIVA'));
 end;
 
 constructor TfrViewConfiguracionContactos.Create(AOwner: TComponent);
@@ -126,13 +126,13 @@ end;
 procedure TfrViewConfiguracionContactos.GuardarValores;
 begin
   inherited;
-  AppFactuGES.Configuracion.SetSettingAsString('Clientes.RegimenIVA', cbRegimenIVA.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teXML,'Clientes.RegimenIVA', cbRegimenIVA.Text);
-  AppFactuGES.Configuracion.SetSettingAsString('Clientes.FormaPago', cbFormaPago.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teXML,'Clientes.FormaPago', cbFormaPago.Text);
-  AppFactuGES.Configuracion.SetSettingAsString('Clientes.TipoIVA', cbIVA.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teXML,'Clientes.TipoIVA', cbIVA.Text);
 
-  AppFactuGES.Configuracion.SetSettingAsString('Proveedores.RegimenIVA', cbRegimenIVAProv.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teXML,'Proveedores.RegimenIVA', cbRegimenIVAProv.Text);
-  AppFactuGES.Configuracion.SetSettingAsString('Proveedores.FormaPago', cbFormaPagoProv.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teXML,'Proveedores.FormaPago', cbFormaPagoProv.Text);
-  AppFactuGES.Configuracion.SetSettingAsString('Proveedores.TipoIVA', cbTipoIVAProv.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teXML,'Proveedores.TipoIVA', cbTipoIVAProv.Text);
 
 end;
 

Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas

@@ -3,7 +3,7 @@ unit schContratosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -251,7 +251,7 @@ type
   end;
 
   { TValoresDataTableRules }
-  TValoresDataTableRules = class(TDADataTableRules, IValores)
+  TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
   private
   protected
     { Property getters and setters }
@@ -310,7 +310,7 @@ type
   end;
 
   { TPropiedadesDataTableRules }
-  TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
+  TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
   private
   protected
     { Property getters and setters }
@@ -357,7 +357,7 @@ type
   end;
 
   { TListaAnosContratosDataTableRules }
-  TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
+  TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
   private
   protected
     { Property getters and setters }
@@ -452,7 +452,7 @@ type
   end;
 
   { TContratosClienteBeneficiosDataTableRules }
-  TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
+  TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
   private
   protected
     { Property getters and setters }
@@ -807,7 +807,7 @@ type
   end;
 
   { TContratosClienteDataTableRules }
-  TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
+  TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
   private
     f_FORMA_PAGO: IROStrings;
     f_PLAZO_ENTREGA: IROStrings;
@@ -1143,7 +1143,7 @@ type
   end;
 
   { TTiposCapitulosDataTableRules }
-  TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
+  TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
   private
   protected
     { Property getters and setters }
@@ -1292,7 +1292,7 @@ type
   end;
 
   { TContratosCliente_DetallesDataTableRules }
-  TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
+  TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
   private
   protected
     { Property getters and setters }

Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm

@@ -176,6 +176,31 @@ object RptContratosCliente: TRptContratosCliente
             DataType = datCurrency
           end>
       end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            Name = 'IBX'
+            SQL = 
+              'SELECT VALOR_BLOB'#10'FROM CONFIGURACION'#10'WHERE CODIGO = '#39'CONDICIONES' +
+              '_COCINA'#39#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'VALOR_BLOB'
+                TableField = 'VALOR_BLOB'
+              end>
+          end>
+        Name = 'Informe_Condiciones'
+        Fields = <
+          item
+            Name = 'VALOR_BLOB'
+            DataType = datBlob
+          end>
+      end
       item
         Params = <
           item
@@ -812,7 +837,7 @@ object RptContratosCliente: TRptContratosCliente
     PrintOptions.Printer = 'Por defecto'
     PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 39065.872423495400000000
-    ReportOptions.LastChange = 40071.577940347220000000
+    ReportOptions.LastChange = 40420.450887569440000000
     ScriptLanguage = 'PascalScript'
     ShowProgress = False
     StoreInDFM = False
@@ -1494,4 +1519,40 @@ object RptContratosCliente: TRptContratosCliente
     Left = 440
     Top = 128
   end
+  object frxDBCondiciones: TfrxDBDataset
+    UserName = 'frxDBCondiciones'
+    CloseDataSource = False
+    DataSource = DADSCondiciones
+    BCDToCurrency = False
+    Left = 352
+    Top = 192
+  end
+  object DADSCondiciones: TDADataSource
+    DataSet = tbl_Condiciones.Dataset
+    DataTable = tbl_Condiciones
+    Left = 352
+    Top = 248
+  end
+  object tbl_Condiciones: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'VALOR_BLOB'
+        DataType = datBlob
+      end>
+    Params = <>
+    MasterMappingMode = mmWhere
+    MasterParamsMappings.Strings = (
+      'ID_PRESUPUESTO=ID')
+    LogChanges = False
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    LocalSchema = schReport
+    LocalDataStreamer = DABin2DataStreamer1
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moAllInOneFetch]
+    LogicalName = 'Informe_Condiciones'
+    IndexDefs = <>
+    Left = 352
+    Top = 304
+  end
 end

Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas

@@ -66,6 +66,9 @@ type
     cabeceraCODIGO_POSTAL: TIBStringField;
     schReport: TDASchema;
     DataDictionary: TDADataDictionary;
+    frxDBCondiciones: TfrxDBDataset;
+    DADSCondiciones: TDADataSource;
+    tbl_Condiciones: TDAMemDataTable;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
     function frxReportUserFunction(const MethodName: string;
@@ -397,6 +400,7 @@ begin
   tbl_Cabecera.Active := False;
   tbl_Capitulos.Active := False;
   tbl_Detalles.Active := False;
+  tbl_Condiciones.Active := False;
 
   FreeANDNIL(FListaNombresClientes);
 end;
@@ -515,6 +519,7 @@ begin
     tbl_Cabecera.Active := False;
     tbl_Capitulos.Active := False;
     tbl_Detalles.Active := False;
+    tbl_Condiciones.Active := False;    
 
     tbl_Cabecera.ParamByName('ID').AsInteger := AID;
     tbl_Capitulos.ParamByName('ID_PRE_CON').AsInteger := AID;
@@ -526,6 +531,7 @@ begin
     tbl_Cabecera.Active := True;
     tbl_Capitulos.Active := True;
     tbl_Detalles.Active := True;
+    tbl_Condiciones.Active := True;    
 
     AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
     if VarIsNull(AInforme) then

Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas

@@ -3,7 +3,7 @@ unit schFacturasProveedorClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -181,7 +181,7 @@ type
   end;
 
   { TListaAnosFacturasDataTableRules }
-  TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
+  TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
   private
   protected
     { Property getters and setters }
@@ -252,7 +252,7 @@ type
   end;
 
   { TFacturasProveedor_ContratosDataTableRules }
-  TFacturasProveedor_ContratosDataTableRules = class(TDADataTableRules, IFacturasProveedor_Contratos)
+  TFacturasProveedor_ContratosDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Contratos)
   private
   protected
     { Property getters and setters }
@@ -568,7 +568,7 @@ type
   end;
 
   { TFacturasProveedorDataTableRules }
-  TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor)
+  TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor)
   private
     f_OBSERVACIONES: IROStrings;
     procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -928,7 +928,7 @@ type
   end;
 
   { TFacturasProveedor_DetallesDataTableRules }
-  TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles)
+  TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles)
   private
   protected
     { Property getters and setters }

Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas

@@ -10,7 +10,42 @@ uses
   uBizPresupuestosCliente, uBizDireccionesContacto, uBizDetallesPresupuestoCliente,
   uIntegerListUtils;
 
+const
+  CTE_COCINA = 'Cocina';
+  CTE_BANO = 'Baño';
+  CTE_ARMARIO = 'Armarios';
+  CTE_ELECTRODOMESTICO = 'Electrodomésticos';
+  CTE_VARIOS = 'Varios';
+
+
+  CTE_FORMA_PAGO_COCINA = 'FORMA_PAGO_COCINA';
+  CTE_PLAZOS_ENTREGA_COCINA = 'PLAZOS_ENTREGA_COCINA';
+  CTE_OBSERVACIONES_COCINA = 'OBSERVACIONES_COCINA';
+  CTE_CONDICIONES_COCINA = 'CONDICIONES_COCINA';
+
+  CTE_FORMA_PAGO_ARMARIO = 'FORMA_PAGO_ARMARIO';
+  CTE_PLAZOS_ENTREGA_ARMARIO = 'PLAZOS_ENTREGA_ARMARIO';
+  CTE_OBSERVACIONES_ARMARIO = 'OBSERVACIONES_ARMARIO';
+  CTE_CONDICIONES_ARMARIO = 'CONDICIONES_ARMARIO';
+
+  CTE_FORMA_PAGO_BANO = 'FORMA_PAGO_BANO';
+  CTE_PLAZOS_ENTREGA_BANO = 'PLAZOS_ENTREGA_BANO';
+  CTE_OBSERVACIONES_BANO = 'OBSERVACIONES_BANO';
+  CTE_CONDICIONES_BANO = 'CONDICIONES_BANO';
+
+  CTE_FORMA_PAGO_ELECTRODOMESTICO = 'FORMA_PAGO_ELECTRODOMESTICO';
+  CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO = 'PLAZOS_ENTREGA_ELECTRODOMESTICO';
+  CTE_OBSERVACIONES_ELECTRODOMESTICO = 'OBSERVACIONES_ELECTRODOMESTICO';
+  CTE_CONDICIONES_ELECTRODOMESTICO = 'CONDICIONES_ELECTRODOMESTICO';
+
+  CTE_FORMA_PAGO_VARIOS = 'FORMA_PAGO_VARIOS';
+  CTE_PLAZOS_ENTREGA_VARIOS = 'PLAZOS_ENTREGA_VARIOS';
+  CTE_OBSERVACIONES_VARIOS = 'OBSERVACIONES_VARIOS';
+  CTE_CONDICIONES_VARIOS = 'CONDICIONES_VARIOS';
+
 type
+  TEnumTiposPresupuesto = (teCocina, teArmario, teBano, teElectrodomestico, teVarios);
+
   IPresupuestosClienteController = interface(IControllerBase)
   ['{21ED0332-F0E0-468D-8D53-8CA362757191}']
     function GetClienteController: IClientesController;
@@ -39,7 +74,7 @@ type
       const AHeaderText: String = '');
     procedure VerDireccionEntrega(APresupuesto : IBizPresupuestoCliente);
     function Nuevo : IBizPresupuestoCliente;
-    function Anadir(APresupuesto : IBizPresupuestoCliente) : Boolean;
+    function Anadir(APresupuesto : IBizPresupuestoCliente; ATipo: TEnumTiposPresupuesto) : Boolean;
     function Eliminar(const ID : Integer): Boolean; overload;
     function Eliminar(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean; overload;
     function Guardar(APresupuesto : IBizPresupuestoCliente): Boolean;
@@ -108,7 +143,7 @@ type
     function Guardar(APresupuesto : IBizPresupuestoCliente): Boolean;
     procedure DescartarCambios(APresupuesto : IBizPresupuestoCliente); virtual;
     function Existe(const ID: Integer) : Boolean; virtual;
-    function Anadir(APresupuesto : IBizPresupuestoCliente) : Boolean;
+    function Anadir(APresupuesto : IBizPresupuestoCliente; ATipo: TEnumTiposPresupuesto) : Boolean;
     function Buscar(const ListaID: TIntegerList): IBizPresupuestoCliente; overload;
     function Buscar(const ID: Integer): IBizPresupuestoCliente; overload;
     function BuscarTodos: IBizPresupuestoCliente; overload;
@@ -145,7 +180,7 @@ implementation
 uses
   Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
   uIEditorPresupuestosCliente, uDataModulePresupuestosCliente, Variants,
-  uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
+  uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uConfiguracionController,
   schPresupuestosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPresupuestoCliente,
   uIEditorElegirPresupuestosCliente, uIEditorDireccionEntregaPresupuestoCliente,
   schContactosClient_Intf, uPresupuestosClienteReportController,
@@ -153,11 +188,54 @@ uses
 
 { TPresupuestosClienteController }
 
-function TPresupuestosClienteController.Anadir(APresupuesto: IBizPresupuestoCliente): Boolean;
+function TPresupuestosClienteController.Anadir(APresupuesto: IBizPresupuestoCliente; ATipo: TEnumTiposPresupuesto): Boolean;
 begin
   if not Assigned(APresupuesto) then
     raise Exception.Create ('Presupuesto no asignado (Anadir)');
   APresupuesto.Insert;
+
+  case ATipo of
+    teCocina: begin
+      APresupuesto.TIPO_PRESUPUESTO := CTE_COCINA;
+      APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_COCINA));
+      APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_COCINA));
+      APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_COCINA));
+      (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA ', False, APresupuesto.Detalles);
+      (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles);
+      (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, APresupuesto.Detalles);
+    end;
+    teArmario:begin
+      APresupuesto.TIPO_PRESUPUESTO := CTE_ARMARIO;
+      APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ARMARIO));
+      APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ARMARIO));
+      APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ARMARIO));
+      (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, APresupuesto.Detalles);
+      (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', False, APresupuesto.Detalles);
+    end;
+    teBano: begin
+      APresupuesto.TIPO_PRESUPUESTO := CTE_BANO;
+      APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_BANO));
+      APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_BANO));
+      APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_BANO));
+      (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_B,  'MUEBLE DE BAÑO Nº ', False, APresupuesto.Detalles);
+      (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles);
+    end;
+    teElectrodomestico: begin
+      APresupuesto.TIPO_PRESUPUESTO := CTE_ELECTRODOMESTICO;
+      APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ELECTRODOMESTICO));
+      APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO));
+      APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ELECTRODOMESTICO));
+      (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_E,  'ELECTRODOMÉSTICOS ', False, APresupuesto.Detalles);
+    end;
+    teVarios: begin
+      APresupuesto.TIPO_PRESUPUESTO := CTE_VARIOS;
+      APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_VARIOS));
+      APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_VARIOS));
+      APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_VARIOS));
+      (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V,  'VARIOS ', False, APresupuesto.Detalles);
+    end;
+  end;
+
   Result := True;
 end;
 

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk

@@ -31,7 +31,28 @@ requires
   PresupuestosCliente_controller,
   Articulos_view,
   GestorInformes_controller,
-  PreCli_ConCli_relation;
+  PreCli_ConCli_relation,
+  rtl,
+  vcl,
+  JvCoreD11R,
+  vcldb,
+  dbrtl,
+  vcljpg,
+  vclx,
+  Jcl,
+  JclVcl,
+  JvMMD11R,
+  JvStdCtrlsD11R,
+  JvSystemD11R,
+  JvCtrlsD11R,
+  cxLibraryD11,
+  dxThemeD11,
+  dxGDIPlusD11,
+  dxCoreD11,
+  cxEditorsD11,
+  cxDataD11,
+  cxExtEditorsD11,
+  ApplicationBase;
 
 contains
   uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
@@ -49,6 +70,11 @@ contains
   uEditorAsignarDescuento in 'uEditorAsignarDescuento.pas' {fEditorAsignarDescuento},
   uEditorFechaDecisionPresupuesto in 'uEditorFechaDecisionPresupuesto.pas' {fEditorFechaDecisionPresupuesto},
   uViewTotalesPresupuesto in 'uViewTotalesPresupuesto.pas' {frViewTotalesPresupuesto: TFrame},
-  uViewPresupuestoCliente in 'uViewPresupuestoCliente.pas' {frViewPresupuestoCliente: TFrame};
+  uViewPresupuestoCliente in 'uViewPresupuestoCliente.pas' {frViewPresupuestoCliente: TFrame},
+  uViewConfiguracionDocArmario in 'uViewConfiguracionDocArmario.pas' {frViewConfiguracionDocArmario: TFrame},
+  uViewConfiguracionDocBano in 'uViewConfiguracionDocBano.pas' {frViewConfiguracionDocBano: TFrame},
+  uViewConfiguracionDocCocina in 'uViewConfiguracionDocCocina.pas' {frViewConfiguracionDocCocina: TFrame},
+  uViewConfiguracionDocElectrodomestico in 'uViewConfiguracionDocElectrodomestico.pas' {frViewConfiguracionDocElectrodomestico: TFrame},
+  uViewConfiguracionDocVarios in 'uViewConfiguracionDocVarios.pas' {frViewConfiguracionDocVarios: TFrame};
 
 end.

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj

@@ -49,13 +49,30 @@
     <DelphiCompile Include="PresupuestosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
+    <DCCReference Include="ApplicationBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="Articulos_view.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
+    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="cxDataD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PreCli_ConCli_relation.dcp" />
+    <DCCReference Include="cxEditorsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="cxExtEditorsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_model.dcp" />
+    <DCCReference Include="cxLibraryD11.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="dxCoreD11.dcp" />
+    <DCCReference Include="dxGDIPlusD11.dcp" />
+    <DCCReference Include="dxThemeD11.dcp" />
+    <DCCReference Include="GestorInformes_controller.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="Jcl.dcp" />
+    <DCCReference Include="JclVcl.dcp" />
+    <DCCReference Include="JvCoreD11R.dcp" />
+    <DCCReference Include="JvCtrlsD11R.dcp" />
+    <DCCReference Include="JvMMD11R.dcp" />
+    <DCCReference Include="JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="JvSystemD11R.dcp" />
+    <DCCReference Include="PreCli_ConCli_relation.dcp" />
+    <DCCReference Include="PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="PresupuestosCliente_model.dcp" />
+    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="uEditorAsignarDescuento.pas">
       <Form>fEditorAsignarDescuento</Form>
     </DCCReference>
@@ -83,6 +100,26 @@
       <DesignClass>TfEditorPedidosClientePreview</DesignClass>
     </DCCReference>
     <DCCReference Include="uPresupuestosClienteViewRegister.pas" />
+    <DCCReference Include="uViewConfiguracionDocArmario.pas">
+      <Form>frViewPresupuestoCliente</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewConfiguracionDocBano.pas">
+      <Form>frViewConfiguracionDocBano</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewConfiguracionDocCocina.pas">
+      <Form>frViewConfiguracionDocCocina</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewConfiguracionDocElectrodomestico.pas">
+      <Form>frViewConfiguracionDocElectrodomestico</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewConfiguracionDocVarios.pas">
+      <Form>frViewConfiguracionDocVarios</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewDatosYSeleccionClientePresupuesto.pas">
       <Form>frViewDatosYSeleccionClientePresupuesto</Form>
       <DesignClass>TFrame</DesignClass>
@@ -115,6 +152,10 @@
       <Form>frViewTotalesPresupuesto</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vcljpg.dcp" />
+    <DCCReference Include="vclx.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm

@@ -2,7 +2,6 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
   Caption = 'Lista de presupuestos de cliente'
   ClientWidth = 805
   ExplicitWidth = 813
-  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -126,7 +125,32 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
     ExplicitWidth = 805
     inherited tbxMain: TTBXToolbar
       ExplicitWidth = 775
-      object TBXItem47: TTBXItem [13]
+      object TBXSubmenuItem3: TTBXSubmenuItem [0]
+        Caption = 'Nuevo'
+        DisplayMode = nbdmImageAndText
+        ImageIndex = 22
+        object bCocina: TTBXItem
+          Caption = 'Presupuesto de cocina'
+          OnClick = bCocinaClick
+        end
+        object bArmario: TTBXItem
+          Caption = 'Presupuesto de armario'
+          OnClick = bArmarioClick
+        end
+        object bBano: TTBXItem
+          Caption = 'Presupuesto de ba'#241'o'
+          OnClick = bBanoClick
+        end
+        object bElectrodomestico: TTBXItem
+          Caption = 'Presupuesto de electrodom'#233'stico'
+          OnClick = bElectrodomesticoClick
+        end
+        object bVarios: TTBXItem
+          Caption = 'Presupuesto de varios'
+          OnClick = bVariosClick
+        end
+      end
+      object TBXItem47: TTBXItem [14]
         Action = actEnviarEMail
         DisplayMode = nbdmImageAndText
       end
@@ -195,7 +219,9 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
   end
   inherited EditorActionList: TActionList
     inherited actNuevo: TAction
+      Enabled = False
       ImageIndex = 22
+      Visible = False
     end
     inherited actPrevisualizar: TAction
       Visible = True

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas

@@ -47,6 +47,12 @@ type
     Aceptar1: TMenuItem;
     Anular1: TMenuItem;
     N3: TMenuItem;
+    TBXSubmenuItem3: TTBXSubmenuItem;
+    bVarios: TTBXItem;
+    bElectrodomestico: TTBXItem;
+    bBano: TTBXItem;
+    bArmario: TTBXItem;
+    bCocina: TTBXItem;
     procedure FormShow(Sender: TObject);
     procedure actGenerarAlbaranCliExecute(Sender: TObject);
     procedure actEliminarUpdate(Sender: TObject);
@@ -61,6 +67,11 @@ type
     procedure actEnviarEMailUpdate(Sender: TObject);
     procedure actInformesExecute(Sender: TObject);
     procedure OnListaAnosChange(Sender: TObject; const Text: string);
+    procedure bCocinaClick(Sender: TObject);
+    procedure bArmarioClick(Sender: TObject);
+    procedure bBanoClick(Sender: TObject);
+    procedure bElectrodomesticoClick(Sender: TObject);
+    procedure bVariosClick(Sender: TObject);
 
   protected
     FPresupuestos: IBizPresupuestoCliente;
@@ -269,6 +280,41 @@ begin
   ViewGrid := CreateView(TfrViewPresupuestosCliente) as IViewPresupuestosCliente;
 end;
 
+procedure TfEditorPresupuestosCliente.bArmarioClick(Sender: TObject);
+begin
+  inherited;
+  if FController.Anadir(Presupuestos, teArmario) then
+     FController.Ver(Presupuestos);
+end;
+
+procedure TfEditorPresupuestosCliente.bBanoClick(Sender: TObject);
+begin
+  inherited;
+  if FController.Anadir(Presupuestos, teBano) then
+     FController.Ver(Presupuestos);
+end;
+
+procedure TfEditorPresupuestosCliente.bCocinaClick(Sender: TObject);
+begin
+  inherited;
+  if FController.Anadir(Presupuestos, teCocina) then
+     FController.Ver(Presupuestos);
+end;
+
+procedure TfEditorPresupuestosCliente.bElectrodomesticoClick(Sender: TObject);
+begin
+  inherited;
+  if FController.Anadir(Presupuestos, teElectrodomestico) then
+     FController.Ver(Presupuestos);
+end;
+
+procedure TfEditorPresupuestosCliente.bVariosClick(Sender: TObject);
+begin
+  inherited;
+  if FController.Anadir(Presupuestos, teVarios) then
+     FController.Ver(Presupuestos);
+end;
+
 procedure TfEditorPresupuestosCliente.CambiarSituacion(
   const ASituacion: String);
 var
@@ -483,7 +529,7 @@ end;
 procedure TfEditorPresupuestosCliente.NuevoInterno;
 begin
   inherited;
-  if FController.Anadir(Presupuestos) then
+  if FController.Anadir(Presupuestos, teCocina) then
      FController.Ver(Presupuestos);
 end;
 

Source/Modulos/Presupuestos de cliente/Views/uPresupuestosClienteViewRegister.pas

@@ -8,6 +8,9 @@ procedure UnregisterViews;
 implementation
 
 uses
+  uViewConfiguracionRegistryUtils, 
+  uViewConfiguracionDocCocina, uViewConfiguracionDocArmario, uViewConfiguracionDocBano,
+  uViewConfiguracionDocElectrodomestico, uViewConfiguracionDocVarios,
   uEditorRegistryUtils, uEditorPresupuestosCliente, uEditorPresupuestoCliente, uEditorElegirPresupuestosCliente,
   uEditorElegirArticulosPresupuestoCliente, uEditorPresupuestosClienteReport, uEditorAsignarDescuento;
 
@@ -19,6 +22,12 @@ begin
   EditorRegistry.RegisterClass(TfEditorElegirArticulosPresupuestoCliente, 'EditorElegirArticulosPresupuestosCliente');
   EditorRegistry.RegisterClass(TfEditorPresupuestosClientePreview, 'EditorPresupuestosClientePreview');
   EditorRegistry.RegisterClass(TfEditorAsignarDescuento, 'EditorAsignarDescuento');
+
+  ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionDocCocina, 'Documento Cocina');
+  ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionDocArmario, 'Documento Armario');
+  ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionDocBano, 'Documento Baño');
+  ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionDocElectrodomestico, 'Documento Electrodoméstico');
+  ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionDocVarios, 'Documento Varios');
 end;
 
 procedure UnregisterViews;
@@ -28,7 +37,13 @@ begin
   EditorRegistry.UnRegisterClass(TfEditorElegirPresupuestosCliente);
   EditorRegistry.UnRegisterClass(TfEditorElegirArticulosPresupuestoCliente);
   EditorRegistry.UnRegisterClass(TfEditorPresupuestosClientePreview);
-  EditorRegistry.UnRegisterClass(TfEditorAsignarDescuento);  
+  EditorRegistry.UnRegisterClass(TfEditorAsignarDescuento);
+
+  ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionDocCocina);
+  ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionDocArmario);
+  ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionDocBano);
+  ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionDocElectrodomestico);
+  ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionDocVarios);
 end;
 
 end.

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.dfm

@@ -0,0 +1,83 @@
+inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
+  object Label1: TLabel [0]
+    Left = 11
+    Top = 79
+    Width = 76
+    Height = 13
+    Caption = 'Forma de pago:'
+  end
+  object Label2: TLabel [1]
+    Left = 11
+    Top = 204
+    Width = 90
+    Height = 13
+    Caption = 'Plazos de entrega:'
+  end
+  object Label4: TLabel [2]
+    Left = 11
+    Top = 326
+    Width = 75
+    Height = 13
+    Caption = 'Observaciones:'
+  end
+  inherited Panel1: TPanel
+    Width = 530
+    TabOrder = 2
+    ExplicitWidth = 530
+    inherited Label3: TLabel
+      Width = 518
+    end
+  end
+  inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
+    Width = 540
+    LabelCaption = 'Configuraci'#243'n docimento armario'
+    ExplicitWidth = 540
+  end
+  object eCondiciones: TcxRichEdit
+    Left = 11
+    Top = 448
+    Properties.ScrollBars = ssVertical
+    Lines.Strings = (
+      'eCondiciones')
+    TabOrder = 0
+    Visible = False
+    Height = 57
+    Width = 529
+  end
+  object ePlazosEntrega: TMemo
+    Left = 11
+    Top = 225
+    Width = 529
+    Height = 90
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    ScrollBars = ssVertical
+    TabOrder = 3
+  end
+  object eFormaPago: TMemo
+    Left = 11
+    Top = 100
+    Width = 529
+    Height = 90
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    ScrollBars = ssVertical
+    TabOrder = 4
+  end
+  object eObservaciones: TMemo
+    Left = 11
+    Top = 346
+    Width = 529
+    Height = 90
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    ScrollBars = ssVertical
+    TabOrder = 5
+  end
+end

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.pas

@@ -0,0 +1,68 @@
+unit uViewConfiguracionDocArmario;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
+  cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls;
+
+type
+  TfrViewConfiguracionDocArmario = class(TfrViewConfiguracionBase)
+    eCondiciones: TcxRichEdit;
+    ePlazosEntrega: TMemo;
+    eFormaPago: TMemo;
+    eObservaciones: TMemo;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label4: TLabel;
+  public
+    class function GetViewClass : TClass; override;
+    class function DarEtiqueta : String; override;
+    procedure CargarValores; override;
+    procedure GuardarValores; override;
+  end;
+
+var
+  frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario;
+
+implementation
+{$R *.dfm}
+{ TfrViewConfiguracionDocARMARIO }
+
+uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
+
+procedure TfrViewConfiguracionDocArmario.CargarValores;
+begin
+  inherited;
+  eFormaPago.Lines.Clear;
+  eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ARMARIO);
+  ePlazosEntrega.Lines.Clear;
+  ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ARMARIO);
+  eObservaciones.Lines.Clear;
+  eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ARMARIO);
+  eCondiciones.Lines.Clear;
+  eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ARMARIO);
+end;
+
+class function TfrViewConfiguracionDocArmario.DarEtiqueta: String;
+begin
+  Result := 'Documentos armario';
+end;
+
+class function TfrViewConfiguracionDocArmario.GetViewClass: TClass;
+begin
+  Result := TfrViewConfiguracionDocARMARIO;
+end;
+
+procedure TfrViewConfiguracionDocArmario.GuardarValores;
+begin
+  inherited;
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO, eFormaPago.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO, ePlazosEntrega.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO, eObservaciones.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO, eCondiciones.Text);
+end;
+
+
+end.

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.dfm

@@ -0,0 +1,83 @@
+inherited frViewConfiguracionDocBano: TfrViewConfiguracionDocBano
+  object Label1: TLabel [0]
+    Left = 11
+    Top = 79
+    Width = 76
+    Height = 13
+    Caption = 'Forma de pago:'
+  end
+  object Label2: TLabel [1]
+    Left = 11
+    Top = 204
+    Width = 90
+    Height = 13
+    Caption = 'Plazos de entrega:'
+  end
+  object Label4: TLabel [2]
+    Left = 11
+    Top = 326
+    Width = 75
+    Height = 13
+    Caption = 'Observaciones:'
+  end
+  inherited Panel1: TPanel
+    Width = 530
+    TabOrder = 2
+    ExplicitWidth = 530
+    inherited Label3: TLabel
+      Width = 518
+    end
+  end
+  inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
+    Width = 540
+    LabelCaption = 'Configuraci'#243'n docimento ba'#241'o'
+    ExplicitWidth = 540
+  end
+  object eCondiciones: TcxRichEdit
+    Left = 11
+    Top = 448
+    Properties.ScrollBars = ssVertical
+    Lines.Strings = (
+      'eCondiciones')
+    TabOrder = 0
+    Visible = False
+    Height = 57
+    Width = 529
+  end
+  object ePlazosEntrega: TMemo
+    Left = 11
+    Top = 225
+    Width = 529
+    Height = 90
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    ScrollBars = ssVertical
+    TabOrder = 3
+  end
+  object eFormaPago: TMemo
+    Left = 11
+    Top = 100
+    Width = 529
+    Height = 90
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    ScrollBars = ssVertical
+    TabOrder = 4
+  end
+  object eObservaciones: TMemo
+    Left = 11
+    Top = 346
+    Width = 529
+    Height = 90
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    ScrollBars = ssVertical
+    TabOrder = 5
+  end
+end

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.pas

@@ -0,0 +1,68 @@
+unit uViewConfiguracionDocBano;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
+  cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls;
+
+type
+  TfrViewConfiguracionDocBano = class(TfrViewConfiguracionBase)
+    eCondiciones: TcxRichEdit;
+    ePlazosEntrega: TMemo;
+    eFormaPago: TMemo;
+    eObservaciones: TMemo;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label4: TLabel;
+  public
+    class function GetViewClass : TClass; override;
+    class function DarEtiqueta : String; override;
+    procedure CargarValores; override;
+    procedure GuardarValores; override;
+  end;
+
+var
+  frViewConfiguracionDocBano: TfrViewConfiguracionDocBano;
+
+implementation
+{$R *.dfm}
+{ TfrViewConfiguracionDocBANO }
+
+uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
+
+procedure TfrViewConfiguracionDocBano.CargarValores;
+begin
+  inherited;
+  eFormaPago.Lines.Clear;
+  eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_BANO);
+  ePlazosEntrega.Lines.Clear;
+  ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_BANO);
+  eObservaciones.Lines.Clear;
+  eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_BANO);
+  eCondiciones.Lines.Clear;
+  eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_BANO);
+end;
+
+class function TfrViewConfiguracionDocBano.DarEtiqueta: String;
+begin
+  Result := 'Documentos baño';
+end;
+
+class function TfrViewConfiguracionDocBano.GetViewClass: TClass;
+begin
+  Result := TfrViewConfiguracionDocBANO;
+end;
+
+procedure TfrViewConfiguracionDocBano.GuardarValores;
+begin
+  inherited;
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_BANO, eFormaPago.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO, ePlazosEntrega.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_BANO, eObservaciones.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_BANO, eCondiciones.Text);
+end;
+
+
+end.

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.dfm

@@ -0,0 +1,83 @@
+inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina
+  object Label1: TLabel [0]
+    Left = 11
+    Top = 79
+    Width = 76
+    Height = 13
+    Caption = 'Forma de pago:'
+  end
+  object Label2: TLabel [1]
+    Left = 11
+    Top = 204
+    Width = 90
+    Height = 13
+    Caption = 'Plazos de entrega:'
+  end
+  object Label4: TLabel [2]
+    Left = 11
+    Top = 326
+    Width = 75
+    Height = 13
+    Caption = 'Observaciones:'
+  end
+  inherited Panel1: TPanel
+    Width = 530
+    TabOrder = 2
+    ExplicitWidth = 530
+    inherited Label3: TLabel
+      Width = 518
+    end
+  end
+  inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
+    Width = 540
+    LabelCaption = 'Configuraci'#243'n docimento cocina'
+    ExplicitWidth = 540
+  end
+  object eCondiciones: TcxRichEdit
+    Left = 11
+    Top = 448
+    Properties.ScrollBars = ssVertical
+    Lines.Strings = (
+      'eCondiciones')
+    TabOrder = 0
+    Visible = False
+    Height = 57
+    Width = 529
+  end
+  object ePlazosEntrega: TMemo
+    Left = 11
+    Top = 225
+    Width = 529
+    Height = 90
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    ScrollBars = ssVertical
+    TabOrder = 3
+  end
+  object eFormaPago: TMemo
+    Left = 11
+    Top = 100
+    Width = 529
+    Height = 90
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    ScrollBars = ssVertical
+    TabOrder = 4
+  end
+  object eObservaciones: TMemo
+    Left = 11
+    Top = 346
+    Width = 529
+    Height = 90
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    ScrollBars = ssVertical
+    TabOrder = 5
+  end
+end

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.pas

@@ -0,0 +1,68 @@
+unit uViewConfiguracionDocCocina;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
+  cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls;
+
+type
+  TfrViewConfiguracionDocCocina = class(TfrViewConfiguracionBase)
+    eCondiciones: TcxRichEdit;
+    ePlazosEntrega: TMemo;
+    eFormaPago: TMemo;
+    eObservaciones: TMemo;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label4: TLabel;
+  public
+    class function GetViewClass : TClass; override;
+    class function DarEtiqueta : String; override;
+    procedure CargarValores; override;
+    procedure GuardarValores; override;
+  end;
+
+var
+  frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina;
+
+implementation
+{$R *.dfm}
+{ TfrViewConfiguracionDocCocina }
+
+uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
+
+procedure TfrViewConfiguracionDocCocina.CargarValores;
+begin
+  inherited;
+  eFormaPago.Lines.Clear;
+  eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_COCINA);
+  ePlazosEntrega.Lines.Clear;
+  ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_COCINA);
+  eObservaciones.Lines.Clear;
+  eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_COCINA);
+  eCondiciones.Lines.Clear;
+  eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_COCINA);
+end;
+
+class function TfrViewConfiguracionDocCocina.DarEtiqueta: String;
+begin
+  Result := 'Documentos cocina';
+end;
+
+class function TfrViewConfiguracionDocCocina.GetViewClass: TClass;
+begin
+  Result := TfrViewConfiguracionDocCocina;
+end;
+
+procedure TfrViewConfiguracionDocCocina.GuardarValores;
+begin
+  inherited;
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA, eFormaPago.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA, ePlazosEntrega.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA, eObservaciones.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_COCINA, eCondiciones.Text);
+end;
+
+
+end.

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.dfm

@@ -0,0 +1,83 @@
+inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectrodomestico
+  object Label1: TLabel [0]
+    Left = 11
+    Top = 79
+    Width = 76
+    Height = 13
+    Caption = 'Forma de pago:'
+  end
+  object Label2: TLabel [1]
+    Left = 11
+    Top = 204
+    Width = 90
+    Height = 13
+    Caption = 'Plazos de entrega:'
+  end
+  object Label4: TLabel [2]
+    Left = 11
+    Top = 326
+    Width = 75
+    Height = 13
+    Caption = 'Observaciones:'
+  end
+  inherited Panel1: TPanel
+    Width = 530
+    TabOrder = 2
+    ExplicitWidth = 530
+    inherited Label3: TLabel
+      Width = 518
+    end
+  end
+  inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
+    Width = 540
+    LabelCaption = 'Configuraci'#243'n docimento electrodom'#233'stico'
+    ExplicitWidth = 540
+  end
+  object eCondiciones: TcxRichEdit
+    Left = 11
+    Top = 448
+    Properties.ScrollBars = ssVertical
+    Lines.Strings = (
+      'eCondiciones')
+    TabOrder = 0
+    Visible = False
+    Height = 57
+    Width = 529
+  end
+  object ePlazosEntrega: TMemo
+    Left = 11
+    Top = 225
+    Width = 529
+    Height = 90
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    ScrollBars = ssVertical
+    TabOrder = 3
+  end
+  object eFormaPago: TMemo
+    Left = 11
+    Top = 100
+    Width = 529
+    Height = 90
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    ScrollBars = ssVertical
+    TabOrder = 4
+  end
+  object eObservaciones: TMemo
+    Left = 11
+    Top = 346
+    Width = 529
+    Height = 90
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    ScrollBars = ssVertical
+    TabOrder = 5
+  end
+end

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.pas

@@ -0,0 +1,68 @@
+unit uViewConfiguracionDocElectrodomestico;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
+  cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls;
+
+type
+  TfrViewConfiguracionDocElectrodomestico = class(TfrViewConfiguracionBase)
+    eCondiciones: TcxRichEdit;
+    ePlazosEntrega: TMemo;
+    eFormaPago: TMemo;
+    eObservaciones: TMemo;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label4: TLabel;
+  public
+    class function GetViewClass : TClass; override;
+    class function DarEtiqueta : String; override;
+    procedure CargarValores; override;
+    procedure GuardarValores; override;
+  end;
+
+var
+  frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectrodomestico;
+
+implementation
+{$R *.dfm}
+{ TfrViewConfiguracionDocELECTRODOMESTICO }
+
+uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
+
+procedure TfrViewConfiguracionDocElectrodomestico.CargarValores;
+begin
+  inherited;
+  eFormaPago.Lines.Clear;
+  eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ELECTRODOMESTICO);
+  ePlazosEntrega.Lines.Clear;
+  ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO);
+  eObservaciones.Lines.Clear;
+  eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ELECTRODOMESTICO);
+  eCondiciones.Lines.Clear;
+  eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ELECTRODOMESTICO);
+end;
+
+class function TfrViewConfiguracionDocElectrodomestico.DarEtiqueta: String;
+begin
+  Result := 'Documentos electrodoméstico';
+end;
+
+class function TfrViewConfiguracionDocElectrodomestico.GetViewClass: TClass;
+begin
+  Result := TfrViewConfiguracionDocELECTRODOMESTICO;
+end;
+
+procedure TfrViewConfiguracionDocElectrodomestico.GuardarValores;
+begin
+  inherited;
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO, eFormaPago.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO, ePlazosEntrega.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO, eObservaciones.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO, eCondiciones.Text);
+end;
+
+
+end.

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.dfm

@@ -0,0 +1,83 @@
+inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios
+  object Label1: TLabel [0]
+    Left = 11
+    Top = 79
+    Width = 76
+    Height = 13
+    Caption = 'Forma de pago:'
+  end
+  object Label2: TLabel [1]
+    Left = 11
+    Top = 204
+    Width = 90
+    Height = 13
+    Caption = 'Plazos de entrega:'
+  end
+  object Label4: TLabel [2]
+    Left = 11
+    Top = 326
+    Width = 75
+    Height = 13
+    Caption = 'Observaciones:'
+  end
+  inherited Panel1: TPanel
+    Width = 530
+    TabOrder = 2
+    ExplicitWidth = 530
+    inherited Label3: TLabel
+      Width = 518
+    end
+  end
+  inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
+    Width = 540
+    LabelCaption = 'Configuraci'#243'n documento varios'
+    ExplicitWidth = 540
+  end
+  object eCondiciones: TcxRichEdit
+    Left = 11
+    Top = 448
+    Properties.ScrollBars = ssVertical
+    Lines.Strings = (
+      'eCondiciones')
+    TabOrder = 0
+    Visible = False
+    Height = 57
+    Width = 529
+  end
+  object ePlazosEntrega: TMemo
+    Left = 11
+    Top = 225
+    Width = 529
+    Height = 90
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    ScrollBars = ssVertical
+    TabOrder = 3
+  end
+  object eFormaPago: TMemo
+    Left = 11
+    Top = 100
+    Width = 529
+    Height = 90
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    ScrollBars = ssVertical
+    TabOrder = 4
+  end
+  object eObservaciones: TMemo
+    Left = 11
+    Top = 346
+    Width = 529
+    Height = 90
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    ScrollBars = ssVertical
+    TabOrder = 5
+  end
+end

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.pas

@@ -0,0 +1,68 @@
+unit uViewConfiguracionDocVarios;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
+  cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls;
+
+type
+  TfrViewConfiguracionDocVarios = class(TfrViewConfiguracionBase)
+    eCondiciones: TcxRichEdit;
+    ePlazosEntrega: TMemo;
+    eFormaPago: TMemo;
+    eObservaciones: TMemo;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label4: TLabel;
+  public
+    class function GetViewClass : TClass; override;
+    class function DarEtiqueta : String; override;
+    procedure CargarValores; override;
+    procedure GuardarValores; override;
+  end;
+
+var
+  frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios;
+
+implementation
+{$R *.dfm}
+{ TfrViewConfiguracionDocVARIOS }
+
+uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
+
+procedure TfrViewConfiguracionDocVarios.CargarValores;
+begin
+  inherited;
+  eFormaPago.Lines.Clear;
+  eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_VARIOS);
+  ePlazosEntrega.Lines.Clear;
+  ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_VARIOS);
+  eObservaciones.Lines.Clear;
+  eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_VARIOS);
+  eCondiciones.Lines.Clear;
+  eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_VARIOS);
+end;
+
+class function TfrViewConfiguracionDocVarios.DarEtiqueta: String;
+begin
+  Result := 'Documentos varios';
+end;
+
+class function TfrViewConfiguracionDocVarios.GetViewClass: TClass;
+begin
+  Result := TfrViewConfiguracionDocVARIOS;
+end;
+
+procedure TfrViewConfiguracionDocVarios.GuardarValores;
+begin
+  inherited;
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS, eFormaPago.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS, ePlazosEntrega.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS, eObservaciones.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_VARIOS, eCondiciones.Text);
+end;
+
+
+end.

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm

@@ -228,10 +228,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
         Height = 224
         ExplicitWidth = 320
         ExplicitHeight = 224
-        inherited edtlNombre: TcxDBTextEdit
-          ExplicitWidth = 224
-          Width = 224
-        end
         inherited edtNIFCIF: TcxDBTextEdit
           Left = 328
           ExplicitLeft = 328
@@ -240,10 +236,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
           Left = 239
           ExplicitLeft = 239
         end
-        inherited edtPersonaContacto: TcxDBTextEdit
-          ExplicitWidth = 283
-          Width = 283
-        end
         inherited edtDireccion: TcxMemo
           ExplicitWidth = 121
           Width = 121
@@ -256,10 +248,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
           Left = 408
           ExplicitLeft = 408
         end
-        inherited edtTelefonos: TcxTextEdit
-          ExplicitWidth = 363
-          Width = 363
-        end
       end
     end
     object memFormaPago: TcxDBMemo
@@ -341,13 +329,8 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Top = 55
       DataBinding.DataField = 'TIPO_PRESUPUESTO'
       DataBinding.DataSource = DADataSource
+      Properties.DropDownListStyle = lsFixedList
       Properties.ImmediatePost = True
-      Properties.Items.Strings = (
-        'Cocina'
-        'Ba'#241'o'
-        'Armarios'
-        'Electrodom'#233'sticos'
-        'Varios')
       Properties.PostPopupValueOnTab = True
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas

@@ -115,6 +115,13 @@ begin
   FFormasPagoController := TFormasPagoController.Create;
   FVendedoresController := TVendedoresController.Create;
   FViewClientePresupuesto := frViewDatosYSeleccionClientePresupuesto1;
+
+  cbTipoPresupuesto.Properties.Items.Clear;
+  cbTipoPresupuesto.Properties.Items.Add(CTE_COCINA);
+  cbTipoPresupuesto.Properties.Items.Add(CTE_ARMARIO);
+  cbTipoPresupuesto.Properties.Items.Add(CTE_BANO);
+  cbTipoPresupuesto.Properties.Items.Add(CTE_ELECTRODOMESTICO);
+  cbTipoPresupuesto.Properties.Items.Add(CTE_VARIOS);
 end;
 
 procedure TfrViewPresupuestoCliente.CustomViewDestroy(Sender: TObject);

Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas

@@ -97,6 +97,7 @@ begin
   AContrato.POBLACION := FDireccion.POBLACION;
   AContrato.PROVINCIA := FDireccion.PROVINCIA;
   AContrato.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL;
+//  AContrato.TELEFONO := 
   FDireccion := Nil;
 
 

Source/Servicios/FactuGES.RODL

@@ -134,6 +134,14 @@
 </Parameter>
 </Parameters>
 </Operation>
+<Operation Name="guardarValor" UID="{ECE80435-0CBB-45A1-8628-B2292516FD81}">
+<Parameters>
+<Parameter Name="CODIGO" DataType="AnsiString" Flag="In" >
+</Parameter>
+<Parameter Name="Valor" DataType="AnsiString" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
 </Operations>
 </Interface>
 </Interfaces>

Source/Servicios/FactuGES_Intf.pas

@@ -310,6 +310,7 @@ type
   IsrvConfiguracion = interface(IDataAbstractService)
     ['{0882B8A4-C8AA-424E-8FC1-C6226B670522}']
     function darValor(const CODIGO: AnsiString; const ValorPorDefecto: AnsiString): AnsiString;
+    procedure guardarValor(const CODIGO: AnsiString; const Valor: AnsiString);
   end;
 
   { CosrvConfiguracion }
@@ -323,6 +324,7 @@ type
     function __GetInterfaceName:string; override;
 
     function darValor(const CODIGO: AnsiString; const ValorPorDefecto: AnsiString): AnsiString;
+    procedure guardarValor(const CODIGO: AnsiString; const Valor: AnsiString);
   end;
 
   { IsrvFamilias }
@@ -1512,6 +1514,22 @@ begin
   end
 end;
 
+procedure TsrvConfiguracion_Proxy.guardarValor(const CODIGO: AnsiString; const Valor: AnsiString);
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'guardarValor');
+    __Message.Write('CODIGO', TypeInfo(AnsiString), CODIGO, []);
+    __Message.Write('Valor', TypeInfo(AnsiString), Valor, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 { CosrvFamilias }
 
 class function CosrvFamilias.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFamilias;

Source/Servicios/FactuGES_Invk.pas

@@ -76,6 +76,7 @@ type
     constructor Create; override;
   published
     procedure Invoke_darValor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_guardarValor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvFamilias_Invoker = class(TDataAbstractService_Invoker)
@@ -608,6 +609,28 @@ begin
   end;
 end;
 
+procedure TsrvConfiguracion_Invoker.Invoke_guardarValor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ procedure guardarValor(const CODIGO: AnsiString; const Valor: AnsiString); }
+var
+  CODIGO: AnsiString;
+  Valor: AnsiString;
+begin
+  try
+    __Message.Read('CODIGO', TypeInfo(AnsiString), CODIGO, []);
+    __Message.Read('Valor', TypeInfo(AnsiString), Valor, []);
+
+    (__Instance as IsrvConfiguracion).guardarValor(CODIGO, Valor);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvConfiguracion', 'guardarValorResponse');
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+    __oResponseOptions := [roNoResponse];
+
+  finally
+  end;
+end;
+
 { TsrvFamilias_Invoker }
 
 constructor TsrvFamilias_Invoker.Create;

Source/Servidor/Configuracion/srvConfiguracion_Impl.dfm

@@ -25,12 +25,18 @@ object srvConfiguracion: TsrvConfiguracion
           item
             Connection = 'IBX'
             TargetTable = 'CONFIGURACION'
-            SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = :CODIGO'
+            SQL = 
+              'SELECT VALOR, VALOr_BLOB'#10'FROM CONFIGURACION'#10'WHERE CODIGO = :CODI' +
+              'GO'#10
             StatementType = stSQL
             ColumnMappings = <
               item
                 DatasetField = 'VALOR'
                 TableField = 'VALOR'
+              end
+              item
+                DatasetField = 'VALOR_BLOB'
+                TableField = 'VALOR_BLOB'
               end>
           end>
         Name = 'darValor'
@@ -38,7 +44,11 @@ object srvConfiguracion: TsrvConfiguracion
           item
             Name = 'VALOR'
             DataType = datString
-            Size = 255
+            Size = 2000
+          end
+          item
+            Name = 'VALOR_BLOB'
+            DataType = datMemo
           end>
       end>
     JoinDataTables = <>
@@ -54,6 +64,11 @@ object srvConfiguracion: TsrvConfiguracion
             Name = 'VALOR'
             Value = ''
           end
+          item
+            Name = 'VALOR_BLOB'
+            DataType = datMemo
+            Value = ''
+          end
           item
             Name = 'ID_EMPRESA'
             Value = ''
@@ -65,12 +80,41 @@ object srvConfiguracion: TsrvConfiguracion
             Default = True
             Name = 'IBX'
             SQL = 
-              'insert into CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA)'#10'values' +
+              'insert into CONFIGURACION (ID, CODIGO, VALOR, VALOR_BLOB, ID_EMP' +
-              '(GEN_ID(GEN_CONFIGURACION_ID, 1), :CODIGO, :VALOR, :ID_EMPRESA)'#10
+              'RESA)'#10'values(GEN_ID(GEN_CONFIGURACION_ID, 1), :CODIGO, :VALOR, :' +
+              'VALOR_BLOB, :ID_EMPRESA)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
         Name = 'InsertarValor'
+      end
+      item
+        Params = <
+          item
+            Name = 'VALOR'
+            Value = ''
+          end
+          item
+            Name = 'VALOR_BLOB'
+            DataType = datMemo
+            Value = ''
+          end
+          item
+            Name = 'CODIGO'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            SQL = 
+              'update CONFIGURACION'#10'set'#10'VALOR = :VALOR,'#10'VALOR_BLOB = :VALOR_BLO' +
+              'B'#10'where CODIGO = :CODIGO'#10#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'UpdateValor'
       end>
     RelationShips = <>
     UpdateRules = <>

Source/Servidor/Configuracion/srvConfiguracion_Impl.pas

@@ -24,11 +24,11 @@ type
     Bin2DataStreamer: TDABin2DataStreamer;
     schConfiguracion: TDASchema;
     procedure DARemoteServiceCreate(Sender: TObject);
-    procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
+    procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
-      var aConnectionName: string);
   protected
     { IsrvConfiguracion methods }
-    function DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): String;
+    function DarValor(const CODIGO: String; Const ValorPorDefecto: String = ''): String;
+    procedure GuardarValor(const CODIGO: AnsiString; const Valor: AnsiString);
   end;
 
 implementation
@@ -59,7 +59,12 @@ begin
     ADataSet := schConfiguracion.NewDataset(Connection, 'darValor', ['CODIGO'], [CODIGO]);
     ADataSet.Open;
     if ADataSet.Dataset.RecordCount > 0 then
-       Result := ADataSet.Dataset.Fields[0].AsVariant
+    begin
+       if CODIGO = 'CONDICIONES_COCINA' then
+          Result := ADataSet.Dataset.Fields[1].AsVariant
+       else
+          Result := ADataSet.Dataset.Fields[0].AsVariant
+    end
     else
     begin
        Result := ValorPorDefecto;
@@ -78,7 +83,7 @@ begin
        except
          ACurrentConn.RollbackTransaction;
        end;
-       ACommand := NIL;       
+       ACommand := NIL;
 //       RaiseError('Falta variable de configuracion: ' + CODIGO);
     end;
   finally
@@ -92,6 +97,45 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
+procedure TsrvConfiguracion.GuardarValor(const CODIGO: AnsiString; const Valor: AnsiString);
+var
+   ACurrentConn : IDAConnection;
+   ACommand : IDASQLCommand;
+   st: TStringStream;
+   st2: IROStream;
+
+begin
+  //Creamos la variable de configuración con su valor por defecto
+  ACurrentConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
+  ACommand := schConfiguracion.NewCommand(ACurrentConn, 'UpdateValor');
+  try
+  with ACommand do
+  begin
+    ParamByName('CODIGO').Value := CODIGO;
+    ParamByName('VALOR').Value := Valor;
+
+    if CODIGO = 'CONDICIONES_COCINA' then
+    begin
+//       st := TStringStream.Create(Valor);
+//       st.Position := 0;
+//       st2 := TROStream.create(st, true);
+//
+//
+//       ParamByName('VALOR_BLOB').LoadFromStream(st2);
+
+       ParamByName('VALOR_BLOB').Value := Valor;
+    end;
+
+//    ParamByName('ID_EMPRESA').Value := Null;
+    Execute;
+    ACurrentConn.CommitTransaction;
+  end;
+  except
+    ACurrentConn.RollbackTransaction;
+  end;
+  ACommand := NIL;
+end;
+
 initialization
   TROClassFactory.Create('srvConfiguracion', Create_srvConfiguracion, TsrvConfiguracion_Invoker);
 

Source/Servidor/FactuGES_Server.dproj

@@ -1,295 +1,294 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <PropertyGroup>
+	<PropertyGroup>
-    <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
+		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
-    <MainSource>FactuGES_Server.dpr</MainSource>
+		<MainSource>FactuGES_Server.dpr</MainSource>
-    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-    <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
+		<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
-  </PropertyGroup>
+	</PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-    <Version>7.0</Version>
+		<Version>7.0</Version>
-    <DCC_DebugInformation>False</DCC_DebugInformation>
+		<DCC_DebugInformation>False</DCC_DebugInformation>
-    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+		<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
-    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-    <DCC_MapFile>3</DCC_MapFile>
+		<DCC_MapFile>3</DCC_MapFile>
-    <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
+		<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
-    <DCC_Define>RELEASE</DCC_Define>
+		<DCC_Define>RELEASE</DCC_Define>
-  </PropertyGroup>
+	</PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <Version>7.0</Version>
+		<Version>7.0</Version>
-    <DCC_MapFile>3</DCC_MapFile>
+		<DCC_MapFile>3</DCC_MapFile>
-    <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
+		<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
-    <DCC_Define>DEBUG;</DCC_Define>
+		<DCC_Define>DEBUG;</DCC_Define>
-    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
-  </PropertyGroup>
+	</PropertyGroup>
-  <ProjectExtensions>
+	<ProjectExtensions>
-    <Borland.Personality>Delphi.Personality</Borland.Personality>
+		<Borland.Personality>Delphi.Personality</Borland.Personality>
-    <Borland.ProjectType />
+		<Borland.ProjectType/>
-    <BorlandProject>
+		<BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 21 de junio de 2010 10:29</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 06 de septiembre de 2010 9:05</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
+						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
-      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
+					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+	</ProjectExtensions>
-  </ProjectExtensions>
+	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
-  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+	<ItemGroup>
-  <ItemGroup>
+		<DelphiCompile Include="FactuGES_Server.dpr">
-    <DelphiCompile Include="FactuGES_Server.dpr">
+			<MainSource>MainSource</MainSource>
-      <MainSource>MainSource</MainSource>
+		</DelphiCompile>
-    </DelphiCompile>
+		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
-    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
+		<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
-    <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
+			<Form>srvEjercicios</Form>
-      <Form>srvEjercicios</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+			<Form>srvEmpresas</Form>
-      <Form>srvEmpresas</Form>
+			<DesignClass>TDARemoteService</DesignClass>
-      <DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
-    <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
+			<Form>srvProvinciasPoblaciones</Form>
-      <Form>srvProvinciasPoblaciones</Form>
+			<DesignClass>TRORemoteDataModule</DesignClass>
-      <DesignClass>TRORemoteDataModule</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
+		<DCCReference Include="..\Base\schBase_Intf.pas"/>
-    <DCCReference Include="..\Base\schBase_Intf.pas" />
+		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
-    <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
+		<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
-    <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+			<Form>srvAlbaranesCliente</Form>
-      <Form>srvAlbaranesCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+			<Form>srvAlbaranesProveedor</Form>
-      <Form>srvAlbaranesProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+			<Form>srvAlmacenes</Form>
-      <Form>srvAlmacenes</Form>
+			<DesignClass>TDARemoteService</DesignClass>
-      <DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
+		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
-    <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
+		<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
-    <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
+			<Form>RptComisiones</Form>
-      <Form>RptComisiones</Form>
+			<DesignClass>TDataModule</DesignClass>
-      <DesignClass>TDataModule</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
-    <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
+			<Form>srvComisiones</Form>
-      <Form>srvComisiones</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
-    <DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
+		<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
-    <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
+			<Form>srvContabilidad</Form>
-      <Form>srvContabilidad</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-    <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
+			<Form>RptEtiquetasContacto</Form>
-      <Form>RptEtiquetasContacto</Form>
+			<DesignClass>TDataModule</DesignClass>
-      <DesignClass>TDataModule</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+			<Form>srvContactos</Form>
-      <Form>srvContactos</Form>
+			<DesignClass>TDARemoteService</DesignClass>
-      <DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
+		<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
+			<Form>RptContratosCliente</Form>
-      <Form>RptContratosCliente</Form>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
-    <DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
+			<Form>srvContratosCliente</Form>
-      <Form>srvContratosCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
+		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+			<Form>RptFacturasCliente</Form>
-      <Form>RptFacturasCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
-      <DesignClass>TDataModule</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+			<Form>srvFacturasCliente</Form>
-      <Form>srvFacturasCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
+			<Form>RptFacturasProveedor</Form>
-      <Form>RptFacturasProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
-      <DesignClass>TDataModule</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+			<Form>srvFacturasProveedor</Form>
-      <Form>srvFacturasProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
+		<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
-    <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
+			<Form>srvGestorDocumentos</Form>
-      <Form>srvGestorDocumentos</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
-    <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
+			<Form>srvGestorInformes</Form>
-      <Form>srvGestorInformes</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+			<Form>srvHistoricoMovimientos</Form>
-      <Form>srvHistoricoMovimientos</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+			<Form>srvInventario</Form>
-      <Form>srvInventario</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+			<Form>srvPedidosProveedor</Form>
-      <Form>srvPedidosProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+			<Form>RptPresupuestosCliente</Form>
-      <Form>RptPresupuestosCliente</Form>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+			<Form>srvPresupuestosCliente</Form>
-      <Form>srvPresupuestosCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
+		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
+			<Form>RptRecibosCliente</Form>
-      <Form>RptRecibosCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
-      <DesignClass>TDataModule</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+			<Form>srvRecibosCliente</Form>
-      <Form>srvRecibosCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
+			<Form>RptRecibosProveedor</Form>
-      <Form>RptRecibosProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
-      <DesignClass>TDataModule</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+			<Form>srvRecibosProveedor</Form>
-      <Form>srvRecibosProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-    <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
+			<Form>srvReferencias</Form>
-      <Form>srvReferencias</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
+		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+			<Form>srvRemesasCliente</Form>
-      <Form>srvRemesasCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+			<Form>srvRemesasProveedor</Form>
-      <Form>srvRemesasProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
+		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+			<Form>srvUnidadesMedida</Form>
-      <Form>srvUnidadesMedida</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
-    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
-    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
+		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+			<Form>srvConfiguracion</Form>
-      <Form>srvConfiguracion</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
-      <DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="Configuracion\uConexionBD.pas">
-    <DCCReference Include="Configuracion\uConexionBD.pas">
+			<Form>frConexionBD</Form>
-      <Form>frConexionBD</Form>
+			<DesignClass>TFrame</DesignClass>
-      <DesignClass>TFrame</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="Configuracion\uConfGeneral.pas">
-    <DCCReference Include="Configuracion\uConfGeneral.pas">
+			<Form>frConfGeneral</Form>
-      <Form>frConfGeneral</Form>
+			<DesignClass>TFrame</DesignClass>
-      <DesignClass>TFrame</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="Configuracion\uConfiguracion.pas">
-    <DCCReference Include="Configuracion\uConfiguracion.pas">
+			<Form>fConfiguracion</Form>
-      <Form>fConfiguracion</Form>
+			<DesignClass>TForm</DesignClass>
-      <DesignClass>TForm</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+			<Form>FrameConfiguracion</Form>
-      <Form>FrameConfiguracion</Form>
+			<DesignClass>TFrame</DesignClass>
-      <DesignClass>TFrame</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="srvLogin_Impl.pas">
-    <DCCReference Include="srvLogin_Impl.pas">
+			<Form>srvLogin</Form>
-      <Form>srvLogin</Form>
+			<DesignClass>TDARemoteService</DesignClass>
-      <DesignClass>TDARemoteService</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="uAcercaDe.pas">
-    <DCCReference Include="uAcercaDe.pas">
+			<Form>fAcercaDe</Form>
-      <Form>fAcercaDe</Form>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="uDataModuleServer.pas">
-    <DCCReference Include="uDataModuleServer.pas">
+			<Form>dmServer</Form>
-      <Form>dmServer</Form>
+			<DesignClass>TDataModule</DesignClass>
-      <DesignClass>TDataModule</DesignClass>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="uServerMainForm.pas">
-    <DCCReference Include="uServerMainForm.pas">
+			<Form>fServerForm</Form>
-      <Form>fServerForm</Form>
+		</DCCReference>
-    </DCCReference>
+		<DCCReference Include="Utiles\RegExpr.pas"/>
-    <DCCReference Include="Utiles\RegExpr.pas" />
+		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
-    <DCCReference Include="Utiles\uBusinessUtils.pas" />
+		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
-    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
+		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
-    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
+		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
-    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
+		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
-    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
+		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
-    <DCCReference Include="Utiles\uServerAppUtils.pas" />
+		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
-    <DCCReference Include="Utiles\uSesionesUtils.pas" />
+	</ItemGroup>
-  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 2,4,4,0
+FILEVERSION 2,4,5,0
-PRODUCTVERSION 2,4,4,0
+PRODUCTVERSION 2,4,5,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.4.4.0\0"
+              VALUE "FileVersion", "2.4.5.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
-              VALUE "ProductVersion", "2.4.4.0\0"
+              VALUE "ProductVersion", "2.4.5.0\0"
-              VALUE "CompileDate", "viernes, 16 de julio de 2010 13:56\0"
+              VALUE "CompileDate", "lunes, 06 de septiembre de 2010 18:03\0"
          END
     END
     BLOCK "VarFileInfo"