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
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

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,
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);