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

Cambio para poner por defecto forma de pago e iva, los primeros elementos de las listas.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@188 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-04-02 11:52:35 +00:00
parent 92162ee33a
commit 2538756931
7 changed files with 60 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -65,7 +65,6 @@ inherited fEditorCliente: TfEditorCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 890 Width = 890
Height = 544 Height = 544
ActivePage = pagContabilidad
ExplicitWidth = 890 ExplicitWidth = 890
ExplicitHeight = 544 ExplicitHeight = 544
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -310,9 +309,23 @@ inherited fEditorCliente: TfEditorCliente
Width = 882 Width = 882
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 882 ExplicitWidth = 882
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 543 Left = 542
ExplicitLeft = 543 ExplicitLeft = 542
ExplicitWidth = 112
Width = 112
end
inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end end
end end
end end
@ -341,20 +354,20 @@ inherited fEditorCliente: TfEditorCliente
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 882 ExplicitWidth = 882
inherited Label1: TLabel inherited Label1: TLabel
Left = 465 Left = 492
Top = 30 Top = 30
Width = 281 Width = 281
Caption = Caption =
'Puede indicar el d'#237'a del mes que el cliente desea realizar el pa' + 'Puede indicar el d'#237'a del mes que el cliente desea realizar el pa' +
'go de sus recibos.' 'go de sus recibos.'
ExplicitLeft = 465 ExplicitLeft = 492
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 281 ExplicitWidth = 281
end end
inherited eDiasVencimiento: TcxDBSpinEdit inherited eDiasVencimiento: TcxDBSpinEdit
Left = 591 Left = 618
Top = 62 Top = 62
ExplicitLeft = 591 ExplicitLeft = 618
ExplicitTop = 62 ExplicitTop = 62
ExplicitWidth = 160 ExplicitWidth = 160
Width = 160 Width = 160
@ -362,29 +375,37 @@ inherited fEditorCliente: TfEditorCliente
inherited cbRegimenIVA: TcxDBComboBox inherited cbRegimenIVA: TcxDBComboBox
Top = 30 Top = 30
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 121
Width = 121
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 111 Top = 111
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 121
Width = 121
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Top = 57 Top = 57
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 121
Width = 121
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 305 Left = 332
Top = 57 Top = 57
ExplicitLeft = 305 ExplicitLeft = 332
ExplicitTop = 57 ExplicitTop = 57
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Top = 84 Top = 84
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 121
Width = 121
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 305 Left = 332
Top = 84 Top = 84
ExplicitLeft = 305 ExplicitLeft = 332
ExplicitTop = 84 ExplicitTop = 84
end end
inherited dxLayoutGroup1: TdxLayoutGroup inherited dxLayoutGroup1: TdxLayoutGroup
@ -518,10 +539,18 @@ inherited fEditorCliente: TfEditorCliente
DesignSize = ( DesignSize = (
882 882
516) 516)
inherited eRefSubCuenta: TcxDBTextEdit
ExplicitWidth = 346
Width = 346
end
inherited BitBtn3: TBitBtn inherited BitBtn3: TBitBtn
Left = 540 Left = 540
ExplicitLeft = 540 ExplicitLeft = 540
end end
inherited eSubCuenta: TcxDBTextEdit
ExplicitWidth = 265
Width = 265
end
inherited BitBtn1: TBitBtn inherited BitBtn1: TBitBtn
Left = 656 Left = 656
ExplicitLeft = 656 ExplicitLeft = 656
@ -532,6 +561,8 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited cbIgnorarContabilidad: TcxDBCheckBox inherited cbIgnorarContabilidad: TcxDBCheckBox
DataBinding.DataSource = frViewCliente1.dsContacto DataBinding.DataSource = frViewCliente1.dsContacto
ExplicitWidth = 300
Width = 300
end end
end end
end end

16
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

@ -289,6 +289,10 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 634 Width = 634
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 634 ExplicitWidth = 634
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 323 Left = 323
ExplicitLeft = 323 ExplicitLeft = 323
@ -406,18 +410,6 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 634 Width = 634
ExplicitWidth = 634 ExplicitWidth = 634
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end

2
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

@ -358,7 +358,7 @@ inherited frViewCliente: TfrViewCliente
end end
end end
inherited dxLayoutControlContactoGroup3: TdxLayoutGroup inherited dxLayoutControlContactoGroup3: TdxLayoutGroup
Caption = 'Domicilio fiscal' Caption = 'Domicilio'
end end
object dxLayoutControlContactoGroup18: TdxLayoutGroup object dxLayoutControlContactoGroup18: TdxLayoutGroup
Caption = 'Bloqueo' Caption = 'Bloqueo'

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

@ -138,6 +138,11 @@ begin
FTiposIVA := FTiposIVAController.BuscarTodos; FTiposIVA := FTiposIVAController.BuscarTodos;
dsTiposIVA.DataTable := FTiposIVA.DataTable; dsTiposIVA.DataTable := FTiposIVA.DataTable;
dsTiposIVA.DataTable.Active := True; 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 end
else begin else begin
dsDatosComerciales.DataTable := NIL; dsDatosComerciales.DataTable := NIL;

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

@ -133,6 +133,11 @@ begin
FTiposIVA := FTiposIVAController.BuscarTodos; FTiposIVA := FTiposIVAController.BuscarTodos;
dsTiposIVA.DataTable := FTiposIVA.DataTable; dsTiposIVA.DataTable := FTiposIVA.DataTable;
dsTiposIVA.DataTable.Active := True; 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 end
else begin else begin
dsDatosComerciales.DataTable := NIL; dsDatosComerciales.DataTable := NIL;