Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
eb0febd5ce
FactuGES2/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
david 25143fb973 - Tarea #1436 -> Al exportar a PDF cambiar el nombre del fichero 
- Mejorada la ventana de elegir email al enviar un documento
- Más espacio para los conceptos en el informe de pedido a Proveedor
- La persona de contacto y el tlf de contacto pasa a ser el vendedor en el pedido a proveedor.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@645 f4e31baf-9722-1c47-927c-6f952f962d4b
2016-07-22 17:05:20 +00:00

627 lines
20 KiB
Plaintext
Raw Blame History

inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 934
Height = 594
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 934
ExplicitHeight = 594
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 934
Height = 594
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
934
594)
inline frViewProveedorPedido: TfrViewDatosYSeleccionProveedor
Left = 577
Top = 28
Width = 357
Height = 215
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 14
ReadOnly = False
ExplicitLeft = 577
ExplicitTop = 28
ExplicitWidth = 357
ExplicitHeight = 215
inherited dxLayoutControl1: TdxLayoutControl
Width = 357
Height = 215
Align = alClient
ExplicitWidth = 357
ExplicitHeight = 215
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 176
Width = 176
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 254
ExplicitLeft = 254
ExplicitWidth = 71
Width = 71
end
inherited Button3: TBitBtn
Left = 127
ExplicitLeft = 127
end
end
end
object edtFechaPedido: TcxDBDateEdit
Left = 158
Top = 82
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PEDIDO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Width = 158
end
object edtFechaConfirmacion: TcxDBDateEdit
Left = 158
Top = 399
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_CONFIRMACION'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
Width = 158
end
object edtFechaEntrega: TcxDBDateEdit
Left = 158
Top = 136
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENTREGA'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = 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 = 4
Width = 158
end
object eReferencia: TcxDBTextEdit
Left = 158
Top = 28
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 158
end
inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv
Left = 22
Top = 456
Width = 273
Height = 166
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 13
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 456
ExplicitWidth = 273
ExplicitHeight = 166
inherited dxLayoutControl1: TdxLayoutControl
Width = 273
Height = 166
ExplicitWidth = 273
ExplicitHeight = 166
inherited rdxDestino1: TRadioButton
Width = 255
ExplicitWidth = 255
end
inherited rdxDestino2: TRadioButton
Width = 287
ExplicitWidth = 287
end
inherited cbLista: TcxDBLookupComboBox
ExplicitWidth = 425
Width = 425
end
inherited bModificar: TBitBtn
Left = 366
Top = 159
ExplicitLeft = 366
ExplicitTop = 159
end
inherited txtDireccion: TStaticText
Height = 177
ExplicitHeight = 177
end
end
inherited ActionList1: TActionList
Left = 32
Top = 0
end
inherited dsPedido: TDADataSource
Left = 0
Top = 0
end
end
object cbFormaPago: TcxDBLookupComboBox
Left = 158
Top = 163
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsFormaPago
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
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 = 5
Width = 20
end
object bFormasPago: TButton
Left = 415
Top = 163
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
Enabled = False
TabOrder = 6
OnClick = bFormasPagoClick
end
object edtFechaEnvio: TcxDBDateEdit
Left = 158
Top = 372
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
Width = 158
end
object eReferenciaContratoCli: TcxTextEdit
Left = 158
Top = 190
Anchors = [akLeft, akTop, akRight]
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 20
end
object Button1: TButton
Left = 415
Top = 190
Width = 132
Height = 23
Action = actVerContratoCli
TabOrder = 8
end
inline frViewTienda1: TfrViewTienda
Left = 577
Top = 279
Width = 357
Height = 46
Align = alBottom
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 15
ReadOnly = False
ExplicitLeft = 577
ExplicitTop = 279
ExplicitWidth = 357
ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl
Width = 357
ExplicitWidth = 357
end
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 158
Top = 246
Width = 422
Height = 90
Align = alClient
AutoSize = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 10
ReadOnly = False
ExplicitLeft = 158
ExplicitTop = 246
ExplicitWidth = 422
ExplicitHeight = 90
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
ExplicitWidth = 422
ExplicitHeight = 90
Height = 90
Width = 422
end
end
object edtlDescripcion: TcxDBTextEdit
Left = 158
Top = 55
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'DESCRIPCION_GENERAL'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.ReadOnly = False
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Height = 21
Width = 283
end
object edtFechaEnvio2: TcxDBDateEdit
Left = 158
Top = 109
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Width = 257
end
object cbVendedor: TcxDBLookupComboBox
Left = 158
Top = 219
DataBinding.DataField = 'ID_VENDEDOR'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'NOMBRE'
end>
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsVendedor
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
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 = 9
Width = 250
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Group6: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient
Caption = 'Datos del pedido'
object dxLayoutControl1Item3: TdxLayoutItem
Caption = 'Referencia:'
Control = eReferencia
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
Caption = 'Referencia 2:'
Control = edtlDescripcion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha del pedido:'
Control = edtFechaPedido
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item15: TdxLayoutItem
Caption = 'Fecha prevista de entrega:'
Control = edtFechaEnvio2
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
Caption = 'Fecha de recepci'#243'n:'
Control = edtFechaEntrega
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group9: TdxLayoutGroup
Enabled = False
ShowCaption = False
Visible = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item9: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Forma de pago'
Control = cbFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item10: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
ShowCaption = False
Control = bFormasPago
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group10: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group7: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item11: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Ref. contrato cliente:'
Control = eReferenciaContratoCli
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item12: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
ShowCaption = False
Control = Button1
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item16: TdxLayoutItem
Caption = 'Vendedor:'
Control = cbVendedor
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = []
AlignHorz = ahClient
Caption = 'Observaciones:'
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end
end
object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Situaci'#243'n del pedido'
Enabled = False
Visible = False
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Enviado al prov. el d'#237'a:'
Control = edtFechaEnvio
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Fecha recepci'#243'n:'
Control = edtFechaConfirmacion
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Caption = 'Direcci'#243'n de entrega'
object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient
Control = frViewDireccionEntregaPedidoProv1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end
object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group2: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Datos del proveedor'
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'frViewDatosYSeleccionProveedor1'
ShowCaption = False
Control = frViewProveedorPedido
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group11: TdxLayoutGroup
Caption = 'El pedido pertenece a la tienda'
Enabled = False
Visible = False
object dxLayoutControl1Item13: TdxLayoutItem
Control = frViewTienda1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end
end
end
object DADataSource: TDADataSource
Left = 88
Top = 8
end
object dsFormaPago: TDADataSource
Left = 56
Top = 8
end
object ActionList1: TActionList
Left = 120
Top = 8
object actVerContratoCli: TAction
Caption = 'Ver contrato de cliente...'
OnExecute = actVerContratoCliExecute
OnUpdate = actVerContratoCliUpdate
end
end
object dsVendedor: TDADataSource
Left = 88
Top = 312
end
end
Reference in New Issue View Git Blame Copy Permalink