490 lines
12 KiB
Plaintext
490 lines
12 KiB
Plaintext
object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
|
|
Left = 227
|
|
Top = 108
|
|
BorderStyle = bsDialog
|
|
Caption = 'Elegir una direcci'#243'n de cliente'
|
|
ClientHeight = 506
|
|
ClientWidth = 599
|
|
Color = clBtnFace
|
|
ParentFont = True
|
|
OldCreateOrder = True
|
|
Position = poOwnerFormCenter
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object JvgWizardHeader1: TJvgWizardHeader
|
|
Left = 0
|
|
Top = 0
|
|
Width = 599
|
|
Height = 60
|
|
CaptionFont.Charset = DEFAULT_CHARSET
|
|
CaptionFont.Color = clWindowText
|
|
CaptionFont.Height = -11
|
|
CaptionFont.Name = 'Tahoma'
|
|
CaptionFont.Style = [fsBold]
|
|
CommentFont.Charset = DEFAULT_CHARSET
|
|
CommentFont.Color = clWindowText
|
|
CommentFont.Height = -11
|
|
CommentFont.Name = 'Tahoma'
|
|
CommentFont.Style = []
|
|
SymbolFont.Charset = DEFAULT_CHARSET
|
|
SymbolFont.Color = clHighlightText
|
|
SymbolFont.Height = -35
|
|
SymbolFont.Name = 'Wingdings'
|
|
SymbolFont.Style = [fsBold]
|
|
Captions.Strings = (
|
|
'Seleccione una direcci'#243'n del cliente')
|
|
Comments.Strings = (
|
|
|
|
'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
|
|
Gradient.Orientation = fgdVertical
|
|
BufferedDraw = False
|
|
ExplicitLeft = -57
|
|
ExplicitTop = 27
|
|
ExplicitWidth = 656
|
|
end
|
|
inline frViewBarraSeleccion1: TfrViewBarraSeleccion
|
|
Left = 0
|
|
Top = 457
|
|
Width = 599
|
|
Height = 49
|
|
Align = alBottom
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
ReadOnly = False
|
|
ExplicitTop = 457
|
|
ExplicitWidth = 599
|
|
inherited JvFooter1: TJvFooter
|
|
Width = 599
|
|
ExplicitWidth = 599
|
|
inherited bSeleccionar: TJvFooterBtn
|
|
Left = 387
|
|
ExplicitLeft = 387
|
|
end
|
|
inherited bCancelar: TJvFooterBtn
|
|
Left = 491
|
|
ExplicitLeft = 491
|
|
end
|
|
end
|
|
inherited BarraSeleccionActionList: TActionList
|
|
Top = 11
|
|
inherited actSeleccionar: TAction
|
|
OnExecute = frViewBarraSeleccion1actSeleccionarExecute
|
|
end
|
|
inherited actCancelar: TAction
|
|
OnExecute = frViewBarraSeleccion1actCancelarExecute
|
|
end
|
|
end
|
|
end
|
|
object DBCtrlGrid1: TDBCtrlGrid
|
|
Left = 45
|
|
Top = 214
|
|
Width = 541
|
|
Height = 240
|
|
Margins.Left = 10
|
|
Margins.Top = 10
|
|
Margins.Right = 10
|
|
Margins.Bottom = 0
|
|
AllowDelete = False
|
|
AllowInsert = False
|
|
Color = clBtnFace
|
|
DataSource = dsDirecciones
|
|
PanelHeight = 80
|
|
PanelWidth = 522
|
|
ParentColor = False
|
|
TabOrder = 1
|
|
OnDblClick = DBCtrlGrid1DblClick
|
|
object eCalle: TDBText
|
|
Left = 48
|
|
Top = 25
|
|
Width = 472
|
|
Height = 17
|
|
DataField = 'CALLE'
|
|
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 ePoblacion: TDBText
|
|
Left = 70
|
|
Top = 42
|
|
Width = 200
|
|
Height = 17
|
|
DataField = 'POBLACION'
|
|
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 eTelefono: TDBText
|
|
Left = 383
|
|
Top = 59
|
|
Width = 130
|
|
Height = 17
|
|
DataField = 'TELEFONO'
|
|
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 eProvincia: TDBText
|
|
Left = 340
|
|
Top = 42
|
|
Width = 130
|
|
Height = 17
|
|
DataField = 'PROVINCIA'
|
|
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 ePersonaContacto: TDBText
|
|
Left = 124
|
|
Top = 59
|
|
Width = 261
|
|
Height = 17
|
|
DataField = 'PERSONA_CONTACTO'
|
|
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 eNombre: TDBText
|
|
Left = 8
|
|
Top = 7
|
|
Width = 345
|
|
Height = 17
|
|
DataField = 'NOMBRE'
|
|
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 eCodigoPostal: TDBText
|
|
Left = 280
|
|
Top = 42
|
|
Width = 50
|
|
Height = 17
|
|
DataField = 'CODIGO_POSTAL'
|
|
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 Label1: TLabel
|
|
Left = 15
|
|
Top = 25
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Calle:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
OnDblClick = ComponenteDblClick
|
|
end
|
|
object Label2: TLabel
|
|
Left = 15
|
|
Top = 42
|
|
Width = 49
|
|
Height = 13
|
|
Caption = 'Poblaci'#243'n:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
OnDblClick = ComponenteDblClick
|
|
end
|
|
object Label4: TLabel
|
|
Left = 15
|
|
Top = 59
|
|
Width = 103
|
|
Height = 13
|
|
Caption = 'Persona de contacto:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
OnDblClick = ComponenteDblClick
|
|
end
|
|
object ePais: TDBText
|
|
Left = 450
|
|
Top = 42
|
|
Width = 70
|
|
Height = 17
|
|
DataField = 'PAIS'
|
|
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
|
|
end
|
|
object rdxDestino1: TRadioButton
|
|
Left = 16
|
|
Top = 77
|
|
Width = 335
|
|
Height = 17
|
|
Action = actDirSocial
|
|
TabOrder = 2
|
|
TabStop = True
|
|
end
|
|
object RadioButton1: TRadioButton
|
|
Left = 16
|
|
Top = 193
|
|
Width = 335
|
|
Height = 17
|
|
Action = actOtro
|
|
TabOrder = 3
|
|
TabStop = True
|
|
end
|
|
object pnlDirSocial: TPanel
|
|
Left = 45
|
|
Top = 97
|
|
Width = 520
|
|
Height = 81
|
|
Color = clWindow
|
|
ParentBackground = False
|
|
TabOrder = 4
|
|
object DBText1: TDBText
|
|
Left = 8
|
|
Top = 5
|
|
Width = 497
|
|
Height = 17
|
|
DataField = 'NOMBRE'
|
|
DataSource = dsContacto
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
Transparent = True
|
|
end
|
|
object Label3: TLabel
|
|
Left = 13
|
|
Top = 23
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Calle:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object DBText2: TDBText
|
|
Left = 46
|
|
Top = 23
|
|
Width = 465
|
|
Height = 17
|
|
DataField = 'CALLE'
|
|
DataSource = dsContacto
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
Transparent = True
|
|
end
|
|
object Label5: TLabel
|
|
Left = 13
|
|
Top = 40
|
|
Width = 49
|
|
Height = 13
|
|
Caption = 'Poblaci'#243'n:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object DBText3: TDBText
|
|
Left = 68
|
|
Top = 40
|
|
Width = 200
|
|
Height = 17
|
|
DataField = 'POBLACION'
|
|
DataSource = dsContacto
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
Transparent = True
|
|
end
|
|
object DBText4: TDBText
|
|
Left = 280
|
|
Top = 40
|
|
Width = 50
|
|
Height = 17
|
|
DataField = 'CODIGO_POSTAL'
|
|
DataSource = dsContacto
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
Transparent = True
|
|
end
|
|
object DBText5: TDBText
|
|
Left = 340
|
|
Top = 40
|
|
Width = 130
|
|
Height = 17
|
|
DataField = 'PROVINCIA'
|
|
DataSource = dsContacto
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
Transparent = True
|
|
end
|
|
object DBText7: TDBText
|
|
Left = 381
|
|
Top = 57
|
|
Width = 130
|
|
Height = 17
|
|
DataField = 'TELEFONO_1'
|
|
DataSource = dsContacto
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
Transparent = True
|
|
end
|
|
object Label6: TLabel
|
|
Left = 13
|
|
Top = 57
|
|
Width = 103
|
|
Height = 13
|
|
Caption = 'Persona de contacto:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object DBText6: TDBText
|
|
Left = 122
|
|
Top = 57
|
|
Width = 261
|
|
Height = 17
|
|
DataField = 'PERSONA_CONTACTO'
|
|
DataSource = dsContacto
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
Transparent = True
|
|
end
|
|
object DBText8: TDBText
|
|
Left = 450
|
|
Top = 40
|
|
Width = 70
|
|
Height = 17
|
|
DataField = 'PAIS'
|
|
DataSource = dsContacto
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
Transparent = True
|
|
end
|
|
end
|
|
object dsDirecciones: TDADataSource
|
|
Left = 16
|
|
Top = 222
|
|
end
|
|
object ActionList1: TActionList
|
|
Left = 16
|
|
Top = 104
|
|
object actDirSocial: TAction
|
|
Caption = 'Utilizar la direcci'#243'n social del cliente:'
|
|
Checked = True
|
|
GroupIndex = 1
|
|
OnExecute = actDirSocialExecute
|
|
end
|
|
object actOtro: TAction
|
|
Caption = 'Utilizar la siguiente direcci'#243'n del cliente'
|
|
GroupIndex = 1
|
|
OnExecute = actOtroExecute
|
|
OnUpdate = actOtroUpdate
|
|
end
|
|
end
|
|
object dsContacto: TDADataSource
|
|
Left = 16
|
|
Top = 134
|
|
end
|
|
end
|