Repaso de todas las referencias de la aplicación

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

Source/ApplicationBase/ApplicationBase.dproj

@@ -46,6 +46,55 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -60,12 +109,12 @@
     <DelphiCompile Include="ApplicationBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Contactos\Base.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Base.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\GUIBase.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\GUIBase.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvJansD11R.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\JvJansD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
     <DCCReference Include="Ejercicios\Controller\uEjerciciosController.pas" />
     <DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicio.pas" />
     <DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicios.pas" />

Source/ApplicationBase/uFactuGES_App.pas

@@ -67,12 +67,25 @@ type
     property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent;
     property Terminated : Boolean read GetTerminated;
 
+//TEMPORAL
+    function getVAR_IDTIENDA : Integer;
+    procedure setVAR_IDTIENDA (AValue : Integer);
+    function getVAR_TIENDA : String;
+    procedure setVAR_TIENDA (AValue : String);
+    property VAR_IDTIENDA: Integer read getVAR_IDTIENDA write SetVAR_IDTIENDA;
+    property VAR_TIENDA: String read getVAR_TIENDA write setVAR_TIENDA;
+
+
     procedure ShowCapado;
   end;
 
 
   TAppFactuGES = class(TInterfacedObject, IAppFactuGES)
   private
+//TEMPORAL
+    FVAR_IDTIENDA: Integer;
+    FVAR_TIENDA: String;
+
     FAppInfo : TJclFileVersionInfo;
     FEmpresasController : IEmpresasController;
     FUsuariosController: IUsuariosController;
@@ -116,6 +129,7 @@ type
     procedure HideSplashForm;
     procedure UpdateSplashForm;
   public
+
     constructor Create; virtual;
     destructor Destroy; override;
 
@@ -140,6 +154,15 @@ type
     property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent;
     property Terminated : Boolean read GetTerminated;
 
+//TEMPORAL
+    function getVAR_IDTIENDA : Integer;
+    procedure setVAR_IDTIENDA (AValue : Integer);
+    function getVAR_TIENDA : String;
+    procedure setVAR_TIENDA (AValue : String);
+
+    property VAR_IDTIENDA: Integer read getVAR_IDTIENDA write setVAR_IDTIENDA;
+    property VAR_TIENDA: String read getVAR_TIENDA write setVAR_TIENDA;
+
     procedure ShowCapado;
   end;
 
@@ -150,7 +173,9 @@ implementation
 
 uses
   Dialogs, uDialogUtils, cxControls, uUsuariosViewRegister,
-  uEmpresasViewRegister, uEjerciciosController;
+  uEmpresasViewRegister, uEjerciciosController,
+//TEMPORAL
+  inifiles;
 
 procedure TAppFactuGES.CambiarEjercicio(const AIDEmpresa: Integer);
 var
@@ -188,11 +213,26 @@ begin
 end;
 
 procedure TAppFactuGES.CargarModulos;
+var
+  Fichero : String;
 begin
   if not Assigned(FDoLoadModulesEvent) then
     raise Exception.Create('Evento para la carga de los módulos de la aplicación no asignado (CargarModulos)');
 
   FDoLoadModulesEvent();
+
+//TEMPORAL
+  Fichero := ExtractFileDir(ParamStr(0))+ '\' + 'FACTUGES.INI';
+  if not FileExists(Fichero) then
+     raise Exception.Create('No se ha encontrado el fichero de configuración' + #10#13 + Fichero);
+
+  with TIniFile.Create(Fichero) do
+  begin
+    VAR_IDTIENDA := ReadInteger ('VARIABLES', 'IdTienda', 0);
+    VAR_TIENDA := ReadString ('VARIABLES', 'Tienda', '');
+    Free;
+  end;
+
 end;
 
 constructor TAppFactuGES.Create;
@@ -314,6 +354,16 @@ begin
   Result := FUsuariosController;
 end;
 
+function TAppFactuGES.getVAR_IDTIENDA: Integer;
+begin
+  Result := FVAR_IDTIENDA; 
+end;
+
+function TAppFactuGES.getVAR_TIENDA: String;
+begin
+  Result := FVAR_TIENDA;
+end;
+
 procedure TAppFactuGES.HideSplashForm;
 begin
   if not Assigned(FAppSplashForm) then
@@ -368,6 +418,16 @@ begin
   FDoLoadModulesEvent := ALoadModulesEvent;
 end;
 
+procedure TAppFactuGES.setVAR_IDTIENDA(AValue: Integer);
+begin
+  FVAR_IDTIENDA := Avalue;
+end;
+
+procedure TAppFactuGES.setVAR_TIENDA(AValue: String);
+begin
+  FVAR_TIENDA := Avalue;
+end;
+
 procedure TAppFactuGES.ShowCapado;
 begin
   ShowInfoMessage('Sin Acceso', 'Funcionalidad en desarrollo, disculpen las molestias');

Source/Base/Base.dproj

@@ -58,48 +58,48 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\PluginSDK_D10R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Facturas 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\cxIntl6D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.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\GUISDK_D11.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_D10R.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/Cliente/FactuGES.dproj

@@ -53,79 +53,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">1</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.1.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.1.4</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">1</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.1.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.1.4</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       
       
       

Source/Cliente/FactuGES.rc

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

Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.dproj

@@ -42,6 +42,18 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
       <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">AlbaranesCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@@ -51,9 +63,9 @@
     <DelphiCompile Include="AlbaranesCliente_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\Lib\ApplicationBase.dcp" />
+    <DCCReference Include="..\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\..\Lib\Base.dcp" />
+    <DCCReference Include="..\Base.dcp" />
-    <DCCReference Include="..\..\..\Lib\Contactos_model.dcp" />
+    <DCCReference Include="..\Contactos_model.dcp" />
     <DCCReference Include="Data\uIDataModuleAlbaranesCliente.pas" />
     <DCCReference Include="Data\uIDataModuleAlbaranesClienteReport.pas" />
     <DCCReference Include="schAlbaranesClienteClient_Intf.pas" />

Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas

@@ -83,7 +83,7 @@ begin
 
   with TsrvReferencias.Create(NIL) do
     try
-      Result := DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA)
+      Result := DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
     finally
       Free;
     end;
@@ -101,8 +101,7 @@ begin
 
   with TsrvReferencias.Create(NIL) do
     try
-      Result := IncrementarValorReferencia(ACodigoReferencia,
+      Result := IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-        Self.REFERENCIA, ID_EMPRESA)
     finally
       Free;
     end;

Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas

@@ -190,11 +190,13 @@ begin
   SITUACION := SITUACION_ALBARAN_PENDIENTE;
   REFERENCIA := '';
   TIPO := CTE_TIPO_ALBARAN;
+
   // ALMACÉN PUESTO A CAPÓN Y PROVISIONAL
   ID_ALMACEN := 1;
 
-  ID_TIENDA := CTE_ID_TODAS;
+  //TEMPORAL
-  TIENDA := CTE_TODAS;  
+  ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
+  TIENDA := AppFactuGES.VAR_TIENDA;
 end;
 
 procedure TBizAlbaranCliente.IVAOnChange(Sender: TDACustomField);

Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas

@@ -187,8 +187,9 @@ begin
   // ALMACÉN PUESTO A CAPÓN Y PROVISIONAL
   ID_ALMACEN := 1;
 
-  ID_TIENDA := CTE_ID_TODAS;
+  //TEMPORAL
-  TIENDA := CTE_TODAS;
+  ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
+  TIENDA := AppFactuGES.VAR_TIENDA;
 end;
 
 procedure TBizAlbaranProveedor.IVAOnChange(Sender: TDACustomField);

Source/Modulos/Contactos/Model/uBizClientesServer.pas

@@ -11,20 +11,76 @@ const
 
 type
   TBizClienteServer = class(TBizContactosServer)
+  private
+    FReferenciaAutomatica : Boolean;
+    function DarReferencia : String;
+    function IncrementarReferencia : Boolean;
   protected
     procedure Insert_Datos_Contacto(aChange: TDADeltaChange); override;
     procedure Update_Datos_Contacto(aChange: TDADeltaChange); override;
     procedure Delete_Datos_Contacto(aChange: TDADeltaChange); override;
+
+    procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
+    procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override;
   end;
 
 implementation
 
 uses
   uDataModuleServer, uDAClasses, srvContabilidad_Impl,
-  schContactosClient_Intf, uBusinessUtils;
+  schContactosClient_Intf, uBusinessUtils, srvReferencias_Impl;
+
+const
+  REF_CLIENTE = 'REF_CLIENTE';
 
 { TBizClienteServer }
 
+procedure TBizClienteServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
+begin
+  inherited;
+
+  // Actualizamos el contador de referencias.
+  case aChange.ChangeType of
+    ctInsert, ctUpdate: begin
+                          if FReferenciaAutomatica then
+                          begin
+                            IncrementarReferencia;
+                            FReferenciaAutomatica := False;
+                          end;
+                        end;
+  end;
+end;
+
+procedure TBizClienteServer.BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta);
+begin
+  FReferenciaAutomatica := False;
+
+  case Sender.CurrentChange.ChangeType of
+    ctInsert, ctUpdate: begin
+      //Si la referencia no ha sido asignada le asignamos una nosotros
+      if REFERENCIAIsNull or (Length(REFERENCIA) = 0) then
+      begin
+        FReferenciaAutomatica := True;
+        REFERENCIA := DarReferencia;
+      end;
+    end;
+  end;
+end;
+
+function TBizClienteServer.DarReferencia: String;
+var
+  ATipo : String;
+begin
+  ATipo := REF_CLIENTE;
+
+  with TsrvReferencias.Create(NIL) do
+    try
+      Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
+    finally
+      Free;
+    end;
+end;
+
 procedure TBizClienteServer.Delete_Datos_Contacto(aChange: TDADeltaChange);
 var
   ASchema : TDASchema;
@@ -48,6 +104,20 @@ begin
   end;
 end;
 
+function TBizClienteServer.IncrementarReferencia: Boolean;
+var
+  ATipo : String;
+begin
+  ATipo := REF_CLIENTE;
+
+  with TsrvReferencias.Create(NIL) do
+    try
+      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
+    finally
+      Free;
+    end;
+end;
+
 procedure TBizClienteServer.Insert_Datos_Contacto(aChange: TDADeltaChange);
 var
   ASchema : TDASchema;

Source/Modulos/Contactos/Model/uBizContactos.pas

@@ -450,8 +450,10 @@ end;
 procedure TBizContacto.IniciarValoresContactoNuevo;
 begin
   USUARIO := AppFactuGES.UsuarioActivo.UserName;
-  ID_TIENDA := CTE_ID_TODAS;
+
-  TIENDA := CTE_TODAS;
+  //TEMPORAL
+  ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
+  TIENDA := AppFactuGES.VAR_TIENDA;
 end;
 
 procedure TBizContacto.OnNewRecord(Sender: TDADataTable);

Source/Modulos/Contactos/Model/uBizProveedoresServer.pas

@@ -11,20 +11,76 @@ const
 
 type
   TBizProveedorServer = class(TBizContactosServer)
+  private
+    FReferenciaAutomatica : Boolean;
+    function DarReferencia : String;
+    function IncrementarReferencia : Boolean;
   protected
     procedure Insert_Datos_Contacto(aChange: TDADeltaChange); override;
     procedure Update_Datos_Contacto(aChange: TDADeltaChange); override;
     procedure Delete_Datos_Contacto(aChange: TDADeltaChange); override;
+
+    procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
+    procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override;
   end;
 
 implementation
 
 uses
   uDataModuleServer, uDAClasses, srvContabilidad_Impl,
-  schContactosClient_Intf, uBusinessUtils;
+  schContactosClient_Intf, uBusinessUtils, srvReferencias_Impl;
+
+const
+  REF_PROVEEDOR = 'REF_PROVEEDOR';
 
 { TBizProveedorServer }
 
+procedure TBizProveedorServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
+begin
+  inherited;
+
+  // Actualizamos el contador de referencias.
+  case aChange.ChangeType of
+    ctInsert, ctUpdate: begin
+                          if FReferenciaAutomatica then
+                          begin
+                            IncrementarReferencia;
+                            FReferenciaAutomatica := False;
+                          end;
+                        end;
+  end;
+end;
+
+procedure TBizProveedorServer.BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta);
+begin
+  FReferenciaAutomatica := False;
+
+  case Sender.CurrentChange.ChangeType of
+    ctInsert, ctUpdate: begin
+      //Si la referencia no ha sido asignada le asignamos una nosotros
+      if REFERENCIAIsNull or (Length(REFERENCIA) = 0) then
+      begin
+        FReferenciaAutomatica := True;
+        REFERENCIA := DarReferencia;
+      end;
+    end;
+  end;
+end;
+
+function TBizProveedorServer.DarReferencia: String;
+var
+  ATipo : String;
+begin
+  ATipo := REF_PROVEEDOR;
+
+  with TsrvReferencias.Create(NIL) do
+    try
+      Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
+    finally
+      Free;
+    end;
+end;
+
 procedure TBizProveedorServer.Delete_Datos_Contacto(aChange: TDADeltaChange);
 var
   ASchema : TDASchema;
@@ -48,6 +104,20 @@ begin
   end;
 end;
 
+function TBizProveedorServer.IncrementarReferencia: Boolean;
+var
+  ATipo : String;
+begin
+  ATipo := REF_PROVEEDOR;
+
+  with TsrvReferencias.Create(NIL) do
+    try
+      Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
+    finally
+      Free;
+    end;
+end;
+
 procedure TBizProveedorServer.Insert_Datos_Contacto(aChange: TDADeltaChange);
 var
   ASchema : TDASchema;

Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas

@@ -256,8 +256,10 @@ begin
   IVA := AppFactuGES.EmpresaActiva.IVA;
   RE := 0;
   SITUACION := CTE_PENDIENTE;
-  ID_TIENDA := CTE_ID_TODAS;
+
-  TIENDA := CTE_TODAS;
+  //TEMPORAL
+  ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
+  TIENDA := AppFactuGES.VAR_TIENDA;
 
   IGNORAR_CONTABILIDAD := 0;
 end;

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

@@ -246,8 +246,11 @@ begin
   RE := 0;
   SITUACION := CTE_PENDIENTE;
 
-  ID_TIENDA := CTE_ID_TODAS;
+  //TEMPORAL
-  TIENDA := CTE_TODAS;    
+  ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
+  TIENDA := AppFactuGES.VAR_TIENDA;
+
+  IGNORAR_CONTABILIDAD := 0;
 end;
 
 procedure TBizFacturaProveedor.IVAOnChange(Sender: TDACustomField);

Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas

@@ -201,9 +201,13 @@ begin
   REFERENCIA := '';
   SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;
 
-  ID_TIENDA := AppFactuGES.UsuarioActivo.ID_TIENDA;
+//  ID_TIENDA := AppFactuGES.UsuarioActivo.ID_TIENDA;
   ID_VENDEDOR := AppFactuGES.UsuarioActivo.ID_EMPLEADO;
-  TIENDA := CTE_TODAS;
+//  TIENDA := CTE_TODAS;
+
+  //TEMPORAL
+  ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
+  TIENDA := AppFactuGES.VAR_TIENDA;
 end;
 
 procedure TBizPresupuestoCliente.IVAOnChange(Sender: TDACustomField);

Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas

@@ -77,7 +77,7 @@ function TBizPresupuestosClienteServer.DarReferencia: String;
 begin
   with TsrvReferencias.Create(NIL) do
     try
-      Result := DarNuevaReferencia(REF_PRESUPUESTOS_CLIENTE, ID_EMPRESA)
+      Result := DarNuevaReferencia(REF_PRESUPUESTOS_CLIENTE, ID_EMPRESA, ID_TIENDA)
     finally
       Free;
     end;
@@ -88,8 +88,7 @@ function TBizPresupuestosClienteServer.IncrementarReferencia: Boolean;
 begin
   with TsrvReferencias.Create(NIL) do
     try
-      Result := IncrementarValorReferencia(REF_PRESUPUESTOS_CLIENTE,
+      Result := IncrementarValorReferencia(REF_PRESUPUESTOS_CLIENTE, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
-        Self.REFERENCIA, ID_EMPRESA)
     finally
       Free;
     end;

Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas

@@ -243,7 +243,10 @@ begin
   OTROS_GASTOS := 0;
   ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
   USUARIO := AppFactuGES.UsuarioActivo.UserName;
-  ID_TIENDA := CTE_ID_TODAS;
+
+  //TEMPORAL
+  ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
+  TIENDA := AppFactuGES.VAR_TIENDA;
 end;
 
 procedure TBizRecibosCliente.OnNewRecord(Sender: TDADataTable);

Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas

@@ -245,7 +245,10 @@ begin
   OTROS_GASTOS := 0;
   ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
   USUARIO := AppFactuGES.UsuarioActivo.UserName;
-  ID_TIENDA := CTE_ID_TODAS;
+
+  //TEMPORAL
+  ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
+  TIENDA := AppFactuGES.VAR_TIENDA;
 end;
 
 procedure TBizRecibosProveedor.OnNewRecord(Sender: TDADataTable);

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.0.0\0"
               VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "viernes, 21 de marzo de 2008 12:17\0"
+              VALUE "CompileDate", "martes, 25 de marzo de 2008 9:34\0"
          END
     END
     BLOCK "VarFileInfo"