From 199b114eaadafaf28cc37af64fa2fe06264066a9 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Thu, 20 Dec 2007 10:13:34 +0000
Subject: [PATCH] =?UTF-8?q?Elegir=20direcci=C3=B3n=20de=20cliente=20->=20S?=
 =?UTF-8?q?e=20han=20quitado=20los=20portes.?=
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.Tecsitel_FactuGES2/trunk@184 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Views/uEditorElegirDireccionEntrega.dfm   | 32 +++----------------
 .../Views/uEditorElegirDireccionEntrega.pas   |  4 +--
 2 files changed, 5 insertions(+), 31 deletions(-)

diff --git a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm
index 7c3e95ca..09e3b72f 100644
--- a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm
@@ -2,7 +2,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
   Left = 227
   Top = 108
   BorderStyle = bsDialog
-  Caption = 'Elegir una direcciones de entrega'
+  Caption = 'Elegir una direcciones de cliente'
   ClientHeight = 383
   ClientWidth = 599
   Color = clBtnFace
@@ -35,8 +35,8 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
       'Seleccione una direcci'#243'n del cliente')
     Comments.Strings = (
       
-        'Seleccione la direcci'#243'n del cliente que quiere utilizar como dir' +
-        'ecci'#243'n de envio.')
+        'El cliente dispone de varias direcciones dadas de alta en su fic' +
+        'ha. Seleccione la direcci'#243'n del cliente que quiere utilizar.')
     Gradient.FromColor = clHighlight
     Gradient.ToColor = clWindow
     Gradient.Active = False
@@ -88,7 +88,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
     Left = 8
     Top = 66
     Width = 583
-    Height = 263
+    Height = 261
     Margins.Left = 10
     Margins.Top = 10
     Margins.Right = 10
@@ -231,30 +231,6 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
       Caption = 'Poblaci'#243'n:'
       OnDblClick = ComponenteDblClick
     end
-    object Label3: TLabel
-      Left = 447
-      Top = 7
-      Width = 30
-      Height = 13
-      Caption = 'Porte:'
-      OnDblClick = ComponenteDblClick
-    end
-    object ePorte: TDBText
-      Left = 483
-      Top = 7
-      Width = 70
-      Height = 17
-      DataField = 'PORTE'
-      DataSource = dsDirecciones
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = [fsBold]
-      ParentFont = False
-      Transparent = True
-      OnDblClick = ComponenteDblClick
-    end
     object Label4: TLabel
       Left = 15
       Top = 66
diff --git a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas
index f4020639..bb13457f 100644
--- a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas
+++ b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas
@@ -7,7 +7,7 @@ uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
   cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
   uIEditorElegirDireccionEntrega, uCustomView,
   uViewBase, uViewBarraSeleccion, JvExControls, JvComponent, JvgWizardHeader,
-  DBCGrids, uBizDireccionesContacto;
+  DBCGrids, uBizDireccionesContacto, uDAInterfaces;
 
 type
   TfEditorElegirDireccionEntrega = class(TForm, IEditorElegirDireccionEntrega)
@@ -24,8 +24,6 @@ type
     eCodigoPostal: TDBText;
     Label1: TLabel;
     Label2: TLabel;
-    Label3: TLabel;
-    ePorte: TDBText;
     Label4: TLabel;
     procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
     procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);