Se arregla para que no se puedan meter porcentajes de retenciones en negativo
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1005 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
63158c42e5
commit
f2fe24b6bc
@ -2,20 +2,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Left = 454
|
||||
Top = 208
|
||||
Caption = 'Nueva factura de cliente'
|
||||
ClientHeight = 608
|
||||
ClientWidth = 812
|
||||
ClientHeight = 611
|
||||
ClientWidth = 823
|
||||
Position = poScreenCenter
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 820
|
||||
ExplicitHeight = 642
|
||||
ExplicitWidth = 831
|
||||
ExplicitHeight = 645
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 812
|
||||
Width = 823
|
||||
Caption = 'Nueva factura de cliente'
|
||||
ExplicitWidth = 812
|
||||
inherited Image1: TImage
|
||||
Left = 785
|
||||
Left = 796
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||
@ -38,14 +38,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
ExplicitLeft = 742
|
||||
end
|
||||
inherited lblDesbloquear: TcxLabel
|
||||
Left = 687
|
||||
Left = 698
|
||||
ExplicitLeft = 687
|
||||
AnchorX = 732
|
||||
AnchorX = 743
|
||||
AnchorY = 14
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 812
|
||||
Width = 823
|
||||
ExplicitWidth = 812
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 613
|
||||
@ -66,7 +66,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 812
|
||||
ExplicitWidth = 823
|
||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
||||
inherited TBXItem8: TTBXItem
|
||||
Visible = False
|
||||
@ -87,8 +87,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
end
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 806
|
||||
Height = 312
|
||||
Width = 817
|
||||
Height = 315
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitWidth = 806
|
||||
ExplicitHeight = 312
|
||||
@ -100,8 +100,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
inline frViewFacturaCliente1: TfrViewFacturaCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 798
|
||||
Height = 284
|
||||
Width = 809
|
||||
Height = 287
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -114,17 +114,17 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
ExplicitWidth = 798
|
||||
ExplicitHeight = 284
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 798
|
||||
Height = 284
|
||||
Width = 809
|
||||
Height = 287
|
||||
ExplicitWidth = 798
|
||||
ExplicitHeight = 284
|
||||
DesignSize = (
|
||||
798
|
||||
284)
|
||||
809
|
||||
287)
|
||||
inherited Label1: TLabel
|
||||
Left = 378
|
||||
Left = 383
|
||||
Width = 311
|
||||
ExplicitLeft = 378
|
||||
ExplicitLeft = 383
|
||||
ExplicitWidth = 311
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
@ -162,8 +162,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 111
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 196
|
||||
ExplicitLeft = 196
|
||||
Left = 201
|
||||
ExplicitLeft = 201
|
||||
end
|
||||
inherited cbCuentaBancaria: TcxDBComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -174,23 +174,23 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 249
|
||||
end
|
||||
inherited cbClienteFinal: TcxDBTextEdit
|
||||
Left = 378
|
||||
Left = 383
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 378
|
||||
ExplicitLeft = 383
|
||||
ExplicitWidth = 339
|
||||
Width = 339
|
||||
end
|
||||
inherited bElegirClienteFinal: TButton
|
||||
Left = 725
|
||||
ExplicitLeft = 725
|
||||
Left = 736
|
||||
ExplicitLeft = 736
|
||||
end
|
||||
inherited frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
|
||||
Left = 367
|
||||
Left = 372
|
||||
Width = 505
|
||||
ExplicitLeft = 367
|
||||
ExplicitLeft = 372
|
||||
ExplicitWidth = 505
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 505
|
||||
@ -203,16 +203,16 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 224
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Left = 279
|
||||
Left = 285
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 279
|
||||
ExplicitLeft = 285
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 190
|
||||
ExplicitLeft = 190
|
||||
Left = 196
|
||||
ExplicitLeft = 196
|
||||
end
|
||||
inherited edtDireccion: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -223,8 +223,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 121
|
||||
end
|
||||
inherited Button4: TButton
|
||||
Left = 359
|
||||
ExplicitLeft = 359
|
||||
Left = 365
|
||||
ExplicitLeft = 365
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -242,11 +242,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
object pagContenido: TTabSheet
|
||||
Caption = 'Contenido'
|
||||
ImageIndex = 1
|
||||
ExplicitWidth = 798
|
||||
ExplicitHeight = 284
|
||||
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 798
|
||||
Height = 284
|
||||
Width = 809
|
||||
Height = 287
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -261,108 +263,114 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
ExplicitWidth = 798
|
||||
ExplicitHeight = 284
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 798
|
||||
Height = 46
|
||||
ExplicitWidth = 798
|
||||
ExplicitHeight = 46
|
||||
Width = 809
|
||||
Height = 78
|
||||
ExplicitWidth = 809
|
||||
ExplicitHeight = 78
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 278
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 278
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 0
|
||||
Left = 334
|
||||
Top = 0
|
||||
Wrap = False
|
||||
ExplicitLeft = 0
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 65
|
||||
Top = 22
|
||||
ExplicitTop = 22
|
||||
Left = 399
|
||||
Top = 0
|
||||
ExplicitLeft = 399
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Top = 22
|
||||
Width = 248
|
||||
ExplicitTop = 22
|
||||
ExplicitWidth = 248
|
||||
inherited ToolButton13: TToolButton [6]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 393
|
||||
Top = 22
|
||||
ExplicitLeft = 393
|
||||
ExplicitTop = 22
|
||||
inherited FontSize: TEdit [7]
|
||||
Left = 0
|
||||
Top = 27
|
||||
Width = 264
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 27
|
||||
ExplicitWidth = 264
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 410
|
||||
Top = 22
|
||||
ExplicitLeft = 410
|
||||
ExplicitTop = 22
|
||||
inherited UpDown1: TUpDown [8]
|
||||
Left = 264
|
||||
Top = 27
|
||||
ExplicitLeft = 264
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 418
|
||||
Top = 22
|
||||
ExplicitLeft = 418
|
||||
ExplicitTop = 22
|
||||
Left = 281
|
||||
Top = 27
|
||||
ExplicitLeft = 281
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 484
|
||||
Top = 22
|
||||
ExplicitLeft = 484
|
||||
ExplicitTop = 22
|
||||
Left = 347
|
||||
Top = 27
|
||||
ExplicitLeft = 347
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 551
|
||||
Top = 22
|
||||
ExplicitLeft = 551
|
||||
ExplicitTop = 22
|
||||
Left = 414
|
||||
Top = 27
|
||||
ExplicitLeft = 414
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 0
|
||||
Top = 22
|
||||
Top = 27
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 22
|
||||
ExplicitTop = 27
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 0
|
||||
Top = 49
|
||||
Top = 54
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 49
|
||||
ExplicitTop = 54
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 145
|
||||
Top = 49
|
||||
Top = 54
|
||||
ExplicitLeft = 145
|
||||
ExplicitTop = 49
|
||||
ExplicitTop = 54
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 270
|
||||
Top = 49
|
||||
Top = 54
|
||||
ExplicitLeft = 270
|
||||
ExplicitTop = 49
|
||||
ExplicitTop = 54
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 99
|
||||
Width = 798
|
||||
Height = 185
|
||||
Top = 104
|
||||
Width = 809
|
||||
Height = 183
|
||||
ExplicitTop = 104
|
||||
ExplicitWidth = 798
|
||||
ExplicitHeight = 180
|
||||
ExplicitWidth = 809
|
||||
ExplicitHeight = 183
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Top = 73
|
||||
Width = 798
|
||||
Top = 78
|
||||
Width = 809
|
||||
ExplicitTop = 78
|
||||
ExplicitWidth = 798
|
||||
ExplicitWidth = 809
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 798
|
||||
ExplicitWidth = 809
|
||||
end
|
||||
end
|
||||
inherited cxGridPopupMenu: TcxGridPopupMenu
|
||||
@ -378,8 +386,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 589
|
||||
Width = 812
|
||||
Top = 592
|
||||
Width = 823
|
||||
Panels = <
|
||||
item
|
||||
Width = 200
|
||||
@ -389,8 +397,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
end
|
||||
inline frViewTotales1: TfrViewTotales [4]
|
||||
Left = 0
|
||||
Top = 394
|
||||
Width = 812
|
||||
Top = 397
|
||||
Width = 823
|
||||
Height = 195
|
||||
Align = alBottom
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -405,32 +413,32 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
ExplicitWidth = 812
|
||||
ExplicitHeight = 195
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 812
|
||||
Width = 823
|
||||
Height = 195
|
||||
LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 812
|
||||
ExplicitHeight = 195
|
||||
inherited Bevel3: TBevel
|
||||
Left = 405
|
||||
Left = 411
|
||||
Top = 30
|
||||
Height = 122
|
||||
ExplicitLeft = 405
|
||||
ExplicitLeft = 411
|
||||
ExplicitTop = 30
|
||||
ExplicitHeight = 122
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 517
|
||||
Left = 523
|
||||
Top = 60
|
||||
Width = 192
|
||||
ExplicitLeft = 517
|
||||
ExplicitLeft = 523
|
||||
ExplicitTop = 60
|
||||
ExplicitWidth = 192
|
||||
end
|
||||
inherited Bevel1: TBevel
|
||||
Left = 517
|
||||
Left = 523
|
||||
Top = 164
|
||||
Width = 368
|
||||
ExplicitLeft = 517
|
||||
ExplicitLeft = 523
|
||||
ExplicitTop = 164
|
||||
ExplicitWidth = 368
|
||||
end
|
||||
@ -453,27 +461,27 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 184
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 588
|
||||
Left = 594
|
||||
Top = 83
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 588
|
||||
ExplicitLeft = 594
|
||||
ExplicitTop = 83
|
||||
ExplicitWidth = 249
|
||||
Width = 249
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 518
|
||||
Left = 524
|
||||
Top = 137
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 518
|
||||
ExplicitLeft = 524
|
||||
ExplicitTop = 137
|
||||
ExplicitWidth = 319
|
||||
Width = 319
|
||||
@ -488,49 +496,49 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
ExplicitTop = 57
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 517
|
||||
Left = 523
|
||||
Top = 83
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 517
|
||||
ExplicitLeft = 523
|
||||
ExplicitTop = 83
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 517
|
||||
Left = 523
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 517
|
||||
ExplicitLeft = 523
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 320
|
||||
Width = 320
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 517
|
||||
Left = 523
|
||||
Top = 110
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 517
|
||||
ExplicitLeft = 523
|
||||
ExplicitTop = 110
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 588
|
||||
Left = 594
|
||||
Top = 110
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 588
|
||||
ExplicitLeft = 594
|
||||
ExplicitTop = 110
|
||||
ExplicitWidth = 249
|
||||
Width = 249
|
||||
@ -568,9 +576,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 117
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 257
|
||||
Left = 263
|
||||
Top = 111
|
||||
ExplicitLeft = 257
|
||||
ExplicitLeft = 263
|
||||
ExplicitTop = 111
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
@ -584,19 +592,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 255
|
||||
end
|
||||
inherited edtRetencion: TcxDBSpinEdit
|
||||
Left = 517
|
||||
Left = 523
|
||||
Top = 184
|
||||
DataBinding.DataField = 'RETENCION'
|
||||
Properties.AssignedValues.MinValue = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 517
|
||||
ExplicitLeft = 523
|
||||
ExplicitTop = 184
|
||||
end
|
||||
inherited edtImporteRetencion: TcxDBCurrencyEdit
|
||||
Left = 588
|
||||
Left = 594
|
||||
Top = 184
|
||||
DataBinding.DataField = 'IMPORTE_RETENCION'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -604,7 +613,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 588
|
||||
ExplicitLeft = 594
|
||||
ExplicitTop = 184
|
||||
ExplicitWidth = 152
|
||||
Width = 152
|
||||
|
||||
Loading…
Reference in New Issue
Block a user