From 0f24be348b8ece24f3c54754b5dd42f7ce120136 Mon Sep 17 00:00:00 2001 From: david Date: Thu, 3 Jul 2008 11:42:28 +0000 Subject: [PATCH] =?UTF-8?q?Puesta=20en=20marcha=20de=20la=20parte=20de=20c?= =?UTF-8?q?onfiguraci=C3=B3n=20del=20cliente.?= 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.Acana_FactuGES2/trunk@261 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/ApplicationBase/ApplicationBase.dpk | Bin 5821 -> 6363 bytes Source/ApplicationBase/ApplicationBase.dproj | 131 +++++++++-- .../Views/uIViewConfiguracionBase.dcu | Bin 0 -> 738 bytes .../Views/uIViewConfiguracionBase.pas | 15 ++ .../Controller/uConfiguracionController.dcu | Bin 0 -> 9851 bytes .../Controller/uConfiguracionController.pas | 180 +++++++++++++++ .../Views/uEditorConfiguracion.dcu | Bin 0 -> 8511 bytes .../Views/uEditorConfiguracion.dfm | 92 ++++++++ .../Views/uEditorConfiguracion.pas | 112 ++++++++++ .../Views/uViewConfiguracionBase.dcu | Bin 0 -> 4840 bytes .../Views/uViewConfiguracionBase.dfm | 69 ++++++ .../Views/uViewConfiguracionBase.pas | 28 +++ .../Views/uViewConfiguracionGeneral.dcu | Bin 0 -> 7759 bytes .../Views/uViewConfiguracionGeneral.dfm | 211 ++++++++++++++++++ .../Views/uViewConfiguracionGeneral.pas | 77 +++++++ .../Controller/uEjerciciosController.pas | 2 +- .../Model/schEjerciciosClient_Intf.pas | 81 ++++++- .../Model/schEjerciciosServer_Intf.pas | 83 ++++++- .../Empresas/Model/schEmpresasClient_Intf.pas | 12 +- .../Empresas/Model/schEmpresasServer_Intf.pas | 12 +- .../Controller/uUsuariosController.pas | 38 +++- Source/ApplicationBase/uFactuGES_App.pas | 35 ++- Source/Base/Base.dpk | Bin 2770 -> 3529 bytes Source/Base/Base.dproj | 173 +++++++------- .../uViewConfiguracionRegistryUtils.pas | 51 +++++ Source/Base/uDMBase.dfm | 10 +- Source/Base/uDMBase.pas | 9 +- Source/Cliente/FactuGES.dproj | 48 ++++ Source/Cliente/uPantallaPrincipal.dfm | 12 +- Source/Cliente/uPantallaPrincipal.pas | 8 + Source/FactuGES_Group.groupproj | 16 +- Source/GUIBase/GUIBase.dproj | 34 +-- Source/Servidor/FactuGES_Server.RES | Bin 23352 -> 23344 bytes Source/Servidor/FactuGES_Server.dpr | 10 +- Source/Servidor/FactuGES_Server.rc | 2 +- 35 files changed, 1384 insertions(+), 167 deletions(-) create mode 100644 Source/ApplicationBase/Configuracion/Controller/Views/uIViewConfiguracionBase.dcu create mode 100644 Source/ApplicationBase/Configuracion/Controller/Views/uIViewConfiguracionBase.pas create mode 100644 Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.dcu create mode 100644 Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.pas create mode 100644 Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dcu create mode 100644 Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dfm create mode 100644 Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.pas create mode 100644 Source/ApplicationBase/Configuracion/Views/uViewConfiguracionBase.dcu create mode 100644 Source/ApplicationBase/Configuracion/Views/uViewConfiguracionBase.dfm create mode 100644 Source/ApplicationBase/Configuracion/Views/uViewConfiguracionBase.pas create mode 100644 Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dcu create mode 100644 Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm create mode 100644 Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.pas create mode 100644 Source/Base/Utiles/ClassRegistry/uViewConfiguracionRegistryUtils.pas diff --git a/Source/ApplicationBase/ApplicationBase.dpk b/Source/ApplicationBase/ApplicationBase.dpk index d93f8ee56a6b7b2128b0bfb910e75d46b2ef6955..e90d3289a8b1efa4f45ff92c5fba3460f7163dd2 100644 GIT binary patch delta 539 zcmdn1d)sisCMIbeUM>ZNlnTGZGN;5M7ehlZzbrW?s~~;zCZ@l_lMC3`oSpOY(lXOa zixQJF^Yeh5lA`>aoYW$P%sd5k6uB6LWK1cF%;ZEi(WJ1<)N&M2r^Mn^ET(|e6~~lf zRjyZ%Sgfv4omPZZcJf03k$TsZ%#!>f6pL_Mf<-aR3KSC{>T1E^gXuE&)V$Q9#2m0S z^(gvcaCru*1!fthf1nDi6hhpJ5_40bR(oRgH?sfiA@PJ97f?4~*9&%mH7^%0S8860 H9xoRF`fAA4 delta 27 jcmca@xL0?>CZ^42nf?m%S@Ux7a;4^_=<#wfFfafBlFJ9+ diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj index ded35f7d..8dff930d 100644 --- a/Source/ApplicationBase/ApplicationBase.dproj +++ b/Source/ApplicationBase/ApplicationBase.dproj @@ -53,13 +53,89 @@ - VCL for the Web Design Package for CodeGear RAD Studio - CodeGear WebSnap Components - CodeGear SOAP Components - Microsoft Office XP Sample Automation Server Wrapper Components + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + RemObjects Data Abstract - SQLite Driver Microsoft Office 2000 Sample Automation Server Wrapper Components - CodeGear C++Builder Office 2000 Servers Package - CodeGear C++Builder Office XP Servers Package + Microsoft Office XP Sample Automation Server Wrapper Components ApplicationBase.dpkFalse @@ -67,6 +143,35 @@ MainSource + + + + + + + + + + + + + + + + + + + +
fConfiguracionEditor
+ + +
frViewConfiguracionBase
+ TCustomView + + +
frViewConfiguracionGeneral
+ TFrame + @@ -139,21 +244,7 @@
frViewTiendas
TCustomView - - - - - - - - - - - - - - diff --git a/Source/ApplicationBase/Configuracion/Controller/Views/uIViewConfiguracionBase.dcu b/Source/ApplicationBase/Configuracion/Controller/Views/uIViewConfiguracionBase.dcu new file mode 100644 index 0000000000000000000000000000000000000000..b8bf8b47b17590f6ead6ee8c71f3054573a85e12 GIT binary patch literal 738 zcmZ`#&ubG=5S}-z+jV)_EIn-FDlwsm#nzydU=R=0N=+0`vBgS6pKo{5mF*_(ZjkDs z0WTI&>km8y^{)^Q9ty#$9z4{mKQ5u3i>Iz{Ez}=$=Uv`6GvD{k%qYO{R|MGWeyi-? zct-(8I<-01zCGRY9ker4 zORg`4k-Z4usI{6O*@45jeg5*NEk_Qc!1bGN#_zsz)YE?G)^~7Io2oM3^6VMcXP&n- zxZZxxtsx;*^W6x5m(zys!nL=LJ|Zvg_)5I|hp6!*#_rqRhl$>3Mmd3{<1?Vb82xSS z-eHkAM;DR_pix|r$C02B3PF-x}ND%p~DuEPTBuc`uikL0(j{46K{YF7AkvvC|Rzn)4wt0Jp> zrZr?91=V$K4z^H;ysDRsL`-)ih~nXu6He zn1raAg`kPJj>ln$35>Iw%(z6e6OVc(8I5KVcZ^@r#ATA4URP%{VO^3XhD}uVzE@RE zH*~xD&o;iQ_wN1O`|i8<)_t$)I1?emPcsmj==zV`hrawhhj5~Qv8O?DIsIN?A0_#u2}H~(dMExudRLlI;PJRczTvxv zUlyIQMZCLNY(CXB?2OO1)_^`<@Y%dxkN3v<#`l~_mCI`CM8RjS;3aV}?{?cZ3Sy%V z*7v6F5^rczb36b z;hZS*d0!cY$I+qH>*ZTO=Jw04BsmTFRta1R0fDvq1+ui461F@6^a4@xc*R07NI$Bn z_^mTeo`aG-Ew|qbyy%=HYjrrvMQN9Dy-jdTfQZ=}Tt0-LPi+#LA$*f6!B~h_iL2Q+ zwByO;PR<-c`NU!G6&x&xR{30Rz&mxsN!A8OnafSrH*q=dt1T4WuKJyC{mVST!TAfV zg}jfi#milngB3n+bc8eOXPj=-t3OJl_AV(7g}#j1qd@ zcyE()S_r{xbvP>gb)wI6_H4h=nHb6f8$_QdbI%cOawvC&U-Y&F6ZKySe`+Xy9cTtu z{fRJ0KBzXC*Oh}_u=O@2i zBuQedRB1&nx2Vv&zd7~1lmMK?{$`)2K1}BJmW^*Yrse&x)F zG6_hPdpy1}k3%fu>qRq6A&9X>9&f$;$jVD5WBVF&Cq#Lapsd07%;GtMX!P40E^uR5 zG{K?MDy1-zjC#fK(ivxhIU;X!ZoSEw7LjGPHt-G?gdYm$`K|jT=gi2k#k|+adsp&q zs9?=!2{1h}aEYJyI)cb^fE2`}@u{~&Y!JP?8r0i4JlWMB(I#Xa#eCGBJ?P- zs0FlDutX`0KNBqXDl|L6!{KFOk6;;_Wxs=5E3z+HXD_p_ zE3%i^bV!RcM&PFdKM2%;=8g4kG&?ieYRz(e4f9qjI{h=Q6J_mLkdvmV5Z#i5a)yO& zW@rLJ`kcwL=S5eh#>{JNbh`xl`p}9#B-$=%!qk}s6QXfrc5DQNpea?=6y4|KG$8tXaDKKnE2XX#ohMo=w{amp zPvfi#juf97q#aC)vlhy)BCsR+fyCXM#h7&{7vgQwmW$2sk|H5)pzCpL!C=fB)tI?a zmlbLZt*EW&95JP4o8duBnSl&?YKlQ?Bu}CI8@0(0=vskGiA`43ru%b{Qo&o%S=m9l z2eGOK>8?|&$OAEIj4sgS!Xh!IS~cd8`*M)HQM95nvMt&NvqdZ0qQwUCj8YHHRDza) zwEC{+@YBSmCe^0s4yxeY8~E@8S}Xb!F>2gX+kPL~BIV;HqHSqgSdx#=N3E46BIMjn zu)I^9D|)&?LI-nSNw|#Zv(EM(6eGIBJccYb=r;vNZ5;K-{TlSlS-e)65!p+c?^3Q zVI8|bn|0w2N0zjH_mytB^Nr0InWw>HPtV@rl^<)-!fxggwIXw}IT285;T;2HQC>Im zZwgSTv@&czGNvD$w)5*p<8BlmdHn<3AMCHC!c4}XVCbfRhf2s;~hSbTijfj3Km|DS^O7RM^ejP$5%8A!=UW1XR?`{HKbU5{i+t6epsk z-ON`iB20@~!*Mby?qAbhhO?}4o|2#OFO01W|Vii(Mt4FDPj&@>ekA&LNL!rQu;Boz}D0L60v zswSXR6*NAM0I?ECnhFWiqxcR$a|mdb3W^X(z#PYIu*0gDNTCGKK?0hmg2u-ZAUy<< ztwO@|j2hHQKo$k`H(L3d!!fLh!`U(2%;O3pYl3o0Ifn11;_TRN=7$PLC?pB+=wv7m zt&?H*dG^(OQY)+oBRDuBLxTImR1GX> za-{b;l6lP7T`B6WhSA6fRTcI1kLnw{_e9k<3G|)ba%|uR5&M6*FYiDd=NO{TzUAcAiuo7XtF8lo{;{gsIk0}mNS34B^d>`=jjoeRyKRUtxge9WI?()6 z9aTdei6a&1^G}822MPYaKvY)NVH<*Z%Z*E)Kenkbzuk8AecLcmyuI{#N7XRlf)Y;A z+EF^#QFWbAvf6C}9RxDaVH>2DjM#=pO0W9gSI2NC3%U)umik$hI{(;@tE(OD`r2D$ z4n_0?4cnJsnZle3%h_%lqI$zg>bYSZRAG_tGY+PH_ z_lg@QfV8~w`4_>KUr4s*O#z>)~CNmzR6Uh=`b5wr(ojX9y}70FTo0(?9AmJ2fxu&;gNh#@m_H?)k$PmE0{5#btoUs zfJptQO&@?^YPuXdFnh}}Jte$Q^?mCV^32c?S>!X2U-GD0eRzi2O22Kd8iuI9Q2H&+ zWb%l~3T?Muu-yt~%%BYW%m&#q^yj?vUxuSUTQm5}&mfntt$CLv&nu)M49%9c}%Y)iNFiO&rfbE3WqBknR{F6S^>2iK37 z{yb)>gZos6hxND}>+z5tH^HqMnibj{Xvd))gw_MC6IzKLmlfgVMqF;hl{)5A_QC&U zF`p)KpCjgTkj-U2*E1_wCV^#Ev&>qSNo1L1mRZj-DJ*;~W0_SfV`SkA+(IsZm_Qy8 zDlXuLvbf<4W;mHysKcfNW;h|{ow>{lI=mJ7H8Jnx;cX`TVkX{^%)rVPad^h`uueKq z61X^Q#u+J~+k|Tj%my9aXvRO$!8keWro)?zxQo#B_!;?jNDm_!IXeNrs*8Ci9ta$> zJDp0;1@$JJc^-4AI3Am4;6*9ek%F`I+#H;X_oZ-FoR9x;23HNE*HXA982!e`wc{+V z6Da%jTn|wCjNCyO9nf>faR$!O!|T5pznKg-Jtp=Wx$`)lIgb;WE6H#Jik`z7<_aup z$JV-fobrtpCQmVF@j^Tur{Edzm!ipn-dvn=OB=5PJt^9`+JzdEwh*tyMm$?%!0GhQ zh?BJrY}P&(140Qng-r()v)Oo@h;vzk(w~m!YB@3ms|CsomIZDW%PIY0JVU#;6XQ!5 z?PMVx6E$Xp(vx!#D$Gbp!suiDKTN^bVlcd7VE7DyjPQR;?!+Ws#uz^7YA{OfM;c@* zSW2j-exRoJ12v;xi_z?U7Ng8~6n`hioLjke=R8QxejR*GC`8*H43N?&mPd z(i2Kf-m03rP4F>51N~L~@fhXw>oHo;Z@?(G--yw|{sfHj0$@c!F`2I*0G|bl+Ae-P z6pK^gTWKlgv6n~}U2KQ<4oyjMH4bPrsJLzjMr9>i16mC#sT+ntdD)8rR)fmwnh3D6 z+=c@>4JxmzCc~AL^KgLEpvpQc8LnD64F}>iXl30TGF-jtZa}X=tLl!E(c0BVaKNBJ ztLqMu;rg{bIAGMEwRJsYShKzz2NE=BeO)IRN;OS5kf=d5b;SlSv-Uz9q1H-g0?8Oj z#fdYagw(l5W^|htI^*~!9Tn}w-A&kRENqi2s zCByaTA|iS0k3&;P5+Pq1&@S#J{6IdrUOhyw4Mf!!yGZ|wG>V)@uh|$Db~hHnE8l-e z?hKB_y`@AV7TYMyPRLUr4N6I88g!tDYETk%dT#+P6|bQ1q3Hc{==lTJ2JdcOvo z1^X$kg;1@a?P=1nLFakWu|uc#JHVCV?G)!FLE-Vw>EIUx(u7;^%W5Zp**h^UP?2AU z3f;ScSlohtO~J1d%=5tdXVPhhPVX?VJMmkTeS}bZK<;g|(>nz0*YSIleTqso10k+8k_xw*lBXOfZC9#AJd|6A)Ph d4;aA|C5ST7(b+^C4k@6)dl1!D1c3M5`~XoP>qG00(>wGqbCK)vlPC z6%w`;VdEUKA_7iKActdc*~uMFsNi6mxEzky_;RshVspfCau*w7oWg;!l@xcSx&n0F z^RYWCt#VcO_ifeAO!u!}_j}#_`t{6hgyepyh>$7j#}&6;dCf;yUZPf3jks1FkA>Ap zLK7u59@|f{R%iv8kboTSOsxC3f_0Uqjo8qxD%rB^qUPC~+y zTkqezMUjk$|8(qXI7>G)H5PgKj)$HJdqXi@ZAsD*zbzQ3QS~m-kUC!Sp4kKt z+v{VxA;u)-6$J7epiWa12RVrd59zuZi77IHUu0697}XX17vC9)OsQ-Dd)1<`v-)%0 z^dCgLxRy{%Uadwq9DQLWjB6J)Rg4+txXIN~QHP~~Q*UXt9M_=g#R=kB8HV}Sa@xZq;wgO9iO8_ zZfldG>7WdiTfV(gRJSeS3%F+S8@c{jnC~i0?CMY@Yn_lbh88#1nb!*5uxVRIYdmMg zsgEKv-AJ_<3nh$ri@HO}LvY3zuvyUont{;VG$;Zl5Cy&c7Fb&IW13=6tnQzL3DhyrO#MghyewLKUa{T>vVGe$>^(ydAg z3MxHD1xlo?rbRKDL=8q)iPF}H7Ei?FwJ4Mpl$MV8cH7i?1n+R$u#(M&t+|R(OD9J0 zD>xv{H}$b@F{)yQegm=TZe`#Xh@tTm0%@U#c~;@%^aBXxy2n@(_y>z`&m#cN2}u~6 zGr#$KJ=k~gYcw%Z--&ziEySj~vD%opIjYESBT(c9>Y{PcfWn0lYk}=!?!ACa`F)x>T6h2sn-w_!6JVG9ukpQm&J?4-u+2jc-<#ifM4 zdz@hhQDl2>4xmWdlCeBPMG&Kd2&HA(T4)`rJJhKBw@UBV5nb5YBEg9q1)sXlV|fd# z!#Zv-&tICi;?2mS%%XTYn=0(O^$N;Ppf)L6AH$yUB#1&=RHKT~c*N`wZjpOhwyH6` z8jf0QlWe*Q4#%xXdo8>wnlRz17Fmr|NQt6=&*sF#VZ{`gW-(S_r*yxhh%wVnj>T0Q zML0@Dt=BcQL5)I#g$!G$LEV;6<(93c&kTQTI9GPtDq+|EsPt|q{d7)<&V|XqDH$F&9%xDBioXN zBB99;bd<4&>voo!1qd2GglwO{28JF1YBch4Ee-2BMIBaD;RI)<#n$DX)na#*sFmA# za0qWPHbE&Mv`Im*6gZb6JUtK*-432(EfBK zKHhXHJT1wqhj*9;@bXhH=e!olNog}>*S)gRAD)^f`_h_!8+56};rau2UpNiL%du?o z0wG!6x#mCD!7=Latx|$$05*NKX!hT#dg28*aU2=btd89c%H8qXJ#RxDP6Gp00mM09 z61v-=M5V(p6tN#8HaCf(He{pa79|QLK#~9X{o+PPfbY>a~lI^OlLL0XX!Tb~mOUI%0FsFFF-UlJrJP9mqkdLWXYRfs{g4VE>5&JAyG$aKxzK!>jzdO0-S4;{f z-=95FF!fTo00^r!fYdFPg09!fML?zAD@%Y%y*dV9STc%b0Hxm2RsxmUOqEj5X&N7f zG095(ODULMs?R1Fc0qer3Z@n7b5d|@wLUKe$CT^$rC_Fd{ecu5U$B3d9PL!>|453t z3iF3jaH5)hA*sPB+JBIO8LIZBqzZR&HczBKLfFRETC4tD&M?R>+<(e2$g12|rQn36 z`?KV1o!UJt1;-Wdza%w`uin>^{&AJ>|B`|k>-UHhoVbAhH|AEdf?o$JRi`IGvZfW} zX~5u4(II38kmIUu5is4AWew1f8}8cDhH6sPWj&A+Znejmv?xE&8cy4V*0-*H@@Pe8 z;R3RFMn-ryc}D)m+2VUxpuCPOA|*u`r2?UtD66oU;qy~Jd2iQqVRF&4yQH|t1I02N zCdDH~Ss@b*lfvPmDWO^enh3=ZHHXwaX!XDWx6wjcA0~Vlbcv3x+cWEOT#Gdx+B|7%KY0uFJvn9( zEeaGzElk*jqDdhX4wL-hLT@Np^T6I^u-EC>E6i*U-zcqvsGq!phQ2(JA)NhAN81G6 zM{RcV-cNps>X!dCbwiH2c@s|#d**)fHtO2_*K{3pbQNdTwJHH^lq*W_qQ;4$^t_|Y zXMSE(cbIR0{RF=)|1Ra37)B_X?Bf zzMJnZBBiO#=gr+Y^$>l@Hd~ryHdN)r>)!|LpE&F(o8haQq(nuHc(acH@>2)ln?v{= z&;*VH@G}R()ot%yEK1;lF-UIv>HXeYgZ|(JDLK5$1 zox<)z^c_cpW7IKBfE+~RJqNkPl@9<8A^2+t^rlh|u$_qg*2YSGb@;hdG&d@opWcfw zrQbUPr>5;U!afs)1Bd8E2hL89G~mx8{)vO%;wljU)}!H1ZBVMga4pJ#0QTpMj*foy za3uyaI%`G)-d#TrJU3B7ehPp5O<{yQELhL~fBoM*kVWQ$$2OTBOKt-hNJ{MF?*M|4 zRLVz9I+^HQKni4RdKCI3FK@$$gNO9PG92HHjjYOgOj-PVy0Nhgn%$peLt zJu*UacD)UD25YYm?#AW6NRQw=F5_jO_A2uCB7d;xe&&UqSa19W7NkFJTLR6j;z zus;v3_Tb@^zn4RCdo}I0xcLo zcYFrht`9tlb6mgPwq^@~;z`Ii^^OHGg5a-|g;eld9=09*B2Cxve{{|8c-LSiE(Erf ziKFHgNQSNy06SVE8{c^BP9O<=qjN4JzIz2i?-dGZNZ@eCzu)}#b6Uaa%bcF%)W_*- zoMv2gjFaQYoi4|Ceh=~7OQa=MJu?{fMhPU|?W;q*REJ2-9S^jn;+ z<8%wBQBL=B8sqd?PP;hOI5jx^9;eT7+QaD&INibNCQdhVDsvj<^j|oAl+!PBx{K4V zak`t+22NLV`gKnCaN5LaGpFsG9^&)?PB(D+Ag8A|{Z~%k;`A7&dpUiQ(|_djMNVJk z^fafhb9%-HEBp|eu`+s4m`8_%VrZpS)47b(sqm-pzZ3o<<38vTz%$EC&-5+#)e9BS ze^yeJd08hbVcS?9OR$yfZ&*I-WeeE7%nx@zTbvJKUY1|QLO|8BDj;XG0w0@Q<%9Fl z*D18KM_4J_$^5>ZFohLfHgAD%NLb8D{l0@j833g)G@I4KzY&Ds(DWS_vgvW5fYu7L z;SRd|KIQ?+H2Z zXA818+!veI+2*y7-RI?woJZcr*dNG~tQfkb!f)9YMtPn`M!!;xhNIt7yDDK9$^60#X7JBZZM@>3zf&q(LzA&-$|AtB#SmiO)1d+g-7^W~^(`7seCDp!6jBor{R@_D4HD&Go0R7m9j zBm9O?)xP(9J@RX+)`f&Qj8rw^ddV7S6iNH$SYI1}WLX1*>Sfy`wbff zl1&~AcWj9nJ&HN`2gAAOiOmXI3b$|`5?g{S3vSwCBzhLI{czh+UIEuW#k8cNfhYFt zokOy22u~b3JHUJZ?%igB3B2y_72rTUaQG3N)1kx9KKHnZ4dC@?76a*H`%KPLcs)^y zmQFrxa*p8jR3UQC{FBM~A(}gT?)(7c*bU+Qab*7PTgCN4VFmH$ib5eA)2ve{EQH%m Zq0kSvA?tR~x;<}+92Y=>_!(Y__&;$oo_YWP literal 0 HcmV?d00001 diff --git a/Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dfm b/Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dfm new file mode 100644 index 00000000..e24562a9 --- /dev/null +++ b/Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dfm @@ -0,0 +1,92 @@ +object fConfiguracionEditor: TfConfiguracionEditor + Left = 0 + Top = 0 + Caption = 'Configuraci'#243'n de FactuGES' + ClientHeight = 524 + ClientWidth = 635 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + Position = poMainFormCenter + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object dxNavBar: TdxNavBar + AlignWithMargins = True + Left = 8 + Top = 8 + Width = 150 + Height = 466 + Margins.Left = 8 + Margins.Top = 8 + Margins.Right = 4 + Margins.Bottom = 8 + Align = alLeft + ActiveGroupIndex = 0 + TabOrder = 0 + View = 17 + ViewStyle.ColorSchemeName = 'Blue' + OptionsBehavior.SideBar.AllowSelectLinks = True + OptionsView.Common.ShowGroupCaptions = False + OptionsView.NavigationPane.ShowHeader = False + OptionsView.NavigationPane.ShowOverflowPanel = False + OnLinkClick = dxNavBarLinkClick + object GroupCategorias: TdxNavBarGroup + Caption = 'Categor'#237'as' + SelectedLinkIndex = -1 + TopVisibleLinkIndex = 0 + Links = <> + end + end + object Panel2: TPanel + Left = 0 + Top = 482 + Width = 635 + Height = 42 + Align = alBottom + BevelOuter = bvNone + TabOrder = 1 + DesignSize = ( + 635 + 42) + object bCancelar: TButton + Left = 552 + Top = 10 + Width = 75 + Height = 25 + Anchors = [akTop, akRight] + Caption = '&Cancelar' + ModalResult = 2 + TabOrder = 0 + end + object bAceptar: TButton + Left = 471 + Top = 10 + Width = 75 + Height = 25 + Anchors = [akTop, akRight] + Caption = '&Aceptar' + ModalResult = 1 + TabOrder = 1 + end + end + object PageControlMain: TPageControl + AlignWithMargins = True + Left = 166 + Top = 6 + Width = 461 + Height = 468 + Margins.Left = 4 + Margins.Top = 6 + Margins.Right = 8 + Margins.Bottom = 8 + Align = alClient + TabOrder = 2 + end +end diff --git a/Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.pas b/Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.pas new file mode 100644 index 00000000..46ecdc13 --- /dev/null +++ b/Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.pas @@ -0,0 +1,112 @@ +unit uEditorConfiguracion; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee, + dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxNavBar2Painter, StdCtrls, + ExtCtrls, cxControls, dxNavBar, dxNavBarCollns, cxClasses, dxNavBarBase, + ComCtrls, uViewConfiguracionBase; + +type + TfConfiguracionEditor = class(TForm) + dxNavBar: TdxNavBar; + Panel2: TPanel; + bCancelar: TButton; + bAceptar: TButton; + GroupCategorias: TdxNavBarGroup; + PageControlMain: TPageControl; + procedure dxNavBarLinkClick(Sender: TObject; ALink: TdxNavBarItemLink); + procedure FormShow(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + FListaVistas : TStringList; + public + procedure CargarValores; + procedure GuardarValores; + procedure AnadirVista(AVista : TfrViewConfiguracionBase; const AEtiqueta : String); + end; + + +implementation + +{$R *.dfm} + +{ TfConfiguracionEditor } + +procedure TfConfiguracionEditor.AnadirVista(AVista: TfrViewConfiguracionBase; + const AEtiqueta: String); +var + AItem : TdxNavBarItem; + ATab : TTabSheet; +begin + if Assigned(AVista) then + begin + ATab := TTabSheet.Create(PageControlMain); + ATab.PageControl := PageControlMain; + ATab.TabVisible := False; + + AVista.Parent := ATab; + + AItem := dxNavBar.Items.Add; + AItem.Tag := ATab.PageIndex; + AItem.Caption := AEtiqueta; + AItem.Name := 'ItemName' + IntToStr(ATab.PageIndex); + dxNavBar.Groups.Items[0].CreateLink(AItem); + + FListaVistas.AddObject(AEtiqueta, AVista); + end; +end; + +procedure TfConfiguracionEditor.CargarValores; +var + I: Integer; +begin + for I := 0 to FListaVistas.Count - 1 do + TfrViewConfiguracionBase(FListaVistas.Objects[i]).CargarValores; +end; + +procedure TfConfiguracionEditor.dxNavBarLinkClick(Sender: TObject; + ALink: TdxNavBarItemLink); +var + APageIndex : Integer; +begin + APageIndex := ALink.Item.Tag; + if (APageIndex > -1) and (APageIndex < PageControlMain.PageCount) then + PageControlMain.ActivePageIndex := APageIndex; +end; + +procedure TfConfiguracionEditor.FormCreate(Sender: TObject); +begin + FListaVistas := TStringList.Create; +end; + +procedure TfConfiguracionEditor.FormDestroy(Sender: TObject); +begin + FreeANDNIL(FListaVistas); +end; + +procedure TfConfiguracionEditor.FormShow(Sender: TObject); +begin + PageControlMain.ActivePageIndex := 0; + dxNavBar.Groups[0].Links[0].Selected := True; +end; + +procedure TfConfiguracionEditor.GuardarValores; +var + I: Integer; +begin + for I := 0 to FListaVistas.Count - 1 do + TfrViewConfiguracionBase(FListaVistas.Objects[i]).GuardarValores; +end; + +end. + + + diff --git a/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionBase.dcu b/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionBase.dcu new file mode 100644 index 0000000000000000000000000000000000000000..decc01200e319d87e4d160c4b282a32aa3efed16 GIT binary patch literal 4840 zcmeHJ|8Eq>6`!}*$JjlLW6b${7_f~oE}eK#RohfmTJ>89Y9j=N^oKTI3P^=iDhX{W6|fF|K&pQL-1m0x ztGW9Ry7tY^o6qOHnR)Nc+gZX`)qkoOE7Shfw&42vUMBexTQsq^)6gSYG-1k$X6PNV zC5|%BS~E}>3#yUf-LL+$O^OHe^tO{FYkLu;xNL4#IHzVckx}^jZ_CbVY#qKgq!@RmH{z0@h{OI6rq1eIph%HQ9 z2NDvBjm!US`PrwVm1#JnS#jA`hTf&odFjzjVs8&>$hsolBcM7Bbelq?krRYetlJ># zYD{!%x*Us*(cFqU8@JG-Yc^xp->T`VvDczLe?(Z892KsBq|LS#bA>IksmZ$S2(z7S z6Dv|4?lgwuhAwpbsrChtXjN7Y?rc}pei6AOue^&Z&+vjf`$bG(j6NlxHV4=oS7lrD zi>QXq7&|``-Xg~|m!QkT;sU|*bF{abnk@!wwD7l?nqN-{bF4>4M@M8uTqL+IN3%mj z3{!+eCIp|)WDLj=(TV=+8dXG`f^>rzRpCBiTDVx;eX!lKw5Wc)p?eSdalI+Whcv}? z9R}An4e}$#3B8??QyO7o?%I=|MQd`APFZhH*v5diPgD~)e+JkuEQID0v@j2H(n!{H zfsQ9i4N?4g6jPvw+?)syy69fi%?OvXkT^^7I0?%(hTCJfTg)_J+OGQ+6LE17VxM7Y zE(Om(zI9EKb;rvD`H;A(F3vjjg)cL|8)} zW+;#Mi+Bt(BZS?~n1j9$V`2r~+F`_Agh+@=kBSv2IHW{`S(G;0{86q?)oFUY0C<*IzLaK6C z;_m5(?s#fzL5xDXQ;5%Ays-^emNOnQ7U^{9@?cD;e<7ec7wC=| z7%x5gAt4Qg5K6lNEM87o{fKCDGqheqR)zXk8l+<9PS-E?B(PdJXYkYf330RO(sB77 zgx3Fvp^DE4$*vxCQmg-*fXd7~2yDVqdxb^=xudCE(n1=U`{JI7I#S5L38~3w(lv(jxe{P3>P2|Tb~5~ zdk7CmF5E}y;TD5)gkt=1lyO7u($5oy9>~F5!xsox8Xi#a5X3NQx%FDzjdZsN&>4Ss z(b^B9jfJUH9aGV=juWrBFpsLdGgT@8?-94i^cilCPB)bkL|s(Sth*IFfPWy)!h#&< z1A!YnNtC*RlvHUwg$%qWgfuy3MBPssmatCSq)!@#txwiP?E2fs7E{<9;o~Rv(^qi7 zRLc~Hduv7>jKSdMUN)$;R->fJcfHJWx6T|#OSJq53HIG3+5vSMP%97UbKaRfiR zDpl_dSO|sbEQPef1(6?o`4^|7HNnE*lXsq)uUSGV%3OH_7c&CQr1NeDy`{5^9t%@;_^#mWdrjo zl(GRhuC&f@^!rL{aZjIAT8p{!kIEW`&wWyJZ7>`$3x;Z(ohzHZT+NpIi!q*M$<~G! zd@W0h5vZg(w&{jF&U{24Sc})Wxoi8JZ~i!=3q0H2aM;h3H>8%L2}&Vil?|L|ch@t{nD1pzcPa2B z{cMk=nN_O{L*$R(yQohQ{y>FFGK$+yOV1>syrK?$a#jkOAPI}l^@HC-z z)oG;Nm!bu|c>!!RZ(g2&`DyS=xp8TFK_M?BMt$0^ciXI+Go_nHu>{sHuc#2l0K7 zP48++4_rk8%M+I303C!*`~m*vrQXYwJy&ZtEPnWfhKnE9T>RptJ{-3tZ1CyDpX&77 zrUYN>NICU<8~dXvZhGwh@2m%Av7_jrA;&|hoQhwzWx%%l+va!{N70hlQ`&yB!@{qOjg2C4qxL?!C@7LN)Ed@ zRB@>0@D7Ky9C|sd;V{l&2Zvo8p69Tf!wL>T4l6ml!C@VThd6X_7~!ym!#6l==P=4) zABQJ7?C0=Z4o`D2|ho5rzIR|g%-wTuP!0$Nxp2MHGH_0HmmbQH4 zA@5B|@^bGjr=4=z+fG|5RY0la2ap2z_Da4=uT+APcaC(}+rp-PQYMwtUsdE~NqUgI zBKa8eSAIXZO2WjEl9WA1m~>~B@08OfC5iceLtTHeL}Gyx)D0v(6018)-8v7o^*2$k zKFP7Ug}ugPIW|++Yf5@cSX0Yw>^3JWN?3DC(=Oz??f6Hk*({ zl|m@*&CHHwv@8D0e-S0k_WS+b>+bi}JX(_e-J?X-gTB4$}fR zCmOKk{|LNvBpoWiopLrK7~;sYD7~Q|?UxSsfQF!o(zg&;QvkYjNh%=c5GfnfbJEz$ zr)SgUtzEJzDDneRo30BJ$7(j8P4m`XSW}0hA9&_#x1|HEJ*tuFP$WU$`q;SxpmDpP zCKbulQzqWIFY{enqb-|$vg+s4VsbfbyhoJ{Lg4eAvYONmXYn)dld@SMEm;E~4H>dx z4ek(hSx^mgu-tSOvcMr7+Gs{oCDn)wWs-s+4M=GjyfX2M&~(iM-vPU@2&ynDy^8Q! zm-d~yY)AfO)( zCVitD=@8VmoS`KkXloE$y9gYRvH-0`sMZ6S`6S4yl(Z-}A|>ph=n{Cy3UD=|>x)q< zpcbbVIk$K?xvZg$wkfb%NI6M2Ece}v#G98O#KWY(Fq?r6dA(#A*9{p zrgck(1?|=4w5&#v;8~|b7=ZfTiLfU&2wRB|8^?sn?m~*k7eMKh#$-`KqBL%_Aj1>A ze$9|mvM8W0I}!C{#(*Rw%>vkikS7)i$%qR&OxrGq2h+NiQ>W1Pj=Rd9Lda8R0Cj0%E_)i0O7}{vJ$>Gi+gpo36xz&={L(K!*bggn z$vbr+-7|{)?T3in;KpLAFsw+)|3+Yq8|YFrh?koF5hC@a5KOxSG%vF&{upVi9a^s@ zB&Fm96k@Y8gA*B$4&|U*nKk%7-U(r|h1T(U5rXUQ(~{C}5Ls9~=-8`&1A&k;4*>np zYTra@wOeZElH4hyxwncYYPXTM5xLRP#3Mt7_G9_C@wLU14MNf%@-6|QfzlXA#pJRs zO&_&S4YLb%>9D*=huPC$O~PpQr;$HD4mH!^g5#JmR)6>zq7YIS3VXD6^9o|%6c=V0 zeieaDg9#DpLV-ZKTX^z*pj&+b%l_H*yT6;>P@0Mj(+*(vIpj5z=3(PEr?O-6E#xjS zy~FKM@zQb*sq0IcwYCB^`Jc$CEy*#@4A|iFNU14FvAgXIFyQ3xlm$ggo2T5m;_Fho zkd@$S6dp|JMK?6W-jCKFOIJmff`7JR{&hG?6GpPb(DC$4t$;)t9oE{l@n=t0eGKkg zy~41h{QBPBNrXlu@gP9@TMvFO9f&y8Qz}GndBoz*G;e;z1a0!rxx2$K2Xy4Z9R9($ zpi0WSUwQgw)G`M@`OHIbsE3l{-JLygC6{$>FJdydXDl{eh$`NI*6taD!#{~<$nDUM zCEc`uNLindJ%}GxCdU&8Wi{IYmk!ss9Znz<4_J7+k~85|*02N9TT)OVXiKzIN-`-G zmY^H2pnFA0P|c96wxn{O0OysUPqxYc0iI4eoWS2eD`F z6LABm4o<<3eQ<%B7(5J{LZPj{Hw8zP)ZEmx%h}o*i|$6OO%|zi!;RLQp-3eztEQXQ zEw+`Al`%Mp3M$W-#q2RwKMoSd-kHqMr%KnKMU8=M% zh*7(?UlF6;;{LfKuuI?s z4$W1{Z^3q~Ns6lc{~Qa2GQVj0XmOqYzhlB(&Snq0Bu0zM)~cBIODNf;ez}B_RqMZp z*jkHSn5j_PSDe)rB!3d4Mdd#0SSYUdzc~JJ75r5(TC(D=LHyh$PoWUJMZXM7qfquM zVBjhIRhD3(^eZeuq1p*q%fyD7l82)Gt;QsIKe{Wvj%>cE)X8a+9wjS>_g@R|Vv*)9 zQca?ZyG1<{8$Wy<{RkX4X+Z~%z#)~LByA6?Pmx2*PSu3#%My~3N|EraI8Eo+azaAk z)r}vzo~=$nj~Q^lNQN*;TG7&dXZ((#b+fnl;pPEv1S#Ub3`UpvY@?0WGYS_&^Hzap z-X!@1T5USRTvqEGs|>AH6s&H(uGJiz5UzcEdJl#9c$EI4me=+Gb< zBoKIW#Wek}y@D-%^Afa;1cG@GZ*|1xy`z}~LNqWe^y4dP%0h@+0!WN!y{J%~T* z74HD?HV}W@5t~Lp9Bcz|TS2^{a0P?KluE5i!(vUH!U#vvs@>x%&IFTfSzFpBpM z!!=wmH25wG7WqwJ+*4rSB0UBwUjSIJ;YiS(a5Ee93g4M&DizR`t{k7)U@SvWE`X~% z#Wcgl=GdueI$D6syFE!a!^UfUfFH7Pu@keSdNt(B|%tRh2Ovbl=i@Ck^t|Fn;u$JWeg)TQk&?=ycAM`KsF&kT+H0W2ryo03QCj>Tr<$A+$a5f?B; zruh86mZ{j4Z*$1!^K0PGRCqqoI5jjo6}vh$iTk>U%ww_3pmoWsb;;6dTF|;|YN6XL zt)Yuvjf>x;=X-7Xj;RYK8+{7Pc=A^;&GwnQ_wP?04UPQ8ob%$;TAcjbz;KpfFXxK= zoHd^>zJt7XfBdPbx9@q8K=IDQBxF1M;^zu@+U@GFrYCzPHEoR8SO_s;yjO#Fw>AU* zlOcm&om+aV;0fP^h!S=*)Pynk_K}xnj}Fa(W2a)X=Nmz0E@A(EnAy^UW0lzVg91Nx z)pW$s82EJ-sU>2BX6zUZ&3gT2hRhq0slF@cuY$&17_gROLzlf8X1Ki3nCiQ9J`8>- zXe^FRd?6g6`4g{!?WrG}-%(KLbYk-XAje`C&0QahU9z8-?PtlrTrdOkH;4u1_9n+~ z^JZB&3*7>Mof)(Dy!gmg7!vy8XcZ&D_ZXq?u{xS(9G+qL4bkT~-N|W?(;b|abE}f8+EvPWw4+;q+ln@8fis)5kg8!fAxlCQh30_Lp;q(bkk8^rIrzbd7In8jYb2`T9mpJ`0r(K+$=Ja+> zpW$>5r@frUIUV41kkdOjJ;3QSr%6szoQ`m6aQd&DewEX&bGUzTxY=>IGICn$3&PI& z%IFNI|HbJKIeiI)j0fTJ16ywgkkhlB!8z6d{Efa%Y&|>!@VkYb410$m7;XS$5Byfr zt!xcj7h>TMtA@WpR&yb^%vT2!2iW?Z!3y6RFkKU@^)$2W|;5GcEqDe!ODf0VH>tM*4&B@6k>L7aqt z!)4U>BxBR$1Pc?=u;rhIq0PWQ*mxP)c;qZ$bH0sv#u#ZhkDnXztc;Py?~uTpuW?KB zt+(ZwpOMW!!13ltQ_F5h6h^k>S%8s9o&_0c%CmAtn)58g$d2bp*_>}jYo1m5$xihI zWEhNhw&%f1q$SVRF>-4jR!P82H6viW#!p%^C-ZE*pR_B-{Yc+4d6vUUdMkXyU)H;4 zGSBK5*>g4kvi@Z#>+c=Qvki>&o(%#$e*YYtm1Xh%RGw{Qr2lL=2nU|1Mdm>Ku{>*F zBu;&>X|f3te$J<;nd2u;Ze<*Jin 0) then - AMsg := FUserControl.UserSettings.CommonMessages.ChangePasswordError.InvalidNewPassword + if (Length(Trim(APassword)) < FUserControl.UserPasswordChange.MinPasswordLength) then + AMsg := Format(FUserControl.UserSettings.CommonMessages.ChangePasswordError.MinPasswordLength, [FUserControl.UserPasswordChange.MinPasswordLength]) else - Result := true; + if FUsarPasswordsSeguras and (Pos(LowerCase(APassword), 'abcdeasdfqwerzxcv1234567890321654987test' + LowerCase(ALogin) + LowerCase(AMsg)) > 0) then + AMsg := FUserControl.UserSettings.CommonMessages.ChangePasswordError.InvalidNewPassword + else + Result := True; + end + else + Result := True; end; function TUsuariosController.ValidarPerfil(APerfil: IBizPerfilUsuario): Boolean; diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas index 792747bc..fae47c24 100644 --- a/Source/ApplicationBase/uFactuGES_App.pas +++ b/Source/ApplicationBase/uFactuGES_App.pas @@ -4,7 +4,7 @@ interface uses SysUtils, Classes, Forms, uBizUsuarios, uBizEmpresas, uBizEjercicios, uControllerBase, - uEmpresasController, uUsuariosController, uHostManager; + uEmpresasController, uUsuariosController, uHostManager, uConfiguracionController; type TDoLoadModulesEvent = procedure; @@ -33,7 +33,8 @@ type function GetEjercicioActivo: IBizEjercicio; function GetModuleManager : THostManager; function GetTerminated: Boolean; - + function GetConfiguracionController : IConfiguracionController; + function GetLoadModulesEvent : TDoLoadModulesEvent; procedure SetLoadModulesEvent (ALoadModulesEvent : TDoLoadModulesEvent); @@ -52,6 +53,8 @@ type procedure Run; procedure Terminate; + procedure Configurar; + property AppVersion : String read GetAppVersion; property AppName : String read GetAppName; property AppFullName : String read GetAppFullName; @@ -66,6 +69,7 @@ type property DoMainFormEvent : TDoMainFormEvent read GetDoMainFormEvent write SetDoMainFormEvent; property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent; property Terminated : Boolean read GetTerminated; + property Configuracion : IConfiguracionController read GetConfiguracionController; function getVAR_IDTIENDA : Integer; procedure setVAR_IDTIENDA (AValue : Integer); @@ -88,6 +92,8 @@ type FUsuariosController: IUsuariosController; FEmpresaActiva: IBizEmpresa; FEjercicioActivo: IBizEjercicio; + FConfiguracionController : IConfiguracionController; + FAppSplashForm : IAppSplashForm; FHostManager : THostManager; FTerminated : Boolean; @@ -106,6 +112,7 @@ type function GetEjercicioActivo: IBizEjercicio; function GetModuleManager : THostManager; function GetTerminated: Boolean; + function GetConfiguracionController : IConfiguracionController; function GetLoadModulesEvent : TDoLoadModulesEvent; procedure SetLoadModulesEvent (ALoadModulesEvent : TDoLoadModulesEvent); @@ -136,6 +143,8 @@ type procedure Run; procedure Terminate; + procedure Configurar; + procedure CambiarEmpresa(const AIDEmpresa : Integer); procedure CambiarEjercicio(const AIDEmpresa : Integer); @@ -153,7 +162,8 @@ type property DoMainFormEvent : TDoMainFormEvent read GetDoMainFormEvent write SetDoMainFormEvent; property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent; property Terminated : Boolean read GetTerminated; - + property Configuracion : IConfiguracionController read GetConfiguracionController; + function getVAR_IDTIENDA : Integer; procedure setVAR_IDTIENDA (AValue : Integer); function getVAR_TIENDA : String; @@ -203,8 +213,6 @@ begin Aux.DataTable.Active := True; if not Aux.IsEmpty then FEmpresaActiva := Aux; - - end; //Establece el ejercicio activo de la empresa activa @@ -219,6 +227,11 @@ begin FDoLoadModulesEvent(); end; +procedure TAppFactuGES.Configurar; +begin + FConfiguracionController.ConfigurarAplicacion; +end; + procedure TAppFactuGES.PonerTiendaPorDefecto; var AIdTienda: Integer; @@ -227,7 +240,7 @@ begin //Nos devuelve el id de la tienda a la que pertenece el vendedor que tiene asignado //el usuario con el que ha accedido a la aplicación. //Esto funciona mientras la relación sea 1 a 1, cuando sea 1 a n (un usuario pertenece a varios vendedores deja de funcionar) - UsuariosController.darIDTiendaVendedorUsuario(UsuarioActivo.ID, AIdTienda, ATienda); + UsuariosController.DarIDTiendaVendedorUsuario(UsuarioActivo.ID, AIdTienda, ATienda); VAR_IDTIENDA := AIdTienda; VAR_TIENDA := ATienda; end; @@ -249,6 +262,8 @@ begin // Ruta por defecto de los módulos BPLPath := ExtractFilePath(Application.ExeName) + PathDelim; end; + + FConfiguracionController := TConfiguracionController.Create; end; destructor TAppFactuGES.Destroy; @@ -256,8 +271,11 @@ begin FAppSplashForm := NIL; FHostManager.UnloadModules; + FreeAndNIL(FHostManager); + FConfiguracionController := NIL; + FEmpresaActiva := NIL; FUsuariosController := NIL; FEmpresasController := NIL; @@ -303,6 +321,11 @@ begin Result := uAppInfoUtils.GetAppVersion; end; +function TAppFactuGES.GetConfiguracionController: IConfiguracionController; +begin + Result := FConfiguracionController; +end; + function TAppFactuGES.GetEjercicioActivo: IBizEjercicio; begin Result := FEjercicioActivo; diff --git a/Source/Base/Base.dpk b/Source/Base/Base.dpk index 290b4936038cea5f8fdc8e30ab1c4d4afecfcfae..7009ab7a2705ecb46dcbb49e45da1d7a06085cd3 100644 GIT binary patch delta 755 zcmZuv!AiqG5cN8lZnNCSCk1Ld>h*R&n9ra2lACfox(!684R8nR zAt+PN5+ohwKX5+)q?FsVCsoaIBw2z5#Z8Z)0G8NLR%@#s@<73oi>AzzQN%6bSb)}3 z#(`?lD+ioFj0CEvja=bA3Iu8z`}mS!I7@7)q)?U(d&vo_+?qZUNqjrslzTFGQOTxJ zgpBvQ-NBye>!iI0!;KZ^)^mmokgS#dam8SUVr~D_UMvL_W;!+5tLO_5oKhrf?~hB+ zI8(q-((C8Z#nnIbp2w(D WwS7oY=*|lC`Hkzi4yUl=ItSlA!srtK delta 25 gcmX>peMxjf0n27q_AoXcYhEs1uGG8~Jzg#b0AhIs`~Uy| diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index bee213cf..c0abff9b 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -51,6 +51,27 @@ + + + + + + + + + + + + + + + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -65,89 +86,75 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
- TForm - - -
dmConexion
- TDataModule - - -
dmConfiguracion
- TDataModule - - - - - -
DataModuleBase
- TDataModule - - -
dmBase
- TDataModule - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +