From 695aa694f365d29ddc24e3dd4745b0f739f9c9ff Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Wed, 5 Dec 2007 17:23:59 +0000
Subject: [PATCH] =?UTF-8?q?Mejora=20de=20descripci=C3=B3n=20de=20dia=20de?=
 =?UTF-8?q?=20pago=20para=20los=20recibos=20de=20cliente?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@40 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../Contactos/Views/uEditorCliente.dfm        | 101 ++++++++++++++----
 1 file changed, 80 insertions(+), 21 deletions(-)

diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
index eef6710e..6e1f09a0 100644
--- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
@@ -5,7 +5,7 @@ inherited fEditorCliente: TfEditorCliente
   ClientHeight = 585
   ClientWidth = 656
   ExplicitWidth = 664
-  ExplicitHeight = 619
+  ExplicitHeight = 612
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -65,11 +65,10 @@ inherited fEditorCliente: TfEditorCliente
   inherited pgPaginas: TPageControl
     Width = 656
     Height = 490
+    ActivePage = pagDatosComerciales
     ExplicitWidth = 656
     ExplicitHeight = 490
     inherited pagGeneral: TTabSheet
-      ExplicitLeft = 0
-      ExplicitTop = 0
       ExplicitWidth = 648
       ExplicitHeight = 462
       inline frViewCliente1: TfrViewCliente
@@ -206,8 +205,6 @@ inherited fEditorCliente: TfEditorCliente
             Top = 84
             ExplicitLeft = 527
             ExplicitTop = 84
-            ExplicitWidth = 140
-            Width = 140
           end
           inherited eFax: TcxDBTextEdit
             Left = 527
@@ -294,9 +291,23 @@ inherited fEditorCliente: TfEditorCliente
           Width = 648
           LookAndFeel = dxLayoutOfficeLookAndFeel
           ExplicitWidth = 648
+          inherited eEntidad: TcxDBTextEdit
+            ExplicitWidth = 114
+            Width = 114
+          end
           inherited eSucursal: TcxDBTextEdit
-            Left = 419
-            ExplicitLeft = 419
+            Left = 418
+            ExplicitLeft = 418
+            ExplicitWidth = 112
+            Width = 112
+          end
+          inherited eCuenta: TcxDBTextEdit
+            ExplicitWidth = 194
+            Width = 194
+          end
+          inherited eTitular: TcxDBTextEdit
+            ExplicitWidth = 194
+            Width = 194
           end
         end
       end
@@ -325,51 +336,67 @@ inherited fEditorCliente: TfEditorCliente
           LookAndFeel = dxLayoutOfficeLookAndFeel
           ExplicitWidth = 648
           inherited Label1: TLabel
-            Left = 378
+            Left = 340
             Top = 30
-            Width = 206
-            Height = 39
-            ExplicitLeft = 378
+            Width = 281
+            Caption = 
+              'Puede indicar el d'#237'a del mes que el cliente desea realizar el pa' +
+              'go de sus recibos.'
+            ExplicitLeft = 340
             ExplicitTop = 30
-            ExplicitWidth = 206
-            ExplicitHeight = 39
+            ExplicitWidth = 281
           end
           inherited eDiasVencimiento: TcxDBSpinEdit
-            Left = 445
-            Top = 75
-            ExplicitLeft = 445
-            ExplicitTop = 75
+            Left = 466
+            Top = 62
+            ExplicitLeft = 466
+            ExplicitTop = 62
             ExplicitWidth = 160
             Width = 160
           end
           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 = 218
+            Left = 180
             Top = 57
-            ExplicitLeft = 218
+            ExplicitLeft = 180
             ExplicitTop = 57
           end
           inherited eIVA: TcxDBLookupComboBox
             Top = 84
             ExplicitTop = 84
+            ExplicitWidth = 121
+            Width = 121
           end
           inherited bTiposIVA: TButton
-            Left = 218
+            Left = 180
             Top = 84
-            ExplicitLeft = 218
+            ExplicitLeft = 180
             ExplicitTop = 84
           end
+          inherited dxLayoutGroup1: TdxLayoutGroup
+            inherited dxLayoutControl1Group5: TdxLayoutGroup
+              inherited dxLayoutControl1Item2: TdxLayoutItem
+                Caption = 'D'#237'a del mes para el pago:'
+              end
+            end
+          end
         end
       end
     end
@@ -408,15 +435,31 @@ inherited fEditorCliente: TfEditorCliente
           Width = 648
           ExplicitWidth = 648
           inherited ToolButton1: TToolButton
+            Top = 0
+            ExplicitTop = 0
             ExplicitWidth = 62
           end
           inherited ToolButton4: TToolButton
+            Top = 0
+            ExplicitTop = 0
             ExplicitWidth = 74
           end
+          inherited ToolButton5: TToolButton
+            Top = 0
+            ExplicitTop = 0
+          end
           inherited ToolButton2: TToolButton
+            Top = 0
+            ExplicitTop = 0
             ExplicitWidth = 67
           end
+          inherited ToolButton6: TToolButton
+            Top = 0
+            ExplicitTop = 0
+          end
           inherited ToolButton7: TToolButton
+            Top = 0
+            ExplicitTop = 0
             ExplicitWidth = 117
           end
         end
@@ -451,15 +494,31 @@ inherited fEditorCliente: TfEditorCliente
           Width = 648
           ExplicitWidth = 648
           inherited ToolButton1: TToolButton
+            Top = 0
+            ExplicitTop = 0
             ExplicitWidth = 62
           end
           inherited ToolButton4: TToolButton
+            Top = 0
+            ExplicitTop = 0
             ExplicitWidth = 74
           end
+          inherited ToolButton5: TToolButton
+            Top = 0
+            ExplicitTop = 0
+          end
           inherited ToolButton2: TToolButton
+            Top = 0
+            ExplicitTop = 0
             ExplicitWidth = 67
           end
+          inherited ToolButton6: TToolButton
+            Top = 0
+            ExplicitTop = 0
+          end
           inherited ToolButton7: TToolButton
+            Top = 0
+            ExplicitTop = 0
             ExplicitWidth = 117
           end
         end