Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se arregla para que no se puedan meter porcentajes de retenciones en negativo

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1005 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2010-06-23 07:35:35 +00:00
parent 63158c42e5
commit f2fe24b6bc
1 changed files with 128 additions and 119 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

247
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

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