From e06356731e692b31341af3917fa3cea49d7a13f3 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Fri, 23 May 2008 14:51:57 +0000
Subject: [PATCH] =?UTF-8?q?Se=20quita=20la=20asignaci=C3=B3n=20de=20id=5Ft?=
 =?UTF-8?q?ienda=20de=20la=20aplicaci=C3=B3n=20como=20temporal=20porque=20?=
 =?UTF-8?q?ya=20se=20hace=20en=20la=20base?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@228 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../Model/PresupuestosCliente_model.dproj     | 22 ++++++++-----------
 .../Model/uBizPresupuestosCliente.pas         | 10 ++++-----
 .../Views/uViewPresupuestoCliente.pas         |  4 ++--
 3 files changed, 15 insertions(+), 21 deletions(-)

diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
index 9d85586b..dcd476ce 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj	
+++ b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj	
@@ -42,11 +42,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <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>
-      
-      
-      
-      
+<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">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 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>
@@ -58,14 +54,14 @@
     <DelphiCompile Include="PresupuestosCliente_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\adortl.dcp" />
-    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\Base.dcp" />
-    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\Contactos_model.dcp" />
-    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\dbrtl.dcp" />
-    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\dsnap.dcp" />
-    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\rtl.dcp" />
-    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\vcl.dcp" />
-    <DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\vcldb.dcp" />
+    <DCCReference Include="..\adortl.dcp" />
+    <DCCReference Include="..\Base.dcp" />
+    <DCCReference Include="..\Contactos_model.dcp" />
+    <DCCReference Include="..\dbrtl.dcp" />
+    <DCCReference Include="..\dsnap.dcp" />
+    <DCCReference Include="..\rtl.dcp" />
+    <DCCReference Include="..\vcl.dcp" />
+    <DCCReference Include="..\vcldb.dcp" />
     <DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
     <DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
     <DCCReference Include="schPresupuestosClienteClient_Intf.pas" />
diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
index 30fbf98b..838aa45a 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas	
@@ -200,14 +200,12 @@ begin
 //  INCIDENCIAS := NIL;
   REFERENCIA := '';
   SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;
-
-//  ID_TIENDA := AppFactuGES.UsuarioActivo.ID_TIENDA;
-  ID_VENDEDOR := AppFactuGES.UsuarioActivo.ID_EMPLEADO;
-//  TIENDA := CTE_TODAS;
-
-  //TEMPORAL
   ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
   TIENDA := AppFactuGES.VAR_TIENDA;
+
+//  ID_VENDEDOR := AppFactuGES.UsuarioActivo.ID_EMPLEADO;
+
+
 end;
 
 procedure TBizPresupuestoCliente.IVAOnChange(Sender: TDACustomField);
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
index a5bb72ea..6c121184 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas	
@@ -12,7 +12,7 @@ uses
   cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
   uViewDireccionEntregaPresupuestoCliente, Buttons, ActnList, cxLookupEdit,
   cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
-  uBizFormasPago, uViewTienda, uPresupuestosClienteController, uEmpleadosController;
+  uBizFormasPago, uViewTienda, uPresupuestosClienteController, uVendedoresController;
 
 type
   IViewPresupuestoCliente = interface(IViewBase)
@@ -143,7 +143,7 @@ begin
   FViewClientePresupuesto := frViewClientePresupuesto;
   FViewClientePresupuesto.MsgElegirCliente := 'Elija el cliente al que se le realizará el presupuesto.';
 
-  with TEmpleadosController.Create do
+  with TVendedoresController.Create do
   begin
     try
       FListaVendedores := DarListaVendedores;