Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
8d090e5693
Tecsitel_FactuGES2/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm
david 8d090e5693 Se deja de usar JvWizardHeader 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@963 0c75b7a4-871f-7646-8a2f-f78d34cc349f
2009-07-09 11:21:22 +00:00

474 lines
12 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 pnlHeader: TPanel
Left = 0
Top = 0
Width = 656
Height = 64
Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 5
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 606
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = 'Seleccione una direcci'#243'n del cliente'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 135
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
Caption = 'El cliente dispone de varias direcciones dadas de alta en su fic' +
'ha. Seleccione la direcci'#243'n del cliente que quiere utilizar.'
end
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