From f2fe24b6bcd829a88c625f2fa80405d20630bbab Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 23 Jun 2010 07:35:35 +0000 Subject: [PATCH] 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 --- .../Views/uEditorFacturaCliente.dfm | 247 +++++++++--------- 1 file changed, 128 insertions(+), 119 deletions(-) diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm index bc31a2ea..4894deaa 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm @@ -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