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

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

@ -289,6 +289,10 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 634
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 634
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit
Left = 323
ExplicitLeft = 323
@ -406,18 +410,6 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar
Width = 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

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

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

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

@ -109,7 +109,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
end>
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsFormaPago
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@ -149,7 +149,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
end>
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsTiposIVA
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D

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

@ -138,6 +138,11 @@ 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;

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

@ -101,7 +101,7 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
end>
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsTiposIVA
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D

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

@ -133,6 +133,11 @@ 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;