From 2538756931bf95eea303ea42bda828f12b8e1873 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 2 Apr 2008 11:52:35 +0000 Subject: [PATCH] Cambio para poner por defecto forma de pago e iva, los primeros elementos de las listas. git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@188 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Contactos/Views/uEditorCliente.dfm | 53 +++++++++++++++---- .../Contactos/Views/uEditorProveedor.dfm | 16 ++---- .../Modulos/Contactos/Views/uViewCliente.dfm | 2 +- .../Views/uViewClienteDatosComerciales.dfm | 4 +- .../Views/uViewClienteDatosComerciales.pas | 5 ++ .../Views/uViewProveedorDatosComerciales.dfm | 2 +- .../Views/uViewProveedorDatosComerciales.pas | 5 ++ 7 files changed, 60 insertions(+), 27 deletions(-) diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm index 88003d1d..bf1ebf47 100644 --- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm +++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm @@ -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 diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm index eff56454..fb01ef2b 100644 --- a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm +++ b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm @@ -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 diff --git a/Source/Modulos/Contactos/Views/uViewCliente.dfm b/Source/Modulos/Contactos/Views/uViewCliente.dfm index 14b2aeca..eaefda9d 100644 --- a/Source/Modulos/Contactos/Views/uViewCliente.dfm +++ b/Source/Modulos/Contactos/Views/uViewCliente.dfm @@ -358,7 +358,7 @@ inherited frViewCliente: TfrViewCliente end end inherited dxLayoutControlContactoGroup3: TdxLayoutGroup - Caption = 'Domicilio fiscal' + Caption = 'Domicilio' end object dxLayoutControlContactoGroup18: TdxLayoutGroup Caption = 'Bloqueo' diff --git a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm index 1fc96da4..cd5d5e50 100644 --- a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm +++ b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm @@ -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 diff --git a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas index b97d200d..c5d10398 100644 --- a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas +++ b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas @@ -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; diff --git a/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.dfm b/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.dfm index 89f35c7c..c483ebad 100644 --- a/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.dfm +++ b/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.dfm @@ -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 diff --git a/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas b/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas index 3e3d4b86..8c7ec490 100644 --- a/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas +++ b/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas @@ -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;