Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Elegir dirección de cliente -> Se han quitado los portes.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@184 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2007-12-20 10:13:34 +00:00
parent 7e77114423
commit 199b114eaa
2 changed files with 5 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm
View File

@ -2,7 +2,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Left = 227 Left = 227
Top = 108 Top = 108
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Elegir una direcciones de entrega' Caption = 'Elegir una direcciones de cliente'
ClientHeight = 383 ClientHeight = 383
ClientWidth = 599 ClientWidth = 599
Color = clBtnFace Color = clBtnFace
@ -35,8 +35,8 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
'Seleccione una direcci'#243'n del cliente') 'Seleccione una direcci'#243'n del cliente')
Comments.Strings = ( Comments.Strings = (
'Seleccione la direcci'#243'n del cliente que quiere utilizar como dir' + 'El cliente dispone de varias direcciones dadas de alta en su fic' +
'ecci'#243'n de envio.') 'ha. Seleccione la direcci'#243'n del cliente que quiere utilizar.')
Gradient.FromColor = clHighlight Gradient.FromColor = clHighlight
Gradient.ToColor = clWindow Gradient.ToColor = clWindow
Gradient.Active = False Gradient.Active = False
@ -88,7 +88,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Left = 8 Left = 8
Top = 66 Top = 66
Width = 583 Width = 583
Height = 263 Height = 261
Margins.Left = 10 Margins.Left = 10
Margins.Top = 10 Margins.Top = 10
Margins.Right = 10 Margins.Right = 10
@ -231,30 +231,6 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Caption = 'Poblaci'#243'n:' Caption = 'Poblaci'#243'n:'
OnDblClick = ComponenteDblClick OnDblClick = ComponenteDblClick
end 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 object Label4: TLabel
Left = 15 Left = 15
Top = 66 Top = 66

4
Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas
View File

@ -7,7 +7,7 @@ uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
uIEditorElegirDireccionEntrega, uCustomView, uIEditorElegirDireccionEntrega, uCustomView,
uViewBase, uViewBarraSeleccion, JvExControls, JvComponent, JvgWizardHeader, uViewBase, uViewBarraSeleccion, JvExControls, JvComponent, JvgWizardHeader,
DBCGrids, uBizDireccionesContacto; DBCGrids, uBizDireccionesContacto, uDAInterfaces;
type type
TfEditorElegirDireccionEntrega = class(TForm, IEditorElegirDireccionEntrega) TfEditorElegirDireccionEntrega = class(TForm, IEditorElegirDireccionEntrega)
@ -24,8 +24,6 @@ type
eCodigoPostal: TDBText; eCodigoPostal: TDBText;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
Label3: TLabel;
ePorte: TDBText;
Label4: TLabel; Label4: TLabel;
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject); procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject); procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);