Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglos estéticos varios.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@84 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-02-02 12:57:11 +00:00
parent 44fa0b0199
commit fd2e35cd1e
41 changed files with 842 additions and 970 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/ApplicationBase/ApplicationBase.res
View File

Binary file not shown.

96
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
View File

@ -16,13 +16,15 @@ inherited fEditorEmpresa: TfEditorEmpresa
Caption = 'Empresa' Caption = 'Empresa'
ExplicitWidth = 674 ExplicitWidth = 674
inherited Image1: TImage inherited Image1: TImage
Left = 541 Left = 647
ExplicitLeft = 607 ExplicitLeft = 644
ExplicitTop = -3
ExplicitHeight = 27
end end
inherited lblDesbloquear: TcxLabel inherited lblDesbloquear: TcxLabel
Left = 576 Left = 549
ExplicitLeft = 576 ExplicitLeft = 549
AnchorX = 621 AnchorX = 594
AnchorY = 14 AnchorY = 14
end end
end end
@ -86,8 +88,6 @@ inherited fEditorEmpresa: TfEditorEmpresa
ExplicitWidth = 668 ExplicitWidth = 668
ExplicitHeight = 453 ExplicitHeight = 453
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 660 ExplicitWidth = 660
ExplicitHeight = 425 ExplicitHeight = 425
inline frViewEmpresa1: TfrViewEmpresa inline frViewEmpresa1: TfrViewEmpresa
@ -109,84 +109,67 @@ inherited fEditorEmpresa: TfEditorEmpresa
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 660 Width = 660
Height = 425 Height = 425
LayoutLookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 660 ExplicitWidth = 660
ExplicitHeight = 425 ExplicitHeight = 425
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 598 Left = 598
Top = 295
ExplicitLeft = 598 ExplicitLeft = 598
ExplicitTop = 295
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 598 Left = 598
Top = 267
ExplicitLeft = 598 ExplicitLeft = 598
ExplicitTop = 267
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 331
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 331
ExplicitWidth = 234 ExplicitWidth = 234
Width = 234 Width = 234
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 283 Left = 281
Top = 358
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 283 ExplicitLeft = 281
ExplicitTop = 358
end end
inherited ePaginaWeb: TcxDBTextEdit inherited ePaginaWeb: TcxDBTextEdit
Left = 479 Left = 479
Top = 216
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 479 ExplicitLeft = 479
ExplicitTop = 216
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eMailParticular: TcxDBTextEdit inherited eMailParticular: TcxDBTextEdit
Left = 479 Left = 479
Top = 189
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 479 ExplicitLeft = 479
ExplicitTop = 189
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eMailTrabajo: TcxDBTextEdit inherited eMailTrabajo: TcxDBTextEdit
Left = 479 Left = 479
Top = 162
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 479 ExplicitLeft = 479
ExplicitTop = 162
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited cxDBMemo1: TcxDBMemo inherited cxDBMemo1: TcxDBMemo
Top = 436
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 436
ExplicitWidth = 329 ExplicitWidth = 329
ExplicitHeight = 64 ExplicitHeight = 64
Height = 64 Height = 64
@ -194,156 +177,132 @@ inherited fEditorEmpresa: TfEditorEmpresa
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 479 Left = 479
Top = 57
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 479 ExplicitLeft = 479
ExplicitTop = 57
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 479 Left = 479
Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 479 ExplicitLeft = 479
ExplicitTop = 30
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 479 Left = 479
Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 479 ExplicitLeft = 479
ExplicitTop = 84
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 479 Left = 479
Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 479 ExplicitLeft = 479
ExplicitTop = 111
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 234 ExplicitWidth = 234
Width = 234 Width = 234
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Top = 57
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 234 ExplicitWidth = 234
Width = 234 Width = 234
end end
inherited memRegistroMercantil: TcxDBMemo inherited memRegistroMercantil: TcxDBMemo
Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
ExplicitWidth = 234 ExplicitWidth = 234
Width = 234 Width = 234
end end
inherited cxDBImage1: TcxDBImage inherited cxDBImage1: TcxDBImage
Left = 384 Left = 384
Top = 267
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 384 ExplicitLeft = 384
ExplicitTop = 267
ExplicitWidth = 230 ExplicitWidth = 230
ExplicitHeight = 142 ExplicitHeight = 142
Height = 142 Height = 142
Width = 230 Width = 230
end end
inherited eParamMargen: TcxDBSpinEdit inherited eParamMargen: TcxDBSpinEdit
Top = 280
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 280
end end
inherited eParamTiempo: TcxDBCurrencyEdit inherited eParamTiempo: TcxDBCurrencyEdit
Top = 280
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 280
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Top = 358
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 358
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 385
Properties.OnInitPopup = nil Properties.OnInitPopup = nil
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 385
ExplicitWidth = 234 ExplicitWidth = 234
Width = 234 Width = 234
end end
inherited cbFormaPago: TcxComboBox inherited cbFormaPago: TcxComboBox
Top = 229 Top = 457
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 229 ExplicitTop = 457
ExplicitWidth = 202 ExplicitWidth = 202
Width = 202 Width = 202
end end
inherited cbTipoIVA: TcxComboBox inherited cbTipoIVA: TcxComboBox
Top = 202 Top = 430
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 202 ExplicitTop = 430
ExplicitWidth = 202 ExplicitWidth = 202
Width = 202 Width = 202
end end
inherited cbPrioridad: TcxCheckBox inherited cbPrioridad: TcxCheckBox
Top = 162 Top = 390
ExplicitTop = 162 ExplicitTop = 390
ExplicitWidth = 363 ExplicitWidth = 363
Width = 363 Width = 363
end end
@ -378,18 +337,6 @@ inherited fEditorEmpresa: TfEditorEmpresa
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 660 Width = 660
ExplicitWidth = 660 ExplicitWidth = 660
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -427,17 +374,4 @@ inherited fEditorEmpresa: TfEditorEmpresa
Left = 440 Left = 440
Top = 208 Top = 208
end end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 248
Top = 168
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
GroupOptions.CaptionOptions.Font.Color = clWindowText
GroupOptions.CaptionOptions.Font.Height = -11
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
GroupOptions.CaptionOptions.Font.Style = [fsBold]
GroupOptions.CaptionOptions.TextColor = clHighlight
GroupOptions.CaptionOptions.UseDefaultFont = False
end
end
end end

2
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.pas
View File

@ -19,8 +19,6 @@ uses
type type
TfEditorEmpresa = class(TfEditorDBItem, IEditorEmpresa) TfEditorEmpresa = class(TfEditorDBItem, IEditorEmpresa)
frViewEmpresa1: TfrViewEmpresa; frViewEmpresa1: TfrViewEmpresa;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
TabSheet1: TTabSheet; TabSheet1: TTabSheet;
frViewDatosBancarios1: TfrViewDatosBancarios; frViewDatosBancarios1: TfrViewDatosBancarios;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

345
Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm
View File

@ -1,23 +1,25 @@
inherited frViewEmpresa: TfrViewEmpresa inherited frViewEmpresa: TfrViewEmpresa
Width = 734 Width = 803
Height = 548 Height = 548
OnShow = CustomViewShow OnShow = CustomViewShow
ExplicitWidth = 734 ExplicitWidth = 803
ExplicitHeight = 548 ExplicitHeight = 548
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 734 Width = 803
Height = 548 Height = 548
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel
ExplicitWidth = 734
DesignSize = ( DesignSize = (
734 803
548) 548)
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 689 Left = 758
Top = 305 Top = 305
Width = 23 Width = 23
Height = 22 Height = 22
@ -26,7 +28,7 @@ inherited frViewEmpresa: TfrViewEmpresa
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object PngSpeedButton2: TPngSpeedButton object PngSpeedButton2: TPngSpeedButton
Left = 689 Left = 758
Top = 277 Top = 277
Width = 23 Width = 23
Height = 22 Height = 22
@ -36,11 +38,9 @@ inherited frViewEmpresa: TfrViewEmpresa
end end
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 117 Left = 117
Top = 347 Top = 223
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -53,16 +53,14 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 5
Width = 223 Width = 223
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 289 Left = 324
Top = 374 Top = 250
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -75,16 +73,14 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 7
Width = 73 Width = 73
end end
object ePaginaWeb: TcxDBTextEdit object ePaginaWeb: TcxDBTextEdit
Left = 487 Left = 522
Top = 220 Top = 220
DataBinding.DataField = 'PAGINA_WEB' DataBinding.DataField = 'PAGINA_WEB'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -101,12 +97,10 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 247 Width = 247
end end
object eMailParticular: TcxDBTextEdit object eMailParticular: TcxDBTextEdit
Left = 487 Left = 522
Top = 193 Top = 193
DataBinding.DataField = 'EMAIL_2' DataBinding.DataField = 'EMAIL_2'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -123,12 +117,10 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 247 Width = 247
end end
object eMailTrabajo: TcxDBTextEdit object eMailTrabajo: TcxDBTextEdit
Left = 487 Left = 522
Top = 166 Top = 166
DataBinding.DataField = 'EMAIL_1' DataBinding.DataField = 'EMAIL_1'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -146,12 +138,10 @@ inherited frViewEmpresa: TfrViewEmpresa
end end
object cxDBMemo1: TcxDBMemo object cxDBMemo1: TcxDBMemo
Left = 22 Left = 22
Top = 458 Top = 334
DataBinding.DataField = 'NOTAS' DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -164,17 +154,15 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 9
Height = 75 Height = 75
Width = 318 Width = 318
end end
object eTlfParticular: TcxDBTextEdit object eTlfParticular: TcxDBTextEdit
Left = 487 Left = 522
Top = 55 Top = 55
DataBinding.DataField = 'TELEFONO_2' DataBinding.DataField = 'TELEFONO_2'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -191,12 +179,10 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 247 Width = 247
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 487 Left = 522
Top = 28 Top = 28
DataBinding.DataField = 'TELEFONO_1' DataBinding.DataField = 'TELEFONO_1'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -213,12 +199,10 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 247 Width = 247
end end
object eTlfMovil: TcxDBTextEdit object eTlfMovil: TcxDBTextEdit
Left = 487 Left = 522
Top = 82 Top = 82
DataBinding.DataField = 'MOVIL_1' DataBinding.DataField = 'MOVIL_1'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -235,12 +219,10 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 247 Width = 247
end end
object eFax: TcxDBTextEdit object eFax: TcxDBTextEdit
Left = 487 Left = 522
Top = 109 Top = 109
DataBinding.DataField = 'FAX' DataBinding.DataField = 'FAX'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -261,8 +243,6 @@ inherited frViewEmpresa: TfrViewEmpresa
Top = 28 Top = 28
DataBinding.DataField = 'NOMBRE' DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -284,8 +264,6 @@ inherited frViewEmpresa: TfrViewEmpresa
Top = 55 Top = 55
DataBinding.DataField = 'NIF_CIF' DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -307,8 +285,6 @@ inherited frViewEmpresa: TfrViewEmpresa
Top = 82 Top = 82
DataBinding.DataField = 'REGISTRO_MERCANTIL' DataBinding.DataField = 'REGISTRO_MERCANTIL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -327,14 +303,12 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 223 Width = 223
end end
object cxDBImage1: TcxDBImage object cxDBImage1: TcxDBImage
Left = 392 Left = 427
Top = 277 Top = 277
DataBinding.DataField = 'LOGOTIPO' DataBinding.DataField = 'LOGOTIPO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
Properties.Stretch = True Properties.Stretch = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -350,18 +324,15 @@ inherited frViewEmpresa: TfrViewEmpresa
end end
object eParamMargen: TcxDBSpinEdit object eParamMargen: TcxDBSpinEdit
Left = 117 Left = 117
Top = 290 Top = 166
DataBinding.DataField = 'PARAM_MARGEN' DataBinding.DataField = 'PARAM_MARGEN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
Properties.OnValidate = eParamMargenPropertiesValidate Properties.OnValidate = eParamMargenPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -371,19 +342,17 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6 TabOrder = 3
Width = 60 Width = 60
end end
object eParamTiempo: TcxDBCurrencyEdit object eParamTiempo: TcxDBCurrencyEdit
Left = 240 Left = 240
Top = 290 Top = 166
DataBinding.DataField = 'PARAM_TIEMPO' DataBinding.DataField = 'PARAM_TIEMPO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Properties.OnValidate = eParamTiempoPropertiesValidate Properties.OnValidate = eParamTiempoPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -397,137 +366,119 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Width = 100
end
object cbProvincia: TcxDBComboBox
Left = 117
Top = 374
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True
Properties.OnInitPopup = cbProvinciaPropertiesInitPopup
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
Width = 80
end
object cbPoblacion: TcxDBComboBox
Left = 117
Top = 401
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
Width = 223
end
object cbFormaPago: TcxComboBox
Left = 182
Top = 233
Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsEditFixedList
Properties.DropDownRows = 25
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Width = 202
end
object cbTipoIVA: TcxComboBox
Left = 182
Top = 206
Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsEditFixedList
Properties.DropDownRows = 25
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4 TabOrder = 4
Width = 100
end
object cbProvincia: TcxDBComboBox
Left = 117
Top = 250
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True
Properties.OnInitPopup = cbProvinciaPropertiesInitPopup
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
Width = 80
end
object cbPoblacion: TcxDBComboBox
Left = 117
Top = 277
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Width = 223
end
object cbFormaPago: TcxComboBox
Left = 182
Top = 505
Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsEditFixedList
Properties.DropDownRows = 25
Properties.ImmediatePost = True
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
Width = 202
end
object cbTipoIVA: TcxComboBox
Left = 182
Top = 478
Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsEditFixedList
Properties.DropDownRows = 25
Properties.ImmediatePost = True
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
Width = 202 Width = 202
end end
object cbPrioridad: TcxCheckBox object cbPrioridad: TcxCheckBox
Left = 22 Left = 22
Top = 166 Top = 438
Caption = Caption =
'Dar prioridad de datos comerciales a la empresa respecto a clien' + 'Dar prioridad de datos comerciales a la empresa respecto a clien' +
'te, con el I.V.A y forma de pago siguiente:' 'te, con el I.V.A y forma de pago siguiente:'
Properties.MultiLine = True Properties.MultiLine = True
Properties.NullStyle = nssInactive Properties.NullStyle = nssInactive
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
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 = 3 TabOrder = 10
Transparent = True Transparent = True
Width = 363 Width = 363
end end
@ -567,28 +518,6 @@ inherited frViewEmpresa: TfrViewEmpresa
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group14: TdxLayoutGroup
CaptionOptions.Text = 'Datos comerciales'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item24: TdxLayoutItem
CaptionOptions.Text = 'New Item'
CaptionOptions.Visible = False
Control = cbPrioridad
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item16: TdxLayoutItem
CaptionOptions.Text = 'IVA por defecto:'
Offsets.Left = 20
Control = cbTipoIVA
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
CaptionOptions.Text = 'Forma de pago por defecto:'
Offsets.Left = 20
Control = cbFormaPago
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group13: TdxLayoutGroup object dxLayoutControl1Group13: TdxLayoutGroup
CaptionOptions.Text = 'Datos cat'#225'logo art'#237'culos' CaptionOptions.Text = 'Datos cat'#225'logo art'#237'culos'
Enabled = False Enabled = False
@ -665,6 +594,28 @@ inherited frViewEmpresa: TfrViewEmpresa
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group14: TdxLayoutGroup
CaptionOptions.Text = 'Datos comerciales'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item24: TdxLayoutItem
CaptionOptions.Text = 'New Item'
CaptionOptions.Visible = False
Control = cbPrioridad
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item16: TdxLayoutItem
CaptionOptions.Text = 'IVA por defecto:'
Offsets.Left = 20
Control = cbTipoIVA
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
CaptionOptions.Text = 'Forma de pago por defecto:'
Offsets.Left = 20
Control = cbFormaPago
ControlOptions.ShowBorder = False
end
end
end end
object dxLayoutControl1Group6: TdxLayoutGroup object dxLayoutControl1Group6: TdxLayoutGroup
AlignHorz = ahClient AlignHorz = ahClient
@ -837,7 +788,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Bitmap = {} Bitmap = {}
end end
object OpenDialog1: TOpenDialog object OpenDialog1: TOpenDialog
Left = 384 Left = 424
Top = 256 Top = 208
end end
end end

2
Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
View File

@ -4,7 +4,7 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable, Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable, uDMBase,
DBCtrls, Grids, DBGrids, uBizEmpresas, Mask, ComCtrls, uCustomView, DBCtrls, Grids, DBGrids, uBizEmpresas, Mask, ComCtrls, uCustomView,
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit, cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit,

BIN
Source/Base/Base.res
View File

Binary file not shown.

2
Source/GUIBase/GUIBase.dpk
View File

@ -79,6 +79,6 @@ contains
uViewRichEditor in 'uViewRichEditor.pas' {frViewRichEditor: TCustomView}, uViewRichEditor in 'uViewRichEditor.pas' {frViewRichEditor: TCustomView},
uDialogElegirEMail in 'uDialogElegirEMail.pas' {fDialogElegirEMail}, uDialogElegirEMail in 'uDialogElegirEMail.pas' {fDialogElegirEMail},
uViewDocumentos in 'uViewDocumentos.pas' {frViewDocumentos: TCustomView}, uViewDocumentos in 'uViewDocumentos.pas' {frViewDocumentos: TCustomView},
uEditorColores in 'uEditorColores.pas' {frEditorColores}; uEditorColores in 'uEditorColores.pas' {fEditorColores};
end. end.

55
Source/GUIBase/GUIBase.dproj
View File

@ -59,32 +59,32 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\Base.dcp" /> <DCCReference Include="..\Servidor\Base.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" /> <DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxTreeListD11.dcp" /> <DCCReference Include="..\Servidor\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" /> <DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxBarD11.dcp" /> <DCCReference Include="..\Servidor\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Servidor\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxComnD11.dcp" /> <DCCReference Include="..\Servidor\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" /> <DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Servidor\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPScxExtCommonD11.dcp" /> <DCCReference Include="..\Servidor\dxPScxExtCommonD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Servidor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPScxPCProdD11.dcp" /> <DCCReference Include="..\Servidor\dxPScxPCProdD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Servidor\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" /> <DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\frx11.dcp" /> <DCCReference Include="..\Servidor\frx11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\frxe11.dcp" /> <DCCReference Include="..\Servidor\frxe11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\fs11.dcp" /> <DCCReference Include="..\Servidor\fs11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Servidor\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" /> <DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" /> <DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" /> <DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" /> <DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" /> <DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>
@ -99,6 +99,9 @@
<Form>fEditorBasico</Form> <Form>fEditorBasico</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorColores.pas"> <DCCReference Include="uEditorColores.pas">
<Form>fEditorColores</Form>
</DCCReference>
<DCCReference Include="uEditorColores_antes.pas">
<Form>frEditorColores</Form> <Form>frEditorColores</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorDBBase.pas"> <DCCReference Include="uEditorDBBase.pas">

2
Source/GUIBase/uDialogElegirEMail.dfm
View File

@ -105,7 +105,7 @@ inherited fDialogElegirEMail: TfDialogElegirEMail
Tag = 2 Tag = 2
Left = 49 Left = 49
Top = 81 Top = 81
Width = 202 Width = 195
Height = 17 Height = 17
Caption = 'Usar la siguiente direcci'#243'n de correo:' Caption = 'Usar la siguiente direcci'#243'n de correo:'
TabOrder = 3 TabOrder = 3

665
Source/GUIBase/uEditorColores.dfm
View File

@ -1,30 +1,144 @@
object frEditorColores: TfrEditorColores inherited fEditorColores: TfEditorColores
Left = 0 Caption = 'Edici'#243'n de cantidades por colores del art'#237'culo'
Top = 0 ClientHeight = 221
Caption = 'Unidades de cada color del art'#237'culo' ClientWidth = 767
ClientHeight = 183 ExplicitWidth = 773
ClientWidth = 771 ExplicitHeight = 253
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object dxLayoutControl1: TdxLayoutControl inherited Bevel2: TBevel
Left = 0 Width = 767
Top = 0 ExplicitWidth = 767
Width = 771 end
Height = 183 inherited Bevel3: TBevel
Align = alClient Top = 177
TabOrder = 0 Width = 767
TabStop = False ExplicitTop = 177
ExplicitWidth = 767
end
inherited pnlBotones: TPanel
Top = 179
Width = 767
ExplicitTop = 179
ExplicitWidth = 767
inherited btnAceptar: TButton
Left = 595
Top = 6
ExplicitLeft = 595
ExplicitTop = 6
end
inherited btnCancelar: TButton
Left = 674
Top = 6
ExplicitLeft = 674
ExplicitTop = 6
end
end
inherited pnlHeader: TPanel
Width = 767
ExplicitWidth = 767
inherited lblInstruccion: TLabel
Width = 717
Caption = 'Indique las cantidades por colores'
ExplicitWidth = 193
end
inherited Label2: TLabel
Width = 692
Height = 27
end
end
inherited pnlCuerpo: TPanel
Width = 767
Height = 111
ExplicitWidth = 767
ExplicitHeight = 111
object Label1: TLabel
Left = 151
Top = 20
Width = 38
Height = 13
Caption = 'Color 3:'
end
object Label3: TLabel
Left = 90
Top = 20
Width = 38
Height = 13
Caption = 'Color 2:'
end
object Label6: TLabel
Left = 273
Top = 20
Width = 38
Height = 13
Caption = 'Color 5:'
end
object Label7: TLabel
Left = 212
Top = 20
Width = 38
Height = 13
Caption = 'Color 4:'
end
object Label8: TLabel
Left = 395
Top = 20
Width = 38
Height = 13
Caption = 'Color 7:'
end
object Label9: TLabel
Left = 334
Top = 20
Width = 38
Height = 13
Caption = 'Color 6:'
end
object Label4: TLabel
Left = 517
Top = 20
Width = 38
Height = 13
Caption = 'Color 9:'
end
object Label5: TLabel
Left = 456
Top = 20
Width = 38
Height = 13
Caption = 'Color 8:'
end
object Label10: TLabel
Left = 29
Top = 20
Width = 38
Height = 13
Caption = 'Color 1:'
end
object Label11: TLabel
Left = 575
Top = 20
Width = 44
Height = 13
Caption = 'Color 10:'
end
object Label12: TLabel
Left = 636
Top = 20
Width = 44
Height = 13
Caption = 'Color 11:'
end
object Label13: TLabel
Left = 697
Top = 20
Width = 44
Height = 13
Caption = 'Color 12:'
end
object eColor1: TcxDBTextEdit object eColor1: TcxDBTextEdit
Left = 22 Left = 21
Top = 105 Top = 39
DataBinding.DataField = 'COLOR1' DataBinding.DataField = 'COLOR1'
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -42,174 +156,13 @@ object frEditorColores: TfrEditorColores
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 0
Width = 55 Width = 55
end end
object eColor2: TcxDBTextEdit object eColor10: TcxDBTextEdit
Left = 83 Left = 570
Top = 105 Top = 39
DataBinding.DataField = 'COLOR2' DataBinding.DataField = 'COLOR10'
DataBinding.DataSource = dsDataTable
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
Width = 55
end
object eColor3: TcxDBTextEdit
Left = 144
Top = 105
DataBinding.DataField = 'COLOR3'
DataBinding.DataSource = dsDataTable
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Width = 55
end
object eColor4: TcxDBTextEdit
Left = 205
Top = 105
DataBinding.DataField = 'COLOR4'
DataBinding.DataSource = dsDataTable
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Width = 55
end
object eColor5: TcxDBTextEdit
Left = 266
Top = 105
DataBinding.DataField = 'COLOR5'
DataBinding.DataSource = dsDataTable
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Width = 55
end
object eColor6: TcxDBTextEdit
Left = 327
Top = 105
DataBinding.DataField = 'COLOR6'
DataBinding.DataSource = dsDataTable
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
Width = 55
end
object eColor7: TcxDBTextEdit
Left = 388
Top = 105
DataBinding.DataField = 'COLOR7'
DataBinding.DataSource = dsDataTable
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Width = 55
end
object eColor8: TcxDBTextEdit
Left = 449
Top = 105
DataBinding.DataField = 'COLOR8'
DataBinding.DataSource = dsDataTable
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Width = 55
end
object eColor9: TcxDBTextEdit
Left = 510
Top = 105
DataBinding.DataField = 'COLOR9'
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -229,10 +182,10 @@ object frEditorColores: TfrEditorColores
TabOrder = 9 TabOrder = 9
Width = 55 Width = 55
end end
object eColor10: TcxDBTextEdit object eColor11: TcxDBTextEdit
Left = 571 Left = 631
Top = 105 Top = 39
DataBinding.DataField = 'COLOR10' DataBinding.DataField = 'COLOR11'
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -252,10 +205,10 @@ object frEditorColores: TfrEditorColores
TabOrder = 10 TabOrder = 10
Width = 55 Width = 55
end end
object eColor11: TcxDBTextEdit object eColor12: TcxDBTextEdit
Left = 632 Left = 692
Top = 105 Top = 39
DataBinding.DataField = 'COLOR11' DataBinding.DataField = 'COLOR12'
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -275,10 +228,10 @@ object frEditorColores: TfrEditorColores
TabOrder = 11 TabOrder = 11
Width = 55 Width = 55
end end
object eColor12: TcxDBTextEdit object eColor2: TcxDBTextEdit
Left = 693 Left = 82
Top = 105 Top = 39
DataBinding.DataField = 'COLOR12' DataBinding.DataField = 'COLOR2'
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -295,34 +248,14 @@ object frEditorColores: TfrEditorColores
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 1
Width = 55 Width = 55
end end
object bAceptar: TButton object eColor3: TcxDBTextEdit
Left = 604 Left = 143
Top = 144 Top = 39
Width = 75 DataBinding.DataField = 'COLOR3'
Height = 25 DataBinding.DataSource = dsDataTable
Align = alRight
Caption = 'Aceptar'
ModalResult = 1
TabOrder = 13
end
object bCancelar: TButton
Left = 685
Top = 144
Width = 75
Height = 25
Align = alRight
Cancel = True
Caption = 'Cancelar'
ModalResult = 2
TabOrder = 14
end
object edtDescripcion: TcxMemo
Left = 10
Top = 10
Enabled = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
@ -332,141 +265,165 @@ object frEditorColores: TfrEditorColores
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 2
Height = 53 Width = 55
Width = 544
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object eColor4: TcxDBTextEdit
AlignHorz = ahLeft Left = 204
AlignVert = avTop Top = 39
CaptionOptions.Visible = False DataBinding.DataField = 'COLOR4'
ButtonOptions.Buttons = <> DataBinding.DataSource = dsDataTable
Hidden = True Style.BorderColor = clWindowFrame
ShowBorder = False Style.BorderStyle = ebs3D
object dxLayoutControl1Item15: TdxLayoutItem Style.HotTrack = False
Enabled = False Style.LookAndFeel.Kind = lfStandard
Control = edtDescripcion Style.LookAndFeel.NativeStyle = True
ControlOptions.ShowBorder = False Style.LookAndFeel.SkinName = ''
end StyleDisabled.LookAndFeel.Kind = lfStandard
object dxLayoutControl1Group1: TdxLayoutGroup StyleDisabled.LookAndFeel.NativeStyle = True
CaptionOptions.Text = 'Colores' StyleDisabled.LookAndFeel.SkinName = ''
ButtonOptions.Buttons = <> StyleFocused.LookAndFeel.Kind = lfStandard
LayoutDirection = ldHorizontal StyleFocused.LookAndFeel.NativeStyle = True
object dxLayoutControl1Item1: TdxLayoutItem StyleFocused.LookAndFeel.SkinName = ''
CaptionOptions.AlignHorz = taCenter StyleHot.LookAndFeel.Kind = lfStandard
CaptionOptions.Text = 'Color 1' StyleHot.LookAndFeel.NativeStyle = True
CaptionOptions.Layout = clTop StyleHot.LookAndFeel.SkinName = ''
Control = eColor1 TabOrder = 3
ControlOptions.ShowBorder = False Width = 55
end end
object dxLayoutControl1Item2: TdxLayoutItem object eColor5: TcxDBTextEdit
CaptionOptions.AlignHorz = taCenter Left = 265
CaptionOptions.Text = 'Color 2' Top = 39
CaptionOptions.Layout = clTop DataBinding.DataField = 'COLOR5'
Control = eColor2 DataBinding.DataSource = dsDataTable
ControlOptions.ShowBorder = False Style.BorderColor = clWindowFrame
end Style.BorderStyle = ebs3D
object dxLayoutControl1Item3: TdxLayoutItem Style.HotTrack = False
CaptionOptions.AlignHorz = taCenter Style.LookAndFeel.Kind = lfStandard
CaptionOptions.Text = 'Color 3' Style.LookAndFeel.NativeStyle = True
CaptionOptions.Layout = clTop Style.LookAndFeel.SkinName = ''
Control = eColor3 StyleDisabled.LookAndFeel.Kind = lfStandard
ControlOptions.ShowBorder = False StyleDisabled.LookAndFeel.NativeStyle = True
end StyleDisabled.LookAndFeel.SkinName = ''
object dxLayoutControl1Item4: TdxLayoutItem StyleFocused.LookAndFeel.Kind = lfStandard
CaptionOptions.AlignHorz = taCenter StyleFocused.LookAndFeel.NativeStyle = True
CaptionOptions.Text = 'Color 4' StyleFocused.LookAndFeel.SkinName = ''
CaptionOptions.Layout = clTop StyleHot.LookAndFeel.Kind = lfStandard
Control = eColor4 StyleHot.LookAndFeel.NativeStyle = True
ControlOptions.ShowBorder = False StyleHot.LookAndFeel.SkinName = ''
end TabOrder = 4
object dxLayoutControl1Item5: TdxLayoutItem Width = 55
CaptionOptions.AlignHorz = taCenter end
CaptionOptions.Text = 'Color 5' object eColor6: TcxDBTextEdit
CaptionOptions.Layout = clTop Left = 326
Control = eColor5 Top = 39
ControlOptions.ShowBorder = False DataBinding.DataField = 'COLOR6'
end DataBinding.DataSource = dsDataTable
object dxLayoutControl1Item6: TdxLayoutItem Style.BorderColor = clWindowFrame
CaptionOptions.AlignHorz = taCenter Style.BorderStyle = ebs3D
CaptionOptions.Text = 'Color 6' Style.HotTrack = False
CaptionOptions.Layout = clTop Style.LookAndFeel.Kind = lfStandard
Control = eColor6 Style.LookAndFeel.NativeStyle = True
ControlOptions.ShowBorder = False Style.LookAndFeel.SkinName = ''
end StyleDisabled.LookAndFeel.Kind = lfStandard
object dxLayoutControl1Item7: TdxLayoutItem StyleDisabled.LookAndFeel.NativeStyle = True
CaptionOptions.AlignHorz = taCenter StyleDisabled.LookAndFeel.SkinName = ''
CaptionOptions.Text = 'Color 7' StyleFocused.LookAndFeel.Kind = lfStandard
CaptionOptions.Layout = clTop StyleFocused.LookAndFeel.NativeStyle = True
Control = eColor7 StyleFocused.LookAndFeel.SkinName = ''
ControlOptions.ShowBorder = False StyleHot.LookAndFeel.Kind = lfStandard
end StyleHot.LookAndFeel.NativeStyle = True
object dxLayoutControl1Item8: TdxLayoutItem StyleHot.LookAndFeel.SkinName = ''
CaptionOptions.AlignHorz = taCenter TabOrder = 5
CaptionOptions.Text = 'Color 8' Width = 55
CaptionOptions.Layout = clTop end
Control = eColor8 object eColor7: TcxDBTextEdit
ControlOptions.ShowBorder = False Left = 387
end Top = 39
object dxLayoutControl1Item9: TdxLayoutItem DataBinding.DataField = 'COLOR7'
CaptionOptions.AlignHorz = taCenter DataBinding.DataSource = dsDataTable
CaptionOptions.Text = 'Color 9' Style.BorderColor = clWindowFrame
CaptionOptions.Layout = clTop Style.BorderStyle = ebs3D
Control = eColor9 Style.HotTrack = False
ControlOptions.ShowBorder = False Style.LookAndFeel.Kind = lfStandard
end Style.LookAndFeel.NativeStyle = True
object dxLayoutControl1Item10: TdxLayoutItem Style.LookAndFeel.SkinName = ''
CaptionOptions.AlignHorz = taCenter StyleDisabled.LookAndFeel.Kind = lfStandard
CaptionOptions.Text = 'Color 10' StyleDisabled.LookAndFeel.NativeStyle = True
CaptionOptions.Layout = clTop StyleDisabled.LookAndFeel.SkinName = ''
Control = eColor10 StyleFocused.LookAndFeel.Kind = lfStandard
ControlOptions.ShowBorder = False StyleFocused.LookAndFeel.NativeStyle = True
end StyleFocused.LookAndFeel.SkinName = ''
object dxLayoutControl1Item11: TdxLayoutItem StyleHot.LookAndFeel.Kind = lfStandard
CaptionOptions.AlignHorz = taCenter StyleHot.LookAndFeel.NativeStyle = True
CaptionOptions.Text = 'Color 11' StyleHot.LookAndFeel.SkinName = ''
CaptionOptions.Layout = clTop TabOrder = 6
Control = eColor11 Width = 55
ControlOptions.ShowBorder = False end
end object eColor8: TcxDBTextEdit
object dxLayoutControl1Item12: TdxLayoutItem Left = 448
CaptionOptions.AlignHorz = taCenter Top = 39
CaptionOptions.Text = 'Color 12' DataBinding.DataField = 'COLOR8'
CaptionOptions.Layout = clTop DataBinding.DataSource = dsDataTable
Control = eColor12 Style.BorderColor = clWindowFrame
ControlOptions.ShowBorder = False Style.BorderStyle = ebs3D
end Style.HotTrack = False
end Style.LookAndFeel.Kind = lfStandard
object dxLayoutControl1Group2: TdxLayoutGroup Style.LookAndFeel.NativeStyle = True
CaptionOptions.Visible = False Style.LookAndFeel.SkinName = ''
ButtonOptions.Buttons = <> StyleDisabled.LookAndFeel.Kind = lfStandard
Hidden = True StyleDisabled.LookAndFeel.NativeStyle = True
LayoutDirection = ldHorizontal StyleDisabled.LookAndFeel.SkinName = ''
ShowBorder = False StyleFocused.LookAndFeel.Kind = lfStandard
object dxLayoutControl1Item13: TdxLayoutItem StyleFocused.LookAndFeel.NativeStyle = True
AlignHorz = ahRight StyleFocused.LookAndFeel.SkinName = ''
CaptionOptions.Text = 'Button1' StyleHot.LookAndFeel.Kind = lfStandard
CaptionOptions.Visible = False StyleHot.LookAndFeel.NativeStyle = True
Control = bAceptar StyleHot.LookAndFeel.SkinName = ''
ControlOptions.ShowBorder = False TabOrder = 7
end Width = 55
object dxLayoutControl1Item14: TdxLayoutItem end
AlignHorz = ahRight object eColor9: TcxDBTextEdit
CaptionOptions.Text = 'Button2' Left = 509
CaptionOptions.Visible = False Top = 39
Control = bCancelar DataBinding.DataField = 'COLOR9'
ControlOptions.ShowBorder = False DataBinding.DataSource = dsDataTable
end Style.BorderColor = clWindowFrame
end Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Width = 55
end
end
inherited ActionList1: TActionList
Left = 104
Top = 0
inherited actAceptar: TAction
OnExecute = actAceptarExecute
end
inherited actCancelar: TAction
OnExecute = actCancelarExecute
end end
end end
object dsDataTable: TDADataSource object dsDataTable: TDADataSource
Left = 136
end end
end end

126
Source/GUIBase/uEditorColores.pas
View File

@ -4,104 +4,130 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxLayoutControl, cxControls, DB, uDAInterfaces, uDADataTable, Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, cxGraphics, cxControls,
cxContainer, cxEdit, cxTextEdit, cxDBEdit, StdCtrls, cxMemo, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters; cxDBEdit, DB, uDAInterfaces, uDADataTable;
type type
TfrEditorColores = class(TForm) TfEditorColores = class(TfDialogBase)
dxLayoutControl1Group_Root: TdxLayoutGroup;
dxLayoutControl1: TdxLayoutControl;
dxLayoutControl1Item1: TdxLayoutItem;
eColor1: TcxDBTextEdit; eColor1: TcxDBTextEdit;
dsDataTable: TDADataSource;
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Item2: TdxLayoutItem;
eColor2: TcxDBTextEdit; eColor2: TcxDBTextEdit;
dxLayoutControl1Item3: TdxLayoutItem;
eColor3: TcxDBTextEdit; eColor3: TcxDBTextEdit;
dxLayoutControl1Item4: TdxLayoutItem;
eColor4: TcxDBTextEdit; eColor4: TcxDBTextEdit;
dxLayoutControl1Item5: TdxLayoutItem;
eColor5: TcxDBTextEdit; eColor5: TcxDBTextEdit;
dxLayoutControl1Item6: TdxLayoutItem;
eColor6: TcxDBTextEdit; eColor6: TcxDBTextEdit;
dxLayoutControl1Item7: TdxLayoutItem;
eColor7: TcxDBTextEdit; eColor7: TcxDBTextEdit;
dxLayoutControl1Item8: TdxLayoutItem;
eColor8: TcxDBTextEdit; eColor8: TcxDBTextEdit;
dxLayoutControl1Item9: TdxLayoutItem;
eColor9: TcxDBTextEdit; eColor9: TcxDBTextEdit;
dxLayoutControl1Item10: TdxLayoutItem;
eColor10: TcxDBTextEdit; eColor10: TcxDBTextEdit;
dxLayoutControl1Item11: TdxLayoutItem;
eColor11: TcxDBTextEdit; eColor11: TcxDBTextEdit;
dxLayoutControl1Item12: TdxLayoutItem;
eColor12: TcxDBTextEdit; eColor12: TcxDBTextEdit;
bAceptar: TButton; dsDataTable: TDADataSource;
dxLayoutControl1Item13: TdxLayoutItem; Label1: TLabel;
bCancelar: TButton; Label3: TLabel;
dxLayoutControl1Item14: TdxLayoutItem; Label4: TLabel;
dxLayoutControl1Group2: TdxLayoutGroup; Label5: TLabel;
dxLayoutControl1Item15: TdxLayoutItem; Label6: TLabel;
edtDescripcion: TcxMemo; Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
private private
{ Private declarations } FReferencia : String;
public FDescripcion : String;
function GetTotal: Double; function GetTotal: Double;
procedure SetDescripcion(const Value: String);
procedure SetReferencia(const Value: String);
procedure PonerTituloArticulo;
public
property Total : Double read GetTotal;
property Referencia : String read FReferencia write SetReferencia;
property Descripcion : String read FDescripcion write SetDescripcion;
end; end;
var
frEditorColores: TfrEditorColores;
implementation implementation
{$R *.dfm} {$R *.dfm}
{ TfrEditorColores } { TfEditorColores }
function TfrEditorColores.GetTotal: Double; procedure TfEditorColores.actAceptarExecute(Sender: TObject);
var
Total: Double;
begin begin
Total := 0; inherited;
ModalResult := mrOk;
end;
procedure TfEditorColores.actCancelarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrCancel;
end;
function TfEditorColores.GetTotal: Double;
var
ATotal: Double;
begin
ATotal := 0;
if not VarIsNull(eColor1.EditValue) then if not VarIsNull(eColor1.EditValue) then
Total := Total + eColor1.EditValue; ATotal := ATotal + eColor1.EditValue;
if not VarIsNull(eColor2.EditValue) then if not VarIsNull(eColor2.EditValue) then
Total := Total + eColor2.EditValue; ATotal := ATotal + eColor2.EditValue;
if not VarIsNull(eColor3.EditValue) then if not VarIsNull(eColor3.EditValue) then
Total := Total + eColor3.EditValue; ATotal := ATotal + eColor3.EditValue;
if not VarIsNull(eColor4.EditValue) then if not VarIsNull(eColor4.EditValue) then
Total := Total + eColor4.EditValue; ATotal := ATotal + eColor4.EditValue;
if not VarIsNull(eColor5.EditValue) then if not VarIsNull(eColor5.EditValue) then
Total := Total + eColor5.EditValue; ATotal := ATotal + eColor5.EditValue;
if not VarIsNull(eColor6.EditValue) then if not VarIsNull(eColor6.EditValue) then
Total := Total + eColor6.EditValue; ATotal := ATotal + eColor6.EditValue;
if not VarIsNull(eColor7.EditValue) then if not VarIsNull(eColor7.EditValue) then
Total := Total + eColor7.EditValue; ATotal := ATotal + eColor7.EditValue;
if not VarIsNull(eColor8.EditValue) then if not VarIsNull(eColor8.EditValue) then
Total := Total + eColor8.EditValue; ATotal := ATotal + eColor8.EditValue;
if not VarIsNull(eColor9.EditValue) then if not VarIsNull(eColor9.EditValue) then
Total := Total + eColor9.EditValue; ATotal := ATotal + eColor9.EditValue;
if not VarIsNull(eColor10.EditValue) then if not VarIsNull(eColor10.EditValue) then
Total := Total + eColor10.EditValue; ATotal := ATotal + eColor10.EditValue;
if not VarIsNull(eColor11.EditValue) then if not VarIsNull(eColor11.EditValue) then
Total := Total + eColor11.EditValue; ATotal := ATotal + eColor11.EditValue;
if not VarIsNull(eColor12.EditValue) then if not VarIsNull(eColor12.EditValue) then
Total := Total + eColor12.EditValue; ATotal := ATotal + eColor12.EditValue;
Result := Total; Result := ATotal;
end;
procedure TfEditorColores.PonerTituloArticulo;
begin
Label2.Caption := FReferencia + ' ' + FDescripcion;
end;
procedure TfEditorColores.SetDescripcion(const Value: String);
begin
FDescripcion := Value;
PonerTituloArticulo;
end;
procedure TfEditorColores.SetReferencia(const Value: String);
begin
FReferencia := Value;
PonerTituloArticulo;
end; end;
end. end.

4
Source/GUIBase/uEditorDBItem.dfm
View File

@ -77,10 +77,6 @@ inherited fEditorDBItem: TfEditorDBItem
TabOrder = 2 TabOrder = 2
object pagGeneral: TTabSheet object pagGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar

BIN
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.res
View File

Binary file not shown.

42
Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas
View File

@ -145,30 +145,30 @@ begin
if Assigned(ADetalles) then if Assigned(ADetalles) then
begin begin
ADetallesAux := (ADetalles as IBizDEtallesAlbaranCliente); ADetallesAux := (ADetalles as IBizDEtallesAlbaranCliente);
with TfrEditorColores.Create(NIL) do with TfEditorColores.Create(NIL) do
begin try
dsDataTable.DataTable := ADetallesAux.DetalleColores.DataTable; dsDataTable.DataTable := ADetallesAux.DetalleColores.DataTable;
edtDescripcion.Lines.Clear; Referencia := ADetallesAux.REFERENCIA;
edtDescripcion.Lines.Add(ADetallesAux.REFERENCIA); Descripcion := ADetallesAux.CONCEPTO;
edtDescripcion.Lines.Add(ADetallesAux.CONCEPTO);
if (showModal = mrOK) then
begin
if ADetallesAux.DetalleColores.DataTable.Editing then
ADetallesAux.DetalleColores.DataTable.Post;
if not ADetallesAux.DataTable.Editing then if (ShowModal = mrOK) then
ADetallesAux.DataTable.Edit; begin
ADetallesAux.CANTIDAD := GetTotal; if ADetallesAux.DetalleColores.DataTable.Editing then
if ADetallesAux.DataTable.Editing then ADetallesAux.DetalleColores.DataTable.Post;
ADetallesAux.DataTable.post;
ActualizarTotales(ADetalles); if not ADetallesAux.DataTable.Editing then
end ADetallesAux.DataTable.Edit;
else ADetallesAux.CANTIDAD := Total;
ADetallesAux.DetalleColores.DataTable.Cancel; if ADetallesAux.DataTable.Editing then
ADetallesAux.DataTable.post;
Free; ActualizarTotales(ADetalles);
end; end
else
ADetallesAux.DetalleColores.DataTable.Cancel;
finally
Release;
end;
end; end;
end; end;

BIN
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.res
View File

Binary file not shown.

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

@ -19,7 +19,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
542) 542)
object Label1: TLabel object Label1: TLabel
Left = 22 Left = 22
Top = 507 Top = 443
Width = 299 Width = 299
Height = 26 Height = 26
Caption = Caption =
@ -30,7 +30,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object edtFechaAlbaran: TcxDBDateEdit object edtFechaAlbaran: TcxDBDateEdit
Left = 116 Left = 116
Top = 82 Top = 18
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ALBARAN' DataBinding.DataField = 'FECHA_ALBARAN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -59,8 +59,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 336 Width = 336
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 470 Left = 22
Top = 356 Top = 510
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -82,7 +82,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 116 Left = 116
Top = 28 Top = -36
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -111,7 +111,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 116 Left = 116
Top = 281 Top = 217
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -135,7 +135,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 375 Left = 375
Top = 308 Top = 244
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -159,7 +159,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 116 Left = 116
Top = 362 Top = 298
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -184,7 +184,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 116 Left = 116
Top = 389 Top = 325
DataBinding.DataField = 'TELEFONO' DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -208,7 +208,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object bElegirDireccion: TBitBtn object bElegirDireccion: TBitBtn
Left = 268 Left = 268
Top = 416 Top = 352
Width = 172 Width = 172
Height = 23 Height = 23
Action = actElegirDireccion Action = actElegirDireccion
@ -218,7 +218,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object Button1: TButton object Button1: TButton
Left = 308 Left = 308
Top = 109 Top = 45
Width = 132 Width = 132
Height = 23 Height = 23
Action = actVerPedidoCli Action = actVerPedidoCli
@ -227,7 +227,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eReferenciaPedidoCli: TcxTextEdit object eReferenciaPedidoCli: TcxTextEdit
Left = 116 Left = 116
Top = 109 Top = 45
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Enabled = False Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
@ -254,7 +254,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 116 Left = 116
Top = 168 Top = 104
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -288,7 +288,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 308 Left = 308
Top = 168 Top = 104
Width = 132 Width = 132
Height = 23 Height = 23
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
@ -297,7 +297,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eFechaRecepcion: TcxDBDateEdit object eFechaRecepcion: TcxDBDateEdit
Left = 604 Left = 604
Top = 299 Top = 235
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION' DataBinding.DataField = 'FECHA_RECEPCION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -327,7 +327,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbConAlmacen: TCheckBox object cbConAlmacen: TCheckBox
Left = 32 Left = 32
Top = 475 Top = 411
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:'
@ -337,7 +337,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbAlmacen: TcxDBLookupComboBox object cbAlmacen: TcxDBLookupComboBox
Left = 217 Left = 217
Top = 475 Top = 411
DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -372,7 +372,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eRefFacturaCli: TcxDBTextEdit object eRefFacturaCli: TcxDBTextEdit
Left = 116 Left = 116
Top = 224 Top = 160
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REF_FACTURA' DataBinding.DataField = 'REF_FACTURA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -401,7 +401,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eFechaPrevista: TcxDBDateEdit object eFechaPrevista: TcxDBDateEdit
Left = 604 Left = 604
Top = 245 Top = 181
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -433,7 +433,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eRefCliente: TcxDBTextEdit object eRefCliente: TcxDBTextEdit
Left = 116 Left = 116
Top = 55 Top = -9
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_CLIENTE' DataBinding.DataField = 'REFERENCIA_CLIENTE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -463,7 +463,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eFechaEnvio: TcxDBDateEdit object eFechaEnvio: TcxDBDateEdit
Left = 604 Left = 604
Top = 272 Top = 208
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -493,7 +493,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbProvincia: TcxDBComboBox object cbProvincia: TcxDBComboBox
Left = 116 Left = 116
Top = 308 Top = 244
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -523,7 +523,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbPoblacion: TcxDBComboBox object cbPoblacion: TcxDBComboBox
Left = 116 Left = 116
Top = 335 Top = 271
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -553,7 +553,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
inline frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran inline frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran
Left = 470 Left = 470
Top = 28 Top = -36
Width = 406 Width = 406
Height = 181 Height = 181
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -565,7 +565,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 18 TabOrder = 18
ReadOnly = False ReadOnly = False
ExplicitLeft = 470 ExplicitLeft = 470
ExplicitTop = 28 ExplicitTop = -36
ExplicitWidth = 406 ExplicitWidth = 406
ExplicitHeight = 181 ExplicitHeight = 181
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -645,7 +645,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbCuentaBancaria: TcxDBComboBox object cbCuentaBancaria: TcxDBComboBox
Left = 116 Left = 116
Top = 197 Top = 133
DataBinding.DataField = 'DATOS_BANCARIOS' DataBinding.DataField = 'DATOS_BANCARIOS'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
@ -671,256 +671,262 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
CaptionOptions.Visible = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <> ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group6: TdxLayoutGroup object dxLayoutControl1Group14: TdxLayoutGroup
AlignHorz = ahClient CaptionOptions.Text = 'Hidden Group'
CaptionOptions.Visible = False
ButtonOptions.Buttons = <> ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup object dxLayoutControl1Group6: TdxLayoutGroup
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avTop CaptionOptions.Visible = False
CaptionOptions.Text = 'Datos del albar'#225'n'
ButtonOptions.Buttons = <> ButtonOptions.Buttons = <>
object dxLayoutControl1Item3: TdxLayoutItem Hidden = True
CaptionOptions.Text = 'Referencia:' ShowBorder = False
Control = eReferencia object dxLayoutControl1Group1: TdxLayoutGroup
ControlOptions.ShowBorder = False AlignHorz = ahClient
AlignVert = avTop
CaptionOptions.Text = 'Datos del albar'#225'n'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item3: TdxLayoutItem
CaptionOptions.Text = 'Referencia:'
Control = eReferencia
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item23: TdxLayoutItem
CaptionOptions.Text = 'Ref. cliente:'
Enabled = False
Visible = False
Control = eRefCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
CaptionOptions.Text = 'Fecha del albar'#225'n:'
Control = edtFechaAlbaran
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group5: TdxLayoutGroup
CaptionOptions.Visible = False
Enabled = False
Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item7: TdxLayoutItem
AlignHorz = ahClient
CaptionOptions.Text = 'Ref. del pedido:'
Enabled = False
Control = eReferenciaPedidoCli
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
AlignHorz = ahRight
CaptionOptions.Text = 'Button1'
CaptionOptions.Visible = False
Enabled = False
Control = Button1
ControlOptions.ShowBorder = False
end
end
end end
object dxLayoutControl1Item23: TdxLayoutItem object dxLayoutControl1Group16: TdxLayoutGroup
CaptionOptions.Text = 'Ref. cliente:' CaptionOptions.Text = 'Forma de pago'
Enabled = False ButtonOptions.Buttons = <>
Visible = False object dxLayoutControl1Group13: TdxLayoutGroup
Control = eRefCliente CaptionOptions.Visible = False
ControlOptions.ShowBorder = False ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item4: TdxLayoutItem
AlignHorz = ahClient
CaptionOptions.Text = 'Forma de pago'
Control = cbFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item15: TdxLayoutItem
AlignHorz = ahRight
CaptionOptions.Visible = False
Control = bFormasPago
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item17: TdxLayoutItem
CaptionOptions.Text = 'Cuenta bancaria:'
Control = cbCuentaBancaria
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item22: TdxLayoutItem
CaptionOptions.Text = 'Ref. factura:'
Control = eRefFacturaCli
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Group8: TdxLayoutGroup
CaptionOptions.Text = 'Fecha del albar'#225'n:' AlignHorz = ahClient
Control = edtFechaAlbaran AlignVert = avTop
ControlOptions.ShowBorder = False CaptionOptions.Text = 'Direcci'#243'n de entrega'
end
object dxLayoutControl1Group5: TdxLayoutGroup
CaptionOptions.Visible = False
Enabled = False Enabled = False
Visible = False Visible = False
ButtonOptions.Buttons = <> ButtonOptions.Buttons = <>
Hidden = True object dxLayoutControl1Item8: TdxLayoutItem
LayoutDirection = ldHorizontal CaptionOptions.Text = 'Calle:'
ShowBorder = False
object dxLayoutControl1Item7: TdxLayoutItem
AlignHorz = ahClient
CaptionOptions.Text = 'Ref. del pedido:'
Enabled = False Enabled = False
Control = eReferenciaPedidoCli Control = eCalle
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item5: TdxLayoutItem object dxLayoutControl1Group4: TdxLayoutGroup
AlignHorz = ahRight
CaptionOptions.Text = 'Button1'
CaptionOptions.Visible = False CaptionOptions.Visible = False
Enabled = False Enabled = False
Control = Button1 ButtonOptions.Buttons = <>
ControlOptions.ShowBorder = False Hidden = True
ShowBorder = False
object dxLayoutControl1Group9: TdxLayoutGroup
CaptionOptions.Visible = False
Enabled = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item9: TdxLayoutItem
AlignHorz = ahClient
CaptionOptions.Text = 'Provincia:'
Enabled = False
Control = cbProvincia
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item10: TdxLayoutItem
AlignHorz = ahRight
CaptionOptions.Text = 'C.P.:'
Enabled = False
Control = eCodigoPostal
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item11: TdxLayoutItem
CaptionOptions.Text = 'Poblaci'#243'n:'
Enabled = False
Control = cbPoblacion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item12: TdxLayoutItem
CaptionOptions.Text = 'Pers. de contacto:'
Enabled = False
Control = ePersonaContacto
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item13: TdxLayoutItem
CaptionOptions.Text = 'Tel'#233'fono:'
Enabled = False
Control = eTlfTrabajo
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
AlignHorz = ahRight
CaptionOptions.Visible = False
Enabled = False
Control = bElegirDireccion
ControlOptions.ShowBorder = False
end
end end
end end
end object dxLayoutControl1Group11: TdxLayoutGroup
object dxLayoutControl1Group16: TdxLayoutGroup CaptionOptions.Text = 'Almac'#233'n de origen'
CaptionOptions.Text = 'Forma de pago'
ButtonOptions.Buttons = <>
object dxLayoutControl1Group13: TdxLayoutGroup
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item4: TdxLayoutItem
AlignHorz = ahClient
CaptionOptions.Text = 'Forma de pago'
Control = cbFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item15: TdxLayoutItem
AlignHorz = ahRight
CaptionOptions.Visible = False
Control = bFormasPago
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item17: TdxLayoutItem
CaptionOptions.Text = 'Cuenta bancaria:'
Control = cbCuentaBancaria
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item22: TdxLayoutItem
CaptionOptions.Text = 'Ref. factura:'
Control = eRefFacturaCli
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group8: TdxLayoutGroup
AlignHorz = ahClient
AlignVert = avTop
CaptionOptions.Text = 'Direcci'#243'n de entrega'
Enabled = False
Visible = False
ButtonOptions.Buttons = <>
object dxLayoutControl1Item8: TdxLayoutItem
CaptionOptions.Text = 'Calle:'
Enabled = False
Control = eCalle
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group4: TdxLayoutGroup
CaptionOptions.Visible = False
Enabled = False Enabled = False
Visible = False
ButtonOptions.Buttons = <> ButtonOptions.Buttons = <>
Hidden = True object dxLayoutControl1Group10: TdxLayoutGroup
ShowBorder = False
object dxLayoutControl1Group9: TdxLayoutGroup
CaptionOptions.Visible = False CaptionOptions.Visible = False
Enabled = False Enabled = False
ButtonOptions.Buttons = <> ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item9: TdxLayoutItem object dxLayoutControl1Item19: TdxLayoutItem
CaptionOptions.Visible = False
Enabled = False
Offsets.Left = 10
Control = cbConAlmacen
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item20: TdxLayoutItem
AlignHorz = ahClient AlignHorz = ahClient
CaptionOptions.Text = 'Provincia:'
Enabled = False Enabled = False
Control = cbProvincia Control = cbAlmacen
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item10: TdxLayoutItem
AlignHorz = ahRight
CaptionOptions.Text = 'C.P.:'
Enabled = False
Control = eCodigoPostal
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Item11: TdxLayoutItem object dxLayoutControl1Item18: TdxLayoutItem
CaptionOptions.Text = 'Poblaci'#243'n:'
Enabled = False
Control = cbPoblacion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item12: TdxLayoutItem
CaptionOptions.Text = 'Pers. de contacto:'
Enabled = False
Control = ePersonaContacto
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item13: TdxLayoutItem
CaptionOptions.Text = 'Tel'#233'fono:'
Enabled = False
Control = eTlfTrabajo
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
AlignHorz = ahRight
CaptionOptions.Visible = False CaptionOptions.Visible = False
Enabled = False Enabled = False
Control = bElegirDireccion Offsets.Bottom = 5
ControlOptions.ShowBorder = False Offsets.Top = 5
end Control = Label1
end
end
object dxLayoutControl1Group11: TdxLayoutGroup
CaptionOptions.Text = 'Almac'#233'n de origen'
Enabled = False
Visible = False
ButtonOptions.Buttons = <>
object dxLayoutControl1Group10: TdxLayoutGroup
CaptionOptions.Visible = False
Enabled = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item19: TdxLayoutItem
CaptionOptions.Visible = False
Enabled = False
Offsets.Left = 10
Control = cbConAlmacen
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item20: TdxLayoutItem end
AlignHorz = ahClient end
Enabled = False object dxLayoutControl1Group3: TdxLayoutGroup
Control = cbAlmacen AlignHorz = ahClient
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Group2: TdxLayoutGroup
CaptionOptions.Text = 'Datos del cliente'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item1: TdxLayoutItem
CaptionOptions.Text = 'New Item'
CaptionOptions.Visible = False
Control = frViewDatosYSeleccionClienteAlbaran1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Item18: TdxLayoutItem object dxLayoutControl1Group12: TdxLayoutGroup
CaptionOptions.Visible = False CaptionOptions.Text = 'Fechas de envio y recepci'#243'n'
Enabled = False Enabled = False
Offsets.Bottom = 5 Visible = False
Offsets.Top = 5 ButtonOptions.Buttons = <>
Control = Label1 object dxLayoutControl1Item24: TdxLayoutItem
ControlOptions.AutoColor = True AlignHorz = ahClient
ControlOptions.ShowBorder = False CaptionOptions.Text = 'Fecha prevista de envio:'
Enabled = False
Offsets.Left = 10
Control = eFechaPrevista
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item21: TdxLayoutItem
CaptionOptions.Text = 'Fecha de envio:'
Enabled = False
Offsets.Left = 10
Control = eFechaEnvio
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item16: TdxLayoutItem
AlignHorz = ahClient
AlignVert = avTop
CaptionOptions.Text = 'Fecha de recepci'#243'n:'
Enabled = False
Offsets.Left = 10
Control = eFechaRecepcion
ControlOptions.ShowBorder = False
end
end end
end end
end end
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group7: TdxLayoutGroup
AlignHorz = ahClient AlignVert = avClient
CaptionOptions.Visible = False CaptionOptions.Text = 'Observaciones'
ButtonOptions.Buttons = <> ButtonOptions.Buttons = <>
Hidden = True object dxLayoutControl1Item6: TdxLayoutItem
ShowBorder = False
object dxLayoutControl1Group2: TdxLayoutGroup
CaptionOptions.Text = 'Datos del cliente'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item1: TdxLayoutItem
CaptionOptions.Text = 'New Item'
CaptionOptions.Visible = False
Control = frViewDatosYSeleccionClienteAlbaran1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group12: TdxLayoutGroup
CaptionOptions.Text = 'Fechas de envio y recepci'#243'n'
Enabled = False
Visible = False
ButtonOptions.Buttons = <>
object dxLayoutControl1Item24: TdxLayoutItem
AlignHorz = ahClient
CaptionOptions.Text = 'Fecha prevista de envio:'
Enabled = False
Offsets.Left = 10
Control = eFechaPrevista
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item21: TdxLayoutItem
CaptionOptions.Text = 'Fecha de envio:'
Enabled = False
Offsets.Left = 10
Control = eFechaEnvio
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item16: TdxLayoutItem
AlignHorz = ahClient
AlignVert = avTop
CaptionOptions.Text = 'Fecha de recepci'#243'n:'
Enabled = False
Offsets.Left = 10
Control = eFechaRecepcion
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group7: TdxLayoutGroup
AlignVert = avClient AlignVert = avClient
CaptionOptions.Text = 'Observaciones' Control = memObservaciones
ButtonOptions.Buttons = <> ControlOptions.ShowBorder = False
object dxLayoutControl1Item6: TdxLayoutItem
AlignVert = avClient
Control = memObservaciones
ControlOptions.ShowBorder = False
end
end end
end end
end end

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

@ -106,6 +106,7 @@ type
dxLayoutControl1Group13: TdxLayoutGroup; dxLayoutControl1Group13: TdxLayoutGroup;
dxLayoutControl1Item17: TdxLayoutItem; dxLayoutControl1Item17: TdxLayoutItem;
cbCuentaBancaria: TcxDBComboBox; cbCuentaBancaria: TcxDBComboBox;
dxLayoutControl1Group14: TdxLayoutGroup;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject); procedure actElegirDireccionExecute(Sender: TObject);

BIN
Source/Modulos/Articulos/Controller/Articulos_controller.res
View File

Binary file not shown.

BIN
Source/Modulos/Articulos/Data/Articulos_data.res
View File

Binary file not shown.

BIN
Source/Modulos/Articulos/Model/Articulos_model.res
View File

Binary file not shown.

BIN
Source/Modulos/Articulos/Views/Articulos_view.res
View File

Binary file not shown.

BIN
Source/Modulos/Contactos/Controller/Contactos_controller.res
View File

Binary file not shown.

BIN
Source/Modulos/Contactos/Data/Contactos_data.res
View File

Binary file not shown.

BIN
Source/Modulos/Contactos/Model/Contactos_model.res
View File

Binary file not shown.

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

BIN
Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.res
View File

Binary file not shown.

BIN
Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.res
View File

Binary file not shown.

BIN
Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.res
View File

Binary file not shown.

BIN
Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.res
View File

Binary file not shown.

BIN
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res
View File

Binary file not shown.

BIN
Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.res
View File

Binary file not shown.

BIN
Source/Modulos/Gestor de informes/Data/GestorInformes_data.res
View File

Binary file not shown.

BIN
Source/Modulos/Gestor de informes/Model/GestorInformes_model.res
View File

Binary file not shown.

BIN
Source/Modulos/Gestor de informes/Plugin/GestorInformes_plugin.res
View File

Binary file not shown.

BIN
Source/Modulos/Gestor de informes/Views/GestorInformes_view.res
View File

Binary file not shown.

BIN
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res
View File

Binary file not shown.

BIN
Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.res
View File

Binary file not shown.

BIN
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res
View File

Binary file not shown.

BIN
Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.res
View File

Binary file not shown.

BIN
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.res
View File

Binary file not shown.

BIN
Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/PreCli_FacCli_relation.res
View File

Binary file not shown.