Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Albaranes de cliente -> mejor distribución para la ficha.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@308 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-08-28 15:04:49 +00:00
parent afb16d300c
commit 5163032bcf
5 changed files with 220 additions and 224 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -202,10 +202,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
@ -310,8 +306,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 164 ExplicitLeft = 164
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 93 ExplicitWidth = 188
Width = 93 Width = 188
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 555 Left = 555
@ -320,8 +316,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 555 ExplicitLeft = 555
ExplicitTop = 38 ExplicitTop = 38
ExplicitWidth = 137 ExplicitWidth = 182
Width = 137 Width = 182
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 485 Left = 485
@ -329,8 +325,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 485 ExplicitLeft = 485
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 137 ExplicitWidth = 252
Width = 137 Width = 252
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 93 Left = 93
@ -353,8 +349,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 484 ExplicitLeft = 484
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 92 ExplicitWidth = 253
Width = 92 Width = 253
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 484 Left = 484
@ -371,8 +367,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 555 ExplicitLeft = 555
ExplicitTop = 65 ExplicitTop = 65
ExplicitWidth = 56 ExplicitWidth = 182
Width = 56 Width = 182
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 93 Left = 93
@ -380,8 +376,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 147 ExplicitWidth = 259
Width = 147 Width = 259
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 93 Left = 93
@ -390,8 +386,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 139 ExplicitTop = 139
ExplicitWidth = 147 ExplicitWidth = 259
Width = 147 Width = 259
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 93 Left = 93
@ -399,8 +395,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
DataBinding.DataField = '' DataBinding.DataField = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 38 ExplicitTop = 38
ExplicitWidth = 81 ExplicitWidth = 121
Width = 81 Width = 121
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 220 Left = 220
@ -415,8 +411,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
DataBinding.DataSource = nil DataBinding.DataSource = nil
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 65 ExplicitTop = 65
ExplicitWidth = 219 ExplicitWidth = 259
Width = 219 Width = 259
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup

283
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -13,13 +13,14 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
825 825
620) 620)
object Label1: TLabel object Label1: TLabel
Left = 22 Left = 22
Top = 567 Top = 613
Width = 299 Width = 299
Height = 26 Height = 26
Caption = Caption =
@ -51,11 +52,11 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2 TabOrder = 2
Width = 119 Width = 284
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 464 Top = 301
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -67,9 +68,9 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 20 TabOrder = 9
Height = 253 Height = 35
Width = 186 Width = 781
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 116 Left = 116
@ -95,12 +96,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
Width = 143 Width = 284
end end
inline frViewClienteAlbaran: TfrViewDatosYSeleccionCliente inline frViewClienteAlbaran: TfrViewDatosYSeleccionCliente
Left = 430 Left = 426
Top = 28 Top = 28
Width = 350 Width = 754
Height = 212 Height = 212
Align = alTop Align = alTop
AutoSize = True AutoSize = True
@ -110,40 +111,41 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 15 TabOrder = 10
ReadOnly = False ReadOnly = False
ExplicitLeft = 430 ExplicitLeft = 426
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 754
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 754
Align = alTop Align = alTop
ExplicitWidth = 373
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224 ExplicitWidth = 299
Width = 224 Width = 299
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562 ExplicitWidth = 299
Width = 562 Width = 299
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562 ExplicitWidth = 299
Width = 562 Width = 299
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177 ExplicitWidth = 181
Width = 177 Width = 181
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327 ExplicitWidth = 299
Width = 327 Width = 299
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 281 Left = 268
ExplicitLeft = 281 ExplicitLeft = 268
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 171 Left = 158
ExplicitLeft = 171 ExplicitLeft = 158
end end
end end
inherited DADataSource: TDADataSource inherited DADataSource: TDADataSource
@ -164,8 +166,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
end end
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 116 Left = 520
Top = 224 Top = 387
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -179,12 +181,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8 TabOrder = 14
Width = 263 Width = 284
end end
object ePoblacion: TcxDBTextEdit object ePoblacion: TcxDBTextEdit
Left = 116 Left = 520
Top = 251 Top = 414
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -198,12 +200,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 15
Width = 162 Width = 61
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 335 Left = 721
Top = 251 Top = 414
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -217,12 +219,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 16
Width = 65 Width = 65
end end
object eProvincia: TcxDBTextEdit object eProvincia: TcxDBTextEdit
Left = 116 Left = 520
Top = 278 Top = 441
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -236,12 +238,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 TabOrder = 17
Width = 263 Width = 406
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 116 Left = 520
Top = 305 Top = 468
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -256,12 +258,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12 TabOrder = 18
Width = 84 Width = 284
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 116 Left = 520
Top = 332 Top = 495
DataBinding.DataField = 'TELEFONO' DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -275,20 +277,20 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13 TabOrder = 19
Width = 122 Width = 284
end end
object bElegirDireccion: TBitBtn object bElegirDireccion: TBitBtn
Left = 228 Left = 614
Top = 359 Top = 522
Width = 172 Width = 172
Height = 23 Height = 23
Action = actElegirDireccion Action = actElegirDireccion
Caption = 'Elegir una direcci'#243'n de env'#237'o...' Caption = 'Elegir una direcci'#243'n de env'#237'o...'
TabOrder = 14 TabOrder = 20
end end
object Button1: TButton object Button1: TButton
Left = 268 Left = 264
Top = 138 Top = 138
Width = 132 Width = 132
Height = 23 Height = 23
@ -316,7 +318,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 5
Width = 16 Width = 146
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 116 Left = 116
@ -347,10 +349,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 3
Width = 32 Width = 146
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 268 Left = 264
Top = 109 Top = 109
Width = 132 Width = 132
Height = 23 Height = 23
@ -359,7 +361,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object eFechaRecepcion: TcxDBDateEdit object eFechaRecepcion: TcxDBDateEdit
Left = 564 Left = 560
Top = 330 Top = 330
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION' DataBinding.DataField = 'FECHA_RECEPCION'
@ -380,12 +382,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 18 TabOrder = 13
Width = 123 Width = 239
end end
object cbConAlmacen: TCheckBox object cbConAlmacen: TCheckBox
Left = 32 Left = 32
Top = 535 Top = 581
Width = 179 Width = 179
Height = 21 Height = 21
Caption = 'Asociar este albar'#225'n al almac'#233'n:' Caption = 'Asociar este albar'#225'n al almac'#233'n:'
@ -394,7 +396,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbAlmacen: TcxDBLookupComboBox object cbAlmacen: TcxDBLookupComboBox
Left = 217 Left = 217
Top = 535 Top = 581
DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -420,7 +422,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 22 TabOrder = 22
Width = 69 Width = 586
end end
object eRefFacturaCli: TcxDBTextEdit object eRefFacturaCli: TcxDBTextEdit
Left = 116 Left = 116
@ -446,10 +448,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 7
Width = 207 Width = 284
end end
object eFechaPrevista: TcxDBDateEdit object eFechaPrevista: TcxDBDateEdit
Left = 564 Left = 560
Top = 276 Top = 276
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
@ -472,8 +474,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 16 TabOrder = 11
Width = 122 Width = 239
end end
object eRefCliente: TcxDBTextEdit object eRefCliente: TcxDBTextEdit
Left = 116 Left = 116
@ -501,7 +503,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284 Width = 284
end end
object eFechaEnvio: TcxDBDateEdit object eFechaEnvio: TcxDBDateEdit
Left = 564 Left = 560
Top = 303 Top = 303
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataField = 'FECHA_ENVIO'
@ -522,13 +524,13 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 17 TabOrder = 12
Width = 217 Width = 239
end end
inline frViewTienda1: TfrViewTienda inline frViewTienda1: TfrViewTienda
Left = 430 Left = 22
Top = 387 Top = 224
Width = 451 Width = 373
Height = 41 Height = 41
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -536,15 +538,16 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 19 TabOrder = 8
ReadOnly = False ReadOnly = False
ExplicitLeft = 430 ExplicitLeft = 22
ExplicitTop = 387 ExplicitTop = 224
ExplicitWidth = 373
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 373 Width = 373
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
ExplicitWidth = 376 ExplicitWidth = 312
Width = 376 Width = 312
end end
end end
end end
@ -558,6 +561,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group6: TdxLayoutGroup object dxLayoutControl1Group6: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
@ -638,6 +643,67 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
end end
end end
object dxLayoutControl1Group17: TdxLayoutGroup
Caption = 'El albar'#225'n pertenece a la tienda'
object dxLayoutControl1Item17: TdxLayoutItem
Caption = 'New Item'
ShowCaption = False
Control = frViewTienda1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group7: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Observaciones'
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient
Control = memObservaciones
ControlOptions.ShowBorder = False
end
end
end
object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group2: TdxLayoutGroup
Caption = 'Datos del cliente'
object dxLayoutControl1Item1: TdxLayoutItem
Control = frViewClienteAlbaran
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group12: TdxLayoutGroup
Caption = 'Fechas de envio y recepci'#243'n'
object dxLayoutControl1Item24: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha prevista de envio:'
Offsets.Left = 10
Control = eFechaPrevista
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item21: TdxLayoutItem
Caption = 'Fecha de envio:'
Offsets.Left = 10
Control = eFechaEnvio
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item16: TdxLayoutItem
AutoAligns = []
AlignHorz = ahClient
Caption = 'Fecha de recepci'#243'n:'
Offsets.Left = 10
Control = eFechaRecepcion
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group8: TdxLayoutGroup object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
@ -697,67 +763,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
end end
end end
object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group2: TdxLayoutGroup
Caption = 'Datos del cliente'
object dxLayoutControl1Item1: TdxLayoutItem
Control = frViewClienteAlbaran
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group12: TdxLayoutGroup
Caption = 'Fechas de envio y recepci'#243'n'
object dxLayoutControl1Item24: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha prevista de envio:'
Offsets.Left = 10
Control = eFechaPrevista
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item21: TdxLayoutItem
Caption = 'Fecha de envio:'
Offsets.Left = 10
Control = eFechaEnvio
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item16: TdxLayoutItem
AutoAligns = []
AlignHorz = ahClient
Caption = 'Fecha de recepci'#243'n:'
Offsets.Left = 10
Control = eFechaRecepcion
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group17: TdxLayoutGroup
Caption = 'El albar'#225'n pertenece a la tienda'
object dxLayoutControl1Item17: TdxLayoutItem
Caption = 'New Item'
ShowCaption = False
Control = frViewTienda1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end
end
object dxLayoutControl1Group7: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Observaciones'
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient
Control = memObservaciones
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Group11: TdxLayoutGroup object dxLayoutControl1Group11: TdxLayoutGroup
Caption = 'Almac'#233'n de origen' Caption = 'Almac'#233'n de origen'

5
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
View File

@ -16,7 +16,10 @@ uses
ExtCtrls, cxLookupEdit, cxDBLookupEdit, uBizFormasPago, ExtCtrls, cxLookupEdit, cxDBLookupEdit, uBizFormasPago,
cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uDAInterfaces, cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uDAInterfaces,
uViewTienda, uAlbaranesClienteController; uViewTienda, uAlbaranesClienteController, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinsDefaultPainters, dxSkinsdxLCPainter;
type type
IViewAlbaranCliente = interface(IViewBase) IViewAlbaranCliente = interface(IViewBase)

111
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.dfm
View File

@ -1,111 +1,103 @@
inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited Label1: TLabel
Width = 299
ExplicitWidth = 299
end
inherited edtFechaAlbaran: TcxDBDateEdit inherited edtFechaAlbaran: TcxDBDateEdit
ExplicitWidth = 119 ExplicitWidth = 431
Width = 119 Width = 431
end end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
ExplicitWidth = 186 ExplicitWidth = 515
ExplicitHeight = 253 ExplicitHeight = 253
Height = 253 Height = 253
Width = 186 Width = 515
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 143 ExplicitWidth = 431
Width = 143 Width = 431
end end
inherited frViewClienteAlbaran: TfrViewDatosYSeleccionCliente inherited frViewClienteAlbaran: TfrViewDatosYSeleccionCliente
Width = 350 Width = 219
ExplicitWidth = 350 ExplicitWidth = 219
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 350 Width = 219
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224 ExplicitWidth = 210
Width = 224 Width = 210
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562 ExplicitWidth = 210
Width = 562 Width = 210
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562 ExplicitWidth = 210
Width = 562 Width = 210
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177 ExplicitWidth = 92
Width = 177 Width = 92
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327 ExplicitWidth = 210
Width = 327 Width = 210
end end
end end
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
ExplicitWidth = 263 ExplicitWidth = 125
Width = 263 Width = 125
end end
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
ExplicitWidth = 162 ExplicitWidth = 24
Width = 162 Width = 24
end end
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
ExplicitWidth = 263 ExplicitWidth = 125
Width = 263 Width = 125
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
ExplicitWidth = 84 ExplicitWidth = 125
Width = 84 Width = 125
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
ExplicitWidth = 122 ExplicitWidth = 125
Width = 122 Width = 125
end end
inherited eReferenciaPedidoCli: TcxTextEdit inherited eReferenciaPedidoCli: TcxTextEdit
ExplicitWidth = 16 ExplicitWidth = 293
Width = 16 Width = 293
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
ExplicitWidth = 32 ExplicitWidth = 293
Width = 32 Width = 293
end end
inherited eFechaRecepcion: TcxDBDateEdit inherited eFechaRecepcion: TcxDBDateEdit
ExplicitWidth = 123 ExplicitWidth = 85
Width = 123 Width = 85
end
inherited cbAlmacen: TcxDBLookupComboBox
ExplicitWidth = 69
Width = 69
end end
inherited eRefFacturaCli: TcxDBTextEdit inherited eRefFacturaCli: TcxDBTextEdit
ExplicitWidth = 207 ExplicitWidth = 431
Width = 207 Width = 431
end end
inherited eFechaPrevista: TcxDBDateEdit inherited eFechaPrevista: TcxDBDateEdit
ExplicitWidth = 122 ExplicitWidth = 85
Width = 122 Width = 85
end end
inherited eRefCliente: TcxDBTextEdit inherited eRefCliente: TcxDBTextEdit
ExplicitWidth = 284 ExplicitWidth = 431
Width = 284 Width = 431
end end
inherited eFechaEnvio: TcxDBDateEdit inherited eFechaEnvio: TcxDBDateEdit
ExplicitWidth = 217 ExplicitWidth = 85
Width = 217 Width = 85
end end
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Width = 822 Width = 515
ExplicitWidth = 822 ExplicitWidth = 515
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 822 Width = 515
inherited cbTienda: TcxDBComboBox ExplicitWidth = 822
DataBinding.DataSource = DADataSource inherited cbTienda: TcxComboBox
ExplicitWidth = 412 ExplicitWidth = 454
Width = 412 Width = 454
end end
end end
end end
@ -128,9 +120,6 @@ inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente
end end
end end
end end
inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False
end
end end
inherited dxLayoutControl1Group3: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Group12: TdxLayoutGroup inherited dxLayoutControl1Group12: TdxLayoutGroup

5
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.pas
View File

@ -8,7 +8,10 @@ uses
dxLayoutControl, StdCtrls, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, dxLayoutControl, StdCtrls, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, cxTextEdit, Buttons, uCustomView, uViewBase, cxDBLookupComboBox, cxTextEdit, Buttons, uCustomView, uViewBase,
uViewDatosYSeleccionCliente, cxDBEdit, cxMemo, cxContainer, cxEdit, uViewDatosYSeleccionCliente, cxDBEdit, cxMemo, cxContainer, cxEdit,
cxMaskEdit, cxCalendar, cxControls, uDAInterfaces, uViewTienda; cxMaskEdit, cxCalendar, cxControls, uDAInterfaces, uViewTienda, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinsDefaultPainters, dxSkinsdxLCPainter;
type type
TfrViewAlbaranDevCliente = class(TfrViewAlbaranCliente) TfrViewAlbaranDevCliente = class(TfrViewAlbaranCliente)