From 88d5d2c5d100b787798fc90f0cc090f42a961173 Mon Sep 17 00:00:00 2001 From: roberto Date: Mon, 23 Feb 2009 19:09:20 +0000 Subject: [PATCH] Se arregla la vista de importes de las facturas para que se vean los totales git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@400 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/GUIBase/GUIBase.dproj | 62 ++++---- Source/GUIBase/GUIBase.res | Bin 384 -> 4748 bytes .../Views/uEditorFacturaCliente.dfm | 62 +++++--- .../Views/uEditorFacturaProveedor.dfm | 134 ++++++++++-------- 4 files changed, 143 insertions(+), 115 deletions(-) diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index 93ffeec0..14eaaaa9 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,37 +58,37 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm index a64c153a..79a31beb 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm @@ -80,18 +80,22 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end inherited pgPaginas: TPageControl Width = 854 - Height = 360 + Height = 368 ActivePage = pagContabilidad OnChanging = pgPaginasChanging + ExplicitTop = 109 ExplicitWidth = 854 - ExplicitHeight = 360 + ExplicitHeight = 368 inherited pagGeneral: TTabSheet + ExplicitLeft = 4 + ExplicitTop = 24 ExplicitWidth = 846 + ExplicitHeight = 340 inline frViewFacturaCliente1: TfrViewFacturaCliente Left = 0 Top = 0 Width = 846 - Height = 332 + Height = 340 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -102,12 +106,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente TabOrder = 0 ReadOnly = False ExplicitWidth = 846 - ExplicitHeight = 332 + ExplicitHeight = 340 inherited dxLayoutControl1: TdxLayoutControl Width = 846 - Height = 332 + Height = 340 ExplicitWidth = 846 - ExplicitHeight = 332 + ExplicitHeight = 340 inherited eReferencia: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' @@ -249,7 +253,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Left = 0 Top = 0 Width = 846 - Height = 332 + Height = 340 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -262,7 +266,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente TabOrder = 0 ReadOnly = False ExplicitWidth = 846 - ExplicitHeight = 332 + ExplicitHeight = 340 inherited ToolBar1: TToolBar Width = 846 Height = 24 @@ -349,10 +353,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente inherited cxGrid: TcxGrid Top = 50 Width = 846 - Height = 282 + Height = 290 ExplicitTop = 50 ExplicitWidth = 846 - ExplicitHeight = 282 + ExplicitHeight = 290 end inherited TBXDock1: TTBXDock Top = 24 @@ -417,6 +421,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end end inherited PnlComentario: TPanel + Width = 860 + TabOrder = 5 + ExplicitWidth = 860 + inherited lbComentario: TLabel + Width = 850 + Height = 25 + end end inline frViewTotales1: TfrViewTotales [5] Left = 0 @@ -449,10 +460,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end inherited Bevel4: TBevel Left = 569 - Top = 72 + Top = 57 Width = 186 ExplicitLeft = 569 - ExplicitTop = 72 + ExplicitTop = 57 ExplicitWidth = 186 end inherited ImporteDto: TcxDBCurrencyEdit @@ -468,27 +479,27 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end inherited ImporteIVA: TcxDBCurrencyEdit Left = 640 - Top = 107 + Top = 77 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 640 - ExplicitTop = 107 + ExplicitTop = 77 ExplicitWidth = 155 Width = 155 end inherited ImporteTotal: TcxDBCurrencyEdit Left = 570 - Top = 161 + Top = 131 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 570 - ExplicitTop = 161 + ExplicitTop = 131 ExplicitWidth = 225 Width = 225 end @@ -504,14 +515,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end inherited edtIVA: TcxDBSpinEdit Left = 569 - Top = 107 + Top = 77 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 569 - ExplicitTop = 107 + ExplicitTop = 77 end inherited ImporteBase: TcxDBCurrencyEdit Left = 569 @@ -528,7 +539,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end inherited edtRE: TcxDBSpinEdit Left = 569 - Top = 134 + Top = 104 Properties.AssignedValues.MinValue = True Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True @@ -536,18 +547,18 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 569 - ExplicitTop = 134 + ExplicitTop = 104 end inherited ImporteRE: TcxDBCurrencyEdit Left = 640 - Top = 134 + Top = 104 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 640 - ExplicitTop = 134 + ExplicitTop = 104 ExplicitWidth = 155 Width = 155 end @@ -617,6 +628,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end inherited dxLayoutControl1Group5: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup + inherited dxLayoutControl1Group11: TdxLayoutGroup + inherited dxLayoutControl1Item14: TdxLayoutItem + Offsets.Bottom = 0 + Offsets.Top = 0 + Visible = False + end + end inherited dxLayoutControl1Group8: TdxLayoutGroup inherited dxLayoutControl1Item7: TdxLayoutItem Visible = True diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm index d7639e40..2f1bc935 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm @@ -68,24 +68,33 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor end end end + inherited StatusBar: TJvStatusBar + Top = 587 + Width = 746 + Panels = < + item + Width = 200 + end> + ExplicitTop = 587 + ExplicitWidth = 746 + end inherited pgPaginas: TPageControl Width = 740 - Height = 342 + Height = 312 OnChanging = pgPaginasChanging - ExplicitLeft = 3 - ExplicitTop = 79 + ExplicitTop = 109 ExplicitWidth = 740 - ExplicitHeight = 342 + ExplicitHeight = 312 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 ExplicitWidth = 732 - ExplicitHeight = 314 + ExplicitHeight = 284 inline frViewFacturaProveedor1: TfrViewFacturaProveedor Left = 0 Top = 0 Width = 732 - Height = 314 + Height = 284 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -96,15 +105,15 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor TabOrder = 0 ReadOnly = False ExplicitWidth = 732 - ExplicitHeight = 314 + ExplicitHeight = 284 inherited dxLayoutControl1: TdxLayoutControl Width = 732 - Height = 314 + Height = 284 ExplicitWidth = 732 - ExplicitHeight = 314 + ExplicitHeight = 284 DesignSize = ( 732 - 314) + 284) inherited eReferencia: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' @@ -264,7 +273,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor Left = 0 Top = 0 Width = 732 - Height = 314 + Height = 284 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -277,7 +286,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor TabOrder = 0 ReadOnly = False ExplicitWidth = 732 - ExplicitHeight = 314 + ExplicitHeight = 284 inherited ToolBar1: TToolBar Width = 732 ExplicitWidth = 732 @@ -302,47 +311,47 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor ExplicitWidth = 57 end inherited UpDown1: TUpDown - Left = 202 - ExplicitLeft = 202 + Left = 218 + ExplicitLeft = 218 end inherited ToolButton13: TToolButton - Left = 219 - ExplicitLeft = 219 + Left = 235 + ExplicitLeft = 235 end inherited ToolButton6: TToolButton - Left = 227 - ExplicitLeft = 227 + Left = 243 + ExplicitLeft = 243 end inherited ToolButton7: TToolButton - Left = 261 - ExplicitLeft = 261 + Left = 277 + ExplicitLeft = 277 end inherited ToolButton8: TToolButton - Left = 295 - ExplicitLeft = 295 + Left = 311 + ExplicitLeft = 311 end inherited ToolButton12: TToolButton - Left = 329 - ExplicitLeft = 329 + Left = 345 + ExplicitLeft = 345 end inherited ToolButton9: TToolButton - Left = 337 - ExplicitLeft = 337 + Left = 353 + ExplicitLeft = 353 end inherited ToolButton10: TToolButton - Left = 371 - ExplicitLeft = 371 + Left = 387 + ExplicitLeft = 387 end inherited ToolButton11: TToolButton - Left = 405 - ExplicitLeft = 405 + Left = 421 + ExplicitLeft = 421 end end inherited cxGrid: TcxGrid Width = 732 - Height = 242 + Height = 212 ExplicitWidth = 732 - ExplicitHeight = 242 + ExplicitHeight = 212 end inherited TBXDock1: TTBXDock Width = 732 @@ -403,16 +412,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor end end end - inherited StatusBar: TJvStatusBar - Top = 587 - Width = 746 - Panels = < - item - Width = 200 - end> - ExplicitTop = 587 - ExplicitWidth = 746 - end inline frViewTotales1: TfrViewTotales [4] Left = 0 Top = 424 @@ -425,7 +424,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 4 + TabOrder = 5 ReadOnly = False ExplicitTop = 424 ExplicitWidth = 746 @@ -443,10 +442,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor end inherited Bevel4: TBevel Left = 510 - Top = 72 + Top = 57 Width = 186 ExplicitLeft = 510 - ExplicitTop = 72 + ExplicitTop = 57 ExplicitWidth = 186 end inherited ImporteDto: TcxDBCurrencyEdit @@ -462,27 +461,27 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor end inherited ImporteIVA: TcxDBCurrencyEdit Left = 581 - Top = 107 + Top = 77 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 581 - ExplicitTop = 107 + ExplicitTop = 77 ExplicitWidth = 143 Width = 143 end inherited ImporteTotal: TcxDBCurrencyEdit Left = 511 - Top = 161 + Top = 131 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 511 - ExplicitTop = 161 + ExplicitTop = 131 ExplicitWidth = 213 Width = 213 end @@ -498,14 +497,14 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor end inherited edtIVA: TcxDBSpinEdit Left = 510 - Top = 107 + Top = 77 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 510 - ExplicitTop = 107 + ExplicitTop = 77 end inherited ImporteBase: TcxDBCurrencyEdit Left = 510 @@ -522,7 +521,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor end inherited edtRE: TcxDBSpinEdit Left = 510 - Top = 134 + Top = 104 Properties.AssignedValues.MinValue = True Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True @@ -530,18 +529,18 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 510 - ExplicitTop = 134 + ExplicitTop = 104 end inherited ImporteRE: TcxDBCurrencyEdit Left = 581 - Top = 134 + Top = 104 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 581 - ExplicitTop = 134 + ExplicitTop = 104 ExplicitWidth = 143 Width = 143 end @@ -618,6 +617,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor end inherited dxLayoutControl1Group5: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup + inherited dxLayoutControl1Group11: TdxLayoutGroup + inherited dxLayoutControl1Item14: TdxLayoutItem + Offsets.Bottom = 0 + Offsets.Top = 0 + Visible = False + end + end inherited dxLayoutControl1Group8: TdxLayoutGroup inherited dxLayoutControl1Item7: TdxLayoutItem Visible = True @@ -629,18 +635,22 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor end end end - inherited EditorActionList: TActionList [5] + inherited PnlComentario: TPanel [5] + Width = 746 + ExplicitWidth = 746 + inherited lbComentario: TLabel + Width = 736 + Height = 25 + end + end + inherited EditorActionList: TActionList [9] Left = 8 Top = 144 end - inherited SmallImages: TPngImageList [6] - end - inherited LargeImages: TPngImageList [7] - end - inherited JvFormStorage: TJvFormStorage [8] - end inherited dsDataTable: TDADataSource [10] Left = 40 Top = 144 end + inherited JvAppRegistryStorage: TJvAppRegistryStorage [11] + end end