Se arreglan los controller de toda la aplicación para que en el duplicar se establezca además de la empresa activa la tienda activa.

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@34 93f398dd-4eb6-7a46-baf6-13f46f578da2

Source/Base/Base.dproj

@@ -44,13 +44,6 @@
     <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="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</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><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>

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas

@@ -428,6 +428,7 @@ begin
     with Result do
     begin
       ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+      ID_TIENDA := AppFactuGES.TiendaActiva.ID;      
       USUARIO := AppFactuGES.UsuarioActivo.UserName;
       FECHA_ALBARAN := DateOf(Now);
       INCIDENCIAS_ACTIVAS := 0;

Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas

@@ -530,6 +530,7 @@ begin
     with Result do
     begin
       ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+      ID_TIENDA := AppFactuGES.TiendaActiva.ID;
       USUARIO := AppFactuGES.UsuarioActivo.UserName;
       FECHA_ALBARAN := DateOf(Now);
       INCIDENCIAS_ACTIVAS := 0;

Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas

@@ -366,6 +366,7 @@ begin
     with Result do
     begin
       ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+      ID_TIENDA := AppFactuGES.TiendaActiva.ID;      
       USUARIO := AppFactuGES.UsuarioActivo.UserName;
       FECHA_CONTRATO := DateOf(Now);
       INCIDENCIAS_ACTIVAS := 0;

Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas

@@ -563,6 +563,7 @@ begin
     with Result do
     begin
       ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+      ID_TIENDA := AppFactuGES.TiendaActiva.ID;      
       USUARIO := AppFactuGES.UsuarioActivo.UserName;
       REFERENCIA := ''; //Para que se asigne una nueva
       SITUACION := CTE_PENDIENTE; //Al ser una nueva debe de estar pendiente

Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas

@@ -617,6 +617,7 @@ begin
     with Result do
     begin
       ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+      ID_TIENDA := AppFactuGES.TiendaActiva.ID;      
       USUARIO := AppFactuGES.UsuarioActivo.UserName;
       REFERENCIA := ''; //Para que se asigne una nueva
       SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente

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

@@ -455,6 +455,7 @@ begin
     with Result do
     begin
       ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+      ID_TIENDA := AppFactuGES.TiendaActiva.ID;
       USUARIO := AppFactuGES.UsuarioActivo.UserName;
       FECHA_PRESUPUESTO := DateOf(Now);
       INCIDENCIAS_ACTIVAS := 0;