From f932ed73ba8b0a1dd5d32e1a20c57c2fc6d335f2 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Mon, 14 Jul 2008 08:43:36 +0000
Subject: [PATCH] =?UTF-8?q?Configuraci=C3=B3n=20de=20proveedores?=
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@273 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 Source/ApplicationBase/ApplicationBase.dproj  | 110 ++-------
 Source/ApplicationBase/ApplicationBase.res    | Bin 384 -> 4748 bytes
 Source/Base/Base.dproj                        | 210 ++++++++++--------
 Source/Base/Base.res                          | Bin 384 -> 4748 bytes
 .../Modulos/Contactos/Model/uBizContactos.pas |  19 +-
 .../Views/uViewClienteDatosComerciales.dfm    |   8 +-
 .../Views/uViewConfiguracionContactos.dfm     | 171 ++++++++++++--
 .../Views/uViewConfiguracionContactos.pas     |  27 +++
 .../Views/uViewProveedorDatosComerciales.pas  |   5 -
 9 files changed, 331 insertions(+), 219 deletions(-)

diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj
index 8dff930d..c92ec926 100644
--- a/Source/ApplicationBase/ApplicationBase.dproj
+++ b/Source/ApplicationBase/ApplicationBase.dproj
@@ -55,84 +55,6 @@
       
       
       
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
@@ -143,22 +65,22 @@
     <DelphiCompile Include="ApplicationBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Contabilidad\Views\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Views\Base.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Views\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Views\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Views\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Views\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Views\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Views\dxNavBarD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Views\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Views\GUIBase.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Views\JvJansD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Views\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Views\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Views\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Views\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Views\vcljpg.dcp" />
+    <DCCReference Include="..\Cliente\adortl.dcp" />
+    <DCCReference Include="..\Cliente\Base.dcp" />
+    <DCCReference Include="..\Cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Cliente\dsnap.dcp" />
+    <DCCReference Include="..\Cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Cliente\dxNavBarD11.dcp" />
+    <DCCReference Include="..\Cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Cliente\GUIBase.dcp" />
+    <DCCReference Include="..\Cliente\JvJansD11R.dcp" />
+    <DCCReference Include="..\Cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Cliente\rtl.dcp" />
+    <DCCReference Include="..\Cliente\vcl.dcp" />
+    <DCCReference Include="..\Cliente\vcldb.dcp" />
+    <DCCReference Include="..\Cliente\vcljpg.dcp" />
     <DCCReference Include="Configuracion\Controller\uConfiguracionController.pas" />
     <DCCReference Include="Configuracion\Controller\Views\uIViewConfiguracionBase.pas" />
     <DCCReference Include="Configuracion\Views\uEditorConfiguracion.pas">
diff --git a/Source/ApplicationBase/ApplicationBase.res b/Source/ApplicationBase/ApplicationBase.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/Base/Base.dproj b/Source/Base/Base.dproj
index c0abff9b..1f16fd81 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,34 +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>
@@ -86,75 +58,119 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\GUIBase\adortl.dcp" />
-    <DCCReference Include="..\GUIBase\cxIntl6D11.dcp" />
-    <DCCReference Include="..\GUIBase\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\GUIBase\cxLibraryD11.dcp" />
-    <DCCReference Include="..\GUIBase\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\GUIBase\dbrtl.dcp" />
-    <DCCReference Include="..\GUIBase\dclIndyCore.dcp" />
-    <DCCReference Include="..\GUIBase\designide.dcp" />
-    <DCCReference Include="..\GUIBase\dsnap.dcp" />
-    <DCCReference Include="..\GUIBase\dxDockingD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxNavBarD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinBlackD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinBlueD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinCaramelD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinCoffeeD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinGlassOceansD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkiniMaginaryD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinLilianD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinLiquidSkyD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinLondonLiquidSkyD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinMcSkinD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinMoneyTwinsD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinOffice2007BlackD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinOffice2007BlueD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinOffice2007GreenD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinOffice2007PinkD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinOffice2007SilverD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinsCoreD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinsdxLCPainterD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinsdxNavBar2PainterD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinSilverD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinStardustD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinValentineD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxSkinXmas2008BlueD11.dcp" />
-    <DCCReference Include="..\GUIBase\dxThemeD11.dcp" />
-    <DCCReference Include="..\GUIBase\GUISDK_D11.dcp" />
-    <DCCReference Include="..\GUIBase\IndyCore.dcp" />
-    <DCCReference Include="..\GUIBase\IndyProtocols.dcp" />
-    <DCCReference Include="..\GUIBase\IndySystem.dcp" />
-    <DCCReference Include="..\GUIBase\Jcl.dcp" />
-    <DCCReference Include="..\GUIBase\JclVcl.dcp" />
-    <DCCReference Include="..\GUIBase\JSDialog100.dcp" />
-    <DCCReference Include="..\GUIBase\JvCmpD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvCoreD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvMMD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvNetD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\GUIBase\JvSystemD11R.dcp" />
-    <DCCReference Include="..\GUIBase\pckMD5.dcp" />
-    <DCCReference Include="..\GUIBase\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\GUIBase\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\GUIBase\PluginSDK_D10R.dcp" />
-    <DCCReference Include="..\GUIBase\PngComponentsD10.dcp" />
-    <DCCReference Include="..\GUIBase\PNG_D10.dcp" />
-    <DCCReference Include="..\GUIBase\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\GUIBase\rtl.dcp" />
-    <DCCReference Include="..\GUIBase\TB2k_D10.dcp" />
-    <DCCReference Include="..\GUIBase\tbx_d10.dcp" />
-    <DCCReference Include="..\GUIBase\vcl.dcp" />
-    <DCCReference Include="..\GUIBase\vclactnband.dcp" />
-    <DCCReference Include="..\GUIBase\vcldb.dcp" />
-    <DCCReference Include="..\GUIBase\vcljpg.dcp" />
-    <DCCReference Include="..\GUIBase\VclSmp.dcp" />
-    <DCCReference Include="..\GUIBase\vclx.dcp" />
-    <DCCReference Include="..\GUIBase\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\cxLibraryD11.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\dxDockingD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxNavBarD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinBlackD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinBlueD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinCaramelD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinCoffeeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinGlassOceansD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkiniMaginaryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinLilianD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinLiquidSkyD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinLondonLiquidSkyD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinMcSkinD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinMoneyTwinsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinOffice2007BlackD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinOffice2007BlueD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinOffice2007GreenD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinOffice2007PinkD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinOffice2007SilverD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinsCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinscxPCPainterD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinsdxLCPainterD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinsdxNavBar2PainterD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinSilverD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinStardustD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinValentineD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxSkinXmas2008BlueD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.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>
+    </DCCReference>
+    <DCCReference Include="Conexion\uDataModuleConexion.pas">
+      <Form>dmConexion</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Configuracion\uDataModuleConfiguracion.pas">
+      <Form>dmConfiguracion</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Controladores\uControllerBase.pas" />
+    <DCCReference Include="Controladores\uControllerDetallesBase.pas" />
+    <DCCReference Include="schBase_Intf.pas" />
+    <DCCReference Include="uDataModuleBase.pas">
+      <Form>DataModuleBase</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uDMBase.pas">
+      <Form>dmBase</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
+    <DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
+    <DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
+    <DCCReference Include="Utiles\ClassRegistry\uViewConfiguracionRegistryUtils.pas" />
+    <DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
+    <DCCReference Include="Utiles\uAppInfoUtils.pas" />
+    <DCCReference Include="Utiles\uCalculosUtils.pas" />
+    <DCCReference Include="Utiles\uDataTableUtils.pas" />
+    <DCCReference Include="Utiles\uDateUtils.pas" />
+    <DCCReference Include="Utiles\uDBSelectionListUtils.pas" />
+    <DCCReference Include="Utiles\uDialogUtils.pas" />
+    <DCCReference Include="Utiles\uGridUtils.pas" />
+    <DCCReference Include="Utiles\uInfoProjectUtils.pas" />
+    <DCCReference Include="Utiles\uIntegerListUtils.pas" />
+    <DCCReference Include="Utiles\uMD5.pas" />
+    <DCCReference Include="Utiles\uNumUtils.pas" />
+    <DCCReference Include="Utiles\uPasswordUtils.pas" />
+    <DCCReference Include="Utiles\uSistemaFunc.pas" />
+    <DCCReference Include="Utiles\uStringsUtils.pas" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Base/Base.res b/Source/Base/Base.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/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas
index 70bca986..1ebdb13d 100644
--- a/Source/Modulos/Contactos/Model/uBizContactos.pas
+++ b/Source/Modulos/Contactos/Model/uBizContactos.pas
@@ -736,10 +736,13 @@ begin
 end;
 
 procedure TBizProveedor.IniciarValoresContactoNuevo;
+var
+  AFormaPagoController: IFormasPagoController;
+  ATiposIVAController: ITiposIVAController;
 begin
   inherited;
   ID_CATEGORIA := CATEGORIA_PROVEEDOR;
-  REGIMEN_IVA := PROVEEDOR_REGIMEN_IVA;
+  REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString('Proveedores.RegimenIVA', PROVEEDOR_REGIMEN_IVA);
 
   {$IFDEF CONTABILIDAD}
     IGNORAR_CONTABILIDAD := 0;
@@ -750,6 +753,20 @@ begin
     TIENE_SUBCUENTA := 0;
     ES_ACREEDOR := 0;
   {$ENDIF}
+
+  AFormaPagoController := TFormasPagoController.Create;
+  try
+    ID_FORMA_PAGO := AFormaPagoController.BuscarID(AppFactuGES.Configuracion.GetSettingAsString('Proveedores.FormaPago'))
+  finally
+    AFormaPagoController := NIL;
+  end;
+
+  ATiposIVAController := TTiposIVAController.Create;
+  try
+    ID_TIPO_IVA := ATiposIVAController.BuscarID(AppFactuGES.Configuracion.GetSettingAsString('Proveedores.TipoIVA'))
+  finally
+    ATiposIVAController := NIL;
+  end;
 end;
 
 constructor TBizProveedor.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
index 2f2bbdc9..982c83fe 100644
--- a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
+++ b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
@@ -71,7 +71,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 0
-      Width = 181
+      Width = 180
     end
     object cbRecargoEquivalencia: TcxDBCheckBox
       Left = 107
@@ -95,7 +95,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 5
-      Width = 181
+      Width = 180
     end
     object cbFormaPago: TcxDBLookupComboBox
       Left = 107
@@ -127,7 +127,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 1
-      Width = 43
+      Width = 42
     end
     object bFormasPago: TButton
       Left = 155
@@ -168,7 +168,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       TabOrder = 3
-      Width = 43
+      Width = 42
     end
     object bTiposIVA: TButton
       Left = 155
diff --git a/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm b/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm
index b89f0fda..1362c0ef 100644
--- a/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm
+++ b/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm
@@ -1,20 +1,27 @@
 inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
+  Width = 547
+  Height = 411
   inherited Panel1: TPanel
+    Width = 537
+    ExplicitTop = 49
+    ExplicitWidth = 537
     inherited Label3: TLabel
-      Width = 166
+      Width = 525
       Caption = 'Configuraci'#243'n para clientes'
-      ExplicitWidth = 166
+      ExplicitTop = 5
+      ExplicitWidth = 525
     end
   end
   inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
+    Width = 547
     LabelCaption = 'Configuraci'#243'n para contactos'
   end
   object Panel3: TPanel
     AlignWithMargins = True
     Left = 5
     Top = 68
-    Width = 441
-    Height = 149
+    Width = 537
+    Height = 133
     Margins.Left = 5
     Margins.Top = 0
     Margins.Right = 5
@@ -25,53 +32,53 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
     TabOrder = 2
     object Label1: TLabel
       Left = 17
-      Top = 54
+      Top = 36
       Width = 76
       Height = 13
       Caption = 'Forma de pago:'
     end
     object Label2: TLabel
       Left = 6
-      Top = 16
-      Width = 31
+      Top = 8
+      Width = 246
       Height = 13
-      Caption = 'Label2'
+      Caption = 'Valores por defecto al dar de alta un cliente nuevo:'
     end
     object Label4: TLabel
       Left = 17
-      Top = 81
+      Top = 63
       Width = 80
       Height = 13
       Caption = 'R'#233'gimen de IVA:'
     end
     object Label5: TLabel
       Left = 17
-      Top = 108
+      Top = 90
       Width = 50
       Height = 13
       Caption = '% de IVA:'
     end
     object cbFormaPago: TComboBox
       Left = 111
-      Top = 51
+      Top = 33
       Width = 168
       Height = 21
       Style = csDropDownList
-      ItemHeight = 0
+      ItemHeight = 13
       TabOrder = 0
     end
     object cbRegimenIVA: TComboBox
       Left = 111
-      Top = 78
+      Top = 60
       Width = 168
       Height = 21
       Style = csDropDownList
-      ItemHeight = 0
+      ItemHeight = 13
       TabOrder = 1
     end
     object bFormasPago: TButton
       Left = 285
-      Top = 51
+      Top = 33
       Width = 132
       Height = 21
       Caption = 'Ver las formas de pago...'
@@ -80,7 +87,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
     end
     object bTiposIVA: TButton
       Left = 285
-      Top = 105
+      Top = 87
       Width = 132
       Height = 21
       Caption = 'Ver los tipos de IVA...'
@@ -89,12 +96,140 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
     end
     object cbIVA: TComboBox
       Left = 111
-      Top = 105
+      Top = 87
       Width = 168
       Height = 21
       Style = csDropDownList
-      ItemHeight = 0
+      ItemHeight = 13
       TabOrder = 4
     end
   end
+  object Panel4: TPanel
+    AlignWithMargins = True
+    Left = 5
+    Top = 223
+    Width = 537
+    Height = 130
+    Margins.Left = 5
+    Margins.Top = 0
+    Margins.Right = 5
+    Margins.Bottom = 0
+    Align = alTop
+    BevelOuter = bvNone
+    ParentColor = True
+    TabOrder = 3
+    object Label7: TLabel
+      Left = 17
+      Top = 37
+      Width = 76
+      Height = 13
+      Caption = 'Forma de pago:'
+    end
+    object Label8: TLabel
+      Left = 6
+      Top = 8
+      Width = 265
+      Height = 13
+      Caption = 'Valores por defecto al dar de alta un proveedor nuevo:'
+    end
+    object Label9: TLabel
+      Left = 17
+      Top = 64
+      Width = 80
+      Height = 13
+      Caption = 'R'#233'gimen de IVA:'
+    end
+    object Label10: TLabel
+      Left = 17
+      Top = 91
+      Width = 50
+      Height = 13
+      Caption = '% de IVA:'
+    end
+    object cbFormaPagoProv: TComboBox
+      Left = 111
+      Top = 34
+      Width = 168
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 13
+      TabOrder = 0
+    end
+    object cbRegimenIVAProv: TComboBox
+      Left = 111
+      Top = 61
+      Width = 168
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 13
+      TabOrder = 1
+    end
+    object Button1: TButton
+      Left = 285
+      Top = 34
+      Width = 132
+      Height = 21
+      Caption = 'Ver las formas de pago...'
+      TabOrder = 2
+      OnClick = bFormasPagoClick
+    end
+    object Button2: TButton
+      Left = 285
+      Top = 88
+      Width = 132
+      Height = 21
+      Caption = 'Ver los tipos de IVA...'
+      TabOrder = 3
+      OnClick = bTiposIVAClick
+    end
+    object cbTipoIVAProv: TComboBox
+      Left = 111
+      Top = 88
+      Width = 168
+      Height = 21
+      Style = csDropDownList
+      ItemHeight = 13
+      TabOrder = 4
+    end
+  end
+  object Panel2: TPanel
+    AlignWithMargins = True
+    Left = 5
+    Top = 201
+    Width = 537
+    Height = 22
+    Margins.Left = 5
+    Margins.Top = 0
+    Margins.Right = 5
+    Margins.Bottom = 0
+    Align = alTop
+    Alignment = taLeftJustify
+    AutoSize = True
+    BevelInner = bvSpace
+    BevelOuter = bvNone
+    Color = clInactiveCaptionText
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clHotLight
+    Font.Height = -12
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    Padding.Left = 5
+    Padding.Top = 3
+    Padding.Right = 5
+    Padding.Bottom = 3
+    ParentBackground = False
+    ParentFont = False
+    TabOrder = 4
+    ExplicitLeft = -1
+    ExplicitTop = 239
+    object Label6: TLabel
+      Left = 6
+      Top = 4
+      Width = 525
+      Height = 14
+      Align = alTop
+      Caption = 'Configuraci'#243'n para proveedores'
+      ExplicitWidth = 196
+    end
+  end
 end
diff --git a/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.pas b/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.pas
index a93055e9..63b9efd2 100644
--- a/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.pas
+++ b/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.pas
@@ -20,6 +20,18 @@ type
     bFormasPago: TButton;
     bTiposIVA: TButton;
     cbIVA: TComboBox;
+    Panel4: TPanel;
+    Label7: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
+    Label10: TLabel;
+    cbFormaPagoProv: TComboBox;
+    cbRegimenIVAProv: TComboBox;
+    Button1: TButton;
+    Button2: TButton;
+    cbTipoIVAProv: TComboBox;
+    Panel2: TPanel;
+    Label6: TLabel;
     procedure bFormasPagoClick(Sender: TObject);
     procedure bTiposIVAClick(Sender: TObject);
   private
@@ -69,12 +81,22 @@ begin
   inherited;
 
   cbRegimenIVA.Items := DarRegimenesIVA;
+  cbRegimenIVAProv.Items := cbRegimenIVA.Items;
+
   cbFormaPago.Items := FFormasPagoController.DarListaFormasPago;
+  cbFormaPagoProv.Items := cbFormaPago.Items;
+
   cbIVA.Items := FTiposIVAController.DarListaTiposIVA;
+  cbTipoIVAProv.Items := cbIVA.Items;
 
   cbRegimenIVA.ItemIndex := cbRegimenIVA.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Clientes.RegimenIVA', cbRegimenIVA.Items[0]));
+  cbRegimenIVAProv.ItemIndex := cbRegimenIVAProv.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Proveedores.RegimenIVA', cbRegimenIVAProv.Items[0]));
+
   cbFormaPago.ItemIndex := cbFormaPago.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Clientes.FormaPago', cbFormaPago.Items[0]));
+  cbFormaPagoProv.ItemIndex := cbFormaPagoProv.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Proveedores.FormaPago', cbFormaPagoProv.Items[0]));
+
   cbIVA.ItemIndex := cbIVA.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Clientes.TipoIVA'));
+  cbTipoIVAProv.ItemIndex := cbTipoIVAProv.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Proveedores.TipoIVA'));
 end;
 
 constructor TfrViewConfiguracionContactos.Create(AOwner: TComponent);
@@ -107,6 +129,11 @@ begin
   AppFactuGES.Configuracion.SetSettingAsString('Clientes.RegimenIVA', cbRegimenIVA.Text);
   AppFactuGES.Configuracion.SetSettingAsString('Clientes.FormaPago', cbFormaPago.Text);
   AppFactuGES.Configuracion.SetSettingAsString('Clientes.TipoIVA', cbIVA.Text);
+
+  AppFactuGES.Configuracion.SetSettingAsString('Proveedores.RegimenIVA', cbRegimenIVAProv.Text);
+  AppFactuGES.Configuracion.SetSettingAsString('Proveedores.FormaPago', cbFormaPagoProv.Text);
+  AppFactuGES.Configuracion.SetSettingAsString('Proveedores.TipoIVA', cbTipoIVAProv.Text);
+
 end;
 
 end.
diff --git a/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas b/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas
index 6bcb23c6..b9c6d1d4 100644
--- a/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas
+++ b/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas
@@ -139,11 +139,6 @@ begin
     FTiposIVA := FTiposIVAController.BuscarTodos;
     dsTiposIVA.DataTable := FTiposIVA.DataTable;
     dsTiposIVA.DataTable.Active := True;
-
-    //Por defecto se establece la primera forma de pago (CONTADO) y la primera forma de IVA (16%)
-    cbFormaPago.ItemIndex := 0;
-    eIVA.ItemIndex := 0;
-    
   end
   else begin
     dsDatosComerciales.DataTable := NIL;