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

Se adapta la ficha de empresa para poder dejar el iva y la forma de pago por defecto a nulo, en tal caso se cogerán para los documentos los datos comerciales del cliente, en el caso de tener un valor se dará prioridad a los de la empresa

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@82 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-02-01 18:04:01 +00:00
parent 3f491d885b
commit 60f5e16a38
12 changed files with 441 additions and 271 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -109,131 +109,133 @@ inherited fEditorEmpresa: TfEditorEmpresa
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 660 Width = 660
Height = 425 Height = 425
LookAndFeel = dxLayoutOfficeLookAndFeel1 LayoutLookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 660 ExplicitWidth = 660
ExplicitHeight = 425 ExplicitHeight = 425
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 615 Left = 598
Top = 295 Top = 295
ExplicitLeft = 615 ExplicitLeft = 598
ExplicitTop = 295 ExplicitTop = 295
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 615 Left = 598
Top = 267 Top = 267
ExplicitLeft = 615 ExplicitLeft = 598
ExplicitTop = 267 ExplicitTop = 267
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 267 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 = 267 ExplicitTop = 331
ExplicitWidth = 234 ExplicitWidth = 234
Width = 234 Width = 234
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Top = 294 Left = 283
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 = 294 ExplicitLeft = 283
ExplicitTop = 358
end end
inherited ePaginaWeb: TcxDBTextEdit inherited ePaginaWeb: TcxDBTextEdit
Left = 508 Left = 479
Top = 216 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 = 508 ExplicitLeft = 479
ExplicitTop = 216 ExplicitTop = 216
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eMailParticular: TcxDBTextEdit inherited eMailParticular: TcxDBTextEdit
Left = 508 Left = 479
Top = 189 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 = 508 ExplicitLeft = 479
ExplicitTop = 189 ExplicitTop = 189
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eMailTrabajo: TcxDBTextEdit inherited eMailTrabajo: TcxDBTextEdit
Left = 508 Left = 479
Top = 162 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 = 508 ExplicitLeft = 479
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited cxDBMemo1: TcxDBMemo inherited cxDBMemo1: TcxDBMemo
Top = 372 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 = 372 ExplicitTop = 436
ExplicitWidth = 329 ExplicitWidth = 329
ExplicitHeight = 64 ExplicitHeight = 64
Height = 64 Height = 64
Width = 329 Width = 329
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 508 Left = 479
Top = 57 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 = 508 ExplicitLeft = 479
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 508 Left = 479
Top = 30 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 = 508 ExplicitLeft = 479
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 508 Left = 479
Top = 84 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 = 508 ExplicitLeft = 479
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 508 Left = 479
Top = 111 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 = 508 ExplicitLeft = 479
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
@ -269,13 +271,13 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 234 Width = 234
end end
inherited cxDBImage1: TcxDBImage inherited cxDBImage1: TcxDBImage
Left = 413 Left = 384
Top = 267 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 = 413 ExplicitLeft = 384
ExplicitTop = 267 ExplicitTop = 267
ExplicitWidth = 230 ExplicitWidth = 230
ExplicitHeight = 142 ExplicitHeight = 142
@ -283,62 +285,68 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 230 Width = 230
end end
inherited eParamMargen: TcxDBSpinEdit inherited eParamMargen: TcxDBSpinEdit
Top = 216 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 = 216 ExplicitTop = 280
end end
inherited eParamTiempo: TcxDBCurrencyEdit inherited eParamTiempo: TcxDBCurrencyEdit
Top = 216 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 = 216 ExplicitTop = 280
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Top = 294 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 = 294 ExplicitTop = 358
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 321 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 = 321 ExplicitTop = 385
ExplicitWidth = 234 ExplicitWidth = 234
Width = 234 Width = 234
end end
inherited cbFormaPago: TcxComboBox inherited cbFormaPago: TcxComboBox
Top = 165 Top = 229
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 = 165 ExplicitTop = 229
ExplicitWidth = 202
Width = 202
end
inherited cbTipoIVA: TcxComboBox
Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138
ExplicitWidth = 202 ExplicitWidth = 202
Width = 202 Width = 202
end end
inherited cbTipoIVA: TcxComboBox
Top = 202
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 202
ExplicitWidth = 202
Width = 202
end
inherited cbPrioridad: TcxCheckBox
Top = 162
ExplicitTop = 162
ExplicitWidth = 363
Width = 363
end
end end
end end
end end
@ -370,6 +378,18 @@ 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

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

@ -13,7 +13,8 @@ uses
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
uViewEmpresa, uIEditorEmpresa, uEmpresasController, dxLayoutLookAndFeels, uViewEmpresa, uIEditorEmpresa, uEmpresasController, dxLayoutLookAndFeels,
JvExComCtrls, JvStatusBar, uViewDetallesGenerico, uViewDatosBancarios, JvExComCtrls, JvStatusBar, uViewDetallesGenerico, uViewDatosBancarios,
uDAInterfaces, cxControls, cxContainer, cxEdit, cxLabel; uDAInterfaces, cxControls, cxContainer, cxEdit, cxLabel, cxGraphics,
cxLookAndFeels, cxLookAndFeelPainters;
type type
TfEditorEmpresa = class(TfEditorDBItem, IEditorEmpresa) TfEditorEmpresa = class(TfEditorDBItem, IEditorEmpresa)

BIN
Source/ApplicationBase/Empresas/Views/uViewDatosBancarios.pas
View File

Binary file not shown.

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

@ -13,7 +13,6 @@ inherited frViewEmpresa: TfrViewEmpresa
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
734 734
548) 548)
@ -36,8 +35,8 @@ inherited frViewEmpresa: TfrViewEmpresa
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 162 Left = 117
Top = 277 Top = 347
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -54,12 +53,12 @@ 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 TabOrder = 8
Width = 223 Width = 223
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 312 Left = 289
Top = 304 Top = 374
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -76,11 +75,11 @@ 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 = 9 TabOrder = 10
Width = 73 Width = 73
end end
object ePaginaWeb: TcxDBTextEdit object ePaginaWeb: TcxDBTextEdit
Left = 510 Left = 487
Top = 220 Top = 220
DataBinding.DataField = 'PAGINA_WEB' DataBinding.DataField = 'PAGINA_WEB'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -98,13 +97,35 @@ 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 = 19
Width = 247
end
object eMailParticular: TcxDBTextEdit
Left = 487
Top = 193
DataBinding.DataField = 'EMAIL_2'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
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 = 18 TabOrder = 18
Width = 247 Width = 247
end end
object eMailParticular: TcxDBTextEdit object eMailTrabajo: TcxDBTextEdit
Left = 510 Left = 487
Top = 193 Top = 166
DataBinding.DataField = 'EMAIL_2' DataBinding.DataField = 'EMAIL_1'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -123,31 +144,9 @@ inherited frViewEmpresa: TfrViewEmpresa
TabOrder = 17 TabOrder = 17
Width = 247 Width = 247
end end
object eMailTrabajo: TcxDBTextEdit
Left = 510
Top = 166
DataBinding.DataField = 'EMAIL_1'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
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 = 16
Width = 247
end
object cxDBMemo1: TcxDBMemo object cxDBMemo1: TcxDBMemo
Left = 22 Left = 22
Top = 388 Top = 458
DataBinding.DataField = 'NOTAS' DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -165,12 +164,12 @@ 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 = 11 TabOrder = 12
Height = 75 Height = 75
Width = 318 Width = 318
end end
object eTlfParticular: TcxDBTextEdit object eTlfParticular: TcxDBTextEdit
Left = 510 Left = 487
Top = 55 Top = 55
DataBinding.DataField = 'TELEFONO_2' DataBinding.DataField = 'TELEFONO_2'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -188,57 +187,35 @@ 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 = 13
Width = 247
end
object eTlfTrabajo: TcxDBTextEdit
Left = 510
Top = 28
DataBinding.DataField = 'TELEFONO_1'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
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 = 247
end
object eTlfMovil: TcxDBTextEdit
Left = 510
Top = 82
DataBinding.DataField = 'MOVIL_1'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
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 = 14 TabOrder = 14
Width = 247 Width = 247
end end
object eFax: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 510 Left = 487
Top = 109 Top = 28
DataBinding.DataField = 'FAX' DataBinding.DataField = 'TELEFONO_1'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
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 = 13
Width = 247
end
object eTlfMovil: TcxDBTextEdit
Left = 487
Top = 82
DataBinding.DataField = 'MOVIL_1'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -257,8 +234,30 @@ inherited frViewEmpresa: TfrViewEmpresa
TabOrder = 15 TabOrder = 15
Width = 247 Width = 247
end end
object eFax: TcxDBTextEdit
Left = 487
Top = 109
DataBinding.DataField = 'FAX'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
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 = 16
Width = 247
end
object eNombre: TcxDBTextEdit object eNombre: TcxDBTextEdit
Left = 162 Left = 117
Top = 28 Top = 28
DataBinding.DataField = 'NOMBRE' DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -281,7 +280,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 223 Width = 223
end end
object eNIFCIF: TcxDBTextEdit object eNIFCIF: TcxDBTextEdit
Left = 162 Left = 117
Top = 55 Top = 55
DataBinding.DataField = 'NIF_CIF' DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -304,7 +303,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 223 Width = 223
end end
object memRegistroMercantil: TcxDBMemo object memRegistroMercantil: TcxDBMemo
Left = 162 Left = 117
Top = 82 Top = 82
DataBinding.DataField = 'REGISTRO_MERCANTIL' DataBinding.DataField = 'REGISTRO_MERCANTIL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -328,7 +327,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 223 Width = 223
end end
object cxDBImage1: TcxDBImage object cxDBImage1: TcxDBImage
Left = 415 Left = 392
Top = 277 Top = 277
DataBinding.DataField = 'LOGOTIPO' DataBinding.DataField = 'LOGOTIPO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -345,13 +344,13 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19 TabOrder = 20
Height = 249 Height = 249
Width = 313 Width = 313
end end
object eParamMargen: TcxDBSpinEdit object eParamMargen: TcxDBSpinEdit
Left = 162 Left = 117
Top = 220 Top = 290
DataBinding.DataField = 'PARAM_MARGEN' DataBinding.DataField = 'PARAM_MARGEN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -372,12 +371,12 @@ 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 = 5 TabOrder = 6
Width = 60 Width = 60
end end
object eParamTiempo: TcxDBCurrencyEdit object eParamTiempo: TcxDBCurrencyEdit
Left = 285 Left = 240
Top = 220 Top = 290
DataBinding.DataField = 'PARAM_TIEMPO' DataBinding.DataField = 'PARAM_TIEMPO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -398,12 +397,12 @@ 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 = 7
Width = 100 Width = 100
end end
object cbProvincia: TcxDBComboBox object cbProvincia: TcxDBComboBox
Left = 162 Left = 117
Top = 304 Top = 374
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -427,12 +426,12 @@ 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 = 9
Width = 80 Width = 80
end end
object cbPoblacion: TcxDBComboBox object cbPoblacion: TcxDBComboBox
Left = 162 Left = 117
Top = 331 Top = 401
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -456,12 +455,39 @@ 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 = 11
Width = 223 Width = 223
end end
object cbFormaPago: TcxComboBox object cbFormaPago: TcxComboBox
Left = 162 Left = 182
Top = 163 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] Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsEditFixedList Properties.DropDownListStyle = lsEditFixedList
Properties.DropDownRows = 25 Properties.DropDownRows = 25
@ -486,233 +512,248 @@ inherited frViewEmpresa: TfrViewEmpresa
TabOrder = 4 TabOrder = 4
Width = 202 Width = 202
end end
object cbTipoIVA: TcxComboBox object cbPrioridad: TcxCheckBox
Left = 162 Left = 22
Top = 136 Top = 166
Anchors = [akLeft, akTop, akRight] Caption =
Properties.DropDownListStyle = lsEditFixedList 'Dar prioridad de datos comerciales a la empresa respecto a clien' +
Properties.DropDownRows = 25 'te, con el I.V.A y forma de pago siguiente:'
Properties.ImmediatePost = True Properties.MultiLine = True
Properties.NullStyle = nssInactive
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 3
Width = 202 Transparent = True
Width = 363
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False AlignHorz = ahParentManaged
AlignVert = avParentManaged
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group4: TdxLayoutGroup object dxLayoutControl1Group4: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup object dxLayoutControl1Group1: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Datos generales' AlignVert = avTop
CaptionOptions.Text = 'Datos generales'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item13: TdxLayoutItem object dxLayoutControl1Item13: TdxLayoutItem
Caption = 'Nombre:' CaptionOptions.Text = 'Nombre:'
Control = eNombre Control = eNombre
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item14: TdxLayoutItem object dxLayoutControl1Item14: TdxLayoutItem
Caption = 'CIF:' CaptionOptions.Text = 'CIF:'
Control = eNIFCIF Control = eNIFCIF
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item15: TdxLayoutItem object dxLayoutControl1Item15: TdxLayoutItem
Caption = 'Registro mercantil:' CaptionOptions.Text = 'Registro mercantil:'
CaptionOptions.AlignVert = tavTop CaptionOptions.AlignVert = tavTop
Control = memRegistroMercantil Control = memRegistroMercantil
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
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 object dxLayoutControl1Item16: TdxLayoutItem
Caption = 'IVA por defecto:' CaptionOptions.Text = 'IVA por defecto:'
Offsets.Left = 20
Control = cbTipoIVA Control = cbTipoIVA
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Forma de pago por defecto:' CaptionOptions.Text = 'Forma de pago por defecto:'
Offsets.Left = 20
Control = cbFormaPago Control = cbFormaPago
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group13: TdxLayoutGroup object dxLayoutControl1Group13: TdxLayoutGroup
Caption = 'Datos cat'#225'logo art'#237'culos' CaptionOptions.Text = 'Datos cat'#225'logo art'#237'culos'
Enabled = False Enabled = False
Visible = False Visible = False
ButtonOptions.Buttons = <>
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
object dxLayoutControl1Item18: TdxLayoutItem object dxLayoutControl1Item18: TdxLayoutItem
Caption = 'Margen de venta:' CaptionOptions.Text = 'Margen de venta:'
Enabled = False
Control = eParamMargen Control = eParamMargen
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item21: TdxLayoutItem object dxLayoutControl1Item21: TdxLayoutItem
Caption = 'Precio min:' CaptionOptions.Text = 'Precio min:'
Enabled = False
Control = eParamTiempo Control = eParamTiempo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaHorizontal] AlignVert = avTop
Caption = 'Direcci'#243'n' CaptionOptions.Text = 'Direcci'#243'n'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item1: TdxLayoutItem object dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Calle:' CaptionOptions.Text = 'Calle:'
Control = eCalle Control = eCalle
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Group8: TdxLayoutGroup object dxLayoutControl1Group8: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group15: TdxLayoutGroup object dxLayoutControl1Group15: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item22: TdxLayoutItem object dxLayoutControl1Item22: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Provincia:' CaptionOptions.Text = 'Provincia:'
Control = cbProvincia Control = cbProvincia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item4: TdxLayoutItem object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'C'#243'd. postal:' CaptionOptions.Text = 'C'#243'd. postal:'
Control = eCodigoPostal Control = eCodigoPostal
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Poblaci'#243'n:' CaptionOptions.Text = 'Poblaci'#243'n:'
Control = cbPoblacion Control = cbPoblacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
end end
object dxLayoutControl1Group7: TdxLayoutGroup object dxLayoutControl1Group7: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient AlignVert = avClient
Caption = 'Observaciones' CaptionOptions.Text = 'Observaciones'
Enabled = False Enabled = False
Visible = False Visible = False
ButtonOptions.Buttons = <>
object dxLayoutControl1Item8: TdxLayoutItem object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'cxDBMemo1' CaptionOptions.Text = 'cxDBMemo1'
ShowCaption = False CaptionOptions.Visible = False
Enabled = False
Control = cxDBMemo1 Control = cxDBMemo1
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
end end
object dxLayoutControl1Group6: TdxLayoutGroup object dxLayoutControl1Group6: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient AlignVert = avClient
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group2: TdxLayoutGroup object dxLayoutControl1Group2: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Tel'#233'fonos' AlignVert = avTop
CaptionOptions.Text = 'Tel'#233'fonos'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item10: TdxLayoutItem object dxLayoutControl1Item10: TdxLayoutItem
Caption = 'Tlf. trabajo:' CaptionOptions.Text = 'Tlf. trabajo:'
Control = eTlfTrabajo Control = eTlfTrabajo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item9: TdxLayoutItem object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Tlf. particular:' CaptionOptions.Text = 'Tlf. particular:'
Control = eTlfParticular Control = eTlfParticular
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item11: TdxLayoutItem object dxLayoutControl1Item11: TdxLayoutItem
Caption = 'M'#243'vil:' CaptionOptions.Text = 'M'#243'vil:'
Control = eTlfMovil Control = eTlfMovil
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item12: TdxLayoutItem object dxLayoutControl1Item12: TdxLayoutItem
Caption = 'Fax:' CaptionOptions.Text = 'Fax:'
Control = eFax Control = eFax
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
Caption = 'Correo electr'#243'nico e internet' CaptionOptions.Text = 'Correo electr'#243'nico e internet'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item7: TdxLayoutItem object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Correo de trabajo:' CaptionOptions.Text = 'Correo de trabajo:'
Control = eMailTrabajo Control = eMailTrabajo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
Caption = 'Correo particular:' CaptionOptions.Text = 'Correo particular:'
Control = eMailParticular Control = eMailParticular
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item5: TdxLayoutItem object dxLayoutControl1Item5: TdxLayoutItem
Caption = 'P'#225'gina web:' CaptionOptions.Text = 'P'#225'gina web:'
Control = ePaginaWeb Control = ePaginaWeb
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group10: TdxLayoutGroup object dxLayoutControl1Group10: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient AlignVert = avClient
Caption = 'Logotipo' CaptionOptions.Text = 'Logotipo'
Enabled = False Enabled = False
Visible = False Visible = False
ButtonOptions.Buttons = <>
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
object dxLayoutControl1Item17: TdxLayoutItem object dxLayoutControl1Item17: TdxLayoutItem
AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient AlignVert = avClient
Caption = 'cxDBImage1' CaptionOptions.Text = 'cxDBImage1'
ShowCaption = False CaptionOptions.Visible = False
Enabled = False
Control = cxDBImage1 Control = cxDBImage1
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Group12: TdxLayoutGroup object dxLayoutControl1Group12: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
Enabled = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item20: TdxLayoutItem object dxLayoutControl1Item20: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'PngSpeedButton2' CaptionOptions.Text = 'PngSpeedButton2'
ShowCaption = False CaptionOptions.Visible = False
Enabled = False
Control = PngSpeedButton2 Control = PngSpeedButton2
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item19: TdxLayoutItem object dxLayoutControl1Item19: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'PngSpeedButton1' CaptionOptions.Text = 'PngSpeedButton1'
ShowCaption = False CaptionOptions.Visible = False
Enabled = False
Control = PngSpeedButton1 Control = PngSpeedButton1
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -721,8 +762,10 @@ inherited frViewEmpresa: TfrViewEmpresa
end end
end end
object dxLayoutControl1Group9: TdxLayoutGroup object dxLayoutControl1Group9: TdxLayoutGroup
ButtonOptions.Buttons = <>
end end
object dxLayoutControl1Group11: TdxLayoutGroup object dxLayoutControl1Group11: TdxLayoutGroup
ButtonOptions.Buttons = <>
end end
end end
object DADataSource: TDADataSource object DADataSource: TDADataSource

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

@ -10,7 +10,8 @@ uses
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit, cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit,
cxSpinEdit, cxImage, JvExControls, JvBitmapButton, ActnList, ImgList, cxSpinEdit, cxImage, JvExControls, JvBitmapButton, ActnList, ImgList,
PngImageList, TB2Item, SpTBXItem, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces, PngImageList, TB2Item, SpTBXItem, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces,
cxCurrencyEdit, cxGraphics, cxDropDownEdit, uEmpresasController; cxCurrencyEdit, cxGraphics, cxDropDownEdit, uEmpresasController,
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters, cxCheckBox;
type type
IViewEmpresa = interface(IViewBase) IViewEmpresa = interface(IViewBase)
@ -90,6 +91,9 @@ type
cbFormaPago: TcxComboBox; cbFormaPago: TcxComboBox;
dxLayoutControl1Item16: TdxLayoutItem; dxLayoutControl1Item16: TdxLayoutItem;
cbTipoIVA: TcxComboBox; cbTipoIVA: TcxComboBox;
dxLayoutControl1Group14: TdxLayoutGroup;
cbPrioridad: TcxCheckBox;
dxLayoutControl1Item24: TdxLayoutItem;
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
@ -103,6 +107,7 @@ type
procedure FormaPagoEditValueChanged(Sender: TObject); procedure FormaPagoEditValueChanged(Sender: TObject);
procedure TipoIVAEditValueChanged(Sender: TObject); procedure TipoIVAEditValueChanged(Sender: TObject);
procedure CustomViewShow(Sender: TObject); procedure CustomViewShow(Sender: TObject);
procedure cbPrioridadPropertiesEditValueChanged(Sender: TObject);
private private
FEmpresa: IBizEmpresa; FEmpresa: IBizEmpresa;
FController : IEmpresasController; FController : IEmpresasController;
@ -249,6 +254,23 @@ begin
end; end;
end; end;
procedure TfrViewEmpresa.cbPrioridadPropertiesEditValueChanged(Sender: TObject);
begin
inherited;
if cbPrioridad.Checked then
begin
cbTipoIVA.Enabled := True;
cbFormaPago.Enabled := True;
end
else
begin
cbTipoIVA.ItemIndex := 0;
cbFormaPago.ItemIndex := 0;
cbTipoIVA.Enabled := False;
cbFormaPago.Enabled := False;
end;
end;
procedure TfrViewEmpresa.cbProvinciaPropertiesInitPopup(Sender: TObject); procedure TfrViewEmpresa.cbProvinciaPropertiesInitPopup(Sender: TObject);
begin begin
inherited; inherited;
@ -279,7 +301,7 @@ begin
cbFormaPago.ItemIndex := 0; cbFormaPago.ItemIndex := 0;
for i := 0 to FFormasPago.Count - 1 do for i := 0 to FFormasPago.Count - 1 do
if IntToStr(FEmpresa.ID_FORMA_PAGO) = FFormasPago.Values[FFormasPago.Names[i]] then if IntToStr(FEmpresa.ID_FORMA_PAGO) = FFormasPago.Values[FFormasPago.Names[i]] then
cbFormaPago.ItemIndex := i; cbFormaPago.ItemIndex := i+1; //Se añade uno porque hemos añadido a la lista la cadena vacia
cbFormaPago.Properties.OnEditValueChanged := FormaPagoEditValueChanged; cbFormaPago.Properties.OnEditValueChanged := FormaPagoEditValueChanged;
@ -287,14 +309,24 @@ begin
cbTipoIVA.ItemIndex := 0; cbTipoIVA.ItemIndex := 0;
for i := 0 to FTiposIVA.Count - 1 do for i := 0 to FTiposIVA.Count - 1 do
if IntToStr(FEmpresa.ID_TIPO_IVA) = FTiposIVA.Values[FTiposIVA.Names[i]] then if IntToStr(FEmpresa.ID_TIPO_IVA) = FTiposIVA.Values[FTiposIVA.Names[i]] then
cbTipoIVA.ItemIndex := i; cbTipoIVA.ItemIndex := i+1; //Se añade uno porque hemos añadido a la lista la cadena vacia
cbTipoIVA.Properties.OnEditValueChanged := TipoIVAEditValueChanged; cbTipoIVA.Properties.OnEditValueChanged := TipoIVAEditValueChanged;
cbPrioridad.Checked := (cbTipoIVA.ItemIndex > 0) and (cbFormaPago.ItemIndex > 0);
if not cbPrioridad.Checked then
begin
cbTipoIVA.Enabled := False;
cbFormaPago.Enabled := False;
end;
cbPrioridad.Properties.OnEditValueChanged := cbPrioridadPropertiesEditValueChanged;
end; end;
destructor TfrViewEmpresa.Destroy; destructor TfrViewEmpresa.Destroy;
begin begin
FController := Nil; FController := Nil;
cbPrioridad.Properties.OnEditValueChanged := Nil;
if Assigned(FTiposIVA) then if Assigned(FTiposIVA) then
FreeANDNIL(FTiposIVA); FreeANDNIL(FTiposIVA);
@ -369,6 +401,7 @@ begin
BeginUpdate; BeginUpdate;
try try
Clear; Clear;
Add(''); //Valor nulo
for i := 0 to FFormasPago.Count - 1 do for i := 0 to FFormasPago.Count - 1 do
Add(FFormasPago.Names[i]); Add(FFormasPago.Names[i]);
finally finally
@ -383,6 +416,7 @@ begin
BeginUpdate; BeginUpdate;
try try
Clear; Clear;
Add(''); //Valor nulo
for i := 0 to FTiposIVA.Count - 1 do for i := 0 to FTiposIVA.Count - 1 do
Add(FTiposIVA.Names[i]); Add(FTiposIVA.Names[i]);
finally finally
@ -398,7 +432,7 @@ begin
if Assigned(FEmpresa) then if Assigned(FEmpresa) then
DADataSource.DataTable := FEmpresa.DataTable DADataSource.DataTable := FEmpresa.DataTable
else else
DADataSource.DataTable := NIL; DADataSource.DataTable := NIL;
end; end;
procedure TfrViewEmpresa.TipoIVAEditValueChanged(Sender: TObject); procedure TfrViewEmpresa.TipoIVAEditValueChanged(Sender: TObject);

54
Source/Informes/1/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

2
Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
View File

@ -241,7 +241,7 @@ begin
FCliente.DataTable.Active := True; FCliente.DataTable.Active := True;
ID_CLIENTE := FCliente.ID; ID_CLIENTE := FCliente.ID;
if FCliente.ID_FORMA_PAGO > 0 then if (ID_FORMA_PAGO = 0) and (FCliente.ID_FORMA_PAGO > 0) then
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
DESCUENTO := FCliente.DESCUENTO; DESCUENTO := FCliente.DESCUENTO;
DESCUENTO2 := FCliente.DESCUENTO2; DESCUENTO2 := FCliente.DESCUENTO2;

10
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
View File

@ -75,11 +75,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
'ACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_D' + 'ACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_D' +
'IRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALE' + 'IRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALE' +
'SCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL' + 'SCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL' +
') AS CODIGO_POSTAL'#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN CONTA' + ') AS CODIGO_POSTAL'#10#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN CONT' +
'CTOS ON (CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT O' + 'ACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT ' +
'UTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V' + 'OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = ' +
'_ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE V_ALBARANES_CLIENTE.ID = ' + 'V_ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE V_ALBARANES_CLIENTE.ID =' +
':ID'#10#10 ' :ID'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item

3
Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
View File

@ -79,6 +79,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Top = 28 Top = 28
DataBinding.DataField = 'REGIMEN_IVA' DataBinding.DataField = 'REGIMEN_IVA'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
Enabled = False
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True Properties.ImmediateUpdateText = True
@ -377,6 +378,8 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item3: TdxLayoutItem
AlignHorz = ahClient AlignHorz = ahClient
CaptionOptions.Text = 'R'#233'gimen de IVA:' CaptionOptions.Text = 'R'#233'gimen de IVA:'
Enabled = False
Visible = False
Control = cbRegimenIVA Control = cbRegimenIVA
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

4
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -313,9 +313,9 @@ begin
CODIGO_POSTAL := FCliente.CODIGO_POSTAL; CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
PROVINCIA := FCliente.PROVINCIA; PROVINCIA := FCliente.PROVINCIA;
POBLACION := FCliente.POBLACION; POBLACION := FCliente.POBLACION;
if FCliente.ID_FORMA_PAGO > 0 then if (ID_FORMA_PAGO = 0) and (FCliente.ID_FORMA_PAGO > 0) then
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
if FCliente.ID_TIPO_IVA > 0 then if (ID_TIPO_IVA = 0) and (FCliente.ID_TIPO_IVA > 0) then
ID_TIPO_IVA := FCliente.ID_TIPO_IVA; ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA; RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
DESCUENTO := FCliente.DESCUENTO; DESCUENTO := FCliente.DESCUENTO;

85
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -38,13 +38,19 @@ object RptFacturasCliente: TRptFacturasCliente
'ente.importe_neto,'#10' v_facturas_cliente.importe_porte, formas_p' + 'ente.importe_neto,'#10' v_facturas_cliente.importe_porte, formas_p' +
'ago.descripcion as FORMA_PAGO,'#10' v_facturas_cliente.DATOS_BANCA' + 'ago.descripcion as FORMA_PAGO,'#10' v_facturas_cliente.DATOS_BANCA' +
'RIOS, v_facturas_cliente.RETENCION, v_facturas_cliente.IMPORTE_R' + 'RIOS, v_facturas_cliente.RETENCION, v_facturas_cliente.IMPORTE_R' +
'ETENCION'#10'from v_facturas_cliente'#10' left outer join contactos on' + 'ETENCION,'#10' '#10' empresas.calle as empresa_calle, empresas.codig' +
' (contactos.id = v_facturas_cliente.id_cliente)'#10' left outer jo' + 'o_postal as empresa_codigo_postal,'#10' empresas.poblacion as empr' +
'in formas_pago on (formas_pago.id = v_facturas_cliente.id_forma_' + 'esa_poblacion, empresas.telefono_1 as empresa_telefono,'#10' empre' +
'pago)'#10' left outer join clientes_datos on (clientes_datos.id_cl' + 'sas.fax as empresa_fax, empresas.email_1 as empresa_email, empre' +
'iente = v_facturas_cliente.id_cliente)'#10' left outer join contac' + 'sas.registro_mercantil'#10' '#10'from v_facturas_cliente'#10' left outer' +
'tos contactos2 on (contactos2.id = clientes_datos.id_agente)'#10'WHE' + ' join contactos on (contactos.id = v_facturas_cliente.id_cliente' +
'RE V_FACTURAS_CLIENTE.ID = :ID'#10 ')'#10' left outer join formas_pago on (formas_pago.id = v_facturas' +
'_cliente.id_forma_pago)'#10' left outer join clientes_datos on (cl' +
'ientes_datos.id_cliente = v_facturas_cliente.id_cliente)'#10' left' +
' outer join contactos contactos2 on (contactos2.id = clientes_da' +
'tos.id_agente)'#10' left outer join empresas on (empresas.id = v_f' +
'acturas_cliente.id_empresa)'#10' '#10'WHERE V_FACTURAS_CLIENTE.ID = :I' +
'D'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -190,6 +196,34 @@ object RptFacturasCliente: TRptFacturasCliente
item item
DatasetField = 'REF_VENDEDOR' DatasetField = 'REF_VENDEDOR'
TableField = 'REF_VENDEDOR' TableField = 'REF_VENDEDOR'
end
item
DatasetField = 'EMPRESA_CALLE'
TableField = 'EMPRESA_CALLE'
end
item
DatasetField = 'EMPRESA_CODIGO_POSTAL'
TableField = 'EMPRESA_CODIGO_POSTAL'
end
item
DatasetField = 'EMPRESA_POBLACION'
TableField = 'EMPRESA_POBLACION'
end
item
DatasetField = 'EMPRESA_TELEFONO'
TableField = 'EMPRESA_TELEFONO'
end
item
DatasetField = 'EMPRESA_FAX'
TableField = 'EMPRESA_FAX'
end
item
DatasetField = 'EMPRESA_EMAIL'
TableField = 'EMPRESA_EMAIL'
end
item
DatasetField = 'REGISTRO_MERCANTIL'
TableField = 'REGISTRO_MERCANTIL'
end> end>
end> end>
Name = 'InformeFacturasCliente' Name = 'InformeFacturasCliente'
@ -371,6 +405,41 @@ object RptFacturasCliente: TRptFacturasCliente
item item
Name = 'IMPORTE_RETENCION' Name = 'IMPORTE_RETENCION'
DataType = datCurrency DataType = datCurrency
end
item
Name = 'EMPRESA_CALLE'
DataType = datString
Size = 255
end
item
Name = 'EMPRESA_CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'EMPRESA_POBLACION'
DataType = datString
Size = 255
end
item
Name = 'EMPRESA_TELEFONO'
DataType = datString
Size = 25
end
item
Name = 'EMPRESA_FAX'
DataType = datString
Size = 25
end
item
Name = 'EMPRESA_EMAIL'
DataType = datString
Size = 255
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
end> end>
ReadOnly = True ReadOnly = True
end end
@ -1601,7 +1670,7 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40210.690281921300000000 ReportOptions.LastChange = 40210.707089826390000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False

2
Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
View File

@ -250,7 +250,7 @@ begin
DataTable.Edit; DataTable.Edit;
ID_CLIENTE := FCliente.ID; ID_CLIENTE := FCliente.ID;
if FCliente.ID_FORMA_PAGO > 0 then if (ID_FORMA_PAGO = 0) and (FCliente.ID_FORMA_PAGO > 0) then
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
DESCUENTO := FCliente.DESCUENTO; DESCUENTO := FCliente.DESCUENTO;