257 lines
7.4 KiB
Plaintext
257 lines
7.4 KiB
Plaintext
inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
|
|
Width = 906
|
|
Height = 350
|
|
ExplicitWidth = 906
|
|
ExplicitHeight = 350
|
|
object dxLayoutControl1: TdxLayoutControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 906
|
|
Height = 350
|
|
Align = alClient
|
|
ParentBackground = True
|
|
TabOrder = 0
|
|
TabStop = False
|
|
AutoContentSizes = [acsWidth, acsHeight]
|
|
DesignSize = (
|
|
906
|
|
350)
|
|
object rdxDestino1: TRadioButton
|
|
Left = 10
|
|
Top = 10
|
|
Width = 255
|
|
Height = 17
|
|
Action = actLista
|
|
Enabled = False
|
|
TabOrder = 0
|
|
TabStop = True
|
|
end
|
|
object rdxDestino2: TRadioButton
|
|
Left = 10
|
|
Top = 110
|
|
Width = 287
|
|
Height = 17
|
|
Action = actOtro
|
|
TabOrder = 4
|
|
end
|
|
object cbLista: TcxDBLookupComboBox
|
|
Left = 25
|
|
Top = 33
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataBinding.DataSource = dsContrato
|
|
Enabled = False
|
|
Properties.DropDownListStyle = lsFixedList
|
|
Properties.ImmediatePost = True
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
FieldName = 'NOMBRE'
|
|
end>
|
|
Properties.ListOptions.AnsiSort = True
|
|
Properties.ListOptions.GridLines = glNone
|
|
Properties.ListOptions.ShowHeader = False
|
|
Properties.ListOptions.SyncMode = True
|
|
Properties.ListSource = dsAlmacenes
|
|
Properties.PostPopupValueOnTab = True
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.NativeStyle = True
|
|
Style.ButtonStyle = bts3D
|
|
Style.PopupBorderStyle = epbsFrame3D
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 1
|
|
Width = 425
|
|
end
|
|
object bModificar: TBitBtn
|
|
Left = 716
|
|
Top = 241
|
|
Width = 180
|
|
Height = 25
|
|
Caption = 'Modificar la direcci'#243'n...'
|
|
TabOrder = 6
|
|
OnClick = bModificarClick
|
|
end
|
|
object txtDireccion: TStaticText
|
|
Left = 25
|
|
Top = 133
|
|
Width = 871
|
|
Height = 200
|
|
AutoSize = False
|
|
BevelKind = bkFlat
|
|
TabOrder = 5
|
|
OnDblClick = txtDireccionDblClick
|
|
end
|
|
object rdxDestinoCliente: TRadioButton
|
|
Left = 10
|
|
Top = 60
|
|
Width = 566
|
|
Height = 17
|
|
Action = actListaCliente
|
|
TabOrder = 2
|
|
end
|
|
object cbListaDireccionesCliente: TcxDBLookupComboBox
|
|
Left = 25
|
|
Top = 83
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataBinding.DataField = 'ID_DIRECCION_ENVIO'
|
|
DataBinding.DataSource = dsContrato
|
|
Enabled = False
|
|
Properties.DropDownListStyle = lsFixedList
|
|
Properties.ImmediatePost = True
|
|
Properties.KeyFieldNames = 'ID_DIRECCION'
|
|
Properties.ListColumns = <
|
|
item
|
|
Fixed = True
|
|
FieldName = 'CALLE'
|
|
end
|
|
item
|
|
Fixed = True
|
|
FieldName = 'POBLACION'
|
|
end
|
|
item
|
|
Fixed = True
|
|
FieldName = 'PROVINCIA'
|
|
end>
|
|
Properties.ListOptions.GridLines = glNone
|
|
Properties.ListOptions.ShowHeader = False
|
|
Properties.ListOptions.SyncMode = True
|
|
Properties.ListSource = dsDireccionesCliente
|
|
Properties.PostPopupValueOnTab = True
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.NativeStyle = True
|
|
Style.ButtonStyle = bts3D
|
|
Style.PopupBorderStyle = epbsFrame3D
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 3
|
|
Width = 551
|
|
end
|
|
object notasEnvio: TcxDBMemo
|
|
Left = 10
|
|
Top = 290
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
DataBinding.DataField = 'NOTAS_ENVIO'
|
|
DataBinding.DataSource = dsContrato
|
|
Properties.ScrollBars = ssVertical
|
|
Style.BorderColor = clWindowFrame
|
|
Style.BorderStyle = ebs3D
|
|
Style.HotTrack = False
|
|
Style.LookAndFeel.Kind = lfStandard
|
|
Style.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.Kind = lfStandard
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 7
|
|
Height = 50
|
|
Width = 886
|
|
end
|
|
object dxLayoutGroup1: TdxLayoutGroup
|
|
ShowCaption = False
|
|
Hidden = True
|
|
ShowBorder = False
|
|
object dxLayoutItem1: TdxLayoutItem
|
|
Caption = 'New Item'
|
|
Enabled = False
|
|
ShowCaption = False
|
|
Visible = False
|
|
Control = rdxDestino1
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item3: TdxLayoutItem
|
|
Caption = 'New Item'
|
|
Enabled = False
|
|
Offsets.Left = 15
|
|
ShowCaption = False
|
|
Visible = False
|
|
Control = cbLista
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item4: TdxLayoutItem
|
|
ShowCaption = False
|
|
Control = rdxDestinoCliente
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item6: TdxLayoutItem
|
|
Offsets.Left = 15
|
|
ShowCaption = False
|
|
Control = cbListaDireccionesCliente
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item2: TdxLayoutItem
|
|
Caption = 'New Item'
|
|
ShowCaption = False
|
|
Control = rdxDestino2
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item5: TdxLayoutItem
|
|
AutoAligns = [aaHorizontal]
|
|
AlignVert = avClient
|
|
Caption = 'StaticText1'
|
|
Offsets.Left = 15
|
|
ShowCaption = False
|
|
Control = txtDireccion
|
|
ControlOptions.AutoColor = True
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item1: TdxLayoutItem
|
|
AutoAligns = [aaVertical]
|
|
AlignHorz = ahRight
|
|
Offsets.Left = 15
|
|
ShowCaption = False
|
|
Control = bModificar
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
object dxLayoutControl1Item7: TdxLayoutItem
|
|
Caption = 'Notas env'#237'o:'
|
|
CaptionOptions.Layout = clTop
|
|
Control = notasEnvio
|
|
ControlOptions.ShowBorder = False
|
|
end
|
|
end
|
|
end
|
|
object ActionList1: TActionList
|
|
Left = 248
|
|
Top = 8
|
|
object actLista: TAction
|
|
Caption = 'Recibir el pedido en el almac'#233'n:'
|
|
Checked = True
|
|
GroupIndex = 1
|
|
OnExecute = actListaExecute
|
|
end
|
|
object actOtro: TAction
|
|
Caption = 'Enviar a esta otra direcci'#243'n:'
|
|
GroupIndex = 1
|
|
OnExecute = actOtroExecute
|
|
end
|
|
object actListaCliente: TAction
|
|
Caption = 'Enviar a esta direcci'#243'n del cliente:'
|
|
GroupIndex = 1
|
|
OnExecute = actListaClienteExecute
|
|
end
|
|
end
|
|
object dsContrato: TDADataSource
|
|
Left = 280
|
|
Top = 8
|
|
end
|
|
object dsAlmacenes: TDADataSource
|
|
Left = 312
|
|
Top = 8
|
|
end
|
|
object dsDireccionesCliente: TDADataSource
|
|
Left = 344
|
|
Top = 8
|
|
end
|
|
end
|