Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
081bfba5ff
AbetoDesign_FactuGES2/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm

459 lines
11 KiB
Plaintext
Raw Blame History

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 = 539
Height = 241
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 = 251
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 = 383
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 = 327
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
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 = 251
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 = 325
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 = 381
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
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
Reference in New Issue View Git Blame Copy Permalink