Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Configuración de proveedores

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@273 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-07-14 08:43:36 +00:00
parent 900b88959d
commit f932ed73ba
9 changed files with 331 additions and 219 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

110
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -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">

BIN
Source/ApplicationBase/ApplicationBase.res
View File

Binary file not shown.

210
Source/Base/Base.dproj
View File

@ -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

BIN
Source/Base/Base.res
View File

Binary file not shown.

19
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -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);

8
Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
View File

@ -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

171
Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm
View File

@ -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

27
Source/Modulos/Contactos/Views/uViewConfiguracionContactos.pas
View File

@ -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.

5
Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas
View File

@ -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;