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 8b251f31..1641339f 100644
Binary files a/Source/ApplicationBase/ApplicationBase.res and b/Source/ApplicationBase/ApplicationBase.res differ
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 8b251f31..1641339f 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
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;