From 50308d0aba1cdd7de1d8677a35d15fae3cfc55fb Mon Sep 17 00:00:00 2001 From: david Date: Tue, 4 Mar 2008 09:10:41 +0000 Subject: [PATCH] =?UTF-8?q?Art=C3=ADculos:=20repaso=20general?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@327 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Modulos/Articulos/Data/Articulos_data.res | Bin 5028 -> 384 bytes .../Articulos/Model/Articulos_model.res | Bin 4748 -> 384 bytes .../Model/schArticulosClient_Intf.pas | 6 ++--- .../Articulos/Views/uEditorArticulos.dfm | 22 +++++++++++++----- .../Articulos/Views/uViewArticulos.dfm | 18 +++++++++++++- 5 files changed, 36 insertions(+), 10 deletions(-) diff --git a/Source/Modulos/Articulos/Data/Articulos_data.res b/Source/Modulos/Articulos/Data/Articulos_data.res index 02236de8db669bbe3315cfec9671db4bcf8913dc..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 60 zcmZ3Y-oQLTfyse!vYwzEi1HKk5Mg0pWIzQA7$&b0RAQ=On0!u9Y_f@v!DJob3IIQa B3o!ry literal 5028 zcmbW5&x;&Y5XWni1tkRCgZEiPMD`#nRcWtPt_oH5Yzu$VV-wb1Bwk_-XFg2H+pSN=U zyka(dZfonp#SD5!jcwWcvJG#kp*8>anb&hWI5@DjY24FJ`|-&Wn^$uqCj8E%Jsr>a z(f=18FcLdGW67gkv_9X9SKG|36^E%gpYEy6iCd_cw7Wj~iaqH`jCsjRp5)Tjjm3D> z0$yNKhb0agb9}Iy*6di=$H_r$wE8prvehh4CJk(k3R41_1_tIpwah8HE0zJ2j_A8qJC;h zPS-&^`8?-X2glUhT>Qz`_tI1oCl0I;m#I0|PPJD&x?6D9=#RXC$36y!sH@L4V9JUQ zO~GN_lzo;~$4gKBX=lH9n~Y`sLpL>Q25j^&9{X3YYiX$(S>$ceRjZ9(sJ1i3RjRX$ zJu%I-9czh^DgT^)7wf?X1I?kkwO%pV4}9frWWqiC{m|pl-!`rHskb%S2V!cllLNls zE@6uUea$64TFH%f9$nE+PL0j$(Csl@jKP6E`|sEbVb9)6dbzX;O}gsJTj}n*BLwN2Tb~Kb^L{5h^^(TFzVy_mCyAq;GlLVY)tF3_WiN; zt9xq60Zw2BHhBxa;yCwUat@+RjSJ72e5G}Da6ls%zW<5a6%IO|%y~`w-r(SEy&sHI zL+1cCHjDjtOmT-3ZMb?3gym;Z+``j8sjb>;9XPzh1Ge(To)-Pdp&Ip5b5maQQy<>x z;4$(~Uhbs_4A-Xo;KtoTef7S9KQ-lxGhB4nh09EwmCN_M=+8a!eWK2a1qWTe_u|K$ z>+h*>83&sj-d=;xdarjSeloa(>HLWs?{nM%q2JF2IMkyqd$b@%^>5HxIH;ZY;n(Z; z`YV@X*6eMVNk4OW=Xi}Y7w2AH*r}hhAN!-V;LE^FW1cqe-%{<%KE%1>{(@uVA|LvF z|J6pX*Qr*1#WC+WyTI~!tifW$(x@{fY0n3w~h7eA|@stGrQv zano30;rWe#Pb24Q4SWw4<$gm$!H@c@ue~+n9nIRryEg0(+$zOst?!S#pU1kqlj4xy z?W|eF_rC5r|L#bP*?9l?`BR^oVDRJqA{V;Q?%brE8m88~7veY6SckRvIty{HpUhO;SN#DLEo$afXFl8=h$ZPu>i@PdBM=dt#yd=JphyT;Fi zIQqF4Zk}DR{Jtr;c?QAeNiOT~8RIN^y{oa_S@$Jhp*ytayUTk9_Q0WuHno^O%=2Eo zjKgr|XJEi(>X)&p@p#YD9yx%u`Y?vAdl!-udqj-iGgab^KEC$~j?P2=j!d8D-E*uG zP@i!u@lN!|@m<2%KqGbIPNWY$KVy5_|JC4MkPW+e z&io&azTZ-w4PUlv<9{JH&t1~k4ZCi&K0mV0)w=2kwc}k;o9EZfKmQ?L7$cFZqN!(7 z79-yEk6(P?x;?UocE|SZwq23GYqykn-@dl{ihArZyHd3)g}Zi19ANaOvTbPezTLA2 zwx{?Xq zvHQZlyTagY$NyOKw|y4255yC-x9uCPj3;=GabGB6&%V;Sd-4zMTQSKeVy~4PR1MtZ zO>e9~)aWzC-dDEorTx(gLsKo$y&SWuepUNrCv(HOCGxmqW^eg!hl+i1zpKb;y)Rt+ GWAk6yB6aNm diff --git a/Source/Modulos/Articulos/Model/Articulos_model.res b/Source/Modulos/Articulos/Model/Articulos_model.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc 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 diff --git a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas index 0311cafa..801176ec 100644 --- a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas +++ b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas @@ -3,7 +3,7 @@ unit schArticulosClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids @@ -254,7 +254,7 @@ type end; { TArticulosDataTableRules } - TArticulosDataTableRules = class(TDADataTableRules, IArticulos) + TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos) private f_IMAGEN: IROStream; procedure IMAGEN_OnChange(Sender: TObject); @@ -541,7 +541,7 @@ type end; { TArticulosParaClienteDataTableRules } - TArticulosParaClienteDataTableRules = class(TDADataTableRules, IArticulosParaCliente) + TArticulosParaClienteDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCliente) private f_IMAGEN: IROStream; procedure IMAGEN_OnChange(Sender: TObject); diff --git a/Source/Modulos/Articulos/Views/uEditorArticulos.dfm b/Source/Modulos/Articulos/Views/uEditorArticulos.dfm index 4d3a0ba5..c9050f3f 100644 --- a/Source/Modulos/Articulos/Views/uEditorArticulos.dfm +++ b/Source/Modulos/Articulos/Views/uEditorArticulos.dfm @@ -2,12 +2,15 @@ inherited fEditorArticulos: TfEditorArticulos Left = 489 Top = 325 Caption = 'Lista de art'#237'culos' - ExplicitHeight = 471 + ClientWidth = 657 + ExplicitWidth = 665 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader + Width = 657 Caption = 'Lista de articulos' inherited Image1: TImage + Left = 630 Picture.Data = { 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 00001C0806000000720DDF940000000970485973000017120000171201679FD2 @@ -26,8 +29,9 @@ inherited fEditorArticulos: TfEditorArticulos end end inherited TBXDock: TTBXDock + Width = 657 inherited tbxMain: TTBXToolbar - ExplicitWidth = 543 + ExplicitWidth = 632 end inherited tbxFiltro: TTBXToolbar ExplicitWidth = 269 @@ -38,11 +42,17 @@ inherited fEditorArticulos: TfEditorArticulos Visible = False end end - inherited TBXTMain2: TTBXToolbar - Left = 275 - DockPos = 275 - ExplicitLeft = 275 + inherited tbxMenu: TTBXToolbar + ExplicitWidth = 657 end + inherited TBXTMain2: TTBXToolbar + Left = 269 + DockPos = 267 + ExplicitLeft = 269 + end + end + inherited StatusBar: TJvStatusBar + Width = 657 end inherited EditorActionList: TActionList inherited actNuevo: TAction diff --git a/Source/Modulos/Articulos/Views/uViewArticulos.dfm b/Source/Modulos/Articulos/Views/uViewArticulos.dfm index 549a5c3d..06408c47 100644 --- a/Source/Modulos/Articulos/Views/uViewArticulos.dfm +++ b/Source/Modulos/Articulos/Views/uViewArticulos.dfm @@ -3,6 +3,7 @@ inherited frViewArticulos: TfrViewArticulos ExplicitWidth = 539 inherited cxGrid: TcxGrid Width = 539 + ExplicitWidth = 539 inherited cxGridView: TcxGridDBTableView OnMouseMove = cxGridViewMouseMove DataController.KeyFieldNames = 'ID' @@ -66,9 +67,11 @@ inherited frViewArticulos: TfrViewArticulos end> Properties.PostPopupValueOnTab = True Properties.ShowDescriptions = False + Visible = False BestFitMaxWidth = 22 MinWidth = 22 Options.HorzSizing = False + VisibleForCustomization = False Width = 22 end object cxGridViewREFERENCIA: TcxGridDBColumn @@ -80,16 +83,17 @@ inherited frViewArticulos: TfrViewArticulos object cxGridViewFABRICANTE: TcxGridDBColumn Caption = 'Fabricante' DataBinding.FieldName = 'FABRICANTE' + BestFitMaxWidth = 80 end object cxGridViewDESCRIPCION: TcxGridDBColumn Caption = 'Descripci'#243'n' DataBinding.FieldName = 'DESCRIPCION' - BestFitMaxWidth = 120 Width = 120 end object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn Caption = 'Unid. medida' DataBinding.FieldName = 'UNIDAD_MEDIDA' + BestFitMaxWidth = 45 Width = 60 end object cxGridViewFAMILIA: TcxGridDBColumn @@ -115,6 +119,7 @@ inherited frViewArticulos: TfrViewArticulos DataBinding.FieldName = 'PRECIO_COSTE' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify + BestFitMaxWidth = 60 FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify end @@ -124,6 +129,7 @@ inherited frViewArticulos: TfrViewArticulos PropertiesClassName = 'TcxSpinEditProperties' Properties.Alignment.Horz = taRightJustify Properties.DisplayFormat = ',0.00 %;-,0.00 %' + BestFitMaxWidth = 60 FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify end @@ -132,6 +138,7 @@ inherited frViewArticulos: TfrViewArticulos DataBinding.FieldName = 'PRECIO_NETO' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify + BestFitMaxWidth = 60 FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify end @@ -140,6 +147,7 @@ inherited frViewArticulos: TfrViewArticulos DataBinding.FieldName = 'PRECIO_PORTE' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify + BestFitMaxWidth = 60 FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify end @@ -147,9 +155,12 @@ inherited frViewArticulos: TfrViewArticulos end inherited frViewFiltroBase1: TfrViewFiltroBase Width = 539 + ExplicitWidth = 539 inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 539 inherited dxLayoutControl1: TdxLayoutControl Width = 539 + ExplicitWidth = 539 inherited txtFiltroTodo: TcxTextEdit ExplicitWidth = 273 Width = 273 @@ -167,18 +178,23 @@ inherited frViewArticulos: TfrViewArticulos end inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 539 + ExplicitWidth = 539 inherited tbxBotones: TTBXToolbar Width = 529 + ExplicitWidth = 529 end end end end inherited pnlAgrupaciones: TTBXDockablePanel Visible = True + ExplicitWidth = 539 inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 539 + ExplicitWidth = 539 inherited TBXToolbar1: TTBXToolbar Width = 529 + ExplicitWidth = 529 object TBXSeparatorItem1: TTBXSeparatorItem end object TBXItem3: TTBXItem