From 92fb705ef6701eb616279e7b96984d0bbe7b99af Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Thu, 5 Nov 2009 16:24:35 +0000
Subject: [PATCH] Ticket #56 -> Poner automaticamente el vendedor en el
 contrato nuevo a partir del usuario que lo haga

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@458 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../Controller/uVendedoresController.pas      |  27 +++++++++++++++-
 .../ContratosCliente_controller.drc           |   2 +-
 .../Data/ContratosCliente_data.drc            |   2 +-
 .../Model/ContratosCliente_model.dpk          |   3 +-
 .../Model/ContratosCliente_model.dproj        |  29 +++++++++++-------
 .../Model/ContratosCliente_model.drc          |   2 +-
 .../Model/ContratosCliente_model.res          | Bin 384 -> 4748 bytes
 .../Model/uBizContratosCliente.pas            |  22 ++++++++++---
 .../Plugin/ContratosCliente_plugin.drc        |   2 +-
 .../Views/ContratosCliente_view.drc           |   2 +-
 .../Model/PresupuestosCliente_model.dpk       |   3 +-
 .../Model/PresupuestosCliente_model.dproj     |  25 ++++++---------
 .../Model/PresupuestosCliente_model.res       | Bin 384 -> 4748 bytes
 .../Model/uBizPresupuestosCliente.pas         |  18 ++++++++++-
 .../Views/uEditorPresupuestosCliente.pas      |   2 +-
 15 files changed, 99 insertions(+), 40 deletions(-)

diff --git a/Source/Modulos/Contactos/Controller/uVendedoresController.pas b/Source/Modulos/Contactos/Controller/uVendedoresController.pas
index d80d72f7..c4b386c5 100644
--- a/Source/Modulos/Contactos/Controller/uVendedoresController.pas
+++ b/Source/Modulos/Contactos/Controller/uVendedoresController.pas
@@ -18,6 +18,7 @@ type
     function DarListaVendedores : TStringList;
     function BuscarTodos: IBizContacto; overload;
     function BuscarTodos(const CadenaIDs: String): IBizContacto; overload;
+    function DarIDVendedorDeUsuario(const AUsuario: String): Integer;
   end;
 
   TVendedoresController = class(TContactosController, IVendedoresController)
@@ -26,7 +27,7 @@ type
     function Duplicar(AContacto: IBizContacto): IBizContacto; override;
     function Buscar(const ID: Integer): IBizContacto; override;
     function BuscarTodos: IBizContacto; overload; override;
-    function BuscarTodos(const CadenaIDs: String): IBizContacto; overload;  
+    function BuscarTodos(const CadenaIDs: String): IBizContacto; overload;
     function Nuevo : IBizContacto; override;
     procedure Ver(AContacto : IBizContacto); override;
     procedure VerTodos(AContactos: IBizContacto); override;
@@ -37,6 +38,7 @@ type
 
     function Eliminar(AVendedor: IBizContacto; AllItems: Boolean = false): Boolean; overload;
     function EsEliminable(AVendedor: IBizContacto): Boolean;
+    function DarIDVendedorDeUsuario(const AUsuario: String): Integer;
   end;
 
 implementation
@@ -103,6 +105,29 @@ begin
   FDataModule := TDataModuleVendedores.Create(Nil);
 end;
 
+function TVendedoresController.DarIDVendedorDeUsuario(
+  const AUsuario: String): Integer;
+var
+  AVendedores: IBizContacto;
+begin
+  AVendedores := BuscarTodos;
+  AVendedores.DataTable.Active := True;
+
+  with AVendedores.DataTable do
+  begin
+     First;
+     while not EOF do
+     begin
+      if (not AVendedores.USUARIOIsNull) and (AVendedores.USUARIO = AUsuario)  then
+      begin
+        Result := AVendedores.ID;
+        Break;
+      end
+      else Next;
+     end;
+  end;
+end;
+
 function TVendedoresController.DarListaVendedores: TStringList;
 var
   AVendedores: IBizContacto;
diff --git a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc
index f54dc6f9..4f89a6b2 100644
--- a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc	
+++ b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Controller\ContratosCliente_controller.res */
-/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Controller\ContratosCliente_controller.drf */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1AC.tmp */
diff --git a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc
index f309e5a6..704f0494 100644
--- a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc	
+++ b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Data\uDataModuleContratosCliente.dfm */
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Data\ContratosCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF2.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1AA.tmp */
diff --git a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dpk b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dpk
index 0cb41da2..8c1e2c75 100644
--- a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dpk	
+++ b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dpk	
@@ -33,7 +33,8 @@ requires
   adortl,
   Base,
   Contactos_model,
-  RemObjects_Core_D11;
+  Contactos_controller;  
+
 
 contains
   uBizDetallesContratoCliente in 'uBizDetallesContratoCliente.pas',
diff --git a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dproj b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dproj
index df658e0b..2fa9bb61 100644
--- a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dproj	
+++ b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dproj	
@@ -43,8 +43,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="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>
       <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">ContratosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@@ -54,19 +52,28 @@
     <DelphiCompile Include="ContratosCliente_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="Contactos_model.dcp" />
+    <DCCReference Include="..\adortl.dcp" />
+    <DCCReference Include="..\Base.dcp" />
+    <DCCReference Include="..\Contactos_c.dcp" />
+    <DCCReference Include="..\Contactos_co.dcp" />
+    <DCCReference Include="..\Contactos_con.dcp" />
+    <DCCReference Include="..\Contactos_cont.dcp" />
+    <DCCReference Include="..\Contactos_contr.dcp" />
+    <DCCReference Include="..\Contactos_contro.dcp" />
+    <DCCReference Include="..\Contactos_control.dcp" />
+    <DCCReference Include="..\Contactos_controll.dcp" />
+    <DCCReference Include="..\Contactos_controlle.dcp" />
+    <DCCReference Include="..\Contactos_model.dcp" />
+    <DCCReference Include="..\Contactos_modelcontainsuBizDetallesContratoClientein.dcp" />
+    <DCCReference Include="..\dbrtl.dcp" />
+    <DCCReference Include="..\dsnap.dcp" />
+    <DCCReference Include="..\rtl.dcp" />
+    <DCCReference Include="..\vcl.dcp" />
+    <DCCReference Include="..\vcldb.dcp" />
     <DCCReference Include="Data\uIDataModuleContratosCliente.pas" />
     <DCCReference Include="Data\uIDataModuleContratosClienteReport.pas" />
-    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="uBizContratosCliente.pas" />
     <DCCReference Include="uBizDetallesContratoCliente.pas" />
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vcldb.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc
index ca1912c5..ff6e15e4 100644
--- a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc	
+++ b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc	
@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Model\ContratosCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF0.tmp */
+/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Model\ContratosCliente_model.drf */
diff --git a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.res b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.res
index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644
GIT binary patch
literal 4748
zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg
zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?<w4U-ol;S2jC7
zx4(byej2@_#)0HWvg0i^wC4Xli+W*aXJ^(njceK|Kb@c3qFNX>p${kR>3GhM`oH*q
zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W
zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7
z{BT%G%irdMe*|oDJmgvJ<ltI;x5J<Oc>aA2`9B<Z5Toyra?r{a4$fnJHGXo6Pmcq8
z{JGCD500t1h4|yI?-f&xoj9;YT&Ch&JLO*X#NC3sCI0Xmc<f_vh`jn-1E!?th$%QM
znzGM|)$vl3f7;nE+9qR}|A?C$H3K&BFdq9?uxrIqHIne#5?8G@da2ybWLGKA686M2
z*LJMMMk4<U`dzFC9}HrSxLfOGll{P#??xir)$c2}C;ql+y-&Wa(LP{PgPk1E1@{uR
zIMCNz;u9;r(axhQvEx%?i#p<Vn=Z!SK%f10?4_`0@RY8lXRM3(t(nFSzJ$4kJr6&x
ze)~B%biu*TY$HDstHD=|UGxJceYiUQQa0Gu(p3og@%ZJ><6Xi*?M~Q;)@Sbfwf3uf
zVaWkbU<NjR3%=~AdoZbkXp`f@b0%GBT^$^V5e(n|#O(?P)hBbF)4n%2cw6U#adPM!
zz(!`V|Bfl{aH0)Y&w;SK7R4<z{p;Gwz1D%l86L3ZFZQ&=pB$<&esXT|OZ?=AGaWoe
z{>jU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv
zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N|
z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc
z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0
zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38=
zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W
zVvPDBKHh;i=RU4J_ta3E;)M<P+=2X7;VbzliQZ=IHV#+fr#{!(ukt%UJMS8=332qg
z7jD)rSbpCW+^j*cd6LUEe8#9n&v!NEJM(@?SHvB$=h@|)fjw|&qD?NQ5A&R>n>Y+L
zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m
z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJu<OVP
zzHjp+hnwo*3NQE$JTA(agu~silV5T`du+GJgWGi_7mAy`Nk8fLt~%GF$;XXcE-ri?
zyIglyyzA`K-);4Eem2MZm07RBza@W3UP)d`Rz=RFk-I);`s{$L%yyBNX0OTjo5Gk0
zs}g44uXg*l%xo^{`#0=kd*2?}Cz22Bv2;Gu?;3o~(D#gk1OKYQSCAb$(&vu@_pvWO
z>gbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T
z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC
zy(^m((;DnQmDQ<zX+PK(Lfu@ox#mOnbZjSDl}IBqv$qwK+2@))5$ba>Katmw!@c`|
G?EMQ&4NnpP

delta 11
ScmeBCZD5|Duvteife`=|>;pCc

diff --git a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
index b29b8415..2a27b8aa 100644
--- a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas	
+++ b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas	
@@ -44,6 +44,7 @@ type
     procedure CalcularIVA;
     procedure CalcularRE;
     procedure AsignarTipoIVA (IDTipoIVA : Integer);
+    procedure AsignarVendedor;
 
   protected
     FSeleccionableInterface : ISeleccionable;
@@ -98,7 +99,8 @@ implementation
 
 uses
   SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs,
-  uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uTiposIVAController, uBizTiposIVA;
+  uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uTiposIVAController,
+  uBizTiposIVA, uVendedoresController;
 
 { TBizContratoCliente }
 
@@ -257,13 +259,25 @@ begin
   ID_TIENDA := AppFactuGES.TiendaActiva.ID;
   TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
 
-  VENDEDOR := AppFactuGES.UsuarioActivo.USERNAME;
-
-
   Self.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos;
   Self.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos;
+
+  AsignarVendedor;  
 end;
 
+procedure TBizContratoCliente.AsignarVendedor;
+var
+  AVendedoresController: IVendedoresController;
+begin
+  AVendedoresController := TVendedoresController.Create;
+  try
+    ID_VENDEDOR := AVendedoresController.DarIDVendedorDeUsuario(AppFactuGES.UsuarioActivo.UserName);
+  finally
+    AVendedoresController := nil;
+  end;
+end;
+
+
 procedure TBizContratoCliente.IVAOnChange(Sender: TDACustomField);
 begin
   CalcularImporteTotal;
diff --git a/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc b/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc
index 85661e53..6cce938a 100644
--- a/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc	
+++ b/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc	
@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Plugin\uPluginContratosCliente.dfm */
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Plugin\ContratosCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf13C.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1F4.tmp */
diff --git a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc
index bc50ccfc..8e21a90e 100644
--- a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc	
+++ b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc	
@@ -25,4 +25,4 @@ END
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorElegirArticulosContratoCliente.dfm */
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorContratosClienteReport.dfm */
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\ContratosCliente_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf13A.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1F2.tmp */
diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dpk b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dpk
index f67bdc8c..73f0c59a 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dpk	
+++ b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dpk	
@@ -32,7 +32,8 @@ requires
   dsnap,
   adortl,
   Base,
-  Contactos_model;
+  Contactos_model,
+  Contactos_controller;
 
 contains
   uIDataModulePresupuestosCliente in 'Data\uIDataModulePresupuestosCliente.pas',
diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
index a9dc5118..097a3298 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj	
+++ b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj	
@@ -52,25 +52,20 @@
     <DelphiCompile Include="PresupuestosCliente_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <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" />
-    <DCCReference Include="schPresupuestosClienteServer_Intf.pas" />
-    <DCCReference Include="uBizDetallesPresupuestoCliente.pas" />
-    <DCCReference Include="uBizPresupuestosCliente.pas" />
+    <DCCReference Include="..\..\Contactos\adortl.dcp" />
+    <DCCReference Include="..\..\Contactos\Base.dcp" />
+    <DCCReference Include="..\..\Contactos\Contactos_controllercontainsuIDataModulePresupuestosClientein.dcp" />
+    <DCCReference Include="..\..\Contactos\Contactos_model.dcp" />
+    <DCCReference Include="..\..\Contactos\dbrtl.dcp" />
+    <DCCReference Include="..\..\Contactos\dsnap.dcp" />
+    <DCCReference Include="..\..\Contactos\rtl.dcp" />
+    <DCCReference Include="..\..\Contactos\vcl.dcp" />
+    <DCCReference Include="..\..\Contactos\vcldb.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6011
+EurekaLog Version=6006
 Activate=1
 Activate Handle=1
 Save Log File=1
diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.res b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.res
index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644
GIT binary patch
literal 4748
zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg
zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?<w4U-ol;S2jC7
zx4(byej2@_#)0HWvg0i^wC4Xli+W*aXJ^(njceK|Kb@c3qFNX>p${kR>3GhM`oH*q
zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W
zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7
z{BT%G%irdMe*|oDJmgvJ<ltI;x5J<Oc>aA2`9B<Z5Toyra?r{a4$fnJHGXo6Pmcq8
z{JGCD500t1h4|yI?-f&xoj9;YT&Ch&JLO*X#NC3sCI0Xmc<f_vh`jn-1E!?th$%QM
znzGM|)$vl3f7;nE+9qR}|A?C$H3K&BFdq9?uxrIqHIne#5?8G@da2ybWLGKA686M2
z*LJMMMk4<U`dzFC9}HrSxLfOGll{P#??xir)$c2}C;ql+y-&Wa(LP{PgPk1E1@{uR
zIMCNz;u9;r(axhQvEx%?i#p<Vn=Z!SK%f10?4_`0@RY8lXRM3(t(nFSzJ$4kJr6&x
ze)~B%biu*TY$HDstHD=|UGxJceYiUQQa0Gu(p3og@%ZJ><6Xi*?M~Q;)@Sbfwf3uf
zVaWkbU<NjR3%=~AdoZbkXp`f@b0%GBT^$^V5e(n|#O(?P)hBbF)4n%2cw6U#adPM!
zz(!`V|Bfl{aH0)Y&w;SK7R4<z{p;Gwz1D%l86L3ZFZQ&=pB$<&esXT|OZ?=AGaWoe
z{>jU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv
zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N|
z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc
z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0
zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38=
zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W
zVvPDBKHh;i=RU4J_ta3E;)M<P+=2X7;VbzliQZ=IHV#+fr#{!(ukt%UJMS8=332qg
z7jD)rSbpCW+^j*cd6LUEe8#9n&v!NEJM(@?SHvB$=h@|)fjw|&qD?NQ5A&R>n>Y+L
zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m
z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJu<OVP
zzHjp+hnwo*3NQE$JTA(agu~silV5T`du+GJgWGi_7mAy`Nk8fLt~%GF$;XXcE-ri?
zyIglyyzA`K-);4Eem2MZm07RBza@W3UP)d`Rz=RFk-I);`s{$L%yyBNX0OTjo5Gk0
zs}g44uXg*l%xo^{`#0=kd*2?}Cz22Bv2;Gu?;3o~(D#gk1OKYQSCAb$(&vu@_pvWO
z>gbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T
z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC
zy(^m((;DnQmDQ<zX+PK(Lfu@ox#mOnbZjSDl}IBqv$qwK+2@))5$ba>Katmw!@c`|
G?EMQ&4NnpP

delta 11
ScmeBCZD5|Duvteife`=|>;pCc

diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
index 9369607d..5ad87794 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas	
@@ -45,6 +45,7 @@ type
     procedure CalcularIVA;
     procedure CalcularRE;
     procedure AsignarTipoIVA (IDTipoIVA : Integer);
+    procedure AsignarVendedor;
 
   protected
     FSeleccionableInterface : ISeleccionable;
@@ -99,7 +100,8 @@ implementation
 
 uses
   SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs,
-  uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uTiposIVAController, uBizTiposIVA;
+  uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App,
+  uTiposIVAController, uBizTiposIVA, uVendedoresController;
 
 { TBizPresupuestoCliente }
 
@@ -217,6 +219,18 @@ begin
   inherited;
 end;
 
+procedure TBizPresupuestoCliente.AsignarVendedor;
+var
+  AVendedoresController: IVendedoresController;
+begin
+  AVendedoresController := TVendedoresController.Create;
+  try
+    ID_VENDEDOR := AVendedoresController.DarIDVendedorDeUsuario(AppFactuGES.UsuarioActivo.UserName);
+  finally
+    AVendedoresController := nil;
+  end;
+end;
+
 function TBizPresupuestoCliente.EsNuevo: Boolean;
 begin
   Result := (ID < 0);
@@ -262,6 +276,8 @@ begin
 
   Self.DataTable.FieldByName(fld_PresupuestosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos;
   Self.DataTable.FieldByName(fld_PresupuestosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos;
+
+  AsignarVendedor;  
 end;
 
 procedure TBizPresupuestoCliente.IVAOnChange(Sender: TDACustomField);
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
index 1900b57f..3732887c 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas	
@@ -311,7 +311,7 @@ begin
           ATitulo := '¿Desea generar ahora los contratos?'
         end
         else begin
-          AMensaje := 'El presupuesto han sido aceptado';
+          AMensaje := 'El presupuesto ha sido aceptado';
           ATitulo := '¿Desea generar ahora el contrato?';
         end;