From 77e98d73e9346302b863c06eda126bd1b676fcf5 Mon Sep 17 00:00:00 2001 From: Marius Mutu Date: Sun, 23 Aug 2026 18:00:57 +0300 Subject: [PATCH] Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored) Co-Authored-By: Claude Opus 5 (1M context) Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v --- .gitattributes | 4 + .gitignore | 98 + Clase/cont2000COPY.vcx | Bin 0 -> 171181 bytes Clase/ferestre_roadef.vc2 | 229 + Clase/oOptiuni.vc2 | 3939 ++++++++++++ Clase/oasociere.vc2 | 915 +++ Clase/oblocare.vc2 | 324 + Clase/oconfigurare_seturi.vc2 | 4718 ++++++++++++++ Clase/ofundal_sal.vc2 | 4931 +++++++++++++++ Clase/oparteneri.VCT | Bin 0 -> 679188 bytes Clase/oparteneri.vcx | Bin 0 -> 33079 bytes Clase/oteste.vc2 | 1693 +++++ Clase/ovanzcump.vc2 | 3509 +++++++++++ Clase/solution.vc2 | 65 + Ferestre/ATENTIE1.sc2 | 75 + Ferestre/afisbalx.sc2 | 1318 ++++ Ferestre/fundal.sc2 | 377 ++ Ferestre/inchidluni.sc2 | 212 + Ferestre/startfirma.sc2 | 783 +++ Grafice/C.ico | Bin 0 -> 766 bytes Grafice/CHECKMRK.ICO | Bin 0 -> 1078 bytes Grafice/Cont12.ico | Bin 0 -> 766 bytes Grafice/DKCONTRL.DBF | Bin 0 -> 74341 bytes Grafice/EYE.ICO | Bin 0 -> 1078 bytes Grafice/HLP.BMP | Bin 0 -> 246 bytes Grafice/H_POINT.CUR | Bin 0 -> 318 bytes Grafice/WZSETUP.INI | 36 + Grafice/cump.bmp | Bin 0 -> 1078 bytes Grafice/entitati1.bmp | Bin 0 -> 7534 bytes Grafice/entitati2.bmp | Bin 0 -> 7534 bytes Grafice/plcont1.bmp | Bin 0 -> 7534 bytes Grafice/plcont2.bmp | Bin 0 -> 7534 bytes Grafice/roadef.bmp | Bin 0 -> 367014 bytes Meniuri/blocaredel.mn2 | 167 + Meniuri/calculatoare.mn2 | 18 + Meniuri/calend.mn2 | 14 + Meniuri/coeficientilunari.mn2 | 37 + Meniuri/editscurt.mn2 | 61 + Meniuri/entitati.mn2 | 29 + Meniuri/firmanoua.mn2 | 323 + Meniuri/impozitar.mn2 | 18 + Meniuri/listenomenclatoare.mn2 | 85 + Meniuri/nomenclatoare.mn2 | 75 + Meniuri/optiuni.mn2 | 37 + Meniuri/rapoarte.mn2 | 24 + Meniuri/roadef.mn2 | 134 + Meniuri/utilizatori.mn2 | 18 + Programe/1proverb.prg | 107 + Programe/actualizari.prg | 270 + Programe/genhtml.dbf | Bin 0 -> 7337 bytes Programe/genhtml.fpt | Bin 0 -> 31936 bytes Programe/mesaje.prg | 43 + Programe/oparteneri.prg | 687 +++ Programe/oproceduri_app.prg | 196 + Programe/oproceduri_registretva.prg | 57 + Programe/oproceduri_roadef_sal.prg | 978 +++ Programe/ovariabile_globale.prg | 12 + Programe/pmenu.prg | 4578 ++++++++++++++ Programe/quitapp.prg | 340 + Programe/rapbal97.prg | 104 + Programe/refverif.prg | 7489 +++++++++++++++++++++++ Programe/roadef.prg | 981 +++ Programe/shutdown.prg | 3 + Programe/update_nomenclator.prg | 20 + Programe/update_roadef_sal.prg | 119 + Programe/verifica.prg | 1486 +++++ Rapoarte/balanta_parteneri_rpt1.fr2 | 683 +++ Rapoarte/balanta_parteneri_rpt2.fr2 | 960 +++ Rapoarte/balanta_parteneri_rpt2_ext.fr2 | 1260 ++++ Rapoarte/calculatoare.fr2 | 484 ++ Rapoarte/gestiuni.fr2 | 472 ++ Rapoarte/ireg_parteneri_rpt1.fr2 | 1068 ++++ Rapoarte/ireg_parteneri_rpt2.fr2 | 1308 ++++ Rapoarte/ireg_parteneri_rpt3.fr2 | 887 +++ Rapoarte/rap_mesaje.fr2 | 335 + Rapoarte/rapbal_solduri_a3.fr2 | 1525 +++++ Rapoarte/rapbal_solduri_a4.fr2 | 1151 ++++ Rapoarte/rapbal_tot_a4.fr2 | 1135 ++++ Rapoarte/rapbal_total_a4.fr2 | 1175 ++++ Rapoarte/rasociere_part_gest.fr2 | 361 ++ Rapoarte/rasociere_part_sect.fr2 | 314 + Rapoarte/registru_cumparari_rpt1.fr2 | 1416 +++++ Rapoarte/registru_tva_simplu.fr2 | 1492 +++++ Rapoarte/registru_vanzari_rpt1.fr2 | 1547 +++++ Rapoarte/util.fr2 | 520 ++ Rapoarte/utilizatori.fr2 | 614 ++ Rapoarte/utilizatori_parole.lb2 | 277 + changelog_roadef.txt | 746 +++ config.fpw | 44 + datemenu/infisiere.db2 | 545 ++ datemenu/refaceri.db2 | 384 ++ roa_sync.bat | 2 + roadef.pj2 | 430 ++ versiune_db.txt | 1 + 94 files changed, 62872 insertions(+) create mode 100644 .gitattributes create mode 100644 .gitignore create mode 100644 Clase/cont2000COPY.vcx create mode 100644 Clase/ferestre_roadef.vc2 create mode 100644 Clase/oOptiuni.vc2 create mode 100644 Clase/oasociere.vc2 create mode 100644 Clase/oblocare.vc2 create mode 100644 Clase/oconfigurare_seturi.vc2 create mode 100644 Clase/ofundal_sal.vc2 create mode 100644 Clase/oparteneri.VCT create mode 100644 Clase/oparteneri.vcx create mode 100644 Clase/oteste.vc2 create mode 100644 Clase/ovanzcump.vc2 create mode 100644 Clase/solution.vc2 create mode 100644 Ferestre/ATENTIE1.sc2 create mode 100644 Ferestre/afisbalx.sc2 create mode 100644 Ferestre/fundal.sc2 create mode 100644 Ferestre/inchidluni.sc2 create mode 100644 Ferestre/startfirma.sc2 create mode 100644 Grafice/C.ico create mode 100644 Grafice/CHECKMRK.ICO create mode 100644 Grafice/Cont12.ico create mode 100644 Grafice/DKCONTRL.DBF create mode 100644 Grafice/EYE.ICO create mode 100644 Grafice/HLP.BMP create mode 100644 Grafice/H_POINT.CUR create mode 100644 Grafice/WZSETUP.INI create mode 100644 Grafice/cump.bmp create mode 100644 Grafice/entitati1.bmp create mode 100644 Grafice/entitati2.bmp create mode 100644 Grafice/plcont1.bmp create mode 100644 Grafice/plcont2.bmp create mode 100644 Grafice/roadef.bmp create mode 100644 Meniuri/blocaredel.mn2 create mode 100644 Meniuri/calculatoare.mn2 create mode 100644 Meniuri/calend.mn2 create mode 100644 Meniuri/coeficientilunari.mn2 create mode 100644 Meniuri/editscurt.mn2 create mode 100644 Meniuri/entitati.mn2 create mode 100644 Meniuri/firmanoua.mn2 create mode 100644 Meniuri/impozitar.mn2 create mode 100644 Meniuri/listenomenclatoare.mn2 create mode 100644 Meniuri/nomenclatoare.mn2 create mode 100644 Meniuri/optiuni.mn2 create mode 100644 Meniuri/rapoarte.mn2 create mode 100644 Meniuri/roadef.mn2 create mode 100644 Meniuri/utilizatori.mn2 create mode 100644 Programe/1proverb.prg create mode 100644 Programe/actualizari.prg create mode 100644 Programe/genhtml.dbf create mode 100644 Programe/genhtml.fpt create mode 100644 Programe/mesaje.prg create mode 100644 Programe/oparteneri.prg create mode 100644 Programe/oproceduri_app.prg create mode 100644 Programe/oproceduri_registretva.prg create mode 100644 Programe/oproceduri_roadef_sal.prg create mode 100644 Programe/ovariabile_globale.prg create mode 100644 Programe/pmenu.prg create mode 100644 Programe/quitapp.prg create mode 100644 Programe/rapbal97.prg create mode 100644 Programe/refverif.prg create mode 100644 Programe/roadef.prg create mode 100644 Programe/shutdown.prg create mode 100644 Programe/update_nomenclator.prg create mode 100644 Programe/update_roadef_sal.prg create mode 100644 Programe/verifica.prg create mode 100644 Rapoarte/balanta_parteneri_rpt1.fr2 create mode 100644 Rapoarte/balanta_parteneri_rpt2.fr2 create mode 100644 Rapoarte/balanta_parteneri_rpt2_ext.fr2 create mode 100644 Rapoarte/calculatoare.fr2 create mode 100644 Rapoarte/gestiuni.fr2 create mode 100644 Rapoarte/ireg_parteneri_rpt1.fr2 create mode 100644 Rapoarte/ireg_parteneri_rpt2.fr2 create mode 100644 Rapoarte/ireg_parteneri_rpt3.fr2 create mode 100644 Rapoarte/rap_mesaje.fr2 create mode 100644 Rapoarte/rapbal_solduri_a3.fr2 create mode 100644 Rapoarte/rapbal_solduri_a4.fr2 create mode 100644 Rapoarte/rapbal_tot_a4.fr2 create mode 100644 Rapoarte/rapbal_total_a4.fr2 create mode 100644 Rapoarte/rasociere_part_gest.fr2 create mode 100644 Rapoarte/rasociere_part_sect.fr2 create mode 100644 Rapoarte/registru_cumparari_rpt1.fr2 create mode 100644 Rapoarte/registru_tva_simplu.fr2 create mode 100644 Rapoarte/registru_vanzari_rpt1.fr2 create mode 100644 Rapoarte/util.fr2 create mode 100644 Rapoarte/utilizatori.fr2 create mode 100644 Rapoarte/utilizatori_parole.lb2 create mode 100644 changelog_roadef.txt create mode 100644 config.fpw create mode 100644 datemenu/infisiere.db2 create mode 100644 datemenu/refaceri.db2 create mode 100644 roa_sync.bat create mode 100644 roadef.pj2 create mode 100644 versiune_db.txt diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 0000000..bbf8fed --- /dev/null +++ b/.gitattributes @@ -0,0 +1,4 @@ +# SVN ramane autoritatea pentru line endings (rulaj paralel svn+git). +# Dezactiveaza orice normalizare CRLF/LF facuta de git, ca sa nu mai apara +# "modificari" fantoma dupa fiecare svn update/checkout care doar atinge mtime-ul. +* -text diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..bb94421 --- /dev/null +++ b/.gitignore @@ -0,0 +1,98 @@ +# ============================================================================= +# Flux text FoxBin2Prg: git urmareste DOAR versiunile text .??2 (in arbore), +# nu binarele VFP. Binarele convertibile si indecsii regenerabili se ignora. +# SVN ramane sursa de adevar pentru binare (via global-ignores pe .??2). +# ============================================================================= + +# --- Binare VFP convertibile in text .??2 (ambele forme de caz) --- +*.vcx +*.VCX +*.vct +*.VCT +*.scx +*.SCX +*.sct +*.SCT +*.frx +*.FRX +*.frt +*.FRT +*.mnx +*.MNX +*.mnt +*.MNT +*.lbx +*.LBX +*.lbt +*.LBT +*.pjx +*.PJX +*.pjt +*.PJT +*.dbc +*.DBC +*.dct +*.DCT + +# --- Exceptii: binare neconvertibile de FoxBin2Prg (raman urmarite ca binare) --- +# cont2000COPY: .vct lipseste din arbore -> "Error 41, memo file missing or invalid" +!Clase/cont2000COPY.vcx +# oparteneri: metoda "Click" duplicata pe frm_ireg_parteneri.Command3 -> roundtrip esuat, +# write-back nesigur; se editeaza doar din IDE +!Clase/oparteneri.vcx +!Clase/oparteneri.VCT + +# --- Indecsi regenerabili (nu se transporta in .db2/.dc2) --- +*.cdx +*.CDX +*.dcx +*.DCX + +# --- Tabele .dbf convertite in .db2 (lista explicita; restul .dbf raman binare) --- +datemenu/infisiere.dbf +datemenu/refaceri.dbf + +# --- Fisiere generate/compilate Visual FoxPro --- +*.fxp +*.FXP +*.mpr +*.MPR +*.mpx +*.MPX +*.vcr +*.VCR +*.src + +# --- Backup-uri si fisiere temporare create de editorul VFP --- +*.bak +*.BAK +*.tmp +*.TMP +*.err +*.ERR +*.Stats +*.stackdump + +# --- Stare locala / specifica masinii, nu proiectului --- +FOXUSER.DBF +FOXUSER.FPT +log.txt +LOG.txt +sqlnet.log +roadef.ARM +roadef.ini +roadef.exe +roadef.exe.PreARM +roadef_ref.CDX +roadef_ref.DBF +roadef_ref.FPT + +# --- Subversion (working copy paralela) --- +.svn/ + +# --- COMUN este gestionat separat, prin propriul sau git (romfast/comun.git) --- +COMUN/ + +docs/diff_*.patch +.gstack/ +docs/local/ diff --git a/Clase/cont2000COPY.vcx b/Clase/cont2000COPY.vcx new file mode 100644 index 0000000000000000000000000000000000000000..b052383fc2dca92b969e9051f062fdfb10900763 GIT binary patch literal 171181 zcmeEvcf1qT^Y&!JrAV)WNEeVIYlUyO$=Uw#<_`bxvJ5tW@n9#feH5>rdV!8Hv)8 z!n0yhGm>#H(ttxruZOZz;?uLEHA zN$z{NL&@Pqy`L0qW;a1@D?Q&P%81U4&d7<5!hcVW$3y>hA4-y0B>&fa3+|`iqVUwJHkNbAq?|6^<4&3j0kNZyCf3k@C*)SiM8723@!P~yF?py!=P&YC)IT<;j zZe+i%Lx$A#q=14)y8qL4bK_H@QgbuwcFr^<%jroG+0k|FR+H7~G}}z8STO<$?@6>( zoFDj^U-LdL#Qk$#Q947sqde;imac+*BouFeTne5IZY{1U3IdV7V0kK73!%6kWMyy| zc==C(sP}x<2Q0^`g3T3*r$LSaKMk%Xu6e5Q@0TxFgbG$lDE{X>(Pi+|w~1yz>Lp*W zcol3ElrtIv`6M_Od}}GcrswDjmZpL|p2}4|8AtRRKrB6pT<`HT{s7LeU-cusYyOoF zSZ*x9WSi`?JFSi<`IAi`Pj)8y1Uw$BmwdsJm}RodVRbl$3&p)59|x~~oajO)y--BH zU|FhV3!$9R49GFyp5R8}8ov|R(FZI)LAC5QtB63CAWwsLfj1TKYkH2pU>T}qn*`W9 zkZ*uTg2TnN(15v15FTe{p|}BLHE=vUmlMK$3JF+&O||SZp?DkQYVZtjwzw7=Fn0;U zEsGI~9gt1I<-qfmnp+2&Pn;F75=7*)=|b^n$RuR&Cm|mVDOjqS8rzBzqy=O>a2Pl) zMTbe^6<^D8RLfck#mymWfhV;`1EdK`87R9Uoe+y znN5JzvJvIUM0?=zO#M8Oj-@K{f-|0-t@9UwaJTyPH+! zKm0uUfLUY}tegP5TZ5<_n5q$V5MY1RL?(YUSgLc`fGSpp z15_bcFn4jqn@p#noY7Ip-QdmOj<85C`37Twnm|?vuz8Tv7!VApEUxJR^Z~Q7;z}g_ zE|s{-Ovq@k1N?emA?NX*e8DtHzo`IQQI2RXcq({ZMUVFb`k?_co8%PPYI9efJkDN( z@}A)CWsw@o5M`Do+UwPH4Fs*Q0k8DJ4mrLjzHvN;@1 z*=an7(*9|pEO4E4O{tWqQSD@5}rTDo1TFy1_Et350`n z0SKf1kk5nrS2s|V!~B|_qc51d$;81X&f(T<0YJU!1~Pzq)aKVh0+z*!D-nzvzU3+p z&oI#LuZXVhM{9FKD8bxGpIi3A3Jx|1vKx3&8v|KRgc2-UwQRSDpGI#Q=;&F*Sz80u zgN1s@C(g2&-zb97_9Iuj6+kZ^Ct85iwX0(YEz3?(!CJk>6&K$H7jCM7P9n~#>52Ku2)2*L8=RLcha>Bgc_ zeGIhlD$#Vv2LJFs!0!Zh^og@PcTJ5NA45JE%3#cAeOD}>0qjcw zb`G*yUjw~4%s?~#454NDtjQ$6oD;a>&PX7!IBz)EK+T$kFwP1T%Pda$-CyCD!kT24 zfgUbnpiie5XcUSpy`+gVuS|`~Ggg!!BT&`UMhQ|HoKQL>V63K2j*W45y6{qeL{+YM zVz_}e!lJ`SBpbgA0!$f1xStO)Q2>t*O??)gAxFl>WWyu2TkKY|)#Yft(m=&F8|dmm zqMGk=i(-G~BL&SKmFS(v;rt7lwhW1=rt*u+MQ?kCf+o%wSaN_AXY4E0p*PB zYYp@a08_y&LKkPr`EjVJ6|e;&o~A>N0e1v%38wP&H#HU$z-4!bA{b>;yqsr`OGFjp zush8ld&18KDgdv$Le#c;;KkJZqn>|EO&~sC4%gr$iMG^2sj&zh(lLR9y&dcM&ON}K zj^+~$G$~7>juVm3a2_ZR2XXg_&^a_7}faCu=7}ZkW zX?B=xvej7z!B7vJbe$;OD@gnSi}ZR&W0@sYHpg2tGU0=`(13SXEMHVH(7`=K+rA_^ zg>yz5p5s+aSova9Cr_ogDF*r#a+TdcHZdV56(ElW;UEn5dmO2Voyrx|GQOK1>24+|j~Rp=i^V@CvQ8HSGCexu!L zod)H@z`KVVXao4;0S0;zl2P(g$OczMzo7fd{SQ9Dn8GHXV0gr3v&%F8;0k_1LHtFw zf!;w-rU=KU7Qp^|*Ru+_ADk~3>y;B=Z6D`WEG&Rk080YcmTn=8vlQ0VF2L?)aK&X& zWX(rDdKpcoR0O47^1B4tBQogkuu?Cn!6-ZOF9$NI7mrBIKA-1{w+;eJo^_0Sx&} z0qa$QE6#&V0JjBSKEkh6+HRzu>ZoO-^6&2@eJw+$ivrd+j4OTz1@Xhh4KxSRvXx)^ zx1xc19aBiJp1~Q#4-TV9PR$bo!xS5=bh*P38P2!@G;>`RhtnyWT}BM@ti6VoOc}TX<9G=#{Zzt@wf&3Y zwD}peKKo_3L|5PuKa!@_1PdDQP*DDyCs<5oVmd}F6tHf8^M_lFl<4Ld1Lb^!c>7LO zrYP}O`hu~tQCRlOvt03>&JsO|IdXfKqR$ZtLofM)<*Hz-tQ>4=DTzLRQKI}8B>J{a z2*EPYu&|p=7R+|BbbgwH^+fP}gGR+*wAW(JbMGpAzC>U44J=4~EX#m*rGTA8Hxi?L z>(NoxTB1(@NI!6}dBr7q;ErbkxL@%4f-#3jST+?389n=|flif0i9Zrc5WeAHQ>RN* zeSa`u88LA=817dRNCh-+8I3{W=spFmb!mzA{2W-&aSiCUI^+jt5pB;iPzGf42o5%(JrBkb3k+1|Z?(AU($+v}UZsA|_MXA) zw`IBF#o35Iy`&}(SZ0zl>`53zV3t`dvgEnlq zW?~e#GivBBaL(v8j9xJ6Dix=$!!Wl-&?B(wPD#uZY^VO2YF?IVf{}yeqD`%UofkEA zamXV}5rj)nbXmEw7Te(j9aNLP0(vj$3x>{3huv;B*`20W7xPz}K|TmB2{tX~`RvnQ z(66;ENU%IsT(Ja#V4U$52fMfkBe~#WNERXq(0_+r&Gdcpf8T=0T z>_cjt@VovWeZg46LV(>C1@Tvqd%;i7!(;|DF7%Qw7^|rT*gD}+O@Mq3yl@U28Z@8u zk`Guub5aG^Oekm64&An6asCXr?#>Wemd~720cHXSBjaqMD3ts*uo>f^ddb%^42mmY zcV6XcuR@*!hs{Ly?O%GK5GrbY#xr$3rf9HyX0IAeVs0gDboqI?GZ`@Q4+#;R5W(SBQ>-KLFRd!@*9UB)Yvd zNXyKalPbW>uRuAY`jDfiV+uXw#_#zxJxA|2OEsgoQot$$fRSM;CM-`TN(A>l#;;xc z46|>y1Zx?33ly-nP|m0&Wb7oOvf!(`_%%I8U&}CGUjh5~e_Z7i$aCNh7)L9)mtV7d zj9Pqikd|3Aah5)TD~^P;g0GDus>S(T*UL>mh649zrDET*wYdVClWtuoE4**8jUciK*kwjlXp4h;zz5WjJ z*|Z=nV-sK%%YGff759M520Ovc*Yj(7jy{%IHF4HNfQ=oB8BMKpMk9-H_(zLue;R)X;g02rNte6Jg3075?hF2B|e{>a)X zL0V?hA~nYd*hraW3-N zt4djPU!N7UAxu|DPve(epkvAa(S z(lWay&b~*(ozViwR{=H*{LNT?P0!KCGP@?96+k(o0NW343+IQ?QdB=v1_ui!{6-dx!{WK(UXbmYIBfd2LE>{{P=-iZ}zC9z_E~#A9eI)AY(kH|8oULly)7*$Ar@92Qp*U%cN-EFJc5qt2AF?^ zbG_taSrqz+m0-+(az@dR4)E&wM4y87k}sI1S1z&^SDRK7UNJzXgAE}C!vHHQ8`1l1 zURDpzC^!*Zt`5=N+VDfbj1nP#3$Mg~_<8iTOjClifx;%>>R=<-3QJEt?5E};9`k#6 zqy&PJQA#jiYUifQDd#07aJRr^b2)AH{TM-?F;=4H#W1C&gX9ML`e2w_&U+JMA>Gtq z>@iWIab79)!?Es13lC~AW~xh70ObaY=>(unDDkIAbQA;QRWSU&!&Jikvf(3uc2L0z zHQwXoo?zM063xcHTYJVpn=$%61^@odETdc9;aSsHx){qX^Hp{KD{3&xNFe#SDXcpQF=m&| zW@pX-bdQ@Q+KS$tUN~pe(pB6o*WQ)r!Zp>hc-*fl93=MxIDFPsIpfj`tiYayiFs}? zlik)A@l+CEk7DNE^|!DDVzz-!|H{D%UY6+YRTa!rZPCAc!LaIB0h2J3?5atk#*Y|i zyJVmX$O5&IFc_UcwupK&STMKyjbMajy$7LPc8KVgeJFsDDx183t;6g*&bEw3-{Ttr zg892t#UbLXX=ujJ!qenbIV;Ij*CAsGpG9`s{vIRI{79^ShZPSX=`)&thi7W{56$5c zo^4xMa{;GsJ-YY=pdjA*pq7>sG6tt9#>lLsTe6WFm3Otb#15bVZR zJa5Il0g!1D)rNJh!9jre8)uo%@gVsv!!u|Cv8~Xu&axv{&P=nXCyO{U$&PEXMC}3c zJyK&aWC2E(cc8Q{g7!-i758#rU%k#lMtNKX^NursH4@g;fcz7axYi7i=%WXM2u7to z^NBNn8FINb*K;KL5quc@U0a^1cWnuyHM0ZEX9}2R<3XN409FSxk{DHjEC#NQpgiv2 zmeo&|=vZ`sVE!hM3lDPO@vu%Wsc|MFQ>WV^vT}I>u{vFrYM6i8xROK{Q7+cp&Lexn z;8I0m9mX83@2h#7~jUmuj48GqnKg0T4#Hka1uexVuP|{7zs;6^y0E zR98lfRkiF<0k#-c9bSdTAUJ$<2!he41c3vz2Fe*NgzOKV0&b7;QZM;h7NuI&Nr0t7 zhJ&ZW!j08}0P{CB=8FWf?QOkwX=hDf>7|?=nd69dTV}#MKu2rzQ+@sx)}OtJfx6xt z?dnPJ{fC7F%oZhQXJ?@S&oZ?;7#mIGVCBZcUqnCt zKhI!?%KD)MOH#qEKslpxkY9m!z<2B$QZQD<2+NlC=V0G;!x(iBqQ(IGvtAIE`J41B zh?I3w`~m(q0z0Y+M2@h@85T=!0W5Q2WgS*}*4QJ_)2NwmH^b%#8+m3PTE6JYbC($l zsmgkSZ^AV#`P~>?Bwn0Tv*=P^tMtFlwU*_`>3K;pwz>`z=6#zS4s#3|?331FF)3Cb z6o-Su=*CA6xMkUwOVOsKYMXk-P>D8)#)ta>9Eu&%Y1#W?`B#Nt%0{*FWNVqyQ?g>2 zWj31&douhySEAvkBGtVz)%5 zEbbAnzY<1G>#3F%nsbj6U(0e-%lbh%Bm4g(dJg9ivn8rfl3R9cr$j>^3J}cSO#Pq; z|F=cZ-ot?Zyrr=Wi?=i7v}kt%aoA)TP${$EWeC6TDSoF7GN8JjgXA` zC-F@E{cIzJ-%=gLTy&yU_38qA5!bZjcX3r^Ie+o);*cbLSe6k9o492TlWaAtk?6!~ ziOLPZ!fi-Khn(E97ymWVygF)X%ta%=Zey(-=%f*UP`T>2Wz_)8=*5UoSe9A1Z-E0Y zh~0t}vyVk$gaTX^d?P~nfBwr7UU8_VMsF~?Y&i>n-yb3R8N3r5D1GDg&b`1~tMTxg z;Hlu=UN8Cs{F2u@_W(1?Y*oWeR9Tn6`_!t-9~}2Hr@Y>|2bk5o0S_+#&jk1PdeI-m zm%ZNkPcW;=VO!HrqV;{z-HsKkyR zr{(*e60Lp`h4CH(-R=^&W#4!6eCNNxEN15-05rfzg)75A&x@`le=Jg-S()cIn8VQ# zKI2E(7#hLavjth6FDeS}CI9y7Sx_yLBXdkxqm>_tvJoYSO?EiupF}S=UN|(yKuf;o zYJYr`myHb;6{GhaRLjQMxL>8TC-g+|j&jutEIuobRh|H|+RT=I=+R;H5x_Qp7lW_g z2}RlHwk$p?->F&_h9u8u_9+xsuyO;qZ41u|(fxp*2fs`GXGM^_-zM<5Q~rw@jF}GX z3T1XAr83K$7N^tX9DE21fWO6fC-^0tGfH@fx2ZqhTZ{%+)FPq>?r%2nXOv@(ct`oI z0b?!Cw1gO01v3DI(I4Mn|KYE}Utt%NI^434aIe?js$0OHy!X);EJ6hv_$7b28)OzZ z3OpbEkBq*?`GP~if}!_Y2}TDLGWra`(FEr;z)O$vYtwP<;0pnQ`Rk;{i17dCAP3WP zRD)5Da>)6KX$dY^hAr%{=auUl46F`AQ)wvnNv(?VkqoU=sh@1>Nvka>*?GBT31<{8qF`5fb#yO+>3f!{2 zyGqel6;;cc;r=eK0jO^1@YIsumQ@pArT1%J5A0kMXPSnE4O>=Q&Gz4(lBn)y63v)z zpw$>3WAwx{{U4xu3A=rofb8Kvv3679gJwi+bRHv(YAdOy^C&& z<&c^G<89g1YmAh2Gr**;HZ0H&k{%zI&3brT=m3#k%tfcmxor|X_GSoDqqdJ&0ZZDz!P-MQ&`4I?`^k=Euk7BhE~$P3<)Oghlm?PE5nN8O|H8#72a|TKA0r51ItR!QwH9 zAi$h23b28YgVAI?yF{Whq3LvC!RXA5!mJ4;7#CnJ2%}Gsp-W<<;s&~xnhy$DoB<58 zCKRwGBe>!;jHEAMy>75@(-R>}jR3>ED+O%MGaT%tArdWxMM(g=ihdEjq=_>TjF<(e zfQ=o%6<_Et(PHcqvIz;L`aeN{`CC(8>%&3T9S8zUEgLbdCdZbVjlnvT-C{MHW%Gz~ z*zN(f^_s`98Jd}cY~RGkK#sid0F7*^mipJR@5BO^X8_;9$i0>{!N}(DMCOHK<3Y@H zVY7H#(*U*_U?VYsAr4^jKxBdKydZuJ&7n0SqRO-kO8hu9b3w){Mi%g>GtnmTSi@zG|qtpNYpcE%|NP z*H-@GMFFZ+;_tZ{XYQ>_Gjn1v@Pk4hpLMgk##kikj?T;-=*nA&b4FL@m2t~;^~=zM zcU8;!G?eJ!w(eVnhnz>eEK^e>D$l&sEC(B9a+#6W9L~ch_`{<=m8i*n6j!J`a~kkq zblQwG@EH}X5aAvts%3J76@v(AG8z`L)8(?7Oy+)TIoPM@k!u28iYn%h0U;@_1Xy7( z+T_=voY5r6Fx1ptA>UgU8ZdV-Ivq-!+2osW0~lR|dS5qSgRw1TNDjlwk29fjBLW6R5u!4MksZ^aPAr0L&^}IoF+1@B z1-85x)v|vUbFkr4C3*x_b{!>AUPW%%zL7?1c1$-I+yYyw9ZQ_KTj0Pphc9uk8<@E{ z0yC5{VBwTA{F>Y301uj^FTh}#+Xn&IooBh?Z-z@Wpg^MCa1*u<3Q3#^Fifjaz|NzF zW^^1f?P-asjl`VPvY`aa)_@J>U<(Ie+%s9Cm*A81N(&iSy2-{WPv$ow825-K&%P*3 z?&>d56za1tmxV0O0ESGhfbD;ZE4~D)Uchw2{g5LY2Vt4NKFGsj(#f3aL4c{HKDv{# z%%<=Rp3fW>o2fR2q%5c=reJ2$ATd0(uLiGTyi@)D>jqjI>v{FFVxB>+N%{;dHX|4F zL0ECcz`m--AATM6*&du9tSix&=R;;0z(fhcz}|v#Ml&H_22V!6Rs3xZHup>z_5D4- z62#v)+g*kOPZfF3Gr;`&2>CNC z`y4!_GY9+dr&84M=>JiiT{y~tOGkSqXU~AU_b<<2%(5qEV}O-gX0~3qg-%R>)Il$* zUG&OzDCX6lF7$83RJSOv`5>k>p5UHf*}2K#=yXxQJ{8s+!xtV>KgVQBc*YNyLl$QM z%TvL^_K7%yRoUQSU`s;|W^eoe9sd0PD9+wRXBng89YPXkkuEtkHK71q?PmDI_-2fK zJUUs1_d>;KfDeK`M@CJ4=5aRuozm3nSJkrJhv6*`;?F3@BeZG67xf3fL7W zXH8691qh=7Q!wQa=PRaT`}$$_c^GkQI5c(Qi~;$HFE{n{z)8c3xHODXNmu=_mDGf`x%68%~3 z8v!2tE{Nah#({^n4T)t*xpH#2DG~i3Zp*M6_s=u2jS)a5fFHp;9!7(D@KMwfxK?iy zzs9bA*V#Z}ULDdcI;!{CGk#n4MHl|!kb$AFOf!8A-+!{W&~K20F26x(5|xE3XRrlc z03S{8d`FWS*&>{5YZP2Lo5SqHdTP@#^n>i&jV=j*%@L!yz02|XEa!R&TIEvnnG@X@ zu^m`osk8`np_V+sQcaE&l#L2l9gKA{ssyxSSGhiPr>U`)M5P2u7QVgYze$Cv`5jtj4+G)M5uGeAF=#ALk4H5m5u(DWXK0r4trZ^2;tp=mK2%9)n zcmJQl!=<+hPu(YeTSlw-i%+4)Krd+%2)Y0*aZ$Xu!i*4;d0roEdi)NyQ8Zy556&6g zNi5p^?vH0WdbMIYN{!Ls8mS(y9nP9Om5`zn95W(H>4F2nNlx3Owm6v$d7{+|1S z!Mk#UVMyz{C0xw`$mx-ARu^Mxw#W|SIuxh32CH%A51`+1mMDTGZIeH0i+)C9S%yxCc>)?6+mL8}fIiLaAQTSQeWj zr$*aN7}COsxXtXcn0Hyw15njSjnPSVOtjUOJ;d9&_QfS>Mw%LD)f-FHd64JdIC{kM zwW%Q`DyEK@tpE|bIL8ioctqlcSG^hQ%`CX8_YWv|_Lm3A!B3uJ%ZM4<#At z0Jd0pt{J!J@?$*d?-*{RM!%_*=R~B|v12{a4Pl-^?sujh0cDIjPViLVss7%-G?qo= zn9O+&d?n0n8M?Msh`sD{{*sR~4rxlhinS5zp@NDz1L7=LxO> zOGuMb@^kZ1#js#xU~h{4!YPouP#Qc7xvX9&dJAL$hSaEly1I$tnMK2g9bMe%P((M%$X|KqW0Xf zS0TrNp8;13rDYaO?RCi*)57P66VrHL|A8UlSIq`;0PJQxugt?A@$2XlXI6Z;O98vo zmRq(+Lg(hMXwg943dsPg2u3UW*qX4c#R2|@>p)h09~+GC!hV3|LQ%yiU~IEU0oDh~ z8Fl{v+XDma=dGAd4-55@PcYgnD%c4qXEX=?{hc+K0l1E+U!@RQW@EdF3d_zyIioKj zcY})oaO`LNnx3PtWts%?r)X{dy&S8v77=|5x%i(DW@;PTZdO?K+kF227tKSwfk%UT zql-c>`C6t)AX!k(=zHv?Utu0Py2#t63C|jV6UIuW+!{(~0Ta*So9izw}RI{5)xluU3#g2 zMZ|C`Y>*AXRTzs3mEQ^MsOB?wag`v)qrXuBYZA?sJq%e6d?$)%!o|8j1v?}Cp0BQ(sgF;y^-4m>NJFZrOyweKBRs_1*$LNJZw?^S8Q>H6XwuR?LU{GAK zY!?91I^cseZBT;Xyc_sv>yUu?CXg;pt~e9&0}GZnJMfV_6kU2rwM3$l&J!EUx_RBW^GB zb_Aea(gdRkdrc%2L}B5SQ+C+QHjCrxUWvY%W2E<=#+RJMpm?bv=&A!XT2Pu&cd3?* zdlMVO_woE2RmbzXPr0fA%L|ti!XsRmFrqh?{fQk#%kyiUt2{vc z)~R5M!h1=-J2!vt!2jhFO+EkZy_9?3Q!Qhin>qQ`2#mlxO_)WDWr`7zn5o$bAA3T{ zQL7Apwa%fk?vs^cOVY7f6$LJR zL2|TsK>9r%R)bMS($9{vMq+rxX~NnOo5_+r3Q4}2kshsQpdL79)cQlCTMn99jy`@w zjWhWrOiRqeM||cLPk&OP zkKYJkFtU&II!$I1c1*ArdyuE5>NoL$697F8F8>fu`-Yc{v|zDkYIFaydmMb?%pA+U zs^Vk=gZ3U!&S-acY)H~Yq8R+nfz(UBVA!`n0gDxiosfTF-rG0ePA~FcJXFJoX}&?m znbrNxI&RtLP|j#OUV>+ z44;-zg7GggtNmmyX8(cLV|M!tNWJ7^na%y3L2g-`m_6o#{5wgaw-aC)N)kqYOveXM zRt9Mq>yTC~dmYLdeH<;($|y``h{g6suud=eT88c<1?(+sBfv;@Nz|qm;tan(8OyH? z8--QKD}uDl?*3*S4@L<9jCPdAyvB0aP#2&ZVVz#`vCQuN;48o!7W*$3c?t10*2SFI zj~UW`7^s+7iF^e?+)v0PAXp5X^;%=89#Lpq$am z^D#3TynHV9V=uwMRy{0H{kFj-eQaWE%j4;(^W|tuSxo~T_s7bff1|#5N4e?+mJ(q>KEui> zj96Gq4TLpuFJM6j_~uA#aPcKija9I8<-%dz34~b&Fie0|zS_zL1Z43_ydhNb&nBAp|q$^EhKuU~fFd!MbA=WORms4)!+C z+4(%qCbh%%iU)#>Gcy~~5(#7nlrt)Yan9$l>icvT%qW}7!G@KP=;Y_Yf?*yp17ntb z4CRdOJc0a$pj?dKliG2xv0><{_$*j3tYuOx8vp=CMtoIeOb+%5$%7x#ii34GV$al1 zg91y9b)a7#VA$EhX^8*;qh?qdwjO-?N%$dBNLn#0=>rVg^SOi3;*?_m!07KR_>Gtd zn+i*>qp7Qxyb9tp8$PUDXxYU~4t5PG@f^4|g7alGb@h@jm?#^ukF?wr0F1W5sz%@j z2-Y1s7MCi2&KC@RqY`Hir*N<#Nmw_Sh&CE5ZFoGCmbs^6^8_*v0F0VLeu;U*4U!F1 z<67vzBIDukD3+}N0HcwRUBI6L)cAEM!PsnDmZ=eEo8!3RVUS0n@m&OFY15FU#+;-S z3~4ErJ<)-K)q_j|*mE)1N?>-#ECU!yeZ{h50T$OD8M-aXMeyZ@p|lJOffdV+KslpG z$a8Jr5`c%oHPB05NgtM>rdBN52<40lu!6NNxE1(~3PD)r?*Qu&CkO6f4+2abKf{J- z`8n2H=7X5Aw#eeJ?L&z%43%V=kyw9*b4IDYI$*TiIAd3IZ0oIc*CyYdv4DJxhl4%fiH zd6+l6iJICDkN7IqS%|O8mW>OemEP-#+<)!A4@Jfqs%d;`&?axa#lcdpz-I(kx`dVE zPHx$$sz%zoTd!rA>}wC1(aEgSMZ}roA_p6K0sU6L;1gG;vD@-W9%silVoYsUuweK~ zm;yHK6bH+KeEU0OZ1B#>9IXFR^o9oumcquVg=LkYoYB>93{>I-S~93O-yg-nURaEg z!X`mlmco2}0aoGw2mA6fGy=h!z@@}TpeoG8{+o$n4#0n>36DF42}HZ}QUUvXKL?w! z7~6JyWT3r^3>1HrXNMO$V|&FmI>E3Sl4okxun?BrMN5-W6ZranqBuGaZiD?M7_~t$ zR_+X+8{)p;$HDL3f*PWnYZ;oZ_5@kZib#rPy>i(27zMFw%L*dPyVx41Khf=#{I9qE zn-8!)d4f$DRTIdz>L27luJFw!UTfvQ)kFox!IZUh@BR! zamL;!hmpz~Vk%7y@M)gn=?AeX>t06~vk#k#nhGt za!yh$^9NJ~6Tz6pra}qJUcvNTMmMmSV;{KSRcyI(j$hMr^aVpRR{^^&riAvza)&3t zN#Ipi^}z6Ve8E^xs<15a75-3F$huQ8yLK{>^>paKa^hIoD8Ojn{LWBi>=WFuD9km zqJKwYOAh?5yi7Nic1|kK)Hzuy*c1RTdI56F3z(1kA~Ly{`+aU4zVA6G$fTc(`5=mA zH37h=EaboN8$ZXIi#7B3H9be4V9aHMbs`wIi3J_2A%_jcN(4-xOzmuN;~c>7NU?!I zT9(HK>jYT6A^iVWhAak7!UB(S$k=+x$Fe+(z$;*Fp`1|*$c2N5egOZ5Mj@lmcVG*# z{(3EQmyNM0cJa{+mKrNUIiq6(v0P;UJY(>O)A=<$N7XU~Op_X)gK|bYPD_596jzT%3D*&p~gXjq4o=N$4;PFe(puJ{D^{ z!9%*ZFX=k?Se7fk%fwRS#Tc&hR21SX0@K(a=fE{!v}O*heJohZGzIa^4sN~Vg8ZQ^ zK5H9^!dN64ekZV_k7fB9hi6f1t}L?^QH&Ff3&_@R5g6r+M@8B^NXxM2W?=$xKslol z0J`bGeyNbF^Z7MBM_;ufF={VldLYA!}^zntNaD>Gcy=622~BC;qXf?H`Z?%YkB6xn}lVk zJQoPC>5$t2wi>)UOX6rcj#|syU~qT}-GUV+t}#)DcLkv7;Am8!ddUaOp~M+1n(crbJJHC+F~MeNi}n+9=34bFyw*;azotaz^Qp zkzfnh)sA1&bMy&DCk9v*uq%zZ%Ki=EdOv~^1i#C<^uX|Ue8Aij^H>#wVC)1CMyZhP z!7TyU?eofEO2P^^$f!%Ha zz$OT=HjtAlV>lA>T7n)J{*Esgo4zIzNG$w0*vj#cN+W!cv@XOF#H`~Fio#qny5i?kPbHE+yZWhl&P0| z!LSfm3C0E@v6;|}u7&pXX~@pPT0MY1V6j+Zp=9bZP`(90w;22w_yPdaAQ|0cz~hVa zAATNv!4&r!#Z{dLu(TQc0QhDpG;_fLPLK2W8$MumO{w1$${Cd}2}c$D5Pqk?BE94T z7LT<|*!jWklx@xu0_-4wZkNEv4Z%Z?^UAZ>dqh9(3$g@ZpD9oh$SEji^gg0yC3p_F zE8L`%{HddXMWAY#GCYDQ8cHy(gF;42AZLM}2Vdb)#%~08^m|B4Y|&0lf&nY+2a#Qo za!O8=nOTM}+{-45tLYDz#L(PGkIcuE!-u#TVG%q9URqU>W{*`p;d4NUQ5De2?d@Cw94*xt^s2oU`R~K#xNv4 zQec*`Mev5Vx#CYC4}&KG%sfrxhx=(R;=UJ{DLG0LjN`>{;AY6~QAT?9B@|g=FTfwx zmY^R#)Sao-nwnXLptK)b%Pnh+pd5hUEB+xmH&=(kGR=GtCC*m&=4~<40jylzf{GJh zD`#=A14~Mf?E{^bX}WC-6Ufvn9PB+Lj?GB>9bUmFzh`o=TSH3FgsnQkIu~J?Q>46> zV~n(JtC9BYN2YGW!M@5VLEmiF3nnLJ$a%S$iELz0B>kjyJkB16{ARV0=5524_cb`! zlI#-n$6UQ&MOaqxJ0tZ4(8^;-AV`Tv_F*w;YYtY;UV@&UqZf=>mYYzJU{Ni5^rDff z9m4A3a3dwIL+f)i(KA*Kw%k&JuD+octO(0iVF-OeF(YjTuN#TVb0eJ8svPXbRcz+} zdI-VZJ}lAa0Q#npkzQMX-hoe1#Y{k@1{yW4IQ>3IFPO~BMmuZ3iv+R*pV(Ojj{eC= zQ^um=1mLQdIoP`mMiSFqsv^ zC>z=85n)*bz`p&_NRL65ScKLmENj4g1W>!)#VMknUa%r8OW1EDGdK+UOALDk@iYaa zOyZje@d?Fgdtbd^BF-Fa4v(|<|KDX?jJ7MJLqZh0Q%iczY z9t)rW;L-pq=!Dr5m$?@-_GB1!>7^G;v5a-P2+Iay6N@j`8|f8*Hby_l?GLcW?YA7P z!j3Q+&?!hTCtF!3z&=BH7`EI<_1`hl(6_KF)aU3z+Qh+*EeWF^p9mHV6U`N{a?6Z# z1MWcBQX?HjiN6U2@s-6KY}s%G8{{c) zlW|0^XM_N(D7PSL3I}sQUYKa4lw9m@n-&7F&hDBTmT8jyNdPc9%;XRweUgao+faZN zW!djfbFiNvkArK)6D>^*jb*$bW^+=qu=U!#gKu){btid1z2eS zF#5NG_6mzr%t6^LL`T{Gc0`+VvBSHvTi9qbBL+=g1k6DJf`qI;}RF%jK{> z4kvZk1^A0tvN9@?Te<2@wV9+vdgEJ^G-!BesT&+5EqQ`vu+vXL43GF5jOG8}z$@S5Qu~knJy$Kuv?t5?@s?~hztQS6k}pdNp* zVr}f6f%6=2`EXTPp;kXnG+^Aa95$I!SQah7tdPaQ)$3xfiN-<1Sz!ZS1Y-{CbP-^# zI^2p!AwPWBK&!#i9tkCw+ezhdwg}1@b*YXWy}%EFE1^-ZmwbcKT@Z7yvQX|O$g2-x z86SAh0`BYU0n~!UnM~HyG&Uzy1mn&s9ISgKe0duj3qFT+7J8`=%(K+zmbHR%M%OCh z%PQpzv=MwZBum2B?4*pu#3Xld#le9i>P-vNZb`k^AB>jp4 z>{JQt<$?)9ZAu$x*6a`jBO37T5+n};KUS9$wT#JL8p<~VczaBYi&Ye znE=C1%L>?SShN@X7I<2513e9HSAl~K!!_$b?)Uo}n3`ZL?BOW{>kj3NvLIu@F7WsU zJQ(MWDMee$sAZ!+fLbtjFy^DCw%Q$5*@7-W0alhta3@R>iXaYlZg(+CDIF{rdcT!m zJScI?)2WF;z~HV-ndQf+#^&Lph^GkTbzAgGax}ueomocqp_?0ZVdsy6{Xr zT!8h3jJS(Q=HS`=LkXtI)QzE>(L<1B!2kY>J@yBO63p$Sa?1>NI9UIG&@FKrpSA+8 zeLgfLh*Ihorp6Q~XVf0@%3l~{h3xb-x6JhoJ}I{^$OMv%@iQgq*Sf{Q%0WJR17p+R z5{)=m)pgkUaF2d4AIlzxaz;sz?ZGA{zv5t*vEygESp8t`q@RM>Ns47Ne&=8UHevr$US%!@x^^!K9DZy9> zmJH>LIzaCHjp#M7Ej1)y!ZLivLJ7tzhd5Z<16Zo^J|>`ii1PRY9*l8+;_G~4bq1rh zY*fJ7Kslq807?OO08d-O!3qvaw0NjaFwd@bo~cJ|;b0{oZ*IoWG1$2#1i@I8W!<5i zQ5IyMiI~Il6sC%bg{J2h;Ol!sbX&&Od8XJSG~U(dG!8Zn4fmmS;nLM0GC(rgTL&$i z%VJEDU%Kzn?~%c8#GHb1)$XhFKOaz&KHG{rIVUO`n~^wec6?mcLu6BqJqtRD*FI?jJ&Tyq3n|I18}d*o=wM7Rcq`nFAzR&06z1NdxA>XaBPD z3)puo%ud;A!V2zw9IP>94R9Io%o@Bq>B@0@z4RxqNV?CT@CC#4H3clXF9*BU6Fb0m zlc*hd;cKDjPRev!Rv@#@B86owp`1}&$V%YsP7*zr8WJ!OXP8!_fc=`!!G6IWx8H&f zg17JCaW>$yF#4mFnyK#-g8WabT@wr}JttfPwiU`5J(wj?3Gk&%cvN+`Wt+N4bn%$( zI7304V~);XZh=URqoJIUJq??Af=i&5{;DMJyK-Rhwxw@?VE%TLT@`sI2b&=4B~5Cy zq{wodHH&SZ?zYV4nAJg|_rROsoGyiA^vMFAk(=x&PK|b`an=$m$8UKV`erN7KjwFF zwWl?I(IJ9Xk9AthQccdpEccf8Zp+~Jm?Wx+f872PqN!F6Ht#u}sh@o^jF!Eino?et z=zv$}j{(=T>&(C_xe|Y1ogr5bSaz{$g3|P;&<7hru?{eXA%4 zL~6iiP`(Nj$nfy5Vk)+f$# zO=>Vkl;)PT_}M^p!4<$g%7vtg;g;pH&HROBMkr@=<0k|C0zLt5Jv)TKi1lZMV4p)d zqaBdzz}wFo=x;HA=e`l(!8aIFRj_qX&gkDK(Yd)Dn-1gr4u+_&6_?G*1OD#JOJbu?&m13&Eyu!6qczu#-9X+8k`lon)XXlR20Z=dG-P zB^F;Wbd)j6WbC7{C4noR133^piT!>mgb5_Cu()zsdc|=tM_| z3^DFvg8Tv_PNTqIJspZTlOrNbmh@yR>uMKZy)m-H=yAv-a2xQ{uR~&)uMg5vfEmz7 zTq6u+Bf8tCEDQyhVwtAY9|7fz`ayOAU;7&yN6z7{0>2a3(KDYR&g>enLpQmyD0JI8 zz>UGR!$M%0rVG%W^jYOu9m*NKbp@Yk{0-X){D6=3ejGB(@^f<7IJHP1QBcn4*lBe6 zfj5JD<%A+NvW7)geoih1>lC-(<5L`LJ>(MbRCJcj|1t!@=+SK}EE^?y;)Xyz3C;#r zLT8I!Doh|n#aWC1b3j%(ff<0{+QQ?~16T-Flw}9^a+M!Lt_L^UgMQ*e|3{WR4CRc< zLhjv#hT(1mBV0SZq*{hdEf<(AIc&m^h_g#Ox!TH~UaPJ!QgGX$1(R=~2<)VNrH zjf4E@V=M#)=q-50dP%iRJHJs_Hgr2z+Y%!eCjd4DGdDZJVbx12m|~g6;aP(TuZ)IZ z#6rSALLGpXftRe8RInl}yS<*P9n>F_U%?sR0>qnMQo$6<*t{zdjL}fe$O(B0-3*7o z@Ac!?^c?-}ba`I%X~`lgwYF2)#X+jRpqKFz`0<^_1rSSG;O zXTIGX(hg_8Ydjc6Kt7mZq&r6R&;_yD&F=*AtmuH5HOn&|0x?dt%w!6elPv{K^cJ{e zE4%`$<-|oJollae_$7P~A(4a3e!6Ut`ulCe{E$JOxAyh*{9|5V&TtcIY6d3bOHdVZ z_`~5y49`K?&X0|hhq>T-$rsG2TGsmvORL8R0slIhIJggjp4x zRm+cJ11>G8!N_*)Ey#wQgc>kltwC@LW?gNIMPdJ#xV%oi) zgWbULhZ5tBbaR}MT8Vz)moV-3i!lKX9c#v7+?F{oO;oWg<9QBt6hRb)^YOh={*C6A zE!kUwmgK2rqdzA4ovEwT%%?O|9I6af%u#BS6t^WzKx*NOB&0vvP|Zf zm_&3!JI-cd z+e=2y*pOHj87>zj#+%WT>VjEV#A+Me4~u}2+}mRCVB;_j@^4?Bkxeg^rsPl5%JbW& zum%GwxwQ1YcR}oLoZafg!9IL9B$nYLP&xK^3+55KWEZQl9Ya3FXU7H@Dg7|!ePae0 zqucv=Jk8oun!4N6INP>bqA6W5Z$wjEb=l(;XN8$sW?&HsJX3S9t_9qR*gPX$jyKY6 z)M?+p5Q^eT0mJ_Kie&~dnEIV$q=VpX;C?+hSiz4*`e}yO=$tmfia6IKePJ0|F$&mP zC}(sM3xP)>)4p~dpGP%vu$wuhX~6Sp0x3eb&n3T;{>J${{7cskMFKJ5W7sKHR|Yya zU2s6GSa4q#Q`JhH!B%a-JMHXQx7>~(CE!075>&!F*CfA3#v zoWbES$@vjx7H6=`VK>QV_86%ihKe60iJE-R!6HZTII|tEKp!TnmbGtVq))wOn+=Kf z{9~SACVP|#z26F$@i$D9hhy{1r$%~s0Y0jXvU18$&!D-tEuME(FxinHCzw;B(QT`M zbr$WjHCXRidZm#zArB3n6OsfXz^rI8nH)B3>Ef!joCibYcZ^gv1B(QZST?>I1em{> z`kzib_&Plm1Xy7eV=^b0WH~AVy#+2izFv++79}nlsmx|%>^b=O!bjZ73)w|Grf;0W z2kE_9Q&05&uLR--v!r2?S0Pw76wLTTqEw`+PfkcQZ@7`BIYZIRRlr#LOj!2JT~sTL zjP$oVe@CLotZ@8GF9CqCB%7O=u@q$44Lw+ayj9)p}M7!J=DAE_Dr7sR)g)L>*_SsCfktOT)Q=P;{mJqaJ* z2(Y=mF%_yOrb2-m5Ajr>Rd&B~EtpkKN{dN~S1p?*bHyKF*4@2i%{dGT_dH7OysuG1u&%qD!PbbobxmH=(8)(>JMlE(bi zw3<8^&orn=L)NLmSQm}ZElB#MHEpz!UYXo)%Qgd;Q9mL1ufUEP%do>xip?2Q0Lv^+ zn^QJBZ3Zj`KsVAs463%S#8ctn=6r!n&jnQ|f6zmPXcrKt+fh^RGpQwv6|EmFsbD5c zvYe0<8R=5N28hZt@eTB%!r3{CTHv{|UM`eY+kMV`!NOIr_eUBj63wNG7(5u2Vx&|I zCakh@urZ&Nr&+0LoZSbcaHW#C{ zDZzpvQ!8NRZboX2uJzT=V&AJxMv7@(jQ;J$!KNe?qgBblf<>!fd1zD&d8`;ci+;mj z(Tq*Uc|&2@^+CnxZ7EnVmd`|L+;G=GEdg)>KtH32TNdZ@XLHM}_yfOe4{QL`H_lM% zD`3x}9bE}ZtHR5AekHyk-U|(Si6@Xoh{KVUb%R+g*hM4Jq)Gb40dn*qBjw(bXbDRD zAFiS6Jv6PD!U5Jo%kEy{nKB#l5%9Q+SY{N>E!%mg0zH?gJI-vfoR(9NY*vFY5&esd zT0{QwwM0hrg^bzYgOC z?N=XEpyKWIf|+ayazR3Vbed{eZzO$2k(k{wa)v~2&yr{^+o2WI>-`E;K)S&!__}O< zOok0Uh|_AaTWn4z02m#bgb}0(61@bl3n*3ek~ULwFgtU2OmI=1wvPb7XdR^C1?;;C z@bGPFeHAFE1`MmTavYH{%p(?-)gQ>g7NdXo5v*ZKz=of@L()fV5@1%IatSjV@ zQUC>w(=V0-o z3~4HZeK*nRawaPjmMLJ&Zxmp+F|zb+Wg|rtH_{L2q5Gn|kv?e6!EVkgMz{af?G^}+ znE8zYtOt5hrvhvvT!KwEB|2LUdz3ji*t@WF_`5~-7c0T&Eq#NL`Hcc>2L{EsbOX(UbxkmAANiR?ivSuU@=jd@adKp^V9ak6U_b0dH~Y^L^@YQe zu?L-;I6oj-Hdhg(`&V-p!OMXE{Hd`_<2MR0GkUytoRw%Tcp-QS_(L&!;y*Rsa3!q=K0=exm?uCBXj0$VDtXtAj`|$u~II z2djS&8z?-b8_Xrki78R3%>5R@_!s~-0AK=m=T5i< zA4&A(ZVuKC<7zDj>kUTq*?K#v&q6t)wL1W^4ekd+e0l0Ga$i|NZH9BdEdX7INdP`Dt(49qIuL1vd3Kb`H&Tth9u5}Wr-@-Of+v9eepV0_0N{5KOE7w%t2V@ zZ^NP?TAhsY_Xh!1I2I$rvW#R`PE1{F3B?LWljYg|m}T3|NH6_`X*H0HQg885rlxOI z`hT^Z37pN<|NqZj#-3zssVt#I(!F!C~H{~qNs>O5!uTc zA{DYkDr8GiqA1x)|L3{q^O?_w+pq83&;9)09`AcT_s(@*_kGU$Z13|v?;|ekHTuS> zU0uTA3x1{GrTpNle^{Xx7Ar7vO1dMGZAe2hVkf2NC#BOjvUlbu^q}{}_g!K!u27e^ zI>h@+71-}d<$|EUbS@)~9(O6Q0bcySDV}jC$;qdbN7D5ib-wMz=&z!C;1u!oCAi7CITo!$Sd*slFNv>4M3uo;@V7sEu`HxFMpG;-*Z%A;%uF*orojH3##TSiRX&7E zC~HCI-EMIt*79OdQ~gXN)7n{CZQ7Q;*(E#xwI`j?-j+4B29{-jjohXrdzrNMUVQc8 z)6?w)%QnDL$y`#oKV2e^=N|CK4U~;I_=hlGLbZ{>Q?Ik?fJpL?zH!kdqJ>+0*i5PZ zccY}!3)i-Ks9 zVUX6r7E>=nFVWkdqX#+5?E$3qI)t}!F_*GgvZkJ_6dyNl7l0i>np3~K#H=w`37X-Z z^fO#rY2(>r^p#-(o4{~FZI#_HKEnXpx7;B-ENd%vr01YWchLLqD`ku7Yhb2!)|z5# zh+pH%I>aM}N7izP+Lskr@eZZLxn+?KF-+z3I`e97F{A#*C^pF@Mj_e2r)*IWt-CVS z*-jKhQWa*xCpR!b#dJH-9$z_Qvrd<+(n$rDgUWw?yIcH2FH-LjH7)qARtfR@BbJL1 z)o+!Zl4w$prKr864QORHhUwv>U84DyYDQIWcS*6nyHzlg(M6Z6FPTf~Li*uw>Wl+# z-=wO(aq^y$V*JAv!Axi13l!uR6hhKE(y{k(+a76teFfIDWVGne)goAXucjcZ&veOd zI;z0#LP6#tSrqNxtBuWxrTulqUD;h2C>TFpu z4a_uB-;U)}(rZ}b21L2VGHfBg7g1o7qoT#dD%Qc&5M!F_ADl}sPr#U7*SWQ4M5!G*xvd7OIel-u$Jj532Ls7CtyNc ztk%x9F;H%x?%FU46lFnSm9Cadf=S6JMjt2qqqM2q+w_s$e|Cug+PLK|TeMM=Ox0OX zvK;0ek`6fB;?j+7QJVued;hYl&ZK0rQEQUDQ%y;+gf=!CeilR7-UW6_CZ`3QIhJ+y zfL4rOAYoT{IDnzGTmnqFh(PPB46Ubjk8)%#zl9#f^OMLp1D+ zNDko?Sa{^%i8dzs49Ugl+9k~;eE>eQ#wA{1c5IbG z!Q|knNp{Z%D&vk*vEDeW zSo_AP0$V%GA&zU$)h4Kg#fg6^i2I!CS$?bClR^wnV*BemF~@EI*?4wU_r_Ja`4o^J|J^Rb4f?S{o%77I}}7K z#(>8FOB=4h8j!}oONOyAuIHW zXoQkw%lIIgWZlVJ(wkk`42SDK#8xClX_Z3iEE`uST{2fEmGK8i^;R>dsQ#c+>>sKm z%fnrx|B*-~lgEoR$E;hcyjOw0qhO5(kg{YCbvhlI$NHpGET>H^Aj(AsjZzN z^ByJH-R#a+UKgQcGOV*M*>{Z<*kgXDICrm8d;`Bb&_>CE#!XGKWj>X$n{)+|tp+Tv zvXX4XT&MVBZKRR~gCwZ#s@2^J?8E9TbF1OnTbF(6kv2+}Cr#~|WC>MN#_!$Y6w~1$ zaFanwvSj=Xwy%j$vOIYZSkuON@eM<`jo4Ai7a_8OT>>PngoC%}I^W}{^JrXHks5tZ@fD5oglbc%;a zC-zj5eJ~sUkcE*-X6iwH6AJ8Yj;tiW?kn7SN!MkSLh3AE?&fORn0Hx?)Qh=`X(0jZ zw){;L`W!V?>oUbDPR);0G8wl(tFsXRNZR-thjD&&h*PA4>G`eFwUQ-y4Zv?v7wnu@bj&q8JuSX_Xl1D~`(j-gzS%KYpg6P=CsWZ|OZS9my+O9OonjceO zgE#@%2R=@4|NZnFk}fhu$Zis;WHS1iCfTYZ3ar>+hj@?YcMfshGu}qY2+vm_*%UID z6n&6Odf^kqZ_Lo9a*caBh3D1?CG&Dahc4MZGMBWB^!fb+OMuHTVq2vUZSdgn@XSN3Qixb1MY>SQ(hRUGI~3Tjr0Y4wx{LI(W`4H? z%*UN|dNGdqLV-O>ItCA=R-_Y|hghW$$$X6ruz>(b@{v}C+rds-B{R)IN@-wMwm3us z_%Ph$b~`1LVOBJ4^pd%x1)LWD;WLN$aWfLKL2i{oiqS8l)o5T#K2czAlP1F>;jd_G zRw)$Br24mOVBUYRo(siUQ2vl8%G{2OMU>PO_xd{MC z#aCkoS?LgelP>LJCm0tn=-T)Y0Fs)LZd<`^4}i_7Z6jEwsk?d?07*4TFA;+K0KBuO zonR)_|A@>bUHQNvX2COf-}nloZsC6i>Kjk-UXOR7tHX_`ZPK)Up_ zEnrfzv?j?iMw!;mrU4-70Ks9#zRt>XI_->}#3~g?_HT2LG5|>G@EZ3rO?8Mw-ba09 z16X@cMiWnq=2bCU2f!V)IjdA4Spk@7eRj_)D&xC|D;Gb>A*umB zaxw)mi1|RmMw4G8=|R!i@p7N}*t;I_pp7l71WR5NU8J-dAECVwDUqZ5uKv$1u7) zH;fw-;S4wt{%43o%zZ(DU7o`oc00q{Y&C%u^dJQmo;mKg$L1@$etc#bG3Sb9u!KBMldQO8>FJ`W{$95E*Cx<-;~e69 zc!l2~0!V9>{ts=`cHjY!)F6fv3Gni}FilKRl0DkGsHic^vSgv!IN@#uHiUFeZHIUj zuGCwBm2T%2Gp5=I*7GLr@C0D>ZP>?+9nY*;QCq!wqNxR>@EhPjYKd%jB$7!mQ|E<8M|OKS*(= z!RIPC#L!Ij+16VeqDOnHLyU}8(~`(xCV!Cfl~u-j0NDgzqF8UMpoSH9B7w)JSXB^D zYMv*pMU&>znNlmp+TUXN2H@+zgjjMxi1&Ct*2I=#)WCv+r&5sD$z0Nsa*Walv?!Wg zrh8T2Sgc18v2Ajsk_ESp71+MbLUabO_C6u@Y~*r0z?y0GXhlg(3X+-W$!waMEf3*n z#VE*J(yKQ(L<+p}dWWb{T}ifLm|Ki{*{WpT*gQ{4^Q2Uh-_=|)mvnb&hZql6f%n%| zJxGsaw;0gHDwz44rzY7i*Ez(;@O1dDk`8e*Jo-lU13oK@9qZfhyrqp|{1>pw#T?>f zQ5J!4i6~;*qLo`dQVaO;JXd|hMz8^77z3~4I@G;?5b^1EAqG`Yb$02p5dB(P1@jV& zBs(GBV^WZ*fGj>MME_IV<4HT4byA3<%@x?kfMq;j73^P%u_ux=`kAAbaIqh7nEak= z8{byN*pVMnw}Ope$4?;1Q6avBm&0?92=U511vZ^xtykJcu#sfG(Fb-BkXSWxxTxwgpY z8wc*D_`YCM94-ampwB2id{ZSg1T15=Rj_|i{SwquD$-mJCvOp=$j2y4Zv}Rm`ds>! zjbMY3sQD+{8MBc<)En5jSWnS)R$$f9&>n-Wf(45)H$KJWA>9k5Sh0?Co?MUGc7+hH ze<;LH2b4Be|3-*Ux?2W|Pxhq81+q;e^`w;)9{`mW(tyV@)W9bxQc34H28^O;mv~o8%*{f8rWtsKY57a`^znM^St(oTRb?wSn&VfD56Auqws)3 zC6hB^4eV^1L!5R*i84f2Zu2aFMWV#FzbJst#3lAMv<}wPlM~2lA-!!iuy^y&L^nZ4 z;OB^4a0;;J8kY=8cBDs?cd%nO+&5}qBWAfpA3%z6h`R>I!`|R{QT@hBni?Fu z-#KdA^qWp|+8DcHC;Uo#~QsO@Ur# z#UFEsTmZJe#XZ#=oO&71twoiBynv)*KDQ1=4-%IjC!<1Xbykt<2_6GrEns;_Ifb;b z7Ny}P-tRpSo@Sbg(UapzX_lQOrv)0=_uA?H>yT>UFpge6&I!9eR1?_EY5()LSp_pi zWbnpv=T1zl@5MeUIA%Nzx82cN&idEIcx1eWCSZKuv=uW^b#3!Gxh z+X~>@^F_p!_C~K?7*GSulfxvnWusI=y?Nr}h(ho2bs}>~nWQV{J4Gz%P4ps?j@?*P zly4g;7&iiQR@Tp|Fff-x8RI!2tkC@AoGT@hGRb{W+)jmOfI_zH>#yJ^5CP zQ3FfCVJJQ!;Pd#n+HimZ`~7LBSj7>Q;(-0o+m2$?!Ax_Ii_a>sCY>hO zSd&Q3pA~lA_?qUfagQyHWBAz`Jr4*q`i!_WmNg32P`= znjzU->PpgUq<_TXYz}(>wo0L3(ws!!C?)%b%q49l&84y%+=HSZomDDyP}YmzD~R{1 zM*wDo5=dxHf0*pm78U`cC&L3Uf4k5MGDlm&wgb>A8Is90 zwKqG^SO!Fk<7Q7^tiLlRq+#h%V)pNt0C|@5!G=n~bo!}EV)cOQg3t1$*RUwjaEK7O zd|#(HZF!}?H^Ag#Fe@{ynH)Sdu>NULA`!DuoAOcO7f+O^!}AT=B~Z=kM2W3k!c!Il z%#)MlNzeBC>44N-hi5AXWt8)+umeHt5rVJaVfjxxH zO44v7+?o|79;Jv*tX0dT=WmY|Yf41~mYLf`Myt`l_5mR2XVOb>8{(6d*{r}$4=E>N z-Il>}(>=|aB&Nw;UjsYaPJtC|A0-+Oj}lq%CqtB?G};y=(mx7s@?+GQc`>Mg^&s;v z-ii_}R!52Ua2l7FXZ@spKn*U%Zqv%*%G2bNS|C|DZ2BK!2f1mv5H~Gm-?MX+c==Lz z0Kt0DUQCiP2hjstXp$ArjuKbcK*(OibvsLOrKdx#s2$k;F(yj%xJOB8&hWpUL&0Q6 ztbwiIz|G6ptNOkwM8~)2j9+w%ht`z{=J(|uAs*{sb>;alb@t&I!aflA=MqcXY0F%q z8PCn=Ako*G7rEQIy^rqQvW+lr(|Za-vuX z>tL9Z{Jy41Mls$3K$R4?*fP{5ejALzY^Ym2c|;XsW~^Jd2mu!k8FeNl%Wjh7kybga z&bndGm(+&z_vhSVR%f@!SsWgK`NtSwX48ZQ_9B@Nf}ePh;M5nm(+4~8)7#awU_m}U zbPrf<)ZVy6PiB4&2Z0MD+X}$YnNea39dM5iqr@Vl`YT$sv+XM#;;)2Az_J?o;$*CL zO|sL=qQs`h-C|BJx0p=h-jAZ(xk|OIvW=p|tbkRpe<{YEgimaKXO#H3T$C8q)-AeY z$N#>x(!g?E-Qr=NRWMnMQZgAzK$9$q%=3_7->Ys>m*;h8;Pw5LWRE}Q7DaEd491>k z^UP*x(yc}VySxtzDj-+bt(ZsVKambBtyDi_Q;=5B^puOWLUN!RoqcczIDa-2lFy@AZBi&kF5F$uIrDNMR;ZodvuM zp57#^a^9G@g!lw+LjOZbn$q97#6N^By+BWL{JRK>(O7vJuDv=~SrL6hKhV^VnW}1UYumry+W<1&_>C5COaR+T}%RamS6V+y2SSZ?;4KP_}IRSrj zcA0d^2C)|{>FFokqA62^xoceF!AVN8s%YxZSir-f0x8T4pivLn{&EPl8uvS_60f~tSBRfsZKb}X5KePdqB#>_!*G9q_Xk#@%Z`5va4yUg4 z@0wI!1CtY;gt!Do>Oft_FiBYqp5M>nrh7~jgY6lq1Fbw68M!Tj(*h;g&_xPt;5N3h z*sSX=-PuOkp^aV*4ATS?9a#~nqP+BSklUD%O&A$2CH+o=e^ z3dXabHkwE3SYO^-#Q&R!H`x~)xc^-BCVxH~9R#ggsf1{kXpGc%PA52F3TM?mRzFI9 zDKJ(2pWuJs#ZVA$=twX9toC3Wi=CGKJhzK%IaLtDV~@ys+*Z`NiuD(&u zK};j{O-$b;og@PNQ#k33Y8fR4HnpS9^kNKJQdONj8LR5-pUY11>pffta+te*#@Hd* zzbMG{TAjT5jZ-W*;S}F7T2Ek@u}TGXrcZd}NUhh|gWC4h+7#l-{ooYq@Ss@POG#@5 z&;%AbQh#(nXOch*)`!6X((9GP^RkaGu&w;rS5WywO?`J zEAKPIbXhZ(fC)^lV$?{j7vnPgKP2^Imem0MW7CKVLXj8dG zTL7XX{)|qx?JisDEOexvqxJN4H*pCi2RY{AsCR2}c+&iPG3tY-X{5f0hl`{Oi=AQy zjwi*UqQu3Gc1%)rFw;ogZ>|D+XSP$sGq(NeXS7}v!Qffgk@{7NQc?%4zYM+!^Tp6c zZ%n2quXT31JT4ntQzyg@iFXJW2c>?hz>zSXB_-UdB%2deS`BbA|LR>RGgy|VSz1;@FOyV%LLlDf^Oc>f{l_s(4+yID*Cd=zSb@Vsj5t0J8}Ics#*IeORyli?-QmAB1cyzD@T@=`xq%U*$=1IVc z<0@*ELcyf3oFQrG+$kEdEb6FDf`Wet^CeWWOap8q z0FqvA#_XyIf&5u-^=5W#l|sRoe(RErPF7$8N!!5(Msp{^KJ}Ruz)&zwkLX}08>@`B zlYZ5R2=71 zY7>~(lg5qP#vJ5JugW;NE@8Lt=9!MUA8R#98P63JTjv@Rp5TZ7<0Yid((!N9i_tFu zprJ%ud!nXOT*{%l+M+)DANl_4pF_dq>`K}jnehB|tID`-H5P)mIK>6}%64^?>Zb;Z zigxctDw%2UtP6moXUjXq;37`Zm0skR&+L>eICx?xi}89Z99EM|&p~2Lyyg%iXm?Ni zVkeks@VsZe0y|0E#sly@E{;EZYA0B5@Klo3d_#eKg;ckWcZgq(5$}pV(kg{2h-vWr zd#nQUktPzK>{GzLa@q-I8a!hFko4v-hnP(;tr8UL4@cBzR-`jY7Rc~q=H$xT9`tth z?b9mbSx<2U^HGN=IT{D%*X;xg_Km8})@Y7*(>oKj3$8reA-=d|3s_8Mu)AVmp*QOC z9aY9fNdIil%>f;V>GFjg({GbGNnfA6)>eVNNc!u8_&Aa#Vh*%QraIFkV-=%=z1l{B zjb;z#2w+>`N8L7!)WKq86{CYKY^}gXNSADYl5^3>L+Udt(ixJOi&5){r)8^*pCB!p ziYqo?9nY#_9FXM@`&ej%L;nf(2pLM+osLBKd}r~#Zl*0p7p=}%pXu5-qNxHq*w`V? z9_839VDD742Q15z)-1=vR89v=N1}@vMDn8U-oxft0lp8Gbhx=gL~piQjI61H3PN|K zE68S~31Kho~-?gsQAbCl}8_%oN& zydPeXhJta}O_%JJE@|ZenWXN<1=Hz)22JyDDcCkAPQ-`H&EoZ7vb!0_xa{eb&gr`J`i3G**5?6X-iWll2L zt}e_}mVuc=xTzFwfM@$=JUOjWD45B1H4FereM#?a0UyFm+*T=6K}^%{quTn+>tT-18ZG-iHhwfij1|C8 zFq7@7owh!Eq7HWq)@DJ7goodB)w6UI;+CLZKR9Ev}Bb+>&#@kY6^g)+N9a6Lcbz?_hCE1 zOtz~l6;;NwD>%icEOmcNX2rO(<*MatODy#+6}%Ru;W^PS(wbP{Z1&D$#(VS83neHbTXWdbjb_V zHsqW^QPWam%f3I!kk)gg*K zY~v7B2#!M6_a3SjRb-32t#Dw!nHz)ZF)Hvp23@8jmg-Gm7~%=K1x+oX-x+OCcuk)#{; zAkmkYZYj=rMeXprG8tX;zVWl23Ty#s68wNH)=z9&p9Lk8N1V0A;J4cqSi`ME>)pZ? zS4dhr&Q35^F*?}#PZZe4?>NLqGr22f7e>z8?5HzSG3rK_fp~06Dz^>OA7E1`%8$3J z&NqdIespDc{iLCd{{r^w=L)Rsa*Slt9AXWYf)1zbP!Qe1W3pWhoUg!|zU2_--*AY{ z7^D~Vv}ffRV!K*S=Brl|jbRlgKqOlQ_!_ODUq_LCr46pZvM$7nQH;7|bXU59+%sND z)*C}~bxgMTq~FmQTO|`%sO{?Yr&Y!kFe3>c7cc-AGe;R+O5NxZ6W+4HcBM=9yhnlc z8z#hgf|0D>FGTf?;c1|`6bfy-iq}j-o4c9+dw9=AF?zBxJgvRHR*YvcaWOG?wtI`< zE?=oJ$1UH-s5wMwVbXXNN?=R*8$~_0dX|u0wDgTvgy@7{zfP?lxmt4#uwWTp79qfqHEox#Mdz3ByZRg#h-P2KGxRlT$g@UnU(!o|y z2lY83yOe`do8Xa1_8Q0eBsIWbHm>Q_b@IP{LnxRGMxxc(_mh}&;J6%zf85LM-Qp0> zcWTG@{2ZnlQ_?yZhqn{``KkvADo9g6#-bqa!=sSsH>Awa4!gP70P?I1Z@4ie3#xub zVly?K`Mf^AcQtblNna;LiJ$RkzZd87)PCx4z?e-@;)Sl^IaY>(G5wasD8cfz(<5&# z|C}+;L-4PZB#uS7DdEuOCtpf zo`zIl2WBX+`V+XVbT$F2X?HJo)XrGkA0^&<+alOC{`$dU+^ro|*+lv|hj7*qbnxLn zR6SMy5-}T|>!xQSWhK?fQx3-ajnd+?P3RR45 z4&QWd6eYgF^j>G2l57k|F^jaZ3}&43)U|Qg05x`X*oMCqJghFE1Txgo%lf`3F^PyM z;gF$?rrDL=gS69n`03->`e3W%E4r`wciPbr2OD*6i#RnS4)!3qfJj=&DUzco$pj8_ zcP?Xxx2+DwR8E)d0~)a;H$ilV!z+ndFt=lPy+$wt?ZqfY36}0nO7I$BUuoxJn$we1 zm?y;S=LsdyQJrADoAWW=W>!rTL9m2I4e@H%CHsahO42GoK85d~Bi^xBDTwxC!%7Uv zya~-b+1X8V@oLw>KGIz1TO4g>{wW=5szbPvw#1*#)CMC;g>PzGn=QzL5 z7x2dUvb8$9mqWmV-*<_}i8t}!wy^TQ>dS^?I#^6_&oeH@8}I3_9h|E6flJJsLo|jF z#84^~UOk!7Lc!S0mBlEBm^~b6mh=XF;+1^nBMZ>X_6qFYVdcbi`QZVFf}tSn<_0Be zG+QZ12hO(p=X0R+10m9D*>TuSFGlVe)a&fc>8cPOo{6(L9L=G(Q;XCOP=5*UHB_>A zqZl_5RY+17A`R90z%Bml%nWOXD!P&0DA6D{(qc?BBzqAMN&7iR?d6PT9FpDsU3i_Z z%0az`O4iVj?5!_Vku@URN*w$Wad?hQS8Z$hpJheS^hhO3G9=qDTS>8wcJ?B(;Wv@2 z6VFyDR5ImT5Y)!O07!CjKyhG~D3J?SJ04!IVg6yEU^2F?*3Q;y%b$g$-54lKFv)qa zgj#JrwWEw^(=yUxl!v#qcJ>{UQc2rMH^9^22KEF=(E3Jp;C0Dv)=Wot)rk@}!x!#~ z5Id9jFItRBj#M({`g)ytaa@p;P498)b+=dvXz~y{w9%VD$os@Bzcww9 zk{tp-(jSb{Kfp17uF!%cq&T8Q1HVG*4!x8j8@O` zgS+_q8jKbd= zfcm&WHR0Ih195KA;aAnRF7X4RT-L!%b`S+N_977u0eXhC2Yka%F46xw1-AQyOJr5C z#SWst>T7#tbxEtirQmVf6~K&1MMT$BrJ02&!QfYnVw4?mYm6>IJBR{%tD?&IWzvrD z&E*I@I9{z{IuT@iT%}0Cf@^98_H7vjwuN*J{4QMm{_BIkavJS!M^vO>dQ>PHwOfm> zHl>(L)GXo>W#A{`%LT!jZ02k=_xyxI1;u!^9YjgyAahA)qg-MWd=P&Ab0yiyyWL{J z-&VEpDm#b*yPnL0U~bIn@F4iNPAbCCt1XzY9*-2vRA-Npxuo`_Z#lWkf;4WTQjoKs z(7)`o3}&{2D9L90qwF9PNQc8e|Lqjz8YtUUyK@+%!#wj@P-pG0vV$nFon$WQ9nwjE z;ZnnCpSde+3DhLpnQjMBU|HHxqNb!rFFA!@zJL9O;196!Vn`Nj)PMzNS3$6ZuKygNMLtLy9W|cz0f_4y9jHeDM zu(tbg%G>7@ODV>C*#wdlb$_(@p=cxuB8$;v2U(&Wvz$fRma~F;ko4$d;dN2wQV5mI zWCvN!`Dsa`KXr;v7IV%MAL10PS21T&*ym8NpdCb0eE=lAK>7@v4A|C>)LcK~u5#k` z%i&GML%~dTkQe4Du-NHN@%igcF^@W|_PhG5u+o^n7YY`%gDA-kO;Q<8AIqu!F-~zm z$D7l%xZj_?SypVi5UFG)J4l^D3hdP;Nc9N42Ss_925yx?B{SJUTDMgh?@c8v&I3*n z0PL}`;YnluVWD6_JBTXA*Y8tc^Sn;+LUS&HqF8rnu~T>6R8AyBMcU3xc96g8E3mVE zr)|1R7eS@3f=WsJAVU%jrb8AJ5oBs^2NJER!WCvNL z`7$oSrFS+w6u$DHosyYG>b;t4?-ks7e}%WfeWs~i|M;EJqVMmKN@lWytR-_v?~^u< zVze&n6z?3dqi@tr6G1zOsUiCOg`_Z{ViA=ywu_Sy{69!?dej<^q=(1!cC2KmJ!#`lbO<_x!f6ykMa0C{)DZM zxWu_-oQuK2Q(p@gR(rBqSnQo#PIRnk%&r=Ca)~POLJYwzK&N*eyt;lvz*6KYMg!}{ z9mkTK>?~FMieh0?b@c%|COn#CDbh5dfsG}0w4~cHl5NL~l*WeZ>b}M=5B@QXmk`NP znc;h&DF z&UX-PZurZQO4iH(dzQ>4HCxQdRW7FK!27>5ZLG8GRtDJ4NeZkEj+6)baUa5Jx41>y z9;tPE5wSkZ$f6;tpVI^|E<}irjrUj4yfw>^I^cTGy2YfwZImo0RZ51Fs6Q_53#5_s zH{KJ!!MorN?bW?wJF6EFrCyA%&T=vh$u^R?q%Fj?U4&`-Z2&Ui zkvtFF>k?m@qAHRRCwq)x1xl23? z*rRaA@v3cg``slz<1*23CmHiQq@#Rvcmv)ef)C znToNXofRyZ?j>_ccav6yOT+yhkHGn)Ac{r?cS)pWrzS`TSZ#gg(7^s!<`T`9x)WGVHxumM3H^^r=b6I%S(_jYLi>Vlug5>#)IyvMZ}((mbEb<#S=)+ZZ4fq zv|?;V<{e*iiB|A^@WoeMB8tzflBpOI(!CAyGySpLyp0cWAkOa{G07#ij%L7w=fGP> zy2Q6W)e(=LTtOVx&Y~3-+ytiTEL$2kHOW3Ab4hQEK;?(A3C_ia<-+VW%s(UqEYGBk z=LadUQ%}=?;qCBuT3~o{CWU{8nC#|x1&ulo=+5?IFQoczAW^(ZDG+~-c6-s& z6~wQaTa=XSxsM33KJRK7+kbqut=FhC=~0%Gof}`E`hh^32k~Zqk`6e}C1#}%?jGrC z_f(+cG3koCEcYO$3txlnED-pF%)7QlvSu!kLAsK(hgOeQ%TTy?hGe>1O@V?00(1Q+ z1|Zv#UE=iyE^%irQ@S;FsJ;$XU?Zl^s&fA-MOdvKMG5eZ7A~<^^9Mhc!^D*%nc+}~ zWSEn*?kW(-?&S~*0N8q;OU%8Q1tHIsj;X0Y<@zo$X={XFS@Nb*t*p0csLy2E6$$RKJ}Xsdrv-i;vpc2=+m3RVQ;uTflW;hjuui=>-BOw6O~2 z$!+CHZJym)ZbNEy7FA1uovY~*cf&{F^C`-l6#YJDnewfInYXkwu-P>f*xu^2HJZVN zTWD*C)Vy(@znqB5wF(xLEGsR$V0$DGI6>x;PN4RQR^&m~tY}!YY{8 z@Au@#`Ld*^izeB0GM6;0B8q`;VwF;*9Af|RUhPEYXF;eZ>LJ&K^ z4y;jg#VK{mi4Rk(f_Y=To>Z?VreMhw2uwj5Nw*xvbq%n~*RygNt{U}>yUU6Ad%^@O z>;`L7%{3!N3xgT_6=A-Z`o_41-awPIJn1zd>&)wqdxkUaWt^;|iIG~Xz3Q5l)lu`t z5FZ^lVa`F+`c+%5rc=chpUbeFVIW#bh&(+Q{(}7upJtChicT5 zTGN{x3UBfgB3X<{vUydNWEXG2`2?^4b=QjNoK*@1%QPgrt(pS+8L-NDxpZoTE0i|j z8QKI>?xqMO^EEW;?03zFXX*{y?Zfk)7*t;yP_0N8BAL%rXZL7sHLsSW2;n!VyWZcc zsoW+8*85(HR5DYYeNsXddep85_&tk(V;TFB8Zdvw?otcaQY{j zC62Y*h(M&0B^#2J|4VgO{fLw|?UF+j2ka&meO4(%8~wOw=#q6J;Gm>~zd6J%_yOKm z+pJunMn8=^y)RP9G7ZUQpH^Ty2w~)hZwBo4{&q@6udhqyAxfU4s>HT>od8W=5qa&2 zSXE~S`#QxxwIY-(AZ=G#uYao+0qTMM4snhsDD#o7)nhhF7Qow9m&{8{GD)L$62WU7 zw_XDF(M4?xdl+>q=UKqNIJe3%bz_&w1nJK8CkjB==rXVX7d zU_TLL>!Xi|YEE>afaU`5Oukdxc`8!L*!a=wY(F59j<0fvB?~D^(wk&xLplmxImaQk{G&b#{vphl zP|27P>yphQb4jn0R+;S(m)<7i{XsRv4EmK@R!&4JS&AW9r&$W@UP8Uy1@8r{sn)B6 zDOB+5p_0ikn3^`;41lDCM9VuxsJH$z9Afz{O|l;yqS?_%B{OMbcQTiB2p|`{8qQd( zJ`4UK%$E?!;!N5&=yjFxqogi)@oNsz>kB2>OJ5_|daIIo;`2NiN$HJEbC6kNE@?7p ziK+A=aPzfxNT!3SI>T$(AGkb4WxSvCMfgMb{-JhEc-YYLq^4yzVpCl2L7vsXF1_jy zeIyXvgeG8>j5^c68na|V8-tRa1Vqy7q_4h0qb9AJYe#qGZRqi|&P(#kBhK2ADHQ-o z_ml1+URig*_G%g${6m;8Cdo7~xyz)1J^!)-t2L2`dE*^o!({G8AQYxmGQiX_w?&-R zUE$ssGZc^>a2A{dmw`WE?r4=l!Ptw@dk_biOFBD&LGvYIHZh%g%O4o}Ju zuy~Fa>0sw6I!V0&>IA33wc9JO$x9vL*>k}^7y2a>%+xpDPv(;DAw4mU0TdSP6xh=j zN{IE^25e!`LckJaSZA#xo+UGfCXo(+yTV^TsKCzGb&Fpchu6SE!LT>#VA&ejDqMWW z!3W?4Z4_Akol#=5bmR|%3^3ioqniMw?TXBAfX|KQ0$zNHQ{mp#!js1QTMRHw^%FT` zp-Xlg5J_K?z5#pS=kk?gcM^khO*gBO>0tU^43b?LrNGXReh+Vl-@Dh2v$+~rL*4of z*ai)37HL;_9DMd3I~>jRIy2cDdyG_)wIqFH1oM2rN@1L~N+EUDQ1@y_vRlbq(jCvU zHXH5`MP8uiU#-A$a-&7-gfPvv1>2B8$#Pryuo0sm-q={buOt9P0Xj8|#URq1h4=E_ zDuqavWK#VNS}{IAIsw4iq<{BUlAX+s7S*d*l}uBRB!(DW^$!9d>3!0pLmc9BnQ9S+ z>b=M`A=>JMM;2o%Z$2i#0^?>;4QwMoufjuNw-%Z5y^Lsa`lbjaYh*G_TzO7OmP~rz zAeOq%I>b~io0rrKW$}Mx*|;g4PqLe3m<-a{gB@ZR05`$WJl_W3$FQXBsnMb|QGCN8 zLqYUnWQfsi#1*uR^9DG?k53b0pY%YA>aK=0j}~_pi?kTAUFl%k0FYFspF=$MB&!y{ z@@v`AgJejzn#_Pt-#VsIe-FS)0RJKF(3kKyZ~$PdWE5jY9NHM4ooDKZ?|m}!VfCUZ%#q^H{vXq>eA74_M?M$w|%u}Hw= zmR6!6*^-{9J^aHX+~otFMaP|pRjMWmOMaqWo%JFKjoW?0~TA&wW1;8W?{gproZ5-m>_RK{9v`U5cyUGJh zQqkQJfE7%5JaMf(8J<>bX(`EK{NB=oF_IBHcX?m#`C(gF(uI%I3DzyIlobo>8$--x z!j(N*Lw!eoy+^fw{jDjY`L$jXfO*EN@0EFxE&pCZJU&*4&(^8W?)ylH>raIzrBP>| zMvXi;VXjX^)_@mR(HrNx#E+an*u+}84$qR-Xch7K*|Or(>x?>!dz2Vv1F!xG z<@wA^*MK$lyTpQc1y;*jPPG3fBCzB*=|`-Cxi=`VKX59K8RHU%N!nynr{^D(Nn&z)E#2DyDsE9W2??(v#kVAa*)f)7c8_LmZa(J?j#a0rNCc zU~AeJ6{}W83dU4U2TOZifq4hJ#Nel0;=>PJqPV7kD@zs?zdjo#SYg{)l&1Q-KL`&X zSP$BZq586K%!y4)D`;n2Iv?#4FV4ZaJjNkf;-Mrda7MN6W+TdpN4BUUm7l+hGf~|x zLNuMOz9&DMR?2vm?+q|-Oq!=fOhP=1K~;lkmWr>U0>Rvm2Z2$gXu zjL-uBUWjxPi>jg(^6Vk1>;j>R2?%!sIHcACaPi&r3(1Rqzy+Y=aMv~UTHRD47e_E};GPV{GO(%p0 z{GXDQ2SC!7I8knZ7r?h^y~g{Tf&VktDwvckwN+M}NkPt4S72*!q+9?`g@2!`00z8U zM7&!g60o$^aY=H0CL@1)kmtpp^ee^ z-3Hjwha)J)!uI-KlvYLh2p4BqB}1}|7>_3{ts&<;m1HsT-qV%2CH)4RDT@-w{}}~w z?;IuBGjA6WSO^57;sSdrEqT^eBM4;A+|xA;CX{ z`4S3-HU{equuWtxsiKsu2nPk=Uj`e}go$Mu&$MF9Y*Z~a*5`|nF{DcojZ)H#)!6ip z5{8N>hakU8W2f0tQKO{KKPUnl{BSMe+ln31T2PP)axt`07>h=6=Kjru5vla zmgH|X79&=BB`06vbw+^jWp^_TEoL+Z>g!>j~*kQmP=8d&)SLi8CT#Jn9s zl&0&lN+DnYxnmI*8}IeSd!Ct3C?m|XHEGa(>Z}IuCu_#d?1NauXM{Hbn7~X26y=hM zDb}2~lnm{kCDI{0l=nOQs&CArp(ig3Ps#!?Q(U=%!Sid)G8$hQup3eRne2Z?hX-IT z@&d5-p5z=)>n5!ebmJz|@3J%0S7-MX?Ba6WCSW@#K1rX^;1|3X9odFiB1DPNd^~7{7cUJnmNo(YIZN;KPN}WyO{y#z5Md;b<&MWTsech|)j18Vr}b z95#N`>?*-q3J^*CpLB{w{hS=SC){jLdp5;WJ@Fo2D+0(Qcw`6}zjtYzQh=J+8(-|} z6kPxO953q5-H?5p;<>iQp~P!5`(N)vz%mIus7uzNtpa=2&w-oj z9GrTTgHu@OtWqc#0nv0YM+F5onxjR2dE%#+Q+)k%cx}u4!$QEak_@m3$CZM7&GhXv zcq2ubbd8bOoZ0_+4h2gyz~0d2i1V3IEyCMnEWUA_?1^$nqek@!Mp96W=QQV&&P==K z@%#+nDcV8P|0Tu0{XImoY*VA2^pq;b^7t4OgUfz_54hjPI?E=&r>-Cq*rS$|(gr_} zmYj=eg}*+jRSJ+^dzH*3Rj-SyS_Oyb$NP%?ZL#Ys$#P>2u)#GI*mFf3Vj|Olw!H78xc~%z zMVK!kb(Y)I0DIvE1va6$L;N1)5cL2nUfISv%gr&s{&Fj@Dx@u44)HMH5Bk+-VG0%e zdWd9f9S7?y&gbIb~uCsZiaM~=h@g1=b5^z&x8VN^^Xvn|7L9lSVt7aDuqgB zD#p?PNILtM5Ut>4fR1^{n0KhZ7XCE^47ZvB)o%!Zq#BonxX2XX3g9Kn+bCJSsTk8Q zDzJ4IgcuJ$4d`v`S6iiPCG*SpjasAjl>k7}U+0B54DSHEPg(mU^Lvb9^ey^Rfpz2% zz=pFzd<5XcBzq*w^<*@UZ=rAe#CZHaY74)9r_n@~xYGcS^4if|$+>=Jerz%af%SRg zp`V2q0l=6uTviT`#lmy*?@HS3HKIk0kHZ_=3hkX#9bicf^{D>pZCI}+1@UHkTE=BG zWXTlZLSRpv&zE^0HwRExS9W3p;aSqGG*xGTcPfaKe%GrHc`aX??MjvbE%A!ciA|}i zCyNgus z4(l^XU!oi}e`0z-T6(B$k^v@9X=%k+5dcXgNdG#4dm3#m3V%nd6e3v?+NgtdBy&lb zq$|Eh?Ma`)gVQRR!O}dfQyUV3N?Le=QRtt;A|R<}8lKUIiPr+)vd2mXKeO@@3dST= z2OCZ1k_M9Yf=j?%aICaSpM*;j0{=!W z!jL%%eN)ZAvgc9WfwnWE4qf33jo+Dq|$CB!=3|J+GQ_SyBEmsuX6WGpPWdw~Gi z94-B9w*q^gbRt{}!0Zw>N@k8i|MxBhcAE4I!^|$YcT*+VPs~qta2H896r%cU9T!Np zWrxb@4bm6kAK_b=8C#_gFmn|8!5Y}EFEIJRlVIN)3Ty_`gGHSpl#D3!1(N--RmqS^ z+INc(TeqPk%t@?LsAQ%n^j!gvluf$oGt?hr^xxlVk}&}~(jh|0u8KkrfTT;G2yq`g zmiG@afLf&x$?(^wBUVx9k8D)g?)q4W_g3Sy%=`74x#Bbf>8_keB{M~#p9F}cKh_f~ zmFLB9CLmTRR5DW(`f3|gwnNtnv6`{%aW)icw@`KVCIe}`j7TLjMWKIZjRKp;I5vo9 z7c=7D4qKJ$s(tEUfX}O<(0j>TQhg?>YcNk_VZQyQj*@I8hl6|7i%ha4kKBgTZVsqG z=8~Qy9R}}&GbgLhf`16}<=Q$+^2nN-W*JsU{ zH^%$?0e`GNaHJ7OngQ4de*+h3&e^6nZIP^C$;2`@-XEV3AK#Ffu%sN)X!w12cg^VF zXWeo++BY>kV3TB_V7s-h=>+L|fc9XrZR%A3^ElzL?Miq>Y64Ts+!Xy9IhITxX$rE5 zx;sF}pQP`RsthyX>Uj?F$}OrGXWbkvR$UGc zI0P(}GZy-isbUia7Kd_FLOHrWO@yIK;Q?qu1rrlkppiErE;eX%(H4V010rcNKqpez zL;!5cJoQ=d4`IF-U><)g!6Ne-6Y^fy#vJWzZcozVD8~@e_bRGlY%vo{_^nz$Sx8U= zEJGnn+?c(G_k@sw6dI%Z2SV+ z-GK0l)FfFb*rrJ;vo|TS7pbpL0f>)QV1sUm78z6Bg)Bhzwf_YBmdqvnMA~SfL!`sg z%c#%#TpukK4hgSFO<=0d(y$ij?W_x#OL~GdfqENCdTWQW!Oy(y%i_ryDVU5xuQlpP z8rc37)D>VqlkR*_fgNj8R_vG_Ay^AS1nXdbk-4OjE3xOpx5M}6DX{e1vLdcqq+mo} z)7x1BnM;~LIs;w+?>tl{_*svw*NF<*k%Hk{pi8z+1H1k1C{YwliBRC^8S`|ulZ<|11*5tKHz)Z>EyHhN)D2r+0nbNyGa?!c)h>;%g& zdi@+Sm(-lJ9$XvVxL18<coyiRyZVg6B}U?#Ke;w1IeLGhSuJ8?-3V7F*WW6q?o&n7S#*rKH` zL67@QG4AXj#7hH(7ywUuMu={t#ZVSWFMo8MXwY9h7xvWzCc{4@rY4!{ta3gZ;!iRM z>5birv?hFbXkoJs{hk?&TUBz>bBJxrC4;d6_L@qi3sDMy@%UZ64PfoZ=}p$EMm;^L ztZ3Umyk=m4dHexy!=&scrjh!KUh3D)M?vmrhBcM+L&Qq=!ETVFbLVVMJL27A_$;x3jDv2GV1XWJ~PubVEM^;MDp?`_!IoGG5)_2UBT~mWS_G^W0&XvcYC9_ z`TvLYd<__q$%TamRt2df-9@@M#U<9kckEQ3g@vMhITTEe)Ed|kGM99kv{Whq;yJ~7 z>9CDpF{WbtyS2)=L^>zxh(6yG9(+oD_TE^xn0cE~KiZG~&m=^$7G5$^Fl1gw8xFTE&9(bLdU~JZT{Ry#nWBY!+OZ5;F*^bPV zKydT^YOZho#f5zik<7;#c*1zaNyE!aWG-nM=}T=;`vbOO>FmH4Y1!Fw(c|6owg6EEo3M`h?$yw?f;1(RZw@RU4 zO%2IflDVXIq+fOhs4K^uzfqFaZtoTo%0{UAe%wTL$$kSsQg1*8!IK_FBe&QoS+*hB zax$0n4e40GM)e@(#7HI0xvp;U`1KJ=7VsI8J=INt{Yv^bJgS#VRQSS1$pQ(6Wb=?j z(vOe0#GmjRedrsx%v@48Zoho1c%+iCKGW;01(HbWK{^k<{s|N$-^O+pKtc3&)<}z7 zGOQmUaIgL@5!*mX({h+w{B)h%Q+N zGMChwbn-LYSqBekq9nVAh+YfML?~Hok|9}*!3r#qv?aU)USZFvV>RK4ZDvR|?>Pmw za0tZ+Z-q0KDao>k*?#Xq%aSF;dRk?sH6l8;u8mj7TvGL++)X{qC3=oPNgfXmAee#n zVp0$dEX$DWWdJ0-2*_JJ|1{Di+OJiTJ$%V6eEY%!Hi2oy*xCTA_dG!nM!Q7GF`N*G zTaV?2w+#y5>nm*OIlTa{JU)RRlUQwCF5*K6%U^7VDlv0xQea$7Ft7LVq zFO8ebh~v09KnHvJbpLv3~1d&yu;M`(`p{geN}l7Rzn9h%zGqm&5F=IMYZyr-xF8 zS4nS3af>U>-QrIzP*Y;hBBH`x%i36Awk@c$^4bmeMM%4HBz^D&A`P8V>*%o$77=51 zSq4)I5^ox*&;RZW7UK!h{qSdSsT~UJ(8403)ba?yIHgq}*-8y;9_ciAG(4`H^4whd zgHvR_5-Awg0$o8q)U4lSbBT`%pUEN6=S&;iM9qiYbg*M&E~$GaF>QI?2)|It2C(+J zHs%_VJqU=TmZbC9V6Ao!+mUFbRSId;iKg|Lr>+8t!Nnq<=oD98Bxas4VWjrC9J;zC_n^iDMY7&6L$h6}kSI z39Mn3Cp#%C0lU7}7Zc}=VOzYh`f@eWCj7?}i7s*Ld8Hr~uIGx)Kf>!x3^2ozS^&0@ z%q1-)_43OPHDD31ZLr=w!7a|N3a>Z$Pq6u9E~)eVF7cO_={N63jZo6mOOFNXPo(yuO44?~c=|PHs9y z@EF45oTuJ?@rDNwtOxDIs52d`i2=4$Q}?$?-&sUQOfgp5uOu^PQrPEEFxF?fWc9UU zmKU};#6u0ZjgR8owJ|&mH2;uLFsubS*pXAJw-||&P{wO`O(0<$joc~~y1QDcfoyxg Hx@7+k=NS5n literal 0 HcmV?d00001 diff --git a/Clase/ferestre_roadef.vc2 b/Clase/ferestre_roadef.vc2 new file mode 100644 index 0000000..0d90613 --- /dev/null +++ b/Clase/ferestre_roadef.vc2 @@ -0,0 +1,229 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ferestre_roadef.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_log_redeschid AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_log_redeschid" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_log_redeschid.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_COMBOBOX1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 386 + Name = "frm_log_redeschid" + Width = 489 + _shape1.Anchor = 11 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 600 + _shape2.Anchor = 9 + _shape2.Left = 438 + _shape2.Name = "_shape2" + _shape2.Top = 0 + Lb_titlu_alb_b121.Caption = "Istoric deschideri/redeschideri de luna" + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 458 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 264 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 12 + * + + ADD OBJECT '_COMBOBOX1' AS _combobox WITH ; + Height = 24, ; + Left = 6, ; + Name = "_COMBOBOX1", ; + RowSource = "crsLog_luni", ; + RowSourceType = 2, ; + Top = 36, ; + Width = 138 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'grid_log_redeschid' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 6, ; + DeleteMark = .F., ; + Height = 312, ; + Left = 6, ; + Name = "grid_log_redeschid", ; + Panel = 1, ; + RecordSource = "crsLog_redeschid", ; + Top = 66, ; + Width = 474, ; + Column1.ControlSource = "anul", ; + Column1.Name = "Column1", ; + Column1.Width = 39, ; + Column2.ControlSource = "luna", ; + Column2.Name = "Column2", ; + Column2.Width = 37, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "utilizator", ; + Column3.Name = "Column3", ; + Column3.Width = 96, ; + Column4.ColumnOrder = 3, ; + Column4.ControlSource = "dataora", ; + Column4.Name = "Column4", ; + Column4.Width = 96, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "program", ; + Column5.Name = "Column5", ; + Column5.Width = 74, ; + Column6.ColumnOrder = 4, ; + Column6.ControlSource = 'iif(crsLog_redeschid.deschid=1,"Deschidere luna","Redeschidere luna")', ; + Column6.Name = "Column6", ; + Column6.Width = 91 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_log_redeschid.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Anul", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_log_redeschid.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_log_redeschid.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_log_redeschid.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_log_redeschid.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Utilizator", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_log_redeschid.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_log_redeschid.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Dataora", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_log_redeschid.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_log_redeschid.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Program", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_log_redeschid.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_log_redeschid.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Operatie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_log_redeschid.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + + LOCAL lcFiltru + lcFiltru = pcFiltru + + *!* IF EMPTY(lcFiltru) + *!* lcFiltru = poLog_redeschid.ca_baza1.cfiltru + *!* ENDIF + + save_grid_tag(THIS.grid_log_redeschid) + poLog_redeschid.ca_baza1.cfiltru = lcFiltru + poLog_redeschid.ca_baza1.afisare() + restore_grid_tag(THIS.grid_log_redeschid) + + This.grid_log_redeschid.Refresh + + + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru = "" + + lcAliasPerioada = This._cOMBOBOX1.RowSource + Select (lcAliasPerioada) + If !Empty(anul) And !Empty(luna) + lcFiltru = lcFiltru + [ anul = ] + Alltrim(Str(anul)) + [ and luna = ] + Alltrim(Str(luna)) + ENDIF + + This.actualizeaza_grid1(lcFiltru) + + + + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + + this._cOMBOBOX1.Value="" + ENDPROC + + PROCEDURE _COMBOBOX1.Valid + thisform.do_cauta() + ENDPROC + +ENDDEFINE diff --git a/Clase/oOptiuni.vc2 b/Clase/oOptiuni.vc2 new file mode 100644 index 0000000..9cb8bcd --- /dev/null +++ b/Clase/oOptiuni.vc2 @@ -0,0 +1,3939 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ooptiuni.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS cus_odata_cote AS _cusodatabase OF "..\libs\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h" + * + *p: cschema + * + + * + cschema = + Name = "cus_odata_cote" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + lcs = this.cschema + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + IF INLIST(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + + ENDIF + + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.descriere)),['],['']),"") + lcLuna = ALLTRIM(STR(toRec.luna)) + lcAn = ALLTRIM(STR(toRec.an)) + lcProcent = ALLTRIM(STR(toRec.procent)) + lcproc = ALLTRIM(STR(toRec.proc_tva,5,2)) + + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + lcS + [.cote_tva (descriere,procent,proc_tva,an,luna) VALUES ('] +; + lcnume + [',] + lcProcent + [,] + lcproc + [,] + lcan + [,] + lcluna + [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + lcS + [.cote_tva SET descriere = '] + lcnume + ; + [', procent = ] + lcprocent + [,proc_tva = ] + lcproc + [, an = ] + lcan + [, luna = ] + lcluna +; + [ where id_proc_tva = ] + lcId + + + Case lcActiune = "DELETE" + + lcSql = [delete from ] + lcS + [.cote_tva where id_proc_tva=] + lcId + + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_exceptii AS _cusodatabase OF "..\libs\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h" + * + *p: cschema + * + + * + cschema = + Name = "cus_odata_exceptii" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + lcs = this.cschema + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + IF INLIST(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + + ENDIF + + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcCont = Nvl(STRTRAN(Alltrim(Upper(toRec.cont)),['],['']),"") + lcContC = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_c)),['],['']),"") + lcDebit = ALLTRIM(STR(toRec.debit)) + lcInvers = '1' + + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + lcS + [.exceptii_ireg (cont,cont_c,debit,invers) VALUES ('] +; + lcCont + [','] + lcContC + [',] + lcDebit + [,] + lcInvers + [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + lcS + [.exceptii_ireg SET cont = '] + lccont + ; + [', cont_c = '] + lcContC + [',debit = ] + lcDebit + [, invers = ] + lcInvers +; + [ where id_exceptii = ] + lcId + + + Case lcActiune = "DELETE" + + lcSql = [delete from ] + lcS + [.exceptii_ireg where id_exceptii = ] + lcId + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_firme_201402 AS _cusodatabase OF "..\..\roacomenzi\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_firme" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lnid_formaj = NVL(ALLTRIM(STR(toRec.id_forma_juridica)),"0") + lnid_formao = NVL(ALLTRIM(STR(toRec.id_forma_organizare)),"0") + lnid_formap = NVL(ALLTRIM(STR(toRec.id_forma_prop)),"0") + lnid_tip_soc = NVL(ALLTRIM(STR(toRec.id_tip_soc)),"0") + + lcindicativ = Nvl(STRTRAN(Alltrim(Upper(toRec.indicativ)),['],['']),"") + + lcfirma = Nvl(STRTRAN(Alltrim(Upper(toRec.firma)),['],['']),"") + lcantet = Nvl(STRTRAN(Alltrim(Upper(toRec.antet)),['],['']),"") + lcCodF = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_fiscal)),['],['']),"") + lcregc = Nvl(STRTRAN(Alltrim(Upper(toRec.reg_comert)),['],['']),"") + lcbanca1 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca1)),['],['']),"") + lccontb1 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca1)),['],['']),"") + lcbanca2 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca2)),['],['']),"") + lccontb2 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca2)),['],['']),"") + lcBanca3 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca3)),['],['']),"") + lccontb3 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca3)),['],['']),"") + lcadresa = Nvl(STRTRAN(Alltrim(Upper(toRec.adresa)),['],['']),"") + lcCodFirma = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_firma)),['],['']),"") + lnpersj = NVL(ALLTRIM(STR(toRec.persoana_juridica)),"0") + lncodang = NVL(ALLTRIM(STR(toRec.codang)),"0") + lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.nume)),['],['']),"") + lcprenume = Nvl(STRTRAN(Alltrim(Upper(toRec.prenume)),['],['']),"") + lctel = Nvl(STRTRAN(Alltrim(Upper(toRec.telefon)),['],['']),"") + lctel2 = Nvl(STRTRAN(Alltrim(Upper(toRec.telefon2)),['],['']),"") + lctel3 = Nvl(STRTRAN(Alltrim(Upper(toRec.telefon3)),['],['']),"") + lcfax = Nvl(STRTRAN(Alltrim(Upper(toRec.fax)),['],['']),"") + lcemail = Nvl(STRTRAN(Alltrim(Upper(toRec.email)),['],['']),"") + lcoasp = Nvl(STRTRAN(Alltrim(Upper(toRec.oasp)),['],['']),"") + lncapsv =NVL(ALLTRIM(STR(toRec.capital_soc_var,16,2)),"0") + lncapss =NVL(ALLTRIM(STR(toRec.capital_soc_sub,16,2)),"0") + lcpctl = Nvl(STRTRAN(Alltrim(Upper(toRec.punct_luc)),['],['']),"") + lccaen = Nvl(STRTRAN(Alltrim(Upper(toRec.caen)),['],['']),"") + lcschema = Nvl(STRTRAN(Alltrim(Upper(toRec.schema)),['],['']),"") + *!* lnidm = NVL(ALLTRIM(STR(toRec.id_mama)),"0") + *!* lnmama = NVL(ALLTRIM(STR(toRec.mama)),"0") + lcsucursala = Nvl(STRTRAN(Alltrim(Upper(toRec.sucursala)),['],['']),"") + *!* lnidl = NVL(ALLTRIM(STR(toRec.id_loc)),"0") + lcjudet = Nvl(STRTRAN(Alltrim(Upper(toRec.judet)),['],['']),"") + lclocalitate = Nvl(STRTRAN(Alltrim(Upper(toRec.localitate)),['],['']),"") + lcstrada = Nvl(STRTRAN(Alltrim(Upper(toRec.strada)),['],['']),"") + lcnumar = Nvl(STRTRAN(Alltrim(Upper(toRec.numar)),['],['']),"") + lcbloc = Nvl(STRTRAN(Alltrim(Upper(toRec.bloc)),['],['']),"") + lcscara = Nvl(STRTRAN(Alltrim(Upper(toRec.scara)),['],['']),"") + lccod_postal = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_postal)),['],['']),"") + lnapart = NVL(ALLTRIM(STR(toRec.apart)),"0") + lnidm="0" + lnmama="0" + lnidl=NVL(ALLTRIM(STR(toRec.id_loc)),"0") + Endif + + Do Case + Case lcActiune = "INSERT" + lcSql = [begin contafin_oracle.pack_drepturi.firmeinsproc('] + lcfirma + [','] + lcantet + [','] + ; + lcCodF + [','] + lcregc + [','] + lcbanca1 + [','] + lccontb1 + ; + [','] + lcbanca2 + [','] + lccontb2 + [','] + lcbanca3 + ; + [','] + lccontb3 + [','] + lcadresa + [','] + lcCodFirma + ; + [',] + lnpersj + [,] + lncodang + [,'] + lcnume + ; + [','] + lcprenume + [','] + lctel + [','] + lctel2 + [','] + lctel3 + [','] + lcfax + ; + [','] + lcemail + [','] + lcoasp + [',] + lncapsv + ; + [,] + lncapss + [,'] + lcpctl + [','] + lccaen + [','] + lcSchema + ; + [',] + lnidm + [,] + lnmama + [,'] + lcsucursala + [',] + lnidl + [,]+ ALLTRIM(STR(gnIdUtil))+; + [,] + lnid_formaj + [,] + lnid_formao + [,] + lnid_formap + [,] + lnid_tip_soc + ; + [,'] + lcindicativ + ['); end;] + + Case lcActiune = "UPDATE" + lcSql = [begin contafin_oracle.pack_drepturi.deffirmemodproc(]+lcId+[,'] + lcfirma + [','] + lcantet + [','] + ; + lcCodF + [','] + lcregc + [','] + lcbanca1 + [','] + lccontb1 + ; + [','] + lcbanca2 + [','] + lccontb2 + [','] + lcbanca3 + ; + [','] + lccontb3 + [','] + lcadresa + [','] + lcCodFirma + ; + [',] + lnpersj + [,] + lncodang + [,'] + lcnume + ; + [','] + lcprenume + [','] + lctel + [','] + lctel2 + [','] + lctel3 + [','] + lcfax + ; + [','] + lcemail + [','] + lcoasp + [',] + lncapsv + ; + [,] + lncapss + [,'] + lcpctl + [','] + lccaen + [','] + lcSchema + ; + [','] + lcjudet + [','] + lclocalitate +[','] + lcstrada + [','] + lcnumar + ; + [','] + lcbloc + [','] + lcscara + [',] + lnapart + [,'] + lccod_postal + ; + [',] + lnidm + [,] + lnmama + [,'] + lcsucursala + [',] + lnidl + [,]+ ALLTRIM(STR(gnIdUtil))+; + [,] + lnid_formaj + [,] + lnid_formao + [,] + lnid_formap + [,] + lnid_tip_soc + ; + [,'] + lcindicativ + ['); end;] + STRTOFILE(lcsql,'c:\jurnal.txt') + *!* RETURN + Case lcActiune = "DELETE" + lcSql = [begin contafin_oracle.pack_drepturi.firmedelproc(] + lcId + [,] + ALLTRIM(STR(gnIdUtil)) + [); end;] + Endcase + This.csql = lcSql + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_optiuni AS _cusodatabase OF "..\libs\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h" + * + *p: cschema + * + + * + cschema = + Name = "cus_odata_optiuni" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + lcs = this.cschema + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + IF INLIST(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + + ENDIF + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.varname)),['],['']),"") + lctip = Nvl(STRTRAN(Alltrim(Upper(toRec.vartype)),['],['']),"") + lcval = Nvl(STRTRAN(Alltrim(Upper(toRec.varvalue)),['],['']),"") + lcdesc = Nvl(STRTRAN(Alltrim(Upper(toRec.vardesc)),['],['']),"") + + + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + lcS + [.optiuni (varname,vartype,varvalue,vardesc) VALUES ('] +; + lcnume + [','] + lctip + [','] + lcval + [','] + lcdesc + [')] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + lcS + [.optiuni SET varname = '] + lcnume + ; + [', vartype = '] + lctip + [',varvalue = '] + lcval + [', vardesc = '] + lcdesc + ; + [' where id_optiuni = ] + lcId + + Case lcActiune = "DELETE" + + lcSql = [delete from ] + lcS + [.optiuni where id_optiuni=] + lcId + + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_plafon_casa AS _cusodatabase OF "..\..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *p: cschema + * + + * + cschema = + Name = "cus_odata_plafon_casa" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + LOCAL lcActiune, lcs + PRIVATE pnId,pnPlCasa,pnPlPlati,pnPlFurn + + lcActiune = Alltrim(This.cActiune) + *lcs = this.cschema + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + IF INLIST(lcActiune, "UPDATE",'DELETE') + pcId = ALLTRIM(STR(tnId)) + ENDIF + + + If Inlist(lcActiune, "UPDATE",'INSERT') + pcPlCasa = ALLTRIM(STR(toRec.plafon_casa,16,gnPa)) + pcPlPlati = ALLTRIM(STR(toRec.plafon_plati,16,gnPa)) + pcPlFurn = ALLTRIM(STR(toRec.plafon_furnizori,16,gnPa)) + Endif + + + Do Case + Case lcActiune = "INSERT" + + *!* lcSql = [INSERT INTO ] + lcS + [.cote_tva (descriere,procent,proc_tva,an,luna) VALUES ('] +; + *!* lcnume + [',] + lcProcent + [,] + lcproc + [,] + lcan + [,] + lcluna + [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE calendar SET ] + ; + [ plafon_casa = ] + pcPlCasa + [, plafon_plati = ] + pcPlPlati + [, plafon_furnizori = ] + pcPlFurn + ; + [ where id_calendar = ] + pcId + + + Case lcActiune = "DELETE" + + *!* lcSql = [delete from ] + lcS + [.cote_tva where id_proc_tva=] + lcId + + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_cote_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_cote1" UniqueID="" Timestamp="" /> + + * + *p: cschema + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 165 + Name = "frm_cote_nou" + Width = 314 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 252 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 76 + Lb_titlu_alb_b121.Caption = "Cote tva" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 283 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 253, ; + Name = "But_renunt1", ; + TabIndex = 6, ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 44, ; + Text_simplu1.ControlSource = "porec.descriere", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Descriere", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 72, ; + Text_simplu1.ControlSource = "porec.procent", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Procent", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 3, ; + Top = 100, ; + Text_simplu1.ControlSource = "porec.luna", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Luna", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 4, ; + Top = 128, ; + Text_simplu1.ControlSource = "porec.an", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "An", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_cote1' AS cus_odata_cote WITH ; + Left = 119, ; + Name = "Cus_odata_cote1", ; + Top = 28 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(this.ActiveControl.BaseClass ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.Activecontrol.controlsource + &lcval=thisform.ActiveControl.value + ENDIF + + + Do Case + Case Empty(porec.descriere) + Messagebox('Nu ati completat descrierea cotei de tva!',0+48,"Atentie") + This.clb_tx_simplu1.SetFocus() + plreturn=.F. + + *!* Case Empty(porec.procent) + *!* Messagebox('Nu ati completat procentul de tva!',0+48,"Atentie") + *!* This.clb_tx_simplu2.SetFocus() + *!* plreturn=.F. + + Case Empty(porec.luna) + Messagebox('Nu ati completat luna!',0+48,"Atentie") + This.clb_tx_simplu3.SetFocus() + plreturn=.F. + + Case Empty(porec.an) + Messagebox('Nu ati completat anul!',0+48,"Atentie") + This.clb_tx_simplu6.SetFocus() + plreturn=.F. + + OTHERWISE + this.cus_odata_cote1.cschema=this.cschema + PLRETURN=This.cus_odata_cote1.salvare(This.OREC,This.NID) + ENDCASE + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_cote1.cactiune = tcActiune + ENDPROC + + PROCEDURE Clb_tx_simplu2.Text_simplu1.Valid + + porec.proc_tva = (100+this.value)/100 + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_cote_tva AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_cot" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nom_cot" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + + * + *p: cschema + * + + * + BorderStyle = 1 + cgridsortlist = grid_cot + cschema = CONTAFIN_ORACLE + DoCreate = .T. + Height = 351 + Name = "frm_cote_tva" + Width = 524 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 522 + _shape2.Height = 29 + _shape2.Left = 402 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 120 + Lb_titlu_alb_b121.Caption = "COTE TVA" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 494 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 434, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 403, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 463, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 299, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 52 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_cot' AS _grid WITH ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 264, ; + Left = 5, ; + Name = "grid_cot", ; + Panel = 1, ; + RecordSource = "v_cote_tva", ; + RowHeight = 23, ; + Top = 84, ; + Width = 513, ; + Column1.ControlSource = "descriere", ; + Column1.Name = "Column1", ; + Column1.Width = 305, ; + Column2.ControlSource = "procent", ; + Column2.Name = "Column2", ; + Column2.Width = 66, ; + Column3.ControlSource = "luna", ; + Column3.Name = "Column3", ; + Column3.Width = 43, ; + Column4.ControlSource = "an", ; + Column4.Name = "Column4", ; + Column4.Width = 64 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_cot.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_cot.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent %", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_cot.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column3.Text1' AS textbox WITH ; + Height = 23, ; + Left = 31, ; + Name = "Text1", ; + Top = 35, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_cot.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "An", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lb_nom_cot' AS clb_tx_simplu WITH ; + Left = 8, ; + Name = "lb_nom_cot", ; + TabIndex = 1, ; + Top = 52, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Nume", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=pcot.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_cot) + pcot.ca_baza1.cfiltru=lcFiltru + pcot.ca_baza1.afisare() + restore_grid_tag(thisform.grid_cot) + IF RECCOUNT('v_cote_tva')>0 + thisform.grid_cot.SetFocus() + ELSE + thisform.lb_nom_cot.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + SELECT v_cote_tva + SCATTER NAME loRec BLANK + PRIVATE lcot,poRec + lcot='' + poRec = loRec + DO Adauga_Modifica_Inregistrare WITH "cote",loRec,,"INSERT",.t.,'lcot' + lcot.cschema = this.cschema + lcot.show(1) + RELEASE lcot,poRec + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_cot.text_simplu1.value)),['],['']) + If !Empty(lcNume) + lcFiltru=[descriere like ']+lcNume+[%' and an=]+pcAn + ELSE + lcFiltru = [an=]+pcAn + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + Select v_cote_tva + Scatter Name loRec + PRIVATE lcot,poRec + lcot = '' + poRec = loRec + Do Adauga_Modifica_Inregistrare With "cote",loRec,loRec.Id_proc_tva,"UPDATE",.t.,'lcot' + lcot.cschema = this.cschema + lcot.show(1) + RELEASE lcot,poRec + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT v_cote_tva + SCATTER NAME lorec MEMO + PRIVATE lcot + lcot = '' + Do STERGE_INREGISTRARE With "cote",loRec.id_proc_tva,.t.,'lcot' + lcot.cschema = this.cschema + lcot.salvare(,loRec.id_proc_tva) + RELEASE lcot + + this.actualizeaza_grid1() + + + ENDPROC + + PROCEDURE Unload + IF USED('v_cote_tva') + USE IN v_cote_tva + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_exceptii_ireg AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_ex" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nom_ex" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + + * + *p: cschema + * + + * + BorderStyle = 1 + cgridsortlist = grid_ex + cschema = CONTAFIN_ORACLE + DoCreate = .T. + Height = 351 + Name = "frm_exceptii_ireg" + Width = 463 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 466 + _shape2.Height = 29 + _shape2.Left = 346 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 120 + Lb_titlu_alb_b121.Caption = "EXCEPTII" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 433 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 373, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 342, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 402, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 299, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 52 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_ex' AS _grid WITH ; + ColumnCount = 5, ; + DeleteMark = .F., ; + Height = 264, ; + Left = 4, ; + Name = "grid_ex", ; + Panel = 1, ; + RecordSource = "v_exceptii_ireg", ; + RowHeight = 23, ; + Top = 84, ; + Width = 456, ; + Column1.ControlSource = "cont", ; + Column1.Name = "Column1", ; + Column1.Width = 124, ; + Column2.ControlSource = "cont_c", ; + Column2.Name = "Column2", ; + Column2.Width = 119, ; + Column3.ControlSource = "iif(debit=0,'DEBIT','CREDIT')", ; + Column3.Name = "Column3", ; + Column3.Width = 179, ; + Column4.ControlSource = "invers", ; + Column4.Name = "Column4", ; + Column4.Visible = .F., ; + Column4.Width = 59, ; + Column5.ControlSource = "id_set", ; + Column5.Name = "Column5", ; + Column5.Visible = .F., ; + Column5.Width = 70 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_ex.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont_corespondent", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pozitie cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column3.Text1' AS textbox WITH ; + Height = 23, ; + Left = 31, ; + Name = "Text1", ; + Top = 35, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Invers", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id_set", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lb_nom_ex' AS clb_tx_simplu WITH ; + Left = 8, ; + Name = "lb_nom_ex", ; + TabIndex = 1, ; + Top = 52, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Cont", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=pex.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_ex) + pex.ca_baza1.cfiltru=lcFiltru + pex.ca_baza1.afisare() + restore_grid_tag(thisform.grid_ex) + IF RECCOUNT('v_exceptii_ireg')>0 + thisform.grid_ex.SetFocus() + ELSE + thisform.lb_nom_ex.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + SELECT v_exceptii_ireg + SCATTER NAME loRec BLANK + PRIVATE lex,poRec + + lex='' + poRec = loRec + DO Adauga_Modifica_Inregistrare WITH "exceptii",loRec,,"INSERT",.t.,'lex' + lex.cschema = this.cschema + lex.show(1) + RELEASE lex,poRec + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_ex.text_simplu1.value)),['],['']) + If !Empty(lcNume) + lcFiltru=[cont like ']+lcNume+[%'] + ELSE + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + Select v_exceptii_ireg + Scatter Name loRec + PRIVATE lex,poRec + lex = '' + poRec = loRec + Do Adauga_Modifica_Inregistrare With "exceptii",loRec,loRec.Id_exceptii,"UPDATE",.t.,'lex' + lex.cschema = this.cschema + lex.show(1) + RELEASE lex,poRec + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT v_exceptii_ireg + SCATTER NAME lorec MEMO + PRIVATE lex + lex = '' + Do STERGE_INREGISTRARE With "exceptii",loRec.id_exceptii,.t.,'lex' + lex.cschema = this.cschema + lex.salvare(,loRec.id_exceptii) + RELEASE lex + + this.actualizeaza_grid1() + + + ENDPROC + + PROCEDURE Unload + IF USED('v_exceptii_ireg') + USE IN v_exceptii_ireg + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_exceptii_nou AS _frmbase OF "..\libs\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_exceptii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" /> + + * + *p: cschema + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 133 + Name = "frm_exceptii_nou" + Width = 314 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 252 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 76 + Lb_titlu_alb_b121.Caption = "Exceptii" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 6 + BUT_TERMIN1.Left = 283 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 253, ; + Name = "But_renunt1", ; + TabIndex = 5, ; + Top = 1 + *< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 15, ; + Name = "Cb_tx_simplu1", ; + TabIndex = 3, ; + Top = 102, ; + Width = 290, ; + _cbbase1.BoundTo = .T., ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "DEBIT,CREDIT", ; + _cbbase1.RowSourceType = 1, ; + _lbbase1.Caption = "Pozitie", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 44, ; + Text_simplu1.ControlSource = "porec.cont", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Cont", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 72, ; + Text_simplu1.ControlSource = "porec.cont_c", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Corespondent", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_exceptii1' AS cus_odata_exceptii WITH ; + Left = 168, ; + Name = "Cus_odata_exceptii1", ; + Top = 33 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + porec.debit = IIF(this.cb_tx_simplu1._CBBASE1.Value="DEBIT",0,1) + lccontrol = UPPER(this.ActiveControl.BaseClass ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.Activecontrol.controlsource + &lcval=thisform.ActiveControl.value + ENDIF + + + Do Case + Case Empty(porec.cont) + Messagebox('Nu ati completat contul!',0+48,"Atentie") + This.clb_tx_simplu1.SetFocus() + plreturn=.F. + + Case Empty(porec.cont_c) + Messagebox('Nu ati completat contul corespondent!',0+48,"Atentie") + This.clb_tx_simplu2.SetFocus() + plreturn=.F. + + *!* Case Empty(porec.debit) + *!* Messagebox('Nu ati completat pozitia contului!',0+48,"Atentie") + *!* This.clb_tx_simplu3.SetFocus() + *!* plreturn=.F. + + OTHERWISE + + lcCont = ALLTRIM(porec.cont) + lcContC = ALLTRIM(porec.cont_c) + lcSql = [select * from ] + gcS + [.plcont where cont=]+lcCont + lcCursor = [cur_cont] + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() &&Verific contu in plcont + + IF RECCOUNT('cur_cont')=0 + MESSAGEBOX('Contul '+lcCont+' nu este definit in planul de conturi!',0,'Eroare') + PLRETURN=.f. + USE IN cur_cont + RETURN PLRETURN + ENDIF + IF USED('cur_cont') + USE IN cur_cont + ENDIF + + lcSql = [select * from ] + gcS + [.plcont where cont=]+lcContC + lcCursor = [cur_cont_c] + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() &&Verific contul corespondent + IF RECCOUNT('cur_cont_c')=0 + MESSAGEBOX('Contul '+lcContC+' nu este definit in planul de conturi!',0,'Eroare') + PLRETURN=.f. + USE IN cur_cont_c + RETURN PLRETURN + ENDIF + IF USED('cur_cont_c') + USE IN cur_cont_c + ENDIF + this.cus_odata_exceptii1.cschema=this.cschema + PLRETURN=This.cus_odata_exceptii1.salvare(This.OREC,This.NID) + ENDCASE + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + IF porec.debit=0 + this.cb_tx_simplu1._cBBASE1.DisplayValue='DEBIT' + ELSE + this.cb_tx_simplu1._cBBASE1.DisplayValue='CREDIT' + ENDIF + this.orec= toRec + this.nid = tnId + this.cus_odata_exceptii1.cactiune = tcActiune + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_firme_201402 AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cFirma.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cFirma.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cSchema.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cSchema.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCod_Fiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCod_Fiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCont_Banca1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCont_Banca1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cBanca1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cBanca1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cBanca2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cBanca2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCont_Banca2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCont_Banca2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cBanca3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cBanca3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCont_Banca3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCont_Banca3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cAdresa.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cAdresa.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCod_Firma.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCod_Firma.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cPersoanaJuridica.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cPersoanaJuridica.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCodAng.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCodAng.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cPrenume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cPrenume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_sub.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_sub.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_var.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_var.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCaen.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cCaen.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cPunctLucru.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cPunctLucru.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cOasp.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cOasp.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cTelefon.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cTelefon.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cTelefon2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cTelefon2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cTelefon3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cTelefon3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cFax.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cFax.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cEmail.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cEmail.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cReg_Comert.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cReg_Comert.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cSucursala.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_firme.cSucursala.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cod_fiscal" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_reg_comert" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_banca1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cont_banca1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cod_firma" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_fax" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_email" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ed_adresa" UniqueID="" Timestamp="" /> + + * + *m: do_refresh_date + * + + * + cbuton3 = but_modifica1 + cbuton4 = but_sterge1 + cgridsortlist = grd_firme + Desktop = .T. + DoCreate = .T. + Height = 515 + lactiv3 = .T. + lactiv4 = .T. + Name = "frm_firme" + Width = 791 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 792 + _SHAPE2.Height = 29 + _SHAPE2.Left = 648 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 144 + LB_TITLU_ALB_B121.Caption = "FIRME" + LB_TITLU_ALB_B121.FontBold = .T. + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 9 + BUT_TERMIN1.Left = 756 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 2 + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 689, ; + Name = "But_modifica1", ; + TabIndex = 4, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 655, ; + Name = "But_nou1", ; + TabIndex = 5, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 723, ; + Name = "But_sterge1", ; + TabIndex = 3, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_banca1' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_banca1", ; + TabIndex = 10, ; + TabStop = .F., ; + Top = 244, ; + TEXT_SIMPLU1.ControlSource = "porec.banca1", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Banca 1", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cod_firma' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_cod_firma", ; + TabIndex = 12, ; + TabStop = .F., ; + Top = 300, ; + TEXT_SIMPLU1.ControlSource = "porec.cod_firma", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Cod firma", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cod_fiscal' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_cod_fiscal", ; + TabIndex = 7, ; + TabStop = .F., ; + Top = 188, ; + Width = 290, ; + TEXT_SIMPLU1.ControlSource = "porec.cod_fiscal", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Cod fiscal", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cont_banca1' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_cont_banca1", ; + TabIndex = 11, ; + TabStop = .F., ; + Top = 272, ; + TEXT_SIMPLU1.ControlSource = "porec.cont_banca1", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Cont banca 1", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_email' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_email", ; + TabIndex = 17, ; + TabStop = .F., ; + Top = 440, ; + TEXT_SIMPLU1.ControlSource = "porec.email", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "E-mail", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_fax' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_fax", ; + TabIndex = 16, ; + TabStop = .F., ; + Top = 412, ; + TEXT_SIMPLU1.ControlSource = "porec.fax", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Fax", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_reg_comert' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_reg_comert", ; + TabIndex = 8, ; + TabStop = .F., ; + Top = 216, ; + TEXT_SIMPLU1.ControlSource = "porec.reg_comert", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Reg. comert", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_telefon", ; + TabIndex = 13, ; + TabStop = .F., ; + Top = 328, ; + TEXT_SIMPLU1.ControlSource = "porec.telefon", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Telefon", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon2' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_telefon2", ; + TabIndex = 14, ; + TabStop = .F., ; + Top = 356, ; + TEXT_SIMPLU1.ControlSource = "porec.telefon2", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Telefon 2", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon3' AS clb_tx_simplu WITH ; + Left = 466, ; + Name = "Clb_telefon3", ; + TabIndex = 15, ; + TabStop = .F., ; + Top = 384, ; + TEXT_SIMPLU1.ControlSource = "porec.telefon3", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Telefon 3", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ed_adresa' AS ed_tx_simplu WITH ; + Height = 124, ; + Left = 466, ; + Name = "Ed_adresa", ; + TabIndex = 6, ; + TabStop = .F., ; + Top = 65, ; + Width = 290, ; + _edbase1.ControlSource = "porec.adresa", ; + _edbase1.Height = 118, ; + _edbase1.Left = 58, ; + _edbase1.Name = "_edbase1", ; + _edbase1.ReadOnly = .T., ; + _edbase1.Top = 2, ; + _edbase1.Width = 228, ; + _LBBASE1.Caption = "Adresa", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'grd_firme' AS _grdrow WITH ; + ColumnCount = 27, ; + DeleteMark = .F., ; + Height = 444, ; + Left = 36, ; + Name = "grd_firme", ; + Panel = 1, ; + RecordSource = "v_firme", ; + TabIndex = 1, ; + Top = 48, ; + Width = 396, ; + Column1.ControlSource = "firma", ; + Column1.Name = "cFirma", ; + Column1.Width = 155, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "schema", ; + Column2.Name = "cSchema", ; + Column2.Width = 120, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "cod_fiscal", ; + Column3.Name = "cCod_Fiscal", ; + Column3.Width = 120, ; + Column4.ColumnOrder = 7, ; + Column4.ControlSource = "cont_banca1", ; + Column4.Name = "cCont_Banca1", ; + Column4.Width = 161, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "banca1", ; + Column5.Name = "cBanca1", ; + Column5.Width = 121, ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "banca2", ; + Column6.Name = "cBanca2", ; + Column6.Width = 131, ; + Column7.ColumnOrder = 9, ; + Column7.ControlSource = "cont_banca2", ; + Column7.Name = "cCont_Banca2", ; + Column7.Width = 149, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "banca3", ; + Column8.Name = "cBanca3", ; + Column8.Width = 148, ; + Column9.ColumnOrder = 11, ; + Column9.ControlSource = "cont_banca3", ; + Column9.Name = "cCont_Banca3", ; + Column9.Width = 141, ; + Column10.ColumnOrder = 12, ; + Column10.ControlSource = "adresa", ; + Column10.Name = "cAdresa", ; + Column10.Width = 174, ; + Column11.ColumnOrder = 13, ; + Column11.ControlSource = "cod_firma", ; + Column11.Name = "cCod_Firma", ; + Column11.Width = 98, ; + Column12.ColumnOrder = 19, ; + Column12.ControlSource = "persoana_juridica", ; + Column12.Name = "cPersoanaJuridica", ; + Column12.Sparse = .F., ; + Column12.Width = 99, ; + Column13.ColumnOrder = 20, ; + Column13.ControlSource = "codang", ; + Column13.Name = "cCodAng", ; + Column13.Width = 130, ; + Column14.ColumnOrder = 21, ; + Column14.ControlSource = "nume", ; + Column14.Name = "cNume", ; + Column14.Width = 119, ; + Column15.ColumnOrder = 22, ; + Column15.ControlSource = "prenume", ; + Column15.Name = "cPrenume", ; + Column15.Width = 132, ; + Column16.ColumnOrder = 24, ; + Column16.ControlSource = "capital_soc_sub", ; + Column16.Name = "cCapital_soc_sub", ; + Column16.Width = 134, ; + Column17.ColumnOrder = 25, ; + Column17.ControlSource = "capital_soc_var", ; + Column17.Name = "cCapital_soc_var", ; + Column17.Width = 116, ; + Column18.ColumnOrder = 27, ; + Column18.ControlSource = "caen", ; + Column18.Name = "cCaen", ; + Column18.Width = 129, ; + Column19.ColumnOrder = 26, ; + Column19.ControlSource = "punct_luc", ; + Column19.Name = "cPunctLucru", ; + Column19.Width = 107, ; + Column20.ColumnOrder = 23, ; + Column20.ControlSource = "oasp", ; + Column20.Name = "cOasp", ; + Column20.Width = 112, ; + Column21.ColumnOrder = 14, ; + Column21.ControlSource = "telefon", ; + Column21.Name = "cTelefon", ; + Column21.Width = 103, ; + Column22.ColumnOrder = 15, ; + Column22.ControlSource = "telefon2", ; + Column22.Name = "cTelefon2", ; + Column22.Width = 115, ; + Column23.ColumnOrder = 16, ; + Column23.ControlSource = "telefon3", ; + Column23.Name = "cTelefon3", ; + Column23.Width = 125, ; + Column24.ColumnOrder = 17, ; + Column24.ControlSource = "fax", ; + Column24.Name = "cFax", ; + Column24.Width = 118, ; + Column25.ColumnOrder = 18, ; + Column25.ControlSource = "email", ; + Column25.Name = "cEmail", ; + Column25.Width = 122, ; + Column26.ColumnOrder = 4, ; + Column26.ControlSource = "reg_comert", ; + Column26.Name = "cReg_Comert", ; + Column26.Width = 147, ; + Column27.ColumnOrder = 5, ; + Column27.ControlSource = "sucursala", ; + Column27.Name = "cSucursala", ; + Column27.Width = 122 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grd_firme.cAdresa.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Adresa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cAdresa.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cBanca1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Banca 1", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cBanca1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cBanca2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Banca 2", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cBanca2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cBanca3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Banca 3", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cBanca3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCaen.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "CAEN", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCaen.Text1' AS textbox WITH ; + Alignment = 3, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCapital_soc_sub.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Capital social subscris", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCapital_soc_sub.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCapital_soc_var.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Capital social varsat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCapital_soc_var.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCod_Firma.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod firma", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCod_Firma.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCod_Fiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCod_Fiscal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCodAng.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod ang.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCodAng.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCont_Banca1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont banca 1", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCont_Banca1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCont_Banca2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont banca 2", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCont_Banca2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cCont_Banca3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont banca 3", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cCont_Banca3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cEmail.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "E-mail", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cEmail.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cFax.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fax", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cFax.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cFirma.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Firma", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cFirma.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cNume.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cOasp.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Oasp", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cOasp.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cPersoanaJuridica.Check1' AS checkbox WITH ; + Alignment = 2, ; + BackStyle = 0, ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 47, ; + Name = "Check1", ; + Top = 35, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grd_firme.cPersoanaJuridica.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Persoana juridica", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cPrenume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Prenume", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cPrenume.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cPunctLucru.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Punct de lucru", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cPunctLucru.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cReg_Comert.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Reg. comert", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cReg_Comert.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cSchema.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Schema", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cSchema.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cSucursala.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cSucursala.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cTelefon.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Telefon", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cTelefon.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cTelefon2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Telefon 2", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cTelefon2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_firme.cTelefon3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Telefon 3", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_firme.cTelefon3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + Lparameters pcFiltru + Local lcFiltru + lcFiltru=pcFiltru + If Empty(lcFiltru) + lcFiltru=pofirme.ca_baza1.cfiltru + Endif + save_grid_tag(Thisform.grd_firme) + pofirme.ca_baza1.cfiltru=lcFiltru + pofirme.ca_baza1.afisare() + restore_grid_tag(Thisform.grd_firme) + Thisform.grd_firme.SetFocus() + + ENDPROC + + PROCEDURE Destroy + If Used('v_firme') + Use In v_firme + Endif + ENDPROC + + PROCEDURE do_adauga + gnButon=1 + Select v_firme + Scatter Name loRec Blank + Do Adauga_Modifica_Inregistrare With "firme",loRec,,"INSERT" + If gnButon=1 + This.actualizeaza_grid1() + Endif + ENDPROC + + PROCEDURE do_modifica + If Reccount('v_firme')>0 + gnButon=1 + Select v_firme + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "firme",loRec,loRec.Id_firma,"UPDATE" + If gnButon=1 + This.actualizeaza_grid1() + Endif + Endif + ENDPROC + + PROCEDURE do_refresh_date + Thisform.ed_adresa.Refresh() + Thisform.clb_banca1.Refresh() + Thisform.clb_cod_firma.Refresh() + Thisform.clb_cod_fiscal.Refresh() + Thisform.clb_cont_banca1.Refresh() + Thisform.clb_email.Refresh() + Thisform.clb_fax.Refresh() + Thisform.clb_reg_comert.Refresh() + Thisform.clb_telefon.Refresh() + Thisform.clb_telefon2.Refresh() + Thisform.clb_telefon3.Refresh() + ENDPROC + + PROCEDURE do_sterge + If Reccount('v_firme')>0 + gnButon=1 + Select v_firme + Scatter Name loRec + Do STERGE_INREGISTRARE With "firme",loRec.Id_firma + If gnButon=1 + This.actualizeaza_grid1() + Endif + Endif + ENDPROC + + PROCEDURE grd_firme.AfterRowColChange + Lparameters nColIndex + If Inlist(This.RowColChange,0,1,3) + Select v_firme + Scatter Name poRec + Thisform.do_refresh_date() + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_firme_nou_201402 AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cod_fiscal" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_reg_comert" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_banca1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cont_banca1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_banca2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cont_banca2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_banca3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cont_banca3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cod_firma" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_capsocvar" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_fax" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_email" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_caen" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_codang" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_prenume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_capsocsub" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_oasp" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ed_adresa" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_firme1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ed_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="tx_parinte" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="tx_cod_fiscal_p" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_schema" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_cautare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_cautare2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_cautare3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_cautare4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_itm" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_localitate1" UniqueID="" Timestamp="" /> + + * + *m: alege_fj + *m: alege_judet + *m: alege_localitate + *m: alege_nivel + *m: alege_organizare + *m: alege_proprietate + *m: sucursala + *p: id_judet + *p: jcategorie + *p: nid + *p: orec + *p: parenta + * + + * + BorderStyle = 3 + Desktop = .F. + DoCreate = .T. + Height = 689 + id_judet = 0 + jcategorie = 1 + Name = "frm_firme_nou" + nid = + orec = + parenta = 0 + ScrollBars = 2 + Width = 701 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 702 + _SHAPE2.Height = 29 + _SHAPE2.Left = 630 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 72 + LB_TITLU_ALB_B121.Caption = "FIRMA" + LB_TITLU_ALB_B121.FontBold = .T. + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 44 + BUT_TERMIN1.Left = 669 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 42 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 9 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 214 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 635, ; + Name = "But_renunt1", ; + TabIndex = 43, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "Cb_tx_simplu1", ; + TabIndex = 1, ; + Top = 36, ; + Width = 314, ; + _cbbase1.BoundColumn = 2, ; + _cbbase1.BoundTo = .T., ; + _cbbase1.ColumnCount = 2, ; + _cbbase1.ControlSource = "thisform.jcategorie", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 78, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "Persoana juridica,1,Persoana fizica,2", ; + _cbbase1.RowSourceType = 1, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 232, ; + _lbbase1.Caption = "Categorie", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_tx_simplu2' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 353, ; + Name = "Cb_tx_simplu2", ; + TabIndex = 40, ; + Top = 717, ; + Width = 314, ; + _cbbase1.BoundColumn = 2, ; + _cbbase1.BoundTo = .T., ; + _cbbase1.ColumnCount = 2, ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 75, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "Adaugare,1,Modificare,2,Corectie,3", ; + _cbbase1.RowSourceType = 1, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 232, ; + _lbbase1.Caption = "Operaþie", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_banca1' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_banca1", ; + TabIndex = 17, ; + Top = 484, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.banca1", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Banca 1", ; + LB_SIMPLU1.Left = 5, ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_banca2' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_banca2", ; + TabIndex = 19, ; + Top = 540, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.banca2", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Banca 2", ; + LB_SIMPLU1.Left = 5, ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_banca3' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_banca3", ; + TabIndex = 21, ; + Top = 596, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.banca3", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Banca 3", ; + LB_SIMPLU1.Left = 5, ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_caen' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_caen", ; + TabIndex = 5, ; + Top = 150, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.caen", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.MaxLength = 4, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "CAEN", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_capsocsub' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_capsocsub", ; + TabIndex = 25, ; + Top = 708, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.capital_soc_sub", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 103, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 207, ; + LB_SIMPLU1.Caption = "Capital soc. sub.", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_capsocvar' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_capsocvar", ; + TabIndex = 24, ; + Top = 680, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.capital_soc_var", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 103, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 207, ; + LB_SIMPLU1.Caption = "Capital soc. vãr.", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cod_firma' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_cod_firma", ; + TabIndex = 23, ; + Top = 652, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.cod_firma", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Cod firmã", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cod_fiscal' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "Clb_cod_fiscal", ; + TabIndex = 4, ; + Top = 120, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.cod_fiscal", ; + Text_simplu1.Left = 78, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 232, ; + Lb_simplu1.Caption = "Cod fiscal", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_codang' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_codang", ; + TabIndex = 31, ; + Top = 457, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.codang", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "Cod angajat", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cont_banca1' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_cont_banca1", ; + TabIndex = 18, ; + Top = 512, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.cont_banca1", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Cont banca 1", ; + LB_SIMPLU1.Left = 4, ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cont_banca2' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_cont_banca2", ; + TabIndex = 20, ; + Top = 568, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.cont_banca2", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Cont banca 2", ; + LB_SIMPLU1.Left = 5, ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_cont_banca3' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_cont_banca3", ; + TabIndex = 22, ; + Top = 624, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.cont_banca3", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Cont banca 3", ; + LB_SIMPLU1.Left = 5, ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_email' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_email", ; + TabIndex = 38, ; + Top = 653, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.email", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "E-mail", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_fax' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_fax", ; + TabIndex = 37, ; + Top = 625, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.fax", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "Fax", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_itm' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_itm", ; + TabIndex = 26, ; + Top = 310, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.indicativ", ; + Text_simplu1.Left = 90, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Width = 220, ; + Lb_simplu1.Caption = "ITM", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_nume' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_nume", ; + TabIndex = 32, ; + Top = 485, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.nume", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "Nume", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_oasp' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_oasp", ; + TabIndex = 39, ; + Top = 683, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.oasp", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.MaxLength = 3, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "OASP", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_prenume' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_prenume", ; + TabIndex = 33, ; + Top = 513, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.prenume", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "Prenume", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_reg_comert' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_reg_comert", ; + TabIndex = 16, ; + Top = 456, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.reg_comert", ; + TEXT_SIMPLU1.Left = 78, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 232, ; + LB_SIMPLU1.Caption = "Reg. comerþ", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_schema' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "Clb_schema", ; + TabIndex = 41, ; + Top = 747, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.schema", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 78, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 232, ; + Lb_simplu1.Caption = "Schemã", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_telefon", ; + TabIndex = 34, ; + Top = 541, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.telefon", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "Telefon", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon2' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_telefon2", ; + TabIndex = 35, ; + Top = 569, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.telefon2", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "Telefon 2", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon3' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_telefon3", ; + TabIndex = 36, ; + Top = 597, ; + Width = 314, ; + TEXT_SIMPLU1.ControlSource = "porec.telefon3", ; + TEXT_SIMPLU1.Left = 90, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Width = 220, ; + LB_SIMPLU1.Caption = "Telefon 3", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 6, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 3, ; + Top = 92, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.firma", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 78, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 232, ; + Lb_simplu1.Caption = "Firma", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu10' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_tx_simplu10", ; + TabIndex = 29, ; + Top = 396, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.apart", ; + Text_simplu1.Left = 90, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 220, ; + Lb_simplu1.Caption = "Apartament", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu11' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_tx_simplu11", ; + TabIndex = 30, ; + Top = 429, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.cod_postal", ; + Text_simplu1.Left = 90, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 220, ; + Lb_simplu1.Caption = "Cod poºtal", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 14, ; + Top = 394, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.strada", ; + Text_simplu1.Left = 78, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 232, ; + Lb_simplu1.Caption = "Stradã", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu7' AS clb_tx_simplu WITH ; + Left = 6, ; + Name = "Clb_tx_simplu7", ; + TabIndex = 15, ; + Top = 422, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.numar", ; + Text_simplu1.Left = 78, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 232, ; + Lb_simplu1.Caption = "Numãr", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu8' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_tx_simplu8", ; + TabIndex = 27, ; + Top = 340, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.bloc", ; + Text_simplu1.Left = 90, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 220, ; + Lb_simplu1.Caption = "Bloc", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu9' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "Clb_tx_simplu9", ; + TabIndex = 28, ; + Top = 368, ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.scara", ; + Text_simplu1.Left = 90, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 220, ; + Lb_simplu1.Caption = "Scarã", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_cautare1' AS ct_clb_cautare WITH ; + cconditie = empty(nvl(porec.forma_juridica,''))=.t., ; + cprocedura = thisform.alege_fj, ; + cvar_afisata = porec.forma_juridica, ; + Left = 352, ; + Name = "Ct_clb_cautare1", ; + TabIndex = 6, ; + Top = 35, ; + img_cautare.Name = "img_cautare", ; + clb_tx_cautare.Lb_simplu1.Caption = "Forma juridicã", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 90, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Width = 220 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_cautare2' AS ct_clb_cautare WITH ; + cconditie = empty(nvl(porec.tip_societate,''))=.t., ; + cprocedura = thisform.alege_nivel, ; + cvar_afisata = porec.tip_societate, ; + Left = 352, ; + Name = "Ct_clb_cautare2", ; + TabIndex = 7, ; + Top = 63, ; + img_cautare.Name = "img_cautare", ; + clb_tx_cautare.Lb_simplu1.Caption = "Nivel", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 90, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Width = 220 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_cautare3' AS ct_clb_cautare WITH ; + cconditie = empty(nvl(porec.forma_organizare,''))=.t., ; + cprocedura = thisform.alege_organizare, ; + cvar_afisata = porec.forma_organizare, ; + Height = 31, ; + Left = 5, ; + Name = "Ct_clb_cautare3", ; + TabIndex = 2, ; + Top = 63, ; + Width = 343, ; + img_cautare.Left = 319, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Lb_simplu1.Caption = "Organizare", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Height = 23, ; + clb_tx_cautare.Text_simplu1.Left = 78, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Text_simplu1.Width = 232 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_cautare4' AS ct_clb_cautare WITH ; + cconditie = empty(nvl(porec.forma_proprietate,''))=.t., ; + cprocedura = thisform.alege_proprietate, ; + cvar_afisata = porec.forma_proprietate, ; + Left = 352, ; + Name = "Ct_clb_cautare4", ; + TabIndex = 10, ; + Top = 147, ; + img_cautare.Name = "img_cautare", ; + clb_tx_cautare.Lb_simplu1.Caption = "Proprietate", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 90, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Width = 220 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_localitate1' AS ct_localitate WITH ; + cdate = poRec, ; + Left = 6, ; + Name = "Ct_localitate1", ; + TabIndex = 13, ; + Top = 310, ; + Cb_localitate_af.img_atentie.Name = "img_atentie", ; + Cb_localitate_af.Name = "Cb_localitate_af", ; + Cb_localitate_af._cbautofill1.Name = "_cbautofill1", ; + Cb_localitate_af._lbbase1.Name = "_lbbase1", ; + Cb_tara.Name = "Cb_tara", ; + Cb_tara._cbbase1.Name = "_cbbase1", ; + Cb_tara._lbbase1.Name = "_lbbase1", ; + Cb_judet.Name = "Cb_judet", ; + Cb_judet._cbbase1.Name = "_cbbase1", ; + Cb_judet._lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\onomenclatoare.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_firme1' AS cus_odata_firme WITH ; + Left = 311, ; + Name = "Cus_odata_firme1", ; + Top = 692 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + ADD OBJECT 'Ed_adresa' AS ed_tx_simplu WITH ; + Height = 72, ; + Left = 6, ; + Name = "Ed_adresa", ; + TabIndex = 12, ; + Top = 225, ; + Width = 605, ; + _edbase1.ControlSource = "porec.adresa", ; + _edbase1.Height = 66, ; + _edbase1.Left = 102, ; + _edbase1.Name = "_edbase1", ; + _edbase1.Top = 2, ; + _edbase1.Width = 499, ; + _LBBASE1.Caption = "Adresã", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ed_tx_simplu1' AS ed_tx_simplu WITH ; + Height = 40, ; + Left = 6, ; + Name = "Ed_tx_simplu1", ; + TabIndex = 11, ; + Top = 186, ; + Width = 605, ; + _EDBASE1.ControlSource = "porec.antet", ; + _EDBASE1.Height = 36, ; + _EDBASE1.Left = 102, ; + _EDBASE1.Name = "_EDBASE1", ; + _EDBASE1.Top = 2, ; + _EDBASE1.Width = 500, ; + _LBBASE1.Caption = "Antet", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'tx_cod_fiscal_p' AS clb_tx_simplu WITH ; + Left = 353, ; + Name = "tx_cod_fiscal_p", ; + TabIndex = 9, ; + Top = 120, ; + Visible = .F., ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.cod_fiscal_p", ; + Text_simplu1.Left = 90, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 220, ; + Lb_simplu1.Caption = "Cod fiscal", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'tx_parinte' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 353, ; + Name = "tx_parinte", ; + TabIndex = 8, ; + Top = 92, ; + Visible = .F., ; + Width = 314, ; + Text_simplu1.ControlSource = "porec.parinte", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 90, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 220, ; + Lb_simplu1.Caption = "Pãrinte", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE alege_fj + buton=2 + lnidstaresoc = thisform.jcategorie + pcselect = [select id_forma_juridica,denumire from syn_nom_forme_juridice] + pcFiltru = [] + pcFiltruOrig = [id_staresoc=?lnidstaresoc] + pcschema = [''] + pcorder = [ordine] + pccoloane = [denumire] + pcTitlu = [Categorie] + pcTitluColoane = [Categorie] + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOrig) + + *!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal + + IF buton # 2 + porec.forma_juridica = locauta.denumire + porec.id_forma_juridica = locauta.id_forma_juridica + ENDIF + + + ENDPROC + + PROCEDURE alege_judet + buton=2 + pcselect = [select id_judet,judet,indicativ from syn_vnom_judete] + pcfiltru = [inactiv=0] + pcFiltruOriginal = [inactiv=0] + pcschema = [''] + pcorder = [judet] + pccoloane = [judet,indicativ] + pcTitlu = [Judete] + pcTitluColoane = [Judet,Indicativ] + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOriginal) + + *!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal + + IF buton # 2 + porec.judet = locauta.judet + thisform.id_judet = locauta.id_judet + porec.indicativ=locauta.indicativ + thisform.clb_itm.Refresh + ENDIF + + + + + ENDPROC + + PROCEDURE alege_localitate + IF EMPTY(thisform.id_judet) + aMESSAGEBOX('Alegeti judetul!',48,"Atentie") + porec.id_localitate=0 + RETURN + ENDIF + lnid_jud = thisform.id_judet + pcselect = [select id_loc,localitate from syn_vnom_localitati] + pcFiltru = [inactiv = 0 and id_judet=?lnid_jud] + pcFiltruOrig = pcFiltru + pcschema = [''] + pcorder = [localitate] + pccoloane = [localitate] + pcTitlu = [Localitate] + pcTitluColoane = [Localitate] + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOrig) + + *!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal + + IF buton # 2 + porec.localitate = locauta.localitate + porec.id_loc = locauta.id_loc + ENDIF + + + + + ENDPROC + + PROCEDURE alege_nivel + buton=2 + pcselect = [select id_tip_soc,denumire,parent from syn_nom_tip_societate] + pcfiltru = [2=2] + pcschema = [''] + pcorder = [denumire] + pccoloane = [denumire] + pcTitlu = [Nivel infiintare] + pcTitluColoane = [Nivel] + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane) + + *!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal + + IF buton # 2 + porec.tip_societate = locauta.denumire + porec.id_tip_soc = locauta.id_tip_soc + thisform.ParentA = locauta.parent + thisform.sucursala() + ENDIF + + + ENDPROC + + PROCEDURE alege_organizare + IF EMPTY(NVL(porec.id_forma_juridica,'')) + aMESSAGEBOX("Completati forma juridica!",0+48,"Atentie") + porec.id_forma_organizare=0 + RETURN + ENDIF + + buton=2 + pcselect = [select id_forma_organizare,abreviere,denumire from syn_nom_forme_organizare] + pcFiltru = [id_forma_juridica=?porec.id_forma_juridica] + pcFiltruOriginal = pcFiltru + pcschema = [''] + pcorder = [denumire] + pccoloane = [denumire,abreviere] + pcTitlu = [Forma Organizare] + pcTitluColoane = [Forma organizare,Abreviere] + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOriginal) + + *!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal + + IF buton # 2 + porec.forma_organizare = locauta.denumire + porec.id_forma_organizare = locauta.id_forma_organizare + ENDIF + + + ENDPROC + + PROCEDURE alege_proprietate + buton=2 + pcselect = [select id_forma_prop,forma_proprietate from syn_nom_forme_proprietate] + pcfiltru = [2=2] + pcschema = [''] + pcorder = [forma_proprietate] + pccoloane = [forma_proprietate] + pcTitlu = [Forma proprietate] + pcTitluColoane = [Forma proprietate] + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane) + + *!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal + + IF buton # 2 + porec.forma_proprietate = locauta.forma_proprietate + porec.id_forma_prop= locauta.id_forma_prop + ENDIF + + ENDPROC + + PROCEDURE inainte_de_do_termin + Local PLRETURN + + lccontrol = Upper(This.ActiveControl.BaseClass ) + If Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.ActiveControl.ControlSource + &lcval=Thisform.ActiveControl.Value + Endif + + Do Case + Case Empty(porec.firma) + Messagebox('Nu ati completat numele firmei!',0+48,"Atentie") + Thisform.clb_firma.text_simplu1.SetFocus() + PLRETURN=.F. + Case Empty(porec.schema) + Messagebox('Nu ati completat numele schemei!',0+48,"Atentie") + Thisform.clb_schema.text_simplu1.SetFocus() + PLRETURN=.F. + OTHERWISE + + PLRETURN=Thisform.cus_odata_firme1.salvare(This.OREC,This.NID) + + Endcase + Return PLRETURN + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + DoDefault() + + This.orec= toRec + This.nid = tnId + This.cus_odata_firme1.cactiune = tcActiune + Do Case + Case tcActiune="INSERT" + Thisform.lb_titlu_alb_b121.Caption="ADAUGARE FIRMÃ" + Case tcActiune="UPDATE" + If Type("toRec.modificare_schema")<>"U" + Thisform.clb_schema.text_simplu1.Enabled=Iif(toRec.modificare_schema==0,.F.,.T.) + Endif + Thisform.lb_titlu_alb_b121.Caption="MODIFICARE FIRMÃ" + thisform.jcategorie=porec.persoana_juridica + *!* modificare ROADEF v 2.1.2 + *!* lcSelect = [select id_judet,indicativ from vnom_localitati where id_loc=?porec.id_loc] + *!* lcCursor = [crsId_jud] + *!* lnSucces = goExecutor.oExecute(lcSelect,lcCursor) + *!* IF lnSucces < 0 + *!* MESSAGEBOX(goExecutor.cEroare) + *!* ELSE + *!* SELECT crsId_jud + *!* thisform.id_judet = id_judet + *!* USE IN crsId_jud + *!* ENDIF + Thisform.id_judet = toRec.id_judet + *!* modificare ROADEF v 2.1.2 ^ + ENDCASE + *!* modificare ROADEF v 2.1.2 + This.ct_localitate1.initializeaza() + *!* modificare ROADEF v 2.1.2 ^ + ENDPROC + + PROCEDURE sucursala + LOCAL lnP + lnP=thisform.parenta + thisform.tx_parinte.Visible=IIF(lnP=0,.f.,.t.) + thisform.tx_cod_fiscal_p.Visible=IIF(lnP=0,.f.,.t.) + thisform.tx_cod_fiscal_p.Refresh + thisform.tx_parinte.Refresh + ENDPROC + + PROCEDURE Cb_tx_simplu1._cbbase1.InteractiveChange + porec.persoana_juridica=this.value + thisform.jcategorie=this.Value + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_optiuni AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_opt" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column3.Edit1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nom_opt" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + + * + *p: cschema + * + + * + BorderStyle = 1 + cschema = CONTAFIN_ORACLE + DoCreate = .T. + Height = 351 + Name = "frm_optiuni" + Width = 524 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 522 + _shape2.Height = 29 + _shape2.Left = 402 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 120 + Lb_titlu_alb_b121.Caption = "OPTIUNI" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 494 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Anchor = 8, ; + Left = 434, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 8, ; + Left = 403, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 8, ; + Left = 463, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 431, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 52 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_opt' AS _grid WITH ; + Anchor = 15, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 264, ; + Left = 5, ; + Name = "grid_opt", ; + Panel = 1, ; + RecordSource = "v_optiuni", ; + RowHeight = 23, ; + Top = 84, ; + Width = 513, ; + Column1.ControlSource = "varname", ; + Column1.Name = "Column1", ; + Column1.Width = 241, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "vartype", ; + Column2.Name = "Column2", ; + Column2.Width = 70, ; + Column3.ColumnOrder = 2, ; + Column3.ControlSource = "varvalue", ; + Column3.Name = "Column3", ; + Column3.Sparse = .F., ; + Column3.Width = 226, ; + Column4.ControlSource = "vardesc", ; + Column4.Name = "Column4", ; + Column4.Width = 145 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_opt.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_opt.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip data", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_opt.Column3.Edit1' AS editbox WITH ; + Height = 53, ; + Left = 94, ; + Name = "Edit1", ; + Top = 23, ; + Width = 100 + *< END OBJECT: BaseClass="editbox" /> + + ADD OBJECT 'grid_opt.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lb_nom_opt' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 8, ; + Name = "lb_nom_opt", ; + TabIndex = 1, ; + Top = 52, ; + Width = 376, ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 57, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 313, ; + Lb_simplu1.Caption = "Nume", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=popt.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_opt) + popt.ca_baza1.cfiltru=lcFiltru + popt.ca_baza1.afisare() + restore_grid_tag(thisform.grid_opt) + IF RECCOUNT('v_optiuni')>0 + thisform.grid_opt.SetFocus() + ELSE + thisform.lb_nom_opt.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + SELECT v_optiuni + SCATTER NAME loRec MEMO BLANK + PRIVATE lopt,poRec + lopt='' + poRec = loRec + DO Adauga_Modifica_Inregistrare WITH "optiuni",loRec,,"INSERT",.t.,'lopt' + lopt.cschema = this.cschema + lopt.show(1) + RELEASE lopt,poRec + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_opt.text_simplu1.value)),['],['']) + If !Empty(lcNume) + lcFiltru=[UPPER(varname) like ']+lcNume+[%'] + ELSE + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + Select v_optiuni + Scatter Name loRec MEMO + PRIVATE lopt,poRec + lopt = '' + poRec = loRec + Do Adauga_Modifica_Inregistrare With "optiuni",loRec,loRec.Id_optiuni,"UPDATE",.t.,'lopt' + lopt.cschema = this.cschema + lopt.show(1) + RELEASE lopt,poRec + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT v_optiuni + SCATTER NAME lorec MEMO + PRIVATE lopt + lopt = '' + Do STERGE_INREGISTRARE With "optiuni",loRec.id_optiuni,.t.,'lopt' + lopt.cschema = this.cschema + lopt.salvare(,loRec.id_optiuni) + RELEASE lopt + + this.actualizeaza_grid1() + + + ENDPROC + + PROCEDURE Init + DODEFAULT() + THIS.WindowState = 2 + ENDPROC + + PROCEDURE Unload + IF USED('v_optiuni') + USE IN v_optiuni + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_optiuni_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_optiuni1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" /> + + * + *p: cschema + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 165 + Name = "frm_optiuni_nou" + Width = 492 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 492 + _shape2.Height = 29 + _shape2.Left = 416 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 76 + Lb_titlu_alb_b121.Caption = "Optiuni" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 459 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 429, ; + Name = "But_renunt1", ; + TabIndex = 6, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ; + Left = 15, ; + Name = "Cb_tx_simplu1", ; + TabIndex = 2, ; + Top = 72, ; + _cbbase1.ControlSource = "porec.vartype", ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "CHARACTER,CURRENCY,NUMERIC,DATETIME,DATE,LOGICAL", ; + _cbbase1.RowSourceType = 1, ; + _lbbase1.Caption = "Tip data", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 44, ; + Text_simplu1.ControlSource = "porec.varname", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Nume", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 15, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 3, ; + Top = 100, ; + Width = 465, ; + Text_simplu1.ControlSource = "porec.varvalue", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 101, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 360, ; + Lb_simplu1.Caption = "Valoare", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 4, ; + Top = 128, ; + Width = 465, ; + Text_simplu1.ControlSource = "porec.vardesc", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Width = 360, ; + Lb_simplu1.Caption = "Descriere", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_optiuni1' AS cus_odata_optiuni WITH ; + Left = 144, ; + Name = "Cus_odata_optiuni1", ; + Top = 24 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(this.ActiveControl.BaseClass ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.Activecontrol.controlsource + &lcval=thisform.ActiveControl.value + ENDIF + + + Do Case + Case Empty(porec.varname) + Messagebox('Nu ati completat denumirea variabilei!',0+48,"Atentie") + This.clb_tx_simplu1.SetFocus() + plreturn=.F. + + Case Empty(porec.vartype) + Messagebox('Nu ati completat tipul de data!',0+48,"Atentie") + This.CB_tx_simplu1.SetFocus() + plreturn=.F. + + *!* Case Empty(porec.varvalue) + *!* Messagebox('Nu ati completat valoarea variabilei!',0+48,"Atentie") + *!* This.clb_tx_simplu3.SetFocus() + *!* plreturn=.F. + + OTHERWISE + this.cus_odata_optiuni1.cschema=this.cschema + PLRETURN=This.cus_odata_optiuni1.salvare(This.OREC,This.NID) + ENDCASE + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + toRec.varvalue = NVL(toRec.varvalue, '') + poRec.varvalue = NVL(toRec.varvalue, '') + + toRec.vardesc = NVL(toRec.vardesc, '') + poRec.vardesc = NVL(toRec.vardesc, '') + + this.orec= toRec + this.nid = tnId + this.cus_odata_optiuni1.cactiune = tcActiune + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_plafon_casa AS frm_termin OF "..\..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_plafoane" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_plafoane.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_luna_intre1" UniqueID="" Timestamp="" /> + + * + *p: ctabel + *p: ogencursor + * + + * + BorderStyle = 2 + cgridsortlist = grid_plafoane + ctabel = + DoCreate = .T. + Height = 340 + Name = "frm_plafon_casa" + ogencursor = + Width = 492 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 504 + _shape2.Height = 29 + _shape2.Left = 428 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 63 + Lb_titlu_alb_b121.Caption = "Plafon casa" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 461 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 452 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 42 + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 431, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ; + Height = 29, ; + Left = 12, ; + Name = "Clb_luna_intre1", ; + Top = 39, ; + Width = 229, ; + tx_n1.Left = 68, ; + tx_n1.Name = "tx_n1", ; + tx_n1.Top = 3, ; + LB_SIMPLU1.Caption = "Perioada", ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + tx_n2.Left = 148, ; + tx_n2.Name = "tx_n2", ; + tx_n2.Top = 3 + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Height = 27, ; + Left = 244, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 40, ; + Width = 80 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_plafoane' AS _grid WITH ; + ColumnCount = 5, ; + DeleteMark = .F., ; + HeaderHeight = 23, ; + Height = 258, ; + Left = 6, ; + Name = "grid_plafoane", ; + Panel = 1, ; + RecordSource = "v_plafon", ; + RowHeight = 20, ; + Top = 74, ; + Width = 479, ; + Column1.ControlSource = "plafon_casa", ; + Column1.InputMask = (get_mask(12,gnPa)), ; + Column1.Name = "Column1", ; + Column1.Width = 114, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "plafon_furnizori", ; + Column2.InputMask = (get_mask(12,gnPa)), ; + Column2.Name = "Column2", ; + Column2.Width = 110, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "luna", ; + Column3.Name = "Column3", ; + Column3.Width = 43, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "anul", ; + Column4.Name = "Column4", ; + Column4.Width = 64, ; + Column5.ColumnOrder = 2, ; + Column5.ControlSource = "plafon_plati", ; + Column5.InputMask = (get_mask(12,gnPa)), ; + Column5.Name = "Column5", ; + Column5.Width = 112 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_plafoane.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Plafon casa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_plafoane.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_plafoane.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Plafon furnizori", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_plafoane.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_plafoane.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_plafoane.Column3.Text1' AS textbox WITH ; + Height = 23, ; + Left = 31, ; + Name = "Text1", ; + Top = 35, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_plafoane.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "An", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_plafoane.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_plafoane.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Plafon plati", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_plafoane.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + pobj = this.ogencursor + IF EMPTY(lcFiltru) + lcFiltru=pobj.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_plafoane) + pobj.ca_baza1.cfiltru=lcFiltru + pobj.ca_baza1.afisare() + restore_grid_tag(thisform.grid_plafoane) + thisform.grid_plafoane.SetFocus + + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + + lcLunaMin =SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n1.Value),1,2) + lcAnMin = SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n1.Value),3) + + lcLunaMax = SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n2.Value),1,2) + lcAnMax = SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n2.Value),3) + + IF EMPTY(lcLunaMin) + lcLunaMin = '1' + ENDIF + IF EMPTY(lcAnMin) + lcAnMin = STR(gnAn) + ENDIF + IF EMPTY(lcLunaMax) + lcLunaMax = STR(gnLuna) + ENDIF + IF EMPTY(lcAnMax) + lcAnMax = STR(gnAn) + ENDIF + + lcfiltru = [luna + 12*anul between ] + lcLunaMin + [ + 12*] + lcAnMin + [ and ] + lcLunaMax + [ + 12*] + lcAnMax + + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + lcCrs = this.ctabel + + SELECT (lcCrs) + Scatter Name loRec + PRIVATE lcot,poRec + lcot = '' + poRec = loRec + Do Adauga_Modifica_Inregistrare With "plafon",loRec,loRec.Id_calendar,"UPDATE",.t.,'lcot' + *lcot.cschema = this.cschema + lcot.show(1) + RELEASE lcot,poRec + thisform.actualizeaza_grid1() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_plafon_nou AS frm_termin_renunt OF "..\..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_plafon_casa1" UniqueID="" Timestamp="" /> + + * + *p: cschema + *p: nid + *p: orec + * + + * + BorderStyle = 2 + cschema = + DoCreate = .T. + Height = 198 + Name = "frm_plafon_nou" + nid = + orec = + Width = 316 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 320 + _shape2.Left = 242 + _shape2.Name = "_shape2" + _shape2.Top = 0 + Lb_titlu_alb_b121.Caption = "Plafoane casa" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 6 + BUT_TERMIN1.Left = 284 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + But_renunt1.Left = 255 + But_renunt1.Name = "But_renunt1" + But_renunt1.TabIndex = 5 + But_renunt1.Top = 1 + * + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 49, ; + Text_simplu1.ControlSource = "porec.plafon_casa", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.InputMask = (get_mask(12,gnPa)), ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Plafon casa", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 77, ; + Text_simplu1.ControlSource = "porec.plafon_plati", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.InputMask = (get_mask(12,gnPa)), ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Plafon plati", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 7, ; + TabStop = .F., ; + Top = 133, ; + Text_simplu1.ControlSource = "porec.luna", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Luna", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu4", ; + TabIndex = 3, ; + Top = 105, ; + Text_simplu1.ControlSource = "porec.plafon_furnizori", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.InputMask = (get_mask(12,gnPa)), ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Plafon furnizori", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 8, ; + TabStop = .F., ; + Top = 161, ; + Text_simplu1.ControlSource = "porec.anul", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "An", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_plafon_casa1' AS cus_odata_plafon_casa WITH ; + Left = 65, ; + Name = "Cus_odata_plafon_casa1", ; + Top = 33 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + *!* lccontrol = UPPER(this.ActiveControl.BaseClass) + *!* IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + *!* lcval=This.Activecontrol.controlsource + *!* &lcval=thisform.ActiveControl.value + *!* ENDIF + + this.cus_odata_plafon_casa1.cschema=this.cschema + PLRETURN=This.cus_odata_plafon_casa1.salvare(This.OREC,This.NID) + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_plafon_casa1.cactiune = tcActiune + ENDPROC + +ENDDEFINE diff --git a/Clase/oasociere.vc2 b/Clase/oasociere.vc2 new file mode 100644 index 0000000..8d6497e --- /dev/null +++ b/Clase/oasociere.vc2 @@ -0,0 +1,915 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="oasociere.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS cus_odata_parteneri_gestiuni AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\program files\microsoft visual foxpro 8\foxpro.h" + * + Name = "cus_odata_parteneri_gestiuni" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + lcId = Iif(InList(lcActiune, 'UPDATE', 'DELETE'), Alltrim(Str(tnId)), 'NULL') + If InList(lcActiune, 'INSERT', 'UPDATE') + lcId_part = Iif(Nvl(toRec.id_part,0) = 0, 'NULL',Alltrim(Str(toRec.id_part))) + lcId_gestiune = Iif(Nvl(toRec.id_gestiune,0) = 0, 'NULL',Alltrim(Str(toRec.id_gestiune))) + lcCont = Iif(IsNull(toRec.cont), '',Alltrim(toRec.cont)) + EndIf + + + Do Case + Case InList(lcActiune, "INSERT", 'UPDATE') + lcSql = [begin pack_def.asociere_part_gest(]+lcId+[,]+lcId_part+[,]+lcId_gestiune+[,'] + lcCont + [',] + ALLTRIM(Str(gnIdUtil))+[,]+ALLTRIM(STR(pnTip_asociere))+[); end;] + Case lcActiune = "DELETE" + lcSql = [begin pack_def.sterge_asociere_part_gest(]+lcId+[); end;] + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_parteneri_sectii AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\program files\microsoft visual foxpro 8\foxpro.h" + * + Name = "cus_odata_parteneri_sectii" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + *!* lcnom = gcS + ".nom_valute" + *!* lcamp = "nom_valute.id_valuta" + *!* lclook = gcS + ".act" + *!* lclookid = "act.id_valuta" + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcId_part = Nvl(Alltrim(Str(toRec.id_part)),"") + lcId_sectie = Nvl(Alltrim(Str(toRec.id_sectie)),"") + Endif + + + Do Case + Case lcActiune = "INSERT" + lcSql = [begin pack_def.adauga_asociere_part_sect(]+lcId_part+[,]+lcId_sectie+[,]+ALLTRIM(Str(gnIdUtil))+[,]+ALLTRIM(STR(pnTip_asociere))+[); end;] + Case lcActiune = "UPDATE" + lcSql = [begin pack_def.modifica_asociere_part_sect(]+lcId+[,]+lcId_part+[,]+lcId_sectie+[,]+ALLTRIM(Str(gnIdUtil))+[); end;] + Case lcActiune = "DELETE" + lcSql = [begin pack_def.sterge_asociere_part_sect(]+lcId+[); end;] + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_parteneri_gestiuni AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_asociere" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.cPartener.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.cPartener.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.cGestiune.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.cGestiune.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.cCont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + cgridsortlist = grid_asociere + DoCreate = .T. + Height = 391 + Name = "frm_parteneri_gestiuni" + Width = 429 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 444 + _shape2.Height = 29 + _shape2.Left = 247 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 182 + Lb_titlu_alb_b121.Caption = "Asociere entitãþi - gestiuni" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 399 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 12 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 12 + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 368, ; + Name = "But_excel1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 339, ; + Name = "But_listare1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 279, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 249, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 309, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_asociere' AS _grdrow WITH ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 336, ; + Left = 12, ; + Name = "grid_asociere", ; + Panel = 1, ; + RecordSource = "crsAsociere", ; + Top = 41, ; + Width = 408, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "denumire", ; + Column1.Name = "cPartener", ; + Column1.Width = 155, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "nume_gestiune", ; + Column2.Name = "cGestiune", ; + Column2.Width = 165, ; + Column3.ColumnOrder = 1, ; + Column3.ControlSource = "cont", ; + Column3.Name = "cCont", ; + Column3.Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_asociere.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_asociere.cCont.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_asociere.cGestiune.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Gestiune", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_asociere.cGestiune.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_asociere.cPartener.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Entitate", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_asociere.cPartener.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=poAsociere.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_asociere) + poAsociere.ca_baza1.cfiltru=lcFiltru + poAsociere.ca_baza1.afisare() + restore_grid_tag(thisform.grid_asociere) + + *!* IF RECCOUNT('v_sucursale')>0 + *!* thisform._gnom_sucursale.SetFocus() + *!* ELSE + *!* thisform.lb_nom_sucursale.SetFocus() + *!* ENDIF + ENDPROC + + PROCEDURE do_adauga + SELECT crsAsociere + SCATTER NAME loRec blank + DO Adauga_Modifica_Inregistrare WITH "parteneri_gestiuni",loRec,,"INSERT" + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_modifica + Select crsAsociere + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "parteneri_gestiuni",loRec,loRec.id_asociere,"UPDATE" + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT crsAsociere + SCATTER NAME lorec + llSucces = STERGE_INREGISTRARE("parteneri_gestiuni",loRec.id_asociere) + If llSucces + this.actualizeaza_grid1() + EndIf + this.grid_asociere.SetFocus() + ENDPROC + + PROCEDURE inainte_de_do_excel + DO export_excel_grid WITH thisform.grid_asociere + + + ENDPROC + + PROCEDURE inainte_de_do_listare + thisform.AlwaysOnTop = .F. + + PRIVATE pcDataOra, pcTitlu + pcDataOra = get_ora(2) + pcTitlu = "Asociere entitati - gestiuni" + + LOCAL lcTabel + lcTabel = this.grid_asociere.RecordSource + + SELECT (lcTabel) + REPORT FORM rAsociere_part_gest.frx TO PRINTER PROMPT PREVIEW + thisform.AlwaysOnTop = .T. + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_parteneri_gestiuni_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Ct_clb_partener" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_gestiune" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_cont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_parteneri_gestiuni1" UniqueID="" Timestamp="" /> + + * + *m: do_cauta_gestiune + *m: do_cauta_partener + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 137 + Name = "frm_parteneri_gestiuni_nou" + nid = .F. + orec = .F. + Width = 290 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 684 + _shape2.Height = 29 + _shape2.Left = 533 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 66 + Lb_titlu_alb_b121.Caption = "Partener - gestiune" + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 5 + BUT_TERMIN1.Left = 260 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 3 + BUT_TERMIN1.Top = 0 + Gridsort1.Left = 156 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 0 + * + + ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ; + Left = 229, ; + Name = "BUT_RENUNT1", ; + TabIndex = 4, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_cont' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 7, ; + Name = "Clb_cont", ; + TabIndex = 1, ; + Top = 42, ; + Width = 125, ; + Text_simplu1.ControlSource = "porec.cont", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 64, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 57, ; + Lb_simplu1.Caption = "Cont", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_gestiune' AS ct_clb_cautare WITH ; + cconditie = empty(nvl(poRec.id_gestiune,0)), ; + cprocedura = thisform.do_cauta_gestiune, ; + cvar_afisata = poRec.nume_gestiune, ; + Height = 31, ; + Left = 6, ; + Name = "Ct_clb_gestiune", ; + TabIndex = 2, ; + Top = 97, ; + Width = 281, ; + IMG_CAUTARE.Left = 259, ; + IMG_CAUTARE.Name = "IMG_CAUTARE", ; + IMG_CAUTARE.Top = 5, ; + CLB_TX_CAUTARE.Height = 29, ; + CLB_TX_CAUTARE.LB_SIMPLU1.Caption = "Gestiune", ; + CLB_TX_CAUTARE.LB_SIMPLU1.Name = "LB_SIMPLU1", ; + CLB_TX_CAUTARE.Left = 1, ; + CLB_TX_CAUTARE.Name = "CLB_TX_CAUTARE", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Left = 63, ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Top = 3, ; + CLB_TX_CAUTARE.Top = 1, ; + CLB_TX_CAUTARE.Width = 252 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_partener' AS ct_clb_cautare WITH ; + cconditie = empty(nvl(poRec.id_part,0)), ; + cprocedura = thisform.do_cauta_partener, ; + cvar_afisata = poRec.denumire, ; + Height = 31, ; + Left = 6, ; + Name = "Ct_clb_partener", ; + TabIndex = 1, ; + Top = 69, ; + Width = 281, ; + img_cautare.Left = 259, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Height = 29, ; + clb_tx_cautare.Lb_simplu1.Caption = "Partener", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Left = 1, ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 62, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Top = 1, ; + clb_tx_cautare.Width = 251 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_parteneri_gestiuni1' AS cus_odata_parteneri_gestiuni WITH ; + Left = 180, ; + Name = "Cus_odata_parteneri_gestiuni1", ; + Top = 0 + *< END OBJECT: ClassLib="oasociere.vcx" BaseClass="custom" /> + + PROCEDURE do_cauta_gestiune + Local loCauta + loCauta = caut_gestiune() + If !Empty(Nvl(loCauta.id_gestiune,0)) + poRec.id_gestiune = loCauta.id_gestiune + poRec.nume_gestiune = Alltrim(loCauta.nume_gestiune) + Thisform.ct_clb_gestiune.Refresh() + Else + poRec.id_gestiune = Null + poRec.nume_gestiune = [] + Endif + ENDPROC + + PROCEDURE do_cauta_partener + Local loCauta + loCauta=caut_partener() + If !Empty(Nvl(loCauta.id_part,0)) + poRec.id_part = loCauta.id_part + poRec.denumire = Alltrim(loCauta.denumire) + Thisform.ct_clb_partener.Refresh() + Else + poRec.id_part = Null + poRec.denumire = [] + Endif + ENDPROC + + PROCEDURE inainte_de_do_termin + Private pnExistaGestiune, pnExistaPartener + Local PLRETURN + + Do Case + Case Empty(porec.id_part) Or Isnull(porec.id_part) + amessagebox('Nu ati completat partenerul!',0+48,"Atentie") + Thisform.ct_clb_partener.SetFocus() + PLRETURN=.F. + Case Empty(porec.id_gestiune) Or Isnull(porec.id_gestiune) + amessagebox('Nu ati completat gestiunea!',0+48,"Atentie") + Thisform.ct_clb_sectie.SetFocus() + PLRETURN=.F. + Otherwise + If Alltrim(Upper(This.cus_odata_parteneri_gestiuni1.cactiune))="INSERT" ; + Or (Alltrim(Upper(This.cus_odata_parteneri_gestiuni1.cactiune))="UPDATE") + + pnExistaGestiune = 0 + *!* pnExistaPartener = 0 + *!* lcSql = [select Count(*) from asociere_parteneri_gestiuni where cont = '] + Alltrim(porec.Cont) + [' and id_part = ] + Alltrim(Str(porec.id_part)) + *!* lnSucces = goExecutor.oSelect2Value(lcSql, @pnExistaPartener) + + lcSql = [select Count(*) from asociere_parteneri_gestiuni where id_gestiune = ] + Alltrim(Str(porec.id_gestiune)) + lnSucces = goExecutor.oSelect2Value(lcSql, @pnExistaGestiune) + + + If pnExistaGestiune <> 0 + + *!* If pnExistaGestiune <> 0 + amessagebox('Mai exista aceasta gestiune inregistrata!',0+48,"Atentie") + Thisform.ct_clb_gestiune.SetFocus() + PLRETURN=.F. + *!* Else + *!* If pnExistaPartener <> 0 + *!* amessagebox('Mai exista acest partener inregistrat!',0+48,"Atentie") + *!* Thisform.ct_clb_partener.SetFocus() + *!* PLRETURN=.F. + *!* Endif + *!* Endif + Else + PLRETURN=This.cus_odata_parteneri_gestiuni1.salvare(This.OREC,This.NID) + Endif + Endif + + Endcase + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_parteneri_gestiuni1.cactiune = tcActiune + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_parteneri_sectii AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_asociere" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_asociere.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 391 + Name = "frm_parteneri_sectii" + Width = 400 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 410 + _shape2.Height = 29 + _shape2.Left = 216 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 182 + Lb_titlu_alb_b121.Caption = "Asociere entitãþi - secþii" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 369 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 12 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 12 + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 338, ; + Name = "But_excel1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 309, ; + Name = "But_listare1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 249, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 219, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 279, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_asociere' AS _grdrow WITH ; + ColumnCount = 2, ; + DeleteMark = .F., ; + Height = 336, ; + Left = 12, ; + Name = "grid_asociere", ; + Panel = 1, ; + RecordSource = "crsAsociere", ; + Top = 41, ; + Width = 375, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "denumire", ; + Column1.Name = "Column1", ; + Column1.Width = 155, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "sectie", ; + Column2.Name = "Column2", ; + Column2.Width = 182 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_asociere.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Entitate", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_asociere.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_asociere.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_asociere.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=poAsociere.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_asociere) + poAsociere.ca_baza1.cfiltru=lcFiltru + poAsociere.ca_baza1.afisare() + restore_grid_tag(thisform.grid_asociere) + + *!* IF RECCOUNT('v_sucursale')>0 + *!* thisform._gnom_sucursale.SetFocus() + *!* ELSE + *!* thisform.lb_nom_sucursale.SetFocus() + *!* ENDIF + ENDPROC + + PROCEDURE do_adauga + SELECT crsAsociere + SCATTER NAME loRec blank + DO Adauga_Modifica_Inregistrare WITH "parteneri_sectii",loRec,,"INSERT" + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_modifica + Select crsAsociere + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "parteneri_sectii",loRec,loRec.id_asociere,"UPDATE" + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT crsAsociere + SCATTER NAME lorec + Do STERGE_INREGISTRARE With "parteneri_sectii",loRec.id_asociere + + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE inainte_de_do_excel + DO export_excel_grid WITH thisform.grid_asociere + + + ENDPROC + + PROCEDURE inainte_de_do_listare + thisform.AlwaysOnTop = .F. + + PRIVATE pcDataOra, pcTitlu + pcDataOra = get_ora(2) + pcTitlu = "Asociere entitati - sectii" + + LOCAL lcTabel + lcTabel = this.grid_asociere.RecordSource + + SELECT (lcTabel) + REPORT FORM rAsociere_part_sect.frx TO PRINTER PROMPT PREVIEW + thisform.AlwaysOnTop = .T. + ENDPROC + + PROCEDURE Init + DoDefault() + Thisform.grid_asociere.colUMN1.DynamicBackColor = [IIF(part_inactiv = 1,RGB(128,128,128),RGB(255,255,255))] + Thisform.grid_asociere.coluMN2.DynamicBackColor = [IIF(sectie_inactiva = 1,RGB(128,128,128),RGB(255,255,255))] + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_parteneri_sectii_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Cus_odata_parteneri_sectii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_partener" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_sectie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" /> + + * + *m: do_cauta_partener + *m: do_cauta_sectie + *p: nid + *p: orec + * + + * + DoCreate = .T. + Height = 98 + Name = "frm_parteneri_sectii_nou" + nid = .F. + orec = .F. + Width = 598 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 684 + _shape2.Height = 29 + _shape2.Left = 533 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 66 + Lb_titlu_alb_b121.Caption = "Partener - secþie" + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 5 + BUT_TERMIN1.Left = 567 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 3 + BUT_TERMIN1.Top = 0 + Gridsort1.Left = 228 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 5 + * + + ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ; + Left = 536, ; + Name = "BUT_RENUNT1", ; + TabIndex = 4, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ct_clb_partener' AS ct_clb_cautare WITH ; + cconditie = ISNULL(poRec.id_part), ; + cprocedura = thisform.do_cauta_partener, ; + cvar_afisata = poRec.denumire, ; + Height = 31, ; + Left = 6, ; + Name = "Ct_clb_partener", ; + TabIndex = 1, ; + Top = 48, ; + Width = 280, ; + img_cautare.Left = 259, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Height = 29, ; + clb_tx_cautare.Lb_simplu1.Caption = "Partener", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Left = 1, ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 62, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Top = 1, ; + clb_tx_cautare.Width = 251 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_sectie' AS ct_clb_cautare WITH ; + cconditie = ISNULL(poRec.id_sectie), ; + cprocedura = thisform.do_cauta_sectie, ; + cvar_afisata = poRec.sectie, ; + Height = 31, ; + Left = 312, ; + Name = "Ct_clb_sectie", ; + TabIndex = 2, ; + Top = 48, ; + Width = 281, ; + IMG_CAUTARE.Left = 259, ; + IMG_CAUTARE.Name = "IMG_CAUTARE", ; + IMG_CAUTARE.Top = 5, ; + CLB_TX_CAUTARE.Height = 29, ; + CLB_TX_CAUTARE.LB_SIMPLU1.Caption = "Secþie", ; + CLB_TX_CAUTARE.LB_SIMPLU1.Name = "LB_SIMPLU1", ; + CLB_TX_CAUTARE.Left = 1, ; + CLB_TX_CAUTARE.Name = "CLB_TX_CAUTARE", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Left = 63, ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Top = 3, ; + CLB_TX_CAUTARE.Top = 1, ; + CLB_TX_CAUTARE.Width = 252 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_parteneri_sectii1' AS cus_odata_parteneri_sectii WITH ; + Left = 156, ; + Name = "Cus_odata_parteneri_sectii1", ; + Top = 12 + *< END OBJECT: ClassLib="oasociere.vcx" BaseClass="custom" /> + + PROCEDURE do_cauta_partener + Local loCauta + loCauta=caut_partener() + If !Empty(Nvl(loCauta.id_part,0)) + poRec.id_part = loCauta.id_part + poRec.denumire = Alltrim(loCauta.denumire) + Thisform.ct_clb_partener.Refresh() + Else + poRec.id_part = Null + poRec.denumire = [] + Endif + ENDPROC + + PROCEDURE do_cauta_sectie + Local loCauta + loCauta = caut_sectie() + If !Empty(Nvl(loCauta.id_sectie,0)) + poRec.id_sectie = loCauta.id_sectie + poRec.sectie = Alltrim(loCauta.sectie) + Thisform.ct_clb_sectie.Refresh() + Else + poRec.id_sectie = Null + poRec.sectie = [] + Endif + ENDPROC + + PROCEDURE inainte_de_do_termin + Private pnExistaPartener, pnExistaSectie + Local PLRETURN + + Do Case + Case Empty(porec.id_part) Or Isnull(porec.id_part) + amessagebox('Nu ati completat partenerul!',0+48,"Atentie") + Thisform.ct_clb_partener.SetFocus() + PLRETURN=.F. + Case Empty(porec.id_sectie) Or Isnull(porec.id_sectie) + amessagebox('Nu ati completat sectia!',0+48,"Atentie") + Thisform.ct_clb_sectie.SetFocus() + PLRETURN=.F. + Otherwise + If Alltrim(Upper(This.cus_odata_parteneri_sectii1.cactiune))="INSERT" ; + Or (Alltrim(Upper(This.cus_odata_parteneri_sectii1.cactiune))="UPDATE") + + pnExistaPartener = 0 + lcSql = [select Count(*) from asociere_parteneri_sectii where id_part=]+Alltrim(Str(porec.id_part)) + lnSucces = goExecutor.oSelect2Value(lcSql, @pnExistaPartener) + + pnExistaSectie = 0 + lcSql = [select Count(*) from asociere_parteneri_sectii where id_sectie=]+Alltrim(Str(porec.id_sectie)) + lnSucces = goExecutor.oSelect2Value(lcSql, @pnExistaPartener) + + + + If pnTip_asociere = 1 && inchidere cu K + If pnExistaPartener > 0 + amessagebox('Mai exista acest partener inregistrat!',0+48,"Atentie") + Thisform.ct_clb_partener.SetFocus() + PLRETURN=.F. + Else + If pnExistaSectie > 0 + amessagebox('Mai exista aceasta sectie inregistrata!',0+48,"Atentie") + Thisform.ct_clb_sectie.SetFocus() + PLRETURN=.F. + Else + PLRETURN=This.cus_odata_parteneri_sectii1.salvare(This.OREC,This.NID) + Endif + Endif + + Else + PLRETURN=This.cus_odata_parteneri_sectii1.salvare(This.OREC,This.NID) + Endif + Else + PLRETURN=This.cus_odata_parteneri_sectii1.salvare(This.OREC,This.NID) + Endif + + Endcase + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_parteneri_sectii1.cactiune = tcActiune + + ENDPROC + + PROCEDURE Ct_clb_sectie.IMG_CAUTARE.Click + thisform.do_cauta_sectie() + ENDPROC + +ENDDEFINE diff --git a/Clase/oblocare.vc2 b/Clase/oblocare.vc2 new file mode 100644 index 0000000..517abfd --- /dev/null +++ b/Clase/oblocare.vc2 @@ -0,0 +1,324 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="oblocare.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_viz_blocate AS formtermin OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grdPrograme" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPrograme.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdPrograme.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cLunaAn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cLunaAn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cBlocat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cBlocat.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cUtilizator.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cUtilizator.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cDataOra.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdLuni.cDataOra.Text1" UniqueID="" Timestamp="" /> + + * + *m: istoricblocare + *m: refresh_luni + *m: update_luni + *p: nide_program + * + + * + BorderStyle = 3 + DoCreate = .T. + Height = 408 + Name = "frm_viz_blocate" + nide_program = 0 + Width = 788 + _memberdata = + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 792 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 750 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 39 + Lb_titlu_alb_b121.Caption = "Luni blocate " + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 755 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 0 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'grdLuni' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 360, ; + HighlightStyle = 2, ; + Left = 344, ; + Name = "grdLuni", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordSource = "crslunian", ; + ScrollBars = 2, ; + ToolTipText = "Click pe o linie pentru afisare istoric blocari/deblocari", ; + Top = 36, ; + Width = 443, ; + Column1.Alignment = 2, ; + Column1.ControlSource = "padl(alltrim(str(luna)),2,'0') + '/' + alltrim(str(an))", ; + Column1.Name = "cLunaAn", ; + Column1.ReadOnly = .T., ; + Column1.Visible = .T., ; + Column1.Width = 91, ; + Column2.Alignment = 2, ; + Column2.ControlSource = "blocat", ; + Column2.Name = "cBlocat", ; + Column2.ReadOnly = .F., ; + Column2.Sparse = .F., ; + Column2.Visible = .T., ; + Column2.Width = 67, ; + Column3.ControlSource = "utilizator", ; + Column3.Name = "cUtilizator", ; + Column3.ReadOnly = .T., ; + Column3.Width = 136, ; + Column4.ControlSource = "dataora", ; + Column4.Name = "cDataOra", ; + Column4.ReadOnly = .T., ; + Column4.Width = 112 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdLuni.cBlocat.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 30, ; + Name = "Check1", ; + ReadOnly = .F., ; + Top = 71, ; + Visible = .T., ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grdLuni.cBlocat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Blocat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdLuni.cDataOra.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Dataora", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdLuni.cDataOra.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdLuni.cLunaAn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna/an", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdLuni.cLunaAn.Text1' AS textbox WITH ; + Alignment = 2, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdLuni.cUtilizator.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Utilizator", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdLuni.cUtilizator.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdPrograme' AS _grdbase WITH ; + Anchor = 5, ; + ColumnCount = 1, ; + DeleteMark = .F., ; + Height = 360, ; + HighlightStyle = 2, ; + Left = 12, ; + Name = "grdPrograme", ; + Panel = 1, ; + RecordSource = "crsprograme", ; + ScrollBars = 2, ; + Top = 36, ; + Width = 312, ; + Column1.ControlSource = "denumire", ; + Column1.Name = "Column1", ; + Column1.Width = 279 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdPrograme.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Programe", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdPrograme.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Init + DODEFAULT() + this.update_luni() + this.refresh_luni() + This.grdLuni.SetAll('DynamicForeColor','IIF(blocat = 1, RGB(0,0,0),RGB(0,0,255))','Column') + + ENDPROC + + PROCEDURE istoricblocare + PARAMETERS pnIdeProgram, pnAn, pnLuna + + Local lcSql, lcText, llSucces, lcSelect + lcText = '' + lcSelect = SELECT() + TEXT TO lcSql NOSHOW + select b.blocat, + l1.id_program, + l1.an, + l1.luna, + l1.id_util, + u.utilizator, + l1.stare, + l1.dataora + from blocatprogramluni b + join (select l.id_log, + to_number(substr(l.id_tabel, 1, 1)) as id_program, + to_number(substr(l.id_tabel, 2, 4)) as an, + to_number(substr(l.id_tabel, 6, 2)) as luna, + l.tabel, + l.id_tabel, + l.camp, + l.ID_UTIL, + DECODE(VALOAREN, 1, 'BLOCAT', 'DEBLOCAT') AS STARE, + l.dataora + from LOG l) l1 + on l1.ID_TABEL = b.ide_program || b.an || lpad(b.luna, 2, '0') + and l1.tabel = 'BLOCATPROGRAMLUNI' + and l1.camp = 'BLOCAT' + join syn_utilizatori u + on l1.id_util = u.id_util + where b.an = ?pnAn + and b.luna = ?pnLuna + and b.ide_program = ?pnIdeProgram + and u.utilizator not in ('SUPERVIZOR', 'ELI') + ORDER BY l1.dataora; + ENDTEXT + + llSucces = goexecutor.oExecuta(lcSql, 'crsIstoricBlocare') + IF llSucces + SELECT crsIstoricBlocare + SCAN + lcText = lcText + PADR(ALLTRIM(utilizator), 30, ' ') + ' ' + stare + ' ' + TTOC(dataora) + IIF(RECNO() <> RECCOUNT(), CHR(13) + CHR(10) + CHR(13) + CHR(10), '') + ENDSCAN + IF !EMPTY(lcText) + lctext = 'ISTORIC LUNA ' + PADL(m.pnLuna, 2, '0') +'/' + ALLTRIM(STR(m.pnAn)) + CHR(13) + CHR(10) + CHR(13) + CHR(10) + m.lcText + ENDIF + USE IN (SELECT('crsIstoricBlocare')) + ENDIF + + SELECT(m.lcSelect) + RETURN m.lcText + ENDPROC + + PROCEDURE refresh_luni + thisform.LockScreen = .T. + PRIVATE pnIde_Program + pnIde_Program = crsPrograme.ide_program + + lcFiltru = "ide_program = ?pnIde_Program" + save_grid_comment(this.grdLuni) + + poBlocat.ca_baza1.cFiltru = lcFiltru + + restore_grid_comment(this.grdLuni) + + this.grdluni.Refresh + thisform.LockScreen = .F. + ENDPROC + + PROCEDURE update_luni + LOCAL lcSql, lnSucces + + lcsql = "BEGIN PACK_FIRMA.INSERT_IN_LUNI_BLOCATE(?gcS); END;" + lnSucces = goExecutor.oExecute(lcSql) + IF lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare, 0+16, 'Eroare') + ENDIF + ENDPROC + + PROCEDURE grdLuni.AfterRowColChange + LPARAMETERS nColIndex + IF INLIST(nColIndex,1,3) + this.ToolTipText = Thisform.IstoricBlocare(crslunian.ide_program, crslunian.an, crslunian.luna) + ENDIF + ENDPROC + + PROCEDURE grdLuni.cBlocat.Check1.InteractiveChange + + + + ENDPROC + + PROCEDURE grdLuni.cBlocat.Check1.Valid + PRIVATE pnAn, pnLuna, pnBlocat + pnAn = crsLuniAn.an + pnLuna = crsLuniAn.luna + pnIde_Program = crsPrograme.Ide_program + pnBlocat = crsLuniAn.blocat + lcSql = "BEGIN PACK_FIRMA.UPDATE_LUNI_BLOCATE(?gcS, ?pnIde_Program, ?pnAn, ?pnLuna, ?pnBlocat); END;" + lnSucces=goExecutor.oExecute(lcSql) + IF lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + ENDIF + ENDPROC + + PROCEDURE grdPrograme.AfterRowColChange + LPARAMETERS nColIndex + + IF INLIST(THIS.ROWCOLCHANGE, 1, 3) + thisform.refresh_luni() + ENDIF + + + + ENDPROC + +ENDDEFINE diff --git a/Clase/oconfigurare_seturi.vc2 b/Clase/oconfigurare_seturi.vc2 new file mode 100644 index 0000000..64fb7fd --- /dev/null +++ b/Clase/oconfigurare_seturi.vc2 @@ -0,0 +1,4718 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="oconfigurare_seturi.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_categorii AS frm_gol OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + DoCreate = .T. + Height = 319 + Name = "frm_categorii" + Width = 500 + _shape1.Name = "_shape1" + _shape2.Name = "_shape2" + Lb_titlu_alb_b121.Caption = "Editare categorii seturi" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Name = "BUT_TERMIN1" + Gridsort1.Name = "Gridsort1" + Clb_tx_simplu1.Lb_simplu1.Caption = "Categorie" + Clb_tx_simplu1.Lb_simplu1.Name = "Lb_simplu1" + Clb_tx_simplu1.Name = "Clb_tx_simplu1" + Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1" + But_nou1.Name = "But_nou1" + But_sterge1.Name = "But_sterge1" + But_modifica1.Name = "But_modifica1" + But_cautare1.Anchor = 8 + But_cautare1.Name = "But_cautare1" + Gridb1.COLUMN1.ControlSource = "categorie" + Gridb1.COLUMN1.Header1.Caption = "Categorie" + Gridb1.COLUMN1.Header1.Name = "Header1" + Gridb1.COLUMN1.Name = "COLUMN1" + Gridb1.COLUMN1.Text1.Name = "Text1" + Gridb1.COLUMN1.Width = 422 + Gridb1.Height = 236 + Gridb1.Left = 24 + Gridb1.Name = "Gridb1" + Gridb1.Panel = 1 + Gridb1.SplitBar = .F. + Gridb1.Top = 72 + Gridb1.Width = 461 + * + + PROCEDURE Init + DoDefault() + + ENDPROC + + PROCEDURE Load + This.cselect = [select categorie, id_categorie from xsetscategorii order by 2] + This.ccursor = [crsCategorii] + this.cprimarykey = [id_categorie] + this.ccriteriu = [categorie] + this.cform = [categorii] + this.ctabela = [xsetscategorii] + + DoDefault() + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_categorii_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 94 + Name = "frm_categorii_nou" + Width = 333 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 353 + _shape2.Left = 280 + _shape2.Name = "_shape2" + _shape2.Top = 0 + Lb_titlu_alb_b121.Caption = "Editare categorie" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 303 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 12 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 36 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 274, ; + Name = "But_renunt1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 24, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 48, ; + Width = 290, ; + Text_simplu1.ControlSource = "porec.categorie", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 84, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 201, ; + Lb_simplu1.Caption = "Categorie", ; + Lb_simplu1.Height = 17, ; + Lb_simplu1.Left = 8, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6, ; + Lb_simplu1.Width = 56 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE inainte_de_do_termin + Local lcSql, lnSucces, lcCategorie + + lcCategorie = Alltrim(This.clb_tx_simplu1.text_simplu1.Value) + + If Empty(porec.id_categorie) + lcSql = [insert into xsetscategorii(categorie) values('] + lcCategorie+ [')] + Else + lcSql = [update xsetscategorii set categorie = '] + lcCategorie + ['] + ; + [ where id_categorie = ?porec.id_categorie] + Endif + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48,[Eroare]) + Endif + + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + DODEFAULT() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_configurare AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_cautare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_copiaza1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cboCategorii" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_cautare2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridsort2" UniqueID="" Timestamp="" /> + + * + *m: actualizare + *m: aleg_document_pereche + *m: calcul_data + *m: calcul_suma + *m: dblclickgrid + *m: do_caut_nomenclator + *m: do_copiaza + *m: intainte_de_do_modifica + *m: refresh_inregistrari + *m: verificare + *m: verific_analitic + *p: ccriteriu + *p: ccursor + *p: comanda + *p: cprimarykey + *p: cselect + *p: introducere_libera + *p: lnuverificcont + *p: lverificareanalitic + * + + * + BorderStyle = 1 + ccriteriu = .F. + ccursor = .F. + cgridsortlist = gridb1 + comanda = .F. + cprimarykey = .F. + cselect = .F. + DoCreate = .T. + Height = 397 + introducere_libera = .F. + lnuverificcont = .F. + lverificareanalitic = .T. + Name = "frm_configurare" + Width = 767 + _SHAPE1.Anchor = 11 + _SHAPE1.Height = 29 + _SHAPE1.Left = 0 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 770 + _shape2.Height = 29 + _shape2.Left = 613 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 122 + Lb_titlu_alb_b121.Caption = "Seturi" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 12 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 732 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 6 + BUT_TERMIN1.Top = 0 + Gridsort1.Left = 12 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 372 + * + + ADD OBJECT 'But_cautare1' AS but_cautare WITH ; + Left = 284, ; + Name = "But_cautare1", ; + TabIndex = 2, ; + Top = 37 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_cautare2' AS but_cautare WITH ; + Height = 28, ; + Left = 284, ; + Name = "But_cautare2", ; + TabIndex = 5, ; + Top = 65, ; + Width = 31 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_copiaza1' AS but_copiaza WITH ; + Anchor = 9, ; + Left = 704, ; + Name = "But_copiaza1", ; + TabIndex = 10, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Anchor = 9, ; + Left = 644, ; + Name = "But_modifica1", ; + TabIndex = 8, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 9, ; + Left = 614, ; + Name = "But_nou1", ; + TabIndex = 7, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 9, ; + Left = 674, ; + Name = "But_sterge1", ; + TabIndex = 9, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cboCategorii' AS combogrid WITH ; + BorderColor = 200,200,200, ; + BorderStyle = 1, ; + ControlSource = "categorie", ; + Height = 24, ; + Left = 336, ; + Name = "cboCategorii", ; + RowSource = "crsCategorii", ; + RowSourceType = 2, ; + TabIndex = 3, ; + Top = 39, ; + Width = 228 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 16, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 36, ; + Width = 262, ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 27, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 230, ; + Lb_simplu1.Caption = "Set", ; + Lb_simplu1.Height = 17, ; + Lb_simplu1.Left = 4, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6, ; + Lb_simplu1.Width = 20 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 16, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 4, ; + Top = 64, ; + Width = 173, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "!", ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = "9999999", ; + Text_simplu1.Left = 26, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Value = 0, ; + Text_simplu1.Width = 139, ; + Lb_simplu1.Caption = "Id", ; + Lb_simplu1.Height = 17, ; + Lb_simplu1.Left = 4, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6, ; + Lb_simplu1.Width = 12 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Gridb1' AS gridb WITH ; + Anchor = 15, ; + ColumnCount = 4, ; + FontName = "Arial Narrow", ; + GridLineColor = 150,150,150, ; + Height = 286, ; + Left = 16, ; + Name = "Gridb1", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "crsXSets", ; + SplitBar = .F., ; + TabIndex = 11, ; + Top = 96, ; + Width = 737, ; + COLUMN1.ControlSource = "id_set", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = "Id set", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .T., ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .T., ; + COLUMN1.Width = 47, ; + Column2.ControlSource = "nume_set", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 222, ; + Column3.ControlSource = "lista_note", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 234, ; + Column4.ControlSource = "categorie", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 159 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Gridb1.Column2.Header1' AS header WITH ; + Caption = "Nume set", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column3.Header1' AS header WITH ; + Caption = "Lista note", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridb1.Column4.Header1' AS header WITH ; + Caption = "Categorie", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridb1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridsort2' AS gridsort WITH ; + Left = 360, ; + Name = "Gridsort2", ; + Top = 72 + *< END OBJECT: ClassLib="..\comun\clase\gridsort.vcx" BaseClass="custom" /> + + PROCEDURE actualizare + save_grid(Thisform.gridb1) + goExecutor.oExecute(Thisform.cselect,Thisform.ccursor) + restore_grid(Thisform.gridb1) + this.refresh_inregistrari() + + ENDPROC + + PROCEDURE aleg_document_pereche + PARAMETERS tcFel,toAct + LOCAL lcSel,lcSelAct + lcSelAct = this.pageframe1.paGE2.gridb1.RecordSource + pnFelCont = tcFel + + IF pnFelCont = 0 && ACTIV + pcContul = ALLTRIM(NVL(toAct.scc,[])) + pcACont = ALLTRIM(NVL(toAct.ascc,[NULL])) + pnIdPart = NVL(toAct.Id_partc,0) + pcNume = ALLTRIM(NVL(toAct.partc,[])) + pnPereche = [perecheC] + pnIdPereche = [id_factC] + ELSE && PASIV + pcContul = ALLTRIM(NVL(toAct.scd,[])) + pcACont = ALLTRIM(NVL(toAct.ascd,[NULL])) + pnIdPart = NVL(toAct.Id_partd,0) + pcNume = ALLTRIM(NVL(toAct.partd,[])) + pnPereche = [perecheD] + pnIdPereche = [id_factD] + ENDIF + + lcSelect = [select count(*) as ePereche from ] + gcs + [.vcoresp_tip_cont where cont = ?pcContul and fel_cont = ?pnFelCont and cu_inregistrari = 1 ] + lcCursor = [crsTest] + lnSucces = goexecutor.oExecute(lcSelect,lcCursor) + IF lnSucces < 0 + aMESSAGEBOX('Modificare:Verific existenta pereche ' +goExecutor.cEroare,0+16,"Eroare") + SELECT (lcSelAct) + this.pageframe1.paGE2.gridb1.SetFocus + RETURN + ENDIF + + SELECT crsTest + LOCATE + IF ePereche = 0 + USE IN crsTest + SELECT (lcSelAct) + this.pageframe1.paGE2.gridb1.SetFocus + RETURN + ENDIF + + + IF !EMPTY(toAct.Suma_val) + llval = .t. + pnSuma = toAct.Suma_val + lcFormular = [ocompensari_val] + ELSE + llval = .f. + pnSuma = toAct.Suma + lcFormular = [ocompensari] + ENDIF + pnIdValuta = toAct.Id_Valuta + pcDenumire = [Partener ] + pcContul + + pcCond = [ an = ?gnAn and luna = ?gnluna] + + IF llval + pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ?pnIdValuta ] + ELSE + pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ] + ENDIF + + pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 '] + IF ALLTRIM(pcACont) # [NULL] + pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond + ELSE + pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and acont is null and ] + pcCond + ENDIF + pcschema = [''] + pcorder = [''] + + PRIVATE podateintrod + STORE '' TO podateintrod + + gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'') + + lcFis = 'actcv' + ALLTRIM(pcContul) + + IF USED(lcFis) + USE IN &lcFis + ENDIF + + IF pnFelCont = 0 + lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +; + [precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +; + [.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ELSE + lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ; + [precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ; + [.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ENDIF + &lcsel + + USE IN crs_actcv + SELECT (lcFis) + + OPLATA=CREATEOBJECT(lcFormular) + OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume + OPLATA.pcFis = lcFis + OPLATA.SUMA = pnSuma + OPLATA.pnFelCont = pnFelCont + OPLATA.SHOW(1) + + IF gnButon = 1 + SELECT (lcSelAct) + DELETE + SELECT (lcFis) + SCAN FOR ales + SCATTER NAME oper + SELECT (lcSelAct) + APPEND BLANK + GATHER NAME toAct + REPLACE &pnIdPereche WITH oper.id_fact, &pnPereche WITH oper.nract, suma WITH oper.sumaachi, suma_val WITH oper.sumaachi2 + SELECT (lcFis) + ENDSCAN + ELSE + SELECT (lcSelAct) + REPLACE &pnPereche WITH toact.&pnPereche + ENDIF + + IF USED(lcFis) + USE IN (lcFis) + ENDIF + SELECT (lcSelAct) + DO nrord WITH lcSelAct + this.pageframe1.paGE2.gridb1.SetFocus + ENDPROC + + PROCEDURE calcul_data + Parameters tcControl + Local ll_verif + Store .F. To ll_verif + lcControl = Alltrim(tcControl) + + Do Case + Case Upper(Alltrim(lcControl))='ACTACTAN.DATASCAD' + ld_DataScad = Gomonth(dataact,1) + Select ACTACTAN + Replace DATASCAD With ld_DataScad + + Case Upper(Alltrim(lcControl))='ACTACTAN.DATAIREG' + If !(Month(dataireg)= gnLuna And Year(dataireg) = gnAn) + *!* Do mesaj With 'Data trebuie sa fie din luna',Alltrim(pcNl)+' '+Alltrim(pcAn) + amessagebox("Data trebuie sa fie din luna " + Alltrim(pcNl)+"/"+Alltrim(pcAn)+" !",0+48,"Atentie") + ll_verif=.T. + Else + ll_verif=.F. + Select ACTACTAN + Replace dataact With dataireg + Endif + + Case Upper(Alltrim(lcControl))='ACTACTAN.DATAACT' + If !((Month(dataact)<= gnLuna And Year(dataact)=gnAn) Or Year(dataact) 0 + LcSql = [delete from xrequest where id_set = ?crsXSets.id_set] && sterg cererea + lnSucces = goExecutor.oExecute(LcSql) + If lnSucces < 0 + Messagebox(goExecutor.cEroare, 0 + 48 ,[Atentie]) + ENDIF + ENDIF + IF lnSucces > 0 + lcsql = [delete from xsets_utilizatori where id_set = ?crsXSets.id_set] && sterg utilizatorii cu drepturi + lnSucces = goExecutor.oExecute(LcSql) + If lnSucces < 0 + Messagebox(goExecutor.cEroare, 0 + 48 ,[Atentie]) + ENDIF + ENDIF + + IF lnSucces > 0 + LcSql = [delete from xsets where id_set = ?crsXsets.id_set] &&sterg setul + lnSucces = goExecutor.oExecute(LcSql) + If lnSucces < 0 + Messagebox(goExecutor.cEroare, 0 + 48 ,[Atentie]) + ENDIF + ENDIF + + IF lnSucces < 0 + lnSucces2 = goExecutor.oExecute("ROLLBACK") + ELSE + lnSucces2 = goExecutor.oExecute("COMMIT") + this.actualizare + endif + SQLSETPROP(gnhandle,"Transactions",1) && tranzactie automata + Endif + + Thisform.gridb1.SetFocus() + ENDPROC + + PROCEDURE Init + DoDefault() + + Local i, loGrid, loColumnTexti + This.WindowState = 2 + + Thisform.grIDB1.SetAll("dynamicbackcolor",'IIF(crsXSets.id_set >= 1000000,RGB(212,212,212),RGB(255,255,255))',"column") + + loGrid = Thisform.grIDB1 + For i = 1 To loGrid.ColumnCount + loColumnTexti = loGrid.Columns(i).text1 + Bindevent(loColumnTexti,"dblClick",This,"dblClickGrid") && do_modifica + Endfor + + ENDPROC + + PROCEDURE intainte_de_do_modifica + ENDPROC + + PROCEDURE KeyPress + Lparameters nKeyCode, nShiftAltCtrl + + If nKeyCode = 13 And nShiftAltCtrl = 2 + This.introducere_libera = !This.introducere_libera + * this.shape2.Visible = !this.shape2.Visible + this.do_modifica() + Endif + + ENDPROC + + PROCEDURE Load + Local lnSucces, lcSql + + + Thisform.cselect = [select t.*, sc.categorie ] + ; + [ from xsets t ] + ; + [ left join xSetsCategorii sc on sc.id_categorie = t.id_categorie ] + ; + [ order by nume_set] + *Thisform.cselect = [select id_set, nr_set, nume_set, fix, lista_note, explicatia, model, formgest, ] + ; + [nu_sterg, param1, listare, param2, frm_date, discount, adaos, factura, ] + ; + [nvl(id_selst,0) as id_selst, nvl(id_seldr,0) as id_seldr, tip_doc, tip_ctr, ] + ; + [expl_fixa, aleg_cont, frm_plata, valuta, compens, nvl(id_tip_rul,0) as id_tip_rul, ] + ; + [nvl(id_jnetax,0) as id_jnetax, nvl(id_jtax,0) as id_jtax, tipjurnal, ] + ; + [nvl(id_jtaxn,0) as id_jtaxn, productie, formproduc, cursval, ] + ; + [nvl(t.id_categorie,0) as id_categorie, procedura_lans, ] + ; + [nvl(id_sucursala,0) as id_sucursala, ] + ; + [sc.categorie, ] + ; + [case when upper(tipjurnal) = 'JC' then 1 ] + ; + [ when upper(tipjurnal) = 'JV' then 2 ] + ; + [ else 3 end as id_tip_jurnal ] + ; + [from xsets t ] + ; + [left join xSetsCategorii sc on sc.id_categorie = t.id_categorie ] + ; + [order by t.nume_set] + + Thisform.ccursor = [crsXSets] + Thisform.cprimarykey = [id_set] + Thisform.ccriteriu = [nume_set] + + lnSucces = goExecutor.oExecute(Thisform.cselect , Thisform.ccursor) + If lnSucces < 0 + Messagebox(goExecutor.cEroare, 0 + 48, [Atentie]) + Endif + + lcSql = [select categorie, id_categorie from xSetsCategorii ] + ; + [union ] + ; + [select '' as categorie, CAST(null as number(5)) as id_categorie from xSetsCategorii ] + ; + [order by categorie] + lnSucces = goExecutor.oExecute(lcSql , "crsCategorii") + If lnSucces < 0 + Messagebox(goExecutor.cEroare, 0 + 48, [Atentie]) + Endif + + Select crsCategorii + Locate For categorie = '' + + ENDPROC + + PROCEDURE refresh_inregistrari + If !Empty(Nvl(crsCategorii.id_categorie,0)) + Set Filter To id_categorie = crsCategorii.id_categorie IN crsXsets + Else + Set Filter TO IN crsXsets + ENDIF + ENDPROC + + PROCEDURE verificare + *!* LOCAL COMPL,TE + *!* TE='' + *!* COMPL=.T. + + *!* SELECT ACTACTAN + *!* ii=1 + *!* SCAN + *!* lcScd = scd + *!* lcScc = scc + *!* IF EMPTY(suma) + *!* COMPL=.F. + *!* TE=TE+','+'suma' + *!* ENDIF + *!* *!* la clasele 8 si 9 se poate sa nu fie contul corespondent completat + *!* IF EMPTY(scd) AND !INLIST(LEFT(NVL(scc,''),1),'8','9') + *!* COMPL=.F. + *!* TE=TE+','+'contul debitor' + *!* ENDIF + *!* IF EMPTY(scc) AND !INLIST(LEFT(NVL(scd,''),1),'8','9') + *!* COMPL=.F. + *!* TE=TE+','+'contul creditor' + *!* ENDIF + *!* IF EMPTY(nract) + *!* COMPL=.F. + *!* TE=TE+','+'nr.document' + *!* ENDIF + *!* IF (!EMPTY(suma_val) OR !EMPTY(CURS)) AND EMPTY(id_valuta) + *!* COMPL=.F. + *!* TE=TE+','+'nume valuta' + *!* ENDIF + *!* IF cu_tva = 1 AND EMPTY(NVL(id_jtva_coloana,0)) + *!* COMPL = .F. + *!* TE=TE+','+'explicatie TVA' + *!* ENDIF + *!* IF !COMPL + *!* *!* DO mesaj WITH 'La nota nr. '+ALLTRIM(STR(ii))+' nu ati completat campurile:',LEFT(te,60)+'...' + *!* amessagebox("La nota nr. "+ALLTRIM(STR(ii))+" nu ati completat campurile:"+SUBSTR(TE,2,60)+"...",0+48,"Atentie") + *!* RETURN COMPL + *!* ENDIF + *!* ii=ii+1 + *!* ENDSCAN + + + *!* RETURN COMPL + *!* modificare 21.02.2008 + lVerificAnalitic = .T. + lCompletezPartener = .F. + llRet = verificare_note_contabile('ACTACTAN',lVerificAnalitic,lCompletezPartener) && in oOperatii_comune + RETURN llRet + *!* modificare 21.02.2008 ^ + ENDPROC + + PROCEDURE verific_analitic + ENDPROC + + PROCEDURE But_cautare2.Click + Select crsXSets + Locate For id_set = Thisform.clb_tx_simplu2.text_simplu1.Value + If !Found() + Go Top + Endif + + Thisform.gridb1.SetFocus() + + ENDPROC + + PROCEDURE cboCategorii.Valid + thisform.refresh_inregistrari() + GO TOP IN crsXsets + thisform.gridb1.Refresh() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_configurare_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cb_jnetax" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Clb_id_set" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.chkValuta" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.clb_numeset" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_jtax" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_tipjurnal" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_jtaxn" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.EdtListaNote" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Clb_procedura" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.chkAlegCont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_sucursala" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_categorie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.COLUMN1.Combo1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Combo1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12._CHECKBOX1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page4.Gridb1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page4.But_precedent1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page4.But_urmator1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page4.Gridb2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + *m: aleg_document_pereche + *m: calcul_data + *m: calcul_suma + *m: do_caut_nomenclator + *m: verificare + *m: verific_analitic + *p: clistainitialautiliz && In se memoreaza lista initiala de utilizatori. Se foloseste la salvare, pentru a nu adauga inca o data utilizatorii. + *p: introducere_libera + *p: lnuverificcont + *p: lverificareanalitic + *p: nid_set + *p: nreqnrmax && numarul de cereri, se foloseste la nrcrt in grid-ul de cereri + * + + * + clistainitialautiliz = [] + DoCreate = .T. + Height = 377 + introducere_libera = .F. + lnuverificcont = .F. + lverificareanalitic = .T. + Name = "frm_configurare_nou" + nid_set = .F. + nreqnrmax = 0 + Width = 792 + WindowState = 2 + _SHAPE1.Anchor = 10 + _SHAPE1.Height = 29 + _SHAPE1.Left = 0 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 794 + _shape2.Height = 29 + _shape2.Left = 726 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 62 + Lb_titlu_alb_b121.Caption = "Note, seturi" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 2 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 757 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 3 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.Width = 30 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 8, ; + Left = 727, ; + Name = "But_renunt1", ; + TabIndex = 4, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Pageframe1' AS pageframe WITH ; + Anchor = 15, ; + ErasePage = .T., ; + Height = 322, ; + Left = 4, ; + Name = "Pageframe1", ; + PageCount = 4, ; + TabIndex = 1, ; + TabStyle = 1, ; + Top = 37, ; + Width = 785, ; + Page1.Caption = "Seturi", ; + Page1.Enabled = .F., ; + Page1.Name = "Page1", ; + Page2.Caption = "Cereri", ; + Page2.Enabled = .F., ; + Page2.Name = "Page2", ; + Page3.Caption = "Note", ; + Page3.Enabled = .F., ; + Page3.Name = "Page3", ; + Page4.Caption = "Drepturi utilizatori", ; + Page4.Name = "Page4" + *< END OBJECT: BaseClass="pageframe" /> + + ADD OBJECT 'Pageframe1.Page1.cb_categorie' AS cb_tx_simplu WITH ; + Anchor = 40, ; + Height = 29, ; + Left = 403, ; + Name = "cb_categorie", ; + TabIndex = 8, ; + Top = 156, ; + Width = 362, ; + _cbbase1.Anchor = 40, ; + _cbbase1.BoundColumn = 2, ; + _cbbase1.BoundTo = .T., ; + _cbbase1.ControlSource = "porec.id_categorie", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 120, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crsCateg.categorie,id_categorie", ; + _cbbase1.RowSourceType = 6, ; + _cbbase1.TabIndex = 1, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 236, ; + _lbbase1.Caption = "Categorie", ; + _lbbase1.Name = "_lbbase1", ; + _lbbase1.TabIndex = 2 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.Cb_jnetax' AS cb_tx_simplu WITH ; + Anchor = 40, ; + Height = 29, ; + Left = 403, ; + Name = "Cb_jnetax", ; + TabIndex = 4, ; + Top = 7, ; + Width = 362, ; + _cbbase1.Anchor = 40, ; + _cbbase1.BoundColumn = 2, ; + _cbbase1.ControlSource = "porec.id_jnetax", ; + _cbbase1.FirstElement = 1, ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 120, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crsJNetax.denumire,id_jtva_coloana", ; + _cbbase1.RowSourceType = 6, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 236, ; + _lbbase1.Caption = "Operatii netaxabile", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.cb_jtax' AS cb_tx_simplu WITH ; + Anchor = 40, ; + Height = 29, ; + Left = 403, ; + Name = "cb_jtax", ; + TabIndex = 5, ; + Top = 43, ; + Width = 362, ; + _cbbase1.Anchor = 40, ; + _cbbase1.BoundColumn = 2, ; + _cbbase1.ControlSource = "porec.id_jtax", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 120, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crsJTax.denumire,id_jtva_coloana", ; + _cbbase1.RowSourceType = 6, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 236, ; + _lbbase1.Caption = "Operatii taxabile", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.cb_jtaxn' AS cb_tx_simplu WITH ; + Anchor = 40, ; + Height = 33, ; + Left = 403, ; + Name = "cb_jtaxn", ; + TabIndex = 7, ; + Top = 115, ; + Width = 362, ; + _cbbase1.Anchor = 40, ; + _cbbase1.BoundColumn = 2, ; + _cbbase1.ControlSource = "porec.id_jtaxn", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 120, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crsJtaxn.denumire,id_jtva_coloana", ; + _cbbase1.RowSourceType = 6, ; + _cbbase1.Top = 5, ; + _cbbase1.Width = 236, ; + _lbbase1.Caption = "Operatii taxabile (neplatitor TVA)", ; + _lbbase1.Height = 32, ; + _lbbase1.Left = 5, ; + _lbbase1.Name = "_lbbase1", ; + _lbbase1.Top = 1, ; + _lbbase1.Width = 90, ; + _lbbase1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.cb_sucursala' AS cb_tx_simplu WITH ; + Anchor = 40, ; + Height = 33, ; + Left = 403, ; + Name = "cb_sucursala", ; + TabIndex = 9, ; + Top = 193, ; + Width = 362, ; + _CBBASE1.Anchor = 40, ; + _CBBASE1.BoundColumn = 2, ; + _CBBASE1.BoundTo = .T., ; + _CBBASE1.ControlSource = "porec.id_sucursala", ; + _CBBASE1.FirstElement = 1, ; + _CBBASE1.Height = 23, ; + _CBBASE1.Left = 120, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "crsSucursale.sucursala,id_sucursala", ; + _CBBASE1.RowSourceType = 6, ; + _CBBASE1.Top = 5, ; + _CBBASE1.Width = 236, ; + _LBBASE1.Caption = "Sucursala", ; + _LBBASE1.Height = 17, ; + _LBBASE1.Left = 5, ; + _LBBASE1.Name = "_LBBASE1", ; + _LBBASE1.Top = 8, ; + _LBBASE1.Width = 56, ; + _LBBASE1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.cb_tipjurnal' AS cb_tx_simplu WITH ; + Anchor = 40, ; + Height = 29, ; + Left = 403, ; + Name = "cb_tipjurnal", ; + TabIndex = 6, ; + Top = 79, ; + Width = 362, ; + _cbbase1.Anchor = 40, ; + _cbbase1.BoundColumn = 2, ; + _cbbase1.BoundTo = .T., ; + _cbbase1.ControlSource = "porec.tipjurnal", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 120, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crsJurnal.name,tipjurnal", ; + _cbbase1.RowSourceType = 6, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 236, ; + _lbbase1.Caption = "Tip jurnal", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.chkAlegCont' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 40, ; + Caption = "Cont", ; + ControlSource = "porec.aleg_cont", ; + Left = 403, ; + Name = "chkAlegCont", ; + TabIndex = 11, ; + Top = 256 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Pageframe1.Page1.chkValuta' AS _checkbox WITH ; + Alignment = 0, ; + Anchor = 40, ; + Caption = "Valuta", ; + ControlSource = "porec.valuta", ; + Left = 403, ; + Name = "chkValuta", ; + TabIndex = 10, ; + Top = 235 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Pageframe1.Page1.Clb_id_set' AS clb_tx_simplu WITH ; + Anchor = 130, ; + Height = 29, ; + Left = 19, ; + Name = "Clb_id_set", ; + TabIndex = 12, ; + Top = 7, ; + Width = 362, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Anchor = 130, ; + Text_simplu1.ControlSource = "thisform.nId_set", ; + Text_simplu1.Enabled = .F., ; + Text_simplu1.Format = "R", ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = "9999999", ; + Text_simplu1.Left = 101, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Value = 0, ; + Text_simplu1.Width = 255, ; + Lb_simplu1.Caption = "Id set", ; + Lb_simplu1.Height = 17, ; + Lb_simplu1.Left = 8, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6, ; + Lb_simplu1.Width = 32 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.clb_numeset' AS clb_tx_simplu WITH ; + Anchor = 130, ; + Height = 29, ; + Left = 19, ; + Name = "clb_numeset", ; + TabIndex = 1, ; + Top = 41, ; + Width = 362, ; + Text_simplu1.Anchor = 130, ; + Text_simplu1.ControlSource = "porec.nume_set", ; + Text_simplu1.Format = "", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 101, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 254, ; + Lb_simplu1.Caption = "Nume set", ; + Lb_simplu1.Height = 17, ; + Lb_simplu1.Left = 8, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6, ; + Lb_simplu1.Width = 56 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.Clb_procedura' AS clb_tx_simplu WITH ; + Anchor = 130, ; + Height = 29, ; + Left = 19, ; + Name = "Clb_procedura", ; + TabIndex = 3, ; + Top = 178, ; + Width = 362, ; + Text_simplu1.Anchor = 130, ; + Text_simplu1.ControlSource = "porec.procedura_lans", ; + Text_simplu1.Format = "", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 101, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 254, ; + Lb_simplu1.Caption = "Procedura", ; + Lb_simplu1.Height = 17, ; + Lb_simplu1.Left = 8, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6, ; + Lb_simplu1.Width = 59 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.EdtListaNote' AS ed_tx_simplu WITH ; + Anchor = 130, ; + Height = 98, ; + Left = 19, ; + Name = "EdtListaNote", ; + TabIndex = 2, ; + Top = 75, ; + Width = 362, ; + _edbase1.Anchor = 130, ; + _edbase1.ControlSource = "porec.lista_note", ; + _edbase1.Height = 90, ; + _edbase1.Left = 72, ; + _edbase1.Name = "_edbase1", ; + _edbase1.Top = 4, ; + _edbase1.Width = 280, ; + _lbbase1.Caption = "Lista note", ; + _lbbase1.Name = "_lbbase1", ; + _lbbase1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1' AS gridb WITH ; + Anchor = 15, ; + BackColor = 255,255,255, ; + ColumnCount = 3, ; + GridLineColor = 255,255,255, ; + Height = 240, ; + Left = 9, ; + Name = "Gridb1", ; + Panel = 1, ; + RecordSource = "crsReq", ; + RowHeight = 22, ; + SplitBar = .F., ; + Top = 7, ; + Width = 766, ; + COLUMN1.BackColor = 226,226,226, ; + COLUMN1.ColumnOrder = 2, ; + COLUMN1.ControlSource = "label_item", ; + COLUMN1.CurrentControl = "Combo1", ; + COLUMN1.Header1.Caption = "Element", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .F., ; + COLUMN1.Text1.BackColor = 226,226,226, ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .F., ; + COLUMN1.Text1.Visible = .T., ; + COLUMN1.Visible = .T., ; + COLUMN1.Width = 245, ; + Column2.BackColor = 247,245,238, ; + Column2.ColumnOrder = 1, ; + Column2.ControlSource = "id_item", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Visible = .T., ; + Column2.Width = 66, ; + Column3.BackColor = 226,226,226, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "valoare_default_text", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Visible = .T., ; + Column3.Width = 404 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.COLUMN1.Combo1' AS combobox WITH ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + ColumnLines = .F., ; + ControlSource = "crsreq.id_item", ; + FontName = "Arial Narrow", ; + Height = 24, ; + Left = 50, ; + Name = "Combo1", ; + RowSource = "crsItems.label_item,id_item", ; + RowSourceType = 2, ; + SpecialEffect = 1, ; + Style = 2, ; + Top = 47, ; + Visible = .T., ; + Width = 100 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column2.Header1' AS header WITH ; + Caption = "Id element", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column3.Header1' AS header WITH ; + Caption = "Valoare implicita", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page2.Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page2.Nou1' AS nou WITH ; + Anchor = 6, ; + Left = 13, ; + Name = "Nou1", ; + Top = 251, ; + Imbuton1.Height = 29, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 27, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page2.Sterge1' AS sterge WITH ; + Anchor = 6, ; + Left = 49, ; + Name = "Sterge1", ; + Top = 251, ; + Imbuton1.Height = 26, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 26, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1' AS pageframe WITH ; + Anchor = 15, ; + ErasePage = .T., ; + Height = 293, ; + Left = 0, ; + Name = "Pageframe1", ; + PageCount = 6, ; + TabStyle = 1, ; + Top = 1, ; + Width = 784, ; + ZOrderSet = 2, ; + Page1.BackColor = 255,255,255, ; + Page1.Caption = "Note-Sume", ; + Page1.Name = "Page1", ; + Page2.BackColor = 240,240,240, ; + Page2.Caption = "Date", ; + Page2.Name = "Page2", ; + Page3.BackColor = 228,228,228, ; + Page3.Caption = "Explicatii", ; + Page3.Name = "Page3", ; + Page4.Caption = "Xnote 1-12", ; + Page4.Name = "Page4", ; + Page5.Caption = "Xnote 13-24", ; + Page5.Name = "Page5", ; + Page6.Caption = "Xnote 25-35", ; + Page6.Name = "Page6" + *< END OBJECT: BaseClass="pageframe" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1' AS gridb WITH ; + Anchor = 15, ; + ColumnCount = 15, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + GridLines = 3, ; + HeaderHeight = 25, ; + Height = 212, ; + Left = 5, ; + Name = "Gridb1", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordMark = .T., ; + RecordSource = "crsNote", ; + RowHeight = 22, ; + SplitBar = .F., ; + Top = 6, ; + Width = 762, ; + COLUMN1.Alignment = 2, ; + COLUMN1.BackColor = 245,245,245, ; + COLUMN1.ControlSource = "nr_nota", ; + COLUMN1.DynamicBackColor = "RGB(245,245,245)", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = "Nr.", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .F., ; + COLUMN1.Text1.Alignment = 2, ; + COLUMN1.Text1.BackColor = 245,245,245, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .F., ; + COLUMN1.Text1.Visible = .T., ; + COLUMN1.Visible = .T., ; + COLUMN1.Width = 26, ; + Column2.Alignment = 1, ; + Column2.BackColor = 247,245,238, ; + Column2.ControlSource = "xscd", ; + Column2.DynamicBackColor = "RGB(247,245,238)", ; + Column2.FontName = "Arial Narrow", ; + Column2.Format = "XXXX.", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .F., ; + Column2.Visible = .T., ; + Column2.Width = 59, ; + Column3.Alignment = 0, ; + Column3.BackColor = 247,245,238, ; + Column3.ControlSource = "xascd", ; + Column3.DynamicBackColor = "RGB(247,245,238)", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .F., ; + Column3.Visible = .T., ; + Column3.Width = 53, ; + Column4.Alignment = 1, ; + Column4.BackColor = 226,226,226, ; + Column4.ControlSource = "xscc", ; + Column4.DynamicBackColor = "RGB(226,226,226)", ; + Column4.FontName = "Arial Narrow", ; + Column4.Format = "XXXX.", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .F., ; + Column4.Visible = .T., ; + Column4.Width = 63, ; + Column5.Alignment = 0, ; + Column5.BackColor = 226,226,226, ; + Column5.ControlSource = "xascc", ; + Column5.DynamicBackColor = "RGB(226,226,226)", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .F., ; + Column5.Visible = .T., ; + Column5.Width = 49, ; + Column6.BackColor = 214,214,214, ; + Column6.ControlSource = "suma", ; + Column6.DynamicBackColor = "rgb(214,214,214)", ; + Column6.FontName = "Arial Narrow", ; + Column6.InputMask = (get_mask(12,gnPa)), ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .F., ; + Column6.Visible = .T., ; + Column6.Width = 114, ; + Column7.BackColor = 214,214,214, ; + Column7.ColumnOrder = 7, ; + Column7.ControlSource = "suma_val", ; + Column7.DynamicBackColor = "rgb(214,214,214)", ; + Column7.FontName = "Arial Narrow", ; + Column7.InputMask = (get_mask(12,gnPval)), ; + Column7.Name = "Column8", ; + Column7.ReadOnly = .F., ; + Column7.Visible = .T., ; + Column7.Width = 87, ; + Column8.BackColor = 214,214,214, ; + Column8.ColumnOrder = 8, ; + Column8.ControlSource = "curs", ; + Column8.DynamicBackColor = "rgb(214,214,214)", ; + Column8.FontName = "Arial Narrow", ; + Column8.InputMask = (get_mask(12,gnPcurs)), ; + Column8.Name = "Column9", ; + Column8.ReadOnly = .F., ; + Column8.Visible = .T., ; + Column8.Width = 76, ; + Column9.BackColor = 214,214,214, ; + Column9.ColumnOrder = 9, ; + Column9.ControlSource = "nume_val", ; + Column9.CurrentControl = "Text1", ; + Column9.DynamicBackColor = "rgb(214,214,214)", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column10", ; + Column9.ReadOnly = .F., ; + Column9.Visible = .T., ; + Column9.Width = 112, ; + Column10.Alignment = 0, ; + Column10.BackColor = 214,214,214, ; + Column10.ColumnOrder = 12, ; + Column10.ControlSource = "explicatie_tva", ; + Column10.CurrentControl = "Combo1", ; + Column10.DynamicBackColor = "rgb(214,214,214)", ; + Column10.DynamicCurrentControl = "IIF(actactan.cu_tva=0,'Text1','Combo1')", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "Column11", ; + Column10.ReadOnly = .F., ; + Column10.Sparse = .F., ; + Column10.Visible = .T., ; + Column10.Width = 72, ; + Column11.BackColor = 214,214,214, ; + Column11.ColumnOrder = 11, ; + Column11.ControlSource = "proc_tva", ; + Column11.FontName = "Arial Narrow", ; + Column11.InputMask = "99.99", ; + Column11.Name = "Column7", ; + Column11.ReadOnly = .T., ; + Column11.Visible = .T., ; + Column11.Width = 65, ; + Column12.BackColor = 214,214,214, ; + Column12.ColumnOrder = 10, ; + Column12.ControlSource = "cu_tva", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .F., ; + Column12.Sparse = .F., ; + Column12.Visible = .T., ; + Column12.Width = 42, ; + Column13.BackColor = 214,214,214, ; + Column13.ControlSource = "id_fact", ; + Column13.FontName = "Arial Narrow", ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column13.Width = 63, ; + Column14.BackColor = 214,214,214, ; + Column14.ControlSource = "id_factd", ; + Column14.FontName = "Arial Narrow", ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column14.Width = 69, ; + Column15.BackColor = 214,214,214, ; + Column15.ControlSource = "id_factc", ; + Column15.FontName = "Arial Narrow", ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column15.Width = 68 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Combo1' AS combobox WITH ; + Alignment = 0, ; + BorderStyle = 0, ; + BoundColumn = 1, ; + ColumnCount = 3, ; + ColumnLines = .F., ; + ColumnWidths = "250,0,0", ; + Enabled = .T., ; + FontName = "Arial Narrow", ; + Height = 24, ; + Left = 32, ; + Name = "Combo1", ; + ReadOnly = .F., ; + RowSource = "jtva_coloane.denumire,cota_tva,id_jtva_coloana", ; + RowSourceType = 6, ; + SpecialEffect = 1, ; + Style = 2, ; + Top = 44, ; + Visible = .T., ; + Width = 100 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Text1' AS _textbox WITH ; + FontName = "Arial Narrow", ; + Left = 44, ; + Name = "Text1", ; + ReadOnly = .T., ; + Top = 32 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12._CHECKBOX1' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + ControlSource = "cu_tva", ; + FontName = "Arial Narrow", ; + Left = 27, ; + Name = "_CHECKBOX1", ; + ReadOnly = .F., ; + Top = 32, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cu TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id Factura", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id Factura d", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "ID Factura c", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont debitor", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic D", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont creditor ", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic C", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma in valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs valutar", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 214,214,214, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Nou1' AS nou WITH ; + Anchor = 6, ; + Left = 8, ; + Name = "Nou1", ; + Top = 222, ; + Imbuton1.Height = 29, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 27, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Sterge1' AS sterge WITH ; + Anchor = 6, ; + Left = 44, ; + Name = "Sterge1", ; + Top = 222, ; + Imbuton1.Height = 26, ; + Imbuton1.Name = "Imbuton1", ; + Imbuton1.Width = 26, ; + Command1.Name = "Command1" + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1' AS gridb WITH ; + Anchor = 15, ; + BackColor = 240,240,240, ; + ColumnCount = 10, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + HeaderHeight = 26, ; + Height = 248, ; + Left = 5, ; + Name = "Gridb1", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordMark = .T., ; + RecordSource = "crsNote", ; + RowHeight = 23, ; + SplitBar = .F., ; + Top = 6, ; + Width = 762, ; + COLUMN1.BackColor = 240,240,240, ; + COLUMN1.ControlSource = "nr_nota", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = "Nr.", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .F., ; + COLUMN1.Text1.BackColor = 240,240,240, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .F., ; + COLUMN1.Width = 19, ; + Column2.BackColor = 240,240,240, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "fdoc", ; + Column2.CurrentControl = "Text1", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .F., ; + Column2.Width = 105, ; + Column3.BackColor = 240,240,240, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "dataireg", ; + Column3.CurrentControl = "Text1", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .F., ; + Column3.Sparse = .F., ; + Column3.Width = 83, ; + Column4.BackColor = 240,240,240, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "dataact", ; + Column4.CurrentControl = "Text1", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .F., ; + Column4.Sparse = .F., ; + Column4.Width = 87, ; + Column5.BackColor = 240,240,240, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "datascad", ; + Column5.CurrentControl = "Text1", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .F., ; + Column5.Sparse = .F., ; + Column5.Width = 83, ; + Column6.BackColor = 240,240,240, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "nract", ; + Column6.CurrentControl = "Text1", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .F., ; + Column6.Sparse = .F., ; + Column7.BackColor = 240,240,240, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "pereched", ; + Column7.CurrentControl = "Text1", ; + Column7.DynamicBackColor = "", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .F., ; + Column7.Sparse = .F., ; + Column7.Width = 68, ; + Column8.BackColor = 240,240,240, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "nnir", ; + Column8.CurrentControl = "Text1", ; + Column8.DynamicBackColor = "", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .F., ; + Column8.Sparse = .F., ; + Column9.BackColor = 240,240,240, ; + Column9.ColumnOrder = 9, ; + Column9.ControlSource = "perechec", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .F., ; + Column9.Width = 71, ; + Column10.BackColor = 240,240,240, ; + Column10.ColumnOrder = 6, ; + Column10.ControlSource = "serie_act", ; + Column10.FontName = "Arial Narrow", ; + Column10.Format = "!", ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .F., ; + Column10.Width = 52 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie doc.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel document", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inregistrarii", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data document", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadenta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. document", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pereche Debit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. NIR/BON", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pereche Credit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 240,240,240, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1' AS gridb WITH ; + Anchor = 15, ; + BackColor = 228,228,228, ; + ColumnCount = 10, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + HeaderHeight = 25, ; + Height = 248, ; + Left = 5, ; + Name = "Gridb1", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordMark = .T., ; + RecordSource = "crsNote", ; + RowHeight = 23, ; + SplitBar = .F., ; + Top = 6, ; + Width = 762, ; + COLUMN1.BackColor = 228,228,228, ; + COLUMN1.ColumnOrder = 1, ; + COLUMN1.ControlSource = "nr_nota", ; + COLUMN1.DynamicBackColor = "rgb(228,228,228)", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.BackColor = 228,228,228, ; + COLUMN1.Header1.Caption = "Nr.", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.ReadOnly = .F., ; + COLUMN1.Text1.BackColor = 228,228,228, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.ReadOnly = .F., ; + COLUMN1.Text1.Visible = .T., ; + COLUMN1.Visible = .T., ; + COLUMN1.Width = 21, ; + Column2.BackColor = 228,228,228, ; + Column2.ColumnOrder = 7, ; + Column2.ControlSource = "nrord", ; + Column2.CurrentControl = "Text1", ; + Column2.DynamicBackColor = "rgb(228,228,228)", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column7", ; + Column2.ReadOnly = .F., ; + Column2.Visible = .T., ; + Column2.Width = 95, ; + Column3.BackColor = 228,228,228, ; + Column3.ColumnOrder = 8, ; + Column3.ControlSource = "nresp", ; + Column3.CurrentControl = "Text1", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column8", ; + Column3.ReadOnly = .F., ; + Column3.Visible = .T., ; + Column3.Width = 110, ; + Column4.BackColor = 228,228,228, ; + Column4.ColumnOrder = 9, ; + Column4.ControlSource = "dst_chlt", ; + Column4.CurrentControl = "Text1", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column9", ; + Column4.ReadOnly = .F., ; + Column4.Sparse = .F., ; + Column4.Visible = .T., ; + Column4.Width = 108, ; + Column5.BackColor = 228,228,228, ; + Column5.ColumnOrder = 10, ; + Column5.ControlSource = "sectie", ; + Column5.CurrentControl = "Text1", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column10", ; + Column5.ReadOnly = .F., ; + Column5.Visible = .T., ; + Column5.Width = 96, ; + Column6.BackColor = 228,228,228, ; + Column6.ColumnOrder = 6, ; + Column6.ControlSource = "explicatia", ; + Column6.DynamicBackColor = "rgb(226,226,226)", ; + Column6.FontName = "Arial Narrow", ; + Column6.Format = "k!", ; + Column6.Name = "Column14", ; + Column6.ReadOnly = .F., ; + Column6.Visible = .T., ; + Column6.Width = 110, ; + Column7.BackColor = 228,228,228, ; + Column7.ColumnOrder = 3, ; + Column7.ControlSource = "partd", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column17", ; + Column7.ReadOnly = .F., ; + Column7.Visible = .T., ; + Column7.Width = 105, ; + Column8.BackColor = 228,228,228, ; + Column8.ColumnOrder = 5, ; + Column8.ControlSource = "partc", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "Column18", ; + Column8.ReadOnly = .F., ; + Column8.Visible = .T., ; + Column8.Width = 105, ; + Column9.BackColor = 228,228,228, ; + Column9.ColumnOrder = 4, ; + Column9.ControlSource = "scc_fara_part", ; + Column9.CurrentControl = "Check1", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column2", ; + Column9.ReadOnly = .F., ; + Column9.Sparse = .F., ; + Column9.Visible = .T., ; + Column9.Width = 84, ; + Column10.BackColor = 228,228,228, ; + Column10.ColumnOrder = 2, ; + Column10.ControlSource = "scd_fara_part", ; + Column10.CurrentControl = "Check1", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "Column3", ; + Column10.ReadOnly = .F., ; + Column10.Sparse = .F., ; + Column10.Visible = .T., ; + Column10.Width = 81 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Sectia", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 226,226,226, ; + Caption = "Explicatia", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 226,226,226, ; + Caption = "Partener Debit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 226,226,226, ; + Caption = "Partener Credit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Check1' AS checkbox WITH ; + Alignment = 0, ; + BackStyle = 0, ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 40, ; + Name = "Check1", ; + Top = 90, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Header1' AS header WITH ; + Caption = "Fara partener credit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Check1' AS checkbox WITH ; + Alignment = 0, ; + BackStyle = 0, ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 24, ; + Name = "Check1", ; + Top = 54, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Header1' AS header WITH ; + Caption = "Fara partener debit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Contract/Lucrare", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Responsabil", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 228,228,228, ; + Caption = "Cheltuiala/Venit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 228,228,228, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1' AS gridb WITH ; + Anchor = 15, ; + BackColor = 247,245,238, ; + ColumnCount = 13, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + Height = 247, ; + Left = 5, ; + Name = "Gridb1", ; + Panel = 1, ; + RecordSource = "crsnote", ; + RowHeight = 22, ; + SplitBar = .F., ; + Top = 6, ; + Width = 762, ; + COLUMN1.BackColor = 247,245,238, ; + COLUMN1.ColumnOrder = 2, ; + COLUMN1.ControlSource = "x1", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = " X1", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.Text1.BackColor = 247,245,238, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Width = 81, ; + Column2.BackColor = 247,245,238, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "x2", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column3.BackColor = 247,245,238, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "x3", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column4.BackColor = 247,245,238, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "x4", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column5.BackColor = 247,245,238, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "x5", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column6.BackColor = 247,245,238, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "x6", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "Column6", ; + Column7.BackColor = 247,245,238, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "x7", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column7", ; + Column8.BackColor = 247,245,238, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "x8", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "Column8", ; + Column9.BackColor = 247,245,238, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "x9", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column9", ; + Column10.BackColor = 247,245,238, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "x10", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "Column10", ; + Column11.BackColor = 247,245,238, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "x11", ; + Column11.FontName = "Arial Narrow", ; + Column11.Name = "Column11", ; + Column12.BackColor = 247,245,238, ; + Column12.ColumnOrder = 13, ; + Column12.ControlSource = "x12", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "Column12", ; + Column13.BackColor = 247,245,238, ; + Column13.ColumnOrder = 1, ; + Column13.ControlSource = "nr_nota", ; + Column13.FontName = "Arial Narrow", ; + Column13.Name = "Column13", ; + Column13.Width = 24 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Header1' AS header WITH ; + Caption = " X10", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Header1' AS header WITH ; + Caption = " X11", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Header1' AS header WITH ; + Caption = " X12", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Header1' AS header WITH ; + Caption = " Nr.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Header1' AS header WITH ; + Caption = " X2", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Header1' AS header WITH ; + Caption = " X3", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Header1' AS header WITH ; + Caption = " X4", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Header1' AS header WITH ; + Caption = " X5", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Header1' AS header WITH ; + Caption = " X6", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Header1' AS header WITH ; + Caption = " X7", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Header1' AS header WITH ; + Caption = " X8", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Header1' AS header WITH ; + Caption = " X9", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1' AS gridb WITH ; + Anchor = 15, ; + BackColor = 247,245,238, ; + ColumnCount = 13, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + Height = 247, ; + Left = 5, ; + Name = "Gridb1", ; + Panel = 1, ; + RecordSource = "crsNote", ; + RowHeight = 22, ; + SplitBar = .F., ; + Top = 6, ; + Width = 762, ; + COLUMN1.BackColor = 247,245,238, ; + COLUMN1.ColumnOrder = 2, ; + COLUMN1.ControlSource = " X13", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = " X13", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.Text1.BackColor = 247,245,238, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Width = 71, ; + Column2.BackColor = 247,245,238, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = " X14", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column3.BackColor = 247,245,238, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = " X15", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column4.BackColor = 247,245,238, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = " X16", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column5.BackColor = 247,245,238, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = " X17", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column6.BackColor = 247,245,238, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = " X18", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "Column6", ; + Column7.BackColor = 247,245,238, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = " X19", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column7", ; + Column8.BackColor = 247,245,238, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = " X20", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "Column8", ; + Column9.BackColor = 247,245,238, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = " X21", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column9", ; + Column10.BackColor = 247,245,238, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = " X22", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "Column10", ; + Column11.BackColor = 247,245,238, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = " X23", ; + Column11.FontName = "Arial Narrow", ; + Column11.Name = "Column11", ; + Column12.BackColor = 247,245,238, ; + Column12.ColumnOrder = 13, ; + Column12.ControlSource = " X24", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "Column12", ; + Column13.BackColor = 247,245,238, ; + Column13.ColumnOrder = 1, ; + Column13.ControlSource = "nr_nota", ; + Column13.FontName = "Arial Narrow", ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column13.Width = 25 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Header1' AS header WITH ; + Caption = " X22", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Header1' AS header WITH ; + Caption = " X23", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Header1' AS header WITH ; + Caption = " X24", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Header1' AS header WITH ; + Caption = " Nr.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Header1' AS header WITH ; + Caption = " X14", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Header1' AS header WITH ; + Caption = " X15", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Header1' AS header WITH ; + Caption = " X16", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Header1' AS header WITH ; + Caption = " X17", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Header1' AS header WITH ; + Caption = " X18", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Header1' AS header WITH ; + Caption = " X19", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Header1' AS header WITH ; + Caption = " X20", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Header1' AS header WITH ; + Caption = " X21", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1' AS gridb WITH ; + Anchor = 15, ; + BackColor = 247,245,238, ; + ColumnCount = 12, ; + FontName = "Arial Narrow", ; + GridLineColor = 255,255,255, ; + Height = 247, ; + Left = 5, ; + Name = "Gridb1", ; + Panel = 1, ; + RecordSource = "crsNote", ; + RowHeight = 22, ; + SplitBar = .F., ; + Top = 6, ; + Width = 762, ; + COLUMN1.BackColor = 247,245,238, ; + COLUMN1.ColumnOrder = 2, ; + COLUMN1.ControlSource = "x25", ; + COLUMN1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Caption = " X25", ; + COLUMN1.Header1.FontName = "Arial Narrow", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.Text1.BackColor = 247,245,238, ; + COLUMN1.Text1.FontName = "Arial Narrow", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Width = 79, ; + Column2.BackColor = 247,245,238, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "x26", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column3.BackColor = 247,245,238, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "x27", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column4.BackColor = 247,245,238, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "x28", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column5.BackColor = 247,245,238, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "x29", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column6.BackColor = 247,245,238, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "x30", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "Column6", ; + Column7.BackColor = 247,245,238, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "x31", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column7", ; + Column8.BackColor = 247,245,238, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "x32", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "Column8", ; + Column9.BackColor = 247,245,238, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "x33", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column9", ; + Column10.BackColor = 247,245,238, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "x34", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "Column10", ; + Column11.BackColor = 247,245,238, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "x35", ; + Column11.FontName = "Arial Narrow", ; + Column11.Name = "Column11", ; + Column12.BackColor = 247,245,238, ; + Column12.ColumnOrder = 1, ; + Column12.ControlSource = "nr_nota", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 26 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Header1' AS header WITH ; + Caption = " X34", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Header1' AS header WITH ; + Caption = " X35", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Header1' AS header WITH ; + Caption = " Nr.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Header1' AS header WITH ; + Caption = " X26", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Header1' AS header WITH ; + Caption = " X27", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Header1' AS header WITH ; + Caption = " X28", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Header1' AS header WITH ; + Caption = " X29", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Header1' AS header WITH ; + Caption = " X30", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Header1' AS header WITH ; + Caption = " X31", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Header1' AS header WITH ; + Caption = " X32", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Header1' AS header WITH ; + Caption = " X33", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Text1' AS textbox WITH ; + BackColor = 247,245,238, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Pageframe1.Page4.But_precedent1' AS but_precedent WITH ; + Anchor = 0, ; + Left = 380, ; + Name = "But_precedent1", ; + Top = 138 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Pageframe1.Page4.But_urmator1' AS but_urmator WITH ; + Anchor = 0, ; + Left = 380, ; + Name = "But_urmator1", ; + Top = 105 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Pageframe1.Page4.Gridb1' AS gridb WITH ; + Anchor = 5, ; + GridLineColor = 255,255,255, ; + HeaderHeight = 22, ; + Height = 268, ; + HighlightStyle = 2, ; + Left = 29, ; + Name = "Gridb1", ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crsUtilizatori", ; + ScrollBars = 2, ; + Top = 7, ; + Width = 317, ; + COLUMN1.ControlSource = "utilizator", ; + COLUMN1.Header1.Alignment = 2, ; + COLUMN1.Header1.Caption = " Utilizatori", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Width = 297 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'Pageframe1.Page4.Gridb2' AS gridb WITH ; + Anchor = 5, ; + ColumnCount = 1, ; + GridLineColor = 255,255,255, ; + HeaderHeight = 22, ; + Height = 268, ; + HighlightStyle = 1, ; + Left = 437, ; + Name = "Gridb2", ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crsDrepturi_utilizatori", ; + ScrollBars = 2, ; + SelectedItemForeColor = 255,255,255, ; + Top = 7, ; + Width = 317, ; + COLUMN1.ControlSource = "utilizator", ; + COLUMN1.Header1.Alignment = 2, ; + COLUMN1.Header1.Caption = "Utilizatorii cu drepturi asupra seturilor", ; + COLUMN1.Header1.Name = "Header1", ; + COLUMN1.Name = "COLUMN1", ; + COLUMN1.Text1.BackColor = 255,255,255, ; + COLUMN1.Text1.Name = "Text1", ; + COLUMN1.Text1.SelectedForeColor = 255,255,255, ; + COLUMN1.Text1.Visible = .T., ; + COLUMN1.Visible = .T., ; + COLUMN1.Width = 297 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" /> + + PROCEDURE aleg_document_pereche + PARAMETERS tcFel,toAct + LOCAL lcSel,lcSelAct + lcSelAct = this.pageframe1.paGE2.gridb1.RecordSource + pnFelCont = tcFel + + IF pnFelCont = 0 && ACTIV + pcContul = ALLTRIM(NVL(toAct.scc,[])) + pcACont = ALLTRIM(NVL(toAct.ascc,[NULL])) + pnIdPart = NVL(toAct.Id_partc,0) + pcNume = ALLTRIM(NVL(toAct.partc,[])) + pnPereche = [perecheC] + pnIdPereche = [id_factC] + ELSE && PASIV + pcContul = ALLTRIM(NVL(toAct.scd,[])) + pcACont = ALLTRIM(NVL(toAct.ascd,[NULL])) + pnIdPart = NVL(toAct.Id_partd,0) + pcNume = ALLTRIM(NVL(toAct.partd,[])) + pnPereche = [perecheD] + pnIdPereche = [id_factD] + ENDIF + + lcSelect = [select count(*) as ePereche from ] + gcs + [.vcoresp_tip_cont where cont = ?pcContul and fel_cont = ?pnFelCont and cu_inregistrari = 1 ] + lcCursor = [crsTest] + lnSucces = goexecutor.oExecute(lcSelect,lcCursor) + IF lnSucces < 0 + aMESSAGEBOX('Modificare:Verific existenta pereche ' +goExecutor.cEroare,0+16,"Eroare") + SELECT (lcSelAct) + this.pageframe1.paGE2.gridb1.SetFocus + RETURN + ENDIF + + SELECT crsTest + LOCATE + IF ePereche = 0 + USE IN crsTest + SELECT (lcSelAct) + this.pageframe1.paGE2.gridb1.SetFocus + RETURN + ENDIF + + + IF !EMPTY(toAct.Suma_val) + llval = .t. + pnSuma = toAct.Suma_val + lcFormular = [ocompensari_val] + ELSE + llval = .f. + pnSuma = toAct.Suma + lcFormular = [ocompensari] + ENDIF + pnIdValuta = toAct.Id_Valuta + pcDenumire = [Partener ] + pcContul + + pcCond = [ an = ?gnAn and luna = ?gnluna] + + IF llval + pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ?pnIdValuta ] + ELSE + pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ] + ENDIF + + pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 '] + IF ALLTRIM(pcACont) # [NULL] + pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond + ELSE + pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and acont is null and ] + pcCond + ENDIF + pcschema = [''] + pcorder = [''] + + PRIVATE podateintrod + STORE '' TO podateintrod + + gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'') + + lcFis = 'actcv' + ALLTRIM(pcContul) + + IF USED(lcFis) + USE IN &lcFis + ENDIF + + IF pnFelCont = 0 + lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +; + [precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +; + [.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ELSE + lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ; + [precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ; + [.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ; + [FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ] + ENDIF + &lcsel + + USE IN crs_actcv + SELECT (lcFis) + + OPLATA=CREATEOBJECT(lcFormular) + OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume + OPLATA.pcFis = lcFis + OPLATA.SUMA = pnSuma + OPLATA.pnFelCont = pnFelCont + OPLATA.SHOW(1) + + IF gnButon = 1 + SELECT (lcSelAct) + DELETE + SELECT (lcFis) + SCAN FOR ales + SCATTER NAME oper + SELECT (lcSelAct) + APPEND BLANK + GATHER NAME toAct + REPLACE &pnIdPereche WITH oper.id_fact, &pnPereche WITH oper.nract, suma WITH oper.sumaachi, suma_val WITH oper.sumaachi2 + SELECT (lcFis) + ENDSCAN + ELSE + SELECT (lcSelAct) + REPLACE &pnPereche WITH toact.&pnPereche + ENDIF + + IF USED(lcFis) + USE IN (lcFis) + ENDIF + SELECT (lcSelAct) + DO nrord WITH lcSelAct + this.pageframe1.paGE2.gridb1.SetFocus + ENDPROC + + PROCEDURE calcul_data + ENDPROC + + PROCEDURE calcul_suma + ENDPROC + + PROCEDURE Destroy + Use In (Select("crsReq")) + Use In (Select("crsItems")) + Use In (Select("crsJNetax")) + Use In (Select("crsJTax")) + Use In (Select("crsJtaxN")) + Use In (Select("crsJurnal")) + Use In (Select("crsNewId")) + Use In (Select("crsNote")) + Use In (Select("crsDrepturi_utilizatori")) + Use In (Select("crsUtilizatori")) + Use In (Select("crsCateg")) + Use In (Select("crsSucursale")) + + ENDPROC + + PROCEDURE do_caut_nomenclator + PARAMETERS tcFis, tcNume, tcId, tcTitlu + + pcselect = [select ] + tcNume + [,] + tcId + [ from ] + tcFis + pcfiltru = [1=2] + pcschema = [] + pcorder = tcNume + pccoloane = tcNume + llAllInList = .F. + lcFiltruOriginal = "inactiv=0" + *!* 24.03.2008 + If Upper(tcFis) = 'VNOM_SECTII' + lcFiltruOriginal = lcFiltruOriginal + gcCondSucursala + EndIf + *!* 24.03.2008 ^ + pcTitlu = tcTitlu + + locauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, ; + pcTitlu, tcFis, llAllInList, lcFiltruOriginal) && 11.07.2007 + + RETURN locauta + * tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,; + tl_AllInList,tcFiltruOriginal,tcPrimaColoana, tnPornire, tnTipReturn, tcIdColumn, ; + tlDesktop, tcGroup, tcGridDynamicBackColor, tcGridToolTip, tlModParam + ENDPROC + + PROCEDURE inainte_de_do_termin + Local lcSqlSeturi, lcSqlNote, lcSqlCereri, lnSucces, lnEroare, lcLista, lcActiune, lnSucces2 + *lcSqlNote = [] + *lcSqlSeturi = [] + lnEroare = 0 + lnSucces = 1 + *lcLista = [] + Private pnIdSet + pnIdSet = poRec.id_set + Store '' To lcSqlNote, lcSqlSeturi, lcLista, lcActiune + + + SQLSetprop(gnhandle,"Transactions",2) && tranzactie manuala + *!* insertul se face si pentru modificare , si pt update ; + *!* dar in cazul update-ului se sterg inainte inregistrarile + + lcSqlNote = [insert into xnote(id_set,nr_nota, xscd, xscc, xascd, xascc, ] + ; + [x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18,x19,x20, ] + ; + [x21,x22,x23,x24,x25,x26,x27,x28,x29,x30,x31,x32,x33,x34,x35, ] + ; + [suma, suma_val, ] + ; + [curs, id_valuta, proc_tva, id_jtva_coloana, id_fact, id_factd, id_factc, ] + ; + [id_fdoc, dataireg, dataact, datascad, serie_act, nract, pereched, perechec,] + ; + [nnir, id_partd, id_partc, explicatia, id_lucrare, id_responsabil, id_venchelt, id_sectie] + ; + [,scd_fara_part, scc_fara_part ] + ; + [) values(] + ; + [?poRec.id_set,?crsNote.nr_nota, ] + ; + [?ALLTRIM(crsNote.xscd), ?ALLTRIM(crsNote.xscc),?ALLTRIM(crsNote.xascd),?ALLTRIM(crsNote.xascc),] + ; + [?crsNote.x1,?crsNote.x2,?crsNote.x3,?crsNote.x4,?crsNote.x5,?crsNote.x6,?crsNote.x7,?crsNote.x8, ] + ; + [?crsNote.x9,?crsNote.x10,?crsNote.x11,?crsNote.x12,?crsNote.x13,?crsNote.x14,?crsNote.x15, ] + ; + [?crsNote.x16,?crsNote.x17,?crsNote.x18,?crsNote.x19,?crsNote.x20,?crsNote.x21,?crsNote.x22, ] + ; + [?crsNote.x23,?crsNote.x24,?crsNote.x25,?crsNote.x26,?crsNote.x27,?crsNote.x28,?crsNote.x29,] + ; + [?crsNote.x30,?crsNote.x31,?crsNote.x32,?crsNote.x33,?crsNote.x34,?crsNote.x35, ] + ; + [?crsNote.suma,?crsNote.suma_val, ] + ; + [?crsNote.curs, ?crsNote.id_valuta, ?crsNote.proc_tva, ?crsNote.id_jtva_coloana,?crsNote.id_fact, ] + ; + [?crsNote.id_factd,?crsNote.id_factc, ?crsNote.id_fdoc,?crsNote.dataireg,?crsNote.dataact, ] + ; + [?crsNote.datascad,?crsNote.serie_act,?crsNote.nract,?crsNote.pereched,?crsNote.perechec,] + ; + [?crsNote.nnir, ?crsNote.id_partd, ?crsNote.id_partc, ?crsNote.explicatia, ?crsNote.id_lucrare, ] + ; + [?crsNote.id_responsabil,?crsNote.id_venchelt,?crsNote.id_sectie,] + ; + [?crsNote.scd_fara_part, ?crsNote.scc_fara_part] + [)] + + lcSqlCereri = [insert into xrequest(id_set, nr_item, id_item, valoare_default) ] + ; + [values(?porec.id_set, ?crsReq.nr_item, ?crsReq.id_item, ] + ; + [?IIF(!EMPTY(NVL(ALLTRIM(crsReq.valoare_default),'')),crsReq.valoare_default,crsReq.valoare_default_text))] + * [values(?crsReq.id_set, ?crsReq.nr_item, ?crsReq.id_item, ?ALLTRIM(crsReq.valoare_default))] + + + If Empty(poRec.id_set) && insert + lcSqlSeturi = [insert into xsets(nume_set, lista_note, id_jnetax, id_jtax, tipjurnal, ] + ; + [id_jtaxn, valuta, id_categorie, procedura_lans, aleg_cont, id_sucursala) ]+ ; + [values(?ALLTRIM(porec.nume_set), ] + ; + [?ALLTRIM(porec.lista_note), ?porec.id_jnetax, ?porec.id_jtax,?ALLTRIM(poRec.tipjurnal),] + ; + [?porec.id_jtaxn,?porec.valuta,?porec.id_categorie, ] + ; + [?porec.aleg_cont, ?ALLTRIM(porec.procedura_lans), ?porec.id_sucursala) returning id_set into ?@pnIdSet] + + Else && update, pt note se sterge inregistrarea curenta si se adauga + If poRec.id_set >= 1000000 + lnSucces = goExecutor.oExecute([delete from xnote where id_set = ] + Alltrim(Str(poRec.id_set)) + [;]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48, [Atentie]) + Else + lnSucces = goExecutor.oExecute([delete from xrequest where id_set = ] + Alltrim(Str(poRec.id_set)) + [;]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48, [Atentie]) + Endif + + lcSqlSeturi = [update xsets set nume_set = ?ALLTRIM(porec.nume_set), ] + ; + [lista_note = ?ALLTRIM(porec.lista_note), id_jnetax = ?porec.id_jnetax, ] + ; + [id_jtax = ?porec.id_jtax, tipjurnal = ?ALLTRIM(poRec.tipjurnal),] + ; + [id_jtaxn = ?porec.id_jtaxn, valuta = ?porec.valuta, ] + ; + [id_categorie = ] + Iif(Empty(Nvl(poRec.id_categorie,0)), 'NULL', Alltrim(Transform(poRec.id_categorie))) + [, ] + ; + [procedura_lans = ?ALLTRIM(porec.procedura_lans), aleg_cont = ?porec.aleg_cont, ] + ; + [id_sucursala = ?porec.id_sucursala ] + ; + [where id_set = ?porec.id_set] + Endif + Endif + Endif + + *!* seturile standard au id_set < 1000000, seturile utilizatori au id_set >= 1000000, + *!* utilizatorii nu au dreptul de a modifica seturile standard + If lnSucces > 0 And !Empty(lcSqlSeturi) + lnSucces = goExecutor.oExecute(lcSqlSeturi) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48, [Atentie]) + Endif + Endif + + If lnSucces > 0 And poRec.id_set >= 1000000 + Select crsNote + Scan && pt fiecare inregistare din xnote + lnSucces = goExecutor.oExecute(lcSqlNote) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48, [Atentie]) + Exit + Endif + Endscan + + If lnSucces > 0 + Select crsReq + Scan && pt fiecare inregistare din xnote + lnSucces = goExecutor.oExecute(lcSqlCereri) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48, [Atentie]) + Exit + Endif + Endscan + Endif + + Endif && porec.id_set >= 1000000 + + If lnSucces > 0 + ** utilizatori cu drepturi pe set + lnSucces = goExecutor.oExecute([delete from xsets_utilizatori where id_set = ?porec.id_set]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48, [Atentie]) + Else + Select crsdrepturi_utilizatori && salvare + Scan + lnSucces = goExecutor.oExecute([insert into xsets_utilizatori(id_set, id_utilizator) ] + ; + [values(?porec.id_set, ?crsdrepturi_utilizatori.id_util)]) + If lnSucces < 0 + Exit + Messagebox(goExecutor.cEroare,0 + 48, [Atentie]) + Endif + Endscan + Endif + Endif + ** utilizatori cu drepturi pe set^^ + + + + + If lnSucces < 0 + lnSucces2 = goExecutor.oExecute("ROLLBACK") + Else + lnSucces2 = goExecutor.oExecute("COMMIT") + Endif + lnSucces2 = SQLSetprop(gnhandle,"Transactions",1) && tranzactie automata + + Return lnSucces > 0 + + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + + *LPARAMETERS tlVerificareAnalitic, tlNuVerificCont + + *!* 19.02.2008 + *!* pot sa apelez nota fara predefinire cu sau fara verificare analitice + *!* 11.03.2008 + *!* nota fara predefinire cu/fara verificare conturi completate + + *IF PCOUNT() > 0 + * this.lVerificareAnalitic = tlVerificareAnalitic + * this.lNuVerificCont = tlNuVerificCont + *ELSE + This.lVerificareAnalitic = .T. + This.lNuVerificCont = .F. + *ENDIF + *!* 19.02.2008 ^ + + + *!* Select crsNote + *!* Scan For scc_fara_part = 1 Or scd_fara_part = 1 + *!* Thisform.pageframe1.page3.pageframe1.page3.gridb1.column2.check1.Click + *!* Thisform.pageframe1.page3.pageframe1.page3.gridb1.column3.check1.Click + *!* Endscan + + *!* paginile sunt active pentru seturile noi si pentru modificarea seturilor utilizator + If EMPTY(NVL(porec.id_set,0)) OR porec.id_set >= 1000000 + Thisform.pageframe1.page1.Enabled = .T. + Thisform.pageframe1.page2.Enabled = .T. + Thisform.pageframe1.page3.Enabled = .T. + * Thisform.pageframe1.page4.Enabled = .T. + this.pageframe1.ActivePage = 1 + this.pageframe1.page1.clb_numeset.SetFocus() + ELSE + this.pageframe1.ActivePage = 4 && drepturi utilizatori + ENDIF + this.WindowState = 2 + this.pageframe1.page1.Cb_categorie._cbbase1.Value = poRec.categorie + + + DoDefault() + + ENDPROC + + PROCEDURE KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + IF nKeyCode = 13 AND nShiftAltCtrl = 2 + this.introducere_libera = !this.introducere_libera + * this.shape2.Visible = !this.shape2.Visible + ENDIF + + ENDPROC + + PROCEDURE Load + Local lnSucces, lcSql + lnSucces = 0 + + lnSucces = goExecutor.oExecute([select nvl(n.scc_fara_part,0) as scc_fara_part, ] + ; + [ nvl(n.scd_fara_part,0) as scd_fara_part, n.*, ] + ; + [ p1.denumire as partd, p2.denumire as partc, ] + ; + [ f.fel_document as fdoc, nv.nume_val, 0 as cu_tva, nl.nrord,np.denumire as nresp, ] + ; + [ nvc.explicatie as dst_chlt, ns.sectie, jc.denumire as explicatie_tva ] + ; + [ from xnote n ] + ; + [ left join nom_parteneri p1 on p1.id_part = n.id_partd ] + ; + [ left join nom_parteneri p2 on p2.id_part = n.id_partc ] + ; + [ left join nom_parteneri np on np.id_part = n.id_responsabil ] + ; + [ left join nom_fdoc f on f.id_fdoc = n.id_fdoc ] + ; + [ left join nom_valute nv on nv.id_valuta = n.id_valuta ] + ; + [ left join nom_lucrari nl on nl.id_lucrare = n.id_lucrare ] + ; + [ left join nom_venit_cheltuieli nvc on nvc.id_venchelt = n.id_venchelt ] + ; + [ left join nom_sectii ns on ns.id_sectie = n.id_sectie ] + ; + [ left join jtva_coloane jc on jc.id_jtva_coloana = n.id_jtva_coloana ] + ; + [ where id_set = ] + Alltrim(Str(porec.id_set)) + [ order by n.nr_nota],[crsNote]) + + && [ left join nom_parteneri np on np.id_part = n.id_partd or np.id_part = n.id_partc ] + If lnSucces < 0 + Messagebox(goExecutor.cEroare, 0 + 48, [Atentie]) + Endif + Update crsNote Set cu_tva = Iif(Empty(Nvl(proc_tva,[])),0,1) + + *!* Do nrord With "crsNote" + + lcSql = [select i.label_item, s.nume_set, r.valoare_default, r.nr_item, r.id_item, r.id_set, ] + ; + [ i.fis_lista, i.id_fisier, i.camp_lista, ] + ; + [ rpad(case ] + ; && inceput valoare_default + [ when i.fis_lista is not null then ] + ; + [ pack_util.GetText(i.fis_lista, ] + ; + [ i.id_fisier, ] + ; + [ to_number(r.valoare_default), ] + ; + [ replace(i.camp_lista, ',' , ' || '' '' || ')) ] + ; + [ ELSE r.valoare_default ] + ; + [ end,100,' ') as valoare_default_text ] + ; && valoare_default ^^ + [ from xrequest r ] + ; + [join xsets s on s.id_set = r.id_set ] + ; + [join xitems i on i.id_item = r.id_item ] + ; + [where r.id_set = ?porec.id_set order by r.nr_item ] + + lnSucces = goExecutor.oExecute(lcSql,[crsReq]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare, 0 + 48, [Atentie]) + Endif + Do nrord With "crsReq" + Go Top + + Select Max(nr_item) As nr From crsreq Into Cursor crsnritem + This.nreqnrmax = Nvl(crsnritem.nr,0) + Use In (Select("crsnritem")) + + goExecutor.oExecute([select label_item, id_item, id_fisier, fis_lista, camp_lista from xitems], [crsItems]) + lnSucces = goExecutor.oExecute([select '' as denumire, CAST(null as number(5)) ] + ; + [as id_jtva_coloana from jtva_coloane union ] + ; + [select denumire , id_jtva_coloana from jtva_coloane], [crsJNetax]) + If lnSucces > 0 + Select * From crsJNetax Into Cursor crsJTax + Select * From crsJNetax Into Cursor crsJTaxN + Else + Messagebox(goExecutor.cEroare, 0 + 48, [Atentie]) + Endif + + Select [Jurnal cumparari] As Name, 'JC' As TIPJURNAL From dual Union ; + SELECT [Jurnal vanzari] As Name, 'JV' As TIPJURNAL From dual Union ; + select '' As Name, '' As TIPJURNAL From dual ; + INTO Cursor crsJurnal + + Thisform.nid_set = porec.id_set + + + + Local cLista + cLista = [] + lcSql = [select s.id_set_utilizator, s.id_utilizator as id_util, u.utilizator ] + ; + [from xsets_utilizatori s ] + ; + [join syn_vutilizatori u on u.id_util = s.id_utilizator ] + ; + [where s.id_set = ?porec.id_set order by u.utilizator] + lnSucces = goExecutor.oExecute(lcSql,[crsDrepturi_utilizatori]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48,[Atentie]) + Return + Endif + Select crsDrepturi_utilizatori + Scan + cLista = cLista + Alltrim(Str(id_util)) + [,] + Endscan + Go Top + This.clistainitialautiliz = Left(cLista,Len(cLista) - 1) + + lcSql = [select u.utilizator, u.id_util ] + ; + [ from syn_vutilizatori u ] + ; + [ where u.INACTIV = 0 ] + ; + [ AND ID_UTIL not in ] + ; + [ (select s.id_utilizator as id_util ] + ; + [ from xsets_utilizatori s ] + ; + [ join syn_vutilizatori u on u.id_util = s.id_utilizator ] + ; + [ where s.id_set = ?porec.id_set) order by u.utilizator] && utilizatorii care nu au deja drepturi pe xsets + lnSucces = goExecutor.oExecute(lcSql,[crsUtilizatori]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48,[Atentie]) + Return + Endif + + lcSql = [select categorie, id_categorie from xSetsCategorii ] + ; + [union ] + ; + [select '' as categorie, CAST(null as number(5)) as id_categorie from xSetsCategorii ] + ; + [order by categorie] + + *!* lcSql = [select categorie, id_categorie from xSetsCategorii ] + ; + *!* [order by categorie] + lnSucces = goExecutor.oExecute(lcSql,[crsCateg]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48,[Atentie]) + Return + Endif + + SELECT crscateg + LOCATE FOR id_categorie = porec.id_categorie + + + lcSql = [select sucursala, id_sucursala from vnom_sucursale where sters = 0 and inactiv = 0 order by 1] + lnSucces = goExecutor.oExecute(lcSql,[crsSucursale]) + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0 + 48,[Atentie]) + Return + Endif + Select crsNote + Go Top + + ENDPROC + + PROCEDURE verificare + *!* LOCAL COMPL,TE + *!* TE='' + *!* COMPL=.T. + + *!* SELECT crsNote + *!* ii=1 + *!* SCAN + *!* lcScd = scd + *!* lcScc = scc + *!* IF EMPTY(suma) + *!* COMPL=.F. + *!* TE=TE+','+'suma' + *!* ENDIF + *!* *!* la clasele 8 si 9 se poate sa nu fie contul corespondent completat + *!* IF EMPTY(scd) AND !INLIST(LEFT(NVL(scc,''),1),'8','9') + *!* COMPL=.F. + *!* TE=TE+','+'contul debitor' + *!* ENDIF + *!* IF EMPTY(scc) AND !INLIST(LEFT(NVL(scd,''),1),'8','9') + *!* COMPL=.F. + *!* TE=TE+','+'contul creditor' + *!* ENDIF + *!* IF EMPTY(nract) + *!* COMPL=.F. + *!* TE=TE+','+'nr.document' + *!* ENDIF + *!* IF (!EMPTY(suma_val) OR !EMPTY(CURS)) AND EMPTY(id_valuta) + *!* COMPL=.F. + *!* TE=TE+','+'nume valuta' + *!* ENDIF + *!* IF cu_tva = 1 AND EMPTY(NVL(id_jtva_coloana,0)) + *!* COMPL = .F. + *!* TE=TE+','+'explicatie TVA' + *!* ENDIF + *!* IF !COMPL + *!* *!* DO mesaj WITH 'La nota nr. '+ALLTRIM(STR(ii))+' nu ati completat campurile:',LEFT(te,60)+'...' + *!* amessagebox("La nota nr. "+ALLTRIM(STR(ii))+" nu ati completat campurile:"+SUBSTR(TE,2,60)+"...",0+48,"Atentie") + *!* RETURN COMPL + *!* ENDIF + *!* ii=ii+1 + *!* ENDSCAN + + + *!* RETURN COMPL + *!* modificare 21.02.2008 + lVerificAnalitic = .T. + lCompletezPartener = .F. + llRet = verificare_note_contabile('crsNote',lVerificAnalitic,lCompletezPartener) && in oOperatii_comune + Return llRet + *!* modificare 21.02.2008 ^ + + + ENDPROC + + PROCEDURE verific_analitic + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.COLUMN1.Combo1.Valid + Replace id_item With crsItems.id_item , camp_lista With crsItems.camp_lista ; + valoare_default_text With crsItems.camp_lista In crsReq && + + Select crsItems + Locate For id_item = crsReq.id_item + + This.Parent.Parent.Refresh() + + + + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column3.Text1.LostFocus + *!* SELECT crsReq + *!* replace valoare_default_text With lcValoareText + + thisform.pageframe1.page2.gridb1.column3.ReadOnly = .t. + + ENDPROC + + PROCEDURE Pageframe1.Page2.Gridb1.Column3.Text1.When + Local lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcNumeProc, lcFiltruOriginal, ; + loCauta, lcColoanaText, lcValoareText, lcColoanaId, lcValoareId, liat, lcValoareIdOld, lcValoareTextOld + + *!* If Empty(Nvl(crsReq.fis_lista,[])) + *!* Return + *!* Endif + + *!* lcSelect = [select ] + Alltrim(crsReq.camp_lista) + [,] + Alltrim(crsReq.id_fisier) + ; + *!* [ from ] + Alltrim(crsReq.fis_lista) && + *!* lcFiltru = [1=2] + *!* lcSchema = [] + *!* lcOrder = Alltrim(crsReq.camp_lista) + *!* lcColoane = Alltrim(crsReq.camp_lista) + [,] + Alltrim(crsReq.id_fisier) + *!* lcTitlu = Alltrim(crsReq.label_item) + *!* lcFiltruOriginal = [inactiv = 0] + + *!* lcNumeProc = "" + *!* locauta = cauta_alfa(lcSelect,lcFiltru,lcSchema,lcOrder,lcColoane,lcTitlu, ; + *!* lcTitlu,lcNumeProc,.F.,lcFiltruOriginal) + *!* + *!* lcColoanaText = [locauta.] + Alltrim(crsReq.camp_lista) && + *!* lcValoareText = Evaluate(lcColoanaText) + *!* lcColoanaId = [locauta.] + Alltrim(crsReq.id_fisier) + *!* lcValoareId = ALLTRIM(STR(Evaluate(lcColoanaId))) + + *!* SELECT crsReq + *!* Replace valoare_default With lcvaloareid, valoare_default_text WITH lcValoareText + *!* this.Parent.Refresh() + + Select crsItems + Locate For crsItems.id_item = crsReq.id_item + If Empty(Nvl(crsItems.fis_lista,[])) + Thisform.pageframe1.page2.gridb1.column3.ReadOnly = .F. + Return + Endif + + lcValoareTextOld = Alltrim(crsReq.valoare_default_text) + lcValoareIdOld = Alltrim(crsReq.valoare_default) + + lcSelect = [select ] + Alltrim(crsItems.camp_lista) + [,] + Alltrim(crsItems.id_fisier) + ; + [ from ] + Alltrim(crsItems.fis_lista) + lcFiltru = [1=2] + lcSchema = [] + lcOrder = Alltrim(crsItems.camp_lista) + lcColoane = Alltrim(crsItems.camp_lista) + [,] + Alltrim(crsItems.id_fisier) + lcTitlu = Alltrim(crsItems.label_item) + lcFiltruOriginal = [inactiv = 0] + lcNumeProc = [] + loCauta = cauta_alfa(lcSelect,lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, ; + lcTitlu, lcNumeProc, .F., lcFiltruOriginal) + + + *lcColoanaText = [loCauta.] + Alltrim(crsItems.camp_lista) + *lcValoareText = Evaluate(lcColoanaText) + + *!* cand camp_lista retine doua valori(ex:nume,cod_fiscal) se pastreaza doar prima valoare + liat = Rat(',',Alltrim(crsItems.camp_lista)) + *lccoloanatext = [loCauta.] + LEFT(ALLTRIM(crsitems.camp_lista),liat - 1) + lcColoanaText = [loCauta.] + Left(Alltrim(crsItems.camp_lista), ; + Iif(liat!=0,liat - 1,Len(Alltrim(crsItems.camp_lista)))) + lcValoareText = Evaluate(lcColoanaText) + + lcColoanaId = [loCauta.] + Alltrim(crsItems.id_fisier) + lcValoareId = Alltrim(Str(Evaluate(lcColoanaId))) + + *!* daca locauta nu intoarce nimic, se memoreaza valorile vechi + If pniesire = 2 + lcValoareText = lcValoareTextOld + lcValoareId = lcValoareIdOld + Endif + *!* ^^ + + Select crsReq + Replace valoare_default With lcValoareId, valoare_default_text With lcValoareText + This.Parent.Refresh() + + ENDPROC + + PROCEDURE Pageframe1.Page2.Nou1.Command1.Click + Select crsReq + Scatter Name oReq + Append Blank + Gather Name oReq + Thisform.nreqnrmax = Thisform.nreqnrmax + 1 + Replace nr_item With Thisform.nreqnrmax, nume_set With crsReq.nume_set , label_item With '' + Do nrord With "crsReq" + This.Parent.Parent.GRIDB1.Refresh + + + + ENDPROC + + PROCEDURE Pageframe1.Page2.Sterge1.Command1.Click + SELECT crsReq + IF crsreq.nr_item = thisform.nreqnrmax + thisform.nreqnrmax = thisform.nreqnrmax - 1 + endif + + DELETE + DO nrord WITH 'crsReq' + THIS.PARENT.parent.GRIDB1.REFRESH + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Activate + this.gridb1.Refresh + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1.InteractiveChange + *tcFis, tcNume, tcId, tcTitlu + locauta = thisform.do_caut_nomenclator('Vnom_valute','nume_val','id_valuta','Numele Valutei') + SELECT crsNote + REPLACE nume_val WITH locauta.nume_val, id_valuta WITH locauta.id_valuta + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Combo1.InteractiveChange + Local lnRec, lnnrcrt + + Select crsNote + *!* lnRec = Recno() + *!* lnnrcrt = nrcrt() + + Replace proc_tva With (jtva_coloane.cota_tva+100)/100, ; + id_jtva_coloana With jtva_coloane.id_jtva_coloana, ; + explicatie_tva with jtva_coloane.denumire IN crsNote + + Thisform.pageframe1.page3.pageframe1.page1.gridb1.Refresh() + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12._CHECKBOX1.Click + This.Parent.Parent.Refresh() + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Text1.KeyPress + Lparameters nKeyCode, nShiftAltCtrl + If nKeyCode=13 Or nKeyCode=9 + Thisform.pageframe1.ActivePage=2 + Thisform.pageframe1.page2.gridb1.SetFocus + Else + DoDefault() + Endif + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1.InteractiveChange + Replace id_partd With 0, partd With '' + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1.LostFocus + lcCont = crsNote.xscd + If !Empty(lcCont) + llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg + If !llReturn + Replace crsNote.xscd With '' + Endif + Endif + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1.Click + this.LostFocus(.t.) + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1.LostFocus + Parameters PlClick + *!* 11.03.2008 + *!* nu verific analiticul + + If !thisform.lVerificareAnalitic + Return + EndIf + *!* 11.03.2008 ^ + Select crsNote + lcCont = xscd + lcAcont = xascd + If !Empty(lcCont) + llReturn = verific_analitic(PlClick, lcCont, lcAcont,'xascd','crsNote') && in oOperatii_comune.prg + Endif + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1.InteractiveChange + REPLACE id_partc WITH 0, partc WITH '' + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1.LostFocus + lcCont = crsNote.xscc + If !Empty(lcCont) + llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg + If !llReturn + Replace crsNote.xscc With '' + Endif + Endif + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1.Click + this.LostFocus(.t.) + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1.LostFocus + Parameters PlClick + *!* 11.03.2008 + *!* nu verific analiticul + If !thisform.lVerificareAnalitic + Return + EndIf + *!* 11.03.2008 ^ + Select crsNote + lcCont = xscc + lcAcont = xascc + If !Empty(lcCont) + llReturn = verific_analitic(PlClick, lcCont, lcAcont,'xascc','crsNote') && in oOperatii_comune.prg + Endif + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Text1.LostFocus + *!* PlClick = .f. + + *!* SELECT crsNote + *!* lcContD = scd + *!* lcAcontD = ascd + *!* lcContC = scc + *!* lcAcontC = ascc + + *!* IF EMPTY(ascc) + *!* ll_l=THISFORM.verific_analitic(plClick, lcContC, lcAcontC,'ascc') + *!* *!* IF ll_l + *!* *!* REPLACE crsNote.ASCC WITH '' + *!* *!* RETURN 0 + *!* *!* ENDIF + *!* ENDIF + + *!* IF EMPTY(ascd) + *!* ll_l=THISFORM.verific_analitic(plClick, lcContD, lcAcontD,'ascd') + *!* *!* IF ll_l + *!* *!* REPLACE crsNote.ASCD WITH '' + *!* *!* RETURN 0 + *!* *!* ENDIF + *!* ENDIF + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Text1.LostFocus + IF !thisform.introducere_libera + IF !EMPTY(suma_val) OR !EMPTY(curs) + REPLACE suma WITH ROUND(suma_val * curs,gnPc) + ENDIF + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Text1.LostFocus + IF !thisform.introducere_libera + IF !EMPTY(curs) OR !EMPTY(suma_val) + REPLACE suma WITH ROUND(curs*suma_val, gnPc) + ENDIF + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Nou1.Command1.Click + Select crsNote && append crsNote + Scatter Name oact + Append Blank + GATHER NAME oact + + + This.Parent.Parent.GRIDB1.Refresh + *thisform.pageframe1.page4.pageframe1.Refresh() + + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Sterge1.Command1.Click + Select crsNote + Delete + *This.Parent.Parent.GRIDB1.Refresh + Go Top + Thisform.pageframe1.page3.pageframe1.page1.gridb1.Refresh() + Thisform.pageframe1.page3.pageframe1.page2.gridb1.Refresh() + Thisform.pageframe1.page3.pageframe1.page3.gridb1.Refresh() + + + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Activate + this.gridb1.Refresh + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_fdoc','fel_document','id_fdoc','Felul Documentului') + SELECT crsNote + REPLACE fdoc WITH locauta.fel_document, id_fdoc WITH locauta.id_fdoc + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Text1.InteractiveChange + IF !thisform.introducere_libera + lcSel = this.Parent.Parent.RecordSource + SELECT (lcSel) + SCATTER NAME odoc + && 0 = ACTIV + && 1 = PASIV + *thisform.aleg_document_pereche(1,odoc) + DO aleg_document_pereche WITH 1,odoc,lcSel IN oOperatii_comune.prg + this.Parent.Parent.SetFocus + RELEASE odoc + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Text1.KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + IF nKeyCode=13 OR nKeyCode=9 + thisform.pageframe1.ActivePage=3 + thisform.pageframe1.page3.gridb1.SetFocus + ELSE + DODEFAULT() + ENDIF + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Text1.InteractiveChange + IF !thisform.introducere_libera + lcSel = this.Parent.Parent.RecordSource + SELECT (lcSel) + SCATTER NAME odoc + && 0 = ACTIV + && 1 = PASIV + *thisform.aleg_document_pereche(0,odoc) + DO aleg_document_pereche WITH 0,odoc,lcSel IN oOperatii_comune.prg + this.Parent.Parent.SetFocus + RELEASE odoc + ENDIF + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Activate + this.gridb1.Refresh + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_sectii','sectie','id_sectie','Sectia') + SELECT crsNote + REPLACE id_sectie WITH locauta.id_sectie, sectie WITH locauta.sectie + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1.InteractiveChange + If scd_fara_part = 1 + return + ENDIF + + Local lcCont, lnIdPartd, lnRezultat, lnSucces, lcSql + Local loCauta + Select crsNote + Private pcCont + pcCont = Alltrim(Nvl(xscd,'')) + lnIdPartd = id_partd + If Empty(pcCont) + Return + ENDIF + + Local lnrezultat, lnsucces + lnrezultat = 0 + lnsucces = 0 + lcSql = "select count(*) from config_cont_ireg where cont = ?pcCont" + lnsucces = goExecutor.oSelect2Value(lcSql, @lnrezultat) + + If lnsucces = 1 + If lnrezultat > 0 + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + pcCont + ; + [??lAdaugCorespondente=>1??cCont=>] + pcCont)) + Select crsNote + Replace id_partd With loCauta.id_part, partd With loCauta.nume + If lnIdPartd <> loCauta.id_part + Select crsNote + Replace pereched With 0, id_factd With 0 + Endif + Else + AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare") + Endif + Else + AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16 ,"Eroare") + Endif + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1.InteractiveChange + If scc_fara_part = 1 + Return + Endif + + Local lcCont, lnIdPartc, lnRezultat, lnSucces, lcSql, lnIdPartc + Local loCauta + Select crsNote + Private pcCont + pcCont = Alltrim(Nvl(xscc,'')) + lnIdPartc = id_partc + + If Empty(pcCont) + Return + Endif + Local lnRezultat,lnSucces + lnRezultat=0 + lnSucces=0 + lcSql="select count(*) from config_cont_ireg where cont = ?pcCont" + lnSucces=goExecutor.oSelect2Value(lcSql,@lnRezultat) + + If lnSucces = 1 + If lnRezultat > 0 + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + pcCont + ; + [??lAdaugCorespondente=>1??cCont=>] + pcCont)) + Select crsNote + Replace id_partc With loCauta.id_part, partc With loCauta.nume + If lnIdPartc <> loCauta.id_part + Select crsNote + Replace perechec With 0, id_factc With 0 + Endif + Else + AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare") + Endif + Else + AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16 ,"Eroare") + Endif + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Check1.Click + If scc_fara_part = 1 + replace partc WITH '', id_partc WITH 0 + this.Parent.Parent.column18.Refresh() + endif + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Check1.Click + If scd_fara_part = 1 + replace partd WITH '', id_partd WITH 0 + this.Parent.Parent.column17.Refresh() + endif + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_lucrari','nrord','id_lucrare','Lucrarea / Contractul') + SELECT crsNote + REPLACE nrord WITH locauta.nrord, id_lucrare WITH locauta.id_lucrare + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1.InteractiveChange + *!* locauta = thisform.do_caut_nomenclator('Vnom_responsabili','nume','id_responsabil','Nume responsabil') + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Responsabili??cTipuriParteneri=>] + ; + ALLTRIM(Str(gnIdTipResponsabili)) + [??lAdaugCorespondente=>1])) + Select crsNote + Replace nresp With loCauta.denumire, id_responsabil With loCauta.id_part + Release loCauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1.Click + this.InteractiveChange + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1.InteractiveChange + locauta = thisform.do_caut_nomenclator('Vnom_venchel','explicatie','id_venchelt','Cheltuiala / Venit') + SELECT crsNote + REPLACE dst_chlt WITH locauta.explicatie, id_venchelt WITH locauta.id_venchelt + RELEASE locauta + + ENDPROC + + PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Init + *!* this.column1.header1.BackColor=this.column1.dynamicBackColor + + + *!* FOR i=1 TO this.ColumnCount + *!* t='this.column'+ALLTRIM(STR(i))+'.header1.backcolor=this.column'+ALLTRIM(STR(i))+'.backcolor' + *!* &t + *!* ENDFOR + *!* this.Refresh + ENDPROC + + PROCEDURE Pageframe1.Page4.But_precedent1.Click + Local lcOnError, llErr, lnIdUtil, lnNrRec + + lnIdUtil = crsDrepturi_utilizatori.id_util + llErr = .F. + lcOnError = [ErrorHandler(Error(),Program(),Lineno())] + On Error llErr = .T. + + Select Count(*) As nr From crsDrepturi_utilizatori Into Cursor crsUtilizRamasi + If nr = 0 + Return + Endif + Use In (Select("crsUtilizRamasi")) + + lnNrRec = Recno() + Begin Transaction + Insert Into crsUtilizatori(id_util, utilizator) ; + values(crsDrepturi_utilizatori.id_util,crsDrepturi_utilizatori.utilizator) + Delete From crsDrepturi_utilizatori Where id_util = lnIdUtil + If llErr + Rollback + &lcOnError + llErr = .F. + ELSE + End Transaction + Endif + + On Error &lcOnError + + Select crsUtilizatori + Locate For id_util = lnIdUtil + Select crsDrepturi_utilizatori + Go Top + *Go Iif(lnNrRec <> 1, lnNrRec - 1, 1) + + *!* Thisform.pageframe1.page5.gridb1.Refresh() + *!* Thisform.pageframe1.page5.gridb2.Refresh() + Thisform.pageframe1.page4.gridb1.Refresh() + Thisform.pageframe1.page4.gridb2.Refresh() + + ENDPROC + + PROCEDURE Pageframe1.Page4.But_urmator1.Click + Local lcOnError, llErr, lnIdUtil, lnNrRec + + lnIdUtil = crsutilizatori.id_util + llErr = .F. + lcOnError = On("error") + *lcOnError = [ErrorHandler(Error(),Program(),Lineno())] + On Error llErr = .T. + + Select Count(*) As nr From crsutilizatori Into Cursor crsUtilizRamasi + If nr = 0 + Return + Endif + Use In (Select("crsUtilizRamasi")) + + lnNrRec = Recno() + Begin Transaction + Insert Into crsDrepturi_utilizatori(id_util, utilizator) ; + VALUES(crsutilizatori.id_util,crsutilizatori.utilizator) + Delete From crsutilizatori Where id_util = lnIdUtil + If llErr + Rollback + &lcOnError + llErr = .F. + Else + End Transaction + Endif + + On Error &lcOnError + + Select crsDrepturi_utilizatori + Locate For id_util = lnIdUtil + Select crsutilizatori + Go Top + *!* lnGoInreg = Iif(lnNrRec <> 1, lnNrRec - 1, 1) + *!* Go lnGoInreg + + + Thisform.pageframe1.page4.gridb1.Refresh() + Thisform.pageframe1.page4.gridb2.Refresh() + + ENDPROC + + PROCEDURE Pageframe1.Page4.Gridb1.COLUMN1.Text1.DblClick + this.Parent.Parent.Parent.but_urmator1.Click() + ENDPROC + + PROCEDURE Pageframe1.Page4.Gridb2.COLUMN1.Text1.DblClick + this.Parent.Parent.Parent.but_precedent1.Click() + ENDPROC + +ENDDEFINE diff --git a/Clase/ofundal_sal.vc2 b/Clase/ofundal_sal.vc2 new file mode 100644 index 0000000..af38200 --- /dev/null +++ b/Clase/ofundal_sal.vc2 @@ -0,0 +1,4931 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_sal.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS capplication AS wzapplication OF "appwiz.vcx" && Application class. + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + clastcaption = Microsoft Visual FoxPro + clasticon = + Name = "capplication" + nformcount = 0 + * + + PROCEDURE doform + LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow + LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft + LOCAL lcFormName,lnFormCount + + _screen.visible=.t. + + lcFileName=UPPER(ALLTRIM(tcFileName)) + IF EMPTY(lcFileName) + RETURN .F. + ENDIF + lcClass=IIF(TYPE("tcClass")=="C",LOWER(ALLTRIM(tcClass)),"") + lcFileName=LOWER(FULLPATH(lcFileName)) + IF NOT "."$lcFileName + lcFileName=lcFileName+IIF(EMPTY(lcClass),".scx",".vcx") + ENDIF + IF NOT FILE(lcFileName) + this.FileNotFoundMsgBox(lcFileName) + RETURN .F. + ENDIF + lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass) + IF tlNoMultipleInstances + FOR lnCount = 1 TO this.nFormCount + IF this.aFormNames[lnCount]==lcFormName AND ; + TYPE("this.aForms[lnCount]")=="O" AND ; + NOT ISNULL(this.aForms[lnCount]) + this.aForms[lnCount].Show + RETURN .F. + ENDIF + ENDFOR + ENDIF + this.RefreshFormsCollection + this.nFormCount=this.nFormCount+1 + DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount] + this.aFormNames[this.nFormCount]=lcFormName + IF NOT EMPTY(lcClass) + SET CLASSLIB TO (lcFileName) ADDITIVE + this.aForms[this.nFormCount]=CREATEOBJECT(lcClass) + IF NOT tlNoShow AND TYPE("this.aForms[this.nFormCount]")=="O" AND ; + NOT ISNULL(this.aForms[this.nFormCount]) + this.aForms[this.nFormCount].Show + ENDIF + ELSE + DO FORM (lcFileName) NAME this.aForms[this.nFormCount] LINKED NOSHOW + ENDIF + lnFormCount=this.nFormCount + this.RefreshFormsCollection + IF this.lCascadeForms AND this.nFormCount>=lnFormCount + oForm=this.aForms[this.nFormCount] + lnTop=oForm.Top + lnLeft=oForm.Left + lcName=oForm.Name + IF WEXIST(lcName) AND oForm.WindowState#2 + FOR lnCount = 1 TO (this.nFormCount-1) + oForm2=this.aForms[lnCount] + IF TYPE("oForm2")#"O" OR ISNULL(oForm2) + LOOP + ENDIF + IF lcName==oForm2.Name AND WLROW(lcName)=WLROW(oForm2.Name) AND ; + WLCOL(lcName)=WLCOL(oForm2.Name) + lnTop=lnTop+this.nPixelOffset + lnLeft=lnLeft+this.nPixelOffset + ENDIF + ENDFOR + IF oForm.Top#lnTop + oForm.Top=lnTop + ENDIF + IF oForm.Left#lnLeft + oForm.Left=lnLeft + ENDIF + ENDIF + ENDIF + + *!* modificat 14.12.2004 + *!* liana + IF !(tlNoShow OR ('LOGIN'$UPPER(lcFileName) and glParametri)) + this.aForms[this.nFormCount].Show + ENDIF + + ENDPROC + + PROCEDURE onshutdown + If glQuit + Do INCHIDPROG + Quit + Endif + + + OA=Createobject('frm_mesaj','ROA Definirea companiei','intreb.ico','INTREBARE','Doriþi sã ieºiþi din program?') + OA.lbl_mesaj1.FontBold=.T. + OA.lbl_mesaj1.FontSize=12 + OA.lbl_mesaj1.Top=55 + OA.Show(1) + If buton=1 + ON SHUTDOWN + ON ERROR + CLEAR EVENTS + IF _VFP.StartMode <> 0 + QUIT + ENDIF + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_calc AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_calc" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcid_sucursala = Nvl(ALLTRIM(STR(toRec.id_sucursala)),"") + lcCalc = Nvl(STRTRAN(Alltrim(Upper(toRec.denumire)),['],['']),"") + lcDescriere = Nvl(STRTRAN(Alltrim(Upper(toRec.descriere)),['],['']),"") + lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"0") + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + gcS + [.calculatoare (denumire,id_sucursala,inactiv,descriere) VALUES ('] + lcCalc + [',] + lcid_sucursala +[,]+lcInactiv+ [,']+lcDescriere+[')] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + gcS + [.calculatoare SET denumire = '] + lcCalc+[', id_sucursala = ]+lcId_sucursala + [,inactiv = ] + lcinactiv + [,descriere = ']+lcDescriere+[' where id_calc = ] + lcId + + Case lcActiune = "DELETE" + + lcSql = [update calculatoare set sters=1 where id_calc=]+lcid + *!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_calcsetari AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_calcsetari" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcid_calc = Nvl(ALLTRIM(STR(toRec.id_calc)),"") + lcExplicatia = Nvl(STRTRAN(Alltrim(Upper(toRec.explicatia)),['],['']),"") + lcValoare = Nvl(STRTRAN(Alltrim(Upper(toRec.valoare)),['],['']),"") + lcSetare = Nvl(ALLTRIM(toRec.setare),"") + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + gcS + [.calculatoare_setari (explicatia,id_calc,valoare, setare) VALUES ('] +; + lcExplicatia + [',] + lcid_calc + [,'] + lcValoare+ [','] + lcSetare + [')] + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + gcS + [.calculatoare_setari SET explicatia = '] + lcExplicatia+[', id_calc = ]+lcId_calc +; + [,setare = '] + lcSetare + [',valoare = ']+lcValoare+[' where id_calcsetare = ] + lcId + + Case lcActiune = "DELETE" + + lcSql = [update calculatoare_setari set sters=1 where id_calcsetare=]+lcid + *!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + *!* STRTOFILE(LCSQL,'C:\DELETE.SQL') + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_gruputil AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_gruputil" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcid_tata = Nvl(ALLTRIM(STR(toRec.id_tata)),"NULL") + IF EMPTY(toRec.id_tata) OR ISNULL(toRec.id_tata) + lcid_tata = "NULL" + ELSE + lcid_tata = Nvl(ALLTRIM(STR(toRec.id_tata)),"NULL") + ENDIF + + lcGrup = Nvl(STRTRAN(Alltrim(Upper(toRec.denumire_grup)),['],['']),"") + lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"0") + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + gcS + [.grupuri_utilizatori (denumire_grup,id_tata,inactiv) VALUES ('] + lcGrup + [',] + lcid_tata +[,]+lcInactiv+ [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + gcS + [.grupuri_utilizatori SET denumire_grup = '] + lcGrup+[', id_tata = ]+lcId_tata + [,inactiv = ] + lcinactiv + [ where id_grup = ] + lcId + + Case lcActiune = "DELETE" + + lcSql = [update grupuri_utilizatori set sters=1 where id_grup=]+lcid + *!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + *!* STRTOFILE(LCSQL,'C:\DELETE.SQL') + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_utilizatori AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_utilizatori" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcid_util = IIF(EMPTY(toRec.id_util),'null',Nvl(ALLTRIM(STR(toRec.id_util)),"null")) + lcid_partener = IIF(EMPTY(toRec.id_partener),'null',Nvl(ALLTRIM(STR(toRec.id_partener)),"null")) + lcid_contact = IIF(EMPTY(toRec.id_contact),'null',Nvl(ALLTRIM(STR(toRec.id_contact)),"null")) + lcid_grup = IIF(EMPTY(toRec.id_grup),'null',Nvl(ALLTRIM(STR(toRec.id_grup)),"null")) + lcid_sucursala = IIF(EMPTY(toRec.id_sucursala) and EMPTY(toRec.sucursala),'null',Nvl(ALLTRIM(STR(toRec.id_sucursala)),"null")) + lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"0") + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + gcS + [.Utilizatori_rol_intern (id_util,id_partener,id_contact,id_grup,id_sucursala,inactiv) VALUES (] +; + lcid_util + [,] + lcid_partener + [,]+lcid_contact +[,] +lcid_grup +[,]+ lcid_sucursala +[,]+lcInactiv+ [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + gcS + [.Utilizatori_rol_intern SET id_util = ] + lcid_util +[, id_partener= ]+lcid_partener +; + [,id_contact= ] + lcid_contact +[,id_grup=]+lcid_grup +[,id_sucursala = ]+lcid_sucursala +[,Inactiv=]+lcInactiv+ [ where id_util = ] + lcId + + Case lcActiune = "DELETE" + + lcSql = [update Utilizatori_rol_intern set sters=1 where id_util=]+lcid + *!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + *!* STRTOFILE(LCSQL,'C:\DELETE.SQL') + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_calc AS frm_termin OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="lb_nom_calc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 393 + Name = "frm_calc" + Width = 404 + _SHAPE1.Height = 29 + _SHAPE1.Left = 0 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 408 + _SHAPE2.Height = 29 + _SHAPE2.Left = 300 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 104 + LB_TITLU_ALB_B121.Caption = "Calculatoare" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + BUT_TERMIN1.Left = 372 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 310, ; + Left = 11, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "crsCalc", ; + ScrollBars = 2, ; + Top = 77, ; + Width = 384, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "denumire", ; + Column1.Name = "Column1", ; + Column1.Width = 111, ; + Column2.ColumnOrder = 1, ; + Column2.ControlSource = "sucursala", ; + Column2.Name = "Column2", ; + Column2.Width = 132, ; + Column3.ControlSource = "descriere", ; + Column3.Name = "Column3", ; + Column3.Width = 105 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Calculator", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 253, ; + Name = "But_excel1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 313, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 282, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 343, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ; + Left = 312, ; + Name = "CMD_CAUTA1", ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'lb_nom_calc' AS clb_tx_simplu WITH ; + Left = 12, ; + Name = "lb_nom_calc", ; + Top = 36, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Calculator", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=pocalc.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform._grdrow1) + pocalc.ca_baza1.cfiltru=lcFiltru + pocalc.ca_baza1.afisare() + restore_grid_tag(thisform._grdrow1) + IF RECCOUNT('crsCalc')>0 + thisform._grdrow1.SetFocus() + ELSE + thisform.Lb_nom_calc.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + DO nom_calculatoare_nou IN onomenclatoare.prg + IF gnButon = 1 + THISFORM.actualizeaza_grid1() + ENDI + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_calc.text_simplu1.value)),['],['']) + + If !Empty(lcNume) + lcFiltru=[denumire like ']+lcNume+[%'] + ELSE + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_excel + lcTabel = This._grdrow1.RecordSource + If Reccount(lcTabel)>0 + Do export_excel_grid With This._grdrow1, "sucursala,denumire" + Else + amessagebox("Nu exista inregistrari pentru export in Excel!",48,"Atentie") + Endif + + ENDPROC + + PROCEDURE do_modifica + Local loRec, lnIdCalculator + + If Reccount('crsCalc')>0 + Select crsCalc + lnIdCalculator = id_calc + Scatter Name loRec + + loRec = nom_calculatoare_modifica(lnIdCalculator) + + If !Isnull(loRec) + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid1() + Select crsCalc + Locate For id_calc = loRec.id_calc + If !Found() + Go Top + Endif + Thisform._grdrow1.SetFocus() + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + Endif + Else + amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_sterge + If Reccount('crsCalc')>0 + Select crsCalc + Scatter Name lorec + Do STERGE_INREGISTRARE With "calc",lorec.id_calc + + This.actualizeaza_grid1() + Else + amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie") + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_calc_nou AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CUS_ODATA_CALC1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_sucursala" UniqueID="" Timestamp="" /> + + * + *m: do_alege_sucursala + *p: nid + *p: orec + * + + * + DoCreate = .T. + Height = 193 + Name = "frm_calc_nou" + nid = + orec = + Width = 332 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Left = 258 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + LB_TITLU_ALB_B121.Caption = "Calculator" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 7 + BUT_TERMIN1.Left = 300 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + BUT_RENUNT1.Left = 271 + BUT_RENUNT1.Name = "BUT_RENUNT1" + BUT_RENUNT1.TabIndex = 5 + BUT_RENUNT1.Top = 1 + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 24, ; + Name = "_checkbox1", ; + TabIndex = 6, ; + TabStop = .F., ; + Top = 160 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cb_sucursala' AS cb_tx_simplu WITH ; + Left = 17, ; + Name = "Cb_sucursala", ; + TabIndex = 3, ; + Top = 108, ; + _cbbase1.ControlSource = "porec.sucursala", ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "vnom_sucursale.sucursala", ; + _cbbase1.RowSourceType = 2, ; + _lbbase1.Caption = "Sucursala", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 17, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 52, ; + Width = 290, ; + TEXT_SIMPLU1.ControlSource = "porec.denumire", ; + TEXT_SIMPLU1.Format = "!K", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Calculator", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 17, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 80, ; + Width = 290, ; + Text_simplu1.ControlSource = "porec.descriere", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Descriere", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'CUS_ODATA_CALC1' AS cus_odata_calc WITH ; + Left = 288, ; + Name = "CUS_ODATA_CALC1", ; + Top = 156 + *< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" /> + + PROCEDURE do_alege_sucursala + ENDPROC + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(THIS.ACTIVECONTROL.BASECLASS ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=THIS.ACTIVECONTROL.CONTROLSOURCE + &lcval=THISFORM.ACTIVECONTROL.VALUE + ENDIF + + + DO CASE + CASE EMPTY(porec.denumire) + aMESSAGEBOX('Nu ati completat denumirea calculatorului!',0+48,"Atentie") + THIS.clb_tx_simplu1.SETFOCUS() + PLRETURN=.F. + CASE EMPTY(porec.sucursala) + aMESSAGEBOX('Nu ati completat sucursala!',0+48,"Atentie") + THIS.cb_sucursala._cbbase1.SETFOCUS() + PLRETURN=.F. + + + OTHERWISE + PLRETURN=THIS.cus_odata_calc1.salvare(THIS.OREC,THIS.NID) + ENDCASE + + RETURN PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_calc1.cactiune = tcActiune + ENDPROC + + PROCEDURE Cb_sucursala._cbbase1.Valid + porec.id_sucursala = vnom_sucursale.id_sucursala + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_calcsetari AS frm_termin OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="clb_calculator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_sucursala" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + cgridsortlist = _grdrow1 + DoCreate = .T. + Height = 465 + Name = "frm_calcsetari" + Width = 596 + _SHAPE1.Height = 29 + _SHAPE1.Left = 0 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 636 + _SHAPE2.Height = 29 + _SHAPE2.Left = 473 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 251 + LB_TITLU_ALB_B121.Caption = "Setari calculatoare" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 9 + BUT_TERMIN1.Left = 565 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 0 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + ColumnCount = 5, ; + DeleteMark = .F., ; + Height = 364, ; + Left = 8, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "crsCalcsetari", ; + TabIndex = 4, ; + Top = 98, ; + Width = 578, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "calculator", ; + Column1.Name = "Column1", ; + Column1.Width = 115, ; + Column2.ColumnOrder = 5, ; + Column2.ControlSource = "explicatia", ; + Column2.Name = "Column2", ; + Column2.Width = 101, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "valoare_text", ; + Column3.Name = "Column3", ; + Column3.Width = 127, ; + Column4.ColumnOrder = 3, ; + Column4.ControlSource = "setare", ; + Column4.Name = "Column4", ; + Column4.Width = 113, ; + Column5.ColumnOrder = 1, ; + Column5.ControlSource = "sucursala", ; + Column5.Name = "Column5", ; + Column5.Width = 86 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Calculator", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Setare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 505, ; + Name = "But_modifica1", ; + TabIndex = 7, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 474, ; + Name = "But_nou1", ; + TabIndex = 8, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 535, ; + Name = "But_sterge1", ; + TabIndex = 6, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'clb_calculator' AS clb_tx_simplu WITH ; + Left = 8, ; + Name = "clb_calculator", ; + TabIndex = 1, ; + Top = 38, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Calculator", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_sucursala' AS clb_tx_simplu WITH ; + Left = 8, ; + Name = "clb_sucursala", ; + TabIndex = 2, ; + Top = 66, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Sucursala", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ; + Left = 308, ; + Name = "CMD_CAUTA1", ; + TabIndex = 3, ; + Top = 38 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + PROCEDURE actualizeaza_grid1 + Lparameters pcFiltru + Local lcFiltru + lcFiltru=pcFiltru + If Empty(lcFiltru) + lcFiltru=pocalc.ca_baza1.cfiltru + Endif + save_grid_tag(Thisform._grdrow1) + pocalc.ca_baza1.cfiltru=lcFiltru + pocalc.ca_baza1.afisare() + restore_grid_tag(Thisform._grdrow1) + If Reccount('crsCalcsetari')>0 + Thisform._grdrow1.SetFocus() + Else + Thisform.clb_calculator.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_adauga + DO calcsetare_nou IN onomenclatoare.prg + IF gnButon = 1 + THISFORM.actualizeaza_grid1() + ENDI + ENDPROC + + PROCEDURE do_cauta + LOCAL lcFiltru, lcCalculator, lcSucursala + + lcFiltru=[] + lcCalculator = STRTRAN(UPPER(ALLTRIM(THIS.clb_calculator.text_simplu1.VALUE)),['],['']) + lcSucursala = STRTRAN(UPPER(ALLTRIM(THIS.clb_sucursala.text_simplu1.VALUE)),['],['']) + + IF !EMPTY(lcCalculator) + lcFiltru = lcFiltru + [ and calculator like '%] + lcCalculator + [%'] + ENDIF + IF !EMPTY(lcSucursala) + lcFiltru = lcFiltru + [ and sucursala like '%] + lcSucursala + [%'] + ENDIF + IF !EMPTY(lcFiltru) + lcFiltru = SUBSTR(lcFiltru,6) + ELSE + lcFiltru = "2=2" + ENDIF + + THIS.MOUSEPOINTER= 11 + THIS.LOCKSCREEN=.T. + THISFORM.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + THIS.LOCKSCREEN=.F. + THIS.MOUSEPOINTER= 0 + + ENDPROC + + PROCEDURE do_modifica + LOCAL loRec, lnIdUtil + + If Reccount('crsCalcSetari')>0 + Select crsCalcSetari + lnId = id_calcsetare + Scatter Name loRec + + loRec = calcsetare_modifica(lnId) + + IF !ISNULL(loRec) + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid1() + SELECT crsCalcSetari + LOCATE FOR id_calcsetare = lorec.id_calcsetare + IF !FOUND() + GO top + ENDIF + thisform._grdrow1.SetFocus() + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + Endif + Else + amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_sterge + If Reccount('crsCalcSetari')>0 + Select crsCalcSetari + Scatter Name lorec + Do STERGE_INREGISTRARE With "calcsetari",lorec.id_calcsetare + + This.actualizeaza_grid1() + Else + amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie") + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_calcsetari_nou AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Clb_explicatia" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CUS_ODATA_CALCSETARI1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_calculator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_setare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_valoare" UniqueID="" Timestamp="" /> + + * + *m: do_alege_valoare + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 169 + Name = "frm_calcsetari_nou" + nid = .F. + orec = + Width = 381 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Left = 320 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + LB_TITLU_ALB_B121.Caption = "Setare calculator" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 7 + BUT_TERMIN1.Left = 350 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + GRIDSORT1.Left = 11 + GRIDSORT1.Name = "GRIDSORT1" + GRIDSORT1.Top = 42 + BUT_RENUNT1.Left = 321 + BUT_RENUNT1.Name = "BUT_RENUNT1" + BUT_RENUNT1.TabIndex = 6 + BUT_RENUNT1.Top = 1 + * + + ADD OBJECT 'Cb_calculator' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 23, ; + Name = "Cb_calculator", ; + TabIndex = 1, ; + Top = 48, ; + Width = 326, ; + _cbbase1.ControlSource = "porec.calculator", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 96, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "vcalculatoare.denumire", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 225, ; + _lbbase1.Caption = "Calculator", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_setare' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 23, ; + Name = "Cb_setare", ; + TabIndex = 2, ; + Top = 76, ; + Width = 326, ; + _cbbase1.ControlSource = "porec.setare", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 96, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "vsetari.setare", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 224, ; + _lbbase1.Caption = "Setare", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_explicatia' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 23, ; + Name = "Clb_explicatia", ; + TabIndex = 3, ; + Top = 104, ; + Width = 326, ; + TEXT_SIMPLU1.ControlSource = "porec.explicatia", ; + TEXT_SIMPLU1.Format = "!K", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 97, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 221, ; + LB_SIMPLU1.Caption = "Explicatie", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_valoare' AS ct_clb_cautare WITH ; + cconditie = Empty(NVL(porec.valoare,'')), ; + cprocedura = thisform.do_alege_valoare, ; + cvar_afisata = porec.valoare_text, ; + Height = 31, ; + Left = 22, ; + Name = "Clb_valoare", ; + TabIndex = 4, ; + Top = 131, ; + Width = 331, ; + img_cautare.Left = 308, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Lb_simplu1.Caption = "Valoare", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.ControlSource = "poRec.valoare", ; + clb_tx_cautare.Text_simplu1.Height = 23, ; + clb_tx_cautare.Text_simplu1.Left = 97, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Text_simplu1.Width = 195, ; + clb_tx_cautare.Width = 300 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'CUS_ODATA_CALCSETARI1' AS cus_odata_calcsetari WITH ; + Left = 9, ; + Name = "CUS_ODATA_CALCSETARI1", ; + Top = 108 + *< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" /> + + PROCEDURE do_alege_valoare + LOCAL loHash, lcVarResult, lcVarValoare + + DO CASE + CASE vsetari.tip = 'L' AND !EMPTY(NVL(vsetari.tabel,'')) && L = LISTA; T = TEXT + loHash = GetHash() + WITH loHash + .SetValue("cSelect", "select " + ALLTRIM(NVL(vsetari.coloane,'')) + " from " + ALLTRIM(NVL(vsetari.tabel,''))) + .SetValue("cSchema", ALLTRIM(NVL(vsetari.Schema,''))) + .SetValue("cFiltru", ALLTRIM(NVL(vsetari.Filtru,''))) + .SetValue("cOrder", ALLTRIM(NVL(vsetari.Ordine,''))) + .SetValue("cColoana", ALLTRIM(NVL(vsetari.Coloane,''))) + .SetValue("cTitlu", ALLTRIM(NVL(vsetari.Titlu,''))) + .SetValue("cTitluColoana", ALLTRIM(NVL(vsetari.TitluColoane,''))) + .SetValue("cFiltruOriginal", ALLTRIM(NVL(vsetari.FiltruOriginal,''))) + .SetValue("cPrimaColoana", ALLTRIM(NVL(vsetari.ResultColoana,''))) + .SetValue("cEnums",ALLTRIM(NVL(vsetari.Enums,''))) + + IF '2=2'$ALLTRIM(NVL(vsetari.Filtru,'')) + .SetValue("nPornire", 6) + ENDIF + ENDWITH + + loCauta = cauta_alfa_hash(loHash) && cauta_alfa.prg + lcVarResult = "loCauta." + ALLTRIM(vsetari.resultcoloana) + lcVarValoare = "loCauta." + ALLTRIM(vsetari.idcoloana) + IF !ISNULL(loCauta) + IF !EMPTY(&lcVarResult) + poRec.valoare_text = ALLTRIM(TRANSFORM(EVALUATE(lcVarResult))) + poRec.valoare = ALLTRIM(TRANSFORM(EVALUATE(lcVarValoare))) + ENDIF + ENDIF + + OTHERWISE + lcTip = IIF(vsetari.tip = 'L' and !EMPTY(NVL(vsetari.enums,'')), 'COMBO','EDIT') + lcEnums = ALLTRIM(NVL(vsetari.enums,'')) + poRec.valoare = GetText(GetHash("cTitlu=>" + ALLTRIM(vsetari.setare) + "??cText=>" + ALLTRIM(poRec.valoare)+"??cTip=>" + lcTip + "??cEnums=>" + lcEnums)) && ocautare.prg + poRec.valoare_text = poRec.valoare + ENDCASE + + thisform.Refresh + + + ENDPROC + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(THIS.ACTIVECONTROL.BASECLASS ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=THIS.ACTIVECONTROL.CONTROLSOURCE + &lcval=THISFORM.ACTIVECONTROL.VALUE + ENDIF + + + DO CASE + CASE EMPTY(porec.calculator) + aMESSAGEBOX('Nu ati completat denumirea calculatorului!',0+48,"Atentie") + THIS.cb_calculator.SETFOCUS() + PLRETURN=.F. + CASE EMPTY(porec.setare) + aMESSAGEBOX('Nu ati completat setarea!',0+48,"Atentie") + THIS.cb_setare.SETFOCUS() + PLRETURN=.F. + CASE EMPTY(porec.valoare_text) + aMESSAGEBOX('Nu ati completat valoarea!',0+48,"Atentie") + THIS.clb_valoare.SETFOCUS() + PLRETURN=.F. + + + OTHERWISE + PLRETURN=THIS.cus_odata_calcsetari1.salvare(THIS.OREC,THIS.NID) + ENDCASE + + RETURN PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_calcsetari1.cactiune = tcActiune + + IF UPPER(tcActiune) = 'UPDATE' + this.cb_calculator._cbbase1.Enabled = .F. + this.cb_setare._cbbase1.Enabled = .F. + this.clb_explicatia.SetFocus() + ENDIF + ENDPROC + + PROCEDURE Cb_calculator._cbbase1.Valid + porec.id_calc = vcalculatoare.id_calc + + ENDPROC + + PROCEDURE Cb_setare._cbbase1.Valid + poRec.explicatia = ALLTRIM(vsetari.setare) + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_entitati_conturi_o AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_pageframe1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow2.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow2.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Lb_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_filtru_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_filtru_cont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.ck_tip_entitate" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Cmd_executa1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_cod_fiscal" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_reg_comert" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column3._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column5._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_nou2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_modifica2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_sterge2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_nou3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_modifica3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_sterge3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.PAGE2.Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column5._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column1.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column6.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.But_nou3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.But_modifica3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.But_sterge3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.Ck_filtru_cont2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.Cmd_reset1" UniqueID="" Timestamp="" /> + + * + *m: actualizeaza_grid3 + *m: actualizeaza_grid4 + *m: actualizeaza_grid5 + *m: adauga_cont + *m: do_adauga_coresp_tc + *m: do_adauga_tipuri + *m: do_cauta2 + *m: do_modifica_coresp_tc + *m: do_modifica_tipuri + *m: do_reset2 + *m: do_sterge_coresp_tc + *m: do_sterge_tipuri + *m: modifica_cont + *m: sterge_cont + *p: cul_activ + *p: temporar_id_tip_part + *p: temporar_tip_partener + * + + * + BorderStyle = 3 + cgridsortlist = _pageframe1.page1._grdrow1;_pageframe1.page3._grdrow4 + DoCreate = .T. + Height = 420 + Name = "frm_entitati_conturi_o" + temporar_id_tip_part = 0 + temporar_tip_partener = + Width = 697 + WindowState = 0 + WindowType = 1 + _shape1.Anchor = 10 + _shape1.Comment = "*:OnResize=sR" + _shape1.Height = 30 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Tag = "W" + _shape1.Top = 0 + _shape1.Width = 698 + _shape2.Anchor = 8 + _shape2.Comment = "*:OnResize=RT" + _shape2.Height = 29 + _shape2.Left = 665 + _shape2.Name = "_shape2" + _shape2.Tag = "L" + _shape2.Top = 1 + _shape2.Width = 32 + Lb_titlu_alb_b121.Caption = "Configurare Entitati" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 19 + Lb_titlu_alb_b121.Tag = "" + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Comment = "*:OnResize=RT" + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 666 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 18 + BUT_TERMIN1.Tag = "L" + BUT_TERMIN1.Top = 2 + BUT_TERMIN1.Width = 30 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_pageframe1' AS _pageframe WITH ; + Anchor = 15, ; + Comment = "*:OnResize=sS", ; + ErasePage = .T., ; + Height = 391, ; + Left = 0, ; + Name = "_pageframe1", ; + PageCount = 3, ; + Tag = "WH", ; + Top = 29, ; + Width = 698, ; + PAGE1.BackColor = 255,255,255, ; + PAGE1.Caption = "Entitati", ; + PAGE1.Comment = "", ; + PAGE1.Name = "PAGE1", ; + PAGE1.Tag = "HW", ; + PAGE2.BackColor = 255,255,255, ; + PAGE2.Caption = "Tipuri Entitati - Conturi", ; + PAGE2.Comment = "", ; + PAGE2.Name = "PAGE2", ; + PAGE2.Tag = "HW", ; + Page3.BackColor = 255,255,255, ; + Page3.Caption = "Conturi", ; + Page3.Name = "Page3", ; + Page3.Tag = "HW" + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 14, ; + Comment = "*:OnResize=SS", ; + DeleteMark = .F., ; + Height = 296, ; + HighlightStyle = 1, ; + Left = 4, ; + Name = "_grdrow1", ; + nrgbrow = 0, ; + Panel = 1, ; + ReadOnly = .T., ; + RecordMark = .F., ; + RecordSource = "crsparteneri", ; + TabIndex = 14, ; + Tag = "HW", ; + Top = 65, ; + Width = 551, ; + Column1.ControlSource = "crsparteneri.id_part", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 65, ; + Column2.ControlSource = "crsparteneri.nume", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 174, ; + Column3.ControlSource = "crsparteneri.cod_fiscal", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column4.ControlSource = "crsparteneri.reg_comert", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column5.ControlSource = "crsparteneri.adresa", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column6.ControlSource = "crsparteneri.localitate", ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column7.ControlSource = "crsparteneri.telefon", ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column8.ControlSource = "crsparteneri.banca", ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .T., ; + Column9.ControlSource = "crsparteneri.cont_banca", ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column10.ControlSource = "crsparteneri.zona", ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column11.ControlSource = "crsparteneri.bloc", ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column12.ControlSource = "crsparteneri.scara", ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column13.ControlSource = "crsparteneri.apartament", ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column14.ControlSource = "crsparteneri.inactiv", ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column14.Width = 49 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Zona", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Bloc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Scara", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Apartament", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod Fiscal / CNP", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Reg. Comert", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Adresa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Localitate", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Telefon", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Banca", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont Banca", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow2' AS _grdrow WITH ; + Anchor = 13, ; + ColumnCount = 1, ; + crgb_row = 255,255,255, ; + DeleteMark = .F., ; + Height = 296, ; + Left = 554, ; + Name = "_grdrow2", ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crscoresp_tip_parteneri", ; + TabIndex = 15, ; + Tag = "HL", ; + Top = 65, ; + Width = 131, ; + Column1.ControlSource = "crscoresp_tip_parteneri.tip_partener", ; + Column1.Name = "Column1", ; + Column1.Width = 121 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow2.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE1._grdrow2.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE1.But_modifica1' AS but_modifica WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 491, ; + Name = "But_modifica1", ; + TabIndex = 10, ; + Tag = "L", ; + Top = 34, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE1.But_nou1' AS but_nou WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 460, ; + Name = "But_nou1", ; + TabIndex = 5, ; + Tag = "L", ; + Top = 34 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE1.But_sterge1' AS but_sterge WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 520, ; + Name = "But_sterge1", ; + TabIndex = 12, ; + Tag = "L", ; + Top = 34, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE1.Ck_cod_fiscal' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = cod_fiscal, ; + Caption = "Cod Fiscal", ; + criteriu = 4, ; + criteriu2 = 4, ; + Left = 4, ; + Name = "Ck_cod_fiscal", ; + Top = 27 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.PAGE1.Ck_filtru_cont' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = cont, ; + Caption = "Cont", ; + Left = 167, ; + Name = "Ck_filtru_cont", ; + Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.PAGE1.Ck_filtru_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = nume, ; + Caption = "Denumire", ; + Left = 4, ; + Name = "Ck_filtru_nume", ; + Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.PAGE1.Ck_reg_comert' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = reg_comert, ; + Caption = "Reg. Comert", ; + criteriu = 4, ; + criteriu2 = 4, ; + Left = 84, ; + Name = "Ck_reg_comert", ; + Top = 27 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.PAGE1.ck_tip_entitate' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Tip Entitate", ; + FontName = "Arial Narrow", ; + Left = 84, ; + Name = "ck_tip_entitate", ; + Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.PAGE1.Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 219, ; + Name = "Cmd_cauta1", ; + TabIndex = 4, ; + Tag = "L", ; + Top = 5 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE1.Cmd_executa1' AS cmd_executa WITH ; + Anchor = 8, ; + Caption = "\ + + ADD OBJECT '_pageframe1.PAGE1.Cmd_reset1' AS cmd_reset WITH ; + Anchor = 8, ; + Comment = "*:OnResize=RT", ; + Left = 219, ; + Name = "Cmd_reset1", ; + Tag = "L", ; + Top = 34 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE1.Lb_simplu1' AS lb_simplu WITH ; + Caption = "Entitati", ; + FontSize = 10, ; + Left = 4, ; + Name = "Lb_simplu1", ; + Top = 50 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.PAGE1.Lb_simplu2' AS lb_simplu WITH ; + Anchor = 8, ; + Caption = "Tip/Tipuri ", ; + Comment = "*:OnResize=RT", ; + FontSize = 10, ; + Left = 554, ; + Name = "Lb_simplu2", ; + Tag = "L", ; + Top = 33 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.PAGE1.Lb_simplu3' AS lb_simplu WITH ; + Anchor = 8, ; + Caption = "Entitate Selectata", ; + Comment = "*:OnResize=RT", ; + FontSize = 10, ; + Left = 554, ; + Name = "Lb_simplu3", ; + Tag = "L", ; + Top = 50 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow3' AS _grdrow WITH ; + Anchor = 5, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 296, ; + HighlightStyle = 1, ; + Left = 8, ; + Name = "_grdrow3", ; + nrgbrow = 0, ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crstipuriparteneri", ; + ScrollBars = 2, ; + TabIndex = 16, ; + Tag = "H", ; + Top = 65, ; + Width = 238, ; + Column1.ControlSource = "crstipuriparteneri.id_tip_part", ; + Column1.Name = "Column1", ; + Column1.Width = 47, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "crstipuriparteneri.tip_partener", ; + Column2.Name = "Column2", ; + Column2.Width = 125, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "crstipuriparteneri.inactiv", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Sparse = .F., ; + Column3.Width = 43 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip ", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column3._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + Left = 38, ; + Name = "_checkbox1", ; + ReadOnly = .T., ; + Top = 93 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 5, ; + DeleteMark = .F., ; + Height = 296, ; + Left = 248, ; + Name = "_grdrow4", ; + nrgbrow = 0, ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crstipuriconturi", ; + ScrollBars = 2, ; + TabIndex = 17, ; + Tag = "HW", ; + Top = 65, ; + Width = 442, ; + Column1.ControlSource = "crstipuriconturi.tip_partener", ; + Column1.Name = "Column1", ; + Column1.Tag = "W", ; + Column1.Width = 68, ; + Column2.ControlSource = "crstipuriconturi.cont", ; + Column2.Name = "Column2", ; + Column2.Width = 72, ; + Column3.ControlSource = "crstipuriconturi.explicatie", ; + Column3.Name = "Column3", ; + Column3.Width = 122, ; + Column4.ControlSource = 'iif(crstipuriconturi.fel_cont<=0,"Activ","Pasiv")', ; + Column4.Name = "Column4", ; + Column4.Width = 71, ; + Column5.ControlSource = "crstipuriconturi.cu_inregistrari", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Sparse = .F., ; + Column5.Width = 83 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ControlSource = "crstipuriconturi.fel_cont", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column5._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + Left = 28, ; + Name = "_checkbox1", ; + Top = 45 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cu Inregistrari", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.PAGE2.But_modifica2' AS but_modifica WITH ; + caction = do_modifica_tipuri, ; + Comment = "*:OnResize=RT", ; + Left = 186, ; + Name = "But_modifica2", ; + TabIndex = 8, ; + Top = 35, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE2.But_modifica3' AS but_modifica WITH ; + Anchor = 8, ; + caction = do_modifica_coresp_tc, ; + Comment = "*:OnResize=RT", ; + Left = 633, ; + Name = "But_modifica3", ; + TabIndex = 9, ; + Tag = "L", ; + Top = 35, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE2.But_nou2' AS but_nou WITH ; + caction = do_adauga_tipuri, ; + Comment = "*:OnResize=RT", ; + Left = 155, ; + Name = "But_nou2", ; + TabIndex = 6, ; + Top = 35 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE2.But_nou3' AS but_nou WITH ; + Anchor = 8, ; + caction = do_adauga_coresp_tc, ; + Comment = "*:OnResize=RT", ; + Left = 602, ; + Name = "But_nou3", ; + TabIndex = 7, ; + Tag = "L", ; + Top = 35 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE2.But_sterge2' AS but_sterge WITH ; + caction = do_sterge_tipuri, ; + Comment = "*:OnResize=RT", ; + Left = 215, ; + Name = "But_sterge2", ; + TabIndex = 11, ; + Top = 35, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE2.But_sterge3' AS but_sterge WITH ; + Anchor = 8, ; + caction = do_sterge_coresp_tc, ; + Comment = "*:OnResize=RT", ; + Left = 662, ; + Name = "But_sterge3", ; + TabIndex = 13, ; + Tag = "L", ; + Top = 35, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.PAGE2.Lb_simplu1' AS lb_simplu WITH ; + Caption = "Tipuri Entitati", ; + FontSize = 10, ; + Left = 8, ; + Name = "Lb_simplu1", ; + Top = 48 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.PAGE2.Lb_simplu2' AS lb_simplu WITH ; + Caption = "Conturi", ; + Comment = "*:OnResize=RT", ; + FontSize = 10, ; + Left = 249, ; + Name = "Lb_simplu2", ; + Top = 48 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 6, ; + DeleteMark = .F., ; + Height = 297, ; + HighlightStyle = 1, ; + Left = 7, ; + Name = "_grdrow4", ; + nrgbrow = 0, ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crsconturi", ; + TabIndex = 17, ; + Tag = "HW", ; + Top = 62, ; + Width = 682, ; + Column1.ControlSource = "cont", ; + Column1.Name = "Column2", ; + Column1.Width = 72, ; + Column2.ControlSource = "explicatie", ; + Column2.Name = "Column3", ; + Column2.Width = 328, ; + Column3.ControlSource = "fel_cont", ; + Column3.Name = "Column4", ; + Column3.Width = 89, ; + Column4.ControlSource = "cu_inregistrari", ; + Column4.Name = "Column5", ; + Column4.ReadOnly = .T., ; + Column4.Sparse = .F., ; + Column4.Width = 83, ; + Column5.ControlSource = "cu_venchelt", ; + Column5.Name = "Column1", ; + Column5.ReadOnly = .T., ; + Column5.Sparse = .F., ; + Column5.Width = 97, ; + Column6.ControlSource = "cu_proc_tva", ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Sparse = .F., ; + Column6.Width = 70 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column1.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Height = 17, ; + Left = 36, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 24, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Venituri/cheltuieli", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ControlSource = "crstipuriconturi.fel_cont", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column5._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + Left = 28, ; + Name = "_checkbox1", ; + Top = 45 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cu Inregistrari", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column6.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Height = 17, ; + Left = 22, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 24, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page3._grdrow4.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent TVA", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_pageframe1.Page3.But_modifica3' AS but_modifica WITH ; + Anchor = 8, ; + caction = modifica_cont, ; + Comment = "*:OnResize=RT", ; + Left = 628, ; + Name = "But_modifica3", ; + TabIndex = 9, ; + Tag = "L", ; + Top = 15, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.Page3.But_nou3' AS but_nou WITH ; + Anchor = 8, ; + caction = adauga_cont, ; + Comment = "*:OnResize=RT", ; + Left = 598, ; + Name = "But_nou3", ; + TabIndex = 7, ; + Tag = "L", ; + Top = 15 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.Page3.But_sterge3' AS but_sterge WITH ; + Anchor = 8, ; + caction = sterge_cont, ; + Comment = "*:OnResize=RT", ; + Left = 657, ; + Name = "But_sterge3", ; + TabIndex = 13, ; + Tag = "L", ; + Top = 15, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.Page3.Ck_filtru_cont2' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = cont, ; + Caption = "Cont", ; + Left = 4, ; + Name = "Ck_filtru_cont2", ; + Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page3.Cmd_cauta1' AS cmd_cauta WITH ; + caction = do_cauta2, ; + Comment = "*:OnResize=RT", ; + Left = 119, ; + Name = "Cmd_cauta1", ; + TabIndex = 4, ; + Tag = "L", ; + Top = 3 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT '_pageframe1.Page3.Cmd_reset1' AS cmd_reset WITH ; + caction = do_reset2, ; + Comment = "*:OnResize=RT", ; + Left = 119, ; + Name = "Cmd_reset1", ; + Tag = "L", ; + Top = 32 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + PROCEDURE Activate + thisform.WindowState = 2 + THIS.Refresh + ENDPROC + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=poparteneri.ca_baza1.cfiltru + ENDIF + save_grid_comment(This._pageframe1.pAGE1._grdrow1) + poparteneri.ca_baza1.cfiltru=lcfiltru + poparteneri.ca_baza1.afisare() + restore_grid_comment(This._pageframe1.pAGE1._grdrow1) + Select CRSPARTENERI + IF (RECCOUNT()=0) + aMESSAGEBOX("Nu exista rezultate.",0+48,"Atentie") + ENDIF + + ENDPROC + + PROCEDURE actualizeaza_grid2 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=poparteneri.ca_baza1.cfiltru + MESSAGE("filtru gol") + ENDIF + save_grid_comment(This._pageframe1.pAGE1._grdrow2) + pocoresp_tip_parteneri.ca_baza1.cfiltru=lcfiltru + pocoresp_tip_parteneri.ca_baza1.afisare() + restore_grid_comment(This._pageframe1.pAGE1._grdrow2) + Select crscoresp_tip_parteneri + Go Top + IF (RECCOUNT()=0) + * WAIT "Acest partener nu are setat tipul." WINDOW NOWAIT + ELSE + ** thisform._grdrow1.SetFocus() + ENDIF + ENDPROC + + PROCEDURE actualizeaza_grid3 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=potipuri_parteneri.ca_baza1.cfiltru + ENDIF + save_grid_comment(This._pageframe1.pAGE2._grdrow3) + potipuri_parteneri.ca_baza1.cfiltru=lcfiltru + potipuri_parteneri.ca_baza1.afisare() + restore_grid_comment(This._pageframe1.pAGE2._grdrow3) + *!* Select crstipuriparteneri + *!* Go Top + + ENDPROC + + PROCEDURE actualizeaza_grid4 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=potipuri_conturi.ca_baza1.cfiltru + ENDIF + save_grid_comment(THIS._pageframe1.pAGE2._grdrow4) + potipuri_conturi.ca_baza1.cfiltru=lcFiltru + potipuri_conturi.ca_baza1.afisare() + restore_grid_comment(THIS._pageframe1.pAGE2._grdrow4) + *!* SELECT crstipuriconturi + *!* GO TOP + *!* IF (RECCOUNT()=0) + *!* * WAIT "Acest tip nu are setate conturi." WINDOW NOWAIT + *!* ELSE + *!* ** thisform._grdrow1.SetFocus() + *!* ENDIF + + ENDPROC + + PROCEDURE actualizeaza_grid5 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=poconturi.ca_baza1.cfiltru + ENDIF + save_grid_comment(This._pageframe1.page3._grdrow4) + poconturi.ca_baza1.cfiltru=lcfiltru + poconturi.ca_baza1.afisare() + restore_grid_comment(This._pageframe1.page3._grdrow4) + *!* Select crsconturi + *!* Go Top + + ENDPROC + + PROCEDURE adauga_cont + SELECT crsconturi + SCATTER NAME loRecI BLANK + + lorecI.Fel_cont = 0 + loRecI.cu_inregistrari = 0 + loRecI.cu_venchelt = 0 + loRecI.cu_proc_tva = 0 + + config_ireg() + lnSucces = Adauga_Modifica_Inregistrare("config_cont_ireg",loRecI,,"INSERT",.f.,'oAddConfig') + + IF lnSucces > 0 + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid5() + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + ENDIF + + close_config_ireg() + + + ENDPROC + + PROCEDURE do_adauga + + SELECT crsparteneri + SCATTER NAME loRec BLANK + pccontinua=.F. + ADDPROPERTY(lorec,"id_tip_part",0) + ADDPROPERTY(lorec,"tip_partener",0) + lorec.adresa="" + + =cclocalitati() + =cctipuri() + =cctipuri_selectate(loRec.id_tip_part) + DO Adauga_Modifica_Inregistrare WITH "parteneri",loRec,,"INSERT" IN oproceduri_ams.prg + =close_cclocalitati() + =close_cctipuri() + =close_cctipuri_selectate() + + IF pccontinua=.T. + thisform.actualizeaza_grid1() + ENDIF + + If Used('localitati') + Use In localitati + Endif + ENDPROC + + PROCEDURE do_adauga_coresp_tc + + SELECT crstipuriconturi + SCATTER NAME loRec BLANK + + lorec.Fel_cont = 0 + loRec.tip_partener = thisform.temporar_tip_partener + + pncontinua = 0 + *!* ADDPROPERTY(lorec,"id_tip_part",0) + + lnSucces = cctipuri() + IF lnSucces < 0 + RETURN + ENDIF + lnSucces = config_ireg() + IF lnSucces < 0 + RETURN + ENDIF + + pnContinua = Adauga_Modifica_Inregistrare("coresp_tipuri_conturi",loRec,,"INSERT") + + =close_cctipuri() + =close_config_ireg() + + IF pncontinua = 1 + thisform.actualizeaza_grid4() + ENDIF + + + ENDPROC + + PROCEDURE do_adauga_tipuri + SELECT crstipuriparteneri + SCATTER NAME loRec BLANK + pccontinua=.F. + + DO Adauga_Modifica_Inregistrare WITH "tipuri_parteneri",loRec,,"INSERT" IN oproceduri_ams.prg + + IF pccontinua=.T. + thisform.actualizeaza_grid3() + ENDIF + + + ENDPROC + + PROCEDURE do_cauta + Private lcfiltru,lcval1 + lcfiltru='' + + *!* If !Empty(ThisForm._pageframe1.pAGE1.clb_tx_simplu1.Text_simplu1.Value) + *!* lcval1=STRTRAN(Alltrim(Upper(ThisForm._pageframe1.pAGE1.clb_tx_simplu1.Text_simplu1.Value)),['],['']) + *!* lcfiltru=lcfiltru+[ and nume like ']+Iif(lcval1='%',[%'],lcval1+[%']) + *!* Endif + + If ThisForm._pageframe1.pAGE1.Ck_filtru_nume.Value = 1 + lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_filtru_nume.filtru + Endif + + *!* **If !Empty(ThisForm._pageframe1.pAGE1.cb_tip_partener._CBBASE1.Value) + *!* If (ThisForm._pageframe1.pAGE1.cb_tip_partener._CBBASE1.Value <> "") + *!* lcfiltru=lcfiltru+[ and id_tip_part = ]+ ALLTRIM(STR(thisform.temporar_id_tip_part)) + *!* ENDIF + + If ThisForm._pageframe1.pAGE1.Ck_tip_entitate.Value = 1 + If !empty(ThisForm.temporar_id_tip_part) + lcfiltru=lcfiltru+[ and id_tip_part = ]+ ALLTRIM(STR(thisform.temporar_id_tip_part)) + ENDIF + ENDIF + + *!* If !Empty(ThisForm._pageframe1.pAGE1.clb_tx_simplu3.Text_simplu1.Value) + *!* lcval1=STRTRAN(Alltrim(Upper(ThisForm._pageframe1.pAGE1.clb_tx_simplu3.Text_simplu1.Value)),['],['']) + *!* lcfiltru=lcfiltru+[ and cont like ']+Iif(lcval1='%',[%'],lcval1+[%']) + *!* Endif + + If ThisForm._pageframe1.pAGE1.Ck_filtru_cont.Value = 1 + lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_filtru_cont.filtru + ENDIF + + If ThisForm._pageframe1.pAGE1.Ck_cod_fiscal.Value = 1 + lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_cod_fiscal.filtru + ENDIF + + If ThisForm._pageframe1.pAGE1.Ck_reg_comert.Value = 1 + lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_reg_comert.filtru + ENDIF + + If ThisForm._pageframe1.pAGE3.Ck_filtru_cont2.Value = 1 + lcfiltru=lcfiltru + thisform._pageframe1.page3.ck_filtru_cont2.filtru + Endif + + + If !Empty(lcfiltru) + lcfiltru=Substr(lcfiltru,5) + Else + *!* MESSAGEBOX("Alegeti un criteriu!",0+48,"Atentie") + *!* ThisForm._pageframe1.pAGE1._grdrow1.setfocus() + *!* RETURN + lcfiltru = [1=1] + ENDIF + + + thisform.actualizeaza_grid1(lcFiltru) + ENDPROC + + PROCEDURE do_cauta2 + Private lcfiltru,lcval1 + lcfiltru='' + + + + If ThisForm._pageframe1.pAGE3.Ck_filtru_cont2.Value = 1 + lcfiltru=lcfiltru + thisform._pageframe1.page3.ck_filtru_cont2.filtru + Endif + + + If !Empty(lcfiltru) + lcfiltru=Substr(lcfiltru,5) + Else + + lcfiltru = [1=1] + ENDIF + + + thisform.actualizeaza_grid5(lcFiltru) + ENDPROC + + PROCEDURE do_executa + LOCAL loPart, loCauta, lnIdPartProst, lnIdPartBun, lnAn1, lnAn2, lnLuna1, lnLuna2, lnInit, lnFinal, lcMesaj + LOCAL lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcFiltruOriginal, lcNumeProc, llAllInlist + + SELECT crsParteneri + SCATTER NAME loPart + IF loPart.id_part = 0 + RETURN + ENDIF + + lcParola = INPUTBOX('Parola','Parola','') + IF lcParola # TRANSFORM(YEAR(DATE())) + PADL(TRANSFORM(MONTH(DATE())),2,'0') + PADL(TRANSFORM(DAY(DATE())),2,'0') + RETURN + ENDIF + + + + lcselect = [select p.nume, p.cod_fiscal, p.id_part,p.inactiv FROM ] + gcs + [.Vnom_parteneri p where] + lcfiltru = [] + lcschema = [] + lcorder = [P.NUME] + lccoloane = [nume,cod_fiscal,id_part,inactiv] + lcTitlu = [Alegeti parterul cu Id Partener corect] + lcTitluColoane = [Nume,Cod fiscal,Id Partener, Inactiv] + lcFiltruOriginal = [p.inactiv = 0 and id_part <> ] + TRANSFORM(loPart.id_part) + lcNumeProc = "" + llAllInlist = .F. + locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llAllInlist, lcFiltruOriginal) + + + IF locauta.id_part = 0 + RETURN + ENDIF + + pcondper="" + ofrmperioada=CREATEOBJECT('frm_perioada_luni') + ofrmperioada.SHOW(1) + IF gnButon=2 + RETURN + ENDIF + + plPerioada=.F. + lnPoz=AT('_',pcondper) + IF lnPoz>0 + plPerioada=.T. + ENDIF + + + IF plPerioada + lnAn1 = VAL(SUBSTR(pcondper,3,4)) + lnLuna1 = VAL(SUBSTR(pcondper,1,2)) + lnAn2 = VAL(SUBSTR(pcondper,10,4)) + lnLuna2 = VAL(SUBSTR(pcondper,8,2)) + + lnInit = lnAn1 * 12 + lnLuna1 + lnFinal = lnAn2 * 12 + lnLuna2 + lcPerioada = SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4) + ' - ' + SUBSTR(pcondper,8,2)+'/'+SUBSTR(pcondper,10,4) + ELSE + lnAn1 = VAL(SUBSTR(pcondper,3,4)) + lnLuna1 = VAL(SUBSTR(pcondper,1,2)) + lnAn2 = VAL(SUBSTR(pcondper,3,4)) + lnLuna2 = VAL(SUBSTR(pcondper,1,2)) + + lnInit = lnAn1 * 12 + lnLuna1 + lnFinal = lnAn2 * 12 + lnLuna2 + lcPerioada = SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4) + ' - ' + SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4) + ENDIF + + lnRaspuns = aMESSAGEBOX('Doriti sa inlocuiti in registrul jurnal, balanta verificare, balanta partener si inregistrari partener ' + CHR(13) + ; + lcPerioada + CHR(13) + ; + ALLTRIM(loPart.Nume) + '(' + TRANSFORM(loPart.id_part) +')' + CHR(13) + ; + 'cu ' + ALLTRIM(locauta.Nume) + '(' + TRANSFORM(locauta.id_part) +')?',4+32,'Inlocuire ID Partener') + IF lnRaspuns # 6 + RETURN + ENDIF + + + lnIdPartProst = loPart.id_part + lnIdPartBun = locauta.id_part + + lcEroare = '' + lcEroare = modifica_id_partener(lnIdPartProst, lnIdPartBun, lnAn1, lnLuna1, lnAn2, lnLuna2) + IF !EMPTY(lcEroare) + lcMesaj = lcEroare + ELSE + lcMesaj = 'S-au terminat modificarile.' + ENDIF + + aMESSAGEBOX(lcMesaj,0+48,"Atentie") + + + + ENDPROC + + PROCEDURE do_modifica + LOCAL lnRecno + + If Reccount('crsparteneri')>0 + Private pccod_fiscal + Select crsparteneri + Scatter Name loRec + lnRecno = RECNO() + + SELECT crscoresp_tip_parteneri + GO TOP + + lnid_tip_part = crscoresp_tip_parteneri.id_tip_part + lctip_part = crscoresp_tip_parteneri.tip_partener + **BROWSE + **!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + ADDPROPERTY(lorec,"id_tip_part",lnid_tip_part) + ADDPROPERTY(lorec,"tip_partener",lctip_part) + pccod_fiscal=loRec.cod_fiscal + pccontinua=.F. + =cclocalitati() + =cctipuri() + * INSERT INTO v_nom_tip_parteneri(tip_partener) VALUES ('') + =cctipuri_selectate(loRec.id_part) + Do Adauga_Modifica_Inregistrare With "parteneri",loRec,loRec.ID_part,"UPDATE" IN oproceduri_ams.prg + + =close_cclocalitati() + =close_cctipuri() + =close_cctipuri_selectate() + If pccontinua=.T. + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid1() + SELECT crsParteneri + LOCATE FOR id_part = lorec.id_part + IF !FOUND() + GO top + ENDIF + thisform._pageframe1.pAGE1._grdrow1.SetFocus() + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + Endif + Endif + ENDPROC + + PROCEDURE do_modifica_coresp_tc + If Reccount('crstipuriconturi')>0 + + Select crstipuriconturi + Scatter Name loRec + + loRec.tip_partener = thisform.temporar_tip_partener + + pncontinua = 0 + + lnSucces = cctipuri() + IF lnSucces < 0 + RETURN + ENDIF + lnSucces = config_ireg() + IF lnSucces < 0 + RETURN + ENDIF + + pnContinua = Adauga_Modifica_Inregistrare("coresp_tipuri_conturi",loRec,loRec.ID_coresp_tip_cont,"UPDATE") && IN oproceduri_ams.prg + =close_cctipuri() + =close_config_ireg() + + IF pncontinua = 1 + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid4() + + Select crstipuriconturi + LOCATE FOR ID_coresp_tip_cont = loRec.ID_coresp_tip_cont + IF !FOUND() + GO top + ENDIF + + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + Endif + ENDIF + + + ENDPROC + + PROCEDURE do_modifica_tipuri + If Reccount('crstipuriparteneri')>0 + + Select crstipuriparteneri + Scatter Name loRec + + pctip_partener = loRec.tip_partener + + pccontinua=.F. + + Do Adauga_Modifica_Inregistrare With "tipuri_parteneri",loRec,loRec.ID_tip_part,"UPDATE" IN oproceduri_ams.prg + If pccontinua=.T. + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid3() + + Select crstipuriparteneri + LOCATE FOR id_tip_part = loRec.ID_tip_part + IF !FOUND() + GO top + ENDIF + this._pageframe1.page2._grdrow3.Refresh() + + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + Endif + Endif + ENDPROC + + PROCEDURE do_reset + this._pageframe1.page1.clb_tx_simplu1.text_simplu1.Value = "" + this._pageframe1.page1.clb_tx_simplu3.text_simplu1.Value = "" + this._pageframe1.page1.cb_tip_partener._cbbase1.Value = "" + ENDPROC + + PROCEDURE do_reset2 + this._pageframe1.page3.ck_filtru_cont2.Value=0 + this._pageframe1.page3.cmd_cauta1.Click + ENDPROC + + PROCEDURE do_sterge + + + SELECT crsparteneri + SCATTER NAME loRec + SQLSETPROP(gnHandle,"Transactions",2) && tranzactie manuala + llSucces = .F. + lnSucces = -1 + + **llSucces = sterge_inregistrare("parteneri",loRec,loRec.id_part,"DELETE") + llSucces = sterge_inregistrare("parteneri",loRec.id_part) + IF llSucces + lcSql = [DELETE FROM ] + gcS + [.CORESP_TIP_PART WHERE ID_PART = ] + ALLTRIM(STR(loRec.id_part)) + lnSucces = goExecutor.oExecute(lcSql) + ENDIF + IF lnSucces > 0 + SQLCOMMIT(gnHandle) + ELSE + SQLROLLBACK(gnHandle) + ENDIF + SQLSETPROP(gnHandle,"Transactions",1) && tranzactie automata + + IF lnSucces > 0 + SELECT crsParteneri + *!* DELETE + *!* thisform._pageframe1.page1._grdrow1.SetFocus() + *!* thisform._pageframe1.page1._grdrow1.Refresh() + THISFORM.actualizeaza_grid1() + ENDIF + + ENDPROC + + PROCEDURE do_sterge_coresp_tc + Select crstipuriconturi + Scatter Name loRec + Do sterge_inregistrare With "coresp_tipuri_conturi",lorec.id_coresp_tip_cont IN oproceduri_ams.prg + Thisform.actualizeaza_grid4() + ENDPROC + + PROCEDURE do_sterge_tipuri + Select crstipuriparteneri + Scatter Name loRec + Do sterge_inregistrare With "tipuri_parteneri",lorec.id_tip_part IN oproceduri_ams.prg + Thisform.actualizeaza_grid3() + Thisform.actualizeaza_grid4() + ENDPROC + + PROCEDURE Init + DODEFAULT() + + thisform.WindowState = 2 + THIS.Refresh + SELECT crstipuriparteneri + GO TOP + this.temporar_tip_partener = crstipuriparteneri.tip_partener + THIS._pageframe1.PAGE1._grdrow1.SetFocus + + **INSERT INTO v_nom_tip_parteneri(tip_partener) VALUES ('') + + ENDPROC + + PROCEDURE Load + + + + ENDPROC + + PROCEDURE modifica_cont + SELECT crsconturi + SCATTER NAME loRec + + config_ireg() + lnsucces = Adauga_Modifica_Inregistrare("config_cont_ireg",loRec,loRec.ID_cont_ireg,"UPDATE",.f.) + + + IF lnSucces > 0 + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid5() + Select crsconturi + LOCATE FOR ID_cont_ireg = loRec.ID_cont_ireg + IF !FOUND() + GO top + ENDIF + this._pageframe1.page3._grdrow4.Refresh + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + ENDIF + + close_config_ireg() + + + + + ENDPROC + + PROCEDURE Resize + THISFORM.Refresh() + *this.resizer1.onresize + ENDPROC + + PROCEDURE sterge_cont + Select crsconturi + Scatter Name loRec + lnsucces = sterge_inregistrare("config_cont_ireg",lorec.id_cont_ireg) + + Thisform.actualizeaza_grid5() + + ENDPROC + + PROCEDURE _pageframe1.PAGE1.ck_tip_entitate.Valid + IF this.Value = 1 + pcselect = [select tip_partener,id_tip_part from ] + gcs + [.VNOM_TIP_PARTENERI] + pcfiltru = [] + pcschema = [] + pcorder = [tip_partener] + pccoloane = [tip_partener] + pcTitlu = [Tip partener] + pcTitluColoane = [Tip partener] + pcFiltruOriginal = [inactiv = 0] + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"",.f.,pcFiltruOriginal) + + thisform.temporar_id_tip_part = locauta.id_tip_part + ENDIF + ENDPROC + + PROCEDURE _pageframe1.PAGE1.DblClick + THIS.CMD_executa1.Visible = .T. + ENDPROC + + PROCEDURE _pageframe1.PAGE1._grdrow1.AfterRowColChange + LPARAMETERS nColIndex + DODEFAULT() + + SELECT crsparteneri + lcFiltru2 = [ID_PART=]+ALLTRIM(STR(crsparteneri.id_part)) + thisform.actualizeaza_grid2(lcFiltru2) + + ENDPROC + + PROCEDURE _pageframe1.PAGE1._grdrow1.Column1.Text1.Click + + + + ENDPROC + + PROCEDURE _pageframe1.PAGE1._grdrow1.Init + this.SetAll("DynamicBackColor","iif(inactiv = 1, RGB(200,200,200), RGB(255,255,255))","Column") + ENDPROC + + PROCEDURE _pageframe1.PAGE1._grdrow1.Valid + **thisform._grdrow2.Left=thisform._grdrow2.Left+30 + ENDPROC + + PROCEDURE _pageframe1.PAGE1._grdrow1.When + **thisform._grdrow2.Left=thisform._grdrow2.Left-30 + ENDPROC + + PROCEDURE _pageframe1.PAGE2._grdrow3.AfterRowColChange + LPARAMETERS nColIndex + DODEFAULT() + + SELECT crstipuriparteneri + lcFiltru4 = [ID_TIP_PART=]+ALLTRIM(STR(crstipuriparteneri.id_tip_part)) + thisform.actualizeaza_grid4(lcFiltru4) + + thisform.temporar_tip_partener=crstipuriparteneri.tip_partener + ENDPROC + + PROCEDURE _shape1.DblClick + IF thisform.WindowState = 2 + thisform.WindowState = 0 + ELSE + thisform.WindowState = 2 + ENDIF + THISFORM.Refresh + THISFORM._pageframe1.Page1._grdrow1.SetFocus() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_gruputil AS frm_termin OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="lb_nom_grup" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 381 + Name = "frm_gruputil" + Width = 401 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Height = 29 + _SHAPE2.Left = 276 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 132 + LB_TITLU_ALB_B121.Caption = "Grupuri utilizatori" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + BUT_TERMIN1.Left = 369 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 0 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 292, ; + Left = 8, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "crsGrup", ; + ScrollBars = 2, ; + Top = 78, ; + Width = 384, ; + Column1.ControlSource = "id_grup", ; + Column1.Name = "Column1", ; + Column1.Width = 58, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "nume_parinte", ; + Column2.Name = "Column2", ; + Column2.Width = 123, ; + Column3.ColumnOrder = 2, ; + Column3.ControlSource = "denumire_grup", ; + Column3.Name = "Column3", ; + Column3.Width = 168 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id Grup", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Grup parinte", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Grup utilizatori", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 248, ; + Name = "But_excel1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 309, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 279, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 340, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ; + Left = 309, ; + Name = "CMD_CAUTA1", ; + Top = 37 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'lb_nom_grup' AS clb_tx_simplu WITH ; + Left = 9, ; + Name = "lb_nom_grup", ; + Top = 37, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Grup", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=pogrup.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform._grdrow1) + pogrup.ca_baza1.cfiltru=lcFiltru + pogrup.ca_baza1.afisare() + restore_grid_tag(thisform._grdrow1) + IF RECCOUNT('crsGrup')>0 + thisform._grdrow1.SetFocus() + ELSE + thisform.Lb_nom_grup.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + SELECT crsGrup + SCATTER NAME loRec blank + DO Adauga_Modifica_Inregistrare WITH "gruputil",loRec,,"INSERT" + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_grup.text_simplu1.value)),['],['']) + + If !Empty(lcNume) + lcFiltru=[denumire_grup like ']+lcNume+[%'] + ELSE + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_excel + lcTabel = This._grdrow1.RecordSource + If Reccount(lcTabel)>0 + Do export_excel_grid With This._grdrow1, "denumire_grup" + Else + amessagebox("Nu exista inregistrari pentru export in Excel!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_modifica + If Reccount('crsGrup')>0 + Select crsGrup + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "gruputil",loRec,loRec.id_grup,"UPDATE" + Thisform.actualizeaza_grid1() + Else + amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_sterge + If Reccount('crsGrup')>0 + Select crsGrup + Scatter Name lorec + Do STERGE_INREGISTRARE With "gruputil",lorec.id_grup + + This.actualizeaza_grid1() + Else + amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie") + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_gruputil_nou AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Clb_grup" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CUS_ODATA_GRUPUTIL1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="img_parinte" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_parinte" UniqueID="" Timestamp="" /> + + * + *m: do_alege_parinte + *m: do_alege_tata + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 135 + Name = "frm_gruputil_nou" + nid = + orec = + Width = 375 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Name = "_SHAPE2" + LB_TITLU_ALB_B121.Caption = "Grup utilizator" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 5 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 2 + GRIDSORT1.Name = "GRIDSORT1" + BUT_RENUNT1.Name = "BUT_RENUNT1" + BUT_RENUNT1.TabIndex = 3 + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 32, ; + Name = "_checkbox1", ; + TabIndex = 6, ; + TabStop = .F., ; + Top = 113 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Clb_grup' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 25, ; + Name = "Clb_grup", ; + TabIndex = 1, ; + Top = 71, ; + Width = 313, ; + TEXT_SIMPLU1.ControlSource = "porec.denumire_grup", ; + TEXT_SIMPLU1.Format = "!K", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 101, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 206, ; + LB_SIMPLU1.Caption = "Grup", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_parinte' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 25, ; + Name = "clb_parinte", ; + TabIndex = 4, ; + TabStop = .F., ; + ToolTipText = "Pentru modificare, faceti dublu-click!", ; + Top = 43, ; + Width = 313, ; + Text_simplu1.ControlSource = "porec.nume_parinte", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 101, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 3, ; + Text_simplu1.Value = , ; + Text_simplu1.Width = 206, ; + Lb_simplu1.Caption = "Grup parinte", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\roaauto\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'CUS_ODATA_GRUPUTIL1' AS cus_odata_gruputil WITH ; + Left = 336, ; + Name = "CUS_ODATA_GRUPUTIL1", ; + Top = 48 + *< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" /> + + ADD OBJECT 'img_parinte' AS _image WITH ; + Height = 24, ; + Left = 344, ; + Name = "img_parinte", ; + Picture = ..\comun\grafice\alege.bmp, ; + Stretch = 2, ; + ToolTipText = "Alegeti valuta", ; + Top = 45, ; + Width = 24 + *< END OBJECT: ClassLib="..\..\roaauto\comun\clase\_baza.vcx" BaseClass="image" /> + + PROCEDURE do_alege_parinte + Local loCauta + loCauta = caut_gruputilizatori() + IF ISNULL(loCauta) + RETURN + ENDIF + + IF !EMPTY(loCauta.id_grup) + poRec.id_tata = loCauta.id_grup + poRec.nume_parinte = loCauta.denumire_grup + ELSE + poRec.id_tata = NULL + poRec.nume_parinte = "" + ENDIF + + this.clb_parinte.text_simplu1.Refresh() + + ENDPROC + + PROCEDURE do_alege_tata + ENDPROC + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(THIS.ACTIVECONTROL.BASECLASS ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=THIS.ACTIVECONTROL.CONTROLSOURCE + &lcval=THISFORM.ACTIVECONTROL.VALUE + ENDIF + + + DO CASE + CASE EMPTY(porec.denumire_grup) + aMESSAGEBOX('Nu ati completat denumirea grupului!',0+48,"Atentie") + THIS.clb_grup.text_simplu1.SETFOCUS() + PLRETURN=.F. + + OTHERWISE + PLRETURN=THIS.cus_odata_gruputil1.salvare(THIS.OREC,THIS.NID) + ENDCASE + + RETURN PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_gruputil1.cactiune = tcActiune + ENDPROC + + PROCEDURE clb_parinte.Text_simplu1.DblClick + Thisform.do_alege_parinte() + ENDPROC + + PROCEDURE img_parinte.Click + Thisform.do_alege_parinte() + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_listutil AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_optiongrup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_optiongrup2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtSucursala" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_cautareSucursala" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtGrupUtil" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_cautareGrupUtil" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + + * + *m: do_cauta_grup + *m: do_cauta_sucursala + *p: nidgest + *p: nvalgrup + *p: nvalselectie + *p: ogruputil + *p: orezult + *p: osucursala + *p: pcnumegest + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 259 + Name = "frm_listutil" + nidgest = .F. + nvalgrup = 1 + nvalselectie = 1 + ogruputil = .NULL. + orezult = .F. + osucursala = .NULL. + pcnumegest = + Width = 375 + _memberdata = + + + + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 312 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 63 + Lb_titlu_alb_b121.Caption = "Listare utilizatori" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 343 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + But_renunt1.Left = 360 + But_renunt1.Name = "But_renunt1" + But_renunt1.TabIndex = 6 + But_renunt1.Top = 36 + But_renunt1.Visible = .F. + * + + ADD OBJECT '_label1' AS _label WITH ; + BackColor = 255,255,255, ; + Caption = "Grupare", ; + Left = 22, ; + Name = "_label1", ; + TabIndex = 8, ; + Top = 48 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label2' AS _label WITH ; + BackColor = 255,255,255, ; + Caption = "Selectie", ; + Left = 23, ; + Name = "_label2", ; + TabIndex = 9, ; + Top = 114 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label3' AS _label WITH ; + BackStyle = 0, ; + Caption = "Sucursala", ; + Left = 23, ; + Name = "_label3", ; + TabIndex = 11, ; + Top = 181 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label4' AS _label WITH ; + BackStyle = 0, ; + Caption = "Grup utilizatori", ; + Left = 23, ; + Name = "_label4", ; + TabIndex = 13, ; + Top = 213 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_optiongrup1' AS _optiongrup WITH ; + AutoSize = .F., ; + ControlSource = "thisform.nvalgrup", ; + Height = 46, ; + Left = 13, ; + Name = "_optiongrup1", ; + TabIndex = 1, ; + Top = 60, ; + Width = 305, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Puncte de lucru (sucursale)", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Grupuri de utilizatori", ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 24 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_optiongrup2' AS _optiongrup WITH ; + AutoSize = .F., ; + ControlSource = "thisform.nvalselectie", ; + Height = 124, ; + Left = 13, ; + Name = "_optiongrup2", ; + TabIndex = 2, ; + Top = 126, ; + Width = 324, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Angajati (asociere utilizator - partener)", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Colaboratori (asociere utilizator - contact)", ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 24 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT 'But_cautareGrupUtil' AS but_cautare WITH ; + caction = do_cauta_grup, ; + Left = 292, ; + Name = "But_cautareGrupUtil", ; + TabIndex = 4, ; + Top = 207 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_cautareSucursala' AS but_cautare WITH ; + caction = do_cauta_sucursala, ; + Left = 292, ; + Name = "But_cautareSucursala", ; + TabIndex = 3, ; + Top = 175 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 313, ; + Name = "But_listare1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'txtGrupUtil' AS _textbox WITH ; + FontItalic = .T., ; + Height = 23, ; + Left = 107, ; + Name = "txtGrupUtil", ; + ReadOnly = .T., ; + TabIndex = 12, ; + TabStop = .F., ; + Top = 210, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtSucursala' AS _textbox WITH ; + FontItalic = .T., ; + Height = 23, ; + Left = 107, ; + Name = "txtSucursala", ; + ReadOnly = .T., ; + TabIndex = 10, ; + TabStop = .F., ; + Top = 178, ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + PROCEDURE do_cauta + LPARAMETERS tnTip + && tnTip: 1 = sucursala; 2 = grup + + IF tnTip = 1 + This.oSucursala = caut_sucursala() && ocautare.prg + IF !ISNULL(This.oSucursala) + this.txtSucursala.Value = this.oSucursala.sucursala + ENDIF + ELSE + This.oGrupUtil = caut_gruputilizatori() && ocautare.prg + IF !ISNULL(This.oGrupUtil) + this.txtGrupUtil.Value = This.oGrupUtil.denumire_grup + ENDIF + ENDIF + ENDPROC + + PROCEDURE do_cauta_grup + this.do_cauta(2) + ENDPROC + + PROCEDURE do_cauta_sucursala + this.do_cauta(1) + ENDPROC + + PROCEDURE do_listare + *!* DEBUG + *!* SUSPEND + Private pcPartener,pcPctlucru + Local lcCursor, lcMenu, lcOrdine, lcRaport, lcSelect, lcWhere, lnMenu, lnSucces + pcPartener = 'EOF()' + pcPctlucru = 'EOF()' + lcWhere = "" + + lcMenu = [Listare] + IF this.lactiv7 && listare parole cod de bare + lcMenu = m.lcMenu + [;Listare etichete parole cod de bare] + ENDIF + lnMenu = xmenu(m.lcMenu) + IF !INLIST(lnMenu,1,2) + RETURN + ENDIF + lcRaport = [utilizatori.frx] + IF lnMenu = 2 + lcRaport = [utilizatori_parole.lbx] + ENDIF + + If Thisform.nvalgrup = 1 + *!* lcWhere1 = [where id_partener is not null] + pcPctlucru = 'sucursala' + lcOrdine = [ order by sucursala] + *!* pcPartener = 'nume' + Else + pcPctlucru = 'denumire_grup' + lcOrdine = [ order by denumire_grup] + Endif + + If Thisform.nvalselectie = 1 + lcWhere = [where id_partener is not null] + lcOrdine = lcOrdine + [,partener] + Else + lcWhere = [where id_contact is not null] + lcOrdine = lcOrdine + [,contact] + If Thisform.nvalgrup = 1 + pcPctlucru = 'partener' + Endif + ENDIF + IF !ISNULL(This.oSucursala) AND !EMPTY(NVL(This.oSucursala.id_sucursala,0)) + lcWhere = lcWhere + [ and id_sucursala = ] + ALLTRIM(STR(This.oSucursala.id_sucursala)) + ENDIF + + IF !ISNULL(This.oGrupUtil) AND !EMPTY(NVL(This.oGrupUtil.id_grup,0)) + lcWhere = lcWhere + [ and id_grup = ] + ALLTRIM(STR(This.oGrupUtil.id_grup)) + ENDIF + + lcSelect = [select * from vutilizatori_rol_intern ] + lcWhere + lcOrdine + lcCursor = [crsUtilizatori] + lnSucces = goExecutor.oExecute(lcSelect,lcCursor) + If lnSucces < 0 + aMessagebox(goExecutor.cEroare,0+64,"Eroare") + Exit + Endif + If Reccount('crsUtilizatori')>0 + Thisform.AlwaysOnTop = .F. + Select crsUtilizatori + Report Form &lcRaport To Printer Prompt Preview + USE IN (SELECT('crsUtilizatori')) + Thisform.AlwaysOnTop = .F. + Else + aMessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie") + Endif + Return .F. + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_utilizatori AS frm_termin OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="lb_nom_calc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cPartener.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cPartener.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cDenumire_grup.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cDenumire_grup.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cInactiv.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cInactiv.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cUtilizator.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cUtilizator.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cSucursala.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cSucursala.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cContact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.cContact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 414 + Name = "frm_utilizatori" + Width = 598 + _SHAPE1.Height = 29 + _SHAPE1.Left = -2 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 615 + _SHAPE2.Height = 29 + _SHAPE2.Left = 446 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 152 + LB_TITLU_ALB_B121.Caption = "Utilizatorii companiei" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + BUT_TERMIN1.Left = 567 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + ColumnCount = 6, ; + DeleteMark = .F., ; + Height = 326, ; + Left = 16, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "crsUtil", ; + Top = 80, ; + Width = 572, ; + Column1.ColumnOrder = 4, ; + Column1.ControlSource = "partener", ; + Column1.Name = "cPartener", ; + Column1.Width = 113, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "denumire_grup", ; + Column2.Name = "cDenumire_grup", ; + Column2.Width = 94, ; + Column3.ColumnOrder = 6, ; + Column3.ControlSource = "inactiv", ; + Column3.CurrentControl = "Check1", ; + Column3.Name = "cInactiv", ; + Column3.Sparse = .F., ; + Column3.Width = 43, ; + Column4.ColumnOrder = 3, ; + Column4.ControlSource = "utilizator", ; + Column4.Name = "cUtilizator", ; + Column4.Width = 126, ; + Column5.ColumnOrder = 1, ; + Column5.ControlSource = "sucursala", ; + Column5.Name = "cSucursala", ; + Column5.Width = 112, ; + Column6.ColumnOrder = 5, ; + Column6.ControlSource = "contact", ; + Column6.Name = "cContact", ; + Column6.Width = 108 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.cContact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Contact", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cContact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cDenumire_grup.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Grup", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cDenumire_grup.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cInactiv.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Height = 17, ; + Left = 17, ; + Name = "Check1", ; + Top = 51, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_grdrow1.cInactiv.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cPartener.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cPartener.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cSucursala.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cSucursala.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.cUtilizator.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Utilizator", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.cUtilizator.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 448, ; + Name = "But_excel1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 506, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 476, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 537, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ; + Left = 318, ; + Name = "CMD_CAUTA1", ; + Top = 39 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'lb_nom_calc' AS clb_tx_simplu WITH ; + Left = 18, ; + Name = "lb_nom_calc", ; + Top = 39, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Utilizator", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=poutil.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform._grdrow1) + poutil.ca_baza1.cfiltru=lcFiltru + poutil.ca_baza1.afisare() + restore_grid_tag(thisform._grdrow1) + IF RECCOUNT('crsUtil')>0 + thisform._grdrow1.SetFocus() + ELSE + thisform.Lb_nom_calc.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + DO utilizatorintern_nou IN onomenclatoare.prg + IF gnButon = 1 + THISFORM.actualizeaza_grid1() + ENDI + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_calc.text_simplu1.value)),['],['']) + + If !Empty(lcNume) + lcFiltru=[utilizator like ']+lcNume+[%'] + ELSE + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_excel + lcTabel = This._grdrow1.RecordSource + If Reccount(lcTabel)>0 + Do export_excel_grid With This._grdrow1, "sucursala,utilizator" + Else + amessagebox("Nu exista inregistrari pentru export in Excel!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_modifica + LOCAL loRec, lnIdUtil + + If Reccount('crsUtil')>0 + Select crsUtil + lnIdUtil = id_util + Scatter Name loRec + + loRec = utilizatorintern_modifica(lnIdUtil) + + IF !ISNULL(loRec) + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid1() + SELECT crsUtil + LOCATE FOR id_util = lorec.id_util + IF !FOUND() + GO top + ENDIF + thisform._grdrow1.SetFocus() + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + Endif + Else + amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_sterge + If Reccount('crsUtil')>0 + Select crsUtil + Scatter Name lorec + Do STERGE_INREGISTRARE With "utilizatori",lorec.id_util + + This.actualizeaza_grid1() + Else + amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie") + Endif + + ENDPROC + + PROCEDURE Init + DODEFAULT() + Thisform._grdrow1.SetAll("DynamicBackColor","IIF(inactiv=1,RGB(128,128,128),RGB(255,255,255))","Column") + Thisform._grdrow1.cPartener.DynamicBackColor = [IIF(inactiv = 1 or part_inactiv = 1,RGB(128,128,128),RGB(255,255,255))] + Thisform._grdrow1.cUtilizator.DynamicBackColor = [IIF(inactiv = 1 or util_inactiv = 1,RGB(128,128,128),RGB(255,255,255))] + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_utilizatori_nou AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_contact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_utilizatori1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_sucursala" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_grup" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_utilizator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_partener" UniqueID="" Timestamp="" /> + + * + *m: do_alege_grup + *m: do_alege_sucursala + *m: do_alege_utilizator + *m: do_aleg_persoana + *m: schimb_tip_utilizator + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 221 + Name = "frm_utilizatori_nou" + nid = .F. + orec = .F. + Width = 351 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Height = 29 + _SHAPE2.Left = 287 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 65 + LB_TITLU_ALB_B121.Caption = "Utilizator" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 9 + BUT_TERMIN1.Left = 320 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 6 + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + BUT_RENUNT1.Left = 291 + BUT_RENUNT1.Name = "BUT_RENUNT1" + BUT_RENUNT1.TabIndex = 7 + BUT_RENUNT1.Top = 1 + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 19, ; + Name = "_checkbox1", ; + TabIndex = 8, ; + TabStop = .F., ; + Top = 198 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cb_grup' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 13, ; + Name = "Cb_grup", ; + TabIndex = 4, ; + Top = 129, ; + Width = 326, ; + _cbbase1.ControlSource = "porec.denumire_grup", ; + _cbbase1.Left = 138, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "vgrupuri_utilizatori.denumire_grup", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _lbbase1.Caption = "Grup", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_sucursala' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 13, ; + Name = "Cb_sucursala", ; + TabIndex = 5, ; + Top = 157, ; + Width = 326, ; + _cbbase1.ControlSource = "porec.sucursala", ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 138, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "vnom_sucursale.sucursala", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 184, ; + _lbbase1.Caption = "Sucursala", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_utilizator' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 13, ; + Name = "Cb_utilizator", ; + TabIndex = 1, ; + Top = 45, ; + Width = 326, ; + _cbbase1.ControlSource = "porec.utilizator", ; + _cbbase1.Left = 137, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "vutilizatori.utilizator", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _lbbase1.Caption = "Utilizator", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_contact' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 13, ; + Name = "Clb_contact", ; + TabIndex = 3, ; + ToolTipText = "Pentru modificare, faceti dublu-click!", ; + Top = 101, ; + Width = 326, ; + TEXT_SIMPLU1.ControlSource = "porec.contact", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 138, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 183, ; + LB_SIMPLU1.Caption = "Persoana contact", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_partener' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 13, ; + Name = "Clb_partener", ; + TabIndex = 2, ; + ToolTipText = "Pentru modificare, faceti dublu-click!", ; + Top = 73, ; + Width = 326, ; + Text_simplu1.ControlSource = "porec.partener", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 138, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 183, ; + Lb_simplu1.Caption = "Partener", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_utilizatori1' AS cus_odata_utilizatori WITH ; + Height = 18, ; + Left = 312, ; + Name = "Cus_odata_utilizatori1", ; + Top = 24, ; + Width = 56 + *< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" /> + + PROCEDURE do_alege_grup + ENDPROC + + PROCEDURE do_alege_sucursala + ENDPROC + + PROCEDURE do_alege_utilizator + ENDPROC + + PROCEDURE do_aleg_persoana + LPARAMETERS nTipPersoana + && 1 pentru partener, 2 pentru persoana contact + IF nTipPersoana = 1 + LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc + lcselect = [select * FROM ] + gcs + [.vnom_parteneri] + lcfiltru = [1=2] + lcschema = [] + lcorder = [denumire] + lccoloane = [denumire] + lcTitlu = [Alegeti partenerul] + lcTitluColoane = [Denumire] + lcFiltruOriginal = [inactiv=0] + lcNumeProc = "" + lnPornire = 1 + llDesktop = .F. + locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal,,lnPornire,,,llDesktop) + IF buton=2 + RETURN + ENDIF + + porec.id_partener = locauta.id_part + porec.partener = locauta.denumire + THISFORM.clb_partener.teXT_SIMPLU1.REFRESH + ENDIF + IF nTipPersoana = 2 + + LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc + lcselect = [select * FROM ] + gcs + [.vpers_contact] + lcfiltru = [1=2] + lcschema = [] + lcorder = [denumire] + lccoloane = [denumire] + lcTitlu = [Alegeti persoana de contact] + lcTitluColoane = [Nume, Prenume] + lcFiltruOriginal = [inactiv=0] + lcNumeProc = "" + lnPornire = 6 + llDesktop = .F. + locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal,,lnPornire,,,llDesktop) + IF buton=2 + RETURN + ENDIF + + porec.id_contact = locauta.id_pers + porec.contact = ALLTRIM(locauta.denumire) + THISFORM.clb_contact.teXT_SIMPLU1.REFRESH + ENDIF + + ENDPROC + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(THIS.ACTIVECONTROL.BASECLASS ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=THIS.ACTIVECONTROL.CONTROLSOURCE + &lcval=THISFORM.ACTIVECONTROL.VALUE + ENDIF + DO CASE + CASE EMPTY(poRec.partener) + AMESSAGEBOX('Completati partenerul!',0+48,'Atentie') + THIS.clb_partener.text_simplu1.SETFOCUS() + PLRETURN = .F. + + OTHERWISE + PLRETURN=THIS.cus_odata_utilizatori1.salvare(THIS.OREC,THIS.NID) + ENDCASE + + RETURN PLRETURN + + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + + DoDefault() + + This.orec= toRec + This.nid = tnId + This.cus_odata_utilizatori1.cactiune = tcActiune + + *!* modificare v 2.0.11 + If Reccount('vnom_sucursale') = 1 + Select vnom_sucursale + If e_mama = 0 + poRec.id_sucursala = Null + poRec.sucursala = [] + Thisform.RemoveObject('cb_sucursala') + Endif + Else + If !Isnull(gnIdSucursala) + Select vnom_sucursale + Locate For id_sucursala = gnIdSucursala + If Found() + poRec.id_sucursala = id_sucursala + poRec.sucursala = Alltrim(sucursala) + Thisform.RemoveObject('cb_sucursala') + Else + Go Top + Endif + Endif + Endif + *!* modificare v 2.0.11 ^ + + ENDPROC + + PROCEDURE schimb_tip_utilizator + LPARAMETERS tnTip + + THISFORM.do_aleg_persoana(tnTip) && 1 pentru partener, 2 pentru persoana contact + + ENDPROC + + PROCEDURE Cb_grup._cbbase1.Valid + porec.id_grup = vgrupuri_utilizatori.id_grup + + ENDPROC + + PROCEDURE Cb_sucursala._cbbase1.Valid + porec.id_sucursala = vnom_sucursale.id_sucursala + + ENDPROC + + PROCEDURE Cb_utilizator._cbbase1.Valid + porec.id_util = vutilizatori.id_util + + ENDPROC + + PROCEDURE Clb_contact.TEXT_SIMPLU1.DblClick + thisform.schimb_tip_utilizator(2) + + + ENDPROC + + PROCEDURE Clb_contact.TEXT_SIMPLU1.GotFocus + IF EMPTY(poRec.contact) + thisform.schimb_tip_utilizator(2) + ENDIF + + ENDPROC + + PROCEDURE Clb_partener.Text_simplu1.DblClick + thisform.schimb_tip_utilizator(1) + ENDPROC + + PROCEDURE Clb_partener.Text_simplu1.GotFocus + IF EMPTY(poRec.partener) + thisform.schimb_tip_utilizator(1) + ENDIF + + ENDPROC + +ENDDEFINE + +DEFINE CLASS pg_meniu_princ AS pg_meniu OF "..\comun\clase\ofundal.vcx" + *< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Page1.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw5" UniqueID="" Timestamp="" /> + + * + ActivePage = 1 + ErasePage = .T. + Height = 422 + Name = "pg_meniu_princ" + PageCount = 4 + Width = 456 + Page1.Caption = "Organizarea companiei" + Page1.Name = "Page1" + Page1.PageOrder = 1 + Page2.Caption = "Liste nomenclatoare" + Page2.Name = "Page2" + Page2.PageOrder = 3 + Page3.BackColor = 255,255,255 + Page3.Caption = "Entitãþi" + Page3.FontCharSet = 238 + Page3.FontSize = 10 + Page3.Name = "Page3" + Page3.PageOrder = 2 + Page4.BackColor = 255,255,255 + Page4.Caption = "Utilitãþi" + Page4.FontCharSet = 238 + Page4.FontSize = 10 + Page4.Name = "Page4" + Page4.PageOrder = 4 + * + + ADD OBJECT 'Page1.Cw1' AS cw WITH ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + TabIndex = 1, ; + Top = 20, ; + Label_item1.Caption = "Datele firmei", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw11' AS cw WITH ; + Left = 5, ; + Name = "Cw11", ; + nid_cw = 5, ; + ntip = 2, ; + TabIndex = 5, ; + Top = 116, ; + Label_item1.Caption = "Calculatoare", ; + Label_item1.Enabled = .T., ; + Label_item1.FontName = "Arial", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw12' AS cw WITH ; + Left = 5, ; + Name = "Cw12", ; + nid_cw = 6, ; + ntip = 2, ; + TabIndex = 6, ; + Top = 140, ; + Label_item1.Caption = "Utilizatori", ; + Label_item1.Enabled = .T., ; + Label_item1.FontName = "Arial", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw13' AS cw WITH ; + Left = 5, ; + Name = "Cw13", ; + nid_cw = 7, ; + ntip = 0, ; + TabIndex = 7, ; + Top = 164, ; + Label_item1.Caption = "Rapoarte", ; + Label_item1.Enabled = .T., ; + Label_item1.FontName = "Arial", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw5' AS cw WITH ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 2, ; + ntip = 0, ; + TabIndex = 2, ; + Top = 44, ; + Label_item1.Caption = "Sucursale/puncte de lucru", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw6' AS cw WITH ; + Left = 5, ; + Name = "Cw6", ; + nid_cw = 3, ; + ntip = 2, ; + TabIndex = 3, ; + Top = 68, ; + Label_item1.Caption = "Departamente/ Secþii", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw8' AS cw WITH ; + Left = 5, ; + Name = "Cw8", ; + nid_cw = 4, ; + ntip = 2, ; + TabIndex = 4, ; + Top = 92, ; + Label_item1.Caption = "Gestiuni", ; + Label_item1.Enabled = .T., ; + Label_item1.FontName = "Arial", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Pict_meniu1' AS pict_meniu WITH ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page2.Cw1' AS cw WITH ; + Left = 6, ; + Name = "Cw1", ; + nid_cw = 8, ; + ntip = 2, ; + TabIndex = 7, ; + Top = 187, ; + Label_item1.Caption = "Categorii de entitãþi", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw2' AS cw WITH ; + Left = 6, ; + Name = "Cw2", ; + nid_cw = 3, ; + ntip = 2, ; + TabIndex = 3, ; + Top = 67, ; + Label_item1.Caption = "Tipuri de documente", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw3' AS cw WITH ; + Left = 6, ; + Name = "Cw3", ; + nid_cw = 5, ; + ntip = 2, ; + TabIndex = 4, ; + Top = 115, ; + Label_item1.Caption = "Judeþe", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw4' AS cw WITH ; + Left = 6, ; + Name = "Cw4", ; + nid_cw = 2, ; + ntip = 2, ; + TabIndex = 2, ; + Top = 43, ; + Label_item1.Caption = "Lucrãri", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw5' AS cw WITH ; + Left = 6, ; + Name = "Cw5", ; + nid_cw = 6, ; + ntip = 2, ; + TabIndex = 5, ; + Top = 139, ; + Label_item1.Caption = "Localitãþi", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw6' AS cw WITH ; + Left = 6, ; + Name = "Cw6", ; + nid_cw = 7, ; + ntip = 2, ; + TabIndex = 6, ; + Top = 163, ; + Label_item1.Caption = "Valute", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw7' AS cw WITH ; + Left = 6, ; + Name = "Cw7", ; + nid_cw = 4, ; + ntip = 2, ; + TabIndex = 3, ; + Top = 91, ; + Label_item1.Caption = "Medii de transmisie", ; + Label_item1.Enabled = .T., ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw9' AS cw WITH ; + Left = 6, ; + Name = "Cw9", ; + nid_cw = 1, ; + ntip = 2, ; + TabIndex = 1, ; + Top = 19, ; + Width = 180, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "Tipuri de venituri ºi cheltuieli", ; + Label_item1.Height = 18, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 1, ; + Label_item1.Width = 162, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Pict_meniu1' AS pict_meniu WITH ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page3.Cw1' AS cw WITH ; + Left = 7, ; + linactiv = .T., ; + Name = "Cw1", ; + nid_cw = 4, ; + ntip = 2, ; + TabIndex = 2, ; + Top = 104, ; + Visible = .F., ; + Label_item1.Caption = "Angajaþi", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw2' AS cw WITH ; + Left = 7, ; + Name = "Cw2", ; + nid_cw = 2, ; + ntip = 2, ; + TabIndex = 3, ; + Top = 42, ; + Label_item1.Caption = "Responsabili", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw4' AS cw WITH ; + Height = 38, ; + Left = 7, ; + Name = "Cw4", ; + nid_cw = 3, ; + ntip = 2, ; + TabIndex = 4, ; + Top = 64, ; + Label_item1.Caption = "Asociere entitãþi-secþii/gestiuni", ; + Label_item1.Height = 34, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3, ; + Label_item1.Width = 125, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw9' AS cw WITH ; + Left = 7, ; + Name = "Cw9", ; + nid_cw = 1, ; + ntip = 2, ; + TabIndex = 1, ; + Top = 20, ; + Label_item1.Caption = "Entitãþi", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Pict_meniu1' AS pict_meniu WITH ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page4.Cw1' AS cw WITH ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 6, ; + Top = 148, ; + LABEL_ITEM1.Caption = "Configurare seturi", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw10' AS cw WITH ; + Left = 6, ; + Name = "Cw10", ; + nid_cw = 4, ; + TabIndex = 4, ; + Top = 100, ; + Label_item1.Caption = "Opþiuni", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw2' AS cw WITH ; + Left = 6, ; + Name = "Cw2", ; + nid_cw = 1, ; + ntip = 2, ; + TabIndex = 2, ; + Top = 14, ; + Label_item1.Caption = "Deschidere de lunã", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw3' AS cw WITH ; + Enabled = .F., ; + Left = 6, ; + Name = "Cw3", ; + nid_cw = 3, ; + TabIndex = 3, ; + Top = 76, ; + Label_item1.Caption = "Blocare de lunã", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw4' AS cw WITH ; + Height = 34, ; + Left = 6, ; + Name = "Cw4", ; + nid_cw = 2, ; + TabIndex = 2, ; + Top = 38, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "Vizualizare istoric (re)deschideri luna", ; + Label_item1.Height = 50, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 0, ; + Label_item1.Width = 172, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw5' AS cw WITH ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 5, ; + ntip = 2, ; + Top = 124, ; + LABEL_ITEM1.Caption = "Categorii seturi", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Pict_meniu1' AS pict_meniu WITH ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + PROCEDURE Page1.Cw1.do_actiune + DO viz_firme + ENDPROC + + PROCEDURE Page1.Cw11.do_actiune + DO calculatoare.mpr + ENDPROC + + PROCEDURE Page1.Cw12.do_actiune + DO utilizatori.mpr + ENDPROC + + PROCEDURE Page1.Cw13.do_actiune + DO rapoarte.mpr + ENDPROC + + PROCEDURE Page1.Cw5.do_actiune + DO viz_sucursale IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page1.Cw6.do_actiune + DO viz_sectii IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page1.Cw8.do_actiune + DO VIZ_GESTIUNI IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page2.Cw1.do_actiune + Do viz_categorii_entitati In oproceduri_roadef.prg + + ENDPROC + + PROCEDURE Page2.Cw2.do_actiune + DO VIZ_FDOC IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page2.Cw3.do_actiune + DO VIZ_JUDETE IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page2.Cw4.do_actiune + DO viz_lucrari IN onomenclatoare.prg + ENDPROC + + PROCEDURE Page2.Cw5.do_actiune + DO VIZ_LOCALITATI IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page2.Cw6.do_actiune + DO viz_valute IN onomenclatoare.prg + ENDPROC + + PROCEDURE Page2.Cw7.do_actiune + DO viz_medii_transmisie IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page2.Cw9.do_actiune + DO viz_venchel IN onomenclatoare.prg + ENDPROC + + PROCEDURE Page3.Cw1.do_actiune + DO viz_pers IN osalarii_comun.prg + ENDPROC + + PROCEDURE Page3.Cw2.Click + DO VIZ_RESPONSABILI IN ONOMENCLATOARE.PRG + ENDPROC + + PROCEDURE Page3.Cw4.do_actiune + Local loCauta, lcSelect, lcTitlu, lcFiltru, lcFiltruOriginal, lcSchema, lcOrder, lcNumeProc, lcTitluColoane + store Null To loCauta + + lcSelect = [select denumire, id_tip, tip from tipuri_asocieri] + lcFiltru = [2=2] + lcSchema = [] + lcOrder = [id_tip] + lccoloane = [denumire, id_tip] + lcFiltruOriginal = [] + + + lcTitlu = "Alegeti tipul de asociere" + lcNumeProc = [] + llToateIreg = .F. + + lcTitluColoane = [Tip asociere,Id] + loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal) + + Do CASE + Case Upper(Alltrim(loCauta.tip)) = 'SECTIE' + DO asociere_parteneri_sectii WITH loCauta.id_tip IN oproceduri_roadef.prg + Case Upper(Alltrim(loCauta.tip)) = 'GESTIUNE' + DO asociere_parteneri_gestiuni WITH loCauta.id_tip IN oproceduri_roadef.prg + EndCase + ENDPROC + + PROCEDURE Page3.Cw9.do_actiune + DO entitati.mpr + + ENDPROC + + PROCEDURE Page4.Cw1.do_actiune + Local lcSql, lnSucces + If !glLunaInchisa + + lcSql = [select a.*, 1 as cu_tva from Vact a where 1 = 2] + lcCursor = [actactan] + + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() + + If lnSucces >0 + + Select actactan + Scatter Name oAct + + Do update_coresp_tip_part + Do update_coresp_tip_cont + + + Do update_jtva_coloane With [],[],1 + ooo = Createobject('frm_configurare') + ooo.Show(1) + + If Used('coresp_tip_part') + Use In coresp_tip_part + Endif + If Used('coresp_tip_cont') + Use In coresp_tip_cont + Endif + If Used('actactan') + Use In actactan + Endif + If Used('jtva_coloane') + Use In jtva_coloane + Endif + Endif + Else + amessagebox("Aceasta luna este blocata si nu puteti face introduceri!",0+48,"Atentie") + Endif + + ENDPROC + + PROCEDURE Page4.Cw10.do_actiune + DO optiuni.mpr + ENDPROC + + PROCEDURE Page4.Cw2.do_actiune + DO deschidluna WITH .T. IN oredeschid.prg + ENDPROC + + PROCEDURE Page4.Cw3.do_actiune + DO VIZ_LUNI_BLOCATE IN oproceduri_roadef.prg + ENDPROC + + PROCEDURE Page4.Cw4.do_actiune + DO viz_log_redeschid IN oproceduri_roadef.prg + ENDPROC + + PROCEDURE Page4.Cw5.do_actiune + LOCAL lcForm + lcform = CREATEOBJECT("frm_categorii") + lcform.show(1) + ENDPROC + +ENDDEFINE diff --git a/Clase/oparteneri.VCT b/Clase/oparteneri.VCT new file mode 100644 index 0000000000000000000000000000000000000000..1fce328aca201a3a04038d48ac15c3c7b97411ea GIT binary patch literal 679188 zcmeFa3wT>sejj*15`2n!OO|C@zLFm#B?uNsJuKVw3SUFc1hy7?T7I zf_^1!>g~*ScE6-u&vf_e#G6f>>}0ZSGLy---6U;x@@%r-Ce5xVX|~!;x3${YozG1g z$JUBgB+~o){m(h~UVs2a%90bOf&}8;^M3r#Isf-jozHJqN(Jz}{rOLG1UUDbpNgk5 ziB!@VbR1_OeCQCu7~UH#7jx52GFL8_UJf~jLeBA!b2#Kgj^aCjFP`ypsMDnH&Yzi_ zEzL~6l$&0t6ii_2c=46O^t^cs#-?-g_9YN8p>31-GiP%1HcQ=dHt#Ra7At5^@wHsJ z;B?zczbcKitviBN@!OA<@yph&wHKx!WJ5Q71x4^$r=SR`!H_Va9S=PF$7A=|^33F! z-1OvJu3Rb17RtrR{KCw_bgq(H!{8h>X*yX-rBI$J&YFGr8&%Iq`$j!v~ae9 z#{oW<3v;D;3}R_^x;W3!$@%lSxq>saP%$;gW4SQ9Fk5l5#me-;+490nY2KNvyut}` zVwK5r<>J(2sXSFEJ16kyWTc4E+?m2OYnU&-R=8EACv!6ew0d8fwdBrB7b5#yIJo|x zbb8tB@aGriE2SCpwkI5Z4*&C|nT6Ts@_^IAbMqxYGKMSsQvMZ_YLj%4l}|E_h2`s4 z-*KWmHCZWDa?_@y7LH_{=j#^Llpar~V)5aLblmYTitf(Ad|ofU-oEb6Okui^uQ;;{ zGX*Y5XQW)3abEJRP$w~4DLK({IrpkFontyCOUcv@z3OJ{?wr8PCuXbic6WAnCeAvD zndRPv3n#6Nu?BrO0s9 zbRMy3j2a=`&F3~gd%idyPM2QJlorbQ0!trsu&Ano2lsgm25?H`Q`ip+gQj5;GE`ca zoywL5!`U#3PY!cFyF0yE9WKmQ%B5FtWQgmOmcYi@-C1Gt{oq0vaZ?*O{LDycwqlo= zf8#`7P8FvxzJty&blN7V+VQ=`*p5YXrgWxc7mXj(n~prJD+_#`l?|1qr%UoIS@PMlhHX!AYtL9mb?q3S+tQ3pO3MuF>LbVIBeK zkA1a$jC6PE(oYtO=gxDhM5XR?KcdaP8W|uU=CL38OGg8$5@+(|()9FDuFUFClHQ&V zA3N+D)uYF|JBM=l7hm4fDDw zMoQ&^SHPhV8gg1zd#1o19`mNv-KyLv-T7Ct%bn_Lmy}uzsAa@7sdkk;naGT!(qo%d zI-W_Kj!&LQ4^L)O+34tA)uz6+sMK;dGb=pV0s?BWNeXC20pqce#Ar4>;T5$>#iFCJ ziBVn5L^{#Cu}vM;C1p|d=4*IfTHdU(C}#7uOU-Jr#k>d2d#ibGGwJ`4oXR|6`vY3WMvUn^+_n~4~Pwk|EVs6GC~gEnzzz)j2`WT;Bq zW=npQB_Gp?+2O@Dmi*|-#4K47PkD(MgbY=Qx7(7X&2Q+$+gbAVm2H;9Zkxa3C6+dC zuP(X6mMqQq4>~a?1v9gv&63z{^R6a$2Bpm%w&ZS%GoS)vu%MH0bft0`Fity1MKVc8 z8N%L38foB80~%L@>d|KpJwJ%nxC4@1+<~;Q3wj2=h1qO(r+cSbyaSPo-I#6z0SMZ~ zpdAS6R3nUQCMpig(ogzr?RG02ji+8g$ zu9_AV7J$18RosI>LMR792IEfk?t4qijM^hn8jxh%z@jg z2USQTx`llqCOcay&xH1A1RJwvaLIjr=<{Z2;81aPD*jSow$gceomD-6s>Vt$6{gl* z(`MO;9Q9Tw!0RW2%fqO7-*pFkqY5Wx=N2ksxp^MQJ*^z6-?zi9dm{;Ekf4*B7>D~l z8E(B#_+Vx-Iqc1SNc~_{YMd~V+9Ykp+EYl_uI{=L z{BkRxQy2eX(*}a7&b`0l z0VH8^A})Nnp`EfXZsESTyKDKgD0M$eZBvQlXd;vCjbYDxe=O%RP{$Rs7Z7$$ zH7It6f15x;r0eL6qU7*(OWvu%>B0WZgJfzoB_`P zR1C1WrHX4=R0rCA+*a6UHY8rz^9YT@5pr3wpWr_UA zp38k#_N`La@(pbrgc`jMd0PhyZBbv6y-%Yp*!y;OB5diGjuQQlv*#NO$}T>P3<$k+oY=BpPK%FtL64fC$Go6H z6ZE(j^ce(^0{E;BLJi!cvWro?6Ilx*=Ib~v&?Mq}Ocujm#6P#Rd>=xF5OQ^=!V1I| z0Azy@0}byHu}x8`02tA56++J zUVa=cIKdWdP}3!i6o!2jT)k6;fro(J)ii4Q#85BjNYbd>Sk1Ctm@c8~vKmjWQWkax zQuPzF7@ld6;x0&Pm~q2hU~Ey}0POrv00fJcZ{N7wrFJbQ)Z0LYm+x7DmbR(ca=u*Y z?GyUS!&yJaW;Lth$B+B5>n9LOG+MA&kd_7>M}?pqQyWxvG&wOAPlE(a$J^BCXfmBj z591-0O=L$WT7+V4Rr+nC4UVNoQ_*A`=b@yUH1FMrXKC)MyxG`R#EwNXPXN{659>fx z@ia=8-wihRL^_j7cPU+zyli1q+7vq(I~k8Xu^I8zAsuLaY(gS~O4@}JIy#<(6rdgX zGl&_B;wdTlGOY^4H!$Z7AjR2$Oll$>i=*02oxqUk#0OBv+2~R z&e4e!QX8V#1rv$4P2QVMiWW-O5!Z!B7iH#4A~`;h<+$)gw-w2P`UOA9L^8{t)A3k~ zI*}YlPfo7vM3};WWJTr>yX&PgZN{&9mhM`W*xDCR*Nacx4VrVpuqEhGpXc9Yc z8MY%eI&4bA($|C;%Rul51~nNSLq_`qa7#)ACulU4?m&!r+={t2c_u)2q(>9Uc(-J9 zUww0tNyqS(w9_VUv9WmeWNMf-60E_e9G6N^7)OZjnRpU_hya4fSn8>GYUp$E7)Cfc zJZv8^I1^Y4X#fs@&o(8fWEph;d-P^C6?+0TU_df$Dmsx(jU=)M>N0({TMp2rfV$MA zE;nO$1OKQ+b*kiW0wbV7+VYY*l*>eFSHr1H44^r>RJY`f*iD3;wE0?&yTmsan^haw zL2V#w+ZJ1uoDsqmYEz5k0+B0&I5wn%A>^HWU#$r4M)2Pv>ne)^x#6@J^5DPr2L|;n zvRelv3ad$nx34I*4>yWCZ$es1aiR$(*SD;pY5U7o(aejSvt+5jFL z<{Mx!9Dmy5l>ve=3mBnzJn0|IR?JsCmP~c2zZfE(`{ zciAZH&~H>Y9ZR!?+-o`EM1;s3R3Ck`Mdk991q%Dzs52&NgYq-6f7XOncG-yNSqRa~JD;09SNOI`5m9fbw^YA+QN3+`zpGjT{Ok<`15Nn*)j)sX zZ{jzqUX;J(H9UV;?M14+fgEy`kv|gnN#y>|0cbeX4dL6BMo4F+Jjpjh$ZPncJBK}@%*&BGW<;lR7mUont zjvD^F`5pCE^Pj6Xn%`1e5T9##JrHQg1%^<<>j-7}QS}E3xllqRa2W05zZSG(Z(yM5 zt-$MnOyD=0zY=%{CE4`M^Ii3A^>*M5q~-Hr8MSCYkKQ{dsR<>pRctTn3Pkb7eEjzg zM!EJwj`D7NKZ`G)Tkt)P??1+uoaAe*+6Zlr}{J-M+f8qJ3@V$cP|MPC8 z{wpxP@I0i@+sv6S@XqC z5+Ot=Q?U`Xi5TWjV;DctQLyI|W4*d024XPw@7>=qozJ{D?KVIQGHr|=Nkk@!XM6X? zXXYxengVo8Uq}~c(j9P~b)v~(=XvLV>5q;`m5b+!v$^T2)Hcv z!c5Lhq+dBCg5JB~@@Dc(N6!}Lsn1} zX2!e&5r9Urg1k7L3&Kidv}H`sW)|{!5#XIG#b3b)RZ8Wsc`Bf2fKbR^h_ues?q+_B z;y4C&jKwpV=!y7H>girzdHHym#7yYW0cd&b(=YpMQ`7P6L^_EUu>h}iBDPIaCWltY zS~4>hiu5`6IXxjtp{rvsi!}iUbUGtAhp3$b$MuwlY5?-prD8*|f_Ri@n<(RKmbGc( zqq>Ry7`D*=js`N-iU#`AtX3LwOZ$B3-O{Q?&@8L!!E@Id=2!n84qd z5yx)ksD36_baG@~IwiAmbI?{mQ}PAy)a!wk?WG?UC7o~V0fDx5U#O&V$J&--M+-n~ zI@}||Ej^*W#>--zo|XNAqVH6m`&jS3&_1k8e{1@jgARo1Mqxq|n_%~mcjC%q{A;;7 zA(j^Qyh#q*^)1H$Nmo4L5)ZZtYlqoZxQRATb7*z z9w$Xqga&tD2sFb5@6Ylff9TmqkqKXuX|=xcgoXM=rCglpMJq6D zeK>sU$?KTXn}57K+r#nj4~N@6clyof`Uj{%jVne?*XQf7ug0pxXoLpoI-??swq`gO zrjyz;IFn6-H;|6TvKW379qM_0u!ky5DBKm&5nf!TMjbhz^v&Q$D3qhgfm)kP(2S;A z*-ff?4Kl(yHDl%MwU~n$5sn20! z)wgK$E>>rzb%d-HcfBAh`jLHRoV9q6)Q6V$BxO}1y0(`*EM^xR;8>;Ev&C}@?$uTI<}8m4(zHj7e{8 z5us;g2k7gQSV<>fi55-Io-X9qTukVBlyOM6AU+C&t-3ALHKiEA7J6=WJSrjX=-b86A+kdvz{%;t+uM~4g|N&-AlU14F`6yZQ`(=GKSAofLPVb+Jo zb1tl86Z}DIRb6geDCtHvp0XU1RX#kW2sFe2Ak>*M`2So(E z^2X73C9rEAer|#FguKrmcvP3#@vKkQ`@9}7f`C_-3G-I5Ov3tF0E(r)7+9b|4tBdo zXgRR$vXSGiueQ3PVXr1rrme!2{H_h4WklUPAmqG)b*L@Zsz$D(SWkZJ6{?G|g?f5M z>nK(zQfTq`WXjK*9SAdRinKLYN$h%u+%IYNm2Qi(#bep8uViBg!3eiy+B!hM zudi$~Fg8Cjb3VBf>!L9_HV$Rm>I|gbQbY?);MDlhS+7~xnp~mu`oW+|pzRyb8j-f{ zt^Ac!h)?psv2o9^n{gx@5@6?^W7TL_gW+9(T!sKuco>dVV4o_S%`Hqn>)@9rdsflWcGC7uINOqYPQfV!YkzOY*i!K6dyQ5|y>v9w8|h+4eOg7*&4 zwuWzJL#qjmJ~j{2v){?&UMheqq?>2fTS!itvXg@*{#i_@NenL6^psuB4yt#{)-;2w zQz%7CYM;9Iio`Zfr=CUG=)J4GTqn7S)aj=seYI@4P99$Zx67j0Zpa*H<2X5r4V)^- zb$e_>%fy`A@@=S?37GcVFiDxtReJY@_l0mAdf`M_grLO1=!K%(%)%KM19(_xrkqDk zP`g@Vv7EC!9$a!$Db3#1~j1TYO~f})$4 zN6z!5DWllmQ(t+(9`NJk(j0)z@-^Mm65vmiDa_8VNClk+on}9l0JWYR+5ixq@@OAW zq1nRAW-*wd1}ng)9ktIu6!~!Ixep)M2VI4I2WpU(kYjLzeO5UFLvMooP|Nu+aKljm zCh3Q|(DVwR0uRF*G`v(zi8Ku>Z2~qc~Kvw>dl zXi3a3u(Og`h1IBcZJZF*{H7>a%_Fp_;XkCI9LR6JW2&{H$ZA>8>~IkZG}Ny4OM|>n z05#i$Q(^|HH%84jJXM+(8Vb1XgbXiZ|f#54%z?>?t}BO|SyqAHaWuGZP=E`yMMWQ5`9#1|jkl;_TS0|zUhi?@8 z8AxRLb37(xu9l(0YcpB^+Z#Fe@lzcEqZ)l&;}^wgR-cni!SLu1PT>v#t(tnQJiB^& zgb?(%@%o*@YI!=5Wi0}Gx+$p4(`K527l0Nl+ya2#e(CeT!b>?T07ajkh2E#6FoX`GkUZP~+K zn6)(1c~G~ojl-sv0UD#}5M%NRD=PhNGs+wC#m>Npbuyn@pnNnEraEodO@o(}Nn+(9 z&i>+po6H8ROsXqKTWV@C&4g)HO@ytvIv54(nNu69$J~T=(%bO-+D@~UW!0+cM42TR;6?O7qI zM#EiTh@iKo-?Wa?Lv#2DLhbz0Zmr5(?Z^?T5b|3MgQ(07lo%MV%igzDXEB`&PSZlU z-pl7r3y-35Z@%2_3}Bq?USE547TZKI&93)ytRz;%-JLi@ zAZ3O0u|{nGwDA5~tp$YXvfAccL%vgOO7UC&^LzhAD7nB%s-0C^RVPBBZLH&|1AGJ_p2Wa=w8bB-WqoJA6s@+bQLR!%B~sZ4 zCq>sTQl)A@uBpR0IUqp?f)5#83Ha#dWZ zM~f^zjZLN!h_sc+i%)x2>-55a)dRB+15KiS*kn4_g$k0xsZ*IOL^+!k^{)X_K7(F6 z24W2yh1zUnBeY9DH<5u3qSi4!VHG(6AXJRB@QXsU886i686H%ZxfgLQBC5^U5##wX zmnhUnVWg>&nd~#8aa}2Ns)r`E`gRmgLy`Un22ATqdkWvxYjXn>T1BTSaT+SGE7#l# zTjZGHMukpe6=HCxzInfBnd%@eCA3Z~G9If5$4FAOv&L|`YD71wnp486T5eXgXT`hJ z!-EoLyNcq7c?lTAlhn#XNUKVVgO49H?=32GzV!09&D&(s(+lK?$%%R zv;}Ks0%(VjR5*cz+SQC9QK%!QM*;>D&Fkp6{!y<< zE)*=}6kFJ!uSl{to*H3KI!@rM#Z(C$jC@8U%4yBU4e5qrWbpN2fM%9}Je#oE6^If$ zeAJu=IV%%NnPgmm+fXRbVp~vnQ?PelX)4TR^4Eid$#Y^IU6m5JFPSlolcT8;>D8ne z09G3Z$D*s8gS6yf8_gSk3dM`_sKl%SBzL zr=#Id;3^U5GAxhMpCm60ml!7Ex2C5$g)~emM5AqUR!{9KTJpG+G_JsHFf&-q5^200 zHFs{c48@xejj9OGaHV?Ab+H!atC|_BJhMWggVum)p;rtZ1aP=^q*K)(N_IsZ=9N8f zOrBG)XooA83VFifrln36eIWVQkvN75=cc{@=T4-TAt;~Mi@BCh$HNPouTO`1R>)ja z+B7%@q_8G)csheK->1+jebNM&UD!2yuwPG`dxYd@uzqU}1SYT3)!Nflm}V?ic!etl zOQ5w*6o^#2K{d*(hs*APdf0Hn@d#~UiRSq$#$}rJ4Ciy1cB8)6;8P9G){d^liQB{4 z6&)*u$2Pj7^SfT#vcmP6Y4R%W=(=)e;T#PF;B>KKQa3E-i&j1bxZGFcCus;QY`7&d z{1S{dSYJ>zM@l?f`77QGtHqOQ(UKBL8gfP~Ye9^|JywykqOW1PGotn&ci#R1)0v>; zGcRowu)I76O*O9*t8~wmYU(BFV+JLroN?pn4z07TwZa<9fKY2~Z=1`N@>x*I2EAeY z6CPqFt`uX;RQpw<^{XkjH&W(uQKzi0=6f@7e8D$=Ur*-ErM&> z5^)sP0oUWJ^sX^n(|=nf_i;elHuX~p(iV<=(EXPN(p9kQfpit5*Mjs{SDExxLArLY z_JKI17@q)$TL-D@0P*QndfOPpGZ;ZPyQL(%0AflKVbxzEpN_X{l&C(LT3 z1M~8prR8Hd1rS1RW{mm3#)~2H@ff&D;K^)xe}jI1(4+O3nouH56YeXzSgLGQDIi{W_RLFE)e0WS=>>NeB*pEAIlmsJa2eKGrAidvwD0LR`ny`wy+wR<_2v+d{f*bp=|})Z3?N+u(38V zKe&znv964UI3(zoz}pDk+v^0aJq$ zS*R8RgP;qzgl*xON3Q*sZ4`xU9c5mOSWw89BFW!&|J^*Anb2+ z0JNXtPdm7V>A}2{jh>KuO`OySG!skt=N_CrJD*=DSDvdBX68!Iy#mQ-;gxW4>J=xJ z8XJeZ0q4O{U9&E1e`y9A^4%|KmJjV5HHO}j4vfe%iW+u<%rY9j`tQ6qAr&wj7 z6|ws9pUgSn7&hq*p98kJYd;5WEAu$@47A*3u?}UPza+Xh^6)Xxy~ah8g`9N?!mRf1 zI>7wKc%ov>a#pNaZZc2QcHuVY|ED7k=pQ&5>OXv3dnaoE`uDDGgL?zonor-5984ge z44=Xj3{h5N`mC|V>j3m`#Y!{g((rxzA4$O(#yqa?8ywA|8QR6#!w0>ER{#a@_{5aclu znua#s?KZ7R*p7RK@-KKc(|cC>-lKQH$x=Dz^SHM$|H9;1x%_RCCfBB{|KYl0MaPEL zi{4EbE2I3?@PJqe*}kA0}2kPp4_`?Sdnsy9FA z@TLiKBi^#!(|5Is+d*+Rr@dv-xF4@{Iw!u!a4$FC=`-$vzu$5jIAiE>5H<6jYe`AR zba0k;4;=wkbt(zF(JkoFxqwYdhjK{DG2<=Oo7APvN;{Tw!6jh91(91#qz5h%OK?H# zHWO>XMdDzKxgAc^vbbs(00N8B)C4bZHUI<9amlgh(+T(jJOS=)Izvx^fF-DVCNkMX zGKTAn#d#pY+HjYvBn+yjv$)a*e%^*B>%d*N!d0)@u^W9bb$G9BY6vc)hO;SmL3x&} z*M-p**m@Q#R{OM$3~^kR_(vaAUj+LZ(L$v?==b0h?AuM>4ZH(~VcJ31x78bP3kIiP zE#Jj`rGdaZ>eq3fD&2%N1>S-uhIeqI={tzmc}U(=e^~TpeE%3*t!q50yE91BRo^w93@!A9dUR}0 z$g++-5h`_P_q*(u>kn6T(p875I_c`eRGoIUA#zi~fZ4m$7%oQ9)pD_cw;#X%AfN(Z z9l$9)jG*Unooh^cF;12i;0+F*m7w-#p#yH~XL3*vE*H+pErt{Gg{j^iZx^TPbO!=? zcZ3%Ti(l=e-Do8b<0c|pC|D7#;mMb9O{)0w>fPVxMCak9UCMVx%B2}c_I~Hod3YOk zic?GrXBm$la!!;>3v=@#%RWQC@MJcrEjG2Uwe6hv5`m`|HZSI#&?iR+82Y9^B{kllZM$(4cLr z2^_+$hf~?opm-DFt(Ap*o);lj&-vrWI)H0&foLs=)I&9SbXMo=x6bXx+1o_*dod7h=;_U7 zte%1abki)JhTGK!KPZ{RT_pouIFL=yT`PGP5Kz44XIymoN;0{ANB1_;U(K6n%%dTg zisvlf;9-}p*_-|B8hfn5Um{&E0*<271zho1bg;Hj7Q*SrpPpe~@-}kA@^PcQQtSvC zE(Ho%!ytBgsZGysjQ7*+@qW-&Q`8wVh=)98*u#Jo7Y@0PSRj(yExaA$u--s26N zYrFlMnVN)UR>7~M+z?1QV{U5GsBWBRGq{22jO=$NaPLYW$s;4uz)imYR*4Pqvl2hACqsiP<#Xl+`)->gVuk@J@1c1aN9@?P}w2u zuikVAa6gFumJ<%C9YcLzME@E9q|GEX-EDlg#FKimkD+~Le_rcc10-y_I9qaW$y)Fg znOmLu=FP2?XNvoydUNZ)EyO?9;u;eJ$}n@oNCYF^c*4boso|6#p z9>9oHjgW7d$_PEY<`J?k0vbY6pv|Qe{v*~Nzx6+Fp0$+1-!%!oj$bmVe!`c*QVNg2 zo4tG2M@-+5050v;_i-Tse)a!%KmP%o+I`skk$nX(6&%JELmqS}czKS)4P7ejarVGB z%toJzCNpigB|yxCJ;GqVxjt8I8yYx^uS*a#=q2M{^#}sL8S?zXjFS^ZXYdkc!WDTo z?v{b`7vKi9R2IU%VyOTu9Auz$tQ<|K3Fa_Qyj z4G!B)wP85WaK!61rYFC|FbV`SHX{(1phsLxeER}Uxr)03UF~qHUlrfbrwN+l|?XtHoA+TK_?mi z19cYx!OOe+u@>0pVOhOiSU-4EV4XGJ98f=cJy0hy*a*}uVj!>$CSa{+;`M<$s6Rir zuVu#Mf^HWZ@0^$u9n2V}M^bR-ek=5MFEj@biB>+bZC$PJ+ORm#0ps6B`g|IWV_`d@GzOa8CE7~0*%K+oL#*8gl+u#4gE znFK$LUoM7!Xx{mA%NGMwWQf_zt(q$++|`i#Q)nG~AZwvPHyMAX?pjzCxhIB=2Ca9m zkKByCo^?Zs;pS}j*G2FFij5(@YQJA2hTjnCBjEY?p+2$}mT)T%3(rJuRg(782loK6 z8^H2s)(H2n)P?&S!SYkt8^QDU+>F(LmGH@7`u&fRP+MwIr1`Y5w-qwtZb)c+{TXou%R?GHXE03Tq>ToYXm;4B>@Lt}F#Bzf; zQ*Ttb@%zI-^XB(kR1OV02(iYUNYHFb>!M!vr7cwT))BnvjTsTKwJL)8`X*vqRRk5S zOvH9K;y%>D>w{n%AOcRuq}X9nz)*lmczb$nlAT@>s-3s1#XFD+8e6=7o_CaA34W_- zndS<+n0t?cooNmN4$szfvOHJmp9FRiK3jf;<1(^%r&_+EO275}H*{+ruvNh{EPxdRH0-p2LDO=N zoq*j9CO{AVRwR?+jLn2ryz5qd=X?5`+`NMXIT#?pF(XuSr=V=Sw0su|+|L3x zDib>i>G6E2tUJN6Rk!$E(^V0Gr^_lJ00Fcc~zuvodpBOzA*391vk(RhQRtTH{UZ55DV zG!DatbaI25OpRv~spN_D#CXJ2d4yPVVk{ZK4eux8(cySH0@D&5)bBnWai5O5Psi<3 z|Di4w9X%C&CWCwFQ{%M4NJqz0>8vrRXja+8c#GIucvctfY8qDOvGYw++RK( zi$Beq#>P!tr#g{h$OLX0YggtmzEKTFv(Z#KI;l(OKzb9>W}`MLo^ntkg5n}Ce-Ckw z$EEQR*hWNfoqJhrY5Gdw4fz*oiZuN@^6Nhh!}Db~zI&h>>r&Yb4kX04^?5i~b%SA5u-_HbLZxXM zO7NyHxDZ$0(LNd)4#BiC#y|Q=KbmLrGK}PdZczp-!?CD9TX*O1ptaZv8@Jj%_@r;` z@pR%T+#C)~e{9>(VFb6=JUP|EJ)e$VBuouCDuoV&-~>GsJ{yLlxVw`LMWEXnU84o^ zuy&~K>Y7UWSi|)Fb<++){om0$Chc1gVn%Vl9%+O*PE8_%^1RbgQ?ft;%7i9NVnm$&@5dBQFW~wEhgil` z!I_h%{B*&YFO**@lppEt%;4yVJBKK&nwy+8nkK7Hv-jo z4I@pxsP9}Uj*3AYmBZ$#(5o90vPEE@#FFiGGwp@;I>PK^RhN$Nxx7WQ1}(y6P^z$v zKq@m2)w$i9)$xFl(rXI0IO^F%rRg{^1qb?7W6`YRAWBbNpA07quW%l~rDJJkuHpbs zcq$P;#ggi8N7Ra}-Htr)a3Re%!AxJH_oRN)s9d@vYGh!g!kpzAjpEQGzcewUDN;|t zo_d#VsAW+NP~FKUwPn}<6yu)I*-~jbTbv_#j!E6eY6yi>1sKs4f%N**+H!1WkD6Z# z@f?&c0HGi<(LwhCxgvb_n1J0Ym7;4D=Ua$3nAAQKc7*&AzV$!X{x&P4vCoqxK?%Q< za1_lue=L>UjSFtSb_oc3Kv65N$#(^LyBdP|?>MHgF*^2^BA=l8!|I7d9l)2*+Ju!4 zD?f}s+8Bv)k7fWsZmuv3)r?w*`sG@P8t`#o#!6Ggv&DRltVat8w+M=CRRE;kST;R+ zV65-v!BK}Toukb$y8&2gpD}}>i)en_<+?lo;NZ9Z=hxn1g@mUcgIzK|e~jN9`27X* z&M*s4UkYqn!FBPtEG>%H7sC)=g2aj*LGW47ZkQy(J&_==V=i^-v}CIY_e4j4fnp-a z#elB_n%RSkL2d-NG#&-KQB%O1NU+{a3V1UMtWN>cI3E=7CM+o7{#@Q_Dd3GR1sn@V zQ@3dfcsp{?41b5EfDuj#*!1Q>kiSEX_y;?f(MU`v1xXR}BTYznM^J=g-5a0B_HQv0mF?AJ{M_MjxRfk<#E+;lsLd)4W zdqq+n%p+~w%hS}Qz}zzY6xiXFLsTZZNxY;iY2XWkQb&2UU|O*4xQp0I`-kzlqpctL}#xfEz%~f-;&W z|G#uW?^h7QZ~f0d{1+DVsPNCvJiY`y>Ppzp+CZ;E0rbGf9!n$}!`|Dgz+M>jxv8kn+G-2!;(uw{RY&8%GyVa`&I zKg2y1W_~1ieIE6EVq;Lx*6#l}hSXBkk>jAJT$3VF>rkDt4)U`}~( zjflO}299oE5p|rgqH9ye$GhB=w9N^8?Z+-8bGd1!N*B+auhdE>Y-;zHK)(}TN~zri z^7q~7st3jocnid<0C<_ZIvP{LU#LID8Ba6dpr;ye5Od|tDvZ1Ad>=cGME*(j>1_@{ zA|tf4=}f~3ZPh7Fvf%uA5bx&Y`b>}D8CIi{Hy@wNpDj$|?4j)^Id$3x<6Pc2W1O2U zPSIaVcjvUFZ!0-CB$@)%4~824OvC$8&Vd-SG+%LiY36ea;IM+L1*^U(uwo(ac&Y%u zj5)doC<#NT2){-!`OD4b!Xx;dFQVvalr@!GIEMre+0x1d7UTNvb~1B?yzm{s$fUC+ zpt}pxU~kS=$_vhGh?~hxGs`U4v6_WhMCG}1F?Xhj@=ZcSBA1OXI*)*D2j>O75ttVW z?{2o(+mB~0*D3Z6^syDz5wLGS%7sbfL=VeFIBb3mo}-E{72u)487knQFThbytTY`v zpPM~baPk;?)ajH9eg{*mS@N4^8wF+bfNXeCR%UP92XMssPG+}BqeCpyo{=J8&<`dZ zl|Y#Sfkq#c(R{=LD9+ODHPsP-iR=dkB8KGVSsVuN+280%A&yLndF+Sip3bT#kS~7E zSSHd=s(F>8*^2@^IAey90^q=mB4EC>P|g<)dULFyhGY@g+A?;S8a5g#I4l7wztF^4 zPyX7z*$Hu?K0jc-X|kC7m!EUdiP)Ew;uJs04v5k4BVN((hoI`B@V z96CtEyVbyfLq$<(iCqn-{fLBu$=Bg&v7IUayG~vS{#|t?crCDehuR>yy4522Edly2 z`ZsF%5z%(hWr07V^T$viloGn%hpZhTkADEyMy=}Ta~Il_vmZAdXA@ARsVT6D1!e=w zgX=1=lLbOF13dwjNi`z&9e=KFR^l7X^@=!nXl141feD?vfl9S<0xR9;t8`0ErF%`S z56IYU@{Qex98$NnoDalqrgurQs9MzBh(@k0;%3qv@o-aZE;yldbJ-l=dAT`$U_}nZ zx;gF@ub5rhg=APPNX`HbCN^O*ezr-#g{o3ecRCuEOznSIGj3}v$EUT*)PNa%1M`v4WC4+AZO{yuQz0Ez6~on||e zjcEza)W8N%=qchZLvIZGBptsRO)mI+g>zac;{~zik?_L3Dwcx)1ZOfZ7N9aX{Ywz{ zmJ6>fOjn@BwfDp3Ll-u{+3DF54sc2NF4Xh339|uoglVc@*xm) zj}GSqgB`I)1yz==+3+(moPyR=b|?@WzWo{>2Gzam*8JIai7C+t(Gs;e>OcMaF7be(7e^drD|)=uNFTR$-wCFHcK z*vWY8iAbwDksO^!!jtidWHd=NB*r$W7__pIP><4*(L{V}wZ~%7=W0`0Z3~K7xaEE% z6`MeJB<4pIjv;Vrv~y>`c_s+_rBZi3z(AR0&h zTj<>ve2TVhgn2pU*+y&7SfpiQ`MvWD)MhU#!B`x@AsRW*(uLQry3bGe3ZBU|- z3+a!%LMfLDy7m=^mH!oflKrpH%{8w(I2F=SyQBYBfXRq9eAhK#l5;oyY1$&A%{kv zC{|v)w988ZGyfs_fi*3uYyV~7(yE08cx1@`v zThe>GOYh_+XPYYfoNZ~Zzf*U}R_CT$OOI~OhDU7Cf65YF)2Hl@wOtARFYQ%3qCjt| zefeJCDDcXAk2yXz7@H6@A6Vd$jo#x%4|Bdb@e=Lm-1nO3ZhNDIjpvOMDBUsfUHWjc zvBo3tUVV(Bw(Z0b6qXS)?NygyHh}{kXf_&Oofr#eS9QyQaFWI3hTA5)ryZ0)SgdWU zci4eI^*6Fb8p(xuw?V0z)Mc1%h(ZN0ji9=(j}goR4DEiwt{#Belf`lC;j!H+6MZT^ zNyKn68$IC~1NhO)4Qf0ERRwA(fYt|^8l4=%%^1-AH^{S5lW0@Xkwhk%j$0l7$iuD| zWH-oX0AR!VUE_iNev~Pi8AmZ?z;)B9QEQN3l(A{JASsUfbvLxqxQ&8ZhfZ_E*K}|U zy49%v=7-I|4Mh#p?Y_BpVZh$MV1C`JK_EgJnoOp~^i2OSiEM&*g`nFFE)H=~ z(4i(?9in+f%TExCywIzLOXVVXpYu6KGxG2Z23ih^dmx73pB@6~GU%hvTxq#KZ~?fy zaQn)IcVGE1(7GM?;(;cae_Td_B_fDzEJfh_{O5q(F8?9IxWxm_n*!6WQqU^3G0^KE zO7B+T6#{qXWpPq(h}xhKwP5p*I27uaq;9K(cI!~MvnQLHG%$T=xB1Cn(vd<2Bch!( zwyGW}$|UYkZ@<4yUF}xF^LC2Vjh>$VV3)eurh^81q|gpaLLUVIy#swB6AcRzL`;{u zOhdLU7*64SscsC)4+pT}Xp=Vb#x^2BiyD$6?HHHxg?m6!dV}jS(J=+N@_cSD=%1>w z*0-AohX}+`QOs|G^rYv)qEzq9h4ZB;TqQM++a5xAGr;MH5;|_NX$1=_{1kML3iET55JL#)I&)6X zfmRr=^-LGeR-7-CARTFy#77h^sqzvNoSnQ=n$;!S{DXPcW8b8#O=_QBM|m{JtO3Ek zu?Ct{&pv=L0hCI0U?N8b`vpUSb{*ak-=kT@qK*f$KTO62VLYp^!+}{8Y#g-F+E!-S zsH_8M4#PB}a0`wm;WkNH+)M$x1sRs5<%5XpKsGEOxXMN&tXd!8SuJkGcbfwLT3~J) z_bFPC?oe-aVrl)EURr`TB6KIflJ6J8++|obp+ATMxT0a0 zX(v=Rgizs?IcR9)Di9)hGq@d-GB?d(orL^q8oOs+#=P4d^V$*bFuRV~)ON`h6;NxK z1$IqlA*lBw-8HUyu(YI&OUw5ojm*Lw?kuozkeS%#$@N!yIyS2)BSUewXE!<@ck20g zo;+L4$d=K*(;e-vHtSt+H+UC9XTH`f!!OpDe~)}$pQJ()r+a|ufMEbgy$hKH6}!|@ zz4$W7C3EGtb48dFTO0Rg6Mf3a6552>@_dlng{Bur|6qU5^;ZJ-dzpiFWoy!hfJ}ow zkVc#}>%pRQl)MN_!(LBzqr-l;9`=9VA`4gynXwFDWh>J_e!EP=-R?BJ*Wv=bjQpKJ z8F}UuHXHW=W`jTq*p8;VcslG+fGl3=1r7>U+k3)m#WuOQgO9+AQ9=h1X{^t~T$vYx zKml9Z(T>L#?^SQ39eT%Mn#aMXeVcL_{o?RtmwDNX7ikHT?PQFW9y|`tHC~!bvK@Tk z3C3ji@I`aW9*3bZUckH(6IRr@54{1>?44j6)TR5>W!M+<1bYBCL5(KOp#%gg#?6iA zO)ND$3H&j}%e8=}@t6W%k16%NTI9?!Eni*st2qt5^9(U5x!sG_nwmi>r=oXsSw1Qg zXhy6g1nlLVw2I)5wK|4H21JYl-nD9 z9-D)=4Xj)kAEatHxSolt?;lz&w0YcJ_pwv>YJ3GU zCU9#Xy%>-UHbx%381Q#(j68ZV&~djh@`#wt3Jgu0B7l}F!I6L_{sFW+5&#&&3&5iB zze4Zb{|cnd{|cb;ze3jFe+6&U{|ao&{|dH({}pTn|0@V>|0{%Z=9Qc}5>t94w+k_~ z!)HU{4tyH+&#C0-Gnn$R;YooAP)6pCL>&k+Bc2r^XKV}?CJm7Aktdf>AuT0TjY|Lx z*pQ?4;h24JNvOynOF~5syHEA3u8-MR5?F>I-X1gzaWOTQsoF&aeT^nl`dy8dSE}jjj zinJrrxHMy`W%;>)kreM#XFz1mQuCT*Tyb_Dc60gO9tt@%vKsQFn*k*+cNheUFW@#% zK-hFAWP}uo>Ld)kvu-G`kveICZqy0AyKd+`bwl^m4ZXK+=yqv;lL}Eni>=1-^^`5g zi3r^ZLBv1UN?AClPzjd)^|T)KcXO*0)~5O%bzsKzs3B1I0my(~!>-4id;)Cy2y7%! zztSw|!vjc#1d9&>8tuv>!H71|0ftLy;+-BSFx#5a1ku}vETl9|l%X_jMxN7$gwown zpV9>+wO$CQy{#WMe^x+4vyre+4+_!&w=C!}OnBZyk$dH3FHsM?f%Azd;90;v$aC1w zt_siLt}DS`XhEw$inlAGB;OP)>E?9DVyLFm2T&_I9ci$IKr?3~e7(JbPCS5-9OSk> znuuo->3Fv~G0H<0w|zo38#Qz_FqYWJ1TFwgKz=ObHxZDrcqaNeM&Z8L!~_uqBNGNT zVv2Lg^JIE7k@Rp7b9%H=HX9uUI%76v;6p~@YfgF({qZ3NJ_O3eI0VV578nC@(LOSO z-{3(zyntc^5DNId=#)V16Qj#MGs5pR1JMjhKqRe&&mWI}uwJggI9VK3_>RXyIMGta z9*^=1Vk5FreCjVe5oGVw@>ifI+B6TkRSFE-FA6*tNjBqebADh0-er~-!P&ld`ncTsP<`oYbJz-EJ$3@raj@UtzrQ8*oX_%AtfvCh^t}X$!K=ghWwXiO< zDrb}z#qfl?oBKGn#E1BD4_`F8um@#<7G@)TU=wbs4>s}U24EA`ZQY=*fh=BX28HGa zEJyuCvnWx+L(6A3EG_rCEjO;4n8%kv1C)OReCaqwW(2%3^v6T6!ShMRkRaHu{^ph7 z{uW^{vAakM2t@zuu8ap;8g%hNq8s3gi1LaD{EPRgv-jZK<7LkuG>fv|4#i3FH3?nw zW!R{GAL+O2GdMZ%L6B$haMWH^y|0DRKg@icLfoZ_GBgsz4z{Qt#`ha?U;@PMM;`$m zJW+%o4X8w$dU`Z-G9IV>C{t`r!D`yp6XAu&#&r=aN~oj}MaIKd+zq9HfJRpvl17og0vs1?4run0l(j<_vQz)up?`Mi zpF8!>Zd9;IiUz%b3b5nhFUSr2#cqec+~b7#^I`z5%XA~xSg?4MBYz3S)b-*feGyk= zt*+YUy8-Iratyf6`Fn>TZM#&v9vG+>n*{fn1W>m@vfVmCxAGEju`mj5`0#h9PSC{! z(xa!FsDaBUuc|y>cd1tXY+y>0!mCSC?A9ryGLyoqOj7LBDWo<|nUQWjK#bYG^!Q(T z{V#p~m;L^i1OAtg{{hx{)Qd0C<8$oQqTL+UKgiT7|GK($^40 zY~W7K-1@-VeKaB|6$9f$wH5>A1z6&+4JVI|Nu@tQgcP$~uthCjYBGZEG1UW(G0s9K+1ro%%1B4?5touD@q4&01kS99qjNscd?%dYP%^Ev zM38{Nd>an+9JqQ)^~9exr*PDX^}<}dFO-Q5;}J=t?o$T-(`=A=%1n&0>d5gBY9EgS zN>9dFHS3_j@wDnOp)nK69At01xh%gMMIS-S;g}Fn53@Wr61?(ZwmqI0!}bv!a*#rwlIr0?i9YDD8Pv~TA3RYl}WKgRwO$Lcra7jiOJk9Y`G7}xL zg@RPejGG+f*~0JGVUl`KVvj?MSPXP$15vJU`iy&O#v5> z7I=&eJFw^7-mehpBiEH!bOcBSYXbJH4=4IdRq{tS+lVVEo#0} zntL}%?JBBBz^SlEw?TqABEM!B*z@GwUg%I!-WviN-$UHGu(e{-MFOEF1rPbtR$w&5 z4!hNKDP0heJQBBn@Eew$+PF@Nzi05K&jtw>qb5S@~T0Ka=s z7qnqwU?@Q+3#>FKMq^9@sPXRvm#5Gp653afC}X-YpU=Z`V*r*Lha<fc+A1?*C6GjWEbzid@?L%DZ-Qif~w5B_!4MFP5_i?x{AU=};$db{HSL zp01&3BCs-=-88FI8tP7%REUL{PeOs4NnihY@V-@X2l0@;#fLx8b^2`_;x-O(8;8(b znL0Q``Xtz?LmWc5*BW;q4$;*JhY;Snp!+<)lZcTQtu%EE1(wIeum%IN)=6Tp6+A?CH?Tp6=PR zO{>dQwKsn&+N&{>2JP+F?d`u#dxHv&`9!@BwqU|}k6q|iyfXv#1@lF!{qq3CK?*Lb zHQ~Cjquz14-{Fja+2g~@z?r=hL@%duH&3=FpAFfj^Ln6fA-=?6&%0C8yLDH99mY#}hP#h9-w1{nYl*=cGOn z^(ol`4sJ3cfBUz!-X?xSw~1e&NpBOsE?G>*3Mlu#lEm+tNMX@7A}O5Eq%ieb{iN`N z*m3pcI@Du@!;YBNBqo)*O*A$h!A6Tso2g*`C8;2o5%bs@>UgudtX;1{E#v#a>XTGX zCMk2RCn*WV>zt(3G&7G6s&{#WT%)5DWZWG%F5IJZmp(oY;b@{5^TK`g&K-}8(+Ub& zT24d9*o7{8l-Yw!C^_6;b0zqD!R5zEwcTyT?!mQ`4JRj@fO~kzfy;6cw3{CJHMWdI zpUboWk?MNHz1O4rHsVOc6+$=`8`6EwdXB?eP4{Uf5*%=Ks6Ty1R?~oMJTd*`U7dqd zpO>Im&55dy%g94ukbeto0g&v_SP)%CToOdSk_aB@N}1d&qmd{ab%+Tv*=I(nc?=Hm zq|x{BNZw901Vv)uxr4B_?gVghKb6QNhDPIqO;Q*1Nv;I9a2mDVoe}GHn!U@=FICBe?LZ#@Or5h!m6Q?4q+o5KGAjde) zDnjuB7Yi7NS+F2munx1tYX+?GD)7rygsB+i54w4@=0M%hfS^bef{K7#?M3Sin20_1 z7_2DaYYvJej|y83U4b@0K*2`kxr0<~gH@&*woyH&bsL=_c(2Mc8m5nKbenok8>=B) z7-zps%Msmm2x6}U#{(4MffLfAE?b$bEdVm!=N?NJUMkEM8@2`7A8uuvki51rbgpgN z-;Q{O7LhCG$G&yhf-*9`tTRNmTF@&6RX9>^t)sFL2Xnw zZwuLiD9nx3c4&7KwcP~iQI)0{c_b7pQNIjY@DvHcfrkf=SQun;R7>qvC?Pi%3V~}g z7Eex8TP%uq%;<1*;zU#)Gm!M3fMNj}s8kY*YJ`hQv~gP1=i7h7x4ur)UtivugPM5t znrnmU8m^QY8?WiPW&>Ssy>-!N|0HC2(O4WVvZaO502Ktp6iG|o0AQM*P1zaE6Y#FZ zXw=~msh3eG@TI5ntW8fd5wgJXPMas%J}`(1%O;4WQt!wnz}iL*Eanz8WCPR|vi^AL zqLKUs2fhXHWa3#Q70Xx%=pNQ$ij+5Ifu3bmk<{{~PY*W>Qb4dyOaO)8aH77m`-r4i zbw-A`S<4pDW9(DV`v~7Fv?4>J_JPn*kWwe(i4!NYT~Gya@AYB& zen#WZiBq@{Oq|N#c@&$YXfK{X#v$mrM-e&7OHurD3mb;`2%vl%DwZOg6z?nsGMa9a zJ$<*y9xaNyP4;{$$Q~n>sFnG-gw7)$htPo)tDn%p86{pGs-=K_I_LkWp>u>|c(dso z%`rr&A{+dxN$31CdRX((IS;H(=RoR}$ok0~5p7vA=Q^S-$xIycuOF2o3Q2!Oh@2e( zafD+{`*OrCHxe`bCRB_>MR_Mswa*ht^BML+u}((^mUe=c-lP%`yO&`yEyzAyfYIbZ)FLyYTG5^Mm`Id(4)B<@g}e?CTT{DZ7B;&|nS-Jd|7@<@Xc z?d?`6{y-QBeUAyC)f7uIq*Xy03;+gs3N;Hci_iglUWUUCl9hDsYI?H^y;*F6c|9lq z1>>T-#4tBNeO1`QTnYX-+xD}|Sr9t03lFKx08w@`+fyffvx`zX%l&lhns z7f8JV{2$WIhj#J-c1~&bY!UZi_}qMaP4pc_lh#!zvyBJ@-9|J?BmP7;f~o^CV3%-Z zVed8gFc5tAJev7^Uvb1}NfO!On!0O>dz5DTKP#FDra0@W+ZK1s5=ih!!bk1?1V1D2*=%cC@YO`} z(mxr2R)0-s`%mlgG);-7k>Ye`ZgWjyKq_a>v4GIYj`HR;fR?TO17Gc$K-KTmbPS1FttrFq_djGcnj-YIoJJ zU3u;?dbcU(9(6tOD*DsuX-X+H2SY{>y--^P4P>0Cq$#qF@R<;g>|)RLzn5f0x)?Zy96X|xB9SoGZbp#WxA#J zGphD62{e=Jbih5*!JK2Seqc(y0-Duj0__pC3l#89h^^tgB}bMRB$?s4^0~LKUDyI* zRNu2jrK|#ODJ(9@jt&UlT8|Awn}&dT+Jj!JqGEU`WYzHYXVIRiRhe1cuMQac+LKN_ zFF81aXn2^7cPY5lk*CRFaAU^PCk(@5?LSbp2kwjmmauPqk@KD0NO?!^n|()T2dz7X zsgEAVV={h99&e-=o7Y#OY4=Sk?R7=(HrlWR%nukDz~4Bu2BF0GGnxk}Y?n)LVSp_k zr*t52&l0V!8A5IkxUt}dz$PA%kJA?xPVX)6Z_w{}Z8ruer?FdrSHo=7Y0%llWVBNe z2*#qBCtM{a>_$o4GoDC}Ph=TEW=Jx9nyTrRw}O)$E|a3^DD=;KqhqxDeZxNcN%l~1 zsGHCoJMX4Dw`WP4qQ-6x9NwZ?x=Bm&CKYoVW3-}hKl@!6oE*7kOnuTUJ1TU$9IooD~8`7@XkBPtY$zb1ArE6umRl+5azZ?v6%sI z;j)z}C~-%T^ydM!Ar~WdU3+M%4E6n*mZ_SwMhb}ZS~>{*CqcPME?opqhcxP+!{A#U zn>Tl%fae0P^^ROy7|zj&m#bQSe}M8Nw&f06GO8fJi8m*3yDAV{|wJj|QK-^4#6@O=~L0Dg{8lunam zN<{<}IJo(}jpFqlw4j{-n@9|v*1&-Pp78)APQXFtgV?4^Lj#Cb^8$EieoyD`P|W_* zyhud1!7UcSd9cYF5KUunP1+-Z`PUmCIOIULBox^dVzYjsK;O|2(I7m;a>&LYy z(;!mz4r1@`zNPbs@E309tCNr}Wr+au-F`6lz`H&qQKSSwfdEOnzpSAveQ1>rpQ@rZ zHO5vAaj*cl#?Qud8+A;KC0&zf;}nc~>~so7e_voMVND8}+^$k4TpJBS@Fn4JI4ds8 zOk|D4w^_JVB<~}Nc&fqMX*UgE26npj{Y?rcFMP!RcR&9Dkkt>HKeDedmBu)>n41(j zVD^n=O=E3uH2qefx2zJd3(SUc%c}61lHSTXG9ZT7l^^ljvvW0xwAq@oYw0i#IUXgl z$+*W72@M=Inh81zmH{|74{1&n{9GEtlxUS<%E$!nQ92FV6z&E8t#%R%X6J6+l)X{e z*h2$hTo5g{V?S!j+kc(%oWxiPhI;f;EM;GD%f5?cZ*t21ZyE3Y{gAE45l7cW_d$m(=UKsX^xX9_{=H+1&PWtx4rtsj^u!_?WCU`8=AJRTC zaobL&SP45(<3klLRu{^%#n-@~euNXTOPj7kXJ99*>?Dj}Q*%dX$gLnWcr~=93UH?+ zHIk%wG?6`m7J?}r^XxC49Wn?WR}#);>~Py~(H!D_uvqvrs%c;w81QMMwK^dU7y8K9z~zs0VsqQ-u8Agi z{$sl!M;do+U2ivlpYFQbg=yK(VY0p!SpG4c(i9TnujJ4PnOx$1;TI@YJjLP$SJJEAlc4ar}fL&r&@ zj3(L}P0O#_(W?BVjMma}$qveyPhe0qBGyBHQTIXw;PV&tGW|vM2z}CXgTA3U+CUtM zZ>a4GzM-ZH^CH-4;0}sH8?&yd0)=(0^?q@Fy51Z$-ALqzyj{pAfm(iVQEr7g6|O$PUT94X>)D%b|9Ut?4} zsKnzGul>*sMi6}7ka*JN3JtO{+D^1su=lUXZKoH)6p%aHRXb>)_R}7>*z2*a&(1M& zK)++Ply;_(5*{(Vl-?BCGVOFrnMmw!!OAwSr}O z0?u!_6exfpRP&ZI5O*NNxktf~H0;yiBg8d4huaujK_?f;T@;%8LQrXH-Jr2n&ydQleY6^18^+m`n?K)1>1+-}W@8A*xCiiI&d}W6Y+JKsIX8?-;KKv(l>(D9{ zfF1YhKu>StU-J53l((b0`U*EXTt5B60Ua&XX(8prAz#q{&)(YrM}B1YVgJE?4vx#a zy$>DlgUTN`i8ENt4tEA0yUXM7^v7VZoI79!#0+*xE*WSrnBAS@UEzf6PmvS5QYw?WI-YXez5L$m zkAMHa1_SH|DG5sg_;>f~?$@uoUw6NL{azQUGwuE%@_LU#j#_jBPurBgD`P;79__k_ zWxjP*KpmktiulHli3rg1O6U5U?7E!_QA!xqr&ao5r?&C<7gVT-X3omcs8xga2SK`9 zG7hGR$zL|iK>VJJIV{om+L9=P>)7Zvw)+31s$#y-cp0lquXpCWh~Xyl)pq0epVLv> z>#glNTsQpM3o0L1525LA%9yxyNgX$STSti{11FH*l~G45ltO2Qe%x`hD}N}1 zAJYASd-lsM>QI^TY3p3Kxsgc=W6_y(70$#n>2sa_LZ`mn`{PiktPkpm7X|j-vZf@| z{CW!qn)*vO2STYD|8gkQw6DhhMMC|k2YUro#JzSGod_rA!m0V||8W?CGrmH%*94Te zPz4nz^umva6*}uH^i$-=9)sCSo6|n1^-!oYKB%urC@+EvDuCdBwl1pvxFnKu31l&S zy_f3(;1LNB^alUUhJXM=#<-YHL(Kq#`pW-s#f;9V=npl`=&XwFd7`IO^zX`O7;)R& zAY~g2LK-KZ{h}yE$7e9=vIzam^RYWwgAp83FsBUl*_$>sLoI z)?2Zgv0GLwmWjO<`=)g@_S%7~v0Dd@kI?Ti{Jt7Ix9*;e9cn;y;LFlc6^mEgC{g7j=$BxIogt9Wo5kpy1RyLMJ3G`nKc^&IDD{Eav z8i!(USs6gx#BcidmZkoCCUz^98F^+TGx91hMcJ|ABV#f|7&>>6^Q!ea>dC}jM>%0N zUmbaM_gTF-!5S=95(2d`Rh zpqBixX8=hQajdHcVzD=o{w7Mg3fSYZR}mYFO`(+;(5U_pQ6dBQ*JE$QZjBIa#_-=w zYPa=G>l;TXonoAkTbxd5zytLVg&k`SrDP8g)HAVXPzp*N$#N;841yzEx)w?Ru490| zg_7yF`0q`W5{v!x!Ho49=r8`G^1}afkn6WUmO)!U8T|J)%6ki~M_Yl@8`jN()Z6sm zhhxtiAe?T33Rjt0ug8AlV=ir6%ES&_wQh|dFVpEwHf{ zYuHgEy_4u`#aO zK}p|^Ifnsr*kRhdjahRGIWh;RXTC)BfofN+UmD3+nUUkMVCmyW-b4$<@86BRg>Q@v z(*H88yF$SW5aD9tr<}EsHxa%y zay9lEM)>P;4qlCAFv72*L{JW8y=nanpl;%?%#GGvHGW>VGRW}<7!7YB*H=NEtJXI# z7O$eGzKNKhiM@^A>u4*b*YNk-_}fM47(WLoW{iJ3)*oPm5O;az&{yNXb`-Py=-U{d zS4X~$ae>lfBe8D-E6{M{)sb5xj##Hg-W+*r`AK|lf6&6bu&f3A{5SaihmTs;PvQF?;OAfC`^FgdX88Ule*P-HH*lhQ6a{`7 zKYt0|U*EQ@zmM-Me*QVWfAS|R>jWxmBK$Y-{jdK^%lab1e;wiYe+3-=nq?gY9>0$8 zN4{cNKaZc&2>)}0e;wbIzixrPmh~?Y?&AB=uUQsU`+NBM`*R)jnFKJ$ND)@Kp^8p0Rw{lEV^&;{XN zLHPUlZvPSJf$$$9{9oYvuf1hie}M422>%0o{|bKa9M-yx@bBaMU*YEf!gnY?zTd^q zVT6Bx@TcEK`|%S;m^$#Y_G*#7{{sxdpGNr0_&x*i*)qa5!Y|?b=kT+N@MjSIpYi=&{5*&7V+c>Y zi+;UrSuY|yiSUo%`#bolBm6kR<996U?_u;_LHP3s|66=_55}yYM7W9Y&*J;{@$)wk zehJ|_`2Mj&G3)CHZz8;b@4tzkUqHBn@NeP!;lnZOmk_>+@D#p3_E60FWrY7K!cXA) z8$T4Y{s`fJitxY0_y2|;I6|`i8Nz>p@4xs+%sPYc?;-pezQ2kexZ^-$@RR?`_!azz zq5NaN@pPkk`AQ#_HKxyIj*VVuZa`d~vrnI$IyO4r$#)w#JtGX~M8`(w;AElEt@K~U zyZoFDXmM1&)@)qYAW#S=)r>A8vNJGUDt?ZQZq+X}T8K;}j*a$f>-u}EPKrh{p^jS- zy1S#|kB!!Q4d^r1a0!SYs>dODOIiky_1D{t>n?nogcZt&CcsJ1ZH7IGB#c0@r>Iyu zl*@0*dG-{U-vhwTqs@4W{kYP_Q>oePC!Y zA%t_iXz8h02|1J27^%!N>GREAbDc*j)0)eeNt+cZL}${Tie^+rkd|;onNw$EMOjtR z8QsckS~q=4;ge0PmJ@xs=4>cFSr0zwO9|`2C#&#*l*HQ;(+Zu;tio{GMaS)lX^qbr z3=ghj+CQ*ltVtgi)`QQq!Uu99FFsQWpR=--sW5D&G&Y%8HKwLQ(V6m)M^Sgm+g(#Y z$CQNSJCHB@-6ks$*RXaRfJgiLB7S0-I z$;eeik5tcm!QAAd3v)$Oz@o$W5n#-Jm}Q)-|#HSID}0n!ho4mxfVre{#>SfI=u zJ9S8EDLRRUW_Hg!zaBZX0 zZoQmZIX9Oyb{Z2hBFhKJ%$cc)U{{(WH+i|yU)#hePG+*H%k5=nV!}I(hzjj6gn@4qh_%K!%phFI01wNoV703?6 zRA6SO8@=l%84p}d*sx(dGwd*)@eN~~8NA&yuyJ8yl^iwG^VYO_*uVR+I^*H8JC0Rq z?7*=)Gu(>r9%}{5rE{%GjM?3eRX2k%R!Ni9PC_oi%C#q1;NqXGZpOg_c2-`S4>@2J z_<%lDAUjZ0fekfa6|ibc*npiKcEHa12JC5n9|e|wMe0CrsvW>t-=Loz#Gq$)H#VtV z1IOmki$`d4;YRLWCtQDu%U*d z0#?z%M7z*2tp4K9sDG1q2rgM7GU_9*^jA7eRYRJIxcY3(- zciK1pPW#5+nca>*H-qYj@G+%yeuf-V3Oqpd0KQ@o9WeG(Q9BS&fekhG6tHS@*w{NW z?ASZw8+*QyL&?6O7a)RSfu|u3HAmf{o13R@eJo3*L@!@FPqHnJ3FZR&W3g$ zA1J0~Q`u=aC!Cq_??{LSO61oKV7aTK1s63)?0a^&ZaeGiHvdT+cR@ok4M2)jRY_BQ zvw_onJ=ga7XnVPK|%e@DL)y9zj{z=y{ZQ@zWI_N0ACl%$rr42Urw;j*#D0x69W_H<$T-d-)%naFy8Gk4G1@)Ps1igmfa^EBkwq zbaJB^BuX08i`o0ui!7a%S0{cx3Z!;76?YVMqr~B+qF>mZ@k_fiL(69Y>Fq^71Eh3c zC;B^&G^Yo2-arv8>c3x8kZ2IK2%_5EbsiTsa0-e$UJx^=9paf4?)|RhqkdU&W@xD< zAibTJ@rlrxlLHl~L1bdY3)3qwEt%4mYj*($9=v{FxbA zPzOj~&-iwi4B+b-u}SgIu9?C8mT27i~)lE6Sj8E4(_0V@+nlamkwe%Ra6HJmU-3ucLz+g!5uWD)C(o~ zwupYYS7vBQ4IsT8l=ZW=5Lr!_(u6Ck$(;5{4pGNI*2mHqN#%gz#E_C0)ZwFvUlx-Y zT7m#bFHJH&aVi7&1}$xyp+rbxRrwhpNmIfREPLfJjy$zCt(!vJE7A_=$Rl4Iv8MElGzw@STm}S%}qQgCw-n1Pn6p$jUG%15KgNQQq8i~wQA;|To3-`^G|X7Dn)IV}lx#$X zE;n?fw+Sk@YQQWguR*Eb=fq0{mayvtqg`gvCh9~8Rk%i6M!0B0BZ<*I>w>!~>IT|| zk~&jf6y)j{8EA{6ehAvA%N=oMeJ0u@HkEjrXIG{%on053ZM<)ggaxb!ORe^^=wlJ# zDH0=I#40*)hzjEu8>%$-Wrifm6b`r&#K7DDi<}8Emj?^NP1L8+;Gn`ozf{PaA%rOn zTC?0c8WBXeB+TG^C&30I;(fEA@pn0`C7 zW)$VTlMw5W01Kge)gIlY%uZlNAt z<({W?r6#i?#d3*@!dnCtB7)WX5D&aF<2-s-Fij#S86{Sy8BA>z;dU<_&Sb0yC$+Y@ ztGj?wI0?zfs?BIw1+oMsioN!Y>C1YPC`cR z!%2vE{W$4|jWe1~(5?02ga`vCRk`=2qaFyZgqU$6`7nP7xv&o>A=UKbG^^+|t8tq3 z zFm1f43K>rBX(2wBFpBW59TbE01&3eeP3SV+?rKTo14xaWM|PODI!7C1}KD1R*YrT#2DO zO`1+JMpE02a9YjFZFyLCV~HsnlTKz1?1+t;i~+4H^S4AG<>>%AHHm253J$80)mDuk z5;LUU_|XPT#)LIO2%r3o2-%w&Rk@7-zmR2{=#nf#MtjgDc@=CMz?gw`@DlE`<@ZB% ztfJXdr%t7>)o;kSpW%fzWuHpfXH)h}%FfVFHf2xI58_A7=fDbX8Zfi?0YC=dE*!#K z5G4*SNWc+{zaWX(hsgv$6V?G-8vrup@N)A;qt%n4L-|&%rvf9hSsDFM?NWVva|^}~ zUa7TrED{z1BOgF}Z9HI5F4el1VN#t4rq@#IIKU^0e&!v9?+3pUn|;^#*s%$M-@F@$H0Jg23_(cc}BhFM`>Sh|b( z$0K(>$nIi}z`*K}cMb`!2yjXJQJ7|BHz#@6Xa5RppL~-XIeeZS=OtmZ)it)hVT}u; z8}_wy3{MGu+MkqqmQe+f$K-t`-K;g-4r@THhr9R`IAFGKXPY6IQn^ny&}V`^(U=&K1GgrzVm7N zK$gQ~ANao|FRiXCpGU}f4%`D7xfmfv`?p8XcEh<2oFY7GcyT;r`TXI)KSG&|3p=B5 zMWY-%(zola51uOW=i$JqP|81DScD_jWq2uEEaa=~-;#n0#l`B%DklJB$$=eUa;;E+ z6T@Zc5Qlv>Rg2Zd)rS$sAHwNPfgJY0lCrRI?5sJ93&5rD?DAqU?^KKMby=KWQ*{g1 zJn+t3s4kTAtCetXKEpZdfzwWQ$q2`^(on0iGn|28uD4*o%Yk98uf}8a4U>XbM_!M? z1Q|>*UbS9j(_c>PCQOn!_#s1JFnkt!b%e~4k;%H7fN?D1#@>I#kv@u_zW@$I-)vwg zf`uXd;9pu^Dd!9Gt1AUtp?Peyc*!2C;sGeF*V6fux->gB8ei--6*N~6`N_ia4&tzSdX1vIc;EM<a6@Qgd(}x?60VB^BjUFc8J zR6LET!sb^0<)p00Sgt7DKVahLFaiigN?U1cwQ4XdVlGV=$a91$%SbTc)$p=Cz%I=R z)*ZD2M`i(wr4QU4(?}?^H=395m*!2n(hz2znXq~$flk7HR?d^tO;`4^kZ#PR6^wma z&1G9r2R3?kGnb)BqBCDMtWC3x9YPjF4+ZEYn-k_`aE_qT*l*!x(u|+Pram5z7j88B z^r6~_zhDiBi7wovfF#{~XC5A?w_AOpiY%&7f|sjuULO(O*Lz>Gs7^ff(C~ZT=k~Ps zJUG0Ar(!=k6W51&Jzh6aj=_mZ(`5LSZ^8WXzgel@Lo%UvoJZk?t zXR)tDY_MYNEAg}BONyOV@_sCjtqb-!%H=V9uh6zhIG_`|BWyJeOAm9dA9vSRgRxdi zcL9h|yNt(ul_w)Bm!1a>4X#O*D{DGxDKqP8jX!P$%!YrBsrZ8*WXK{Ztca3zQu-RS zjDHz>35UN7kEi0 zT{m~WYtw$rIe4F-3(%7rA8LBL=mf~J6JDArM&tFTkeOu9qL-+rcEL=R_ry$aknS}| z({ImbXpQSW4}qgq&A{FtJR~c52+5kf|7dj4QQ%AXQ9R`9_$D3#Q>A}8c*uk0AO^<* zeTZo9=M72rj6`x5Jmi_Z@{mh7$=wwbQONEyk$om2(z9`ALDs~A6tk>Sc5k!36`oIAszhd1vL( z=yo=?>m<+KsP$`bjEhdfm1wutZ8pcgci_~wj#y5gd`~t0{S6ZL&XGH37Q+6Em~`v> zSK!w9H)9YoKg8%j=6ujPhI&2~yHn?SK5xwj%C`I6#`<=%VfSkGCH&c}HSq(nTd%fl zH!ee(Zr8U3P8;x5MHiskt?dw$9>(#FeNMBZX^CKp-13SxKP~?@zc=#G!Na)8fXJOc zj}t9`_a@``#1J^v$n#XQ1AF6)ftPPO_TJ0m@3bF>lNMc=h|@J)PEdyd1&P6)&cGlJ z`HfNsVE0J;JV^=QsVn42{BLAZ1};G0k_B!wSmF)mPvj8hjgedYSIE4t!d=B!>=qxK z>Ff2#gY$7z_p>NjZGitSzE5EulLNj_;OAL;x>xe?oe!n#;va=HDT^!=}rcvR}>${RDYlMg2hsAzf z@58>1{-K}ne}6>&ZFnE{Aqn#g{*pvFXXH`)Fo;j}%1YPssnA7DEvtK4)E0bId~RSB z_hID@Su}$y>|bGO3du4pizE|zofpdR3u4;XUd9j66i$oSbJO?mm!!{YQHjp>lh_B`d-XBjxEc$b%*2< zIPTLWIHV79mvT@_AoTq***IS)uPi~I?!2=IeY!9EkMuub-T5>W3P(^59p^~_@t}nR zy$$uzzjgc0BT5nRJBKY2#f*^p-=nwhoJRGCIZD}B3;>Z85}(RL06|E;4Y$w~M)2q# zAE2mNx}%qPjs_$phoRfIw4MjpYylzrypn=X*&nfkT$Czk#6<}?rpP`UZiZcmk_2ZF+ zw!@xLNm%j*dtarUq53BMgYexUiBF!wkJ=qx!uJyh5J!iuto0neS24VyFDrJ75%U9J zBR}pkQ6)ZEfC4gl)+|Bnyz|+u}m#F*lqW^X^Wa-=sL9RVUXe zIVdtfs@fJuTdCxvUm&Lvc0wv2w%Voc^U#TN`V1;g%G%2z)ElX^R3<_ZLhWb0Y7?o& zMms5TPNa%(tRX9T>XeysQpToEO^}|2|5)o1(X%wZS54Nt>wDPbKg(P3Da;d|OvCGq zUD(rBJTDxR(A4VJ?rP0cDDSVCth~R!W?FdsG0eVTf6Zix%3Z9P@2Ob9v#UQyFEj=3 z8hKami2ndfKmCON%brs^;^PwL75x1qfESEB@5(n(kHki;pL#bBXVSOt{D{^0*!Lf@ zuC4LoB4S~UccChJ``7vR|9B8PWZZr}^F!E--uVRGvEm6)y^AZC%?9=jU&m(pf&@4S zm(IA)8@I0fLl4Xdio=FDKZ3_Hhi)G@fE&LB?2+#rvJM~RhdePn+`+r0lP7V}`Y2Zs zw^}t>!#c9Aeh}6C6MFu0_+yNae1t>Q(fb^E8~VN2$n86y6yYP-J$}o?R9x@@lD6Ec zHhDQ2N0hjN9EF-^KF?eI!cnWVx>Q(0;34b$TB*E5pR3hE+*))f1tILCS1R&bJYqR! zt&}fR%Bw5+LiM?2!0MpfW#YQCyjq&CmXo*?3nS;4Bqw>uM*EAQ2C$0Nc=dyDQz0x=kW7se6#2?VrWzTA5N!V!2k8m=63sqI$nAlTVZ35BUxdaUG42nWZSo?GOQzbf(Gz1Q;&kj;DpU(A6}w-j_rs}v-Jxf(seYTD zJ|ei#Y_vAi-?>^#W?U(rcd7-uC33YS7(Xh2oUYb8HYxyH?J~bOz;%W=VkG-`#z93U zZuA?QTXeZYn6$|Cch#9&EUYf$YP*n3_tP?|xL~(rwRka--=-G=*k1rXzq*2f7g1ti zu~LAKa4OuFP2(h!aa)8sG{*Frh})3E=y59aRDdxQZOloMFey|XLeYa6R{Pkrj{IxB>xIRC`;WJ5}>@Z2Zn7HH?{Gzjn*Js70FZY^MyGVUWO-a@lmXDnF!?Z z431HwI%SxlkT74Y%A$D?$?w$?wNwPWg9}s`D=aNnp93A$pq7-3yA<}PC`v^VU~uy# zRz@kZt!Ar;7JF>FY9jv9q4e0Odoy$dh$m#N zx`U_iJw#MHefim5?z{r8I`(tQM2gWNr2+edT`gCO)GDQ>5mhxXz1LM2 zOIU_VR6Cx-iCzLj(VyT~wo{t7>7^_SA9JVhf^bJfVJPBWBU*TNcZiNLrk;0j^_SM< zj?U=Hh-T{^HZqBKkZ78c(kNvOG57G~j@J@A`K-SL=L0laKue4lu^3A7;)$Q6vm&lo zUMj0|mFh~8=T0W|qDS+DL`j=zN`jPV^5VoqF5v>mgvpEa!j!Ax*^?U=DaoC37yYmZ2irouEO~|ouK_$gLTQixWilVWM2 zEQ*_Qt_d{^;>?0`iDYfPryYR`YEa==%_#xQ2N;~hA6i8x@t4U0hzY`;=Q^6QJWNwg za$6?Fava_kMjs71$&Hy*jhWn4W2hdkCD0mb2PH-|2mM%Q1uNa5H2Ueuy3HG7|4N`* zt|o2nB59xI+}TG$U#%E+k#~Z%b|Ae*`e7n9UoKV6>8m*nJ*UPFljbqHRPYGNYt>Lv z(GMJpGE9ebuQypU?cO0FSstH!GO20iYGjKkS#KlcBZTfbSo>4UFI1$rgn@u&!(IA= zi?)%4Jdo3Yv{8Gdw#HAVdACb1_pwJ~{)eaM_0D!18wGh*%F$(osVJEz0|?zl&2Deo zq`!^LOV92$UcnRRTEC&y0E_KQ9r32V+h9#ijkpKJ&Q`TpE@eD#$0bYB8N?%R&)aID z85nv|f*o16fwzC)?G@aw6-YG{y9|51(M_%MzHFTqlVhWOx{%=o%VlL~>DYnR>Iq01}9dAbkMJm0$~@(fJcF``k@ z27;W~$m^~QSU|Qq5D@^UK1NfzUW35km0Bh(Z7%>;@~ikNRC$YS#jN53v*`r~`NIKg zmtb$R+aO}b*-`?LnYW+ZK*BMN=e^sTZFsJbmdljJu1e5OAbkmN3J{(HrtKpVv~77+ zlxfC*I|P)HtExhb{NWg;>vM^dd>j;qMqacOBpd+-KyliVXGnZu;qYYe`Ol!D>3AqJ z$kVAO$81_ymx4t#aqh?^Djm}gH?OIhsMA64dD;zl%A5%T<@vnJP)glfH8MaB#`Ywg zpgpAqiJ?ewl8)Ja@Bk?^A=o*KA3Tx{gbl6U_nr>Y3J2!N^=2P@V8Dc=bJXw?5*E(( zG9kmVg-%Eh;QoZ%pOBT#cDLThCI0+ONRk%_*-@({_g1COHl*bcP#a;PA9D9o*Iz2X zK-p=5^-NQ_F5j>DOlmNCk$@v3y~}342>$uPN6?SY`1Ie(qbd zf~yO!Dl#8(VQhkg=nWmRL3a|Jw05$>PKdVlVNGA~+_ z9;S({y?J_%DnPRsW`-Jy#pr(04nb3z*4{$=#0)|Ns2BwCkq-cRWJR6vF_AD3x=lLc zm~tLinS&*0BNv}|@O&lu9Esy+4+qA}I5^AIs$RL;f+!yn10hBw*+>s(l)gGf@x`J{ zvnx34>PG)CjQ{xrJ zj06q2987+*ObcchrBo|m^sj=)m&jqWc6F=6Er6sF?XhzgHy{t|H|$H@&Zg~(x-Qo% z5Xz+GRkmvoS(>`dN^`UGfl6RC^**G8Ao``s61I9QwjCxH|llw0k}cD>%9e!ko(+-Sg}e5ae1 zUk!+pKtzJW+NwdHv?27M13zg37P@%PPIm)F_PU59Ao17}UusKY4vnH~ECBK+yyNfm z`ZP*v-Cm6ZPv$^C5qhjGb+&tr-FJhxaF%r8~27&O{)hoy4`B_}K@(CKDQ zFXQmkM{ReF8H%w+b1^VJmzwP)l7;wwE9tW%#7O7T8UWbO-G*yN* z(ft<_LU?I!@vTe>e+?WEk|^42jG43!V2TvKFQ(7K1ZShSwFdboH^Sbs6O%9URJ)jH zL4<055nYYBiwu~u*9>r)Fm~PUv_<)TB+N3F z3~j8IbFj9AT1WI4F%NwnNj2@NLz$Mx5VPW1G-!z(rZkUKI|j*h+-3pjG|PuEo2)8DCjlvgX?PO?13@rxk&6?J0dSsA3Y2z#`yCa8a}A;*^***1nwBQ> z5XdtCFIEH}7$S-QRFIMiEB2s=fEXTTHMBMhuEeE|uap;|6QIY6cbQ(q(uR%U0+}He z%V&U;Ca#3r z9hhip*mb%dRu@lwvd*CpavUe10Va=^7wxgC!0$urj@1FUk{7V$Ok1a@ARba%;6v zDy-mahO2b}$yzBe^v%Zo$=QS?2*soEx}rDUJ33b$BAb|MAELoUXb12e6-u}q^jMSBAB3g)bRc^ql#bvQyyYO@Y*RrB!Tp-&?NgFdakP?~U@}N*z z=FJ&3-o}YaVjzm)Na&1`rjKkqMd1#8f-k3G)vMdXlwEJP*Ey@sFKgXO(*SL>aXrkt zLhnvgAfX_d*lT{iTr6>E_PSjzaTd^VJuOGNfgtqD%A_z{fwoCs%mRtJ8Vue@D4Igg z%U&uhop)C3ISeVOVhQrDLbF)b>um*H!ot%8dw5urZRNR_;41OTPa%&_!O-9<#a5Bq ztwc&FQF)8Ss9L8b7EM!1T(XnVyWYmc4HelY=?-s#7MjYe7wb`!MLBT{9d2t0y5M%l zR~|;cD@jNjQUuDWCK78d^yJ9q1P7YRP}lR)EgnDTR59M{@S2p$D32o67B$BZ#wgKA zD8~vcRny$|DTJi3LCu)>eLzR>L{cJ_$f#aS4ZxIX6A#yO=d=~fTnEF;-wno`2b?z~ zhojqZiXNl_ufF5+82%_(hvO8o^Eq4$7ptrAL*hWe5*qJSI3=MDpbm7LBYgRPHAkm zr%%Bf-Ealw7mI~bHHevv-(@ji5c$H2w>XKGC~!KH85%Vw|8(*BA{1zX*ilk-W*VFC zAzR661&=zt+aS|!Rmc$x(VJOLjq01?rFV16bc*X*c*?Eg{lN2 zM}2ccXtrn4g*N+;&bhgQiN2hyffbe0n`q_~o)@RWYV;)qb4^F*(n-fgd1Ah@^9R^D&>8gy78e{x)kY&?1CMKHxYJr)f_@_T`pakp zvB?>WND?)ujMLE>{Yl=8Gtn9SN#2ZSqBHuFycsit8tG5-Wz9xcn(?RIyR1_KYW1i2 zYCSt3t3S<~6^aLuV_yr^fh`1?}vc85p&8KujH=&2#J7gaM+x11-_>G_x2wasQ7@)KcQGM896HkhwFta4-VSxv=q22YVl_fj1Je(-V8Mi zvR7Ea#e;-^#mzaoC75#9u!L*HD2PECGL$WBSG z7upcs21LUK)pJPW1Ufd8^p~|s=pz&{SzAyA7x(j20{(CTbX`yHb^O@MMF^@0UTh;P zlohld{@&IuY>s^owtZT1=E&> zC1jUAyd`H1kX244hy%kj1p1AqU?g~;BgDi7yqLTAP_s9(jPMB@*`&b0jh>fxKZk*Z zn#TCVcxSC{o`~1{1ROMzWjPq8vKTcT0;TLYpQCaF=t2`()a%Do))6|V1%CbOT zz)WC`06gdv0Ub6$gVY>qYKBWp)x49l(iEDir28`^MNQ$&{?j@i)ni{C`Xi^_{?T=B>!+M1gAcCn{j`mk8M`~S^8AZDL59xqNa%<;4)~L*8lLBo z1%yx9Nbm0D*1k{#8jJ~^^1NF93A9384evfP4^dLI*X}&dO(uAzZm=E z+KLnThnU=p1V$v_AM9b4H2d;Pt_F~rp>hI4scBki+Nh-aGkHZ#emcE36Ib$ud$WH& zp=Qhb@l@-duzvavw`VqT>DInKq)dwTP&4t#_}-^8GoY-dW}TXl9*s4Xc%P;uZcO{o zjx)N~VE%(okG`wkhLB#V+K2jmHC>1dC?7SY)7yO}8H9oNNh ziU!Rsh~+>XP5rs#ZZ^;mIjJMS1N}ze!84tnIrnUh@(c;yVkVT<_J(zx5TfQqUawG-bf!2zGmom zel+Fzheip%EJ(PT=HRhx0zdENuEU)6-9o%fNbgEaopr@`?hj*DsQ5^L{T(Sn1^Us$ zK^1v;8zXz(&lB!aPQA~TT^+rBwk#D21S1Jq|B|!sO1k>0nTPCJV?g4ht%2h0`IQX_ifq7Z-`-1BZye|nG?fh8DNA0LP zRP>EFIE2FoCI`(4E+0l$cE}spA>QR`AXlaE&5*da;LVV@xbU|}ZW{u39>iB=X7PnR zpFi)Qt&qqYkt48z(x!JHeql2%yov$)AYFrJG>c=Ret?#+hdL)}cu!gP>7b}9^V4&G zL!vK~^xKKR+}uAWDkHJGT%bbEx%=ltnA;`Z2qrJ30r(2?MzxCymj{T$=%!IDc7dP6)Mdlk?Rg1NG6A}EB5V68jpFWu|a{r!E` zlg?;DW#DS>8`zjgi5QFGLRgH-7Zkx^+M%;(_Jw8}v>gfKd=fr%x`kFSV6ugkKVYVX z6u-||_c^P2csQg44o5vm+YK;HABa+QlHliotTWNp2y{{)>*fYod5SQb;7N+enhmQ}l&X_NR{fYi)QW`R zYsTv>rr#P^~$-XmaIx+0AykpHbfV;+jTrs#uu9o zuEVx#?TZLGh}~{eJX@zrwRA1&E9X{>fWl+k3i^QY*Y zyC{KcBASVxyXdg3*e;oZ6dWA(m;%*ki*OOvnSB*$aBo#hosH(DW*r8BsWM@F4gG7_ z{FPO^ww~n}k%pdmB;_uyH!j1Dn06x6+v;}eNyAN`u-=^Tc@}hCmjx0GT zt=^SJqn~9Lp+*Ip|UO5QBy>RU7>T0erNrQ zFawiJpp8uYGTt^NnE6#n7+7%*c422dJ=6%Z27f|4OhFj(+@fdIl(BB6$eQ=%?DE zqKRN$-+bAz1kp*<1yq*ssWh<4bg>N&3{5zU01lmQvAxl_fvnua#3{v8jAN&cK?n2| zy~W>2($GSz;xLpmjK^p$6KtWM#$*G`!AyfDSpEx%lu)Mg_se#-3meH&2WkSoffiCMB%X4mJuJ0ia%z zf_!|4r$vhHA5*RlOUf^wb6-rQAm&Pu?20~E_LuU?6iiI5lheLM>oU+3*CSZo#El6O!TcNMC#f$RPr zcNVH_gW1z&Ll2qot{!HGp-XldDD7h8Zcd~kBz7AdL`WQ(Aso(;_=b|!x-vK#>JArqbVWwjKd{{<545;{q-D&Z#(OW54nc5poH01NS`Q4gU`BJO32N}h z&a5pshnhL*(SeaC*`0EfsHcw0J4FMVx#pyq$%jdkPVA~%Xzy)wMF7;GjbWG>EW=C1 zX3C(767b+}lI9@Bq`qs1JjccXijGej|3Fy=q0F*S&QRHnS!!mdp*K{1W8RwisTo6; zVa#W&TF?55>`EM2?S~L_ICOhyI5sAhF<_&?NIOMQ) zkEo%P2oyWi@X&|Z;mS1mm`PsdQNtBs%y#!YZqC#|Lox#h#N2JTiZc;Y9-}L|6v-?# zA3@mNw@|DE2ywjNxi+9m$nUNavbXBQ9s4!-$z1Ndf~#E_)_%;i_}}N+n3*a#oA-u= zOW}>+it-mK52lb#r4UEg*|4g8Y_y)!(q}lQB&k2&+gD%SY9tddhP$+!W-H8z3Hvj4 zVijlMcx8LjW(u){LwqTsk+@Bx+Lm$=H-b2b$l%7QtonXeAfRO8K^J_e{+e{Fp27#s zV@O1(Xc4VGDS?D8GFE(1Bq7N+ng$Z!v?(LVdEKz&duM{EhVTW+E=&=hq z)wBBUoXAP}xHMIfE?yRjKkotN-Y%)<5>6ui*kkop6B}F%UH4k6T`4cZ(?}ujo|)US zDJQ*Dq*nN%ct8Y7tCp)qVS)@sMoAEFOt7SW51U}K99mIbjF_lqSe8JCpg5YUjHgF5 z*2pPaJL#6Ky3hv{#F1!6tu+8ebB)4w)m*b6wAU=gM}9Fujc(THD;EaR-?t~8{Ci(7Sp1oYc=DPO29JB5hy-%r5t_qjGP5VJP~nEzWvj#) zu~jy_HnU%5X6MnX0u-rm&4%KM$jV*|#xN#F~P7*@{D~YQWuyR=mO zmn^i`=qDy}i8AqSRVw1p)E2y^V=FE*sx%`Z=spP5;xR13E9xQvU{dXGDdzJ#Au`oi67ql=FY7VKIZ5x5+!)w@_>+Onhybh-;Rc@Zwd z?FNI9r(U?*Xl&Lpxr+%nH^d_{yOhkHnn*3KmK^$=NI50^ot{WRpIWBPJ5{H+QaESN zr%Ed#3$`UGil)$f%Jo}acy@UaUeL%TT0WUMg@P;jd3*xg(O;E(UPsBV%IXqTpE;WX z2FviPh^s8Bp6YQ+mkD{9K$+H{v!gSTb|y#UlQU=lToxkf3>8VZ!nEZ)HK9;kS}s5D z%;{`y1*K9EF7|-}MW72=aqga>nX zCdjauW|$db!r3QWU&s~mz>Ya&dpsYjX_&hR-K$p1f!lJZO9wd~9y=1?$hS)~(#YsH~p-7l` z4*yOrEuEa7PfS48#kpUEQXKUF;mA%e!)x78wVt}?wJH)_ZnTBt*JMJjSCEHcQN#L{ zh*$;X6n57`Jqc+z%Tm(y+S+>Um0BiU6BCr(RU;ifep=hPad}@~@Hp{=2Vgvj%G-Rb zr14!|$=mLv0k2JtI}6ZKB?VNTJnVM0)2#zGo`$RXoWh+Wcve-5)x}kJ{tQ+imZyK+xcpF zKDhw^5r3lkbg{BfURg@#m*(M~XQ>ExdxerSw^*2Wor&qm9>&iJGv!fOcu!V^OTW~z zp9wA=-{?RSjyA?37^i?;&y}Qr8xYv(_ifv&sZqOd z>cpoiXV9cplUdY=8SPGJ-)t5TbiIdl2UA+oSj=m|lHACl=eDY8q{KW)_Yc$1A- zzrh-jRHU2__!Ds4+9UB29pG`6={B!n723^NrY(*%?QH0Yrr&|$C!J_Ie4^37`{$bd zbIty_2JR=Z=QL0F_x)VcYW2I#%_J^W^tqp-4lU04UmE=9~LLG+3kt*j3s~%BhDK;KVVo26RB@L! zU=Jk^0K;6f5#QO%9UGliw_A9~D>mymm-HvcpWtgX+|`LIIpg9D#{?*o4ZeBv9FRlK zh*ZbDJs|IJEr}vleV`I+*yk=9~A%6C01d_R#z7~_`K*ZjHrSgOW^j2tqI7xCvkRch!-yE z;)zFbimsjH6%_3uB4$|F)sxt)xaUNiH}CTD>HU8sq`~tZ9SEsvKKV-aWmlgrl=Q_< zgtCAb?3z0n3Im#%ZL$bPFft!_6f+ZG9#sO4YCzRdZDILjbN{cx)Hy}oRh{x2C{-lR zDVk9C_(Yla9#nKS_xMQZt40yoJgI<#47yeGav&itK$fs`jrUaJzg`QwT@!2HZZ6I> zHx*;ay;BomuqyFtPXtAKCI1qEfijmN?%YHvJWA!BA?ldp>tPaAn>TIf1OM5Egm=)! zho+UYRKN{h#co&nFSlrJ;Q#sZd||;^U96IV0A@7VWm{`%vv!&TuY_qa zRw(IuRb3ABYwL{`nJh6iH$AHM5Yom?yHBNUduzMjfZe!DwR*#DwwwJXbTMA3b(>IM z$4vsFY&z${ic1qG;Vpu}?Lxb0_iEcPdBfjq8*2JYYTW6Q4taz1J60O~?JlH61@)TK zL`s-DT4~fa%Iy}!m(VPt*5)q0@Z@}h$PK+PVW3OIi{#0RFPsdG6}Ic_xmK-R4+W?I z&&!5sI};bLDy~+hO`E#7ps9KUVxYRxxYlUHEMjPt;g~+TBdSljxC+W~-{)>@LP0kv z=m2bBZz#{&4D{O;Ak?{fEErwM273%RvSXv+&`Mzrkmi5^H0=ZGF$D<-9a`tALx%cd zrzUqE%d2zHY_;bKD{_9bdhIE?Lf=f27Co!orZ&@1M^K-n){h_}>5G6;OX(_U($ilu zafd&|uOf=Xn-EnLiZMb|9D?4m5rLZUn^MIWE)ekOgd=Hf=WkIGQV=h`DaphD>V?#- zIl41QtzX*c)KlwZ(JF*KMNBY}^~A}*KfAfvg!QJz`gRjDtq)C#jZPaAp+?hgW4(nZ z8ugcKVXj9mZ;N$hO~;v^pQ}K%uRei03=wEw>On!QPZ5cJV{@zX!VOr7YTQWIH*QEh z5->feHWZSw9P}=;c@i@fOY?O#v?g%-F$ph{6zij`Va!85_RaNGk0;Wu7bJCS(h-QmIp@1KI0f2rm&+#eDZOUaBEI3}@&20uyp> zyAO4FVwk~IKry?JzGrQ^dVjly=U7ClMOGH;^Qh_bsHtMMFvG`n@U{S|untEe-A^Y- zjl&NufM{8uEV*&Hn>djdvUR;Q`!vr|S*59EyzRjWSiBVDe#{TJ1CoR1L>@M6LY2~> zyQT)%C3{`mrSZVhn5qwq&5L}!D7p96=Gz7?nMztxCFOGBQ<6?DSCk!thG(-VFs@lH7tO3PPmiZ$GS&sz z3+h9+E$Lutf`jm@-$`asc(F$sx|9H>LTUIzjAgQ_UMfCyYQk(woX1Emk*uxvLJFfx zSR~-d5fz3%qOfvRRX3p!RhTcUh@CJe$AptyoGMG9PDoSYu5b@2P9jfeQ*nc^*Q*cp zg0Hinq4n5fq?V_-2lI<;`dYKsT<2XMG6kDE88HOuX&*h`3>%4J&_HW4axhYwZ#>cj z_Y6n%0wd)PNl~O4l?ZtUraQXnuGrL5^Ni0xC;OpE&&||pYYH=6;z|zcZMbbpC8lwT zquW@IUhP_AjW+#j{o3WE?#jz6FpViU9a|k~$l29nk?*&1UbI304MlZg3rmGc#W`1) zD?ghI0q*f}roKtK$OPSO;6X<>6uquMPr%WcA^HI|FADVPSL{IP*(|HCrohbjgGM`c zkRo|0?E+v=D?#KOsOs|^jzq>YOCQJc?tmy!o@&x!m!wT|NX;C^kQ9Nz)xc%3xy1*u zb$k&v2+eqx(VsLM$4g*c^>!-e&^MJOvpEu*5aL8ts;t4?3ETc=%nS#96T#s;1r zoezu6d>A^eHd6dIH= zY)$Bs;)`&RpFG^;SQ0saD|R^oaR5ow#g`XaJgr7=qWvdjrvgqrwkM67a}(*CEFthYSNl zdynrru4i0}6>Q5E_a7}I?&(JJ@)b59+*iy|SUj%uQA7?J82#(nkRpsYw}{JTZ35Bj zWL6g{sb-xbI%Xh8zqg!UhPt&|FYe=1nX|5yqD5xRO+^wN9B;AgXiC1 z0Q-->_aA@nKmLAkl8oM5Ot>$-_Z3#c6jr>uWhEyp;aW&NlAsG9_CA4q$OBMHnWruI zE_6~t9&ON~ac^}}_|b+Ta}xxSFFM#5{sYuW!MNVlJ!;sS;|HXYf*~WcVhrVx;T|2h zN+eu{R!G6S9hOjn2u7L1Dx_$9uzH5;qoCYfs-)=E**m?$6jEq0r%Sw+eQ(}E@2jIo zBNjwh#kw;rrEipj+Yk$C)lrHrB;W_y%TROEeBMwurWnfts!-J#v< z_YG0iVAksg4(O7QcPdUvik0{LI9#c*C{`nS|Gm;;@nSJhiKXF@5IjA=3c=o#S1=2r z6j-9(jECM8Lv3WE+aR?MDc6G!kIl3=Q7X*|=>$hyCAMly&=I&eMV3^QyG;F;)HyoP zA)xcJota8!aAxK%6M4OSI$n3J>#3_l=|o578qR7(e5jXXL1Z=7`U6c;4_lWSo7ZZ% zUXP3R@};NzzL_H3WLbr_Z-C}oi@91? zz!S;Kebnb$WIi(J-~%NI~1`O7l|RY4!8{F0Q>bVHgPomdl>z>jw`oTV5)m zkW01g7Lf^)z|>r-Y(ozTdP}|LXgEnr#clmpt|X>>NsvpkAE-!;Y6KgXi^CiE-;WX|3@REO$5rT6DYRK-VAbuUCUudw$*RH3Zp$JJHg3McAp7)^cDp}wY( zi+K+7megur#|%>lrgF#(AvaMpCw+57Mw6SxW894wm)0i_@9shEvu#lg19 zc^E`wlV1JQ4brd#cc5drx^~usTV6X8XS|WKg*sjWhDD(U1S=~qJW0x<-P&h$Onn=X zq{GGr{TrmSgy+I_)|`v;y1-7*h#j=*g&Pfe8!tWDZq@29$yRim@EnLbV37;DO#K=g zbZfNXP7RK3p|t@+@oqVdD(eip_wtz zEJFc*wKet3Djr)eGGY z#%k)+WM(#%5CQ68Sv&9NP!?5fTt@5RQnPy}VT+09P_0iH^)Q2N255-E10pQ2@r`+g zMn3(w(ZR|_0(Llk;F=EnAVYn!wR zu@49ZaCa#Y>Co_PzJi4}ssP$|G-*2)382hQhgVR;N)E&6QHg?7m@1cB=#412bI?1; zNcVo3H0c><(&sw;g-(4N8<)P?+0})T=yrp5lx}ppaUFNmGCE`rWEP(d6t6qB?kUHO z_SCvV@l&$+`Sn(wltIyAI{ZU1K{dj=JiCU}q_!dShslT^#tFM(mqQ)a?&>x6w#z$2 zp>rtgMtM_Y_FRPix$mez@JJRIPK%U`XiQ?H$td(*bx*zkMd2!^>X-Zr$$HjaMC%>N?43wM*USF<#*JR1*c3 zvgy;*MGy84heZ=khVxfy?aNpN?muBP>i3W^JG6J^&sYBsNsT`*y+0f1 zeRtC6!ARQwZnT<9yqnp9oTmfD_cfF96z@jwruZ{~;_v?y)%e}RDe4ke6UB{E74FEn z6gB?rk6q^yjyQ0hj!lH(%^oo!;`#ZK_LoGePqkyC7n-mmt0~J%H;z``jYXW5mufkY z!?OoAHVb?pl$#BySSYp|N}F?%^d?Ox@uI;6g79<_KRysF+jO)MV06fr5tH&Sz4F3Q zRMw0#5s&LR4?MyIjz0ogH(28jrDSBqQrm4xLBA`h^_&wG6bng+7Lqt@z240eUNF60 zWzU`DbkmR=tD}Te;ZnOTDn4y?D*0nCcl~iJg;qO7;ZH^E?M!3#E^1qK-sWQCs^%+i z1hHW-Q1cbn+#r+k5#_Z-Dhd=IW~;34|3)6`I)Zh#mVuhD%D)is!085p2!#9fpbt)6ORl?!haLuJ3BMOAz&Y}g%YA9NPLBo>%e+w!2zq^V=aaf_KvmC!nDU~3|04m)zFJ+ zYS134$!~6uL?7}vA;1y>_{9_!;YC;7m~8?1SjfYjPo=!Nl84wA z$9SE70WX)!7wG=2K$osM-dVihJXgWfw(_!&i?KkSM8wBNZI%=-Mm%R-SY0U{0@7!}VQSx9sf#ptkdNjDaH1yJj0S8yN zb8W8g3~yDw?t-xx;p%18p~p^1zYH~3(JqrP60bBKLNY}_93Vrr#cFnFd`?M_+@@a^$)pf`d zno(e?;|XtoOd@(G%mjrb67=YD7$m?~$q0*!0>*9_3L<(i3ZRLkPBe=Jdkbf=B&HSr zg)E(N8Gsoqa~Wu+q&M)?vy0BwR;s_b)w|MYU`N=vLAS#~VIl`>2**a7m(Ufol(>tz zZ`DYJ8z)fQw}{8QQPv9zrD~C`<+fl2flUUuUX0lhEryo%MDDt5P9a)68l-fZkL0PA zzVU~G+7WXKO8azdqzv@efTb)Pqy}G)VFmsKp>+f!NL$bbBi6tMx}@*W)D~Q`;MyD)jB*fzeV=Re zl_e7lKGyz$4>$~P8f&Ud%7aSG5f71wQ>^0Jmv%Pxcm?KQ8o0rMl9OE^y`pqFJ#LrE z3`E&^_Mkphb-K1C@7X%A$RyKE3sy9tI8*vUr~A@er}I)T?QF3Bnr9a)gds{30KCa> zaGWTLKhw15?B2;do`tYw8fy)9)=hJm)A|qsVT|$wZ3n#VZoH>Ql@HmxVH4}efMmx>IP|%=U#&j@q(a0E-&6pr&Ho|(Rtj5GKv-ZPR z$w5dMGs`SVl5bE>W0v`I?u5QM60n)hc4)nuo0@vZfb- z0XnY4Avs=Ig}rMjdL$hYh!lG)Qp}ADb68+=akNs{?~He#MdNy$r6)rQ6>L+uJLA*_ zeq~@jz~&^^0VFKSuqi*1NJDZVt$V@z1q+OoEKJ+xjaSLWk;mu}Z>U{^M^Fn;){cO1 zgDuy_*(8fC?4F?(wk#yE46A;JzJ#5&U|(966|=07A19lkh51$3HjzM}jN6${k@!Z_ zrFD&uenO7Uo59e*5puOx6texa`*MTtU3Pa7ic7CywK!aPs=gJ-sjHRB-K%jF#L^iu zd0hRM_pr&>woy+t?q!q1C|Xq$2BKwABgTV|G-8}tWAqdi#zHT<`kLu;hGt?mD*=zt zWx{&rMtJc20%khqqhPVfw(o zi}?F6{(eq|Dem+E>wvXtSzoq3Z2joF-?6NBV%EtI-Tsq9KVjYZv{ij)#QM;?c|?Eb zfc4Hn>-#aw{=Q}Xt=o4VLE0fsJ8Zpk!~)#+VzEbW-#Kknzk`^gltlU7iCcLjK9vXb z_hQ!Zw;vK=1dsml0g9S^{wufd9JGG;4)7SY4q7DrIBLNo&3w7E_}pP@F~8(gzHr!r z(P4-Y;#RS=yjrEGBi3T6wDNo*f0Xl(FnH9;R|;gE7%UYPmkJjks#z@@viQ%>`P=x@ z544RR5u_OfX#|OMvp;Zen+*f6X0r`K9Jd0jG)1Gp`oRy5T8h(rh{hITGS*n^jo8iD z)dP-|)!&(zV`T`y^N+GTil4XeL*Ga6L*+b#p>`DC)&zcNyoUS(*vQA-RU?3*ez3RC z>~Sr-8zsfPt#69;zK@ta)Jr3|^c<_)vKex)W^6B(YTe6_D)aXOt|{r-xJyC0dOS8d zhu0t~itZ!jkITjR8gdsroMr=!`9qvh1_rM>%LCdIz3Svyx_DRXjl%WF{(7^&-rTEY zc7MGI(-7Yq^VOP=`-h935J#BG??bD_-{s-reZAhC+WmS{-qU(BFXifcKi()*_m`Xf zTZvS|L2fM=`Z!%|hzufFis74pMY5VREIU3{rRcC+I*L%x_BOetvIp2xVwah5)a{kkiJ0G!r@tp(K5!~S% z!PU!=cMe;3j#vx0xw-REb(53Ft<6_(yYtQ4caB+~fA?FKbvubXcUl05{$8B1B4 z*kW6%DSIn@X}gWb;xJ9Nm4;bcJlxpow0pJnW=j~LcxTi){QZwx>1*xIrkUEbw_tzb z@b^DpNxKtS*qu0h`_6|@*9WMs0~Rb%+`jWcgdd{th?Pj(Mk}iC9HZc2OQ3N3&Lo6R@UW$9L=Zr$ar=&qqz_TjN30bW`IsWC05c)mo^*LQ$aAcRy?qem{!aGF+8?#CnYg|2r{7<+$~kcTpy_ z@Tqq`YTbI5pgxN5hY>!Cu*`uF{p;$B~%tH$$a0u&2fsLiE4wkiwmWG3ByIzNg*O)?#AttI?ww|lDx#rgdCLsn^}P+2}| zE#vNQ5lSBitaEvYHkb48tyf)H<%Imxg(c?*;_%3&fUCh}D!A;F3KYkR_z$ZOnSjbs zZXP#^gvy$;xZoVLNcZAlt2n<#HI_>i2Tw%QjV1g)EtK=C6k_@m{t4$C9E!$ z^6+s`Jt6}Y70ZaJTh61FGD)MZ=Q5TP%fznY_buz!4##3|S((_YvDag*OqgLgORCFWfg{M1rHNZ z!afWmB7wBY8^Oo~7`>>IW@=1kCK3ZCZv;Ct66sn?W)IVT$x?Xq*1S0-kj=MH(+_#v%6@}litAe~~RHAww&Lcy-+f;)^W%~cwdlTrm zuJcUr7IuIuxQU{+BDDY{!4j(gZn7x3P$-hHzybvnv{?zdSSXUP!2*m$i<5L($#f>u zJ;`*|K0V6xM424NozvsA#_5wi87GrWCuzq=cBfA`XOc5^cg~#S?mqFtCZ!<>&-eXz zdH20~1r$g^mJ`!1;k~=Pd;k02f4%p=gc!Dl^LVR8xcW$C4pRDM16)KSW@Cz&nnNLQ zJma%7HiT*h+gzNvKj;uzt_i*qJ>Dyu%Jd?`ocjlTjfh)Qpyt3Y`(WeS=r-gautG@kcxn+1=4N!p2(-Is>-iWo--n< zOX)?5NT~NYLDY1k^tkLZW$cNWTM)~Pz`9k9=x#nP*p6&1l2T-ih@{wC0}(q;ETu?F zdDDrc?OG)LRV|VNm?DyH6|wQD>)VV-N-35iYP)%F$GfK?IH-$c_s3cwi!YFF zSJx=q8Ub{tEnwbv@tqPZB~ePNAxU&MCDAiZ61~StqW4lry}Dgpg-E)`NuopXlBicp zdLsQ@s+C0VZ%7htKm>*S_CAQ9T@*e?CURrg4EO#Co?lm5@a%4-;JFuK<{M4#Bz(a$ z5fMDsB6hwDqTs~NI#h*XXY-wlop&a1VtwD1z*&d<)JT|dBuGnlI?iCD5~WZgUC|dP z*$q!vWNTJ2j-f|hNl&bd5+;`V_REwUnTT}})uEnHX@+ZJdl<Dd}Y!IxGLf$Q%Fj4sAI zk_T*rt=T*s*p@s4jM)R8jkf+ooz}Tq8=s_Xqd)D8S8XeQ&>DZt2fZ#dwEOxW z2@Lh_>u0gonmezbh3RLdUDqYlAtYPz`v>^_XZ+gm6GKj&d13kM0Y`1zLF6>R+Ji8n zQ;Hb})Y#~Iw{xT=_=MA+ttKD(M4*iZeW|Tm+Z7C*!~fwGR$YzaSx3KQREGCMzdU04 zyau8&w!-l06BQeNttdOFtwBO9NeD&t7XJJYIqnl7Nd79lNjflmp7|J+xdvJt+$pRg*KQ#?HsgJd}=EW&cN%z#kE+% z!5I*yqqopwxCJ&PmZ@UaE!?KAc2Pq_c^Qr*yO*GwF-lN~?g}LIxP%C@#At-kVD0iE6Nvggjs(MkV7ohcZJj^ioi7@Mf3&|QwB$v*vt-7rd3JY z16?2Ijdm*38W9UW4i}A1WINzr;MtjC7AjxiZ1#m=H~~(>2{1NJ+dr~kn#WaL2yj&F z5O=^N(%RvIkbG{kf?g9Z!oWYjgo6*j3c#MF{#Tg4a8Z^gr8pgPjFrLUFG*>?RQg#wyNCD`v;ZK4l(A%Yljn2Xlp`_{KwaE5DoahDK3iV2@kZ>yhxZwCTG%jeV=@t#P0Sv}kIhI*qZtA0pCho;0^ z@CJPu-k>kDTvN8`bBT<4yGcL210mztrc%?FksE)sYd6U2_ZT((K|KFMJkOyA`|$h- ze*YNH4;eBnw73ra2G?yp5C|Rq$is0!7iV(3L1Dg9m|a2yTjM?|>lx^qsa`IFfSvaTbwk1JH=q z4P~eanldLt`7;Kf62sB!(BZxw4e6dfQazF~3UvA?c>|S5uk_~qKn}!Aol54I6BSE0Up0KDjRd7(|&s zY&>aOH;ID?kvdhJ)kn|){xL+4V${?yLOsRs0@6snS~@>dnKDP#_1R=6bIOe!M^omc z@W~#Z0`(jWe_0fAsc<}6!LYFUHBJOIgrWH*V+8IP;okP;Brh7!F1i3luyWb?kCD4E zryr;RyUx&#PC6=g{VbCBBhoWtILCs7fod1+dGnPf&VV9X`gp2bnp>Qnt=efevsR~g zbjm`-QVy#a#lUqJl$CnQQzMlNbYk}(I|0y_&P$wLydN3B>+Bq!jw8dK(#V~kq`UeR z5~+%}(RW+zfqB#Z=5Q60+JXBm&(8)2=QqzXJha@Em3pOYkJE1|`=2var&rKCyi@cV z1X!JBd;^EE%JhJa;k>;+QiQ*@;~P0YxiEcsZf2>Wv2_K-P3Kx=uFcEtRO)5?A46TL zzFeNcZDKFaocD&;Ib*+OD*TS_-vB^wdVP!vVBOQHS=?_m4wS?srKl_ViWd%}deA7$ zr-pEa65|b!UPS5dxDH>w9lF~e4rMc4O(&f2H@-gI2r>gT<2?4-zAD^tw zqcB=EgQ$-R9k#G3*@1g)${!Dq;K5pW@qU=e+4+(OwJo@BO`ELQsnWb@>`yi9j$%M} z8FoXZMc!ChPK6;yB$^FD&K49fFU>4Xqe2*XQ)o)Sw>Zs}g*dtv@c@*@;AX<-y7?)+|W5qvKQGbbbAyy~1LZY}C$tIAW%cbfRt`uFIt(wHW zF)IxfQHEQ5yv5d8w(XgkPw24>1gH@mOZsTI^K!*gW8{>b*TwH%=cPT<+@I;rp8%>E z8j&WwxGNMkymi8xTVCEAL2Qs%Mz6y>*$u6+)IxTjc);X6ldeW1h`kwz?Nu>QxIMDF zx$MX;W8Rpy{*8vHM|Cq9hzqw5Q3g=(!Yz0#?ByrjwQ3Q{kp{mE(*}1{9n`xrt{TP_ zoJ&|(m}`&T289}dgIv7ys`|8!5KYMmcT@T*6=K@8``s|5zL4 zCb&ZW8NC__MH@+zXH4i)*;B*g+TH<63544zYavLhx9TYC-DsQNW* z>w3_2yA2JK?_m+-iwF{NA4Uj+fZ-lBx0~G>!67a|TmHLP1PH7bC9fq$>xD%xKWT)j z3)AzLE7ZI^WP;!wK_*b75H5u!1Gdo+F``B*h1UU#p4BTba}4sdkyejquq@70rY~Ni zrk(~@e13Xr@e-d8L*I|=Oty<-{8DMIGSJAnXwyZ_U|JVgG45q32c1HPF5GwEiP0)# zUsxedjui=ZQDGqSnm&80bP&3{T#)WtjvlDB9Hj=arJlM-HEq7W!K-SL?o6-gLi46C zy1kaKI`Qir_#60(|M&9;?0%DNrp#;jn?&K`UL7lbJ&YVVCM6D3?DgQutc3bTiz^kRqdi)V+HPrJMW$qRH|ND)}taqcNO_@cNf`izkyIgHzTlDUboaTwyuOT6oL z5`W;T=;GnP4fK`UgMb_1Jl}-hX8g7=LvMWMa5|K6)pAQOGw2*P8Qa8%YcuEzHW}E* z3$Lurpy$_Q;HVkAzRch$M7X|j3UQZO=FVha5$AAcSHl9w)J2A;S){lvlo?z1Z`BspN%s5C^TU?tY)19>tI=L1cy8M__>_bB5; z+dY`h-RkPS>KYEnVRJX!_`B$j-_i`vb$63&Ouvu5{31@rVGP)t`~V8dRsy8cm2E)z zka~It{Egv|rIYh>i5?$ zGWhl5H(*b(rQ6jR1nkU@;TWGjQ|xmzk;7sWfG;PfkYEFInTFzLj6?YCvn=2zb~oo*0=F@ zFV5B_#OwMA^$qw<6N$I$sAF5v_Vf5r-J%Nk{rG(vbO`QJ&D848rJ~ z)GN~q)9^usZ(g%R$X-Lyhg)6xQWsKie;jab4s*Afuh0cw2!q7a1hX@*mR?^Nt%7eD z%NK6rnprx@IQ+aGTHe6n+-JnXj_byZgM{Wklt+m&JgD+KIbWLV?I|+ZCwe_N2`KsK zHTsR~gF-cMV@L5!GOk*W)Ixs_$U|`RS#4K9FoSG+P?7hxYk#7+VSVblsS77Nlfblm z62uZDmR&Oi?u5j;MnZ&FK94Mk3BGS1Ke?FhTg>z=_V+D67j&b42TqTL8GHh)N zmHAgH^H12pAC`;UstZfya%BN`^pq>FRm%9 zHeG&(hrcueO;?hKk{9Qf=EQe|KS}G~^qa8F+cuF0vQ1jvkW}0%Lo+oxsnC|Ds}<`I z+f!@fKVSN!=SgcGbt3Ok@DBds|MmX16?uP*5BT?&_`4H-KWpBZcK1cz7ZXvD_aiqE zLINTiHd<10y)BW~M5YMjzYZ<`Nfe5^DgVjIzIgdhBADx#4_)f&26b(tmH%Yxr^tT~ z>a%p4wEQQ+?IwnVF!CSLt^9{L8+GNs{uucWLSFY>6Y|Wi#P?6+>R+3*^+l1k=GC9q zk*)fPyP z!Xiaa%9hpJleXBq@3QpyyUWt`gn*@P>hc&l?zydH<^3yNcI!BK2+zpK`M>BUqu-12 z>!V=3EAZ>g`^T@H=fN`J)ZO69_I{AHb7j@Sdon?SNJ{?3ap->!;=^D3zl+@@TJ+21 zOqn0U-+S@?QLm2W&^ID{m8_JeB-%(|p5kF^a!1W-TQ#d?%pm4tCpNcRW2dw1$gX2u zYE#!}N(u}-T`=ryz)u@`#Ev6ZRmc~wZdO;f=yqw~;R$%%6gU=3U@cA{( z@bA?Oe-8(XQ|b4ipcs6RPKF;HR$b1Yj_3Rj)Z_dsSZmg7`T0&X<)ou_8*9%=tN#EQ z;!7e&{G_whG$+1TBT*z0U$48%eGeAn7qA$)P{rL+XEk%#|6hRw;i!_iyzIb%UpEvKUX9b-H zTN#-W7e>M5#?zVYuo&R5rVjH1M+kjra;}U%G`>*Eq1Xd1`>C5o)_Je>r3B73{x@)r z*;q1PL0BAkXp)KLT}EC3Z|_uJ`Rk30-FOSyxNaAX2N|0Y4=ADfaPaM6G)AA44ou@p zK-yst$M;(APb?qcfkxzP2^#ooWN%X!aDq}hJQyi)cVanXx{bcaRM@U^?=~fq`0(VX z?dSd2ij1$wSeAr>zC|s;KTn}+9WQG)mPCt0>qyGskIiaPzqI@zmEL-zUk&;9YD*lo zqP6qYn!xp4+silvC+3?Rz>Pqi-u2pF#dkZ@_iaT6<^(P=$fNJI-qX6=r^fo8xOru- z8n1u{;;Qq@(~C4z$R)4)m$xOA&f1BxqqciT^CY+)O@T z2N}onN}EcKELBU%HpJt6NWJuC+m(cRoG(efXr$aLsL~uk%GTC+q)fEbLCTcw>qd1G z685d;>-#w64s9P+|6j9+CQ3c{;f<@~=x;SQile{Q%rK__6TxtOue#N)J0M?=;P-Zb z-bc>>zFtM`1{L@QGvwz#qOLz`XNU;iq5l4Rt%=rUIKoj32Z;9)nE~C{Reh@-03VY> z##qv4^0{ZY*3623OkH>YPFtQf{*{*HlXb@GRoJZl4CQxxqeCI`Y+>S?t^7NbwMVYs zYgrzw+eq+PwDQ(B+7y<_HzB!((#>IPj=e?wAb!6j9$?^h4~B0JLBk5z3u$z?UEyZn zGx>b66%W~Sh;>>#drlHIs{9K$j+~v$zmUt1G^ulN&z^(p)t(qOo?S#PgqO+&P)y zlRkHDWH^`Q8Rbs({OH&-gQKI*u*%5jc)nR>hlUV%6`oym8inDkelBkYh?J4>7Ig|= zZ&Bkog@D;qVyBzkqp|7^6qq49{)osIOY2;o5yi0;;}|C_#NlH@(%g7k47+|GkYMtXcJT z^OxZa{-XL^QxlxV{5Pid;<3Bs9lD88@5?xB`&QFCO}bX1X)m7MP~DPOYI>*n4YjvL z=VjGbcu2Q~yK?PQMfr8GQ>UWT;ls#p|AYD}iat*}-S^te!lg=Ou@6`^H`lj#c}`w& zYw&Aym0&YJ^wMNSqo?j$2nPp;YcUu z<|^~Ok@ii=UfbOM)F4iRLNh_dNIiShyGLeW|G0Dz1yoyXPTy>sclv|NTYm)?IUP5&Y~WAidLFQfBN zU*A(bT21D0pY43|HbemEmj%5uO|1cDjMud7G_^X4Yq}A&ViZqF`JI0@H#UMSpo+yg952nXXkNBZT91s?U~ty z3J-nis$NcZYD&`Q;Kl`Bqfu!*m4%l6N@bi2L0Uv4T8RDxuP&I%Rc2-udIA0YDekUK z@jTy2o}sB*Vi0j_^ty>Da?*)jhNM|{{lR@&(%5&w2@XM`SD{Z zZ1coAyp5%MH`Z>@cbQNDTb~*D{@Rh(QU$Y`Wencx4VG`PY(XhP*c1Mk#v@`0KTB6Q zpt52GIl?`SJqVbO*?D^cSdh^B=yl-=VX_50=ScXVULk?I5KF!@J`v}r~&0bFs9AO(d9P@tL+|-jzr>J_eGL@TSYe`Gu{V~K^Jzg(jHAjZtcg#=o?xm+Z4u@SSFmL_eKfq8 z*xyYd)NMVC5s~c_r?3qT!7em0?adX(Mh@op-^INXZF(S(cqr}MhV`PgLOO5izvIjo zzfKtnzxaPQf0$pRpXOOpU>1MrqM0`D{A0}*E1ccxP=kp7a}HBkU$m@ugo|R{LHwMU zSEs+sKU!bRa~?o!tHD0;Dh_8vG3z&?R<3^UZ0On9sp$(~w(kQn*-yblpi$}U-9)8M z+x#8a!a6P+Xqb8VbB9pBjTHXk|NZ>uEkaG00t@&{gu3iiun4sk5vgeRK=fwD(1Hf& zp9kzzL!*;WYR(Q9>Lb-VE9ed>e9|FRojx=FL<2}QH9Lt@o0q4np%5G91HT@{tMm!) z07p^kmE^$m-8Pv( zxI%=0pt$MQZ7{#i^Y(;}Y2)8I#QH2!_>2E{>!3v}ORqkLf}~edUImL-D=@%~3Wzf~ zlpmbTjpc`6`+?r}@xWtS4>P*)72a*-Fr!XanV$|Y!#H0Z%L8^yPF2oNmgg%mZ0}F> zJol5^**F7-GnjTayWDwd=lujqQSZ>$Qrc2m|AyuCBvb%NpixrVJ5mO%nt#KLx9z0UOt zlp@fMVjZ9#hPH-nfQtZ z>;!WBS;eGU5;KUCWui2h9@nSMZMvu_7dpfr#@dY<3Wb(>zhAnG_U3yf-07d90y z3R>t#yJne8>c?UXReAn(1R_^Udp9~GBzSx6$sI`V1j~X2C7d^fb<0(puS}v@@WlCP#PaNYJW*Kv|zIK_oJS^g-ZF zKxEp3$K$1`($YnI4d1AGV8XHZ(mc+=5sVeDf(%ek=ZruKNDQS*!X;sI7@zSS2%C8J zK{P2YeWuz;o`ff3`eKzy_=bx%YZ}qrGB37Yd<`{f;cm)deDjzjD}S8(1-D9$9QMS5 zV~pf9G@HXD0wBiN84j)v2J=kib=<@H%5>#bR|G+ZtU#otAxcD8e;UnEjHeF?96Vy_ zIeZUZH7*D5#C!c_!GbrQx56;JRbVQ(l@M+KNMhQ+iojEL96@m$79znzME&M)5wDSn zm!2css0<QF6Nt=GP{W)s-Lor%%j;2g^FzY74b%xO^O`7Y>G26kTaJhxTN|};=Z|s1711*`vYEa3lCG>0wirGh#|$KcWDce zMIe)O;9@Jcgcb|9R>*vcGB#T=mZ_H-RY-PZ_2ptxG6f4 zvfUY=_-)EXplee7{y^t7sTM%`)%K^~0-k61B&*+c$l-6lw|UNjtl#w~P3mH5#vyQj z2tJrGQ#RBe>P@HTr+NH4a8d)z{TQpCo<>&?2ys3w4jbDgE-`o z?*{GLw$1ly$}#lk8hW9NbG~AUXt>L|uk|yT+L^Pt8+_>XG;qoN73GkmBq=+c7jI1sO4Ko-O_(S?VwPRnCJ#3M`yHu50ay_g4$ zKpg(Q9iX1OD2R`kxjWM6+yxbE!+P$HMCJ~1##$JZE#A=F*}}F5adWqZ0cprs1_c4Z z2Vfxg9EB(o&RM6aJ<{0J9*Hc==nNb+Q+u@0sSPSv!0M?z8kt(i_-mP3TfCvEwS{dD z;-+>D0}4+qAla&ZPHf&TG^7m*Cd7O$CH#Cln%({w`sunpVZ#!c)R1|OMN zXlwqY;9ip`a>n-GPAXlk;re%<v&A@88J=6OnoOzer&n(*Mns+`)iYKO1!AUXkQX#F}^ULy*xYokoo7Ur3Uxj#DcaouKP@Uku1 zj>aNlBjz35h(ROI9H(2N zEx%C%dbCCzG^)etf-l)V)xjofZEKX(*z%2m#Fn<5h{cpfjCmFsVN9VjCWOa`6%v(# zz@|KGF>g_X>0eRwiQ{zrjY&Ug&wgme5dAg`f@?&IpoWEOoyoO!zD6h4mTzowZE4$y z*vW0gjHm%K5EWt~`cs+(BAT&?w3r@9G6(ga=|v;xnwe&@p8u%0i}qHc1E^Oc-mGqS zv_r8lF_a)`c}zEKp+m_C&cn%Ra9*5sQXm4BERXXBcxKC44$ZB)ktX7qgROY?*|%+Z zHB7VR96U`zbZ`xu#nQNsRNAm6&valr(QUIp1fEr10@!@!u4FyaUBbs%iI(g8rU(PvC;`2$!%;pk41;=8J_fD8Zo-q zlHp-zqRS)3>{7?QdVC$kRNKjwD2*?1*z%15@^}=Go{>ej)QEY(mW%*0PzQnnk##{p zhUG6?biF7><2DN0lg1!alQz=)RD zgperT5ExM|Owcl(CZ&PXh*86qjDRshWizyTL=aMQ`Y0UJ>jua48sV635RSnHCJlp( zXCKkfX+*uUB_nW*5cN!qer08;C?qrM2Fc8dkPHiBc3h3&WG0G}o?50`YD59CCBv}f z8JW=1UP%Fo0<(YJfVmcR#ty78V0!9|sTdtqBLcs!8Ws3?oGb*)7=b^qw?#$j%)q*V zlS7KLGTC7?2D*VL9@dPYVWl7wRSLLEG6Xsnh|tCWbWvwHnp-bM!y(lNU4zbk^e@6z zYDUno{GW-+{}C}q@*|Mru4qP^j-vWeCn@s`TL}I~Q)5u-N2@ch!}2R3Eh5?L1@Hz{ z4-7K`(x~c@X;}3@$p}@9a_Sh>qdXf`sL+g6sA|A@Y~2v_Sc4onse$scT9(tREz@@ zFvEF}D9BC(AggU-y+F3Qvs5#as2-Au>LL9N>meu^1{u%r`XG}65mNU`rCPpJnTY}o zMeW+;5zR;|4e>uT5vDl(QQe@wVch^FYuFnmn>W@(W*a4K$B#uj-k>m!CL$dVgz;4k ztL`j8|8cj-&G8Gzc+TMldkI2h0qdXkb#rEpx&+Fk8`p8i{8yO>|7e1%W5*_Q3h3p| z4(X5@_V7lAd;h#t)BUs@5cksEP>E+=y6xw2a0M^f8zhf{csYJI!%f+~28G#S9o_&= zDY?k=2v6U*G<(#A2T)w1|7niRHsF7lmqNP?_gzym_^JbvEA39W^z&$jX@Vyk%q6G- z9ozeRvv^2fBbidmJ{x>7tCfb@x_8`oWBLQ68S(u}YO%fCgP6E-k z=FCe`l&7MDr2gVwM3y7p|= z&Pd` z`6K2Y51nd9EN>Rv{i!T2X=7|YD}V|>wA*TY@pXhCmh*Nd)%Pxr7PBKy1nrnH_46WR zQ(Dg(cOBY9nAFgRfYBz| zen`LC5gn^RMEhy_MWj<9GdKOmCe@qFev8E`2#}^$sCPj%+dEwfy_4W^@R$l7kjp!W1dVZ*@lM_Ce<4(DJo+KyAU!Kr%Y;Sgun`uY)7bH z?Fb#ACZk;oaQaNG#+od7GTAe*ug6f&uyAq0g(L!jYEiesa; zUaW2i?xg1cO+uzn>=2H|4x#42r~QsM1Pj=sQ74Qk8yW%`C#THQ^W>F7xKt^B+%m2s zG6bDsmzyvJom4XflN`Y#of@45o$Aj5d!ITpUOvIS5)PW+fVZhDkQk9CSSUMg8GF*;sLsd(x~7pfU=`1C1PhA!xjmj|kt zdZZBpur3&#BS3{jq^T>0&Ws!*&cIN_K1mKAEs%8*u877AxcnK2lN^ z*PrmmHekkvQ!>%99c^^p9Eo(e1~Tf+n}L-iM(52ETsyW93AAGi%yDjPN5k{xKH-mz zhA-j4U@mbY(~6!JQ!zsMOllxh^}1*)7v-FFS+sq3g|NLE8Yg&7Rf`74t+;EsrW3kC z?2Tazyskj+uRR%O@^_!=1Ibtyae70vNdRNJqkgLjJ5F%k+>FfxD; z$r`Y7=L+_4(@bap7CeE{rAyfXK-7ps=oM|{(n5_iVp3O~REN>&C`!B4KXA;B)-Gx< zAwrGKXZ^Xx685@SAJHQ#-!7v-9MY{=P#up4)rvM>05gjAN21jbuk%0lWyJfv2%ch>&qoAx$8z0e@x)F^yt1 zo9kVAsMi7d1;T|bX@_q`RyReC_d8?9iV}#xVIY2nkQ`A`i4-;BifO_lLIng^yEKh3 zXce!U!7LGKx~1si(WxOI*clB(3|-f@Z1oY+1<46y2gbBANl`9tlViqLBaxW0`D*F> zOhxWj5Zf{P8j?Y{)zg&q#^sd_jSHmM6b_*zRUq8jIbB77ytx@e3os5Z%`CwIMwRlC zLs;phJ8FhS>?M1cnMTLGoJi-r9De`6~_;AVd|taTtWp1Pep_F1q39ICQE%3YzgvFWeZU6h}ZS54g98Jn6$c2W^rJ+>gi@bg5`( zb!xP;rbVx_T$wsG+F6|%>TJ*h*I6mW&e}_Ab$9zIqPaBFUqgXy$uOeWREsE~20ZZ6 z%;FmM`b_QDrH6XW6>VF0{Wb~cxrwsbf=H7Lz0X*o8_U=?Ek2cw61f@oE!w zD7Ju4FYahAJWAOJ6bVyYBREl@0u$6VGhlP<5WUjD3_M~qqGZ~~9Z2iXpw$dWHBDU527S#pzisFX?ovZA+&-L|9H5c6tbG)W z&<#6Eue7Oak<>$9NLn7My03d_0s0;e!fcOUntc_$KbIZLp3P$~&3LjZDk1IyJe8a+ zO--c?MuT#I+;uwJa2d4owbW$!{CV8Bm`)-5vx{TYQ=VVQ32&^xvUYi{&+X=|@G8b= z6Emg>pR(i9&uk%!9_L5K^FaHWO0nO~%`c4Njz~t2o=)MG$El@qWxmmGj-JbpWpTwl zKUx^V=xc6VYW^P`B`4d|LKK~~R&;{Q;Lv*jxE^3W1tp){W2Wuw<`yOBGj{)#=F6A3 z?`87z*zi!y{<0t|=m#1y#e4iYU(a;0>qkD@!Kn(Ht{Vv}aOreE>dB6)DY$-z2x ziZ^9)YldUPjx~#7stemz2v#^jcXq4HXKP3HW6MiP@@DnyD~!p)QI1(B-fg|31C-$tz+%C>yq<6PeUFw!Gs`5CbmT zm>rUNcQ9A~d(`4b@5eAM5SbQ*mZl`8OyCZb`5Ab#*f0|vqdJahitKgp+3|e3Q;m&2KR!A!mdhh? zL?@zR_FQpzw9ulc&II?=eFC6NG{2L0Lw&C4%ZY5A%QbnQ;iCYtKzTo2>dX=Ho0bC2 zX{@q<4a-ozJv|}FHIj7p0^~veY8;@KuWJG8l+mI5sqDl^vA1dyvB_kvIy|LK zTQoD`*hpF19C5w7y%Gr}j8s#vL|J5W(g_vZP*S&swwxe%D(saSAb^jtyFMnhQz-yuc8;*| zz6`iDR(~`hnfbLly{0JZyG1oG>oShrnIXNDe_I@RSVKD{i;< z)BVq`L03`9RO)5?zdU<+srqtx2G*;WCy6)kqt8qQz9cm$cg6H25BDWc^d*nuS4ht?B^ z!*VH7Ak;)f@A0`x8Mor(FI=dUsk%AS)&Ng>*%f+}8yttG7sNGBu_~52_>)3MB*;=I z!g)aDsh?qGdPFOaYdc4nBv36?SQ-tE-jioZUi@J><$Lp!2z?0yE4{xjuow$##W;zTjCL~<|gXiS`51Yd-($HSe&Hc zd=jxFJVfjL3#ZBa9xn9cFaF>6e`+H#sL339M3?xZ9;FTg`7bch{IiUy)fwcMpn-9%dRt>sSjy&WI9-lCRYM5$KlGLNbSDBmDeQ}DQB`_3X|k3|sV zWN9HuRW*5Ge)e(_ici~(hZGhHq??5~Ff>YtxUUZycx66${&lI=b_*I*@p?NOZr4gu zb@A5ny-1@XlvDVoLiW{8b*&2>>xR08oOcsy6LhWrTP@$G{u!=h?^M?}sCS#UUTIT# zxqFtbHWi{AA~SupaBF#!w75xK+ibtL5#JNt zZdcRtHq_t3`d3@j^{wj7TawakQ?@Z>E6Qv~3XAMOBQtp4iT4|m>iZyN&Oji*)w5b_ zz*K7ysgi=XXR=y()w=(BpT1aL=zDrDq(1cZ9PD9Qpy~Fd@vhaB{XcMPc_+SQAh)v) z)V4J>0yS!hTLA4Gp#RH&^+40|2KDT&n|K9UFn6l}N|5H-E({az8ilUjqpt5(1f)T! zdlePVJ*riW@h)|GH2(ssz;Of>S3l;VkmkomvtxKTU4YCoT4+`0sNzCFJu~|J zW_2#dU9l4Ra$;Re%XXfQj{rG|$ljeg$6PGv_% zsCjm)Y_2$w9T|QppM5DSLu*r7<7ih|bmP=;u|tjLi>F3&6XU;`Xl&gPd%5l$_R^r> zVK1~UYGb5N0rs}3YwZ?$TP^nfNJ4N`u!E@CX>qm7;OYjMM7>z9Zc^8|0Eo-Pca84) zo!HLzZODHO`NZ`bA8!b^O>Z4;d%7Rd7=bonO7c)z<2Ga+^B_)ci|0G=T~LVa>grA< z7%0?XhoufblrVU{Q(eEOE_H}v@@^Tl#pHX{^*uf&-zS)S|H_!0iNWM}RNMq?6P(x9 z9v|I0fNrB>L&Jr9o6>(B0tN<}E~Qa2TPS9AHt@2O_&IuxDB2}B3k1zg=w$uqV{OBW zX>I7ewWTri?ltIrBcXb7Ia<=%6rK;>XjVOaJ)eHFjTzt)|1HW1m)LLFPhgGdO9sY* zKDlVvu%Hgjf;7@qlCNF@SM|zfc>i#389V&nz|CRC4Ky=sSg$Q$acajf?xgD2-=_lA2! zr52!p+d|W3&=;1#sBv#I>mFv}%X*O) zuitA5??GYq>^}2;zj=Sayg!KdA3**?c)u~%5T!F6x0KG3wj`)raeA(ge}|`vFb|kV z(6~{Ze5x{I(?aCVAlO57;Qy1&hTN?P|A4J`3S0lxX2aGyEnC-2f3xI%(dKTpxjxfR z3Y09V+^eqd^GW5y3SuNPuRkJ0^U;-wW`7LPjB@HtD#W;b>7dg|2kC|>T2Lp`20~oS z7PG*8j~>Sp?OMtV@uE;1KF5sVAvPm)*@y_8ng)ZypYtd)tDMS@IHP+5lzMFhcr&c> zB>R)6M#s)hjAVahWjVh?eXof5_XEo*Zh#hJ5gA&XP<@|GQQ6B>NL5~hd>(3^vk zAo={6d_jbJA+L_Q7MYw*%8sJLNf=l6hZTl4$gPcQ3_^q>8bbpV__2m4u&6(>AV{7_ z6didI**_ppT8NKGUt82Qk~X3Jn=N_znARNxwi>h_0No)|qdOQFLU)MeU>B_JuqGn& zqgHotM8+p0ak>N4g?m?~7jf!BlwO1+d!Jg|HCkiaG*y6G&y-)YTp88f5}mmD{aE_J*YgJJj`E zbtST>j&P3*(lWl?3UWjP3hsKV1-@STK~M&oR#pKl^8TID00u0+tw=w=Lp6ZzhM2?p zX#hX7k_G_VAHV#!Sp)cq+tL6&Yh`@LoP7=89h=**24IAKi2q>XkF3nZzbo`ZVOY^T z(}>U?74?6#F{$AQmV=0+H#*fg9Gw>{i_=LX_QUSdq>@j!z1#c{Qg^0+j-(*kKLg6whr_df`#9q<}ypBMsuT$ghtScdm^7aWX8#RNAb4Q{akXZCCKSXcL%lX@&8B^uh}J3dQ@rjY9ytIJkNI(u zDZ4e)VANmYDEM8K<2^OpF!oHZMm1`~H3Usn`KDe(qKx{HQz4@u#qSzXbJ z6I)}DG-ArGHIl@l<_AGe4SX{Ht}((Hi^ay?w?-`f*@Q?X#A4!P2d0b49LeXq3HaHF zu!6uaqlMfvbr6{4ebtLbOHsYPT}I1Q^sk?^r1y^XufW>~hmDaz8uHe}$sjTKU5n7~ zkJYbXYi1*oLV)T~nc=Uoq4_i1&`k8>Zh#vKxJVyPg1FhFu%j8<0L<2a1kJ%6>hHhT z`m9>sZEB#}m4r&R;$;Fk+j|Wo=)lz zTDMuz=xa=(v~Ud7~N`4BX3Z=X7VnY$xxgPranw=GV9rgEP>=8PJH;Vc2C*QVZTH4bMOGie~z{uYv|$UNO1gja#cY4MIYKO~;6}T=ZRxSw1U9PS!f7?|dp&u}^aaN>5TS#WPOP0R{8Z$0A9q2H`E)z1=eV4 zP0L(=LTyiEkds9T{l)Ikdv~G<|I4T>GT%UndWU6*x?jQ)=vL|n@%$tBP2oAQL#a>U`RDLEi04gMD!-5CKf&(^p8xQE zrEcQ+FY)^?c>b-26nd|Ky-NKDJbz)IQYpN5;&&C#{~dN2egx0E@cTtPf8jA4c);@k z{I22od30_O&x(h8>TFwN_O{ynct~A2=f2uKlyZ#K+n@WN&EEN7_c71OdI$dSX7}}n z&SkFW8Cd&4|J)_^G-KnxIe+U1+8L@KdI>HS3m33W1a*Q<(QTLHns5U?I%9+IMs*K| zsLi3_XKd|S5XWxV4}Wu0S?0kE$28S$4#wEmMV#Ufc8%9;klnzTBNEod?e>mswgDul zX*)btb3DeOpb<5_O}}^T!|mZgx5_~t1CSP;-!jkjS3`W)Yev`rRAL9^2l;CButuZh z{I)kBxD3t|$rPJ0$M&azany`G9z+(TMh@_1_djVG!MJH=$3EjM-xV4$SLP-kEKPr@ zr=o{ILYa1D`-$PT?;kxwgcqYIl@{eHmVk!XhT=#>N10*ig4Gv&Z_|g0BiL9Ax__lX z$BU&r(7D4eyo1V}VZk|}=&54=OdU@cMXnbq&6#5%`*K?Q0~~VEQ!Rd+90EEBqJT-X zFmPw2^@tMp2Zu$6tFV6a0Lm+s+@(_WB2JYe{tVB`q!?hByXL?n8jFDwIp_Nw9dIY{ ztM0_Xn_$EI#sB+9Kf^2@F5p34{u{&JPW=6_SI3?>_?3`4BOB|VQ_GJ+oe?Vo?O=3E z+}Pr6v6MhY`lPfj)W)5bF(;)ztxrmaTUz;~bhyEolhPeZtM;wxx$MXUPCi?E!5Ys; zcdHsqvzk^KlHapUs~wf5^w$lD3Q#Fc)tM6JZ!CM^Jn+u6+aaZ`5<12-P@jT+Mw5Xw zubT4cfVURC_zBV^R%&hds^aT&Ty9vmF0amV2ifymu*=+5W1fv{7d^7MF`Mgt;X zE2c(f7Zy*=mX{WAwtVk_&e%9y%;2vvn(zvbMpM^J1sjV&80t1+`|VSC7m-UoD-_S2 zx(2|4PXybQd2F1eO$@KPpNoy<^-8dXIOX;kud&lMM`B4|v%-b_vH&9vPhaKJg7?vG> z@&B5envg-d`FT@-tGffw39pW&nCe#kX z77G2~ZBXq}FpX-fR^GRv!IXvbIVM;e&d!LvONVaTrfL_FC2*UAJee(?%%eRht)2$y zOGD{R*HwBSM9EJBAcP44_IW%E;enAOM5(L;VU}Mfk+t%(s46~LqKjrQSXjd%=OZWwXsGp6-F7TWIUHGB;k6|2S>G> z9c?Q7elUq6kjaBd9J(ux4WH%l@5TK(Sfn(D7$x56NOom>VsN}T)*DLh%i!Ze=>wL` zvY|q?BRD;pG=uO1hxnF`3{<-dIPiK2UGkWgM#RKt9AluwEK)OaYX5!s?{T@2F+9u% z{2Rev*z#1yyfe)*hJS(_&uQ1LPQg*Iyb)<+2f0z6QT_YdZ{lRHImh~ukkbw)tPa9y z*W#RZJmX3iU=IIeb2%r>)o= zwodvgYzWb?Jbfbn!Q&FO1p7|7L~UyglYa^Mpyw}Y==08RV4^wMCk)?q^U*KCW&@i7 z3>}t+Gs=Kzx0XrPHeDN0Bw>S%gsm-!6Q(l_aL?M$Gz^!74Ucd;=DXIJ()r4a?Wg~; z(GSFC3al10VRJbY*2>gcV}t}%V+V|cVz9HnN^hDw9GU(bh?)Gw|NHkp!z_~N51TSS zi@)3OKJV4BWZKB@hpew(0u3n8)33gzcl~gug^*Lac4fOo_?=b}Y^BiT82L1S$d(~} znx@&E_otg(-f)Nqj(FKbz%3CvQO!-e@`S=^zTNAevp~ll6 z-FDNabR0X&#CDs20jZkEb%DavFMdYrN2K>Lok%ym-Sp)qKL0|UFnh$x?f8+#5jh9( z`xqWt@K=X|OcZ;*FpQUdW@km^ODd z)==ObJAkzg*oG4dM1;(7TGG9XJwoA=qFXP*L$##zkWnxo z)*W+rUr2bwrY8Z1et(#a)d^Q)HjleOWf)Ukiys+=Pd5S~V`W(vN`EM>eTG5V{Fq;! zY!VJa#87o6_+ia0c0pF)wc#Bqro8C|nl=f#hqo8Q-cv6%>#(EP#3?>h;w%;rh$l3F@_C`)q3gGa^OxcRmQA<_~#xV0~dj4a>v|T5GV^Kpt|| zbx+d|NkMT1BC=0lTc9z(2~%NNcl~0R*4iKb%n7#t8ho9<_*~1wpAMp`A#HShVg>T+ODo~6TFdNCGZz^u3C|BgNTG1YemA^?UxaW&=d%7#9V1# zXMZCyUsRl{FTPm;FYO6$D~W5^N2T@w)&g$2`sz#;^VdZ@v+S!;X~mY06VE_$9FvO% zdkkN(6z1Fz&&aqiL=JPE#WOpAwGKE=JZmW0qqb;ZvwT zQcB%PHsV?Ah;^Pf-dORh`G9M@j+i9ZDOxtSikt-7xCMGxPGZc-515>E%AAKV@)9~I zl99VG;jYL@blXQ+Jq4|La)n4?7T9UI&ND{JvM^@pT3NzM8J;xve#t-(W+S6@ow0qk z3AO!x|70NV>Q1>`Hw$Lyy*t zQ;Dh7@uhMZVMk9UFV5y)tCSI;cRppFD(v(p5Kqh2MfYW+fUEUn5~$yKHa|X|J)IvM zeWBNDq^yI9_8mT$KH9fWzwAQ`on!gp#8|;>0APz3t03MIzZhh2ZZd7R!D z9sCHqV7)!Hn{a#3l$1>^;NAqf!=!6LTikUPj{k{Pt>Y`|y<)$7_f`F(QWCQ4pagTb z`yDiKE}<2`3Qv=ky&e8`CO{>V|uB|0pYe6Jk^Qtfaupt0_<&Y=A^$=DMcKX3uA+Z?M zD86TEZ{Ub+uTgwA+mTn~X8pH~@7zidxx3|~J>*!H1Y=u4aV%Tt)no8)ob5|~^x*g4 zKZs%aJ^S~Qz4c%kYq=v)OuJy}1u^wGq%K-7kSR+>I*jkG9@dmR)R4P07KUc6bPH9O zvnKAEwmi&LyF2VPDpbh2)q4e32#D%~?skHrdVt~HkdNlP`%Tvj8g4jQ56MHHFE9kp zpt{B=elL(ER+CG-o&AkbYeT;*DfLJ&;+rBhoqX)EHc@D-h%ZEZ3xC1sg73 z5s5G-5VJy(P$sqpvD((q7S4!-vx0TAreq_sP=Ctf4Vvx>4%myY>j_BKu42z4ugEgi ztN_JuiYSkWitBx35FhOWcW6Xyii@mTkKV5qXw@f+E8ouG5kRcJ51P&usHH|$UkkbO zw#_s~?xK=_o!{uZVmiN5)UY6g=Kde}V3Vs@+OrzzN!Py|E<$?JwPI!0L_NYb>L^(3F}=^HqRD?fWo3|b27#*Ctyg)8rGrH>?t z8u~#K&SPYhI}){H+w-*ico`y3cGLOOf zjBndo5$o4YZeJ1Q%~wH{0~g305bf0r$o-UqhH!@TyK)fNr?)M^+uQKI$w4vb`hhU* zY6op#{T&%aIDPE)IHh+@(LiG!X~EP6&3Wz>;ed$H5mQioZy~%tkUe+v7r#U zv;o_G>V^qA zihs&CX-PMN9R$Fen%t;iIN0r7ZOj*fBDO^6^kZht16@tR@dui7NB%IB zS>t50eLe;;l!uOE7+-Ru94+gAU7zOEF1@&Eqafe#^r z+v-nV(k1>1mx_NHF+6{~8q_#u4vOw*i-hF9!lU>1;7(=}4BDONN066$%$a>0CpEb( zN@8$7=xX2qzpJrWQvu`8?J#++lV3VYW#dn4dm9;K(uUE3w8GK+4?wYSlL>ygBZ=QTA7{=F{mxsM3kNaS$ zsaS6qroreqa4CWt#}BqF&w1ZLsC;%E8><<)FxmS$SfsuN7_)$V77OLl6u{k<%i$*6 zm)>l<@|bkYmA{OzDVJg@AbfugH{qd%z2u!&z$^7u7f|5;ZCNgwKHvi6=@etHU`l&( zxK;$g__wGY>C|*;W~s`Z9w))T91(Ry!f}odw_84h)3{|c8!++d)bHdIeQeA$_%l-8;c=#qg4Uoinn;Uls*Hnj!m_bW*^aoit3d@$T#fGY;ZCW13gxRv0U$->ysXwC#FY*V@j zPAEMyiQ5UzjTXkUgTo^_k|Bb7Ju?Xda~2g4I$u9SN*$7yYyrXbi^Dl-^wjX!*{mcp zQp*^wxR>Oi{NQl0lU1?H8P^~nz{@j}qAz@9+ z@|x85oJhb83RN~AB!SC}mmu>_4Si3ETx!C{P7*7|=D?Kk3Jph4@XlMMP+Ko%yyK!V zUNA*Ov)w?j4ib?diFXN`cpm2TV~d^|zZG6HMyh1KVW^Vr0UO+*i5S9|cDcKw^h|fD zYdcVY(VBLu1?% z3mlS`aP{1&;c;|nD}p|a7e~i}k|1n@lZDZF~86JHw=*I9dcn8XIn9a_+f* zY7eaL(!w;5=)Z0P7a%zwmH@KgyS%^-G^2$v_A!{P-{?{|TGUW}Joimpi!EtK4LX(N z)(xqnGc+0@j+Ui5(!66RywC-uC2khJ(yFd8stcy39UXhFkbfRyih`8kMbM2XWaDVy zrxJVc<$&b5$F5t;CdW`d=E!4^V+bH~Bm^6l6+Mk~UzAfqUy>NA1HgS21`xY8IL!+W}kteCvI3 z(Nw#k-tAZj?O0{)2>J}#_!$tyc0@L6M_{9NMw8p5K5~!*YIX zcDkBuL+Q2~M^x<@v~m)sx}5~~jUR;@kks!ZEU-Kjv4?^lm6(-K+DVr9r^Cl$_9r}iDE#HR(xyx;{ zl3}4dIuun!lAm zoo9D(A&|lHo<&Bly0KT8X)MnoW@zt${mIfoQfe*DPiytW%;Yvq&fE;!n=Dmf16-Ug zC)=P`7{DVv1olp&i`_cN`Ko!UCk=clly-$9@C;wJxo3QfIZ zgJ3>&{UN-FhQXX&%%OP6mz{i}xW<>HEw%wKd-3ugb^1P=&O#64MHUoa9`SP?^m5LA*h<+)hyvxmWwt)kEr93f&dR|52;qUy>#1Mjd^e z7wX}nGm#V9Afu3YQ7+6c+Dho0zT{mL^R~s9bL1?wKOPwCgzmU&OKnlej0s0Yl0Z0)eT4KcQ z&|YzU?`XkrK!~M7lTMIs=NqBWqBL0Ws&(ZK`8r=Vvy7*)OYrTHiQE{(U|k=uYhxk% z7vh1$;eIY(00>6#GIDkl2U~~X-2gmB^cRdUVA(c!JL;Vp%}tCS?rc{BK-A@joKEF) z<#xl8W${VOLE^Mly4pqQI;%v3Vjhr)n89U;8yDr?UlWT~*b!pULV*&xNzs^Bn#$dF zc-}}#%O(FeYMED4Q%JtitA=LhLFKs0q1UUW%hT{kRu>0nXQr;~QNzQhdQCLslhyf|>1to9nCeTN zO6|V_C1`eL>2mezCU1B)A#*M2y_QE3`1V&{!@b-)0K$)UET`*yvRR?= zM%pGX6b-0bz4bLL6wcQ+^-dRg;ZHR!e@NQj2iYVEmmrN@^RrV+3rQLulT)}q;WBRR zT$)*$7PD9A4sp^P2Liy74<@0Nq<7BuK?_kyJZ3@G_ea@M zv%;}l)6`?Qc2=n`ikxnn?@{kI?R+=U612;zy|Jm7!BE*-%YTCb?Z<$0S25it-}IMF z0me;RLLZRM9YAMM>M(l4vEArYi?fqhPnBNwR*H11A21$GM&dK&k^9|ld=5lZM(5UH)RWBITw;GJ+f1gsLAGLV}rT&pUKA;_^OO^dKc^J`d!46LfoSPDT7n|YkErCrgrgI2Ya ziErk|Mn!tmrkjC4^y61i&4M> zPHtihLcIRkaVi1h&yJ);gb(|8v=~oO8KQG5jH_@eLF^HalBos*m64e{WLT7?^%MP7 zrci%WXokd(IYE0+5%9nkyW~mtx*2^#g72G>J`Py9y1vjY!gf$`z`L~|dn6==2l`CB z?tr_%bBy5cCPzQ;T6uK2zR5h!bcn)(L?pzaz zH5YPfc7Fr+nvH&wo@WIMcaM6emv^{tQ0@G)QE>%c?@(>cx7u&Q$OK^?j}UgAfrbq$ zDb46op<7qjh6-40n@t7SV7E#I*;xSh#CxspQS;Cr*@?nX&)ZP~?V|Oz<_E-GBg$Ze~j4N)37g_+?O<2SI5@a(ekuPd+#LQa}KrJ`m&kHL53y7f{?R zE4L!-`U+MC0<6P9B8v~v)A1Nx;{MX{XaJ(I15pi0KqJxuUeSnd0ndS6+YX9JD)=0d z@D2KkH@GL1Y*kzgFn+u1J@}r{$^H7zfc^u+HuH}DaTB2i#nsm{#i|6xb7wl2IPI>r zVj{H8rQbO*&rvVB;wz^5C<2tASjCjO*_G|k(H#*vx>JN7Um&5nOrxe4Na1U_wh<#1DWuCvA^%((h~+*3NCBHs zKuaN;;-!$UB$l5PDdd58DFo0c!BPwr;=@-q>D>_lfb=>bqlcS{_HxJQ@lFe;WAx4H znst?$EW_w+MKXGWE@B92KO=ZbN4+0-b9^?b9RN_W>UlHh;n#N9S>u8iXlO3~K2O3V&f4gY7U6GU3D% zYwJpXJrVSvn~nzUoaok8t!qsRrrDNTyXb)ze}?nSQ&{xu%5;e^Pwp7SXnsdQ*)Qt) ziCeq2-n_Cwz5L`*<^0U7Ht{@UbDJf1qk36vP091v@LMJaHI?ykRNkRp9w!9|*{^`d z!nXOfcU*X$d5tai(4DcI%QDF-Y*!Fa1y3m=i$}5#BG-vN)x-UDl*-LjN*_$hl zjT|iOzqS0hZA16zeihRtQ+x=;iKU z;{bn4&Ti-&Nzo|Ypk_+5nCHP8jw5gs8^Rt)XafK9kV=H`O+`g!tc$t%#9`v6?8p~H> z(T9OWuQdxUU{EkX0vFCVEq}?ZSJ+65+c$R-wxI38&;~<$BfYJW91lmZ|3Er(&}@b5 z^>#wK{3pd}sHC-of}e4d;%-YjX35Ti~X48 zzMj`!d#z_b%W;e4o3KM6L5w{db_zqHZ}Q5$O5FU}vEk%MHc3y(#8@_27)vFSs3@P+ z9^ZRV8uBGflBnLHG6Jbu$PB%IkQs`D%+zX-nOX%hbTkTNc5>%nu?8$LP=QE(AE81r zfh{lEnXpNP5c<~gA(2a3)!ZzQ@Jb7OrPYiAYoK$GTW`7hhnG=byI;r=ePh^N{D8Xl zAl_v=6>a_xVH$E*xK(MoTArKvYC(J)S07Sv^I?J*&YpX|9#U6f92ZB6xs&qVToH&=fh90E12#8YaxL1_P;C_(&7?KDGsLXupiL^V2QB z6gc8>Wh`m>2K6NRPY(~NX)m04=VbFG_F)FTw^iJ1BO_*$7BtsUU@P@r3iuOeo!>32 z^#?+Y&)z#B(~q4UE@Y_#m<=!+a7p0v*%!xQ9T+_)B94)gK;1=`a5fTS$Ost}IG8Mi ziDK3n6#}Ivsup#s({P``ZbA26u+z;9tyztZEj%FU$Q)r`SIU_v_u1JyZ5r!bZ|4HY<;d+sAGkFUtx{q0Qc z04pZv2(2kFrL<$r?NFhxssqmMI6f9-APpGtpcfz&PihXpd+AM>mjSAm-UOb|bMQ9( z7>CmUBWXc5w}bL9#14QNY@gHuo7{HlHwpop@yHs7wM@XdGOuL9*uu6Og~(>OpNEck z3h0`^ff$l1!B@uJY}6Zx(&&^3B4F;fu<4>G8|`!W&P68YFx-pCVB>o@XpN*G)tau| z&lVoQOGH2!KtbwfJYit=3mwp#gRs}5jub(vFHYJTs{aef5$AHNf|PQyCr6+>M6T@) zFzB6Rnw#ApNC8iY6kr91;K+qxD=Uc=U@-e3M|8l+wfJhKf-Ps5xqGGQRxKtlK_m`} z0)Q^;`Q%I0v}O-!&6LQH$e3F3Yg5;f09I%`5JT#YCnwzb+dZC)W3*(lG2_vyHm-iz ztFG!WJ#5@Tc5BTSm18RI2M+9J$Puf!rSsYIq z=3e6A98QvvdWv4X!29^zD3nAEW0rX7%X1EcC4uRYl z*x)(YpwpxZBTb5DEzafaS&M980-KKg6Bq$~^=aX%e46ZY1V=TqW8j+OdCdYh8o`3I zkRLZ(TyMD{n}&&>o({*(h1Y9l-T-6nhORd$+!#A~1}6v88Blej;|cFgYYu!827=FA z!^O#DtGlqD>wAB{`?o>xO4WA!w>l#fiDXQ+m(lE%!^Z7q^$zC#4Yj-v3b0hxdiNIf za$$B6n?A9dgMNP~->!tH$e<@LpPRw%h{uPk<rG!%@3rFCK0VxIL*W^3gUF-s2fbhX4<$p5!y z?5~N_p+$FY#UcW?w5l>5gKfht+7>0(Q|qxfW(Yq9B^t0sawOb5Dt6>e3YfvYFQPv4 zP{~wc`3oRA+yi@~+bR(!oxfd5Zc#tpc4JS}Z7vF+sL!OmY?0iWEK72FdyV!wWwW~_ zdxOq~)+ox8RNQ9$%J9uIs5j17YBp7_S65Wha9ud6_wNS>7F*MQpAZMM46B2B^aXG! zD2saF=%%*&d z6$#Q5NrjSno61hlPH%I%XJ$VHG^E~{USP=i!p!V~;1C@3^z<&8=;N~**mYkZ{50e>(;GXw>XOzvkUq88U0=`-_eN~B1$tzg)-pr%p`UR z*xTkySMVZxVRL~+QOo86%i)7oa`>7>e)1{gL^eDbzsf|M;W1)nireQO1(ck+U%TOC z1iPJ&=`pC5P~}9!Q%gK7(I)kTlNTa1Nzr_ku`g{q794-z^k(NK~XvrS$qGLn~U zG;wiIHk#Otkv;RIEZl4w>nC0BFrmLa^OX-`{gaI*jlX#haRItVv*_6+51ir;KO{#| zIDP+s=&y-5RrEYRn+nIFo0g%TJyhBV5@ z@fFvxVD^}G%*-Bygqr^3)Hli^w|rR4g>ESw|EDH4O<5zj#I1K{YZn_EvW*Kin(`L$z|?}IRBwV{#v{Tt&CW&V3m zvYa*R((@rKJ^yALm+0Qj(||u7|M$e=dW`2sFb?_Z{XawL>F05inCEC8%WNKX`lOY^ z)~%x+CUMF#_W))-wz^AJfeq+*tjOvvS`>YoUmb5AK+PnF?58Jwe?kr-CNdWU?*CRB63a-! zJwdqD+|{=9iq{gK*Jev|wx#zEX$jL1M;;Ry4$^zZr9)?JhaO@(*4ov!^w4;OaVq}( zK8@Wsq@}P=IQ}H^!anI4pl#{MYl#O3{$Pwf;I{OdmVmL&Bc_83Upt?HMGOAF}+={VsX&}){Uj2d_;E_3IvXRBWGa%-X=mGC$O%`SfGm*8U13>m1x5nNM07^apaz+A7=*jR$L~CVk z$=&ZxFU8sc=V@wl`Kx0vvge`#btrBqoO&-#up%={d&Hb$7M%Ck!Kh~sFVwR*U|120W&IRJ_ME6w_|^Z%ZGKC&NrdNfUA*PuTy+;w?zcwUw;tD&%2F=G~9O)>lDa5q2P8~{6JooH$HW!$h)_gQ-=13wJ%wX+DV>iWjx3mNW~ zcyD(MYZNH!QStkuV0S&8t=jBddHcbCq^1Km!!+qSKDhpeCHA-%bRLkP|S@VtgoY$^*@;8wxWL4(s

JZ!z`nd&yx1@Ru^f7ISd7JWgAJ`iv@JiC5nnPq zxA@vQw`Dsh-fXsaEG`Rj@s@irdy{g4YT6It)VR~#-;soa@bH*tDLnY_@7Z#X55B~E zwp2;eRRfrl-;gGV`a7O5i4vkF{|Ts;HS5A#f(W*i!iCcfwy?xF$RLbpjajG?$3L1EAaie)W=-!N0_%0 zA3&IlpK^nxh*LD2jBnz`gmrb0T#k?;7s9_TQm&d zcV>P>Hl>sp@?-&|j1O~x{meLQHZk{T@~H9uQjTPC!{-lS6v<045ZjRPQ>37?A~D>T z`BAkb3roq3AOZU?kE8dPrQG2d5rf`vqC=pVH3vioy+(-hI>$ozZJCFiTyl&PZ8e2? zMmknWIQiW|9wWh!%fDg>+Ndq>K&6509M6%AVY8j{_CB7+@Vr?#mRW*J6}h6num)+; z9yV^;SkVJRqYIgDb?ZAaIDF%nQ8dDyn>-5I9pN(L9@1#=O%EPdpMGcg_~O_=K7Ntr zyb&M&5^%zfK`r~xDNxXh8QkL|@BS_r56UI9hEY8n$CSx;!HtEs%46RsM2$RQT4?dq z>H$mv%p>`Hm@O8^zR{Kzujp!FCp&Mu#a9e?d~EhwT}W!OX6!*3BF?ceC-0-Y1og|u zc=B_<3GgyTOh>{q12IKQTRXz_<6Q}cZb@9$P3u}o)%?-Sc^emz4`sL@S-QMGBf8Nc zR5=r0(xy_Si%)^w8J2LeMQuc?XZ`m;dih|6$~B9P`!e+BFa#NYl3aoR?>Dsq|0Apd zvI1Z5R$u}_e;QDG?%Zra6vFe#3GW)R5RdF#19tpxt#=Ke?6fgvw(byQmG``B$TF|1 zKHX!;;%+fa2T!u7zei9`4X^3y*THMH#4h1$kb~RJTjV9w7&kjj+$p6Z!MIj<57eAM z)B=>liX~m^>0}{gtxvA=JPP;a}OnLH52H$Wu93ce@C3U+YqSOsype_U5loL6(c_F*H4>&4{k$wYCQjK~~)m&`#n zqjn@RQ~gMueaLK$9N#D?YUdZhl=a zWau4?@#{!T!##(~kvXIDJ*!0udRBk5R0I9_!&RzgxoyzRTR} z^8}{T389f%q?PLCC+ubdXj)yrzQrh7%dKvFs^&TO!wv`TIjb90*wlFY6{9uyYw zk|cQ-++YrA;vPt{x4pYJ(5C%@?2q0XIXvk#>36>O#Xlz=PpVfp^Lgu9d71~=a1MPz zVqncRjUU2Om6^iE<5%<0Aw!8<$hKNH^I9s(lYKOssAoz_mFMTRoUH;8Q&XN-6_}lx zgF@kF-Lbb1=*Qjypv`UvXY|&cZi4wf0FzB#4DZ_WVL8+h$jF6L78qL$w;#WH|Fia36dseg>_zHtt_c^pr{DhlGy zh4=pcw~0SX9C6AK)qAM*h1()7&WPY407M6Ze}Uzo?0<;7^}Y1dVgje$`_L(pUK!Ji+$L=mT+CCebn4V_Qm)9K2{a2 z5+=aX)=%rp^=X=aMiP{_6ej(#@}JFRmQ?h);%8$AKix?Rx$}C^2Os#XD9q%hJ6?Eg(`A3ErLA zSbGY27oMoDK3*G5O9$f)oZ8R@8QqS-qz)d%Oc--RbTxX#8OG=mf_Gjq+%%csSsNB7 z8*9s(Yu7gx^jKtR(M+e{eAvyol?qiQgRi;xZ8_vQCwV8~4|0ssHK&-?)f^^Z?| z(*|+>pNj>GQK4@SZE#Xym#2x$HC|UmUvO>03V+^(as$7)`(XZ@$*MCes=Dmu9hV2Oe#&7RIl2}%7g8xR z@Dz?qu1Ubs48vHPAfmeLeg5!0@L4zCZJ| z_h)#^Q@s6BZP(iA9rR1D<~Kf%o3l0_s^9B15Bh)Zimj~!7}ab)_lU-Ued9f{>)&t7e4_c{IuLvK zx`~lqs6of!qGpn)Ub6%H#l>0>MH`(DT+^tJWFA-1PJB6*i(4W_J>KnKgO9|+-*`fE zeK<827O&RclS`WA-%rhgBd;cJXSZ%Q7oM$mZZ$vi@w9elO}mS`?FBsI_S~40FHNqn7dDsl;=^lcy|7slz4*Cx%^t!xZ{VAE@Qpp0R_(lj zFHvpDWDf_$X19a#Ig=}F{Gw_6qHFv;8)?Y77(?}A@mz9*dnuM{9ZS)_RX!wKDcL8RL(#4~j7Ih2zd$ega z@jq+gOPS|0uV-Eudw#5%>3RPi%J<3teLeH?eJ|rz%~UgoW3OjkMd))9dSPtr!D{Bz zSQYoE#_nIp+&}h4=3)HC#(sG0^;2VGhy@I@nbO$c|9vqt2Y6r2d>Of3&AbfAUqw5A ze{5Xpxrmb3xytwVk5|!pFY}a?*d2RqTiFxDmpLCs zF9|tIuv`!Q{v6`p!1wE!Cz1bk{MG-x>b`8u8^~8eZpGE}8MgB!!NT*X?KQ+-9eeWB zlVeXJ&-16Amr?xT`^Lt8Y3yO(_{(Fjo?>~n{nfEI+;?y64aB|g)XRvm>ACS&T>5vN z`GarUeb?bbW8?2be_v+%r-+$XPra5wk5F?p^V?|q4Z!<`z{Yys$dm!ulViQiljFVd zhfjS0(0&f%z<-G?+o#tvKRot)=5v6lj5^s1LcDuF>)pNYN#I%Ad<|`Kq_qv=tv<$5 zNHs9bW_}}69mD@nlVbQ`jM^8_<2S~>H1<5&=I8^@`2G@LcoNw9g2XXi)5?JFRg4mU z8>s7z%>SGD^1FJdZ)~i5=8f@((OUV;EBIT@e17cp@v*VbVBE*h4qF~WeHclEUPe2w zW`6O$Qsx)mRRY{&WBj2Gq>Yb{jn5+D`LWl>elGJ$W*7ZNyP&4mQ3frHUq!p5K;Q#q zo&<$FFZlXurh4j?v5%g9WBhyYV~t-J`@*UFP%GQhR$2B-nI9N0p~P9h^S-gO<7d(L zhsPgApBJRZub?-tWd1_tYUcB3`Q@?a(cf2zGnDORei-Hc;N8F$^6#GBc-I#)zm)mk z(b$ui1@9lP;_Fq(`Eus$sWIT;`ON={);NZ&f!JqVui>kDKVszT4fM_bs$(=sy~u;F zhsXI9#j&i`FeWKFqOT*4aq zTILmu8T&mpb{3=mGIQWJhX0UT=$y5^jFive?`-DzG1hC_e2r9jN@#xkwFhk5Y<(8F z*!pbdNmGK5L?x?;_2K&S?4KsgB(~x_?HmQ;rj#onapn@{68W*hwu4rCi4TQGMRsf z@F(&8$e#tQ2>)w@KZWl<|AVL#;ZrE{*YW+qA49wM0ZxR=`2K19K7()p;lGRT^PkIP znh4)O_~ZEgB7Q%Ca2?^V;`=}P$xP;F5N;#&?3ZG8U%e*YZdpG5e#@SXV?{6+Ye5uV5Q27d3lKa=?tgnty@{|3K@ z5dL+9Cx14R`Mv)-lX)27e}eG2|0a`Z;dd6{*Af0%eE&WCCK3J(g#QTNkG+CEA^cAf zejeYyjo-%*{yz}@;O8@$5`OSunfX5v-oy9r|BX!MGQ#%(XCM8Wnauj%M&A*hM)=3@ z{R2Or$^0dR;X*g_Q~3TXzW^K{d>P??jPDQs9pDt?_d3&GMWDc;TM=6-`D;w${_p_!q4Hmjo-gQ_&-4S zKf(8pK_I?-we|JwNI{ZtS!_QuW!^~;H{b%ykHI|fNj3xjz_+GNAlpjeBqtbT#iqfpFewk zV(DfUDraoc+mDqrhEK@beC~5PyA3}Ti&+>3U*B3SH8s7R z#k=gR7+1)au1PD|P7j8tc>nrlcFVqh-FR+CV!01GYF5znfM$~=Zkq1YI(W(gZQ&hL z_rgJ<5ijjTP5I>#4bo(J(d$tWy)kjx2rxWak8G(}6YLd}c-zBu$+p7CyJ$v=rL<$; zR0`U$ktb}&6-#MHe9Q)oNX!Xa&@w62Q)xzZQ_zBqJYgfQSV}u$0pJ>ux7<1UvV^GydVxPJyB~P zHb<+O;~l(dKIlX8 z6abeu!8zkIW;;vI!<&^Ewq+3&OaUkHt#pqLo9noU4C;YE1&PWfL9~5t6a22(so+&I zF98xj?2OT;lhpF0DwhzpIm1q29&R)n`V8nK>TleJt6Zc^tl$)`eyh3Ly_3%^)NxYS zYu54bX_oK5^}D@82&OL`wfi^+Jew=bOwU~|476+F}Jcl$#;z>LT|5XHEw@0f@0ph(!GXVmEr>Cy{MIQa7_PB~fHZF3e3Lz%S|~ zKVehxR8P_ilf30LnP66(FyXl!C!M7>@#fgwemxy0p7f9cjIJIo zL5cjSrL89d9tYRWxP`X|Sw^NxQN@soZntQDnAmG^vdT`28?x$ZBE2rNQEOw~%6fHi zIS+Ho#Jnz)3zIXGQ`5PRN~qIPbd`|RverND%C|O$>(kTtlkGg*^}do+=Q>u(xD<-VccX>vj_0PoUE*z z>cs_Y{0Kb*vJ{3~X(%T=tlw^mam7x*ek<>45Y8bO=b%8qxxQIj%;$uikrByABQCqN znw3b6a+~;L5d~ygyq-BdB)4=}G7BDttT7GZ?>V>tjzgNgL zzW37%75jJk?4tIFeO$bHEuXu+6ApcDihZBSRv(8Gi7Z?vS2ryt&YT7x1xFu-SchqU zX*zCck+Ha$J?jcLf%|&L498*@niJqF`&6s{Y&M6x;2*!fVZ=q2Y|84uFa9R_mRcI^ z-JSlOox|4tLHh`Xu||BNm3oxtxg9ZwQQ;Q$>=3RBSV|2kID$10IsmauS%zhWHUq5y znU>F_Q`1zmJfl=e%juHKwoJ4>vQMpk`)H?*uU+`j#4I`Jx4NCm=Fu+vZ$+d&FlV7u zsP^-@^SOd+d`Mn!*hd@~6PTUT4m_(UGkY_^{=~N^sM9%kmGxkEsP&}v34Ff*8q@A7 zbCXUTkEgc-`^5cveXpGlw=KF1VhPL5|+Rx@ivY6)G5PVH#x4Mxw6XIT9l1&BISF(APHY7hkQD7}v_gO$QSiU4pVC{@r z(Lk&rNk)p-5JFyCCKPKUW81IVe zlVUZYHB^IQ`hj~hu08{#rVXvtf$Z%jB4AlGf{WFg;X$N!VFXyEhiMSm`V@Y@Bk8q9 zu&U}ipf^W(-m>1<-J!P_l*8+}rD6+qKCLV^7{Vp%b$F(~pl=1TWKqg+Q~%M@>MxHZej zh@2cL8yhP%8DmihhrHysQsc%ldwaF{!VQ@qn4x>!@6F1S*DuQ4%l5iBrsy>B%4iP} z&1_YyO|y_IpY2j3dM(SF0+Co&!QqIj5Q1ZMa{;mopT_P}P=hIG1K~+T~d0Dj3tGo_ED;w)>?NzNJ^HP9bC#K zB}>f@F6ENWoDO9q89!_oU@TYPTkEu6tekb9jBbcwZpp>zUc$wf2P9k>5MLTt6YT>H z1forGP0+kAEg>v0aqb-4po(j$2yB`FMn##0-a8DZv0bB8VVKG45u%DNCGxN$GR-JY zDJ2uA5gf;LB?TVJ)|io2_6fPCV^gYgaSSOI@9Sbxc@>UhvAI9G1s-ZPt2ir_3jl?7 zLmZm48)ET|p!#-Zy7^k#yM`I>N;bAA0VCt)^X)>rvw75LG!F}H9P>g$apv?Uw-Om7!&d)YZHZiP-zs=LmP@}%jsKN4G>4CUzx-Svk~VU z$``1?o!*|z;fVRbY|z=SQl%_0c=El8<%>O?lnA@o++Hv8?!LrfR(0!G0+5StQY23B z${6ccg#**}()3EBU&tUBg#`Q9mfWo8EwT$1I(#Tl_z+<5*8qSo9ZvJtG=Y@^i>p;} z>(I(@Az`9zX{TbECno6whG{}g6^k^Rfj!}Bq?*KyX8)*%{iRvTsg9`1Frn|j1X{j+ z*xbucHt_BxazY#aJg1?l;zZ2b_TGs@zog+7H6jU=gxL~_t( zh8;WEK|MlGh5(Q>bofOnU++-wl_K!ld4Z9+)veuWHjXeYislP)l}w(T?FRIRXuI+l6owP2Gi<_+Itj>5F)0=~ac^d?ZLF=Re%-+AW>^9nc79E4+bQv8 zFfzT(=>i~Cp+z8dz7Xzk!XU=Y80ml(^k$3~o0u~)=4}iPMA&|-p=BkPH+!ngRjA!L zz+Df#Kfx(BaSx{wl@77FBwZj`W5&pLV#>H2X40^dTb-+*qfQ0e=ZT34JB=pX>8z`a zmNkgh9jE&{XbOR82b)dEhG%Ol>swEQP6bs2bQxTr4+?_JYNmU|F#;i0?S|;eW&wNQ4(g*@5IDzIo? z2au}=;5((8=HaZet(eZ4!j{!}8OY0Q)%^C7P*$97iiG7?8pW<2wJ9=qt;xo#o&hg8RQs#0A*ppxs<2BZ!a|uK?qK; z>EeJ5V$HRq4(^LJt$@?O0bBjE2vre#)M31?m~B_yepUJ|3IuJ=hfNge+U1ioWHUR% zskezqhHY$i6{idkp8(OB)16+s)v4gK)8+JVvkuEIBBRAu*AN@$NSsGWU<}fY%J!mr zJwOFQxNpPU!rK8nFT|}-+=3z9e4nsH+vm!*$z0cHK|p1@Dk5c%?9&WUN;4MsBR1r+ zhfS??VP*$rt&Q2yPErIoLq50oVyC{}YFq=qxC)b^98Ns3SH>09)wTRoMbJqtGqufA zNW{VblH(d2t1mbs!iaiDt)`=ex#`*Rbb0=wrHZLas|chz05E_MKoBn(fWRfd zP?d}_Pf9Umr-c2UT{`T5x8#*5$Z$wSRnRW9`H*N*ADcOrsJU#mn^gBgop~(23y{DGK%)yKvMy z6z)8ftQ*KhDu7pYJomD{`xcPEs+K)Usj|I`MWK`Ba>6}ct8;kJ>o)S<&RF+T zlZCXM(DZg9df6BbAi*7NIkNy9p*f7PIa(MLytWMDz}dM4X9}N>w(_8+itvXAwD4fx zGRz8)ZD>o2w3;oHONBXUEbN8Ws02AYk0ntrm(eo`BFj#|r*)TBiz1`cOfo5y<{f>=U3nT{@4tfPH%!forBl941a?(+T!s8|CIQdwcOT`)`4l}u2WzhiW zE&`t95;I>LM7r6U49lWy+2k049}+d;8PXc|E|NSPHFz#>2yTQk2)A*tP@)WGV1&u} zp>@H_9wvl&^+m;LC{pj9&pNa^fjDE5WF)5&UL`Hl&IvZD@ zEF<=qa9RuZk^y7m1MI$)%-8E>K=mSVW8`Vc#zjxi=`+_=uVfm71p$&W3Io~WkP4L1 z+8S)*cTB{SGOBN2+rlkvK1x^KfX6#8 zJX1;5P@G?FJhyN~$sN`jblobHrtC!W`J_2&8m3Y&P3wHuKePI04toaBB(|JR!TxBL zN)eDLeWvJpRbjOajbx@^*B|9Kw$z$WHp*5}>lJ{hb)-|l^$Q&NANFBL<)R2cl2^HwL7W^A=2qlRW) zEod1~`LgM2-*fmV(LDx$CPF}t)lnN!{p3_hw z@NGpS2ZNh8;xCf$y&Ymo3Ll_Ui{{P)yV{oQ71|qMKx3m~&Fav9&9_~8rjq;gql-;q z0w+ndQZOmAOpyb{>@Lpz8(z{JlQwZGdMh}htRssVYrknvFhlJTF@sOrvqhm|OGyD_ z8%^v$z$?7g377|0HqW=Kr&p)EECetGK9hBkSxsxEu`+vf0ny$9&?VmCWVP3atx%EP zRvD51ek~%B7_Q>rQWg%Z`ET}Wy@%7xU@H68w(O*rZx+aK!{f{WB@^C^&R)fx@Ttli zGWD&MuUpt;Qg!xVW{jp&h|M^o#o>BS{LN+$I=mHu|IzSFR#beb;SXcP+y@_Oiq>vd z>ASYqEF5&faNKEpXA6SX(LVACVTOirBZH!j|!1qsT7#gQR!DC1Y#FVtT=Ttoc_YTTg8RNLjs_9PtF-~v^4HDAVy z9lTb_Ln6@Rgv#w+P2ZLzvl&6oDbQ`Py7qa8c$9mly~_=}G}mtixG6{DKk$wiUKu5*JJ&3-S>n zSJ=Kvgch*VU$_n%_|^PnR!f*S7pjZwN^NOneeF}#tFBns$m;6S29p54aq)u?s-v?X zR6L7#*0#1$&2HHoY{z8T4D)OvQ&>ML-KcG@udQxYucAgNxXKt)5a~B+tH8lB#|X79 z!u$8a69^fsBE$0ag$+C*Y74{bbyRq>wy?EilERiviuQq*qj$D$5cBiI5NgFsBnXiz z5V#i62ts@wO~wR?`VACoMh0a>5DeSX6qj-HI!C0sEKPzqT+rpXhG$o`Px7UJhIK|n zHfQk>Ma|nNK>T=ZQy>Nc_0zS&plL=wB}L6-l`mkDn4mBY1eJrxBZG?ta~xF=m7|0x z*%iPj>IED`H^EyL3UmS`Y29AEKut&Cu)*J6ftu`v$RM&F+5Jx5>~;4e17dI@@8M)D zhH>dWU|~}nxlr+ZSYge`6}B+O|#&ejKXb|iKZ4_Y)Y{iqU((Oi;(lwbd{YJ z4KEp#P4--4xb#Q;s-eMm>`f}SYT-H*LKauC0`B-sAOY5fn!r9|Ag0<6cTjNrf9K8} zxFxWsvPKhWj{zhR8gA-J4Og$^I^~3ZbSoFL74i7;93&t!y1bZhLg1x&Lg7sxA z9C7>~kABfJ2=?(M5{^m;w2GIdy|Nw5Rt)WCe%mQ@znC=O`77EGIy& zk;2g}`Q#OCyN&Odi>7Y2a=jF(C^lowu_u)yNs?ecC3fX=V<&pzUiD{wAIh%knK{IPwQ7vNU(5 zrD!vY8{|!-+=ROa=%EWaT9vTBW=_>1LG_xuN3AB@hU_(IaB^6e7n#pOS~c*|-`$zh zkK-aKZ_}-9EL0YHP1pu^cR!oYRj)xDJZMuPjug99s5mK(k+P4FHzLy0VY*#W!q7^5 ztDB2s#Q_g-#n*iTk(fJ(Eu^ z--y6#L~xBafy#|~8`neXohhy)8tBkIOLL`SOgE*PK|rZ3L(0j5Ra+MUj0G*OZcr8y z(`R}KsMDvEtyv0^5}`@ww+&;JrM7mIWnF|oEB+PCIXvr`2v&Ge{+7KZKFG;6USRWM z^}>h7%O#hJK7W+u`N-2)h4WIR=$2U`Zv|88*?7XE6@%!kUq2nBn4D(WWdq_K3kGgl zw@D~hRx|}hgYdr%!nKB;@sCxa@==CQ{lOeDG5-E)6;OQfK z^+hrF1Wl>zlo$skXd<-T*dZ1x))t_P{TZ0;{=v>|u#KCJTwu8`Nw{@anOui`x{LYOO83KZMY%FVAs{}x38UOzJ|4+xM>?Yr!foix3^>z$YV=8r^oZnhZNK7;x z-;eI&CYT7nh6LUj5x|Fy(;Zw~X;Y!XDmXwQAcF`*F_p!9E|NX&KgeCTn=j$fd03$~ z_l|n??CsV|Vg<&levo+%U@Lu8Jm}prIGPYiqmmmz%r$J8ZsdfQO;EhB9$xOcf)sJ* zgmoEk*0!FgZ9KIEb=`>nojYecVsJ3xZp$u0>3DcEm89X~?&@=bGDnKz{e zx|!Wo6ll#8=M6?Glf(!+|L7k7oy?v)NBzdxe0}#Y53Wg6T`)MEdK9YB8Qcxl42tLr zCeve*W~CSpIQL2KXk0VG77g4@d)m#ekzqq-D=s{@qfQ5LoUZQZaMzI;{LUxpr*G4+ zxVbbd?%A{gkeOVZ)R5O6MMR30k-ylJHtA|OL96T^+!H3dX-1r**~e&}sPCrI6Mzxf z;HH40?)rFpekjJhI!@5Cy>EQ??YbIH(5h!fdG`(bl^oZ$%tMk_rGoJUl{PzOP|t4( zzpCU^f%TY`vPwGLH1<&&TjrVAvBYq)s$@!7)&oGVn!}PfsOKlPID-Kx|DZ2~)qGlL zO_1=K&k-TMt11KDLC6iiibFne-YyiC$vAJT%uG#=GSgGarExGq;nt!QIHI%!Bp(GN zqYQ40Iir{XBr%XCX9^hP?ifhR!ZBRt(+;Ewav;s;hy!_7Rhoe$VY^{Wfm((aV4Gnk z{mG{V+QbuR`5Y1C6IYj@I~um7z$?)X%XT#-*i5ld8;sdxLeJz8fsd6wY31>*>~bPf zAaLx70W;_MX(v6uZ4Yc2JMEb^BKWrGiK}(QZaJ4F9uXYkgCQ*Q{FbKWuCL=%HosiE zwv`tR%W`cs578Z>BJST*s7k`8nN-Iz+mlx2(YghhOXmQHB`FT@&Rih^c?Xwl9MC&+ zcM0~0Ri*%6+eil;hyIl~;E+rN@;Xka48{=!_|bt_++FtL?pjE8E7Aec4|GXh{G=pm zoQE2EDwTsS%7LA9@SssOj#Q*?QSdIhb+TH`ydZ#vykcE(uR#P|q1Jt?G#7M7+}E1! zEUQ}#(;E}=JENr!8YU_GJ?j0|&*H?#6iISeL2s(FOTL!htlYE$fM;Q9`mtey+VUD- z8EPU`*_aj!@@!pe^>}`REzLQWlMme*)}fY>Xt!9)_T`-JEKN>MO!KK5EE6C@V|Guq zj3>mo-kM5ewK3o1^Y#-wQ$M##W&430sqKQlOJsMbwd4sD2p&o(c8 z%_WsxaoOx1I0irKN(Db9U#WeoY)T=SKx_S&sSZTNk4g5;+@r@;Ti`=MPgKZI< z&ST=oUqz_WIs|8?oEH5TJV(?|wf5)&xsMy6TlU!JiDv88v#^Zw&NQEDb@sY1Z1PzL zdV}h}P>!;@D!jO;id%kbsvk22ZuxC$N>t1N;}xlFh|4C_cpdNRBeASnht1nY z-Zt{KH7}5OKHH_rp*%AK8^tzF2XA?O-vtYUBYXp*tJ;q?Rhyy#C~azGBFy-uE|~lt zQoZBgW%v~I%0-5|OqiBx33@Ol>vbIKc-46q4mROHX|sN_*?%#+b`!_vPHQgOvK0D& z8y-IAwL=@1G{Z_9^!r8=&Zbf~@JLECuI!ZLbh=YUI{AB}*T)yxJ|FB@x>4P#WjpNx zj+GA@JjleKI(*8c+fmxsK~|UQ0g{#)u34VXn|9sJC0_qCx06%6YcGqh2>U?9_Dty+ zvFpLBLG>)o0K_z*h1J5tx;Ka?vDdW6+}h>Jo(N5l!c-&vW@6G}eD3g^n)d*6O%Be|W zQ0Je{-|X#E&^T;S(xBBI1=--(dy)Q;a4!@_etYtfo3=v3M7P%{CSNaUm^V>!n@d~Q zVOv_mJ`hjYY~h9i>VZYm+Q!mCcCmJK35N9>wMG2F{yJ)!8y$DqN$vbBR7`>r!+$k^ zzHJ)S?fOO*D*~%R-`+4Qp2apGAMln9(4`WX6~wg9=V7gH z9}ZaWEPy#^yg5JZQVPP=?^O}hhzVbHpjkE5nQT!$Fk@+LpN_NUa+{Zhl|?8LR+d(A z&1JQEb-A{vms!}b<6vPQdHIjY69yQ8xYBF(;p?YU&*xNzq3=P4>BP z+k2D?OO=JKwZ;78OzC5j(`~7w*lABsMjLsYz6d3%)s0u;QZF413Z=sC2GA9h&Z0G@lG& zV`p?vA%?NxP>2nEV8&K3@3GxjyZUjO41*OMw#W%~0}fPO-&$H*t>jWT5U>na>N;{{ zLdr6%YR8>5+oZD7t+*s%8&9k~C6>cNyaqa&cfgE@1EBQ>_8uBFbh3~cu)+b8h3DX! zK}Z)90#>8gWTor^agB4Y*E|3_;C)H>fvC&nO!}F}*@QTXU8$|ysHPeQvlT5M*E3Fr z3KnY^T0yeBT9TbNjo_-~0CY$mcz;r=U`NlK zUc~eQAI3NTm`jfsW$)Rt)wQka0+>kkYM2X37B82%@<_F_S^i7OX=%|CM0hBrGyJFGq?p@o5MCJOmyS;h* zT@1N@0YIXw!v}cva0{0U5UK9zomwD>jg$h+xnz6Wjxvt=U*k*IF z#4S#_%}HpieWGYufI4SOzltR{D=#l15_3a6o=XIMD&uZ;e+nt?0v8NN?1h$!=lW1w zd1)!b-_<3O@8nSAe6^2&Jnc!WT24|Rabq2rn9xgLd3!Bvk5`ovCE|C+aMUR~4c`Hj z)@?6e!MB)JKRE?4Bx|d0j9R_i1RGjCoZ3zCY8ROTCPs)jgU~^(39_d+I-p*R1;0Es z1}!f$?w5iOP=i%cVPi@}xWL z2`QbrBcyi?c@~YkzLcGzzb}-HA?<7x3PVbiq|)qqxs+ygEnQl!QkXbyzj#auyoYOd zmbf0O1`C!q8cxc651wJNW8cjEnu>^O&%k0=#iN9&%+{~`>abO&shturLUNB*Y!;xUgHWu9V~%N^jR-J^MJVAq~z+WGYU| z-}n*yCz>y=!_EK(68@|19Yim5_i$UGv-xc6Cf@DnFZ6rZp1XTXa(&!ptCTOvHPIlm z`1D^zB{%CwZEkd+ZS+@%&7)4Ai^E~-)=>{j173K*b!>$B1`E2m$3$Gw=Cdrl`uC+f zV6%SLWML}8Sx*o9^iH2RvtF`7Nas@k<*qgc=z48sbE~>_eKWrWgyV*Icc*!$(QM}m z^Q_u6Cy|3&E6v_rbJlZJ(437N(%f8Ha}sx!{Sbmt(*^65N)la~=QhebOmsY6^iiAu z(!jG)`Z$!Xymg?CG<+~4_u`KIUBDpSZN55 zNe?|r1_ErS-C*ND0zHq8L1cOq&4VYlfDx8mzCqwB&+)+pM~T2iz=A9B4qSxZ8E~O! z0PgL@G-~e)cc3P1h#tR^wa1~3ExmH1>`)pN z|4+45MB>dA+zi8UH2&q28u(*(KbzQ>suc~>Qj(Tsw=RiNi|MgcGy|)xN3zY%-Xq*{ zie{8hVvN3(prpN61f|o55=eDu2zeWGO2FrMIbYv{Uf?A9F+LP9tY>j`3%*j@+^jxc zySnzty!Upe@dysL-=&L%Np<@z$BWLLqPvpkRp5xFo;|!!&svKl7IZWQMPrJWYW88T z3xR-EWq8L=wooBKVGVeh1Ll;=^?5zYu-+FZo8)`6Xc zIk~v^fvkBGUVirLE&RaC4(mtR=B;|Wo&^tMO(%MG%&snc?2%%(eN{}cVC5jQ=vV}a z?j&g%n>O?qh9<8awr)2Uo~?IofrqEzGoA9{1Uf3+&6>%vxZ7U9L$P>@ltV*=r%01% z+7}qj$p}vEa4#0qbgjK7vxCR@%@^boC8GG?)d-;kzAS+(o8kF|9dYt!Nu%!`0au*br)XJG&VM6wY3P{bGGI#;;|tjpdjQ{J6o0xx#dhcI7@6I%za!^!lPqqH_^-dmBW%T8CYCv)_<)%DO!=UEZ6O z``G5^%|x3&ZlcNI-|^FI-b}MM)g8;YdFR2Sorr%NGuJH;Z$?^AwjB{h#IXsT2suvN z2gda%>KGU=8pK~b7V%iLkH`DPcS;5m3(7YygRz=I_MnI}Xt;vG=Aq4yIWrz2irv6s zfEV6(`mFK<3vE5NGDIyiy|WS^ zyLA%Dj~z@%evG7iVkJaYs+lYUv67!_E|RbUiBHlE5&x;gcP}Kq!Q60d`TEN0r4zER zWi|6WX4@Fs6Gq~9V(|G!AY8-iPEvfsj<$6q;jpZ38}WfnNyM#gH4dpsEZ*jRQ4*Wr zPs&Bgm9jC3IyskMU8$TRN=WP!6}EKta6{mJJGnw3#{+y%h2zgu_TnVWLA#b<4;me3 z5Uf1RYR8Z{hwul1%8*DT3IvbXdDg3et`axxf#F_D&o_*`>@^h;CSWk)gESF7Kb{me z!o6se?v#m9BdGb`w+ zd$~e3$CvsBI-e|TJbpEg12<50p#{=6Zm%9SZcYllTf6!4{Jdtcc@cp*z?B8ch=X?3 zye#7Sp~|x3V5(l-%*&gXwCJ4XKdt`M1^Wu-G%f)mJXOK-pAm>z!l(FGBoMXRnDvXJ4Bc9l!gB z2&#{A#A$>>ddPqsR44?BGYeiMVp33ZbTnhmw;bY~9;nycu}it$wv1-Y!1Z2Ew$PAi z*!cDL-djtr-Q5)Q#Q|AWl!%?rjN{nG)h0?cM?y3~1*Fl*O&Vx03Q*a*gAwvQZa`gM zIM7HRuNK_;-dd;qBK2tQI4)G2oQ>RwIF{{mG6xLL&g4kU-B8ul+3zFFL3pIeAuNXR zvv@H8&YqHk+o#RkH5#f%Dt4n3k1N(qbV8lZ-W#ID!#X^3<^c>GFZQjPNU@Qd7Qm2< zqh+aO6}QLGJa%4#bnabS87wEwCkptOZdg{IhDlW$+e+}ptBwcT6xXxOic2%Mig`vY z$#S38w!V3^dkC$Z%gkf-Ubns3J?b@@1xP=W#mPc?>eRHpQc0L!JZR=8T{d$mkuCC7 zq{Yb?v<{-yo`}$Rz}+(%v}dRU*3Op1iIUY3K%QE~p3QV;%IpMgn9kbbjyfDp+RsGr52rUV6(}yXtj=TOi5nmgomfv!rJoMMujWAn*w~{TGr6)V^~A8S$`Gfw_O{t z0NlNP3m^lY0+FEeQ z4cCb7KCRrXyuP(lUA|_FRqznS^{pB_9MJ9_fm~sdU$`frDNER7sF^gv=E7%F2ZIfy zz($J}*z34V+2Fa!qvGt$y*)J~#yY0-W@bsC{y)Tr?xmIWo^B56L<* zk*VaSRCZTHrWFhU&|3YH%T?QC&0Xot;-E%e8GHyl%I z=tNiiQQva6opLn{?3VYu`ElR~(|I${*a`*$a}n#Rb;)-OZomXNTyF-PsESm87S>i) zaGhedXn2uh6XAvFG}gDjM}ypC$+TNhxGP_dh`rz9It?#Bbv^f-l(mwZNM!ld>>|cLrspXcyQC&=^db_aBBho za;v-)g@t7WPnWH4)NU-*o?_Rm3>l6B?~S-I%w#fS_`SP+6V^-zx9gpk>Kz+Lz70z0ZOTF^2xvv76K76S*hgG0iDRsxn@?2NYcMzM9w1BU3XF?Q3>_*W>T>C#i*iFT zd&$Mw0hz_%n3Az~(@pHB!~_V+5Vqs;TG%v`h3BGyXV$iTv1q`-s7qEHXN&VqRCei# zi*vwSvH)Hz!fF3=mLxEsrnC=@?eoQA0L?`}BiCoaJ7SgCXaf|Wv@wduc`u^AD_b-G zI_Kr{+n@8YTL?^j79k}&KqU)o$ztSkIf`;PxoCT8JanSwYz%vVY9{0?+Wh0MjX3n4THpe!^*U;`wDKNS$Cv@y7I7W-Pycct>&VsWY#Is0wr&eS8j9yerI|Um z7|q8}4722WGd<=;8@svK*zpw*p9CVS&JmFu6|k7ov71j+tb;LfwI>)mYqe=1NE^HP zQO9oH=;-YN1py&MkexjjA5=!jzw6|jiap`|$OcN{Xl zTyYz@+7k?|t=mG7HnbN<9ombrp@keB_G2VY5p6D%{dwpx7HNv6OCx|4D`0zRDv0oG z@{Nk;AbUcfvSv#Isy_}1LFE?W*tnQH$5VvKsF<`KL(KwnsRCpm|{oNtccIaCy|hjSAR`b#N~yDn8NRS~Hx);5P6s`GBfNLV&H(WqTCh?CB-X=d?zBsD~A1#gaVt{LXbvYC+L1iUQi$T)O96E zT`^l6wauX-&syswP;nwUxN@uzCggG@TB$W0YqbO=foxLnF(M1~i+Hr)DHgIf?17w* zBfp#-6WewYsuR%#s@D7?5r)fcp-7_)WEveGA#Ic*L0oW-suH{hs@q7}pn)U~h7knH zcq#|m&ZzyjJy+&X^0W?G(~PBxnUS&J6|uFO(VdC+%o-|=ieQ^RfknP|)`IWk77u>| zTC+u9E3=QM)3A)6{luU=qan@KXgilmG$%n2QEI3$K`+p0jjZ`p; zX!x?ZEug7{IEs4Bb|@sonB0R`CKGh1$5EmuRiMX93?QQcD_zu*g=qjaS#8^>oY3YU4J9_W1tOJFMp5QjY=o4;!5f+)T99qu4N-UsM9l$(;0cK$Dq-s$Ft}FFH|pTp z{G$!7&25259o$jWh!zjA!Hw;oN^{A<6%iN114(9D|2QLbGt!LK@%MD>w!xDQ`tf>4 zTeHQ98T7d3u{5%V4mo3J!6B!idA09ghS!ZBOx}IYv>s z*qmXv%kk-vqIRK2J#dV8$1mTjWp5{?$QebcVROdN7~`_#6s3l)^l?0v?in6SC&XiE zL_9_YOp1fDryo)5jIzD5Ib(Q?G4*oF{>sWyaZHx)8767mKB@$6`!yO(mg6+(ZOgQ# zQ8pkpXNb#kr0R$=#F(TLK;y`qy=TZg$#%xVJsL9O<`89XJEJv?BJkUsF=WOhv2u#Q zAL-lTA~kZ~D{jdyr77`jH%3EU+!~>r=)uUFf^vLQKr2aK6q5`wI*d>kKP*S?dxbi7 zX)x+WJnRR2v1KLEgOTO`a$Nq8i8+!U!yK)mY2_WCz!#mQJRd0{lqh(|LGKPipCDG= z!SKMH)xEKd0r;a)WBg#h9N&7BN8WlMXKW(JSL&3l2b?v<(HU(#66m~i&+s+ko&|l3 zkzjn!QXYBFf}AmY#aHB%JqulU;`VeLXO|-qjBR|-%Dtko%OlcQe0x&%&VY5AjJ!Q5 z$G0c6m=2~?$^j^FcGygy>`H{PWF7YkWh3rG(9IZ`#rGkzBkx0yGe%~yeTZa;vAWw$ zycp7K$B~AtR@ree#_EtX630QluxqpNy}|6rdjsT5?4XPjyx0UmP7C;@IN&1+Kc2e-*%$ zv3--Kfj#fNW^J-e+dnVXfM1%S@ax69u9iV(Uc80#GFAmI+Uq3mHFzmLm|;~G)+jRp z?(Xl`JMcko!1ZG6?HgW_aM?mQZQ%e)8|lLc>Ty-XlwdC2hkVX&(*bU3j=;88Qs(E0 z1Wk6gQZ8PJT1Cc)EU4vjnf+FyMtzw{5JZ_t@8{S%CRFj57;_KBi;4Bo=8It9Z7LJ% zLjW>2v9{A1MC*EPnV7j-_R5~SwdV3hV}%ZD@nPFUQCw&?JIUs;sn8f7eL$0ogb#FH zB9l8aCQ>iufV?$qX+tjCXq4Y$T3cwW?XiR`x@U`3ys@&`ddXe*6NKmil6S?+#QNua zc=2%gd!u?RIbQ}cOl}=F+W*;zXn^Jbmx&F)1x=Y~3$F&zklYS}mqCL7FbNZ5nkIdi zm>7MS*q|X$w28J2X%Gz=;>Ag_xd4TxT%2j_B5#ekNPqaqkaVh)gZoycXj=HYej$JE z`lX+j669|?%ySWw#p@jp%T25Y!>pYvficqgi8kF|k1pL5n8Z_E3Yihi=SC zpORFzBQnbifF>%n2jyZlr3Yn^K;k_>JJDR=2H8~Xb%7@sCN}6olsV`ENl3E8P+Q5? zb-~^AoRd|N$hw%A_oi%G7ZMjfZ985UEMhOlZ~B?MK^M4iDilE%xXW93w%K^jE|>Gt z1&y(jT$Un@N{oVuj*WuG#_337{ZSxP8XF%4jSafMwM?U37bJ)-(8WTE+A>&4oGw^1 zAHQx$odyT<7eNDB(1#z3n~MzA4Jm8crp*+t8lW~(IFYVMkYEEUhAdFzGn10LiviZw9aVVdX_AfVwy$` zqdq8zX-KIVP2c83Zjsvj@xTJ5*;4uja|~fhwr_Jjo3MS0E^DbUBQ5wuNm*Q*@cTwp zC1bt&>$YzfM;$lEA}?B60~_^d&EQHR z;*ut)4LxZw1!J7g#73fAoCu&p!_NlTi`qGYHtU$Ux6jJNih*kk)1IT~rGUlQB-IV%m!UjYv`)hTJa z&V$w?%9*nQ?GW=EQ%%r$D>O%ndCg@zKU5trSra}0OspBbOJo!#D%OF3WzAW+bBI3N zR10`F0vbYHzK@qUv(`+#jmbl^RqR8mE6KaF0V(owt21Wav9_A zB7IEwnPcv+9;V{761mKhrE+{1X&h4KtA8m9QLf%wA2 z0FXqb7Mh?8k;$Ep-PO}N&qP=t$^gPd9k-RflpuFgFl`s7x&V*FP2Pmc%Y!kZQCcFJ z0ztPyNhaF%SA!ANIN^X-FU-)mO?5yuyk%g8(})ntPDxG`h^xRK8DdOH4Bj5$bZWQl z)LAY*fI1?-NVu>$ZTGFn>W0Xz{Z832R00t^%%zVIqGOv>5=BB>F;#d>Xtim)XY)NF zlk8!FSks!~XwcXI33fyy5kt$`n(cmsd_hv2>h}_TTA8T0SZbqF`j?PMOx{|jjuG3l zdQKDTb&IB+Cf4hhQ;>ukAo@=-nFEsK7O1h0hsN+k@j=`00`$X+GgEMmUZuR~fGWLs z$IUQ_y=V{c5&-v7V!(ST{=m#(6ul(di71K#WIY2aN9SCy=mmuEOJH7b>^APJ?=)#YLu1)-UU zeL12CgcCW;h@3K^w~_ph?;#Uu$f(2+_}EBv|M>+I(%llwRhBSK?5?qoyFTa z;zF5zaHW-Orzh{0`VOHR&+SO8x;(C+Y4{L#;JMG~$a%Rdp>GJm6QpqqoaLiv-Ogcs zw*@Edu|~YK6E)?ROEgGRqD8*MY8op7HWTMuIFHsNTPoHBFevXW^I_>kD~!C0W~5k3 zJ8;?#|HZAaH#YKw?YLqo?c8j^ge>Tc#GJ4NEt67xgV#M^TNAWkBTv|fE0)rZ*m%1} zZo)23MxP$vw3QKQS?VdKG@u&qL<<^yq9#m{lr|2bc6Kcgeny-SNm3-GZYVL5fU<;fet#jp!pKXHIhPfav*^0Zc3h z(}rxmRWx^2@K9Q-C$Iyn-fKP;K<0=8RXhU0r3?Ps zsTnIaINFzrq(n2?L)OQf^mrd^=-E8kI;-R$>eIZE_;jth5lgFfFvi|;=|SQa7lpzf z0Y?BKEl4A9Y(+kp&A-^J_p-F*^U1W*nL_aC3q7lIKfq~uCVM^cJsljWE3z>N1C z7khI)+v>p97M`_x^P}VPB?eZ`*7gtj zFXD9zoe)q?`jcb3RV4og<|m)=x_W?@L^}N`#B5Iro?1mdjDu``E zK8{NW-X;>QwofN6n_r%r8Ok@WJ`~Bo$%KAi~tpm=laZoi&h%99>aTJ-ofD^((ww?}-WAIS6W zdytr9su+>5qT8+I>#NnoUW=1ec3Rw!RaX<~b(xJ?8}nAytBcF|aKE-Jbri~l$(hNi zX?Zn1Wkzcq4WIxI&^JpJVVM?C8(j{gi7#)pgui}v*&{UbZUpIDct-Mto#Z6OW|q%O z?l-w0Wc!Bm$G5nJcH7Lu)$S1xDsxvC3tJ?%SR8ai$NxCP-Px_bRL9Ae6$dARN_7!R z@_Ac7*CHQ?;Q1~>g!fN-c*vom?{zt^{aAiwW#v@IVag%4V*|O;P)>MQzunv+pV;Zw zZ^>g}veF9Y5R7w7A>dr!tS#nq!p_KuWTX+7U0Tgbq(;eOHU#BZL}9IqxcQLWUG`ow z3m%5mEbkBXno1}H5KGe5+O?(ST7GZ?hs|~qJbHhxkZXMJrx_~t@ATP4?GgL9c=cL7 zcRTjxLvD(FpUGAqui|fYd8xW-F>&TJ_$WB~FvN1;1k)#3T4XHzSLmR%?$q1LL;KuCOjP2aL2)|I&l{=YT4MBJ~}_uBbz z+oH=LmayDR&MaYVC^}pFd6nW-D3uudqzSB@Q7amVH6+PM@ft$NYs-XU z&1nW#jvHM2WULJICLy-2CLx$hGoqZxdi!*(1$&-&S5%)As|l^48dRnq@aaQkhty|) z)U=_sI*`5HLAVq*HyQ!E;xVlCr2{&Nf;j&;(A5=imp#zm49_`md(q@cO zo5wMNdK3F}o@N9^9>-ki9%z*7NF#)&57mQPv)tQasT&(BHSN?74`B)qF>t-QQC+EV zW0}3Z+I-=LOc2b_z3%sBSGs$xn=i`T%l5iBrsy=YSj!O6%vPm>Eab{(yVQtY%gUP% zwgJc~`$bnFw$*qV332v~M@WnEVA3R_@owQ_P5v-|0aJo?Wh9UE2901i`95BHGkuDH zjjGg)7AXocN|xVX@O68Orc#mQQ9=E-6`ResC$5#23VT8A-+u z8wPjFymHokGTPdg+Dqs1-A4OnG3Typf-erHC4>bg&YjEN z#N|ghnd>i>Tj~b2UVWEv+jNqh0cE7kSX&9tiqi z=prZ0=YhOqTF4$04Jg@bc!4iagx+dwimtSH1565-gh+iLFZg8-vXj%#P&A&{o^11- zw$DOCmwjd$C8oFW;9itnG>?sJx1$Z&8Y&GoYeP|Oxfh;o0{(`mZ!42HVK(BNL-_(V zxYOH{IUF$`m<>AnRjQOF<`4>dEMM&Dq(s=w=JtA#ugppuW)&W)riNmB73h~Z!7F2` z?IvDiY6-2jy)>GrhJ_4*QAn_lZOP4g-XgnTp~Hs)g%1G+e+>Zm(&03JO%q_}SX`}& zTZdML3kefK8&HJwE2eonfJ_r=s#v7i3?wnGMyg4)?=739oa%_G3={eeOrYiKht0kG zWTST|M9GD00#Vte4x}uNlPS}>$+Dos%C;dYRgj*a%GM9DZ^lSLp4Rh&Xe3EhB$9(R zGwj&O4(btlG6aC6p~Ejq`Fe+XuM~mb&I^ppt#0j3vw`aXy`uSoTqTnyXFEg10DA2T z;rvM+{4>pI)umm>j{F>OdQ{v5FWO|#^1wg7o zi$LmpA>84FL5!O*(g7{#%@{8>F=u4V+m3^4S;^(io+@({YS!U4r`W_joJv$W#O9K8 zfn<#tBj1TB<8qiu!%A*-u7Zv_6>Oie)wk0KJ7=9&QDwBOiQZ;6^K9T0!rfZs&S3M6 z+aiFTt>G=yr$MKJDgwF;E`WzduR&%t{JP>8fe@>9!*mDJQx0B+7L%n)1W_XB8qPNK zwfXA7K@&&SSKIZ@b7e(mk98kzE$&ZR@qkUVkA!Fu{yv$b3Z!ZaDxn?FSjbc}i+SoSxt;xo#o-D(_}myA`YfGUOAjC`XY@X zZ&!il3~~%VfU+;co;khl>F?W1%|j4^6KuLTV1rn5?Woh}w>gaSEcWwK+xuV*hFy(xqRXvz|6{U>TP0@;dCJ@Ms{sNgokZ=?N+CP&rX*+ zY)6w=ei0chzPg6kI7i|<^#PZWZdA4xyFKjhvxoJp3WWHsH=6ZBJeunrmN&moSfcH7 zW!q$~YqTJsvRxICvPbr5hA5>Oi~A89a@oVCWc!TQ5wtNo+DVE4XUOM_=N;PPU**-- zg1n=+QCnDD%THAVozyZ@+dPFtEDRtyuEDYTf-@qFC{TDHxq1LI6R$WB>w}07F$W$~-B>l${dxdv@ut1KyHXq9DT|$py#5 zt2hAZyc~W|!rYco1{?x8WvE#eLS^#@Jtt(oE8|0unu{6I+<)BNN(XPD`a$SoLP=_`! zcRf5<0P4LX+0nk0BQzg$CvAj8UU6vhQGqS4(b$o;s(X9uy)Mp8Xa_@zEKFkM@m8kE z0+&0|VSpmXx6DGI!mgoQ#Hl9rv6<{z4_ip`I7Esj^|6^_iJHqME|f^s&0{IrKp<}Q z{KJzGDE-n%c#QQGog#&6>;m2#6Ye~etogDRsi2vKpxoNuO{44+f`0iJ(1ogH{VP?r zcVR)*$#Oa2p0Cw8Jm_^Bd2eT|`>Dx7+D>SCI}xpi{*vI1wwzf2ET0_4*c>ek3SL_V zap3ISf-`0H2CNFq4op*3axP4+USD2@Spl-i&Q2$8vZX~@%@)d~!kjb~_Cjk^f*hX5 zlBk!<=$QnOWhdbCTu7@$kx^dgxfe+c={5|zzCD`L+hF+G?P=0WSgD6M^v1~KI88Btm~)~_)`$8=CuhV zStCn4Bq0&SSDeDo{piYp{(EWVAzSQf6yw3Twb(>-8b(yTaUK3hr8 z4vGpGYJ{^SV|z19HI3Hpf}#4INH9%{DA(z^!JQUH6?N7ZTq0ZoIYxCe1vWyn$hZXM zCVZSpPE1IZX){=vWK`e4wuM{Te3Y)d0grcHc&3u9p*X+Vcy8f}k~^$5=(<%XxxV{+ z(i}AnQ>mAxb-wGLS^YDIJp*VGTTZ87f0Qoks4k^@#hUDD!)hBE$xOknKgwU2nV!2` z$Z0+*51ba(E0A02xC;m{%dX?d|F923BBxE7&WSjGan30aSdr>CCPLNFM4ARxc1MOq z`&w9uS1l;_8^}S8K%_Aeg``PQI*QUX3^)!t*n35ar-5oXOxrZ2%L#NFZhMG9I&0Nr zfWU1+LyLIYo zYbFFcC%GvqT!eKxs zw6rv?qWMSMh=K96BT0*=kw;oQjY87mY0QxpPs zm{#zD*e#qRgrzr+SLG)(&Vv=j+;6<48thzj5}@!8QqboLPRR{bc}H&1;9yA$@dD93 zRe8&L9#=x`HQS>pp`5G~Y>rMSRB*}o))5|n_d0AKtk?hv1DCm?!2qmoF&(s=y#vc< za&7^mZVpa~UBiSPbgk6yRZ&al(WD=*VW!aF(sW3^qP>fd7iko zP+i8N%>(Pg9WK{$bX{>bUZdr@K}{ytr#qGG9UQ|P#7D2mEC{nP10t6IDNmh&$fFfCT zu>ci{i=3_HIO*=M6L(~%JIQ$Bj+`DR-JLj5(min!w>?TSnM^uKf0UDN!k)=Obu#JC z(_cpmLyDmY&HtZ!?|b*Xs=`8%QqpbOCA_cryuJB@dhuezIBYJr>Bz#)58-_^*W+K=E8wnMPhHPN8c($ z?n$>Ujf<#6SBF!92Q0bh@~&JIc<6Ycl&i3y2V()sQnrhh)9&h6Sj1akj+(7eQ3&h~ z0z@~+O#xi6{~=u`8D|&r(3wBV8Q}lw?Sm53RJ%HixC(#}i@l^}S9CzcSZut0hSwpS z3ha2?A+NCn5(PwSABTIjj*vO%P)3A@(x?|XNj$Ui>`=E*V+8F1ySDq;!Isl|nSELxgARycyk=1QtkhMWnMx1h#{(}Dku z+H6Dp56fLKkXat0GN|N84(h^~LyXP6$xdTQDU=9V_Y-BDIe0j>k_0f)b*!+!#3MMj zAWKlreYiH&V2K59MawwypwSF?wP-8Y(>*mh%9A71(aH4qG;CzdOpC5ztQ)YBKRur> zcE|RxYOgtotlwH<;Od&2gXAkkmIBS$$W@vftks;v`O@$j!CAp#N%Xe1vrCLL&D!&# zB{>2;^`wJW>FT4`uB+=>KD*V!9kucGyZS*)s;0lfebuq`d%CyQoQ7t{9)0?dVqL)v zl2}hA*vd6_ND+oHAkGo)wTX7SjRSOEpQP1{i|J#Fr*IlMx-TWMT1nDm1oXztSe8{0 z4}zMRm9t_Qa_H?9t4=akT%5;dSu7>uc6Ae0%m7$H_$WBJ1^d-F!AsB}B^i~QTjgRm zSuUKU_@b4Ph1|22M8!u~HhK{l6aBNSmuz7PD&1M=-Xc=V-l9t)-X4tAGVe>KxVK52 z;aU9bYm&&|d}=mXJe7NXd7=b8CB32b6DB4O{~OZJH9Ps3vx8<)!`D^Dq>@=EAVo7! zL;}(V^AVAlIW5j95fm5`elSu30=ed?cgT5ikar4Q%02|kv%C9(D}vDS1Q4vkTPboD)bQOKv->gU&6{rsBM~ zL{q(ccI)qy`A$DIIW~&*9!(-5u^Xwr%ytjd6O%0eXso|4Hl1R5R5hJqVSF4Inc&v| z3ema)aw1zYgTF{jO^h&NcOUf^*j3?*psV^rqU=2^ZwQ^S;b^F18FY zrWlqGzxf#X&M_VYv0N#JS8Gr40(u-`CCF3Zz$T1pQT+a)es)B*f{_g$`WTyLA9N2z zV0?(m116W=+!6z^%jA*5vIwq``5MZ>&T!=dLj3wZW8ts1kiV~(t-%ybEQ)(M7LRNn z`>I3$8nXJBma|cH!?NI631)7knV*O zDR#QEquH^UxK;P>&cLBoG&PaQCWlAIk|J)uSe}nptNqU#0|9H5fUyso6Awf)lauKw z&svH(Ng>$=kbojO#>~zV_4W#j#9VcvG7~YRA;&rqkf_>uc>@TDNrv_8-UKK{dXm&W zRyU6uq%|c3mK0yal8)@CSFdOC2OLh{u#n~uPo>Aw;Fr zF4BP#WeS;xzlx)Mj@QxJG9b`q(={ftzc@38EmTa6pUfE0@&{50y6u?YS|&2hngGlQ6VL(RF8*j^)+ky#uE+&n7H*% zenH8W^Z0VB8fZr&JKFu)mN;X1_-EE~d~98^p2zKIFQLp2pI%S*NkHrBfm8(Q1O`I z&oPnB%ozr;U(7EL9m*Al-Z4*<;Xx8RnJ0{C?FwZnH1?xwpQ|al+iOe)F3%X#2 zF{U8W52Z7hgE6iVY8{!*&ZZtm$lU9ZVQeNfl?3f5>6-A=*LS2%gU%c^Nx_y)iq1)4 zquJ~sUiSBJhNPs03Iy;r=!7)aLC=cIfj~wEWkr0JgIz93(X0wqKf@JCj!Bc?K6pVd zhwvd}Ob$mPI0hfc2JL+KQG09@T05AY2A@PK)1O`|46?(RTKy?0+B$Av{GflwZqkE?%8ssv!3g=^bG&=(}C9X3WShUQ7 zXNltQP&P3&nu_9XIEsS~*F*gAF3@aRi;GoR2(w9^^C+#4%4m-vA};~jhzLPZ9@32g z5r#o)Y1RWCM!a18p>W5)t^Kgc5?|hRyb&i^ zB*lOy`HT>1JaEm8&(H*n(Wygr+mJrM#?mSJDr=KMS6bPA%tw=82PUS#m>3_yJ%4;O zgU5|%>CZ)$i<$MJq?WJ6Ax29pJg3K^A8bOZdmrjUbRO#db zkFdm0DmyXK+p|0IP|wbyR1z;0clP)pFoU8X0FeRz@87)}Zq5AS{X+*QG=sybW@$d7 zYgn33mii!9v@1apasV|vY--ST*juz^yoyaC%y6z`V>Azkj3}JzeM6j!I2TLUINlXm zuY_gD2sdUpojsgRXTC1fX6y-uv~DanhRVx7;3^)E}=( zl4HZNj|6y4?`WbIyiI*vFu}7+T*Aqqn_P9XaL2P;oz23&=?nt8*bv~q;gVJ3g)<4u z6MVg7fyybzYOOeWLLAh`ykkeZgkn}N>Tsd7uy|^kHsEPGrgEy^&+b*>#Q9Ymbz9St z2&TYMw@sbm7xP+niVRJOeHYZY108q>;}H4sP*z=s&09p?BJvh>UQE}H=pv~mz2}R( zJRNn$J_ou8RpXnBA>X(0VnEaD0+R_J6;X#?#vveq51#6ep~tjR;kf+OA@EF6i> z=_$~;+IN^48S3GTaPa#U_}?BN9#Y@idvkNky)>YUsoG_xw{IVwVR!2%F=PNc40~>u z$+Tb641WxmT6Y@V@IGmNoy^o=i>BY;Hu#)pa0DxYcRo3*y&6CcU)#GkjQLgTr}LCx zam_D6v^*|xn)Fk(J))fUxc&If={uy^Xp>$I8)%i|ga3o-VLGd6Py2O`-Bh}PZum;R zHM+9Oin=rI)Ukn<$s(eIw5xB|t6>AJI(nK{->_TBT5ZcdBzO%CVaoza^Ci0>vvOVy zbwfBD>HCM^FpwV!z1?)|J{#NLXSU6%z_78ZWJ}l`fsPIvwph5UAfma0(Nq30eKnu9 zw%@g?Dt;I7P!9K{3;js)aNsbd7HCbjL#4BOJ?RKJ7x9AQ#enu5%%;s!FqvJfOX0 ztkG*(UUb_mGxv&o+D@Bzc3M8y+2svaR|R*}oU74aiS}mMVpDdTDYn;U#%wZs&*XJ> zK2&<6m4}Bi$BjsWz&oB8FngY#Y{2HRBd}q+?U`?#-M2+IT&)M}_T;j_BZNbEF_?%` zK&N$UDU`AFfov~{qu3a3ujASdY#-FV^rzWWQgXHZxY5cSShrm!>a5daNeXv(cF^ha zEUb8Vot_=M%5JZ-${L+dPu1=^ghGeH9S3D1Jdd6nB;5xVjdqhebM4 z`(&Y`sRWpEni2(%jjLwhDbXJoqR4H^0LhNggpG{N4_?KvHdd?I7q*i)PD4ZS+)W0C zvIGCJiNU~d#6ON1&X~5lX+~p0?qGE3rFoMSyY;_LHWe*z6J)O=% z;y?s=aA5

VVvwkm@g2C{OkPUFOOY#e)?5;pOK+eKpKgOtgorH4jYREKN>sO!KKP zSSG*&joBS(Bh*WLYbp_JW4?LL+fSUC`ZJs8w;#BX+99~NM9u=lPsN`E03LEm@T9Pe zCJK7EOfyK$NnWfRL6+k>i_U+XxQ69+@voObXYt^sn48NN_j)|0&~?`=N1aE*ngR9HEQA8j1b!RT2k6iCm;W7Y5hLuxG6d zdqWul)hFW6)5M+RSj~>tPa9aJ+~6u{dsa!?>!<17xX`O(tnd@3$>TR3oEn8Y3TScS z6&YUbu<^t8B#fX7Bs#3-1DR#G1C}=Q#w70);8Pi82q-30uxU_*n1HPo^59!vh5i9- zQa!nlpcD!G2V>e9l%p}?>4dDQ5)$T(2i0A@BcPb%1By6y;RgiqtU$uh$Bfv;DjE(#uhbT{;4n9= z+~FN>RT3R`u3T*k$i)ep%ag>wtgY&o;yaAi3bmzhL4{4;)2C0vS8zyy%BoIDB4kjg zkYP@Bh-}hNQgUiE3dtQx1&dB@lfyI~5+B@fDb=E}dR( zeh8kL*~ga%Flfb1%GMYqDeg}&B|SN%ko->NYGqMG_oR-riCjmt;3OVY@dn8VZ?`g# zqJp|NlX}PMY+|v9XNjm>8ahD?J#i~|ML78s3c%0^U#!yuy|pV^sIF*911c*@Tm4sE z(I_p+X?o>85AsbL7}Rk(4A3qSx{(X_;UaG!`63jm7VxB8f~+=PviJ;=n}f7=6so0p zq(FJT0ON4bUWauZj@Rs|9F$GV`MDE?JbZaCSD;# zy07h&JOFZVsmND#c~LitMjjQ%NLT5iRyuC!LzL_4N1M#ApLVsohP_r@x27nLcdVeK zw_E|Tj8ElW%IdTovts_&A+=+5qR?4O#q#pL@qc<{-P^Q@F}k)jMEGGj;rK}k2NQZ6 zv1vns>v$9J#C{#2Ur}(Hy;ngPMF$!X9o8{mTyt zr1Q5NvKak+w`s>}6l(YF1h@v)0A$u6SFmSOdD!R%!R55hjye5`_NKB^V>>gHwy>_63Mkw=YtS= zU@o+wEXhRc1X|}54^94K1t!cl@#KMi4PYCEPj!GPdx(VyLmTOmxO3|PXu?1~tj53_ zyU~8IW{~6sAU+JaM`JK)d}5?<1b)$~a+>L^(V2tg!a@QP>vVe7AJ2lbm57hRwi_wj z!pVH0L-VElDLk5;$Pd9t(0ngvSik*ZRyWo-UW^M?jG|Zj zH*;zeg5P-0G&d3u*Pzj@`;Dr+#w~}J*&es!zWX*2ZM_wQ01SHM}o z9xlzepo*7mR=k=I;L_r8?Z9*?XnM)xm*X5-m)~BuY0X&%qsaQMu1=K4MAn@&p0AN5 z z{YFr;Wy_h~Bjx~@B88y@*}Gn0y}2}!N7weleHVidURMmh?&b{+-v~0Sf$D+P4btRN7;-{((yF-I9&+_v zm|D~%ILyL6I@_x`hE8icg}3NLK$&`f(D0&ks2UZ!y$GY@9OusC-oCaJn!e!J>CxAzbwb?VY23ZXY_vUV zZ8Tx*uD#9nm~Hl622C3$4qy?C7`$fmitXcjBIYe}sqU-=nbpsuy=LO~t~v2Q+H24I z-VcffBX^vB{J2W*fd&&MdvqxdGmX&H0<~U@A!LLORw2a>;k6bX-e)U?C2_wOUGk(N zV0Wbmy~5}xV3QrD8;o5FCqEw~qVv&3aNXFFtzt-Ah1-x*UAKN~nMWr}l~rX6x-}JM zlz7%j3vvpoXh4}4e^MOk&LsmW8ImvM;RM;q;E;bAR2@q#F5t?;sb!`QmICCk1U-a6 zrXJ33~Rr~8zVuLb=5p6{Di8TqV8Mm`~5r> zV%?Ona9BO=PUR>zayaOrRUHpHI($H|@?cgwqs-}Sde@_)&0;~sr$+)#>>Rsz;1T*B z_3-|M87>!i1M<8dI!*b2$#hL>e)~pQx`yY=BkLtgi}T~T91bNt2=Gf;?J+ z1s0~pdZIAFEEG?%lqo+0PD-*OSv85eoCmtf;S>QAOY)29VV{Kc_yHD81!>6GSiaP& zOTzXT9GII%;Be4Mfu#j$8pa{`;^#x8&u^}7(Yt`JaU9#}T0e#Se$1Q4C%K06wkEMI z=m{@Xn*SfT)(DH!nxnZ8B^3c5-f;10%? zN)lPk?sDH^yjKFfIqjrw_a7s@9pf&c*BP?(g;TH3Wimr#THGh{EYVzpEIc50`1?DO+W`Q9Ecn^wyrd61{P_ef8uw>te0 zU)uy@!(X)H?uqveKJBox7FUOFzTTAt=eRSRK0|n*Y8k98?m>q)r}7M5>rAJil+lmq%LRjBscYU88<#4V8@Yl zS+;ArI~MJx_tm=geqvJxhkN1W5F|^i0J;WeJk?nD8S(8{`RH74|DHWMgUyQw5IDRo zUp2A8sdX>~}HBKI&3PH+iD_qE+?u zNvV20$E@Hq!^z7r80LZp7w>oP_rJH^>n&LWP^@%>5#Okr!>6Ah^b&KxDx<#Yz%JJK-2WDNsRt{a<-m5F9*%Me9PCd~dHxJs} zM+KO^f(Zhc+tIrljxAEjne1$G?11rY0pZn|Y#NFQG`5F8cdUnB@K2yqMsaP>E&&iW zBFA|>r)p%rdhVHC3VQ7a!DmBJZyI3~; zRJK39CR|9ab;E_;;2JQl3NCa7HOHwtY|g~eiKv!rs+)BHGDEBE3XE%DU88sXd#|x8 z#0bE9*c2>ZcRY^YaBSgKH>jROK-5+5P_Kr%-ErKTuhktnEZ$3RYz1{YvloP})tFyn zZg6;Un%_%z{3>d8C^a!Y4r%@YdxUvAGUzLz#vz}BkJwniUDdd8qOhMakf^OACSnyBPaKF<2ANbzxM#MmA7nD{X(E0MB6s;R z*wI=Ki%s>{&D|f)F0~KT&F@w3)sN~2>t-LQRXs+gog2Xr$Q-D}sr2N;6fBFtZg7;! zIPzr0hnvD|c?lzhtr0ku$k2QU>=cZ{%hKdj`p{_lFo$LlUvL$Ojl4BfN=1}<{?Aw5 zd^g&FFZF*suYdTg@$V0JJcif@@Eba&lmGODQa{_M)Mrb6_IDapqnc6brj}Oqm5WNP zbg3-Xm(0e zs!AX=SfWLpZ*@w1xvB(Gt4g#vCH}ao1X8O?v^ym_BH?i$wW>siQ(|9L38Yq)=yXby zs!AX=SOT-V$tm$uRV9#GRieu&@oH5Gqy|f1b~igEni|3*M`~4xEl!EORV9#GRbs1C z;#jZ*dVtib65E^-u|~k&1MghCK>^7AxMAgSAIQ!=tf>3kTY&CFejX<^9$pG@IkEd- zMBT&_pGbm6EPdF`y8)GL>ds5ey^Zzjt19Q!7-~t^M=19o9pk#u8N+#Z4F95WOX$O6E7m`SL*=CofWTih ztz=CfE_bLxTpsj?qCKgLx2i9+T;8IL$B4Md5DoctUEZX-TZqGjosO4Yp<)XTA8uZm zyry;A{%3I>Uc3#*=i3dPS5`JF3Ez%z?#jwG^%L);ls+>r+=0{8N#1p3Wvk9Cg(FD4 zjgxV?S%Gsfe=_rSMDg(bo92}vR&(}Vm7>@q)El6t3g15k+?c=?Dd#^0zvVD-z5VUR z-Dfwc(bADc>zVLdr`ZS!>ofbpooGZhM^}p4~usiIeMBvWs!POOzHRcf5gC1>Gn(hB;&+2F>4xo7BNfGSh

4GPuFz;nYh>EtuXS+PCTreG%Qz(i_h zx>-rY9g!Qcih>m{HV_K9kS3~8RYf&bM*%a23$|280UL&M0o{e8fX~8FKv>}@V5D#q zP);}sI3*kfq!Eq+R`8;_1k{weuoZIvSlR|ystZ9Ig%P{Fc2%z>%skwxj7_Ozq*eU_ zHtb3#XrqW~#o$)9*fR>d@xzLXiSuiTGas{ft6-; zUmsWf7OuK?g4na9OO1_@vjJaDnTeU?R)q}*x18crDV<4Ajbhs;XNR%T64>kdaB0O! zBt9VYse&958h*M7d8bo8aMj<#U1~acC@p(;Hk&+XHZ5RCYHC%<1EVnblHQ8-mrIM6 z69?PyY-VDdPPV`VO5kA4z=aD>1LVIscr;|;gKunRYP6ZrsY5@e3=rJ{$RT=YP=C_} zK;Uscs#aoH{zj|~Ph}8Dmm3uZv-Qmmb-786q^DDFwV1fQ2Apz=U?F96W(`I+X!JqA zlj=3_NS#>tMsJy#)dfNUmZlXQJCsQu#+brW+KjnIH^MVp>kRyIy5J8ySVYCPAEwZV+dp8^n3&25}a;L6E<05R|VQydf9_P3fkB zG;@PDd%-64GqT}s;Suu_93Ia6TL~aU^Afypn_lhPo#Pj$?fA&7Y(VTU*N?WnlKv@-dDf(HQ;^iF}tY^n+KRaGxjugu6|!<9?F3w`fb#sUX)ZSiBgq( z4cctL-n!&o`|+?>(Er+NHkx;A`)K+1o9~ocZL2xGTd@&ZvCCR@|tdxRjlxRpUrJ>oH$v}yL@ zHbylmK51TAxf2mLFk-W^>PVE6Dk6z_Z*=qSKtwwtK-_jNO5T9Q zSt>GR7H{t2av<7*dxen^M*L8ZGwto>E|M$B9q2ZFqlu#3Ha#t^>a5?z^S3J@|L?_Q zAOmQ`ZLfE#^S7#tcS@igLwLF=2#eo?x&#*Q@nBIK`t|%MO>aEMpDs#wRB^k3)F7|D zUug#I)Y67N@5i1#gFfrcO)_ggsyg!yTGD}g5s(`OQ*L1jcLW1BGeB~UfvC;aiNJOQ z{zAuh+jwTW4*}Uw4BYRgJm3Z%bOSwZpw|ub*#L=2^nV8?A4t@Mb|M7Q@yt$4(q}tV32KF~;Y_bJ33LoG|7mCkgM$mtz$-__FUXh)~ z`;SQ)dx{c~!YT73#K?dP!$YgsHMn+sO$CJ2S zYTB_~?vG;=$qf24sax7?Klr|h1RzzCynIqj;+U1Lo3Q|^!9yrp(bv)rb#Nm6R5~>S z-$HH5e5Tt#P$G*VE%DWg+v_m$WDEubSvoT75z?&;aTc1Co)!f4UAawKXJ9k)I5+kV zhK-k1T^@7S!btlUmt%8iV@%=mGdM%wj&qbPI+UuxJ~&-QJXUx3{W60P4!U z-kr+D%B=<^%jV;$EikPwU9IXRY>;tY$MlH~AR=UN8@4F`&&NLspkLX9R6$1*LIcaW zN#eQ_0Cp4h8NWC2q~(_XYqhcm`J2$vVe zD>tK1GYhpTlNIpINM7X-DW)L6o-r`}Y-HtO+sqE98BeIBZbRg?OG6#X%Z#QNElqW( z@kQ9Z!#T;uI3163U!C2eMxHO_ju+++;3yr&Yt-306rb4f+@6_$L5NbhSSZCH{1$^w zd*4}Hg5=%hd>47e7q(!oG!d!8yu;rq$6S-T)O3FYZGY?Z+mV)=Fohp$TS?SuvQeS( z_0&yVC^w*O>ZRAQQMg7os52eJg`aO&c}(i>25l0h<3upK%8LspmTRc;lkJ6z9291N zHpubfnFB(dhy~N8&m0-k`J2>*n=vd)R(M^wrMe5ZH?HiLE<8}x1yDsfsOAI>3T&Vk zw+4G5FD|-&x2cP_<0f*cd8%>c9<~nP1~~@Z7{`~;U)+Ja3RgX0Ao~u1?APz$%Zwo? z-T-xhz+FOJbT)EM-)vlYLkJ?ia-o8OK!`Sr4BZ_QY&U?A_6mA}S-`Y<5fRnU(n-Sn4LVU8QN1R9Xe z?LcRdYd3nsv0ZLgmBm>w^C3%#-b$8j>a(W5w{s9rg9N0zUB5y2h--2IqP#QK~9w-fiFix0}7^`P3?&d?4CfsT}rKHcs>=!&5GB!>lbFFpB} z*8m^!MBR)N3l~S8!0)zkGKfcp(UQlCML2~p@QP-EcBu;^m?v{4GRbgIZ9$Ucx@xH` zt#g?CJW-L~IZ+V;pY8xTH)EseX;5~cUMVmK5;t{VCIdQ?F{Ecn-;SrJlOJUgXtmK9 zQlf_D1+nXuM_TGov&u}3jbTM6EAQZrK^ z;x(h_5nci?9SI@fgKs>Vj3=oK(zzMTRk+*+*&{x;O))U2K-%h?1BXRgx=jYi_bQWV zAWSra;>VhxK3oy-!5TZ{OZU1FeM5x%HYI%=v~+cSqFabwMm|X-Sz;| zNU^2@kDA-wY{vAwMd=a+4tI}wqL|-hax*gHdftj0s28=jG`6AgzN*S^ zK}K+QyO}FeeJHqZSe`mC-3?4{i^L5B)c#FGR$2kK!?T%u8R3bH?tEfcRfN%d^+lmvDr{Ez( zp*g-4cY0sQ*{rx3!2C8ZeLCE){|x9qgZd8`+swQ7|7_r_;o|DvGli=J#Pi3GN zZ-@HMrNextImCO>S@&Y9B~oz-s(CTx-R$g*xXYEqc^yrkL0#e~+)sGdwdWhwdtIyF ztpnK0!cq;>(F^&arK8(IbacBAKQ2MS(}GM*@Qqs)-dZkf!ia?m>9ADD7d3;p3%U3h zvl$sQ71C9k3VAKEvQMaxyK7S+n2j7b#kfLzdx#!kayUIi z->5Fwr&5z-5WOu(L~p=FxPz46;NHtOtlWZ83)tYl5UFd!Z{*5~Y(+BmxD{O}fH;&U zYkuPztee^AH!6SElAJK)fWO!4A$vn?2yzV*3YMR?A^fv3#N(3^_cu6LhYV^$^QkR;S zBLK!tUg1)tB`Y}Y3c?o+t9CW z!|uNYuU|0uk^=)MKf92pDdjWooCQ4=5FWVF%3~V%Y?~sH;-IrOFFIknOOY64*}N6pS}$D6<583RXK=CSaQ zfub||lA)ym0#sh78kv~2d|rpfpMnH5?83SOins$Z0X-lS&;vr?@9=q&p~F982ceLjVDIhRb4I|JyC`T9vFm{ zw+uHV#|jHfgtHTJm&>^i3*rXj(?i@IzWxcJ1BIl%Krs%kr0qnc+3Q4ubmG72PTa#z z0KeeX5n7}9)ARY_+mYsP9YZ(&i&GuXJGZ)qu26N4@zwR`z`3#{q=Sc-)L96q~HIGZb*2r>~}l+tr_dKrI(zRI!sH0wxt_a zX$iCi1V!2v7imj_3~0L@P$%25e0AGWXM;Z`9&hfLB2BBb6dV%>Elyr=Oq$xTEuC;$ zBJtxcMx@1U34Q;vt}k#bT0m&n8p;evW#dsh&<+liiXY(F*w){2S|?@2)|=E_JUO@E zCXjg|{WNZ_=`NL-eth%*Zv9!>wAQCXI}Zd%Z_V&w44>(zQfbiNI7yO|&{%K}TO%rI z#X(2M>8G#q~8(n7ap-GBbT=+N@YWEc*tYZO3p3n zvn`kJ2ydhr9vl2Z4d>^Yd>F7 zZ$bdzwMz)HW+fiXAP1C8WfEktDC{W;Fi<@}A+tQ1=^ILuI)970a4U`u5%;9b5XIM1 zXFJuA@^KJob5u(BR_4mec5KJngp&cLEh)APge0S+%#y>SW63Kk5D;MoFf=3sq+s%r|F*gZMTNHx0$A%UiM8dv%`%(J)4E7M71 z_&kpnMJpx0{q2U(3!)w?YR8M#z2=x~Mbp@WI8CBBDXrW9zv_wzfYmkuSmYHdJ30xf z6Aq}Sad=vp=-{EF54}+M6uHyg@1=+c18!R=ODxR%!tf-NL1IviC3#(GP{~Y#%76iH`0hRgb*TyFz!Kn0 zn*nHXF&G0L8Md3=ZM>F1ws+Ft@eVEYEUFD3ZF;CC`l7U?mCLZAlC9v};5B^@Ikmt_ zt=J8%z(j)6KoJAMiP*e{>$Z84m0H|#r5A^VTqILqwLJ3$JY5Oe!A*y+k}vaCygPwS z&z-%EqUKbzGDj7kNFYFavp%@CpeB)aM2X#6*pd7qR)8R}Cd6ZJL#A61OIbk*`S7IX z!Q`DOc!#H?tmR;%Q*SqHYC@mThucw@N<1mFbCl634EHD!Sos|sv}R=CyWGLX-X&<8N9pDLu6~xI&Sj9$YTjIdPx??p8~7iUQ~7*J^sa7~s+%=M z0DO+c7t|b=!?s0mN-1%+2?By8AQd8$CWBC#@wY`?h+?t=;{jn%cRZ=T6XWUEp^!Tlce z4ziH9g6bn^;fblyR8+X(QOyXCI#7L|hH83lW%C! z$vrx`Y6}|VYPKLkTYwJl!vSFSHV&*_i0Vy>Y8AAs8bN2{a^Rv#EkEZYOiIm(7KVeJ zAf612nMs(x{S>m}p_iiY-=qlt@g(Gl$gtJpN@iwoxVhS0{t>w$BukVyhRaNH3Yc&@ zt&!U%Gc2w`8hT$q>8V2+`*Fku-wH-1;x$|)p1to8*=mYR{@b67@NJ&xlEMvS8#By< zhGAao$;HMed6kBFWVDQ&{N&)<{M2Kjurk8LI;@gWyoi`6)(Q~kFCUj&I z&it&K&T}cnSG888H`;Vo$=eJofmkS8F;z;4MZo0`R7pWMVgK7A$k8Uk!mI?Za%9wd zpU8@1nWz)v+^QL1_}Zpcpy?OCR}SnOgl@YLdhgl8P(QHrSF<`iI+A@Hv15R^$J3(+ zABUvl;nB><#9`bxvtZq25BD<}|2cR#VR+>D9s@-*Mp!?Hg2OP&kVN7bjj6cc)`XYw z10cjE$qIBHo&0LRo1e{dd35Z%9^z}~>l$+RhdgzP7Q`f`yxpR{N3a)*VA@;?}YO3oa zkxR{|8v*y5ntRv|WDD?Omta=U zhdEPklD0Z@TlCh98!sQTZYHLVs2(bg$Q``OSvgDJf-7~Sf`f7q)Z#5Njv;ZY;u2HW zKb>t>Yip43!OaXb42la!A2U@wGb8Wc%xH=vG&90SSZ!u}AL6xVhDri5GdEM~x7u@f zjak8S`kkB=Qrx7pgr2IRwB&Al*4&LfwC~=FNzULFaF-mtxM7mjdAGW755jUc<}r3J zmLWyyRPBgblb_l1_o|CgE>Iit;($aL1cDz$?29bjTyeqRQ0UQd4t)R|>`}7!stXUI zDiWnK8B_`&#cZ}Uva)z!<0CFi1N>-^2H;)$UYs*vTZOTE5V6<2|2l}>T!s0(!pHfU zabkbDV_p-yEjZU;W?q{p2jC%Ob2API0}*j2!2`r8UoEf@7HL=q8uu>9P#{kZr^jSy zQ0yFoPN;B0t+*2O+6+rk6Bio0zk$0lSeaP2OU*dn?2FkpEiiwfftTo}E4K)O=5dVY zYR%=;i_YUtZqZy)rh)t2%DVo&0w+JK%jIkeX031p3~eHcshs5B?fg56@J{#bf7cVv7*zM?#oSDqFy_F z^qebRS$W9Tq5E`~nx?!%Kw3ZNIat)q;)cW)9?f(E4Q55Xgks>) zqT|HIkHmR=_s|&iOM*)yb@BnhJg58Yc83KYS7durZ#ROMBg`kRC|FO*ijhvC&MS`a z9eSa0P&F&vh(9&{Ji>THMzo)2AVf)_r}XcsyPVoz$NYkJ&`JnjS1UV_CJi(~(@PSY z@IiT0whGCQCe_6^re9MlAD4S?T8+@vAg!Z7ya12eSLdCurZNF$m%?=NEHKPJoMir5 z)iC8$Fm_PhLfrae*CLu`ur(M+0kBDhr+S~5Sn{UY&Naj>h_$c+ylm)XZ~j5bhx!nh ze~4wt#G5WTEAqJpQPlx^O)e}H!u^zf(%OP!(9z-rzzNa@Zg0`A51K6lqSt?4X;flM zhUoC}gFfvVa2gkO4wwRa3Iy7%;Gx&_2neEqmoDCrTs>P}Z@_w@o-Nr%G}QpH4%a)K zP7oGVH~}ZDW@X*ssY#+_NV`Or7k%DM>VV_>Ps>76P>Hh8B!*;9@cmzF=62%mCj7ea z(^|SB#w4g82QxHo#PW_25X20MR1$T6wn8iLMkw_$7fn7;JFx{}p64hA7~nb(0NiyD zp8Fs3#M5b5C=D6<2=v|(Xfg$aE@&WobwyZ+Rz4|{*Nz3eTYW}e7r;@y(#s=&ka0V4 z%f}lavx&V)kw+c>mqOM-!{y?I$Q z2N4-}7lEAy#}oh$L)Ww~+Tu2y(e9hJcOq z*eu?rplHYorx9$n`_by-Vb9s#I@>RzMqyG#wDwaIc;mGM%e0LZUJbY|c!|wq?@%Cb zxrU@hK;RlSqMSkv&ZJS`dkT*KhM&H^=lDpZ?m51f;=2Ah{szX(j^m-Bvk?&Tyn>z{ zABgUOaA3$euIt*aS_g^eE{#OlRnV}abO6=kK7LDt7H3(1C;(AIouZrtIW37Vghbd8XU2*;ItQXh+ z)&_9>-&}iKPxXGof(YUIYh+EJ2FCYz9M=QKf42HKIN1OOaex>nM;06+hbC{eGJ%b;N|8US}6yU7ofSJ11~f;w=VZ(s|kaj z<5Jw-EEB!sxS}RBh!IU@qeU8K6UyWd>k{KPs|z&0!*?T8AjG#rj8m)!WJQ1&=ZkoN z7>7+up|K4ye!C^cA=Go1I)5`6qN0SZiSa|VH>gueIwalxht(UDx=L41jC)&?`;>+- zLYwq@5af<-BQ6W1p|Z(3rsJ;12L7=ydGRAk@C(_6q)>U2gZ(+YVn8zNXQ^jnE_9k+ z1SbTGefJgGv0w}_IYhJoD`YE2@f7adW~zA#p9#;v_q?w&V2HMk zYdc(fy)?r;phO7(%MuaIWtgbMi56zsQ1gGstJj5bGZ>!aU90xsswmmJpo%AUIcc*T zYNwreG}Y3!D-Yt{r6sa}h<0s#eY3E}A-pGQ5L?Kfg8>;HlZc@F5zck?VHeBcxw?~3 zzLgd;OrUXVXCs(>Iy;Ns+<=Fo&j>a#ryp{H&kKvi1SjD`;7PSZ{iQrkgN;wt!+$3K zP}|9Z^qObxU7NfI55g+}ofY=T=Th9NBG$RpkngXnL+oi_4BpUSX$n$O7_}Hp`Q?Z_ z4-gShb_x~*Y3l@Hbi!vzG3Tu+1u%%~&$}^}mS?%UF@VcADchuRCqfjMpF{SMt*>K$ z>nb5IC2jq<7T&k-6eI#}rdIJ zyrA7eQ^{6U1Oir#I_e^)7%BolMHwlc)3qMMKTHBM$egl5LyLuI0pzm?dA&H zY4zc}Nli^0MqR1LlbM6*_3=ya1P09`8iS$%D2VgHwv!3t$TOT!QA{OiheUPs~iEG}n4`#Ne_3n;*xd)=XNoV)8PB!b`;r-mBF_>1P>H;YcED@RgkOG0ZMDKWWX5XJ^uR|E9hy|HmLn;D~9)bC- zgA=`{Go!M5(s?BV%l+qtiL%wVdSo0|o&8=hd-TEii1N)J$-9W?@CZ?}7KX9&Em8`wvyH%j5v$=GpwP2RpMIBz=b%5xs&cf?UIH+$&&6s?Eh7|!t=KCR@LpNz`XSDG2{P+GM82EMO;>~*=4%{?)4Va zQSzvWC}CRj>FcA$La#R2OF8sbP;K(qMmj7Oh`+22zd$&-T=G47MRmhzG-E#*DR)$5oZ$p z)PWmA`qQ&hlUXD~VQ`*4CSu|(=-qcE2Bzoom2xYi-hKB52ozU*Pv}C-!fubGZBcX+ zl`qddKbu>I5^U)Q!Ifm8O{xH&X$4q){S#J#(B%0V7agW zpH^bavETT$#!FVdjFl>!%xkaB-!$28ubCal4t0#`8tTDVYAp#eE+0wH`u>Drhj|9 z{zaawHQGIj&s;XWM7HGU{m zm*ld3;q5>+KcjPb0}14+8pzg<>FjsgRhI0Y+j3j$d6VtI+S#hAJ@Krr_BNBh+6Vbr zljByCqsnt|(|77BV3|aA2Y1Y$dU3vY(@)Lme85W(2~K#P8(%Q-xEM)1Ojh7jIQEZB zG{{!RooLIvuEdKKK>Sq`i>hHu$ajhP=O!LiOT4N2uS|4@iDr+FEZ9*ntM)v3+{Ec> zeP5Fm6R)fFyi0ypAlh^G_;w)LbGmpcuN%~rcN;OB$ zscra0BAk(cp% zsevtSN8dT#SJiX!_373~!yCx^YAf?@M|!g1jO1m`Z5Snc&JrwF#<*WZ{5gD|QBNZO z8T{4%d)fQ4G3Sskf!unoo>Oe+4Vi`KP}?hrAC5fP_+;cs3-_ciYE+Gd}V$o&%jJ5VQ}~s~50JFQexSp94I68e@2C6XqDRG}kfJ_Nw|N^+yen$diD<8yk}NdRcP5 zptj4*Kd1h;h6GA)kG!gGh-`1z-hlaN*oM+6#6&PQ{(evmt1qFoHvqF|(Au`h3k}0) zk8qAzkDz|Q;d7|xjJkwzycD^w<6Oi2_@TkbtC3e5n_RH!Qn>gYm{V!^k7D4rlQF24>(% z><7*PThTwx_%~4#{)eya7&ZU??~#`q&NZJyUs)%6ydA58w(-TBZ{WY2n`Cn&@`iem zGu7~7+wqDJ5)Q*el(qV86b96Z^F-!a85saKBg=p&*Gl+AbsH3Gy<=|B5=}jWB`{p2G-V zSYwnN;VU>Lo@>?sLj zUXwDn=#_jk_H+0>j9Qqcb8(#rFMo(|KhK#C^tglH16%?0s$X4DFJY|7$V*Zq(_WHv zoyvSRXIb*Q|7Ff|im?7U{O?8iHDcazauV4F{?Q}sP59y7r1(t&{vO<}z6wdt)A)WG zzjOHhU$CX4TN97_xY!k`T>Oh65$&$ zsC^(P&mnvX;aPkS7nEvfRH_?sIegE3QmLZ|41sfgnty@|NL|4SCdj7 zNBH02yAcEbBEsK=@ICnc5&XV^@IOHK_we2I&*60!;m;sEgzvT=M?AtmjPPUl{(1cV z6T+WE_|NgJeiDBX{wl(I@I8fJTeDKXhVW(9_-})t`68OP}rTSBZ z7x4Z1mz8=1;U>(%eLthr7UPSm2gntv? zd%mL7k0U&Ua2emBx{Q$zR;rjx9 zkru!c!gu~EU=6<}g#Qu3AHny};Ma=qKSB6+@ck-&oe2LB!f)aGJbs%I{$Ye~|23uV zz;7GEpG9~-zQ2UuO$fh;@NeTg@#{+6hVYLfJcIAA<99d0KZfvY_@4M0U=QK{3E>L9 z|1o|&2>;Ire+A#;U&neOtorby3+EdD0Ll%gj}(>*`EpkWISgGL@b6g>kGJ}h%mjL# zXS8L`U+U(p-kzr*hHidm1dPz=`j29!^SKwo%lUFXmD4d?|kl z9XyfexW$FKd@ko97MFvIQ#8%wP=Bpv#r)#&rDDD!S{DWF!XU@q=EYWdV2JtCG=_yf z9bcmNr&8W4E7oB24A7|tdkoucd2p3DBZa6x9}ndgawm?WHMCLkqoa`36Q2;QB<~cE z0qW%}%1m{2?66!mI05Ik@Yne5PSLDz));FS+3?gDg*H5HnyEy0%LHt{7z|Wu=iTJf zTr&g!kAOebJcs4VnZOiz8M6g?az1cXjhB(xLqB#3a+Z?hy)_ zTjoCriPB=Fd}0>zv^ipSM&DDtXk_TlE|%SeYnwlopa10CqFu-~R3-; zEMJIA86SG=czyV}rt{g3`t>Qi=7j!{o={Gr*$(w5ba3GMOlV3FOK?ULn8Lu6qJzOH zwdlw$uQ%rFG^wpcDg9GDr4IuX*PPOUhgYA{^}^&dIu@EhOjuw7ah3%q&^Wf= zY24cHg1>WF2z*$t@BxVB;QhJn!ohqTM=s8_%3{e(O3lc&l+MXhi)Tdr-Tk|I<^~4# z`ct>NACTbf?|#geJ)R#$F6(Iun@l!w)qY2Zovk~jtx-k~2|f=_*d9#SA<#c_vgJ)} zMxq1N@7*2i-?In5FkoU+SP--W^=B#JqXmNzJcQuB(NrUa-}8_H=vl>I?SEHxa!QF5 zW=w`p;4kPtML@OxEK*qaODQ}gzz^aleT?x^o$KE=H1QyQ?1kWrI$dRY`&@Bx9`NFU z%i1WuUEaD1rMyKj9mBScwNd@N1}7|-*@t`fI_ROlAE@2~tO0Bf=RhYO3G5yq9J|VX z5BznW_t%+>^R5mqbDZGTA3v#qYKX4Tywx|mXCQ7sE*7uAE!vTIAG!g{pmD>M2Wly`{3k7BeBNaESNMxtA(#RFKMNVV)qNuQqIF*>Gov;98`PVy z0Pz-7pCKG$L_}ciMPy90R2szH@Wu`|CdRCQFBn7JJ8|O+r@BUhO1~ZYV3la72Uu|B zs-D8n1FSkDWqO;n;cfC?1zfdfjTvwYR(DrZka2(IO+#PR5a!d8iAQmYSU~Zr1e}Z> z7r;-%J&5B`=Ed4GZ2-XPMcR671gbG7Od_6LTr6e_OMD%|;nZ!LGIj?J^tpL$J+`n9 zwvYN?YZK$)a|$;EJ-xkv%@8oEKk|SP*G$Dkn54gv}I{<_u(|*9TdxzgZu$#un#szbnK}7nhIa^Oe|BW67nZSmpSV z1iLyk`$e0k9}@a*DKXU3)77!mFMkdfaO=+kZy#AKACC+FqpPF+08C1kAlx#Ph-Md~ zM$9EeZ{A33XUd7=r6Ci)+{=hQ6B5n=bD^E3#LlWb)b=h;FPRE>s^8@7wbk{-hrvThfswM@H`JpAVWds; zuYYK%f9G_i47UKKwd*kibu4wP+&cjK)IGC3eRcrt?dj8`f7w8O3_D}f`fXajPDA-qSfs9wiBdF;YkWC6vKWOs^2IW3 z%tvc1Am}Lauk<9x(AW}iwFLo{U)@?`P z095UEe6i$bh@V<4gGsXZNvw8paXC-?tBX1*$%O@pUs}|=X(%d{$CDy^HO-A6H6C09 z_%3mJb;fuqUo0;7V)pyuyfnqh3K>cO&(zI9kG^`})W|aAZ5$&s7&lO|vpYHlgW=Kc zoyj8DMTO(NfV1ACB}Vr3?d*OioRBQ_aiFEC#Z$|eBV4cAYb-2cy{(B{H8-c-ok$Pu z4ZUl<{ppWKcC+4V*w%IyF=^0^2od&X~ml-ezpJo)+S5l{X4#4 z;om{z9m3z=H(|zEGVh+|8=+dH-RM|{7|_u3Zn;K=cp+eWLUi-^UqKZdDc2Y0?<0rr=Box@_ zM)*EdCjQ;Tl#rL>JbW_30K%o_yCSfj1U)#UKt;vY{Fg|+K^=i*QjM>vPI6lW4h3|# z(f1k!;EV6=hG-NG&;G1!zRA(&wh-v4eEGI5~rE?FQRDU$|h0c zw%~^&#f)&j^EzRFZtL+T)4hd6no}RfMrUMCR0*ZAf>iNK^lQx>!4KB!S3dWp7&%9Os z+ejY~w6Fd)%;&GrdT`Ag#yxpb(xF1=)&N}q@#X-vMCkTtj7YON_qsN8q6}!D+|Je_ zaL~CG`avF0HaFJ>%1Bckpp5Ij(x)lB3N>D&MNbd7U_SeAY!T z`YVmlZsjy_8sPhxo>bWZX*~qrT2a$iKK19g zo8D|wu+)~Bd8?U!N0MNwiDKTRrj_BkmH5q~mY3daQP?JL;iejhM@`h0D1L%@MLDX92GWNO{H8Y;ES|LHhT_LSA8e*Lo{wPYcD*R2SvM_8e^|ZsD^>jKl zmYk-GW$pC?nk$o&W3WH3U4R^(n0jJ(V&VxF8H1U0*f|{;fr{XSxP(GxnqN(u0m4bt z*fh*YL5&s46r<0;sQNI>k9pcHL8DT%)e7U=c4T6o+nDKYgGm7RNEw}&f)XE8YNtfo z7wa%HMT=xcPuAmu)@LOoASQT5#JFCFOy7J*OQp^UD(@ObY1h1E8;wn48NDc{zk<5xDYF(4tbP6i@h>in%%PkaoxCbMm6iTIkUs z9qs9fW+$SOyQ>3^-KUcW)58-_^>)Kkk;Ha`94ulus1D?&*J@RTHV0jx%J*zJx76E{ zWx--}D#!c!iQO+g4cgvycT4XQu}XieG7zf_%J36zNA&RL*|3~1pUjs5NqQ-FL&7P#R9ZeUKc8O)gKIv2IzNxzeav`(fseNN zW4Utg^wZPiR>XQ179Ki&{GsRZFM8})|KNv?7e2JS41a35WwJAJY)_ngEkO0|J6IvE zLCfI3ph}ZIJ1;RvbjLNoj@ynP_fgy*xh-(#Ghg{$-Mg5r69wEF23f=CfoQK+%XSE4 zAgcVc`pi$Cc@qv^whJIhlH?%)b`aOh6d^ptle`Y>MV_^bWzfwH|5 z{S^7#_y;9_bua#Y)r1*m??g{EKwAf|DNr=8r}s)*S-cYU;wAtyPoR|H$kT3oy2hoh zEUyKq#?YfMd}1yU@cvh|xoH+e%x>Q-m9;BxSF<)>r&jCIT8B=eI_qf2LUncv4gYAJ zT1P{6YaoGkw%9SeS&HK(uY|bq&FTlN~Ndiy@xKCX?06`qpR&id^3pjY;s~MIjeJ7hd_wY)~xYSQ<=Fw z`S+h8T~8g21jw`}9VvUQ$?>Y%*8DQ0_g|#80`x3E?16ZTtRjKW7pRZmr0__%I>*Mf zBH{Yc9_w1y3;8#~B-~y+d#^&l^1xUB+N2F<_7!`BUphrd~q5%>w zdU!PZc(fLs*CXT{UYq#8zb|x*M{ul{Z26$56ulrIG`cz*G9{U>NR_=HIryvnulH*dQKp0%)m8ZKPw*FrO#QM6GtQDK z_bKv!45=dAyGD{Njt~-f7)=mkB16KvYy12OU*_oPNRa69DVzqnk<_e65)H5pM$0nL3}Q^G)u{8tkOG%X@_5Xp+7Z9{m~5q}_p z{@XnCe~&iq35T&{bJDsfEsAWh=pXS!|1`e^JG^y`iVV~?DzdGfQITe4Er+ZVwHuRM z?;lA^W%rh8}qTFtjGK3wd~*JX$`n zL>-$2{E1q7)$79DO~348)(;SO2k(C5-Uv<<$&>4ev9AV8ugNl62iqxpfrgc~C`jov zZ^}=Pj}W7n8@6#r`yeZginE63@YB%wg7I-)i@-p`MIEIy0UiaP0q?KoM(>P;f>}!jUAIyW+?ykhb- zFZhpSXD#ygXK@aBS^9 zTXQ&H*TZqNcpte=s-@5FgJL|TaoMqafs5yB?Luxds1Zq;6LIANxFZF=aXQL8c5wdO z?e^~#&?hV`xC|5+QqYR;)kt0au7}iL#!T^7``9p52Gd2SXx3AW8swLr{csh}{nWQt&L&gY&`YT5rKz3CBdGFu&&XeXVK>0u^1K z$xE6(1*Z=iEI4~&A9t0hvqSSI@7pIicjC3)gI(BzP|necEx9!T$!MxMmME^{K1_T4 z3IbE23Yz>8tO8PgCLgG-<&NBpsf3xHrNz>6Zmv*Vb1wg&YEz0;kE`F7R)`9!#-N04 zKSFZ{)vC}_t0BIeu2b#{#ezGw#0)->8XT-YqwSE5)Aqs51iZJaK?jV+>gp0}PUwdW z#R`OP2#x+n@a+(j)LOArwqJ3m^B8B|QZ?70^HSZ~ogdYme;D*`ozCy!(&gr+D`Fc- zWDDJ~=yv?ETvKB;B>2eZg*M5;n(OfUW+?tTyeDkqfb|Gp7uW|}`a%dA_&EgE;mkpB zwxc17pSGsJ?Dl5UAM16R&JHu3aO%6}Z2kv5o6eDYO=lBbh+~w_CaFFlWF}n)#3)cb zn;^XFPbNxVr@3syT$ak~naO{zXVSURUaOhRl;b0d^B@RIp}Pm@!4Op9w9S=aIL^x* zoJes+8~{Zbn?HB$#ktw#0?gT+FpzUwHS47~=Wtw_MfBHX?ijPB*FKR7t6(B$PkPj{ zIkpCO%b>ZZ9@Zz8)fwD_J!MJAc8wrsWuyDHz z?g=)m=lX%Kn|dX+8l>eQZ?)ev?PA?VA{nj`PoX&VU_c*Gx#o+>l= z`X$2SubC4g^xcqHyM_T1DgKlc9D9kt!L%!RJdasgj#i2(`a3D-Gm9s3NLr)`13Qvf zv2;9lx&Z3vs3@S%Eaw+`d*;i_TRhT~+J$wvu`_aOJxj^sV9X(iHJh2oVe%`Ah zDyq|g80hjYMpIfU-0e)UB&$m^c(VZ1;`8!23q{+|(A!OS-LmbeTyg$H5fbXr@!aWN z)7L&4VsNLXozsRq)W9}*h63q!Ld67=(;;ZvTF|pjSpjcG<8~c|#8MM$$g`N9brDui zLje5gURy&SUbUm6)0vsEF+UD3m^K|#WBVaH3UXw89+zDJEqJXQoPB;NKNRJu$DQLv z4|V$!hSS5}IYYK~6FCfn5ewNxt-z1zhhcnW)P5YW?NW)i&8f(3#>RxdGds~c zdNlrNKIgGje+Lf@{MG*V%ix%5*5)6Wx6xVTrBqIrQ^vAYKLsWz<2(OOJ|b9W9gAE!YEDlBHm)?F;{#rz63A1P$bp>{}$xrbo3XXI7ri9+T53D zM#CkhgHuom)F$uOS>O^&vf!cD9iYwwuk)-1D%6svSr1RAiKseKFHn{rV{6CQ#!}iN zvF^HYCgzLstvTd6UK{VWu39_ARV$Ui@kUEM&JN{omVXTy`2nSc;o*pq&z32*`1PBi z>?y~f_@ZomC)M<=cdk5%MfvS_Aa^G!pWpcZ*?Sw{xU%d#>;VJ;f*j6}^Z&ck#O@9N zqKQG{hve+CXVq*pNbCX)EYRfa40jDR8%<7Yn++_`;BYop962hdDydj@lCsK~RP2>q zib_>htct5_C$U_Ts*-XXRWfp_;z?EFNTvMLRuZqI@yu+^5X$$RbMJlky?)(j@Nd=< zN8+O2{XO^GbI(2J+;h*BtlyUZ{jdK~q|sfzCQ4Vp|2IV+et82B{rs=`&?UM#7X0i8 z;Q5W-&(P%U1DNwuPw*!R;`S~`O|EF<(FVFY7MU^7*1^Eu7d_guJJP9ezj;j7+zNe` z!$;FU_(R+n$KUsl0IGBPUMuf}IJyYmOvMYcJnjCZr}s9WFXY>_Jmkg$h9M5+4z<2o zi?=%&s*5g{D9KZATseKI1?xpz!aa_@@m8!U%5!jYJC$Up$LfzG@zWR?_E<7RktcX9 z9!270C}l{7D1)F6O>9UtB3%z#Y#O zuU;P#o5x*Kwy^dK2|~WocA~$=ZeW+e;|A?{tDW^pt(;x9lzOI?)^RZGU7cG zTq(`<{w8i7@a2ME#~lRTJ;?O^Cj20I6XExQZ}$FN@N>O6ylKMM4|;okfQzZW7rc*u zC?|C(AV>dWM?4b#+xW-d4BGJDM(NgVtMO2E^IRX$f_!(U^12(^> zntvtOeF|Jnp0UM_4j}>>svxD<*Qg)lB8z;Bx)OMg9;XZ{}u~iVJUsEX8|p+OQ_? z-Rbdo-@|SC=8lPu4tDOyK4X$L<(ptQ$;{fKz zkC-HLVg3IH|0JRe1-mx$BIWNPGdYc}*ydXumS=lrvanOxf+F~;chYRv+&1yXPW(2g0RmUuKjQd%|fP_G-H_6z~Y6Dns+*d!hBpQhi-CG5jo6-;tjvWt2*h z=px2E+m2Ld*mGPUjJ85n$wV8THwCl<2Qc=m3z2M%hjvbar-`H;3~groho*Cfg2r5NwRv=NSyvyst&)W zN*4bb8xm#C-~;Uo+SkhUYh~QuR(#+Fw+;qBbO`t%kmIj`7Qdul``7fJ9^x%;hTl3- z5c81fND<7e_)HEWpq)U+yp`%E9=8yig`EZo8E0Dwr^hcXxYVG5wxA@jOh`oS3B^X{ z^2&zvg+|Plq3SdqkeGvEc3aTss2W%?8)2konC~{FuoJY56_=`Mct}@N7YOi)xOFZ# zBoLZdV0)xyW7{oJT#)T`d>QNqkpQ&~Ngty*APfp;M})uFo{`nQaeur9QL`Jf@ax;D zH^oY3ttD>vR_59Fj@wcH9Mp6EOa8C)*T`zWjDP=-`aJ%73T65IPt7;e?2h{9d!K|Z zLgia@;loft)_Zp!gMxSfZ#m(MkVMhuTXLupM2Uq6br7mZ^f}zCGF_(9+ zJ{=17W(82?`agX>XwL?qT=R;S-1j;VfC=0NTqU?7ql4aHc$hc4OQMTGH5CHY6l!B( z3bjFMU7x-XbXfUR$x0H3?9*dGe8Jxq?e!QM$uHez{3Z?7#q0OHXchn@>V(t-sp0W9 z*$0R_fbeB-^@e^)>&HOw1LF4Y>FqNhb1?YgXCEI!kz>K@(8u2YjHMno-vj2GFJM23 z{wT-zSeMX9|D*@lH?h?a7ECmCwI)0fe57%{wVKNZD9qMi#>Mk|nwcNs7 z?r<p>>3Ua&eRd9Nf95$_*vj zZt_+L%-}k_eWLI9L0oo+^oy$Ug|y_0odYoc+l%;~ z5OgR}^sGY?l28K~U-aZE-J6*}hU@?I86$~$B(0339}!tSCSs&gkwQJGlt%(aD&;Lb zkwN(toBhDZ(9yOiHnpGU<~>2BjqVIKB_zTSVC>Xkg=nNHE+yGK?-D zQr`cqQYrI9$fPw)rBWAdR-{s1;FAK7@gZVLz*!#sV8+iuz82y1Ih2VAr_WP3Z8+id zIV+q>7+Qq0{qQBmqqV~6&m;?{UagOwMu!6Sd#%Fh7rGKoAtq9k>_SE@tRkG~eV0)Y zfD{KYk5W=yL61wt)!g~{g$F0CW)PZ*4@&=5Kc&?S9!maoJPYnit0%g6GP}LJdJf#g z$*XPH(Y=;e&w`8HxxBiJfR^LxhXmp8fyk>C;Lp)?+51c=hg#Ei+rx%>WwE^d-K>3R zgVqykbeV5#?lhU39!??tyI3OYjpEi@u)iTBy)(4H)<*Xs*eD^oN_lxSBg}UeB`bFD zxdrJ-&7*v4Lu-zv88O~;^7@3l!eMewnbh>es656HHt!5lVUq3f-WSvroioCd**Bfpqi{f1TkaZX-bzEoloEFZ<<%3BP=XTwXw z46#~(l^}=E9iFM7^_c4C;~4na2Z{l6_;vW+4mY&;h!N;eU^$AllO!CLjms{fhh@Ks z;LqPXU=PgntJ9&`G1O&s82Ey-`0)rx4T6;#N!rjV%il{Q$!lnjZC>tRb7*fQ(M?C) ztRB>^V$L6x?m++HuJc_yt>hn(xM$|?C5|5MI`lz!xa-`_Ci`b_*O{C!yUx-b z?K<`a_y?inI8YyMHxIX){V0MDm7Ir4&fQ_)p^^jF7_(7CRi1si8Bf|g1|IG=_iDefPjuXwQO&)!hgyC{TDyYEc%+PnKPh&jK7cL`@M%}LWMt@XF{X!W)(+vT(_0m$UiD9iH;;vrVLpGed$@Ns+eBH+Z6Ph9Q>+xi#^QK8SM#z287OLhs51nz_ojdWk za|EP)3IBLwRGf9&tdDzq4mD}t%y{E2R5TMQGCrwj(xMx1}qv!$y z4@BjAxMy-N#eesD&zv@G-kF*i#$ZiNKd3F!Li{;ynLXZR=j1pAa_f0~#RN}C_8}-< zUU1i!x%;_TYA5MB7@a!t2$^9a*QoZ0C-`8=#?kL+fVT3Xl>`&u=?T=vP6T z{FnUS|96`T4>ci*j{NVN_{;DKS+9=uj++XOI~kd`5!1o$3tsdD8$JQ1UBFeI;Ti5_n1%#TFzX~1O7*`WsG_WX9PY`y9>>4*4@(ZD@Dj>j$3Noq zApZR&{QCs|7*s)I@isHW^3em5=+}OaOKen@yXGr14~nl?h<`%(%1_8D582LxVss!x z5aWH~E1&zKe*lavWFD5CBygI)Lw+E!qbxsB&eD#rQ0FHv5k7&xzlMM0D=t9G1L7+- z)XAM)$dypV5-pQajUR~bj|KSWI~XNeF68?6Zmkf38=K<{;6~=d2XWVk3 zO2m0Z0HIp##87%-Z2D|^DAz4f=hDtHAb`YHn4p?%G&m# zQ;A~m$-9xX=i_~x=cUOo78=5v;#y^2aPmFV%Y6{G|3%M>PN6t;>_>>f3e(2>hXhpYI*g zJ7unI{tj=OK6~-U2Y(^>@j(Pcc`|r}flSaNMt&6iywI~-k$%1&+`9$Z0un=Zh7oEF zfN8*D#(dHIt$ot_NMAoM8X;sVe;y|;0QU`n@he@x*lx8+c$l}|>;Ir9c(orNhXVaL z(cc}keZh;O@losJ0B~Fa2lBy|dpv!?-0V``9GwgVc)2)-C@kScr6a+@;u22x=JUwu z4=xlJE){cq_?s&x2uxO%3Z<*RBJ1x@{=}TBJW0_=B&rieQ#*n1CVG?SH+%lD=jRT5 zFZelzKIzHy{~ls-{$}s{@>j#3d~YB6Tn~DpK1b#GCH(#+tm{YEIRoXjVGJU--Mhdj zlQz!CVh6FN{hgou#`=Sjzbv4iqgof-4rPox*P{F_Dk@o+J;Xbu4*T1;8ri;^a9_V8 zL(zZb_OD+e&5|G!|GQkahN45J%sl>*)@QsrcK>=cX2lr^cAxRL7TsBRED2+*OgF;X`8x8?MnDhrTnG zvSJY8h>wPW#7&jd%`lMokVat5G_F;!>lwQZ4>qpaDa5{-xe(H)L`WG3L>zk zjVkV(JgVuEHuky46c5KIX5dwQCe4P3Zx>kH%~d?IxXqw}+D3o0Y0+qrVaF`nCib>HTSm8#07eRX5kGh>CT1RSzqPIJf2|EFVf0_e8Iw=Et2KJD?KXCSie+t_; z|0Vx-{U310`7-`}$&~qv`1=aJPkVK&ec^v@4gdI$?>OrCe~gP*5_Nn%co4h@*7Tu% zK1B6i7{1)lW`z0d9ljhU6%Aj0I0#pO#)Opkk&k-Gf>i0cfpz;>*otc7&X%N{oq1I+5qRj zG{}&V--Dh1d%eHjF~Irv@Um7s#Cfvk)|22se;yo&+(|6?ZCDudqo%j$*FFt#Q}$x} zoq1G1hsK)|IHj&`Js?He0sJ}2zQN*eij^U=Rty9LS8e6?@#KgexCI!ohyuheVl)J!^+;lIgrYKs4mepm{mish}XjdyIh zX_PsQe<+Z_@30)cr6Fc^Zb-|qOuQijbJAcR;VU(h6B85OgUo$Y2lhAWq7R#z|P zmJ5^P`kr;>H9U)FQq1GmXEUc=lADStyoqj#*$J7#efytM+O0X|J5$|Fl=!LSU*}gkpkuPnw|2xDOH*m#J<6(oYM|Onic7EI3nVEFsJ!Owo)3XF6kv zU?z@T>1rkd4_;h1sS$YS6)fpf2A-KIJMbwBkfYzJ5FUrJDF;u6+{Lt&grBJhJeV<4 zHUiHS;PGFjl;@j3?^777pPm6IWrPUGjCZg$C0Fnst<;BmZ3wgE;ugH{;kjrzc?7b1 zD71LnrzMlxwh-9oCZlD#9zQG*cn?c>2oQ?p9c`!O?GjKug2>nnf^s zJY<@YRY&^{H@(OMq5jxyVGBXhEbe1KmO;;8u|>O?eYa7*QLFfv9-5z@8c*>CD-w(a{#%_$_)>fBAnngQ>Sxtr>C?!pSTVbefM!~2>$ z@VV~i&K9;1B+cDE24v^%3|Oo`cT?R_(v;g>6~%F0Ic-op-7Sj43U+{sVqQV>;hQ!% z>yp*j;$6{=Eo>o3Lh(KZWKld5L-F+ZeOeyV-Ob%}Z0_PH##S%OW2W1=3oBU6nFeBW z2RTFNz00|?#k-n2Ti8O7GWbPzbU*}|K$e9*4l7%bzR3fHY^qswvG5$S7*@i{naCiiT&lN(mB4eR8d zjbZ<6*Zfh2V~e*;Ze?d{yG_$wA;30lp-r0DeGEP}u~2aRrE(Sz+r}m~5q>+Vr$b@W zVBy}gT+?v3dW9+8C2lQNmAK+G@R}j6*SaOHu!5&duF{Hit=4E+;9+SChLYlIF?xAz zf23%OcZC95*g}v*Ui%n+l)PX*@~P{!R_YotYUG$Gm7}NRn})nGwdQ$BhfM5iUF(;o zc$Y}9!&f?pPe2A%1=*_cqe~X*SMg}UGc1IGkbE5Z^(;`f?-*I2sBS3TgQVrV!ij6$ zLXkunDAaxDQQF9ag1Af-nrh)a*b_rzgMPH)pc7+29na)o`{{Q4cH~MF8PDpVElpUe znCKb{UKQKAnca!_$R_qVyS97_7TtkzxqTN~H_Egg51sf%yE5G&%>rQumq;}GL061u zLJ{9i!M=uT_pQuCocbp2gC1x>#D(Gx=?IHMV?r zD6yq25Q&u1jWN$+BT6YejET_kR4b`qoARi|e8mZ7s-x(WwA1ZvKC~d)u^XcB42W6+ z2Elz2MOeeO-DYyFov+);wdK2;TwB@#kvO^Cm=P@=Vv`%wpEA>}lPe-ErU#PDnEt6X zji760n#nrai4*CO8RZFjUou{bf49=AMZy0*}vWDG4hBbrdQ_j zOT|)1;$r;%Qsni_&a4hfk9bA6(aFvCQc>K117yw#@=Dd^WZ= zw!BTomb3We*>Pk_^!Oh0*7=kQu*AmYnb)+FZtQBdWQCP+dc>c+faOU4ixssmwx*t#Ghqw<$6dcQbE_cjU(Nq3lhEsjagOd%~z zcB5F?l2J@%V#oeys)fUdDjr*jD0iRGh?e(7kSO038c{B~vL`)FN|DozQNxyup)tl~ zClibsy3@z;n7MCw+^0(hK<*BYnK&Lj`-ozv8}-VTjNviH)F%`4D=SOIF*$kPFge+g zBBR2X9and_oQ&hrQ_HlaZWIt(GK$N|(9{tYh%regfX0zIb>EP=A9cpU-5oOH?huon zI-@OhBk(@@+*-KBhz#Gz9GCz)dRzfp){^~Om?k$pk!QZOH7-RT~>nxL9>ntc4!&iJqPS9C!Ti3*liQw$4Q`Tl;iVu3ZUyJ%| zmr_hzJ(-NFCzD;PCny=k89k;Wm`FGP1a1Jj=K6)(c$UkJD(~4i_)6jBi%@qoS6#vc zJ0WMzy3K!&iSVyVxH@)hvPOWt{Nik>u(CK`w3jy~>HFuU8t^j{6n?#QH&oJ@mu}%a zi(SD>_6Es&4PK59X0#~_Ygm{7Z``<1Zmc_Sy%c-5IGqYr3uiL1?xO$uo=XPQJw;O?N`mNw+FjVAdcrniNr+7Zi_MfcQrZl}4i zTKm4c@Fxh-10?T?mr3={`Ibt#g|CF|SaLoKWSG)AZ}k7O3E>1y11^&q0T(o7k}bUY ziH_uU&>4FxX#z~bq?oQrA0{P6A0{=@5h&Uu+m7@T9U0=qNwVUaSLR%r>FhLbjk!dB z`pA%UsZ2)hH)X< z6D>uYTrA|jffG}~2)9|2V9>!?Hz^&q9aADsayGeMyWY5gsN5iUa&PUC+lEJoCe<4( zCr69M@M2OUBLpp)WIICrv?FwLPWqIrNjoD`yZ~sD5=SsO?uTU!3nz^L{e)|Q3bJX~ z8v>WSNsSC4EF2jENl1#rQCrE@4Z+>?oR(dY$U5D!?oHjKA+%ihwEcKPu!ub!zX@r| zMuxzRQ=y0qfm$AdJypJIx62tBf~MF-E?bc%wakJ^j?s~(#%DoO{aGMXni`)4O^pnJ zdzmJ?A;>3&P%3<@lwh`u>?F<>tcCa9H>6F2gPGHy0j=o6kIl^`M)nPv1K69 zYrS;Y*Mj~)C|@y^-WlfZKgBdn>O_6UxUB`v*rr8pk=FeAzy_to62=C13}H%kY|}oQ zuw$EcdYlR~(t}Twl*P3Re{3{WGS$1kZpU`I+j(;=($N~&Xvp5C46Y9T5*gko~cdCCVO*%_T`t>v+;)D#kdUNexB0k){nZdwr`0Riz?U!p!*F z#`C9A-fY%38o0r0s#-EQYlUpPYdTRcvb`~kfd>lo{#MTelOLIED~*KGl9sY4>1fQC zqUsXkNe?D<&#_Oo8~n7D24-FZ4>rvyX}iIL)M#v|Ff2Sa8F5CyTjDkIBz$w_?WV5yMwjX)QS+5Ou=mHFf}B%c`nNX_F;E+F;N>e4aKnWS|T=Z`^MuDcCmLb z#G1w<*s#`&&@QW`2wtsGb>U1-v3*HU*k-7TYJ%S$1u9LoJCJ;#HJG#(=2uHrET0yW zl}$4!a3(h`8HyPct8G~;yPU=RyF?!oe&N`9bLAs2g9=@S1=}V7@}@zUzWrIk|t zQppf1HTP(`8N%cQFdEJAVFU3+Gb4bsG-{!V)FCpd`B<%<-gzd$0x=07OwwMe^qCfN zHx-k#IJE_MByP&Kn7lj~LmJIk1@BBmYN23c+Ogx+&yZ@IaKNh(-F{UIo8DDKKJu+D#`GvxTEop~uMOHUOZtr)-j*b$D;9)v>hL9Xn zQb`mo;)-d)V?xDhx$<_ci2z+5nBgoDYuZwL@n~uU33f(95ku?RmaRTQz92cy^m~Re ztxQr}EVaoA<7<&fOxZ%Ce6?O>z%Q|LnpAIs>FQ}xy>U4MNmKz6YaNFhN*-Dl+<7QaIUa|*x27r4xG2p!%e`2OFi(ZypS78z- zXlZdVSDdwKE~mq$m_bavMq;puks-KLI{-Njuth!a#av|5W5BycBA^3tF2e$D6D(a> zfkArZL^+}2>;xC4CMD7pB%uVlIy;_3LFgu27>+0+!il4xvr(pImr*EYC{P>$tvuMh zMdZm$@E){DGI*bnF=(kcu$meN*0ksW%ay6AainXik8)~Prm#b}lp?S<*6VnP&{D}1 zMKqUY;58iBmW&dLO|^s)X~07-%`C2A4`yn=EA%8F@&l|51%}7k}pW!7;n^WR_m`rL|_VHN^1?2 zb3eyYS5jC%Ij`OwihPeK{rw@p`S9Y-PfA6aDLd2 zP26Wcu3ADr*J^Mfiws6m_Su8hNoc;p>mKsdC@7jl!(rIOeRkriCG;ac-fkESDk}5B zFrC^6|Ue&}kb*3-qmVuk1Qj9O24-%PlRqw$Yd0r)^nZe06X4 zoh%mGj2KpE%qow*$=13WajN5xF@AgPBr@i6uiv*pyQbr##$I)j%n=8wc*9us#5ugX zK@P&%J~K{AG-L0uKMu)=Z-5QGJwmq5COL`vmak;KS;(!#@^TH#vA11%khle;Q1~;@ zh8Cm~M5-bmOpUyY2aHqKwl;2%*g}AYfN=XN$ZB&7dv^{`3L{ZS$<>yDBvene*5{kZ zyk%(!iK96gc}zOBjYp69K(vQk%Q+=W$t#;lEv*RVW0?q#482F+Zw6LQ=!@4D34DLU z{sz9U)L@vGv+-fPgyM#}S;-?+-ar`^Jk`eK;pJ?~FQo|40ip60Q?lGZ!>#2E;%w)@ z03K=iT%l1EN6?XkjAk4eJ}M$|T?`c=A|j=T2#R_kE1>|munNu@UolrwtME))%}x-V zA?Ca#;3U4qjh*f4@0h6XTD!8f4{sY$223h z6F}&S`SrzR$e!#(`-HSEynh8ZcWU%5Fvnnh0JbNxiwT zwGF}a`#W{oAl!4^^Nnj8DG|@N^hI?C5%wY#i2c`B3_ZC*dhQe{q1+6pw{LYvGy#aQ z)#lN|O*=f-i*OT;!p|a?fTV6#V?w6Lkirh*Rh{IQ*sv$*MJsySX={erb)p$@p)Q`Q za#bP}y0IpYE);;`4RW~6a&j$CdPwNef*K}Q{C)2|d!{(X!gcYrARDc4!SYOR# zg=JbmZSrI^nfUT{OVA~U>=D{Z^%}_X?GfP^iGySiD}DzVLCbAwkx#OIjrM_}tHuU!S}z{!^t2L~gK>L%36=WYAs{yq@O zo*ZAK5-wpnvqne3mGtTsqV{9^m7SGK9fv8~P{%xW73E4DIpKEsW>py9TC;q8B+5Ai zdeosVUgS3qH=;02fWx!Hc@X)Dj8Sf&1 z?37RlAWRLVrMdZq!btlL^nta?jrH_UZa3y$6iu@2Mw*;-^S%zL&X^T2A|EH}(_%x=JP0(|NFUqg5~ z{_B@kjJU{}c(}vJR5E)ZC$C>!Yu;MhuHD$I?_|br8u6)CyA~e!Vk2m7G|P1rZnG0< zSd`P)N)0JEf;AAj(V?DYSXO8=(8`NuN##sF)rN7)Gcwtvk}ezOHyP4k`1}~hRBP6E z*2?&GHN$(udgPd0-MP9AIo37Uwq!b!&NWAdP7bBJDGLsZXY>phgIJwo4m?OAny!4{ zCmPhTA*h%h><+b_v_6R6@6?)a>#)2*?Tx1gfqmkBxx8Kp+rQ4PjN&cZA*?<$2qBf zeQtUYDFR&CEyYB_)jhJ6aE%Q?_37xgU``)YK+&lKm2dCdC`U<~DUoHwvXORSKBQP? zPn5OANR6pd;M2th(Mm6HZikSpKbpha{pC2v014j`x8 z77UT~h;b+4`5Rz`t~g`*j-wMj?(*fuRqwab`plM$^j_{uA( zYqi@a{aJV-W^GR~BH)AnKV95er#6LOA|2EoE#Z^{@v9eE;dq!so&5P3NO?;~@CUF_!IJUfA-nkAQYLr!+m5Rcdu2(n`{3+8$hric= z!E~MZ=GXlC99F!mSt(HhM#0tZ)lqJBr&6hIr|UT8l@k~ETW?iyv`hZ&5;rT^t(p^p)Xy^;$Fa zGqBL5zB7gzV^{FtURYc#kCoI$Lp!o9WGn2}eub?K;mK>jUlH?db{HqjMx1j~Ar{=R zE5m%NdebQA99JegDJk19*kk+RNQWgs_$$Ac$BUO13zCLaWuKKU0{xOEcxAa2#XErVFrh&%~`$ zE7OIHL7@#!Sk`oJCy;qUO<9XHTYxjo-AFCdD^Xd&Lly8c0vd+vHLg^0b~GgfmI1B9Uy?*{M5a2KDg8 z@+*b_kkxVe#VB8H(C(EW@Y{8PnYq4ExK*v-I>6Sr`31R37SE6!3=IPqwX1~lr&JDy zbvA$84&`-N@CFlC*r1(tQiok)QZ4Q5gVhcztOXl(eGOi*OX6-YGIr&To_3c3fFv+F zZ^d}2Eo+8Tx>I)?TS+7;f%^H{3;C)<56jbeTky%SJ1d=sYjQnm{ zGOmPKG;HL0<2>l7k%js^$QRmm84bGAS=SgnYmlrOr~BJ(3E^&SQBeju8m4>M+c3usr49rDHV|qK*PVln9!`*~U6mh{4?EW);+b zzFuy87oYYe`aC90tx$HwMR~GURA4bL)+>I!On~oN}M!XmE*njQ*0C z(JmdwH;LtKh>tMS%}70bjnxQ-VU~_qjo6`WO+^_jbG&jmH6A%$(rv>v&?@w}og_g| zgY08rIeK{6v)|X}tJ@$1C)jM@fDK~J+)e|26qJZWz^N=&x640+uN+c$8cf$6v+nBK zU)iQh0zsSeVUt9-!jVrlOe&!pi~BA+a>b)vEmD03v)0b+abqh*fHRB?naDfz$3M@jt!a5j zaix$iE{%+41)a1q)7m_WOl%AwIqt!+_9ACQm{Fi`yL`QRb>kKoqmsq+*wp0M&o`=~F0(Qwn;sksy493C>q8X!)5>vwgFCvavx$3fMVI~`fM-X`Ui zs91RtMxw4N6nhefBGvXD4qE~2<)oo#6K<00{%~S>J~Nt(3`q;xy;r{6(Bc!+pbyL) zPY*VL@)l&7dptukk>MoGkjN_zO+G51;u?z`2_v_@zPz=8lbGhaN_OdC>^$DiG@Ryk zMLpJNqv1HwX_8lk~|KHVo7~{Vo##xwpp*z+zWH&o)m2$5ciFJ zQu>*$@E98_21N?j)I8oC6YkuRtogDRsi2yI5?8x%HHotK3HsSRKo_c({V$Wfauu6G zBgO56I$y1^y}7kf8Syk@)u)EjNt)2um6l{Z^p^~GwB_6aaD?VC#_s50koNjAhy!Ow z2CSXm87p3fSAo&MG*>0(^lQOJ~thXp2gaoy%Af z^-38#lOS@^3HUr0(q>Vmo0dr?>CB9S4;;Gr$;nDQo6-hMgFERsHhWFWuYzztgC(V>{Tog`2 zC<)1UDw~8ck5hFeT--2082~L*el2w@`Osau zK+SYV+z4k7ZsTC#=}TkzUpXcP6n4poZ-!^%3Y2BU9urRL;eIk;C_cdMy=1=LC=-~gda`lT1EmZO z`pmWH)l6crSeyw=&SSD28c;@STdzeJYz= z926B{s3Fc;8Qa}3)g)TG1BU7kqJ?Q%M7cpvw;!}Hs&KHr;1c2z$T6myQLquZMaCs4 zx8UPUa&SjF{`#FZJqwSU96$_%(Mw_i@A`3;d{;+&{Vr=?s zdPvKOqHGPdUWK7~&!z&C3y%D^n{Xs@)}*l^5$8`&I|Bl`G|JLo)HF1hWPug!$gpVN z3M=Vq1*N`$60`_}79%l8njEF0Fi*b$$7Tb%S7>-LYF8^IAdAfNDQZX8wRoiygo>D^Cz7U`HXe zE@BFU;D_#U34MUX!$#1dX~+CB&T-)$>5nM6!A?N8SZV28MfZ=m69d!fN0O9ICy%6b zI)x;q)0rbFot_saU5Fup?unepIoKdP#$=_q<)5%{alAmsv+FoVh}K@++mzp8ac<8{ zsc+m<3-(ZW5}@$6GtdvEosk=+@`l`^!NHPN;sv7nYVwx-JZ^+quhzRWLOEF}q8#m0 zsNk0IlOsF;?`8NvSg`>T1}<}jlL1)WX4-B$`7tuh+$4OuP#;_J6EQm z(3peH@REeYE6d<52)*;bq1L5%mi`8q(Acb4Z#ax!%U#KQCp+}*bF)=q0w+oIQZPAF z%#j1d)K#4OSG=rgX04LPMvf@?OuE?^{jNR146TR6>>UFO6u{<4*W!7V&(9QpL;H zZEP$A_$$(N0+xQZoy<&* zsY%S67jMym1aH(DWymllD3H1^II7Rp-zmSly@d8RHAju9cF5T)!w6i13skA%$mGOm zn%64%b2ObR;xE+c{L-w+o6VJS^DBi5so8XKMXO{`fXV!tO&j+tF>zlRE_`cwVLqQL z&F512k<0`dU(L_rC#t{^-27V2=UtNdg-Z+sA@f=qP%IZ9U|cK^1ojo}!DQx5CM&L8 z&Mmmg^lX%b{0KDt{3ZCn7e~&rS;D-U&&_fuh55zhrMGhDUA1T@#p3)5vjD#d@q;fk z$6!AIeG2JpZD}Q!D%le3#}rwOmRUuiX!~e%rLelZR9wxSM~hOi$P`l%`Iiet;9!As zgjQ!)OKbUy_%c{UfrU%?mE20fR$f{mb_p5sRtx#kyvd68Y;v?DFGsJHE)(-J#E{gq zRDqAVkVf!@TLmSV6ZE0Kfnx2CpE4u(jP|EFuHfn=&PZ-Sx&(2!Pgi1Yc8M)v%<@YC zjkXyQ*|fz+m^5RP0P%&wsz8j!^r!2EpQaoADLLvUt9${A#C!_lz^8JM6phfcX>%Nv z7L%iVQL;;eQIyj-h^~USFo;tt*6;YK6HpIhkn1q5~IR75Q7t? z)Dd(tJ4t}z(tVT{I~Jh#nZ$?O1Y@zBFMGw9Y4X0yD8g2mWLn|HrxeN%-3GkK8631& zc*&q_wig=1<)8DLh6UfTH)-6Oh08DqSzN^`xZ^W{1X%0n0{a~UG0lFsgHlNk-@0`R zVF~Q1tg%GeV*ts-*#~Wf=b4i49+a-}gjM5&-_IRVm$R1R;+ zw_eevFA+Jy$O&Ro;!O-FirH?-c` zkReny~cErw1H8z?+MT+ju3`|!| z;RbmXIoA+n0Cwo~5WPw`UbCjkkf64zS9fYvgbi7*(%}T2f|TY?Kw35M)vl2pUcg0C z-lkhx$!GIhRmgoCSAS+?C^rXjaI;Q>IC8A2kabcV6Ge|G&6gG~CFkSzVO9x48}U7m zT)2MqLSu83l}D&4lJe9wk@|?6u83GB5&rE(w$8F0ivs_87lCx@-$UTH6YE!iWQyc~ z#!9g#@900p@oHfKf`q;IPpm_JD&byXYHq%;FuR&6d@EmAMuA4UQHNLJjhp2yQ&VJQ z5qOOVuIc6@d%0Z4^$>*S;7+0+4fVDrm8|LRm=MrWqxm z%$QQPWvNI?ge9H7?KgH=T5G%6)Y-$`$akCbE_DuK;U)qP&m z<&sMlu_ysmisvJ5!rC$-RU~|s+lCjhq~4BaoXZ+Sr~LLAAjOn4+b%nh@K|tg)3!~< zWOh+=;55iMmqmu>9%)*7K=hCGirWRVCwaIW7MA%U53B{NThJ0LvWAO`FF+L z6D&(*r8b3AS;~kqbQcB@4Iivct>pPnX%Cna57E zwfWrD9CtavC>EdH!9ktcSL}%H*}URtnNe>@<>T==Wlm(qvUbMoJPi)+YmzJ$-3(bw zdz%%{5b!yN&}Fu_Yy=3cG7i=RDkU>O5F_p!9E|S{oKgeA-tKY97UcyGDy1uhj zPTj11U%bG0)ekbyCcN2q5ZLj$!O@^d8rh*P#9YIc8AeWc*&xLW8{y@S8%Pj$_Su#J zXQ_0tu=2({%ynJ<_sT1FAO;6rYFl;_O2)(8G?IjiJ8RDg%A6_AlP@*ev<{M^E#gU! zimWzL5T!va-~v=x?ZO~eVEV1z!n37}}W zKHi@1h;grtee`T2M%;P7u7!Q{>bX(gdB=Vud-W~rkmQxkVm?8o)rOhWlO^F-*&#Jx zy>6wfj4n4#J!exVc_y|eG3>7?SrV2<1JLv4up|!Z$-xp=Fd*e0jD@h8pB7s4NqEiA zE+M|7CL_FqkQ;s#hkWp)-6*odao(1l7#;3rr6<%&;$Vcr?L`T2gn2EHd=ZdzGr2M5 zjA}k_^C!}jOaO!29TRC;IHt?|v=eDQIg#dPmlJtMO`3@$VY_KefLf*(V4G^0P~j_uX6z-O;fv0bWUVShl+#O z_+i#Of7(UQ-*yDHj$QW5>k@ohb>Gc8u4M_{5|0QD@yQUDd9tK=Lzk9uDm$`Jm@AEl zg=L{o9D(Q#Q4#lVvNR>(r&&~cGTZ$&=Fz$ZnOkQYh$Sly@Y-}b1bGdYY#h*Qd?l96 z?icJXn@j+{u#yZq4*j!nz#*9k|}tOm7IB)MaC9>-odc;*Q!|;mIlC1V?%MTK}3c^t9vOk9T|>< zuQkJ2(6AV0H0H}6jMm<)n5@*7H2SSy#EFjyl4Pff-cskVd@H}%xmOD%nD`fH>4(Aw zv*jG0@u(smGybcei|4tb};JVm2Vy_#};Lytj;1v+lR0>3zZVPziCB3BA? z@GU~nc`SUo{J=pD|67>71glJrN5?ob<+5nL;{~FYx7(108=)n8?4z%|v8YRWqt;m8 zcxRQ*Ixrek^PS1CxNE{o3!Av^_ontSQ{lSbr{;v!T+d#W?23eJLW?H>z^fRCTp5WK z)i!L|I?C2jwytG?#FMEFnj9u4Cg7u3r|aN#Z|qmW!Vn1Gfasd`lTFj6Y6O%ztui5I z{930>c@L@HaWJ3T^Xi3;yUZAqW(j&^PL|6!*72J2E*!wGKebxER&BnUTDpegb7wWj zJ06MjfiOI4aI09Ok4utcB@X(1rwQj%sR}%@lAJ3W89AM9Od_BBy|UHBFS31-=KN(m zGL>r7(>PY%tneTcf69m{lk7)nQ`>o6Y6M7nYPfEBK5zPUHhZBJ&;b>p^(!atdbv;+jyyZsB3wo5cP2YuaOO9ddSfVggF6qQQKaIm3M{h*>;v zUs^55ImgH_w{m)O(m?>Jp+|yqz-sX?)f^gqs@v{Zey8po%yS0NUX)aHy0SWFn+@YT zmNkEsB|Y>vedurc(BD+tYVX3|^rQ_NYC_7wP#EG?i6`y9)+mGP}6sedoUFg^qkHw)!whKYq28YRp|R0rX;f13giRcvH`kO0<(gc zj`<|K_3gs}%Z)skgQlDF(+x^NxcXfbL5-O3O$S<3bDhf;IZ!V|2svj+_@0&#Y$+C(giMtNjNWf;aDZ9tHwE5 zYUQwa)|qgwUOX^9Unsp%fNj>W>9iTG`8zpkJD4xR>cfi~@ZzG_41dyDm~_s+8Fk&W zXx<;h#?R=!LJViaju0FA5C@@^0@RJA^IxaSFj&EMjhx_WgahT4OY=*`>`(#+0+w;% zNN0{rNLj{B`$nfdYqnXF&bH!?p~>S`FD|_yp2I@C20FTTz>SC#pzTNeJv6D~Vj(kN zgKZWIVbcOax>ykK8ikUTU?spc&h@S8CfEV*OCklfe*t8qXar?;A#M6&hl09Xm|In?L(q+ z{o38$-1{zu+`j-I;nm?yyn0x|{ToTGlYgsXz0S_aQvqa8U{|Ly_p2Vv4BnJ{V_5p+plfonRTG%?TDz(%wI)jta zanvcAh93Y*+qRdl5J*a!A0CAmg6F<9tXrkq=H(_>$L0~#Zj@KM$P}*mw!diO~mnmf~i^VR9*;#JW2jw=cAE&y#DJ~qqzG?3M)0?|$7NxekrnJ4N zEJ|T}QCAXW?Te~dI7U%zW?Hq~1f7JO8NpsW(^q4)`EDIYk+Vy)g}L0Ng%TMc1alJN z8Z<6w3pSLJ1gP<}2K#D=vl`OjoJ6MLr2LH^!GELr?lSxg;2`0@>fS(deq$ZC6&kB= z*RJ8+j%L2O1@+wBTaxSJwpe!Zj9e3q6qcC&MKp4)yi=#518bwdJFM{|XVXiY1SG4&o%U1bo$pP4G+%?&l#u2P%3wnB^Nu1dzSy4!55&)%E8v}H? zu((>vl`gH0lz?#D5Z_p<-l|mVL+Ked?Yfi1_Pu4M?yNf-xhm3~P3+L!bW(Scc7o#& zf>GB68Xz6Aw8Xh(-?L**IX#-7QnWm3nbG`BUs7_E2Iu<4da=`)`&^=!G=Hw^BK5Y0!wtT z;cQJ`dIKASd1}-DIL`obHeFw^(l0xRN-omjJjIiv= zwF6gqjt?$4N(e4KEVz>Hz{S_+11<~=z`ebgM(ch07R;m-vEye`_BhnB1q8>%Q7wg) zTiMhtnnFj0;n#y!wyLRbpX1iFRsO0=sq7$;@lz2z13aF`PY{B2!qwDwODBsr!1ydA zzRUwF%enkF5Srj{HH<@iFly{SHN%_jsNA78u(+ipH=9k>P5r6 zgscV8)+JL~F(a0SCg8OdK1U#yQ9_A1`bmP4{$e4N&K^o2HJ~BnZLBE)pY!EneYbmo zljz6%P{6Q}#WgJWVqtYPccE~8>02Y-+npvNIKqBsPN#=8?6({*x^Rl_N}kt%BbIV% z`&2n)J(5__(HIPk2~ny!hV>2Tj`S+SJAR@Ul}U;wR%tf0Q-^b81< zwMff*&eqT(V22=5qdX#yc)ABnXu?n++gLXgS4h79)p)C+cM<=zz zGUv=dxFURMa~5i?13LwGatZH)us+ui<>yAZhJWB?+vS~9^?JEpPJxH9rF}g+W_K4{ zs}r%?zAC0zuyT+!X2`pxdNSVS)MFZ|ymnZ-Smc79z8+buz9T{)D;m%Y}t3w!Z(X-^8`4-? zvNASHP@pA8M9a5Cif+wPRq@d`NP4W@?F5mUZheHTKkNi8TRW_Q9w~FQqGvOVx#lXX zs-~M%9$x0uqRAN(3v7?nM$LvM!H&dndwdyetvqZbZ^kL=YBgqezA~)Psj9l$W)q^q3H6t`Ysm2km2R9mhQnJr~h@>!7Y$x z2Tx+%?Y6>%jUIct*)lm{p41W9_F8ss%L>~+bn5Ti?oDj~JEFn9yxztnESQ&ocxtal z&z^+=L?Dul*oPv%8JD@s)$qhB_G@g%4B$rvBNhtNJ=!(&YBWfraiiB4W#Y#SUL@qe3yzsu(tZmBkd#O#|4WN!oNU5KJ$_Ec_IC}@|qjcD0vkC*=Tl*HanzJSm+PajVwqMw8(&hmk=qQbmxnK zbeE_$s(1w1E8vNLMPe7$dZ;o)Eeq8@R|$~A+K=SN0cyxhE6f?vpnPH_L^i60ECaEH zU3Z~`6_NNP-w^RbiSK?$eC@g6(!!<1;+cK2uLX7U+(T`Q>4c&9-7@)WHxZV=axw4y zgi!cSRvk$=tgC7xen8I%xz+W`HZ6(cH>od5Cfx42guIK;#iS z&wDjutHe!vV0f#h=NtO$j^9;Cn1I2E57I^S`SDg^BdUvr`OcUajt4FOY1SzB;4f$Q zEtb|Ri{LHCe zYNF4lHR(0b!2j8Mhn=oNWdE4&H`h^W<6(K7IEWHW7%FX<<75;xW^;M z=+=q%9#7dRhU&ol&XP4su`x=)rjt$6y4}&kg$5 z?+*GswBXz|*l<=h-obe7NkzoH2FPp%OT#`fwrn^b}QE_mEo#syWh*n7CJH=o4Ec-R;Ebn?!tyI4#=*e zMC@W_?8P?DS5d3l6`~0$APrA$k_HZ^0F}KPm?1yn2F&&8O-=OiYQZh9FE#4#(vIei z6JZz;$FhA+=78bZnYa_X8>+fH`(uPV2#+*5h2zomDZChfU{9@++oaFjT-3yF zjN);_x=C&^r*rg%Xz{QP&zyMxgTRYTYbH``42=n3$i`BaR*JYihVG$xwX?Zz*v8;F zX?~)DkLikK^+}jiv$1Vt+}kP!CG>1H>+JNt8Z=8 zS2uRHD%CWkpW*T0baL+Kn7&d;nBU#3jtskE=29YiDagT3S>GYa@U>FAblxZ=ivoHb)$(p%bIHD9GqyYAtX0KBf9&va<}qQX)U)fXPi~=5XGfZ z0TB-9caM*u^e}(no`B}eL&;D#X?&XtpH-aqlP`!OQI{c&pIGtRvf{HtxIqE-0HvB`0M$FS zCL)pzZq#ed@ooFy5bz6dl4qjutGAew+C*(1UX%I15VgPB0%}2#YJ4Fm>M^{$gzp&h3O>LcVnFn zxve#mZbjj)bUA#O#Y%fTqF0#!t6m6?2wjTUhbi7rlOro0+|<^#HZf9!wLpBiA}>W@V_C%0Wy>pt%kzad zI5aCmMrVQdM%)|*LC_Nf@BZ(*fAlA*Ui=FF+jsRJekT0)Kb`z4QooFU*|#>dqD_;c*D4}#$K?lZxcKl`vJ_^>zl_(1SU zPtUR2KR$RqK(dxWL6h4T^xxj?3%=lL9Q0~5TWTOTTBASsaKNka%PlpK+fw6@SL2_z z)Ie@ajX|%*;hy+7klRw@uvg<;OAX|<)HveRXtdNoZnOrl`-oTLZ?@DxZcB}$UX9;v zse#;R4Pf_CuSQ>QeB{V&sqvUs<8(_6G! z1MS;uspndZ^`z~Q${nR+Tu*po_|PB2-#D=Q4Q~uz2{fibyFp+?99;`E=Uxwo@uLH~ z^Inr@eYCVxY&Q(kV0;`;dgJ&DeY=}pKVMeR&CT?b_b4xB0ba6n2L`(P^ZAdT3f_9J z|ASWqFjwBY${wkZVvVO+Lz%}h%zqwCUvZppy#>EWO@E(iMA)NuaeXM*?o zKYc7Pf#b%-J185r_30xDZVh*VK?4pdG;GP?YX^6i?`hi>{u21%$IpU&e$sp7_U@yB zd_RZp^6lN@!C(I@A1KfK=y`BgFZ((beIWY0TBf)&*+J?P${li=A1eKL% zfAj)6k;QSeKTLlykaQ9U_Jx;%L%~9xH+fes9SUr`pF;sIX%tuRR`$VwN=%_Y&?1jA z!+Tr2PpTYdDz77>!V&wMZ=uVF4T>g>&dskZ<|LUn=K18iBukLAK~~j3X#@PZy0kDW zX`)BvjxsHbbkQG(vNkmk;Keh%M}FBPOq;)F`hp9^T(KYj%eWT(!E&BmJ`yZ0A=1(E zlI+um1Kg4M#wt236dw=J%q0YHd#jLpE4L=WjSmHgLq4~ZzqEQVkc8)Zp1>^1uJ~~; zselt{k`4qdNqwzJ*csy$`&*N+8^%jvyNf4bKZ_?}!-^+iM~Ww5%ZVppPl+dC(}*Ww zS8z#3h17!Jqhr7UXz4g;sVxQVmqzUL+F8AqG;?MkFhQ$xJp;jijs?4W1hP?2Fo41B zK4y6oR^!(KPA+neefHsj;6qI3L5%eXl86PYX<1%tDpau)+6wc*61dD>MDc#MfJr?R ze9#l5`uTH^%!)h#Q+5Q|j-lZD5qzVzE@pf`8hmur5Sj%8eOcPmq{rBOKT2sWNtCJa zTRDz=awXG;;Yt<)Hu$76vEBe>K72g*=n16hOdk$DdJ-Q4!5lV$-GjjwM>*?HbJiUP zvApDHu&_WAMQ)`~T)LDy7GS|eZh2wZ=hn_+p=GevmAMRn6G>n-H(AFxDa> zIg%To{8LfZP(s9yg-a{*2br9|{ELAhqNhPQ+#Y&^e{~duKz2SK?4~jO2QW9}$`Ft~ zJrH0p$NuPW@M&K#TUgEialc7BZOEw{kSwH*7FIHPT(=Jro;0t-BW+^h54dSM7<@!3 zz|;%?u*=258yHg@r3Zm)fDy-R5)b_4p64Sh&vC!Qw|7mB;e5=IpJ9$+fXtDfVUFR0 z%#ojAj$wz)k)L6X;flS8t8$HD7?|*z4*yH~q|1o@j z2;RsftTp)rU-Uo06a7!{L;n-J(Eo(^>wiM>^*luvum;dvA#@vOHBmj7fKoVEiY0oFL0rWu_5Dr zO}bxG?$?Z2O^2{}u+tY8-o(n)^L3V?A6RD6CcWm8q*2L~rsUVOEr#7&Yo4}0&bW%< zuhV9sIkp{c%fEB*1<`5;4EG+uLKwg*8vvsQ>;5$`#DR~o4#0Q^KnXzN*G2Ii;m3c8 zRYtUb`f@OAZWe8dJ+#GnH4hFAk@V?cJkevd|I;JEaOkbtkJA00&IIE(@4#J^f^W=K zwLeb{@+cwb4Tgtw+rXXx$PWbYO%>w(nEapl!y=G;e2kxvdL$eSWz*8f$C=a@@C4=d z?h8nGoC%Kx_Bs+x!F6P@>=S<3lSmju0)*ScSW%DS-(&c94F8Vf-{biAgl-N`aPuUM zKBY4LZ_BzPGyIIHPlHs!$7Dk_#ojYq?|a ztmZ%I!N&W|r@0Wg!QMjo0hT`zm}#u=F3reEgrwR=tRI-X`Dm_06*DvWI3{Pa&YU$I z@xj`Skc<7$D~yjY(zC-J+6Rp;g3x=^Hl9_DCWU?vDOv`C4?++>d@d02|79Qp1t23H z|Iv})!)JnzUyzSM4B^ebC@uah+7ep)f}=$NJdB@KRnJ5-fF~0MFg(`(=}|{K-HhSW zo}deI;*1G7QCC5;I)_3{F6B!oBjogqBPYQ-U)@ps-rju)WrVJd1vzG>3wV{Mh6tZE z5ZxWn*o#VI&-4jRkz$0VUJNWvE%t$yF$XUJ?Y-QNr~8D+L~5Jo3@D+ADa@+NK4nqX z`2x8u)z)6^?%(g*eJ(il#AhI8()Ew9-@GVN@t~pPztsm3D=eV9H!UCeX{x=yb`Y{t z{~^HqI@a|2fLRwe#jMxS)cc>IC;fOCAEIF}=V|6}MeyS(eo$QFN6HpEf{zpU_ybKJ zvgs`JMSRGD;>VZ#oG<$yulOIs{>O;_F={_3OalIsKt486^EHMqh?Y;tCiO`0VLJHm zRPfO_z!l8@HwVrBC0UYg)X`Ui!C;{{KP%Ay`XQt6B#m;R1S@3%!xfq`{0Z$9#SuiH z#8UD?F-4ozZ(>(lD6U@0=L@UI!Ar!DMGrv-REzF`;6i>i6euAEK{aHy)r3(H>g8e% z+NH{lgQ7n!Eai%TXIXoC)c)W(DKfCBvKyWa=D=nJbTbz0YAdTU2vtiD2N#wK-zwxU zAxQY4!2B#6f= z2Pa#wxqR*R?o+6Akd+PvrYPu}iB#o~m|HLJTt`tu)8FpdJ!88$>2+iM2ikW;Tf200 zIBTzseTpAh8 zHn!@uMjF00X?X37egGv%&Rsq{N?Y+qj{#RIMCvzn_!orD^#wof`%(}3{^6}pditLP z3a=d6&9v$AK!C=(X`6eYXh6q&?H@cv=$h5upi?pLM#A;=~v#!rW_YinbD zXFK7FKFwZG1WK17E8GQ5AUt0@f+Ku_wgm~gC&p1 zcW;oUY>4kKv!w$896U@@uLSR5kNsVd({1y^!6&^>ebUnxw#%v`iK&>uNZH%F{}KZl z#efu4$d4x9z{{q9-(=CO^Twy2~Xz!U|j|yp5;aE%S76P6PD8>lm?cKkG;hvJ=3V`Ew4Bl{GbvUq- zMkGumre+dTC%tKuZl)sBc6;~l1B&SoikTP`Qs=Zy^r3iOT2@k$QfK0&B=u~Vs>CFz zuURO3iu#I86r`JZ`)XK!ATZ&AfIR9W=Lj~I0Eng^nC!->kADgUo)sqawSe5MKhWSmWU(T(4IbK^kOlk{4jsa+5|47Gu5D~L zQ`p4%Vca~?|H*-$lHDV+cYjqRV&zk?c0wQe_!VJVuLQ>i`E^phAVDHw*KHRhUR2z0&axB5r=}QW0_{Qz*|;zD2~P z+}D`}S#ACjB~c^uLfCcnk(a-GFet7p%ojarT7*3Y4Ufu@p%Cnhr4Zy0aLXB61_Bdl zR;5hzSy)*T=}}EL)1m0cUeUc33THxF4h)g=tMhneWl%&*y3FMUdA6kIJ%{*H4uPD2 zX&b>g4&Mr~pJ%BA038_-;iG3fD#lY(hUk0{##Ow$1F=V*-Z9l+pn_Oz5nS3K6|9{uR!;t{?GlAkg#2^ezct;T{gYF+y*XBf$XwJQ8pPLb&fgaC_i0Nc9lr z@e{(%H=tp|N=h@jR5-2`9!CW%wnt3`*kF%I1@SDv@x+f0{+ODFcJdSoLp>ir3ABsW z`wtvKCb{5cB%wQ=6(4cGQ1W2F#Q@{CIqB2yN&PdWf2Q>h4BISw`k(X?YfxN$JyWbo z*m&+v=hDMCo*k;rrQbZJxlFz2179)K7@$ys5*1VGW*~0=Pq|So2%=VBX9+eRPRG22-hLUE+-;dfC7U=hZGcNdT!yHG?gu}skm;%M1mN^pO zuZctoHsQn*YwODVVNVFbaUL}2;ly#ZYJJojz%<);`{^VHfrwq1M48Z*(&3Fi;3rDn|nZV9|^uKwx-n8dbv^I4r(f+b5wpZ`1UF} zK*W9pI+nfbO|CBK9{Uyg{(aeUuzQ2PaV{#f2&=pg%wYhtQoUJiz{Az+OksIa&0Y#h z3J=h&EQ}RLZ|}Zp+fbNZ3=%*x#b;5RvjpCt-S)~bdV_Ccg^BaQvsgDo82k-r(K{ME zdl5FGo*y6lAxHDbXZgBuRQMl8o@$XRUW0owh3$IGPegw5<@CR$Q~9yQ5w`hpj^ zJw6sE8z*2xGCaRnD0)6p$jY5BEMz7ind)_mmh;hw7m=g6n7-XH?Z0^zp2+R1n3hC}b;g|bf4rYu%Mvs-abyb{M^vn~?_Uq=nlLw)& zp&miPsoNuz*O&*cg%1jM1EFvSLFtp;NBSs=aY{;H%&_rOIpUe4(O|%=$wBdjlXG=e z(8I@Hz$aZ{KK*HTl0^f|Y?_XQ@O4Y;8$tY{6Sckyv?=eQRrBecX00wIH@3?9Mi3th z;-f)qBp)7!l@Zzp=bQRgP(P)>PmkeD3>|nOIsiYJG?uSY(NBSjZXFO>;BF(Hs8@S; z|C!;~u#vcTZeR;~LN>JX5#LD9HPVit(|fcW;pjOzGz_FQdjH^%j^3_z%#!=0m;mBa++=%#VIDr?C~ZB(Yv}ODtfYr;-MYp5cC=bO4J*Nc010C38OE^3F(jT% ze()STS>WoCTbWNSlO(Di3MK_pt(ck3J}}J8 zCSe8-fOW>q`W~3!L8D;iDS8f;TF{b!6^P_75G!O8aCy!4;E>dFv}VnNXx=UnjG)Lg@8l*Rq)aOs1KBagZN=Rh(8jX1N=PUAvYbtVcxPh zU&0SFJbT;Ym~COfIB7w1T>`aI@1=l$Y0;g#MYaA=sPVV=LCExc-8DxYz&OAh333Z> zwa}fxC+?;cO(vkP$H`a4YERq2VVMT5Zw9G}S>r!ayzPd78P z0|8zZar*|GP`Q)H;U%2I7T{MVzNXgX0pA!So%G2*(FX%ZanfAt$o0^ON0ppbP|BD5 zroS1#`}CVXdBlWMaLuQh?w6;iZ_Cr+ktBg{x@@pXCQ*(zNo*CiMppm?iyD~qJ^=Cv zwv>{e&y%-2)$al1AF%msl3tH&1n0->#WX2jtO8PuG|AN=dV;Nj5{JaAfQ>+X=YHgV zQklQKdl=d_27fHDzpxd+C3yU0*%uxcI(-5cWJ+(qPsuv39t_@?pDkTP>O!VJxLBCK zaItg*X~o&4H~45sf#op)r3L)Yg*P&0zVLei#I`_^zkrJ8aepg^%mrSb^l7sXCbT&i zsFop}!dT`sRM24l^4I%b?YO)9?o0zfD<)@#))bgh1~BFU?9o`&;m+=Md@RaP8ZhF) z2v8~~sd*spt@mJF2CCkA4|KwlgJ0)4#zY2aBriBlcTir2coJwfLI9lHp3*N00pgK_ z8WSoLaIV+@KDi0Qh3#1s;xM%te-ESq@z*`90^H|NQ5E&i9?~iWe;WCU#mcQXJL#T)PFCA^MSr zpln1&-p{CEVC03?YT+QrdKAGTco=CtNDY{If2}}@-gQx)6#pME*(h&_FA{rs9Roo)H4i7fUqoyi)^D-)n)bD}%5#Zwmq( z6JVPyh}d#K-`jBjn7y3~flE}+E)dYH2#kb8#>E53gs>th4ZeW|!w?|^81BV+Ccmu| zgdycTHUKc#F9JFt)!P$N)V1i3SzU`LJTNZ^oF@3}fr?~w08n$VOM}3r2C<-SNf&f8 zgJ9ous5P1a61SDpFgcg z2f!T`@?4MnaqUw$@Z#wT{F_e6iA2aO;$udxz<;5bNhx=aVdqeMT}hE zo1Rx^%9?X--%zh4bcI+qu8#J0EmC%OxNk&g2R8|POWc|Hg~U(v5Hhkre0b^Q+Tj{< zIZYlYE_zW0RoHc5jd|u3r{74qS8FkUQRb;GEl45%VhQAH3f-aQ?p%gV1ZZim$_RR5 z!=;)Qh4TbQi1ft;hTvlmqXB3nL|SU-$TbQpgR(DjeWrZVm~-KO;Lwpfa;?2Yc)pe; z=W_M_^0PPPvd!fJDA#A6y)2Q?njlNw_`E5b*R}F`iGHoUC!04bEngYD`5aftMZN_r z$o&?K>ZT?@V4*d=&k+W+bgPp0XnH%wWl?t=&D4wRQ|P)t-(J;VIdE`uYpVgL%nC6N-a! z(Zp?x$1^!)!ONzRe$wy`8~O%y`bNM%xoA@On|g>b&>juYqjo7l9!`pvRtrlC-1l?O z;3x_Bw>^IWlD^CUΞTK|{|m#BTRe03eLvbFZ1J)oEg2yckj_AM7i_vB2&zaLnu; z#AG#{E4k1rc*`0Q7b@sw_T^BHD3}ZDA)53WR7*Nz1**m##DNnA^UDwYipqMLnAWp8jb?E8bwc!^1j8YGgWc?pF2im8gddK6rL%I==sz1S)BYtiE-Y!RQGb#J2NJ(B*hkw4r_60cNE-1kx)Har z5jfqT3jotm;yUtWr|h}?Xy%W7#qs{^FD_J*Q{3waENt!dRP zHDQy3*6WabMU7oub$V{*cA+#bVGgc}q58IAbv!lj8qOJW!U+tRtKzjp*0ReXQ z8@hHwo}{Y=d+Gk}ZIHzoBA-Qbu!Ic&oyuJlR|iL+>!DZ|kb1DPqWwUUy`45YGs4GM z2=FC*Tm}hh8d^1L>gfjQW1#CWSR@)W;%1}o*@XCRgrMDx5O_&Mm{4+FU_b{HE-u(v zao~=EV{-V39&22Z;#iZKUV|@yLGm?@?<$;2Mj9UX6e|`l%siayy;^)qk5X~Q3&=B8 zK*l&5_jd@?G4@V($V7C9Ohk7`h-kXG*n6+G4&8w>)Rotv>JIT39%H~IAguE`)4|x; zwF>r*=IG+_G|w!3ASZAjPdS({9LPL|#b(SuDX}LZB$Bm8^mZ<;9)V}O!m_wWcrvn> zct%7#5ioZ(x9YGt(K%3SWHNIQU^ zre!Xlav)?+paOCzG!#l!01foSEG>({=}vC|WDsz`y%z+u#?R)ZvV1MY`8-VtYr zz6I5;&sShDxtnTv`x1)?j(W&{Y)D#}dWaV@W}%jfxj*~uDUd9$)oTii1K`H2H(DY2 zGG5q7`|MhxV243M!=0e2_77~2Dc+W-x9b2#VRPLlc7OEp#X6?aD^SU`Sjl9AU{!O? z>DT%oN9RB`7G%v+RrPuZixQ9(q6icuE9D0%y`m(&tLrb+Exy{HM<)OkwUWX&)P;3C z)meWDG{NL$DFT#N)rn|V4WZrF)P+Ylh0k=UPP!PR^%Oc&%yon`SFeNxl?@>CKq|i6 zHajd5#-p-Abx@84!vKPN&M;^ZPSbA}1@#6eaB#NdP6fC;pv<~cVP?V|^|HL`yn=mW zY-;~dNK|z|Y!JQ$PyNR<@LZ1L%csSQ3j+q0Q;!adu(-ZpgX-X2%S)8lk|E#X?49nF zZFc8?F(4;6Vr~T2xS&TsxyKl-OrM@D@Ax>EsAo%(G)*<&aPoVn(=UYlo%^BzUkI7} zCRa@oU*>3+=?-&6=jG#y*QTJyBv;tQ_sgJp6@`2ik<%m;M1fOBMaUQtW{PQ4JwZ9^UsNZ3t z^m5P#lzRoG$rLaEK#ykz@-q<^hBJ{@UePdtx2nhGQc8@Wkw*Ym#u@_HM?#R<#NMOG zqfY;kuwUO3d}do8BrrJrw!*@ zPMMHz&?xXd0LOnFyRYs!-su!Q$2U`)*E`2gVNBRDkY$&YU@&=6%Ek`0d)t^Y-hwN6*@Qu`nI}?SH1nn+Y z4~XUTAi}*KuP=&lgV`Izxnb0Rmz!^Dr5p@i0Oy7dyx`p2y4;r)CJs??KgR8jGQl^F zD{4Xm+0bYou>I6Kl1HE#>ou=+7Lj-DQy!##$nS^aBPE&ud&ED zctN+Qm#(KUqbQ+kWc-1`8`SreG)S8Li}@Rrx=Qm$#@(&SeM&mGB-y)q-()@4qQTu9Kx=gwUNNR1qz^I4VJBkvhxy%2x;}2 z3wPo+5B3zKqJaLaU-A4hv1bVur?9A&lj;kzMFh@BAQJ%C1e?E}-+|b_glFpt+G#P7 zk`+rzKtk5p`T6xBs1`gfIE;b0$O&E}>}2zZ6Y3X~aH`dhMA8{#d=k9=fmCUIg@8dI z*U5l(v;fMN`vvIzY>`JByHPpTgHyZbl&V^+xS$Vi*I?faa=+-cnCkhGBS;d_4@v{W zZY3@3K$K0Wdokv`QN?ifwCLci=u7#-gemC2+3S?8(s-jG;*}Ud_Rba01FGmEAp$IQ z{f1^vdrN8?sDVV1XnL*WJPe?bP{~myP9tpwaf*rzCQb+@aT<&gCQ z{n6g-U2~(-LAV248=4@a*)fRJ!J?RnV{ZtpMyohO7+qqp&MShOCKD`cL*ithuV=7t z*Fa3OMY=o9b_(!^-95KM5lb+n2E$wgZm{x&AKY;~4 zBSGIXZNRCp;HgTv4tBi3^eL2^_8Z*?^HZZJS14^E*TYYb^os(%Q_;v6_D!4{=dcn@ z9?~;o&uFTucBe!cs2Z4##Q}h9V{+GdR#p$rO?xYVIQX*~ox%#MQmz*zF2~=+ssaHK z3m+$$E1V%*sS?%EHBhSPr^%HlH8Ybl2U-0fWtF#Up2F@`L?;RV7Pk{2 zN|W{VdZV$bP4-g9r2_C%m~A}K_2)(*l{f>ra0I#L1wb0baNq$utb=@~e0zkpMrEsXo!N5R3;iDIf**>o@4c>w{Io zO%`y3OfpfgUrRAsnyZ(tk5Ei0I5o-aUpML)bYjq@3HY*mQvTf3 z^85gvi`dVi^fwI08YQhd1>Km+4#PvtFhyg(-)8fn__0i4BKwYeY-wq?xD$ zwm_j9Tl7lY*kbb~dkdAeF{c+#m|VeL*j&oHoKjaqb66d^3A65&2Ht(2MP_&=A5D4nwv{lxOeB|+VMb6M&%);KxmRL`|w0b;y}? zqAKJ2cS^#S{_l)BQhEeWR7KU4Goy|pc2r`A9H%0xN}MS4sGPExDsxV%T0D;PZfB;% zagd5Ow5faQ!4o13lfjY_&83RI*!t3)F+oPXT+&>j^jBNVvTiZJNx^znv~GH zE1b|N5cX7Synj`KyQ7GwN^bG(G#v+gs_NjIEvP9kk( z$q}U3_w}J;?)%$nUR*X(Ikm(Itwev1u>KN`%<+;F3Oz!}QS~h9K8g08l(w;)ld2Uh z+v#M~&QK;)TkqyVPc!P>&ZIhuHnpNm_JS=QDPy@Kr8_asy3P}*lQXUB z;JC#deucND4Q=XsD(c`rl%z+v7PIy=dVJD3B8vwAP#q)uOi6nq&BlswbV9kmEdpd3R6`Yj#i`W)iU@sOPx) zLTN;Op)!JYI}RU|fp?*h6KX@kq%-4uQXNwx=r`)cYMQ|}s3FvWdbt8I9{6S_R>-7` z*BKQpIp*A6eKK?h9+vpD^K?lmN@abzR(^X*y*U)Y7jk$>QGOj<|ED|`g@#XhHo?K-T3asr5G*bAE_Rwd|G``{Q#Bi#4cDBiXwDeavo82 zB@V`6QvEm7#yMmO9DSB`0-WdywNi{gEY>= zN#w0X`*~jIwA|F=s?Pah$qaHi6?~4c9yNfqbeyeH^(giBl1<1piTPmZf9f0$oh&%CUGf)Z95?) z=+qD4-Q745BN(?f{C5mxo>s@W{+wf|llAhA&0&ArR7Sq>|I2SrD(>SC;lHEulwjO( zauV1E{^$|*Iy|^HDTay3--g@OS0L$m7~$P`P9pqQtCjjN!WleZ@~QJ{l=^3c--aiA zlTwf0ifb>zzmDg35PsL4pe3WgzeD^?m+yPnIB;XcwiUeUqrkf;p-15^?k(u0P&3oZyHzX z%_U0x8R8Ei{JOWJt%(0C;(HK&&pS~j;wAXzcM!hueW`7~(0!KaKDQF%X|Y{9TBD3*k*4f!AHc--~zx z;SIl`)OQhoKjJBbKZob95&sb4e~+;G7=97|3gVj(9>7ysrqtIEe=ov6#j^zQZzA6C zaiyO7ZKY}v|1RQpenP1vo;t*55dS#BU&Yga`1cV13Bp^Cp-+ha5b;TbpT%<*;{O}* z8=q7vf(JG%)!!mMhVb*BQfdq0r5Ll@e^;sg-$&mOUx)bn5PtJ#mHH*bVM14Z7~v0m z4r74$7R3Jo;WeMfm?C~3;yV!jCZ3NW9!31`5&rQPl=>v%+Y!IvILiN`QooP*5aRDd z_^JP@)E^;!i1`uT_GNs7_+yB_72y<~e?j~|ApWZezaP)PBF;HKj_{x2fzep?4#an}}x- z{v|vOi2oMipGSDdH!xp_E7Bk6!nwd7mUigy-sDs=k*TRB?VzR_{ynqe@m2>(bV!pO zrxWbAxKNkiR03jgakw}|)qI`P-fSi@GM%J#gaZ?)L{_valG=qqoUKh{#zAWebTM%l z^qV-^bYOzspVA5U+XQSSnh~JIMYecs9ORj7f+La)d*g9eT)cc_Sx4GS4ntN?d_r&- z6TT0mgL*nsGEz0wYb})xPQV!!`WnOjA<~pJrrJq1G&Lrn4wsr{3en9n5!)_C1BKdg zH~BQx3=ynHtUpyYg6WEz$W1LR595D~(RBLZ(NugY@$d*{87|BY+w4>OK~^)7@(z9* zF|n1@ArBHs&6~cV@d>!-UEf+$-ILgxHNpE6$$k47Y1>p&{a|t|yC31Z??I+LeIzLk zCirqgO?7YlKmwt9U0c1|^fvfck9BqK8t4iSuqe5Lqx&uc)Y1U+ysN9vx!%=(4Q=F8 z`0r~a9HZCb5y~Ha-+%{4tlEyp{+%-%3G-8}yyi4Zo>yLp0L171vFID{kY>rS92G^{ z!uQKZ-#WZEnaXCShapcJ&zR3{%bzq7bcbO((Km6Gqx%!1Zyg!86IqGE^=y+D4e0>UEbU=Tg2b6H`Yzn&sZAZOPig;kbKm->c_<1?`K;bW3pztLO8K1&` z=htya2^4mj3~#|N@IJ+bYX2-ym_;xl$SH+~1o%OGs|PWT6}kS^qKZ55xGPEvLu)HQy}Pj5uswVSI^jrQ z_W4(dhKPFHB|?3>-w)?$`ib4wO((e}19p&76X zZkYqXjbKE9gmpY7ci!L3jeiy%&v?Nn+(5)U)%~o9`OF`%GjW87daS6h-kqi z2$N8PDWqP2an%>0`V3JS!)Ax2W)U9I@<9+h0*@VTOpHlTPfUiocjCquPIZkyo92vq z%PJBowy;*9jSt~*7gmv;@_nUdT*k8||2)=J)sXN$<5|0`Zq3IaTfCV!6@5joFb|iE z+=ElZE)=&&tds5ovhX7vb8T;a?dH;5cKdiVr}LuM)d=CG2)u3_!R#8#CPptw8zvG zGV+)LxyAjni*W@^dO%?5CES+j)gVWN%4Y`z3?U6$z<&;&S2IPYNyEnTAeJar0)Z}sAhqEp1GRh3#!;T#RatvkGr6Xw3qM8!~m1YJdf2> z-gS61k-DU%^zGcG6xoa;CI`>4OG_7j<=53VAv1-gI^}t(2Dx7RS zoSNF7NMxHI>WNNFG-nS?NVKL}lV7wEtaicgCL-+(4K>vht@86=61V;#!0o-`nFB2% zSyWS9wQW2TPD8k*JrW)o4;wL;7`=JpWfk8{A4s>G^r=QBG?|!C4wwt|Ohne@<)Jor zYH)lyGn!ZjXNSzm+EVH9k+*;n6{yjc+&A);#AtR3WtkRKb?*)Dntp^&PH2Y zQ%eVEC@~OHreLFA3&Kd9XkTmlMC-c2YzD4o(-$wtAk@vV{h7wL)~4o$;f5yLfvT#m z!^D585CC;=FGC1mND*=a7?8o~5qP$3oQO0>ntKvy1e(@I0Abh|`>xf#Yt`@Y{UJLEk;PzRL>n701F}6^ zWVtk;DYllHY5?WEsED@*y?)Tn2jj_X_`zg)Z2VBTelP*W_;`Bi0McNJfZj|;;~)|0 zHQv(FQXlReKZGw>R+X$w)NUKnf`zKxj*q9k3@wMoGa! z@0$Wy+TD#~ga%v8Dp^+_?wL-v+Zz(_|6)Djft7U&^veLjSG{1JyR;&i)o%1#@2poR27u0uioiXfAlH z#-=lniOj~ZXK;EqHEjhrMJs0SX?u5aZ(|p@2)T!=DMp`9P3`R)nj3m|;Uwye@&ID7 zU8yNBCK#G^EYW+ZiWDctJ(UsGhffZAfeZu$ zId_MO-*eHt4??(?PvO5mS!&U|KO_$ef7_9_9lzf-ai&=`@3yj4(3R58A+0YW=uK&h zO^}JE=9d_SqgoClv{`jl>*##y+)HAW5^5HE95AXM7b$M7{PZlOzL6ew#G4vrwV}*Z zrJnr}yhG3cBh4zXT>Rs`fKy1Q648zD?I?_j+`2F~$4l_Z2m=Ub%5HIBJqa2~cmstM zTk?9PV zEARqy0-YG>fuAY6u?#kA2Ac0Z_e`C-D1a3mD=p1mLXQxP^9~8iu&$oD7pL7}=wyj? zCu;q`sFSusTn{S9Y6W9XGE)`uZwXBc(|5zmFzk1MPC*LhFz(5t@*c`u{t}=I0R6Sw zs3s4k9Ssp_7Uwm78#!S{^rEbjr2+??E1>w}F3Pg9!i&-=EwU(EbX)1u6!uF?#2b&h zxL}(9--M-v-E-T|FTMC0{d&n<*XWl^pl8To;xNGXGd-!Y0kUaw*0)xf^V9&n@%4Sk z88GAP&5-~79onIg%n%oNrFzGiGN%kS8MXU$wJhm8Rv-fRn%VJp zs=ZJo6#t6LM<}&uWn6zt0uhj|(8t%$b zC!@8-zK+-9iwcF`uGkQqCP+C|a8onb73+x((#5iNWCzWa{{Eis7@TAE!G-jLeFJak z=<9m}Kk0!B2KXrI?1Y|hpBSG-X1ZbRG983D+MYp}iGo5QlpwnIz|eFDG#_26oH9(7GMq|;XgBB+xM4aOg-l725 z5ho7ODiA?Kbwy#Oj__Cn!xxc`s)`)gf40YQH-f;&(G4Edu612oj=r z5Itj=@z6}k5mi^J-%)%uItxAQD*&f1`JxCM=KE5b4aP6S^PpaoksN+W#EXyS5ieT7 zY0bedEb&50zXG%iTfU_XN%J!)~=jn~5nj93KL)bj#2C)aDq4vqT9G zXW|o$4MY4e6&{H5WrV^Qhi43M+kN*aUC50!_Q`4iPi78N}MiYkP5VkK!-9e}C)7dk-YO_d0f1>nVC?cQ8%aA79tbby)E46epUxL3EmgX2n1_D z`oyShRJ(1SslLU&K(1YbUE%KDoD7-^hT0Ga4)8!%KOB~Zp`*Pc92EB%&P-q_VL|uf zoW`+@-@YCFL-^@>pu6iqt{qG23vR3|HdfA6rQ~1TtIGcZ&w@|kzkRj#ssane^7pIw zU4zgYec#xt%2@{*G+=Uw4a>sns5D{4%Za#0rMjy4$%C}4zNf$ngu&y_0@2Ccb>cyb zPIWyER;{^eU9*Xzs!tykimGs5Plt}wVD;&vt_ZxKRVy@`971uy=6*rTR_4Vj_lsN& zR(1)f5V~}oy08=V&|llxPPGuLT;E=3*7fW%6b`VDk>FV5X)-x-ZT zqn6YB<(IWxEV1k`BrZi>T0@hrMAhI~66xB)!{sUF`YpR&x?(O6oS`0=Q_j`U1(ww{ z(4}2P4Mh7x3#PCO>r}?NHhpT*1UKzfX@8Q1?QJgudOH;D8;B0;T-Hq&Qna0C1PZDF z7e}1_0dncz!xImE*e9F*JylzF9PxU{>jR|%s^iQeuTFl=53w0tgr~@EUMPg874@;K zIq{RfnTzmj29tOee5dsa;5#{-WujGtURnee^;tZqr8r`=#6ygH(hvs=$w62NfdX<6 z9!_M`6g3!N*)`Q(4Q_jK8P{>amq4cjz68k%!nj37bO@`$Vtg5hKxbb#fF^|>>>j#5 zTnJZc5L61hnV%&D!o>sTiauN|2Ki4||9X6~G_b1S88N(-43NPXLvg$Xfit zhdu<>8Lnb5O;S<@xjlUE^KfJ!XH&gF6?@8$F&cQ`I#3Mw9u9|R1*bbQ>8f7HnAqI>JBOdT# z4{KW1&Z`IV;XH*PpT;p36yy_$DFX7vY9J{nw2}vJ(x>TPM?ik13-WK%ARk`2NED3|4E4n&4iqfrd)T`tZKY^aM3h#_$ui)}7}ByGy_1 zLDs7XyMtFU(mDhtik!xkBu&f*N?(+~G6y0}?!6X<4Z}d6yLf@!y`z&5#aw)iV`w2T zgvGT%xMMdoq+qI>7aowCaDT>E8tD$>f)8$`xoEqE1X2YQTHNU0A5G?Gg#z<4gFu12 zmA`&`s8j(&s&&4Em>{*s-4&fXcKa^_`T#F|&c(52Am+@c@ZTraS{!So$#WRLVPxLo z`)1*BtbL&%y@%Xq;!q^;%pb=ha#lf%1<09LDJ9b|NSj!ywl8TsTcU81T-ffuyPT7x znz)ddK(n^dmck}l4W4CqmTTK+mQDnFogg5=EjSTJQkE>8NDO)UUkK(U{dfrkB-rw_ zUyyaKJ4mD6rYH}syg{Rt^xw0fXeDis7eOmYWCA7WMxd4AoK~!N3R-!Ci&oZZPX{+^ zw2~ZT&Brv9B&1uk5<^)Ot!yoTR_4y|63j3r82f_K()2598Fm5M(j{Y@vsj6fY zR33YW42|b!k>1oQ!**$i?u;P18=a7ILS;%Pl}C=!#Hf7K*8$IuyszLN(au8X@27DN zx#(|^gN)x+Lx>vsyL(}e4Kb$F6;QxDFg8r(gLpdO)4?pLs_=vDZ9#sC6b&xPsbHfjzRrF;+#m!BtacXl27PUeX*VM#%_amuYmSla?DRa zf!P7ACY}$})t|dS{WwO7PvO7sxl&?-Cc}RG@;*7@`@jPAS(E|%7J6aelx_9&m5ONr z)S?a&ZMX&H&RV3Qe7}&ZXbA?IDso^b+T~b$UwmCJqj6&R%T1X<+h$aPB5Vl~> z3W5kX7J_dH`3?tP&#tW^E-UYEp;u8A##+<&Q3nezzJ~G-qgKjf_%`AMX-8vRuRr2Hb1bCf@hKLoVSb?dJD$WI3}{m(Tfh>Q+ZnupyJ`3*HG&6WeYOu53h*m+8Ok2}718{j)gKC&q)x||FI-vI&j1>UiAR4V( z5cVOH)bX%bwpVaYd>mB8}g~sf&*cX2p__NaFeXqU-Vc zvY@72i13ll3*C#ci_XJ$O;@~mxGZSnTh^WAF0c)_^yL6(z~`KGotrthoNaGN;-_UM z5WC&c^!j>*hO^oXCtTcKbTq%CN7HxYF6d~Y2`%WQZ8!37avS~ zeTBxd5@VUp%w;71NROoNM!QfW*_&zU93KTjn9jL-03Xa*l{jtV8JJmfa|Z`f9QOv6 zqV&xhyQmM7}-gV$0^(+PFbF z%{_IuKC!HZ-6rf&yT`nCcwMU*9T}zrdO@2lWog;CWh5qjovIuiKQJ=xneti|^M88r zzHK#)ZMz${2;bV@1k^&Wk}Y^)8yhU#ZE)FIkGSBsO@|YlHvA4GK%tllXHzlymdGS} z$EP8itJTF*qk7nyQ|SZo!%4u_eWL8UYbr6;*f5%zB9#Nhm&LG`n7dK zczb4idLrEMs9Qu>)Kmj0(3>0&$Fwl7zcHz_bcQC!hT)_l^{BA+pwyVt^(xa`|F>1K zcxrSy1;OI*j`-n5)7B;`z59ozio=FHq86|F(;j$l2UN`6_!9 z>w(6xR>T~7bRy9n=AH>8x7T|EhP5XzrA6(wbd%Tt<@~Xsajh(k;fE6XDE0M&3u-I2 zXO$Gvm5#&elu@oWed7yg%^zryQ)9E0d2eqRqW=*XzJw9FaKpM_&E5xFazBWPZLe9r zxX1f~*2DriU1=t7pXE7MAX{F~u-0}JO;m4;pmA#F-ztLpUSdvPRULL4gKg@0o3Z9A z1D0_7Lt-sIdGk=L^h@djfTdY=won|v@MY88kSs+`ByQ)aic4tt-pR$uKS@qjs zH1H|>_a#tFHEHuN4R3T9c`21sSo z)~y~;xReDW(yHp!I2Rgc%Uo_eDjJ2n)$BfsK6VPqy7--0f>zz9offh}w-(QFAlxjH zb^5XsI!~8ybkInSDV)N2V<_sY+I1szj%g){yk+Dh3l-Xax8{v{FZ3U4Q8yeWnyh51 z8pS{w|I$3#l}J2`vGkoXC?1NFcjzpusF92;U|vfWvqE(qIFDyBVBAWcG9@R8eh0qf z^|0$S)Dw%s3o)36eY>L20*q;|#MRIT+!1}KyLX^#JJjn2aDwmX!mCQv33bHo-q;X4 zuo=h670}U>j7A>L=jE7cg;F52{0K3Ohq4;_Fx1YihIaRNRe8}0CP+h&z zj-IYgk97)Hg>-|3r@@p39Y+t95F zAA9?vbENz2&Th~Zm}TtL!eJM1M4Ub_B^}!zPwz|I%yZB6<#mG`ew1{a1P|({Xc z>58lIyb1L)d>fwkB0PZ>)FXTco?k)uHRc$Wv$)9l&F{;#(i}qhv5Nb(LY;Y8SHR?* z_JE|#i9|M;j03Y=NTNQIrNE$k_Y)sM+T!!3eixBf738aWw~3r+nRrOL)YiUdmezKF z0R`*Mo}J$v@ytHh;uf2~Ibxkac@tu&gm0ViUrjZQ1luHS9h4SAK{>J=lm>g<`>7vU z$XRf5?GTh`0JGAUPCeQ#q$NQS1)*>amA4nbpj@Qbh4fxs)}PZHssQG9kVtmnDhjp5 zMU|kXslUx{ik>p(t1i;<2`olFh5rt3vjSS>CeL>KQb3^1_l-q5S`@`@aDV{Ltfz&H z26f?joEcDkr;BIneq6&>93R%TtLF>XI}UxWa1H2)=9YeMk-O2PU^gTVT19Yuj^LVUh#k1Qg8~9&?7q|(!D|A+-ozmZB9|cx2of%LW}B_O_h72g z9y)1q?P)+rw0)r@oCs5D7<2+%JieS5)xzjFDc{&&f)g$BVe>=_$Q>y?ec^3T$_>9M zye_9Qc)1s-wK4`FqO}pZES)qz)YEGkK$;qSM6q39Cm@5Ujr_pvi>2a~i zX2t{M%dii}Q+wmkqt@dAO={g41aub=ke1`uv=$+$*Z!LNo9pX2^dKzMb;&K;RHO%( zuX1Oy3g+LWb$mCFn1Cw?p*q=V5Cdzr6mNR`xn(S2?=HLF&aMt4bu4sYIqvi&knSzT0~64c04^72^0POo;>Q3kqEyimeXkOQL*P8xrFGR|P^Y1Rs$D~JeFil_)~rt91=>sD1)dk> zvp1_*c0O;>Lt?e->Z2v%OpJ6bo)a~bfx&m2NsI9m{&zxhfl_p+c;`A4N9qJ>d;U9G| zB=p}MF>1zlm==wK=xgCBby{1+5`{r3-Ae|HCQ&DfGowUy`Edv}TSH~Mmf>Q%n&!Cf z4_#0dT0Dodzcec-ur}r0D=LG@N|j;aE5!k9+a@535Xq^0bJ($V_JuxL~V}^GPtKM%+7~jGlaLFBlU%Dq(j4g7lS%@*hXwK$ z_lu~ga|#zvI<%`TgR(m?zB;&7oPjj*Ou(Vt5m*_Dilre3&KQq|v^}6BxV|1mI#tty ze>^0v!}GGae9Gmr$f>f>_~6~Bmu2pn1+yxS4-N$6EEWY7vCID!Y)9G+;|I}P4iQi4EIAZKAkYl`5J zz8pj*8`iyP-RlUV-`H?@cqLF-v?w33WHU`0eORL(zvOo*^JOkd>083h+jLJ~9atsW zd?`q!Z`6bMVsOql5f&AdO`tQ|TZY9(Ibu?~htuUCnZ8AJ^^nW~Oe@T5Tih6(`}d4? ze!)dMKMFLGPvO6h{F6mHpEqb`FY?k~4BchgKZ|xgnU8kfh$ywAZ&Y5X7` zA5|!dI4KcK7bjh%ankQ;oD}8`1ScihN}TjMgM$*2T#0xk;)2SqQcq~CR7}Ul@WR{$ z1k3xe#!C54kW8}tG*;@`W)&=yh^J&QSSj`I$gRVS-v|6!kkd6t1EzVtQ4|7!oZdv_ zH0>g%YbK~UATaCc2@NqZ@_hYMdb8s+S9ACW; zrwLCQ!B>kMM+=RwZb5bP$5;Dd{;@?%aRB*S6nxb-_$rbvLpOSOXdcI{D0dX6#A}**9v0qfy~j{JFtgV z_N*c|Xbyv2APGcatkp+MFkGXL=JxS}i`qvrzc4gnOHzi&?e>y|?Y1SS%#&G0ukzYr zQJr%FrjjRNc9{$_9VYL-IMeJDzU1e0RKRkUVyS`Hr-4q9waWYp$uzqM<+02MW}!J0 zCz5EOqa}703+mVwUxPY?QrDo4g#oUB!2$rwP2I}<9 z3+h;Z>5Fm6ahrM#+*|`UP@eEa2CiLlu3d62^CEZclHkL1-|68@(RW>`{xC2 z7WI1Lw)Gmkxdv~p!JBJDHQd6$eOnm9;Wc=(IPk{0=$Ic-O>5$kOCXjo7Uh;>TYNR4 z&YL}U20BlJe$b`Pk~bq96Y-17C}dxu#C%Z3M{7ibA=14KJb>O#7UB2hag8T5J#~#I zWR``-0!yMUPpARFVC`?-!CHXnkfp zco|o;FyX}F!A#raYcMmLfxXzYmToXwEZ5{H<}W((>f>l#gPGTaG9Y+z4Q9ToVCF`^ zV8Y?~T{Ar!tl^D|B)idSTYMEkrsGp~4oJ<3vU7_ymEhN|^msnK5A?WN%bqMBG*H&c zY3~W9xzc}Ll0DV)W!1cUZ{h3eEG={EnZ0GXf`fYDINx$_LZ87p;#2tV|DNZChc_WD z?xfUCi^t%YhQ&y)qWa?qC3faX~n zU>N+DX2iim$Y;UcKPRI}LkhJJPo^wbtAvWlgi%rM7w~XQiI0CC&&zlyA0~pxMP^9y zFPv4DR%?~zvd@)Gi*>Hp7Qaf)mBre|-of!IImxh2u^6w=xv~h``l=sY1!w^Ffbou; z5AZw?8UW7~d#cPXYr0QQjo>dlV|cFcj9JWc#hN;qpF*yfDi(XEv}(L4RB_wj$7dl* zUT0gcU;p#@RAE%}_c>4kb!n7SK|rpLl{-7q$rN;U31Tw(sG? zU0@A1Z1VY1ML}{$VrnYBF9GXWjrBOvGUH>@qqJ#41KVMl30S9v(VS$muD*H0x{X_! z>!Vqiut+AvoCuULv(uS$SR0+Pnv|U|Gz+~(Dr@pr3}k2m|9vbMregT2%3rrP^R~Wl zHj@~chG){LI9v-Q!Uy6>Jg^%x6`u|#_Qg|icofv_wDy>3`Mz*7Jz>w(f$_2A-X!eN z#*L{gYLxmqp_|;e0}gWb`;A{`rp9kCRO4A-yo3m@rvnwr+t-^QgHs55?-T9~Wv zKU4Mrb*2o4LatLw#cZ0Wzto_fo1F`zQqSwv!foQbCI#&|ng%wbEvC=+o8RQip{1qe zRKS7tR|ac27HIbYY2&?fXk)P*DP~jlJW>9PqwXq4q*CcfUHRNvTdHmmNn>6{*a0w$ z#N4LUs2u2ucJ}r5>@HQ?I{RXVaa5t;(Ki~UB~z=@vqbgm=mRsfJBByqYI|?buHI-V zextqJxe7fURDboX+QH%|7E7sG`^1&InQhE%!}@|(v$duL^SYYla8*3CX^(L2UU{Ve zj`g?ZRYaX|PB}+PCe;xdI&mW9Ct()lL}*5SwXu^)(eIft_qjU3z$joA{NtUByq1rk zWQKXS`$L2`U>{$P@ESZ1A^aqsn-LZ~tjNK@?-!ESV(pCVm<6pVuJaQcA6qQ^%Qo~X zUhC9(58n!avss8TE-dpy=^W&WQ4wUgG_^*rG4sD;7H^e-UOrfkm50^meBFg#Pa?{v z@ZSS*ZX^kGbC<4 z2_N(fiPvk(jF)Ce-0MW1(MRu9Gg?~2>?7KNrJH(KMsYd`g10Xt3~O4e;;xWKqIpOc zcGYc)d;JrV_@H)lXHCQxGc4}TRls1lZxYEhu+|?7XZ9*)-Xhi??WcBSTDFBRd%#w> zxiSk6p~Y`?+v6&D;v<1C3s3;OO3=c8&juiKz0A24j;?c;?H^+6){%7dKxH zl8QE8UahVd9a7%cAr`{0V(i>y{%5B2wuE79GxgjOSM-Il?zcm~d&tfI-tNzm;lL&s+| za6SotTe&9Ai{ry@!wJOGNhtY6j<5wL#I>Y AmH+?% literal 0 HcmV?d00001 diff --git a/Clase/oparteneri.vcx b/Clase/oparteneri.vcx new file mode 100644 index 0000000000000000000000000000000000000000..50f7a2e2aa4e95ec822e0ee87c1d2ac449e00c81 GIT binary patch literal 33079 zcmeI4d3Y36`nFH#VAE02!39AW5LA>A>`teXG>VXoBqW`rI|+fX4Tu7Qg2J#V3bKiS z-~uWrA__XV;DYc|5yS;`+!a|BaYS%n#05lQ1i!oboTg4v0lF&r^LwxB&Rd+SdY*o( zs%txa@YeVI_2L8}8YEsXsz*JS5G92fWnGFRA?9VVm}pRKq4J{qaCuICwlUwspQLK@ z%ko1xrDYkR5+RDts$qUsVMb}GTqo3=oLFuB=={RsESf_X)G$9Yqclfpgf6OKesN~k zqKr_Ep&GihhWRBKk({D3W3~vjt7(3uxFjc1mY-89LcW^km*r%Y<*)%lfg0wAa?0|G zv!fM;f;G(N^JNuh%g@&_I=|``C@zf7V~z-A)UqRh*nv3Z6P8#r8$vqIoW*n zP(BMCZ$2U+V<#VPzMuKw6UPB1@}`MpmtKaKhQPB1^6`PbAiznt=E zHX<~bKh^6yJv!_E|7n?3918JGXqh#%--r<{tA?%3Q}5(Ux2(u7$}X-bZQ0jXQ0ff_ zy#uHB z<}FC}2P>tSKQ)-z4skae;=8;X-iFVr?ew@@)I!G&{n)uuKlpW_?#kq~I1X`rJ$+iQ ztioF!h!mw$S*kzX>-7dgnTg`h_K9LY_?b51@*it1?Kb9*Qp>~)W>))mHM3xPmps#K zJ0`EfGPn=M!P1{SG{TcQ|B{^7DjF_q~?zto{ww%0g7 zg28|{*?$9-7}1|2aMTr;Vm5VuU7AHtS80B~FU7x#YK-_Bl@-C0oT^S!r>p1;n|~~u zF+16)Oq%t^z=#MH_Jg-E&#hB4ziIX*o6d+mE8h1<-#aG!gu4-0UnHDt6)B#ezbE0Sro#E|_M6nru0jCl78Dzftg086cMYUtB zS61!~btx|@SDP_8;QJpJ&RvK%%t{oeAC-rE`)_4l-7QhftY=oalVyK~dArT8#y@u_ zRQW8LSz*8%N=pf6nr2NgF`^AQ1@hqV0aL7sQXK!#%(An*g_+&cN=>sth~Em&!dln} zv-V1}*}u8OLH=zgYBmc5(}Ssj;3>I@;vBdNO5tj_7o3J>R_OJXcuR_kqDN!Y><5Gs z@)AW`=mcdj8JvdItk^XB4&mRRWqzUvKpu<%r=gh@RCo(=3w*Kb8Asz62=9gSyC#au zAPcSrBj$$^#m7bVj5RYhV`(^?8a)vQgMObkbxBF0SOH(bFHkR>D3ZZxSk0m*Vre!L z;YIKsY=`~OI#QQr(G#&Wn~d;0SPL6qH#9D-6En5Xvdr(fs>)tTNfaN!&rmOrD9(UO!HBQPsp+*b>sFE1U8`(ekgGEs zf}{>yYM=u+jku4-UTSAQTy3Y@G1fO@*jrE<=#~@PjQ&7TMxtRm`alE=^H|C90>%^AR&CfwK zw?K~ZJ>xZ*-xu_*ekMUQ<=(y_e8RL51MZPWW5eGQ#l^Rp`)>*JUx1yn&7<{xwNC8A zm}WfIddtf~`Nox6nQdalm*7d54-?>0Fk;_bE)fJfVVZd>%Ds_pDSqQ^fii1_*dMc8 z;=k}EyaE52Y0p6aFjdV;vvbP|Ota4rei|Nv8E_-qH>1wX%DU$o_aLgW@d#HyE~LX> zjeKXFn01eM^KTc9%FGjQDDzOC*AwFgK$wJJp+?pAre1X1`5vi7((SSP6H-y4$3| z!O`494zI15@l35M3nJDSPJu(iTw((Rz=+ZzF41dXZOx3g-^#26vG&j$&V;?!y2OQG z#9yv1d0ZfFa^6JDa zE9@=y7Ntcy5ze8&cxzAQ3JP)SANT`Hq*>z}^XY|FWqj5OG zU7-WCg)^Zbt4_>}d;OFidBzKAW!3@Vrf@p^FViKyf#KjZw0&ln<@vi9w*_8bYFe^4 zttY}c5P%j?AJ%3_vsqWV#N(;H~lAat$3;MkCl-M2Qu}}gB1NIE` ztzb1Pl$8a&{^Z?Ccr*EZSPYF-+j%M6z$V)>*3BZ`f=Yin7tdH_`AX~x@@3$HM}77T zj#rs9GoE79KD$Q=Pa=czK#y!j(E!*>oj#GkGXv!LDZZ z4D_vFHS1zlwn+)UOMVsZfpb;cZ%sHUH@0VNHOn_EJ6nmJLjLVsm-q;VgVV5@8E<&h zKI^B1Bjg-t28+&-W)siik?Bl(#=2R=+pTMkm*=zCK3k~7=8z{scSulePO7t-87E>@ z*)M0vPyQ`=BRm5>)z;{Am*|*O+sb%%6|3xWC3XS15&Xx)V-q+HYh~Kec)JoFLB19` z!ny|1Z1E}FZMp0jTg~`V$0}Q^#GWTFhOuzIYI9PZ)r>+8IMmJ$a}t( zua$-hPRcvX7iIC7Tg|lV*}Y0^3V9TSVBgpF4D=6SHB;9!<4XOt68?nzCd`Mws|XL@=m{>> zRyUOy9Y5-OcHlMn$-g6ShUMT_ZS7Ylh#{{yuPoae4yP3J03WNYw-PHRcZSBW@@0Dl z`WDdlS=6k=c=A-0J)wjjAkTpQu7GR!@jSDxCM;JAkW+`r{n#rnPsQ?d=)*)jdNp~ zG`ktG9*_sA&>SB8Dqd;pa#piwUyL-Hj_^R}203s6^!rkZv?OP3vkIQ5#cCFP=_1Wi z5jz`P@at9~K81Q<#N%6pcz3g$j`y$CEZP?%%~m5eAEv`C&>i00B&C1eAjDIj#%m*& zvzi&_MzzltAT|~TK?V5XrcdOGDde6X*VZih_FGm~j95Ep24}$DkA!FmM*O&5h`{U7 z$+-XMl^y#rWpa8T=ub`wv_|akS|PrJ&)`|;4^G20i+-s~GxDPytn|PK)BUANIGdab z&Efagq}9#jp{woLTFs*G^`%*FC00c43~eCcRcSEs6(MeXxwdA})0H&quf$5pIdB>5 zUnLEulgF;Ct(oy7FXM*{Y{u)9SWj{h1dM;bBn`%|U^Bkx&`dk)A2aK%#EQrna0$3y zkOniK=T{TYIW+5ArF%qHHe8AIBbUJy&}6wZSn#Y6v!1D~nYPbvRbs=){UIODep(tl z{ge<3mpL}mJH=&Xvz6Ec@(8GeOa3Vho_JD-2cD=CGkFG?p~P+_4~GgEwbY)0zI3(k zS@)teF{4NeYgcZ;eoQ7#;oEsy-?9AxTYUDmEQoZryTvNYK=?dx!OxEhu^Davr%~0cvN$&q?WdNN^+4DUt>G{5`ywGO1*f5z zWe2>G)UFvJ^W1nY!uuZ)Vh4NxFGACYrPaKLsB(clTiuM__wJcx(L+B#zhJVz2Vz;^ zhvtw7YvxOX8|U(+o>LpM*suq6=--Z5FDQhLa3PGCZO=eoTCc3qTbfmr8@+hSebyV{ zG-v~j;pkmL<5+b-^k72*IA6^1gBv&Gk&kHE}m1B@M!XN zkOfc9lvd^BJ~QmuTFqizT2xk|#4^c#I29J$Y0p4k+G-X(gUCzFOeH*?JRI`indx%% zO7hir=u#)2wwm$oD*EI}W#vjNmz)k~!is4p7d_q*Rx@Mth}vgMl<++Abm#}`r%I{s zCv#H1{dlr9w_D9(ual@Oq{KRrz0d%jo>;R`Jgru<=p&QdXAdjkyT}uv2dtSOWp~`l zZ?A5N$HH93Y8HE)L}fWjERB4LF%6I1Y_4o~%4!yUWRjKLr-Y}F$3O|ZG)`J<8Y4v4 zQTFVtX7t6xj>apMSbK5{`0XDI;s&Q-HH-e*R#rAf2@fXsf)sdgq_pZnE*@de)@l~( zhGd^*C^0|zLipn*?t;N-Sk1KOvs;z$FmiwB0FT@#tqRHI!|mBx&A63|?Xz4Z79_WY zdT`G$dj|T_Rx|BkaFP-pNgfED;PD&e>S1!_^}5u_r%f|o(C;nIC{N*f7CT)PDzU4` zmxCLgA1Xx$T*v=WF! zKV;x&9HYdpBliS9tiAT+qQ_gpYNmb9o>Rh)lJA3|u;UsjHH$oN!0}{jZnv6g-?KZE z*f{bK$b#Kh*DMrItJO^1HyRJ{o0af;-%M5G54^AWQ5kH@oNQ9#-wDG4W^TV*ZllxfPAhk}c!8FrH{3x?4GuHR4B^&Ftb9kHLGe1-^%RxpiWujrdV!-z(uG($U^oNEQM9@F8lySJQH$@ePAcd%JdOG z%Iy6jx7Y?ppkc9Fw18|dqJD{6WPzQ~%(M|d%B)$~EiQ!u=mpooY%rp4#4XxZ*4E7E z^HgTr`nkn!@bq_!rqBio!HB)&s|MEAtjsi9IK(ZM!3Xda?13|eN`sB${|u|Gneh{P zRaxf|R021^Z7>s_2P5to=@y}}&dn?%emdRi7GW3%vtcp315QIbK(rA*s;Pg(x4U`a;uf8u z6s`v&yp!Bw5ZH;TX0Z`J%B;g=w1W;JZa(No-F7Q6^=!bbQBj94+% zE&dC3!Zg!I{HV&-OmmA3a2S&A;B*B+a2lGKHsVK_d8T6kIZzHmUTI1Q_r zG2%y=`DeLBR~QZx;2wAyoQB0LI^su}-FBB-%!AeN0elGu!D(n_+K3-z_Udd*;J$5?&pd>mf_3mI?1qH9rCBa{>^ytMnwfRPPydIc*l_Z#Fbh_yHYe3t z&5Q?lek*5;_&M`oY1V?=9}e%!fBsoBoO8owk~3V=P*(lxCNcuYv*?soH)b zpYd{SD~r7XWMtjWSEbl5MqZ6Lq=VD2R;G>knWu!8kXOJu*rVF6eT@t0T6@O2nPtRJ zNKkvOO#Ws<@g9Fg~ zJ$nZF7O+;P9gY7`!jsAO!XkK2wdMSa^W+EijICzch@arcQY@ET4g+A8YSTY)ywg@Q zZN$%BC489d`NS>Gg-&3^tK`<7*S50QD?q+yLpMsXapXJTet2EA#aoTOoV7A_Ju^o9 zwAdug+LJp%R~Vt%ek50HbzGTs#LuFyq}a3M)$l$XP;L4rj(1wC%sS#HvR#_>BM*o1 zuvE3R`kDvC9ks1Y8yEBYH&X1Bf4jxm&>9NCX;>@M#>FgC!Y`BGg)iW!Y8&@0r>~v% zjCC{1h@X;OQmhYoDBKK>t2QUqS!81qW+eS?nhoRMzKrDK?Zm4yMBks;zD+(?`lz<8^brp_z(`Nw%S%^8SztbM4DYo{s-I+PpP&xM|pgz zC%a7IHP#Lg>xiGlZYlO0c@2CB2UT0V2KsVVGi}6AX#;82pL`?S3QwpuT_oP=xJUeq zQawgYZF(h%tCAXs2%OHe5mT8q!rQZfnA5})oi_gDF#ie| zbFbMJQR~DOGR>-YX<_#JT#u+f&m-DE3S>erFyck>J~bT^J6Sf(s&{E&_SpR%@e1sK zpFlj|5lz8qR5jDPv@qL`aMFVw;f2l+h9TfIs+nnBTA1a{_lUkQ1?Ixzum+rlW>&3B z3$w=;Na2^sAHjC`UA6t|A&+o9Y|q#Jhu1aa@@)i*;#XcK=Hr@ff@f8{u1Muu>X4LB9Ky z+M30>v@pA4jYr%EE8!j30EfVc*VlT)=Wo>3EY_ukS=;p^IE-lQqBX$6qe&G>qp(9j)5luIGLoXF50=8~;4~~|dY4wc?H+L! zTnS;g8peausA5*7ON-6;5yIcWsb6#Pg!YgJPQz*z>(auk`3`R3pc1ZwTVNhI4U5^a zE-lOkf8!AoU@5GG^{@k+hGtf+OAE6l|HcG1!ng1%obhd)nN{u5ntFrSS5K7jD|(3&B>;;nrU5Hhn2ABC+TvnJ$AAOL+-+g9?SQ)^q9)}{4PLn-zpc@G?dR%h5VIB{iKm(~O&Je#}_ zo`Makt>nxkF|3h2V|_DPy0o&-kzx_@-(eU$pxX3L9PhN%OnU|RqY^$!KK=|3l zv@WgIt)!Tb+zEf z$Tz`6Sf<+ItwvwYTA9|RtX*1H`lML_xe^A#9MyJOa*}B5uWe;om)5^iq}Wg7qi}j4Nu+|)uvVsZ{M@I6 zA0xj2YvFs(UycgvXJm!#r54+OEh>5}kAG8C%V? zE-hEC6#EOg1+<3>)uw;qc&Dvq+V$)?CA^mW5p09RJoy18kf-F=wlb|tE3ZI`bt4ae z5%7>|i??%wWji3eOfe~+!-wQdf%+jSbvsjAFCqD_RV25hcKXJU% zdS#X_t&9?BRzmIzLt(CJ`%5@UEGl (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS afisdebsicred AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid2.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grid1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_buton1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_buton2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_nract" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_nract2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_pereche" UniqueID="" Timestamp="" /> + + * + *p: col4 + *p: npereche + *p: sql_act + *p: sql_ireg + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 416 + Name = "afisdebsicred" + sql_act = '' + sql_ireg = '' + Width = 749 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 750 + _shape1.ZOrderSet = 1 + _shape2.Height = 29 + _shape2.Left = 715 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 34 + _shape2.ZOrderSet = 2 + Lb_titlu_alb_b121.Caption = "Pereche inregistrari" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Left = 719 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 4 + * + + ADD OBJECT '_grid1' AS _grid WITH ; + ColumnCount = 10, ; + DeleteMark = .F., ; + Height = 319, ; + HighlightStyle = 1, ; + Left = 12, ; + Name = "_grid1", ; + Panel = 1, ; + RecordSource = "v_actcd", ; + Top = 57, ; + Width = 363, ; + ZOrderSet = 5, ; + Column1.ControlSource = "dataact", ; + Column1.Name = "Column1", ; + Column1.Width = 64, ; + Column2.ControlSource = "nract", ; + Column2.Name = "Column2", ; + Column2.Width = 71, ; + Column3.ControlSource = "suma", ; + Column3.InputMask = "999 999 999 999.99", ; + Column3.Name = "Column3", ; + Column3.Width = 81, ; + Column4.BackColor = 252,253,200, ; + Column4.ControlSource = "", ; + Column4.Name = "Column4", ; + Column4.Width = 112, ; + Column5.ControlSource = "explicatia", ; + Column5.Name = "Column5", ; + Column5.Width = 96, ; + Column6.ControlSource = "scc", ; + Column6.Name = "Column6", ; + Column7.ControlSource = "scd", ; + Column7.Name = "Column7", ; + Column8.ControlSource = "", ; + Column8.Name = "Column8", ; + Column9.ControlSource = "dataireg", ; + Column9.Name = "Column9", ; + Column10.ControlSource = "fdoc", ; + Column10.Name = "Column10" + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT '_grid1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Document pereche", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column4.Text1' AS textbox WITH ; + BackColor = 252,253,200, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont cred", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column7.Header1' AS header WITH ; + Caption = "Cont deb", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column8.Header1' AS header WITH ; + Caption = "Explicatia 2", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data ireg", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2' AS _grid WITH ; + ColumnCount = 8, ; + DeleteMark = .F., ; + Height = 319, ; + HighlightStyle = 1, ; + Left = 378, ; + Name = "_grid2", ; + Panel = 1, ; + RecordSource = "v_iregcd", ; + Top = 57, ; + Width = 356, ; + ZOrderSet = 5, ; + Column1.ControlSource = "dataact", ; + Column1.Name = "Column1", ; + Column1.Width = 66, ; + Column2.ControlSource = "nract", ; + Column2.Name = "Column2", ; + Column2.Width = 69, ; + Column3.ControlSource = "suma", ; + Column3.InputMask = "999 999 999 999.99", ; + Column3.Name = "Column3", ; + Column3.Width = 92, ; + Column4.ControlSource = "achitat", ; + Column4.InputMask = "999 999 999 999.99", ; + Column4.Name = "Column4", ; + Column4.Width = 91, ; + Column5.ControlSource = "fdoc", ; + Column5.Name = "Column5", ; + Column6.ControlSource = "dataireg", ; + Column6.Name = "Column6", ; + Column7.ControlSource = "explicatia", ; + Column7.Name = "Column7", ; + Column8.ControlSource = "acont", ; + Column8.Name = "Column8" + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT '_grid2.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. doc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Achitat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data ireg", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grid2.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Acont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grid2.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + Height = 372, ; + Left = 4, ; + Name = "_shape3", ; + Style = 3, ; + Top = 36, ; + Width = 741, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'ck_nract' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = nract, ; + Caption = "Nr. document", ; + Left = 99, ; + Name = "ck_nract", ; + Top = 40 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_nract2' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = nract, ; + Caption = "Nr. document", ; + Left = 456, ; + Name = "ck_nract2", ; + Top = 40 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_pereche' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = pereche, ; + Caption = "Pereche", ; + Left = 240, ; + Name = "Ck_pereche", ; + Top = 40 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_buton1' AS cmd_buton WITH ; + caction = do_listare, ; + Caption = "\ + + ADD OBJECT 'Cmd_buton2' AS cmd_buton WITH ; + caction = do_excel, ; + Caption = "\ + + ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ; + Caption = "\ + + ADD OBJECT 'Lb_1' AS lb_titlu_alb_b12 WITH ; + Left = 23, ; + Name = "Lb_1", ; + Top = 36 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_2' AS lb_titlu_alb_b12 WITH ; + Left = 390, ; + Name = "Lb_2", ; + Top = 36 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE Destroy + RELEASE pnPereche1,pnPereche2,pctitlu + + ENDPROC + + PROCEDURE do_cauta + STORE "" TO t1,t2,T3 + lcAct = this._grid1.RecordSource + lcIreg = this._grid2.RecordSource + + + IF thisform.ck_nract.Value=1 + T1 = T1 + thisform.ck_nract.filtru_vfp + ENDIF + if this.ck_pereche.Value=1 + lcControl = this._grid1.column4.ControlSource + val1 = thisform.ck_pereche.cvaloare1 + val2 = thisform.ck_pereche.cvaloare2 + T1=t1+" and (" + lcControl + ">=" + val1 + ") and (" + lcCOntrol +"<=" + val2 + ")" + endif + IF thisform.ck_nract2.Value=1 + T2 = T2 + thisform.ck_nract2.filtru_vfp + ENDIF + + SELECT (lcAct) + IF !EMPTY(t1) + t1=SUBSTR(t1,5) + ELSE + t1=".t." + ENDIF + + SELECT (lcAct) + SET FILTER TO &t1 + *!* SUM suma TO totsumdeb + *!* GO BOTTOM + + + SELECT (lcIreg) + IF !EMPTY(t2) + t2=SUBSTR(t2,5) + ELSE + t2=".t." + ENDIF + SELECT (lcIreg) + SET FILTER TO &t2 + *!* SUM suma TO totsumcred + + *!* GO BOTTOM + thisform.Refresh + ENDPROC + + PROCEDURE do_excel + PRIVATE pctitlu + pctitlu = thisform.lb_2.Caption + lcIreg = this._grid2.RecordSource + SELECT (lcIreg) + thisform.AlwaysOnTop=.f. + REPORT FORM ist_deb_cred TO PRINTER PROMPT PREVIEW + thisform.AlwaysOnTop=.t. + + ENDPROC + + PROCEDURE do_executa + PRIVATE pcPereche + SELECT v_actcd + SCATTER NAME pcPereche + + lcPereche = thisform._GRID1.coluMN4.ControlSource + + opereche = CREATEOBJECT('cautper') + + + SELECT v_iregcd + LOCATE FOR nract = pcPereche.&lcPereche + opereche.pereche = lcPereche + + *!* opereche.lb._cbbase1.controlsource = 'pcPereche.&lcPereche' + + opereche.show(1) + + IF buton = 1 + thisform.LockScreen = .T. + save_grid(this._grid1) + SAVE_grid(this._grid2) + USE IN v_actcd + lcSql = this.sql_act + lcCursor = [v_actcd] &&Act + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() + + USE IN v_iregcd + lcSql = this.sql_ireg + lcCursor = [v_iregcd] &&Ireg + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() + restore_grid(this._grid1) + restore_grid(this._grid2) + thisform.LockScreen = .F. + ENDIF + RELEASE opereche + ENDPROC + + PROCEDURE do_listare + PRIVATE pctitlu + pctitlu = thisform.lb_1.Caption + lcAct = this._grid1.RecordSource + SELECT (lcAct) + thisform.AlwaysOnTop=.f. + + REPORT FORM ist_deb_cred TO PRINTER PROMPT PREVIEW + thisform.AlwaysOnTop=.t. + + ENDPROC + + PROCEDURE ck_nract.Click + thisform.do_cauta + ENDPROC + + PROCEDURE ck_nract2.Click + thisform.do_cauta + ENDPROC + + PROCEDURE Ck_pereche.Click + thisform.do_cauta + ENDPROC + + PROCEDURE _grid1.AfterRowColChange + LPARAMETERS nColIndex + thisform._grid1.SetAll('DynamicBackColor','IIF(.t.,RGB(255,255,255),RGB(255,255,255))','column') + thisform._grid1.column4.BackColor =RGB(252,253,200) + + lcAct = this.RecordSource + lcIreg = thisform._grid2.RecordSource + thisform.npereche = EVALUATE(this.column4.ControlSource) + SELECT (lcIreg) + thisform._grid2.SetAll('DynamicBackColor','iif(nract=thisform.npereche,RGB(191,223,255),RGB(255,255,255))','column') + SELECT (lcAct) + thisform.Refresh + ENDPROC + + PROCEDURE _grid2.AfterRowColChange + LPARAMETERS nColIndex + thisform._grid2.SetAll('DynamicBackColor','IIF(.t.,RGB(255,255,255),RGB(255,255,255))','column') + + lcIreg = this.RecordSource + lcAct = thisform._grid1.RecordSource + *!* this.SetAll("DynamicBackColor","IIF(thisform.rec=RECNO(), RGB(191,223,255) , RGB(255,255,255))", "Column") + thisform.npereche = EVALUATE(this.column2.ControlSource) + thisform.col4=thisform._grid1.column4.ControlSource + SELECT (lcAct) + thisform._grid1.SetAll('DynamicBackColor','iif(EVALUATE(thisform.col4) =thisform.npereche,RGB(191,223,255),RGB(255,255,255))','column') + SELECT (lcIreg) + thisform.Refresh + ENDPROC + +ENDDEFINE + +DEFINE CLASS cautper AS _frmbase OF "..\libs\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="lb" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + *p: pereche + *p: valoare + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 89 + Name = "cautper" + pereche = + valoare = 0 + Width = 352 + _shape1.BorderStyle = 2 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 351 + _shape2.Height = 29 + _shape2.Left = 291 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 62 + Lb_titlu_alb_b121.Caption = "Pereche" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 4 + BUT_TERMIN1.Left = 321 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 2 + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 291, ; + Name = "But_renunt1", ; + TabIndex = 3, ; + Top = 1 + *< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'lb' AS cb_tx_simplu WITH ; + Left = 32, ; + Name = "lb", ; + TabIndex = 1, ; + Top = 48, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "v_iregcd.nract", ; + _cbbase1.RowSourceType = 2, ; + _lbbase1.Caption = "Pereche", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE inainte_de_do_termin + + lcCod = pcPereche.cod + update_actper(lcCod) + + lnSucces = sqlsetprop(gnhandle,"Transactions",2) + + SELECT actactan + IF lnSucces > 0 + lnSucces = oscrie_in_fisiere(2,.t.) + ENDIF + + IF lnSucces >0 + lcSql = [delete from act_temp] + lnSucces = SQLEXEC(gnHandle,lcSql) + ENDIF + + IF lnSucces>0 + SELECT actactan + LOCATE FOR id_act = pcPereche.id_act + IF FOUND() + GATHER NAME pcPereche + REPLACE id_util WITH gnidutil + ENDIF + lnSucces = oscrie_in_fisiere(0,.t.) + ENDIF + + IF lnSucces < 0 + SQLROLLBACK(gnhandle) + llReturn = .f. + ELSE + SQLCOMMIT(gnhandle) + llReturn = .t. + ENDIF + + lnSucces = sqlsetprop(gnhandle,"Transactions",1) + IF lnSucces < 0 + MESSAGEBOX('Programul a trecut pe tranzactie manuala. Iesiti si intrati din nou!',0,'Atentie!') + ENDIF + + RETURN llReturn + + ENDPROC + + PROCEDURE lb._cbbase1.LostFocus + lcPereche = thisform.pereche + pcPereche.&lcPereche = v_iregcd.nract + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_verificare_globala AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column1._image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column1._image2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column3._editbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column4._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_refacere1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_diferente" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 450 + Name = "frm_verificare_globala" + Width = 800 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 800 + _shape2.Height = 29 + _shape2.Left = 697 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 103 + Lb_titlu_alb_b121.Caption = "VERIFICARE GLOBALA" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 6 + BUT_TERMIN1.Left = 768 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 3 + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 735, ; + Name = "But_listare1", ; + TabIndex = 4, ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_refacere1' AS but_reface WITH ; + Left = 702, ; + Name = "But_refacere1", ; + TabIndex = 5, ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'ck_diferente' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Doar cu diferente", ; + Left = 24, ; + Name = "ck_diferente", ; + TabIndex = 1, ; + Top = 36 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'grid1' AS _grdrow WITH ; + AllowHeaderSizing = .F., ; + ColumnCount = 4, ; + DeleteMark = .F., ; + GridLines = 1, ; + HeaderHeight = 20, ; + Height = 372, ; + Left = 14, ; + Name = "grid1", ; + Panel = 1, ; + RecordSource = "crsverificari", ; + RowHeight = 55, ; + ScrollBars = 2, ; + TabIndex = 2, ; + Top = 60, ; + Width = 778, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "explicatia", ; + Column1.FontBold = .T., ; + Column1.FontName = "Arial Narrow", ; + Column1.FontSize = 10, ; + Column1.Format = "!", ; + Column1.Name = "Column2", ; + Column1.ReadOnly = .T., ; + Column1.Width = 213, ; + Column2.Alignment = 2, ; + Column2.ColumnOrder = 1, ; + Column2.ControlSource = "", ; + Column2.DynamicCurrentControl = "iif(empty(mesaj),'_image1','_image2')", ; + Column2.Name = "Column1", ; + Column2.ReadOnly = .T., ; + Column2.Sparse = .F., ; + Column2.Width = 46, ; + Column3.ControlSource = "mesaj", ; + Column3.DynamicForeColor = "IIF(selectat=1,RGB(255,0,0),RGB(0,0,0))", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Sparse = .F., ; + Column3.Width = 439, ; + Column4.ControlSource = "selectat", ; + Column4.Name = "Column4", ; + Column4.Sparse = .F., ; + Column4.Width = 46 + *< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid1.Column1._image1' AS _image WITH ; + Height = 32, ; + Left = 28, ; + Name = "_image1", ; + Picture = ..\..\comun\graphics\checkmrk.ico, ; + Top = 23, ; + Width = 32 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="image" /> + + ADD OBJECT 'grid1.Column1._image2' AS _image WITH ; + Height = 32, ; + Left = 23, ; + Name = "_image2", ; + Picture = ..\..\comun\graphics\pericol.ico, ; + Top = 47, ; + Width = 32 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="image" /> + + ADD OBJECT 'grid1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rezultat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontBold = .T., ; + FontName = "Arial Narrow", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.Column3._editbox1' AS _editbox WITH ; + FontName = "Arial Narrow", ; + Left = 48, ; + Name = "_editbox1", ; + Top = 23 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="editbox" /> + + ADD OBJECT 'grid1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Mesaj", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column4._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + Left = 7, ; + Name = "_checkbox1", ; + Top = 35 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'grid1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Selectat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + PROCEDURE do_listare + If Reccount('crsverificari')>0 + Thisform.AlwaysOnTop = .F. + raport_mesaje(Thisform.lb_titlu_alb_b121.Caption+" "+Padl(Alltrim(Str(gnLuna)),2,'0')+"/"+Alltrim(Str(gnAn))) + Thisform.AlwaysOnTop = .T. + Else + Messagebox("Nu sunt inregistrari de listat!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_reface + If Used('crsrefaceri') + Use In crsrefaceri + Endif + Select sursa,Cont,tip From crsverificari Where selectat=1 Into Cursor crsrefaceri + + If Reccount('crsrefaceri')>0 + *!* orp=Create('parola') + *!* orp.Show(1) + *!* If buton # 3 + *!* RETURN + *!* ENDIF + Local lcsursa,lccont,lctip + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.AlwaysOnTop=.F. + save_grid_tag(Thisform.grid1) + + + Select crsrefaceri + Scan + lcsursa=Upper(Alltrim(sursa)) + lccont=Alltrim(Cont) + * lctip=tip + lctip = '1' + Do refacere With lcsursa,lctip,lccont In orefaceri.prg + Select crsrefaceri + Endscan + + If Used('crsverificari') + Use In crsverificari + Endif + Create Cursor crsverificari (sursa c(20),Cont c(20),tip c(1),mesaj c(200),selectat N(1),explicatia c(50),luna N(2),an N(4)) + Do VerificareLunaDeschisa In overificari.prg + Select crsverificari + Go Top + restore_grid_tag(Thisform.grid1) + Messagebox("Refacerea s-a incheiat!",0+64,"Info refacere") + Thisform.AlwaysOnTop=.T. + Thisform.LockScreen = .F. + Thisform.MousePointer = 0 + Endif + + Use In crsrefaceri + Thisform.ck_diferente.Value=0 + ENDPROC + + PROCEDURE do_sterge + Do CURATARE + Messagebox('Refacerea s-a incheiat!',0+64,"Info refacere") + + ENDPROC + + PROCEDURE Init + DoDefault() + + Select crsverificari + Go Top + + If m.nivel > 0 + Thisform.but_refacere1.Visible=.F. + Thisform._shape2.Width=Thisform._shape2.Width-Thisform.but_refacere1.Width + Thisform._shape2.Left=Thisform._shape2.Left+Thisform.but_refacere1.Width + Endif + ENDPROC + + PROCEDURE ck_diferente.Click + If This.Value=1 + Select crsverificari + Set Filter To !Empty(mesaj) + Thisform.Refresh + Else + Select crsverificari + Set Filter To + Thisform.Refresh + Endif + + ENDPROC + + PROCEDURE grid1.Column2.Text1.DblClick + lcExplicatia=Upper(Alltrim(This.Value)) + Thisform.AlwaysOnTop=.F. + Do Case + Case lcExplicatia='BALANTA' + Do viz_balanta + Case lcExplicatia='REGISTRUL DE VANZARI' + Do viz_regvanz + Case lcExplicatia='REGISTRUL DE CUMPARARI' + Do viz_regcump + Case Substr(lcExplicatia,1,17)='BALANTA ANALITICA' + Do lans_balanta_parteneri + Case Substr(lcExplicatia,1,12)='INREGISTRARI' + Do lans_ireg_parteneri + Endcase + Thisform.AlwaysOnTop=.T. + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_verificare_globala_per AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column1._image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column1._image2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column3._editbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column6._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_refacere1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_explicatia" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + + * + *p: nfinal + *p: ninit + * + + * + DoCreate = .T. + Height = 450 + Name = "frm_verificare_globala_per" + nfinal = 0 + ninit = 0 + Width = 800 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 828 + _shape2.Height = 29 + _shape2.Left = 696 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 105 + Lb_titlu_alb_b121.Caption = "VERIFICARE GLOBALA" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 768 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 736, ; + Name = "But_listare1", ; + TabIndex = 5, ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_refacere1' AS but_reface WITH ; + Left = 703, ; + Name = "But_refacere1", ; + TabIndex = 6, ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_explicatia' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = explicatia, ; + Caption = "Explicatia", ; + FontName = "Arial Narrow", ; + Left = 24, ; + Name = "Ck_explicatia", ; + TabIndex = 1, ; + Top = 41 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 108, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 37 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid1' AS _grdrow WITH ; + AllowHeaderSizing = .F., ; + ColumnCount = 6, ; + DeleteMark = .F., ; + GridLines = 1, ; + HeaderHeight = 20, ; + Height = 360, ; + Left = 13, ; + Name = "grid1", ; + Panel = 1, ; + RecordSource = "crsverificari", ; + RowHeight = 41, ; + ScrollBars = 2, ; + TabIndex = 3, ; + Top = 72, ; + Width = 779, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "explicatia", ; + Column1.FontBold = .T., ; + Column1.FontName = "Arial Narrow", ; + Column1.FontSize = 10, ; + Column1.Format = "!", ; + Column1.Name = "Column2", ; + Column1.ReadOnly = .T., ; + Column1.Width = 213, ; + Column2.Alignment = 2, ; + Column2.ColumnOrder = 1, ; + Column2.ControlSource = "", ; + Column2.DynamicCurrentControl = "iif(empty(mesaj),'_image1','_image2')", ; + Column2.Name = "Column1", ; + Column2.ReadOnly = .T., ; + Column2.Sparse = .F., ; + Column2.Width = 46, ; + Column3.ControlSource = "mesaj", ; + Column3.DynamicForeColor = "IIF(selectat=1,RGB(255,0,0),RGB(0,0,0))", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Sparse = .F., ; + Column3.Width = 392, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "an", ; + Column4.Name = "Column5", ; + Column4.Width = 36, ; + Column5.ColumnOrder = 4, ; + Column5.ControlSource = "luna", ; + Column5.Name = "Column4", ; + Column5.Width = 33, ; + Column6.ControlSource = "selectat", ; + Column6.Name = "Column6", ; + Column6.Sparse = .F., ; + Column6.Width = 47 + *< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid1.Column1._image1' AS _image WITH ; + Height = 32, ; + Left = 28, ; + Name = "_image1", ; + Picture = ..\..\comun\graphics\checkmrk.ico, ; + Top = 23, ; + Width = 32 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="image" /> + + ADD OBJECT 'grid1.Column1._image2' AS _image WITH ; + Height = 32, ; + Left = 23, ; + Name = "_image2", ; + Picture = ..\..\comun\graphics\pericol.ico, ; + Top = 47, ; + Width = 32 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="image" /> + + ADD OBJECT 'grid1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rezultat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontBold = .T., ; + FontName = "Arial Narrow", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.Column3._editbox1' AS _editbox WITH ; + FontName = "Arial Narrow", ; + Left = 48, ; + Name = "_editbox1", ; + Top = 23 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="editbox" /> + + ADD OBJECT 'grid1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Mesaj", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "An", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.Column6._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + Left = 14, ; + Name = "_checkbox1", ; + Top = 35 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'grid1.Column6.Header1' AS header WITH ; + Caption = "Selectat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + PROCEDURE do_cauta + Local lcFiltru + Select crsverificari + Replace selectat With 0 All + lcFiltru=[!EMPTY(mesaj)] + If Thisform.ck_explicatia.Value=1 + lcFiltru=lcFiltru+Thisform.ck_explicatia.filtru_vfp + Endif + Select crsverificari + Set Filter To &lcFiltru + Replace selectat With 1 For &lcFiltru + Go Top + Thisform.Refresh + + ENDPROC + + PROCEDURE do_listare + If Reccount('crsverificari')>0 + Thisform.AlwaysOnTop = .F. + raport_mesaje(thisform.lb_titlu_alb_b121.Caption) + Thisform.AlwaysOnTop = .T. + Else + Messagebox("Nu sunt inregistrari de listat!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_reface + If Used('crsrefaceri') + Use In crsrefaceri + Endif + Select sursa,Cont,tip,luna,an From crsverificari Where selectat=1 Into Cursor crsrefaceri + + If Reccount('crsrefaceri')>0 + Local lcsursa,lccont,lctip,lnAn,lnLuna + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.AlwaysOnTop=.F. + save_grid_tag(Thisform.grid1) + + Select crsrefaceri + Scan + lcsursa=Upper(Alltrim(sursa)) + lccont=Alltrim(Cont) + lctip = '1' + lnAn=an + lnLuna=luna + Do refacere With lcsursa,lctip,lccont,lnLuna,lnAn In orefaceri.prg + Select crsrefaceri + Endscan + + If Used('crsverificari') + Use In crsverificari + Endif + Create Cursor crsverificari (sursa c(20),Cont c(20),tip c(1),mesaj c(200),selectat N(1),explicatia c(50),luna N(2),an N(4)) + lnInit=Thisform.ninit + lnFinal=Thisform.nfinal + For k=lnInit To lnFinal + lnLuna=Mod(k,12) + lnAn=Int(k/12) + If lnLuna=0 + lnLuna=12 + lnAn=lnAn-1 + Endif + Do VerificareLunaDeschisa With lnLuna,lnAn,.F. in overificari.prg + Endfor + Select crsverificari + Go Top + restore_grid_tag(Thisform.grid1) + Thisform.do_cauta + Messagebox("Refacerea s-a incheiat!",0+64,"Info refacere") + Thisform.AlwaysOnTop=.T. + Thisform.LockScreen = .F. + Thisform.MousePointer = 0 + Endif + + Use In crsrefaceri + + ENDPROC + + PROCEDURE do_sterge + *!* Do CURATARE + *!* Messagebox('Refacerea s-a incheiat!',0+64,"Info refacere") + + ENDPROC + + PROCEDURE Init + DoDefault() + + *!* Select crsverificari + *!* Go Top + + *!* If m.nivel > 0 + *!* Thisform.but_refacere1.Visible=.F. + *!* Thisform._shape2.Width=Thisform._shape2.Width-Thisform.but_refacere1.Width + *!* Thisform._shape2.Left=Thisform._shape2.Left+Thisform.but_refacere1.Width + *!* Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS teste_ireg AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_listbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + + * + *m: init_mesaj + *m: init_test + *m: init_test_inregistrari + *m: istoric + *p: activ + *p: lcont + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 395 + Name = "teste_ireg" + Width = 553 + _shape1.Height = 29 + _shape1.Left = -1 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 565 + _shape2.Height = 29 + _shape2.Left = 486 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 68 + Lb_titlu_alb_b121.Caption = "Test inregistrari" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 522 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT '_listbox1' AS _listbox WITH ; + AutoHideScrollbar = 1, ; + Height = 315, ; + Left = 12, ; + Name = "_listbox1", ; + ToolTipText = (this.value), ; + Top = 48, ; + Width = 528 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="listbox" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 490, ; + Name = "But_listare1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ; + Caption = "\ + + PROCEDURE Destroy + IF USED('crslistare') + USE IN crslistare + ENDIF + ENDPROC + + PROCEDURE do_executa + + IF thisform._listbox1.listcount = 0 + thisform.Cmd_executa1.Enabled = .f. + ELSE + thisform.Cmd_executa1.Enabled = .t. + IF thisform._listbox1.listindex = 0 + ofrm_mes = CREATEOBJECT('frm_mesaj','Atentie','exclam2.ico','Avertizare','Selectati un item din lista!') + ofrm_mes.show(1) + RELEASE ofrm_mes + ELSE + lcId_part = thisform.lam[ceiling(thisform._listbox1.listindex/2),3] + lcCont = thisform.lcont + lcAcont = thisform.lam[ceiling(thisform._listbox1.listindex/2),4] + lcActiv = thisform.activ + *!* WAIT WINDOW "Id : " + lcId_part + " Cont : " + lcCont + " Activ : " + lcActiv + thisform.istoric(lcCont,lcAcont,lcId_part,lcActiv) + ENDIF + ENDIF + + ENDPROC + + PROCEDURE do_listare + Thisform.AlwaysOnTop=.F. + *!* gofundal.AlwaysOnTop=.F. + pcTitlu = thisform.lb_titlu_alb_b121.Caption + pcDataOra=get_ora(2) + Select crslistare + Report Format rap_teste To Printer Prompt Preview + *!* gofundal.AlwaysOnTop=.T. + Thisform.AlwaysOnTop=.T. + ENDPROC + + PROCEDURE Init + LPARAMETERS taMesaje,tcCont,tnActiv + DODEFAULT() + + IF !EMPTY(tcCont) AND PCOUNT() > 2 + this.init_test_inregistrari(@taMesaje,tcCont,tnActiv) + ELSE + this.init_mesaj(@taMesaje) + ENDIF + ENDPROC + + PROCEDURE init_mesaj + PARAMETERS taMesaje + LOCAL ICtr + + this.cmd_executa1.Visible = .f. + + EXTERNAL ARRAY taMesaje + + lnLen = aLEN(taMesaje) &&Lungime array parametru + DIMENSION laM(lnLen,1) + ADDPROPERTY(thisform,'lam(lnLen,1)') + + CREATE CURSOR crslistare (explicatie1 c(50),explicatie2 c(20),mesaj c(100)) + + FOR ICtr = 1 TO lnLen + lcSeparator = AT(';',taMesaje[Ictr]) &&Primu separator + lcMesaj = LEFT(taMesaje[Ictr],lcSeparator-1) + + lam[Ictr,1] = lcMesaj + + thisform._listbox1.AddItem(laM[Ictr,1]) + thisform.lam[Ictr,1] = laM[Ictr,1] + + IF '--' $ laM[Ictr,1] + lcmesaj = [] + lcExp1 = laM[Ictr,1] + ELSE + lcmesaj = laM[Ictr,1] + lcExp1 = [] + ENDIF + INSERT INTO crslistare(explicatie1,explicatie2,mesaj) values(lcExp1,'',lcmesaj) + ENDFOR + ENDPROC + + PROCEDURE init_test + ENDPROC + + PROCEDURE init_test_inregistrari + PARAMETERS taMesaje, tcCont, tnActiv + + LOCAL ICtr + + EXTERNAL ARRAY taMesaje + + thisform.lcont=TcCont + thisform.activ = ALLTRIM(STR(tnActiv)) + + + lnLen = aLEN(taMesaje) &&Lungime array parametru + DIMENSION laM(lnLen,4) + + ADDPROPERTY(thisform,'lam(lnLen,4)') + IF USED('crslistare') + USE IN crslistare + ENDIF + *CREATE CURSOR crslistare (nume c(50),acont c(4),mesaj c(100)) + CREATE CURSOR crslistare (explicatie1 c(50),explicatie2 c(20),mesaj c(100)) + + + FOR ICtr = 1 TO lnLen + lcSeparator = AT(';',taMesaje[Ictr]) &&Primu separator + lcId_part = LEFT(taMesaje[Ictr],lcSeparator-1) &&Id partener + lcAcont = STREXTRACT(taMesaje[Ictr],';',';',1) &&Analitic + + lcSql = [select id_part,nume from ] + gcS + [.vnom_parteneri where id_part = ] + lcId_Part + lcCursor = [crsParteneri] + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + IF lnSucces > 0 + SELECT crsParteneri + GO top + laM[Ictr,1] = UPPER(ALLTRIM(nume)) && Nume Partener + laM[Ictr,3] = lcId_part + laM[Ictr,4] = lcAcont + ELSE + MESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + laM[Ictr,1] = "" && Nume Partener + laM[Ictr,3] = lcId_part + laM[Ictr,4] = lcAcont + ENDIF + IF USED('crsParteneri') + USE IN crsParteneri + ENDIF + lcSoldBal = STREXTRACT(taMesaje[Ictr],';',';',2) &&Sold balanta parteneri + lcSeparator3 = AT(';',taMesaje[Ictr],3) && Al 3-lea separator + lcSoldIreg = STRTRAN(SUBSTR(taMesaje[Ictr],lcSeparator3+1),'*','') &&Sold inregistrari parteneri + lam[Ictr,2] = "Sold balanta : " + lcSoldBal + " Sold inregistrari : " + lcSoldIreg + " Diferenta : " +; + ALLTRIM(STR(VAL(lcSoldBal) - VAL(lcSoldIreg),14,gnPa)) + + IF !EMPTY(lcAcont) AND ALLTRIM(UPPER(lcAcont)) # 'XXXX' + lcNumesiAna = laM[Ictr,1] + [ - Analitic ] + lcAcont + ELSE + lcNumesiAna = laM[Ictr,1] + ENDIF + * thisform._listbox1.AddItem(laM[Ictr,1]) + thisform._listbox1.AddItem(lcNumesiAna) + thisform._listbox1.AddItem(laM[Ictr,2]) + thisform.lam[Ictr,1] = laM[Ictr,1] + thisform.lam[Ictr,2] = laM[Ictr,2] + thisform.lam[Ictr,3] = laM[Ictr,3] + thisform.lam[Ictr,4] = laM[Ictr,4] + + INSERT INTO crslistare(explicatie1,explicatie2,mesaj) values(laM[Ictr,1],[Analitic - ] + laM[Ictr,4],laM[Ictr,2]) + ENDFOR + ENDPROC + + PROCEDURE istoric + LPARAMETERS tcCont,tcAnalitic,tnId,tcActiv + + lcCont = ALLTRIM(tcCont) + lcAcont = ALLTRIM(tcAnalitic) + IF EMPTY(lcAcont) OR ISNULL(lcAcont) + lcAcont = 'xxxx' + ENDIF + lcId = ALLTRIM(tnId) + lnActiv = VAL(tcActiv) + + PRIVATE pnPereche1,pnPereche2 + STORE 0 TO pnPereche1,pnPereche2 + + this.AlwaysOnTop=.f. + + do CASE + case lnActiv = 0 && + PRIVATE pccond + + lcSql_i = [select id_part,nume,dataact,nract,dataireg,preccred+credit as suma,precdeb+debit as achitat,acont,fdoc,explicatia from ] +; + gcS + [.vireg_parteneri where id_part=] + lcId + [ and cont = '] + lcCont + [' and NVL(acont,'xxxx') = '] + lcAcont + [' and an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnLuna)) + ; + [ order by dataireg] + + lcCursor = [v_iregcd] &&Ireg_parteneri + lnSucces = goExecutor.oExecute(lcSql_i,lcCursor) + goExecutor.oReset() + + lcSql_a = [select a.dataact,a.nract,a.suma,a.explicatia,a.id_act,a.cod,a.scd,a.scc,a.dataireg,a.fdoc,a.partd,a.pereched from ] + ; + gcS + [.vact a where a.id_partd = ] + lcId + [ and a.scd = '] + lcCont + [' and NVL(a.ascd,'xxxx') = '] + lcAcont + [' and a.an = ] + ALLTRIM(STR(gnAn)) + [ and a.luna = ] + ALLTRIM(STR(gnLuna)) +; + [ order by a.dataact] + + lcCursor = [v_actcd] &&Act + lnSucces = goExecutor.oExecute(lcSql_a,lcCursor) + goExecutor.oReset() + + pcPereche='pereched' + ORC=CREATEOBJ("AFisDEBsiCRED") + orc._grid1.column4.controlsource = 'pereched' + ORC.lb_2.CAPTION='CREDIT' + ORC.lb_1.CAPTION='DEBIT' + orc.Sql_act = lcSql_A + orc.Sql_ireg = lcSql_i + + case lnActiv = 1 && + PRIVATE pccond + + lcSql_i = [select id_part,nume,dataact,nract,dataireg,precdeb+debit as suma,preccred+credit as achitat,acont,fdoc,explicatia from ] +; + gcS + [.vireg_parteneri where id_part=] + lcId + [ and cont = '] + lcCont + [' and NVL(acont,'xxxx') = '] + lcAcont + [' and an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnLuna)) + ; + [ order by dataireg] + + lcCursor = [v_iregcd] &&Ireg_parteneri + lnSucces = goExecutor.oExecute(lcSql_i,lcCursor) + goExecutor.oReset() + + lcSql_a = [select a.dataact,a.nract,a.suma,a.explicatia,a.id_act,a.cod,a.scd,a.scc,a.dataireg,a.fdoc,a.partc,a.perechec from ] + ; + gcS + [.vact a where a.id_partc = ] + lcId + [ and a.scc = '] + lcCont + [' and NVL(a.ascc,'xxxx') = '] + lcAcont + [' and a.an = ] + ALLTRIM(STR(gnAn)) + [ and a.luna = ] + ALLTRIM(STR(gnLuna)) +; + [ order by a.dataact] + + lcCursor = [v_actcd] &&Act + lnSucces = goExecutor.oExecute(lcSql_a,lcCursor) + goExecutor.oReset() + + pcPereche='perechec' + ORC=CREATEOBJ("AFisDEBsiCRED") + orc._grid1.column4.controlsource = 'perechec' + ORC.lb_1.CAPTION='CREDIT' + ORC.lb_2.CAPTION='DEBIT' + orc.Sql_act = lcSql_A + orc.Sql_ireg = lcSql_i + + ENDCASE + + + ORC.SHOW(1) + + + + + ENDPROC + +ENDDEFINE diff --git a/Clase/ovanzcump.vc2 b/Clase/ovanzcump.vc2 new file mode 100644 index 0000000..04a8181 --- /dev/null +++ b/Clase/ovanzcump.vc2 @@ -0,0 +1,3509 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ovanzcump.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_regcump AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_shape4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nract" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_marfa" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_eroare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_achizitii" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_fdoc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_dataact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_notacontab" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_istoric" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" /> + + * + *m: butapend + *m: butdrept + *m: filtre + *m: incaspl + *m: istoric + *m: ist_deb_cred + *m: notacontab + *m: plati + * + + * + DoCreate = .T. + Height = 500 + Name = "frm_regcump" + Width = 795 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 795 + _shape1.ZOrderSet = 2 + _shape2.Height = 29 + _shape2.Left = 672 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 121 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "REGISTRUL CUMPARARI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 14 + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Left = 765 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 5 + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + ColumnCount = 11, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + GridLineColor = 192,192,192, ; + Height = 372, ; + Left = 12, ; + Name = "_grdbase1", ; + Panel = 1, ; + RecordSource = "actcv", ; + TabIndex = 9, ; + Top = 120, ; + Width = 768, ; + ZOrderSet = 9, ; + Column1.ControlSource = "fdoc", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "Column1", ; + Column1.Width = 66, ; + Column2.ControlSource = "dataact", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.Width = 53, ; + Column3.ControlSource = "nract", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.Width = 67, ; + Column4.ControlSource = "nume", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column4.Width = 148, ; + Column5.ControlSource = "cod_fiscal", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.Width = 66, ; + Column6.ControlSource = "totctva", ; + Column6.FontName = "Arial Narrow", ; + Column6.InputMask = (get_mask(12,gnPA)), ; + Column6.Name = "Column6", ; + Column7.ControlSource = "neimpozab", ; + Column7.FontName = "Arial Narrow", ; + Column7.InputMask = (get_mask(12,gnPA)), ; + Column7.Name = "Column7", ; + Column8.ControlSource = "totftvam", ; + Column8.FontName = "Arial Narrow", ; + Column8.InputMask = (get_mask(12,gnPA)), ; + Column8.Name = "Column8", ; + Column9.ControlSource = "tvam", ; + Column9.FontName = "Arial Narrow", ; + Column9.InputMask = (get_mask(12,gnPA)), ; + Column9.Name = "Column9", ; + Column10.ControlSource = "totftvai", ; + Column10.FontName = "Arial Narrow", ; + Column10.InputMask = (get_mask(12,gnPA)), ; + Column10.Name = "Column10", ; + Column11.ControlSource = "tvai", ; + Column11.FontName = "Arial Narrow", ; + Column11.InputMask = (get_mask(12,gnPA)), ; + Column11.Name = "Column11" + *< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza imp.9%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 9%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total cu TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neimpozabil", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza imp.19%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 19%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + BackStyle = 0, ; + BorderColor = 128,128,128, ; + Height = 48, ; + Left = 232, ; + Name = "_shape3", ; + Top = 60, ; + Width = 552, ; + ZOrderSet = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_shape4' AS _shape WITH ; + BackStyle = 0, ; + BorderColor = 128,128,128, ; + Height = 79, ; + Left = 224, ; + Name = "_shape4", ; + Top = 38, ; + Width = 568, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 702, ; + Name = "But_excel1", ; + TabIndex = 12, ; + Top = 1, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 734, ; + Name = "But_listare1", ; + TabIndex = 11, ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 588, ; + Name = "But_modifica1", ; + TabIndex = 13, ; + Top = 0, ; + Visible = .F., ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reface1' AS but_reface WITH ; + Comment = "*:OnResize=RT", ; + Left = 672, ; + Name = "But_reface1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_achizitii' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "Alte achizitii", ; + FontName = "Arial Narrow", ; + Left = 67, ; + Name = "Ck_achizitii", ; + TabIndex = 7, ; + Top = 52, ; + ZOrderSet = 23 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_dataact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = dataact, ; + Caption = "Data act", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_dataact", ; + TabIndex = 2, ; + tip = D, ; + Top = 52, ; + ZOrderSet = 25 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_eroare' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "Eroare TVA", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_eroare", ; + TabIndex = 5, ; + Top = 101, ; + ZOrderSet = 22 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_fdoc' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = fdoc, ; + Caption = "Fel doc.", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_fdoc", ; + TabIndex = 3, ; + Top = 68, ; + ZOrderSet = 24 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_marfa' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "Marfa", ; + FontName = "Arial Narrow", ; + Left = 67, ; + Name = "Ck_marfa", ; + TabIndex = 6, ; + Top = 36, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nract' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = nract, ; + Caption = "Nr. act", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_nract", ; + TabIndex = 1, ; + Top = 36, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = nume, ; + Caption = "Numele firmei", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_nume", ; + TabIndex = 4, ; + Top = 84, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 135, ; + Name = "Cmd_cauta1", ; + TabIndex = 8, ; + Top = 43, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmd_istoric' AS _commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'cmd_notacontab' AS _commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Left = 135, ; + Name = "Cmd_reset1", ; + TabIndex = 22, ; + Top = 76, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Total cu TVA", ; + Left = 245, ; + Name = "Lb_simplu1", ; + TabIndex = 23, ; + Top = 53, ; + ZOrderSet = 26 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Neimpozabil", ; + Left = 335, ; + Name = "Lb_simplu2", ; + TabIndex = 24, ; + Top = 53, ; + ZOrderSet = 27 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu3' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Baza imp. 19%", ; + Left = 420, ; + Name = "Lb_simplu3", ; + TabIndex = 25, ; + Top = 53, ; + ZOrderSet = 28 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu4' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "TVA 19%", ; + Left = 529, ; + Name = "Lb_simplu4", ; + TabIndex = 26, ; + Top = 53, ; + ZOrderSet = 29 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu5' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Baza imp. 9%", ; + Left = 607, ; + Name = "Lb_simplu5", ; + TabIndex = 27, ; + Top = 53, ; + ZOrderSet = 30 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu6' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "TVA 9%", ; + Left = 715, ; + Name = "Lb_simplu6", ; + TabIndex = 28, ; + Top = 53, ; + ZOrderSet = 31 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'oMenuShortcut' AS menulib WITH ; + Left = 216, ; + Name = "oMenuShortcut", ; + TabIndex = 15, ; + Top = 7, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\..\comun\clase\utility.vcx" BaseClass="container" /> + + ADD OBJECT 'Text1' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotctva", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 234, ; + Name = "Text1", ; + ReadOnly = .T., ; + TabIndex = 16, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pnneimpozab", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 325, ; + Name = "Text2", ; + ReadOnly = .T., ; + TabIndex = 17, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text3' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotftvam", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 417, ; + Name = "Text3", ; + ReadOnly = .T., ; + TabIndex = 18, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text4' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntvam", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 509, ; + Name = "Text4", ; + ReadOnly = .T., ; + TabIndex = 19, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text5' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotftvai", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 600, ; + Name = "Text5", ; + ReadOnly = .T., ; + TabIndex = 20, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text6' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntvai", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 692, ; + Name = "Text6", ; + ReadOnly = .T., ; + TabIndex = 21, ; + TabStop = .F., ; + Top = 76, ; + Width = 90, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + PROCEDURE Activate + tw1=Thisform.Width + tl1=Thisform.Height + Thisform.WindowState=2 + tw2=Thisform.Width + tl2=Thisform.Height + + gw1=Thisform._grdbase1.Width + gl1=Thisform._grdbase1.Height + + Thisform._grdbase1.Width=Round(gw1*tw2/tw1,0) + Thisform._grdbase1.Height=Round(gl1*tl2/tl1,0) + + ** ocont2003 + lnlung1=Thisform._shape1.Width + Thisform._shape1.Width=Round(lnlung1*tw2/tw1,0) + lndif=Thisform._shape1.Width-lnlung1 + Thisform._shape2.Left=Thisform._shape2.Left+lndif + thisform.but_excel1.left=thisform.but_excel1.left+lndif + thisform.but_listare1.left=thisform.but_listare1.left+lndif + thisform.but_modifica1.left=thisform.but_modifica1.left+lndif + thisform.but_reface1.left=thisform.but_reface1.left+lndif + thisform.but_TERMIN1.left=thisform.but_TERMIN1.left+lndif + Thisform.cmd_notacontab.Left=Thisform.cmd_notacontab.Left+lndif + Thisform.cmd_istoric.Left=Thisform.cmd_istoric.Left+lndif + ** + + Thisform.Paint + Thisform.Refresh + ENDPROC + + PROCEDURE actualizeaza_grid1 + LPARAMETERS lcFiltru + IF EMPTY(lcFiltru) + lcFiltru = pocump.ca_baza1.cfiltru + ENDIF + + thisform.MousePointer= 11 + + thisform.LockScreen=.F. + save_grid_tag(thisform._grdbase1) + pocump.ca_baza1.cfiltru=lcFiltru + pocump.ca_baza1.afisare() + restore_grid_tag(thisform._grdbase1) + thisform.LockScreen=.F. + + thisform.MousePointer= 0 + + SELECT actcv + CALCULATE sum(totctva),sum(neimpozab),sum(totftvam),sum(tvam),sum(totftvai),sum(tvai) TO ; + pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + GO top + + *thisform.Refresh + WITH thisform + .text1.refresh + .text2.refresh + .text3.refresh + .text4.refresh + .text5.refresh + .text6.refresh + ._grdbase1.SetFocus + ENDWITH + ENDPROC + + PROCEDURE butapend + *!* Local lbMenu[4] + + *!* lbMenu="" + *!* lbMenu[1]="\100 OR ABS(TOTFTVAI*(M.CTVAI-1)-TVAI)>100 or ABS((totftvam+totftvai+neimpozab+tvai+tvam)-totctva)>100" + lcFiltru = lcFiltru + [ AND (ABS(TOTFTVAM*(]+ALLTRIM(STR(m.ctvam,5,2))+[-1)-TVAM)>100 ]+; + [OR ABS(TOTFTVAI*(]+ALLTRIM(STR(m.ctvai,5,2))+[-1)-TVAI)>100 ]+; + [OR ABS(TOTFTVAM+TOTFTVAI+NEIMPOZAB+TVAI+TVAM-TOTCTVA)>100)] + ENDIF + + IF thisform.ck_fdoc.Value=1 + lcFiltru = lcFiltru + thisform.ck_fdoc.filtru + ENDIF + + IF thisform.ck_marfa.Value=1 + lcFiltru = lcFiltru + [ AND SUBSTR(scd,1,3)='371'] + ENDIF + + IF thisform.ck_nract.Value=1 + lcFiltru = lcFiltru + thisform.ck_nract.filtru + ENDIF + + IF thisform.ck_nume.Value=1 + lcFiltru = lcFiltru + thisform.ck_nume.filtru + ENDIF + + thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT('actcv')=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare") + thisform.ck_nract.SetFocus() + ENDIF + + *!* lcFiltru = ".t." + + *!* If this.ck_feldoc.Value = 1 + *!* lcFiltru = lcFiltru + this.Ck_feldoc.filtru_vfp + *!* Endif + + *!* If this.ck_firma.Value = 1 + *!* lcFiltru = lcFiltru + this.Ck_firma.filtru_vfp + *!* Endif + + *!* if bnract==.t. then + *!* *Tnract="(nract>=m.nract1) and (nract<=m.nract2)" + *!* lcFiltru = lcFiltru + " AND (nract>=m.nract1) and (nract<=m.nract2)" + *!* endif + + *!* if this.ck_data.Value = 1 + *!* *Tnract="(nract>=m.nract1) and (nract<=m.nract2)" + *!* lcFiltru = lcFiltru + " AND (dataact >= pdData1) and (dataact <= pdData2)" + *!* endif + + *!* *!* if Bfirma==.t. then + *!* *!* Tfirma="UPPER(LEFT(nume,LEN(M.nume)))==M.nume" + *!* *!* endif + + *!* if BER==.t. then + *!* *TER='abs(TOTFTVAM*(M.CTVAM-1)-TVAM)>100 OR ABS(TOTFTVAI*(M.CTVAI-1)-TVAI)>100 or ABS((totftvam+totftvai+neimpozab+tvai+tvam)-totctva)>100' + *!* lcFiltru = lcFiltru + " AND abs(TOTFTVAM*(M.CTVAM-1)-TVAM)>100 OR ABS(TOTFTVAI*(M.CTVAI-1)-TVAI)>100 or ABS((totftvam+totftvai+neimpozab+tvai+tvam)-totctva)>100" + *!* endif + + *!* *!* if Bachitat==.t. then + *!* *!* Tachitat='(abs(totctva-achitat)<1000 or totctva0 + Local i,xlsheet,XLApp,tmpsheet + SET DATE TO DMY + exista_excel=.T. + p1='' + p2='' + With Thisform._grdbase1 + For nCol=1 To .ColumnCount + nColumn=.Columns(nCol).ColumnOrder + p1=p1+.Columns(nCol).ControlSource+',' + p2=p2+Strtran(.Columns(nCol).header1.Caption,Chr(32),'_')+',' + Endfor + p1=Substr(p1,1,Len(p1)-1) + p2=Substr(p2,1,Len(p2)-1) + Endwith + On Error Do exportare With thisform._grdbase1.recordsource,p1,p2 + tmpsheet = Getobject('','excel.sheet') + On Error + + If exista_excel + Wait Window "Se transmit datele catre Excel..." Nowait + + XLApp = tmpsheet.Application + XLApp.workbooks.Close() + XLApp.workbooks.Add() + poExcel = XLApp.ActiveSheet + + Go Top + poExcel.Cells(1,1).Font.Size=16 + poExcel.Cells(1,1).Font.Bold=.T. + poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn)) + nRows = 3 + With Thisform._grdbase1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption + poExcel.Cells(nRows,nColumn).Font.Bold = .T. + poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16 + Endfor + Scan + nRows = nRows + 1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0 + poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA') + Else + poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource) + Endif + Endfor + Endscan + Endwith + + XLApp.Visible = .T. + Endif + Else + Messagebox("Nu aveti date in cautare!",48,"Atentie") + Thisform.ck_nract.SetFocus() + Endif + + *!* If Used('actcv') And Reccount('actcv')>0 + *!* Private pniesire,pccale + *!* pccale="" + *!* pniesire=0 + *!* ofrmexcel=Createobject('frm_cale_f_excel') + *!* ofrmexcel.Show(1) + *!* If pniesire=1 + *!* Thisform.MousePointer=11 + *!* Thisform.LockScreen=.T. + *!* poExcel = Createobject("Excel.Application") + *!* poExcel.Visible=.F. + *!* poExcel.WorkBooks.Add + *!* Select actcv + *!* Go Top + *!* poExcel.Cells(1,1).Font.Size=16 + *!* poExcel.Cells(1,1).Font.Bold=.T. + *!* poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn)) + *!* For i=1 To 6 + *!* lcval="thisform.lb_simplu"+Alltrim(Str(i))+".caption" + *!* poExcel.Cells(3,i)=&lcval + *!* poExcel.Cells(3,i).Font.Bold=.T. + *!* lcval="thisform.text"+Alltrim(Str(i))+".value" + *!* poExcel.Cells(4,i)=&lcval + *!* Endfor + *!* nRows = 6 + *!* With Thisform._grdbase1 + *!* For nCol = 1 To .ColumnCount + *!* nColumn = .Columns(nCol).ColumnOrder + *!* poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + *!* poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption + *!* poExcel.Cells(nRows,nColumn).Font.Bold = .T. + *!* poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16 + *!* Endfor + *!* Scan + *!* nRows = nRows + 1 + *!* For nCol = 1 To .ColumnCount + *!* nColumn = .Columns(nCol).ColumnOrder + *!* If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0 + *!* poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA') + *!* Else + *!* poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource) + *!* Endif + *!* Endfor + *!* Endscan + *!* Endwith + *!* poExcel.ActiveWorkBook.SaveAs(pccale) + *!* poExcel.ActiveWorkBook.Close + *!* poExcel.Quit + *!* Release poExcel + *!* Go Top + *!* Thisform.LockScreen=.F. + *!* Thisform.MousePointer= 0 + *!* Endif + *!* Else + *!* Messagebox("Nu aveti date in cautare!",48,"Atentie") + *!* Thisform.ck_nract.SetFocus() + *!* Endif + + ENDPROC + + PROCEDURE do_listare + THISFORM.ALWAYSONTOP=.F. + + STORE "" TO pctitlu + + if thisform.ck_marfa.value=1 + pctitlu='JURNAL PENTRU CUMPARARI - ACHIZITII MARFA ' + ELSE + if thisform.ck_achizitii.value=1 + pctitlu='JURNAL PENTRU CUMPARARI - ALTE ACHIZITII' + ELSE + pctitlu='JURNAL PENTRU CUMPARARI' + ENDIF + ENDIF + + SELE ACTCV + ai='19%' + am=ai + + + *!* SELE ACTCV + + *!* REPORT FORMAT registru_cumparari_rpt1 to printer prompt PREVIEW + *!* + + + + + x=xmenu("\ 0 + SELECT cont_exceptii + SCAN + lcExceptii = lcExceptii + ',' + ALLTRIM(exceptie) + ENDSCAN + USE IN cont_exceptii + ENDIF + lcListaCampuri = get_lista_Act() + lcSql = [begin pack_REFACERI.REFAC_TVA('] + gcS +[', 'cump', 1.19, 1.09, '] + lcCorespDtva +[', '] + lcCorespD +[', '] + lcCorespCtva +[', '] + lcCorespC +[','4426', '] + lcExceptii +[',] + pcan + [, ] + pcnl + [,] + ALLTRIM(STR(tnScrie_Sterge)) + [,'] + lcListaCampuri + [' ); end;] + + + lnSucces = goExecutor.oExecute(lcSql) + IF lnSucces < 0 + MESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + RETURN + ENDIF + + THISFORM.actualizeaza_grid1() + + + *** verificare INAINTE_DE + DO inainte WITH "CUMP" IN oinainte_de.prg + + MESSAGEBOX('Refacerea s-a terminat') + + ENDPROC + + PROCEDURE do_reset + thisform.ck_achizitii.Value=0 + thisform.ck_dataact.Value=0 + thisform.ck_eroare.Value=0 + thisform.ck_fdoc.Value=0 + thisform.ck_marfa.Value=0 + thisform.ck_nract.Value=0 + thisform.ck_nume.Value=0 + thisform.Refresh + ENDPROC + + PROCEDURE filtre + *!* Store ".T." To tfirma,TER,Tachitat,Tneachitat + *!* Sele actcv + + *!* If Bfirma==.T. Then + *!* tfirma="UPPER(LEFT(ACTCV.nume,LEN(M.nume)))==M.nume" + *!* Endif + + *!* If Bachitat==.T. Then + *!* Tachitat='ACTCV.totctva=ACTCV.achitat and totctva#0' + *!* Endif + + *!* If Bneachitat==.T. Then + *!* Tneachitat='ACTCV.totctva#ACTCV.achitat' + *!* Endif + + ENDPROC + + PROCEDURE incaspl + Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact,pcTitlu + Store "" To poact + Store .F. To llAfisare + Store 0 To pnlunanan + + pnlunanan=gnAn*12+gnLuna + CN='411 ' + Thisform.but_teRMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; + ['from ]+gcS+[.vact where 2=2'] + + Select actcv + *!* Do Case + *!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")&&cumparari + &&deb + pcTitlu="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + [and (perecheD=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')] + + *!* Select acn2 + *!* Sum suma To totsum + *!* If Thisform.lb_titlu_alb_b121.Caption#"REGISTRUL CUMPARARI" + *!* If totsum#m.achitat + *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* Endif + *!* Endif + *!* Select acn2 + *!* Otherwise&&vanzari + *!* &&cred + *!* *!* Sele 0 + ******************* modificare 14.12 + *!* &&deb + *!* pcTitlu="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* pcfiltru=[partC=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + *!* [and (perecheC=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')] + ******************* + *!* Select acn2 + *!* Sum suma To totsum + *!* If Thisform.LABEL10.Caption#"REGISTRUL VANZARI" + *!* If totsum#m.achitat + *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* Endif + *!* Endif + *!* Endcase + pcorder=[dataact,nract] + gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + ORC=Createobj("frm_debcred") + ORC.lb_titlu_alb_b121.Caption=Proper(pcTitlu) + ORC.lb_titlu1.Caption=pcTitlu + *!* ORC.ali="acn2" + *!* ORC.grid1.column6.Visible=.T. + ORC.Show(1) + + pcTitlu="" + Thisform.AlwaysOnTop=.T. + Thisform.but_teRMIN1.Enabled=.T. + If Used('acn1') + Use In acn1 + Endif + Release ORC,poact + *!* Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + *!* Store "" To poact + *!* Store .F. To llAfisare + *!* Store 0 To pnlunanan + + *!* pnlunanan=gnAn*12+gnLuna + *!* CN='411 ' + *!* Thisform.but_teRMIN1.Enabled=.F. + *!* Thisform.AlwaysOnTop=.F. + + *!* pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; + *!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + *!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + *!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + *!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + *!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + *!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + *!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + *!* *!* Sele ACTan + *!* *!* Do NRORD With "ACTan" + + *!* Select actcv + *!* Do Case + *!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")&&cumparari + *!* &&deb + *!* pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; + *!* ['from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + *!* [and (perecheC=]+Alltrim(Str(nract))+[ or to_number(nrord)=]+Alltrim(Str(nract))+[)] + *!* pcorder=[dataact,nract] + *!* gencursor("poact","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poact.ca_baza1.afisare() + + *!* *!* Select acn2 + *!* *!* Sum suma To totsum + *!* *!* If Thisform.lb_titlu_alb_b121.Caption#"REGISTRUL CUMPARARI" + *!* *!* If totsum#m.achitat + *!* *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* *!* Endif + *!* *!* Endif + *!* *!* Select acn2 + *!* TITLU="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC=Createobj("AFincpl") + *!* ORC.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC.LABELTITLU.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + + *!* Otherwise&&vanzari + *!* &&cred + *!* *!* Sele 0 + + *!* &&deb + *!* pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; + *!* ['from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + *!* [and (perecheC=]+Alltrim(Str(nract))+[ or to_number(nrord)=]+Alltrim(Str(nract))+[)] + *!* pcorder=[dataact,nract] + *!* gencursor("poact","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poact.ca_baza1.afisare() + + *!* *!* Select acn2 + *!* *!* Sum suma To totsum + *!* *!* If Thisform.LABEL10.Caption#"REGISTRUL VANZARI" + *!* *!* If totsum#m.achitat + *!* *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* *!* Endif + *!* *!* Endif + *!* Select acn2 + *!* TITLU="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC=Createobj("AFincpl") + *!* ORC.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC.LABELTITLU.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* Endcase + + *!* ORC.ali="acn2" + *!* ORC.grid1.column6.Visible=.T. + *!* ORC.Show(1) + + *!* TITLU="" + *!* Thisform.AlwaysOnTop=.T. + *!* Thisform.but_teRMIN1.Enabled=.T. + *!* If Used('acn2') + *!* Use In acn2 + *!* Endif + *!* Release ORC,poact + ENDPROC + + PROCEDURE Init + DODEFAULT() + PRIVATE pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + STORE 0.00 TO pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + IF luna_inchisa + thisform.but_modifica1.Visible=.F. + thisform._shape2.Left=thisform._shape2.Left+thisform.but_modifica1.Width + thisform._shape2.width=thisform._shape2.width-thisform.but_modifica1.Width + ENDIF + thisform.Refresh + ENDPROC + + PROCEDURE istoric + *!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poacn1,poacn2 + *!* Store "" To poacn1,poacn2 + *!* Store .F. To llAfisare + *!* lunanan=gnAn*12+gnLuna + *!* CN='411 ' + *!* Thisform.but_TERMIN1.Enabled=.F. + *!* Thisform.AlwaysOnTop=.F. + + *!* *!* Do NRORD With "ACTan" + *!* Select actcv + *!* Do Case + *!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE FACTURI CUMPARARI")&&cumparari + *!* &&deb + *!* pcschema=[''] + *!* pcselect=['select * from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[partD=']+Alltrim(nume)+[' and SUBSTR(scd,1,3)='401'] + *!* pcorder=[dataact,nract] + *!* gencursor('poacn1','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poacn1.ca_baza1.afisare() + + *!* &&cred + *!* pcschema=[''] + *!* pcselect=['select nume,dataact,nract,dataireg,totctva as suma,achitat,achitat as pereche,fdoc,fdoc as scc,fdoc as scd,'+]+; + *!* ['fdoc as partC,fdoc as explicatia from ]+gcS+[.vcump where 2=2'] + *!* pcfiltru=[nume=']+Alltrim(nume)+[' and extract(year from dataact)*12+extract(month from dataact)<=]+Alltrim(Str(lunanan)) + *!* pcorder=[dataact,nract] + *!* gencursor('poacn2','ACN2',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poacn2.ca_baza1.afisare() + + *!* ORC=Createobj("AFDEBsiCREDA") + *!* ORC.Caption="PERECHI - "+Alltrim(nume) + *!* ORC.grid2.SetAll("DynamicForeColor", ; + *!* "IIF(abs(suma-achitat)<1000,RGB(0,0,0),iif(suma0 + Private pcselect,pcfiltru,pcschema,pcorder,poact,pcnume + Store "" To poact + Thisform.but_TERMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + lunanan=gnLuna+gnAn*12 + Select actcv + pcnume=nume + pcschema=['DATAIREG D,DATAACT D,NRACT N(14),PARTD C(50),PARTC C(50),EXPLICATIA C(100),'+]+; + ['SUMA N(19,2),SCD C(4),SCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20)'] + pcselect=['select dataireg,dataact,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataireg] + pcfiltru=[] + llAfisare=.F. + If Inlist(Thisform.lb_titlu_alb_b121.Caption,"REGISTRUL CUMPARARI") + pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+; + [ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+; + [ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+; + [ and partC=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + Else + pcfiltru=[extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+; + [ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+; + [ and partD=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + ENDIF + gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + Go Top + ORC=Createobj("frm_debcred") + *!* ORC.alias='ACN1' + orc.Lb_titlu_alb_b121.caption="Nota contabila "+ALLTRIM(pcnume) + ORC.lb_titlu1.Caption="NOTA CONTABILA" + orc._grdbase1.removeobject("cUtil") + orc._grdbase1.removeobject("cDataOra") + ORC.Show(1) + Release poact,ORC + Thisform.but_TERMIN1.Enabled=.T. + Thisform.AlwaysOnTop=.T. + Else + Messagebox("Nu aveti date in cautare!",48,"Atentie") + Thisform.ck_nract.SetFocus() + Endif + ENDPROC + + PROCEDURE plati + *!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + *!* Store "" To poact + *!* Store .F. To llAfisare + *!* Select actcv + *!* pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; + *!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + *!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + *!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + *!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + *!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + *!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + *!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + *!* pcschema=[''] + *!* pcselect=['select * from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+; + *!* [ and nume=']+Alltrim(nume)+[' and perecheC=]+Alltrim(Str(nract)) + *!* pcorder=[] + *!* gencursor("poact","act",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poact.ca_baza1.afisare() + *!* Select act + *!* Do NRORD With "ACT" + *!* Go Top + *!* Thisform.but_termin1.Enabled=.F. + *!* ORC=Createobj("frm_debcred") + *!* orc.lb_titlu_alb_b121.caption="Plati" + *!* orc.lb_titlu1.caption="PLATI" + *!* ORC.Show(1) + *!* Thisform.but_termin1.Enabled=.T. + *!* Release ORC,poact + ENDPROC + + PROCEDURE cmd_istoric.Click + thisform.istoric() + ENDPROC + + PROCEDURE cmd_notacontab.Click + thisform.notacontab() + ENDPROC + + PROCEDURE _grdbase1.Column1.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column10.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column11.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column2.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column3.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.Column3.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column4.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.Column4.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column5.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column6.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column7.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column8.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column9.Text1.DblClick + thisform.butdrept() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_regvanz AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_shape4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column12._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column15._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nract" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_notacontab" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_eroare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_opext" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_fdoc" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_dataact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_istoric" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_scd" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" /> + + * + *m: butapend + *m: butdrept + *m: filtre + *m: incaspl + *m: istoric + *m: ist_deb_cred + *m: notacontab + *m: plati + * + + * + DoCreate = .T. + Height = 500 + Name = "frm_regvanz" + Width = 795 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 795 + _shape1.ZOrderSet = 2 + _shape2.Height = 29 + _shape2.Left = 672 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 121 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "REGISTRUL VANZARI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 14 + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Left = 765 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 5 + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + ColumnCount = 14, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + GridLineColor = 192,192,192, ; + HeaderHeight = 34, ; + Height = 372, ; + Left = 12, ; + Name = "_grdbase1", ; + Panel = 1, ; + RecordSource = "actcv", ; + TabIndex = 9, ; + Top = 120, ; + Width = 768, ; + ZOrderSet = 9, ; + Column1.ControlSource = "fdoc", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "Column1", ; + Column1.Width = 66, ; + Column2.ControlSource = "dataact", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.Width = 52, ; + Column3.ControlSource = "nract", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column4.ControlSource = "nume", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column5.ControlSource = "cod_fiscal", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column6.ControlSource = "totctva", ; + Column6.FontName = "Arial Narrow", ; + Column6.InputMask = (get_mask(12,gnPA)), ; + Column6.Name = "Column6", ; + Column7.ControlSource = "neimpozab", ; + Column7.FontName = "Arial Narrow", ; + Column7.InputMask = (get_mask(12,gnPA)), ; + Column7.Name = "Column7", ; + Column8.ControlSource = "totftvam", ; + Column8.FontName = "Arial Narrow", ; + Column8.InputMask = (get_mask(12,gnPA)), ; + Column8.Name = "Column8", ; + Column9.ControlSource = "tvam", ; + Column9.FontName = "Arial Narrow", ; + Column9.InputMask = (get_mask(12,gnPA)), ; + Column9.Name = "Column9", ; + Column10.ControlSource = "totftvai", ; + Column10.FontName = "Arial Narrow", ; + Column10.InputMask = (get_mask(12,gnPA)), ; + Column10.Name = "Column10", ; + Column11.ControlSource = "tvai", ; + Column11.FontName = "Arial Narrow", ; + Column11.InputMask = (get_mask(12,gnPA)), ; + Column11.Name = "Column11", ; + Column12.ControlSource = "scutit", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Sparse = .F., ; + Column12.Width = 63, ; + Column13.ControlSource = "scd", ; + Column13.FontName = "Arial Narrow", ; + Column13.Name = "Column13", ; + Column13.Width = 39, ; + Column14.ControlSource = "ext", ; + Column14.FontName = "Arial Narrow", ; + Column14.Name = "Column15", ; + Column14.ReadOnly = .T., ; + Column14.Sparse = .F., ; + Column14.Width = 50 + *< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza imp.9%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 9%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column12._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + Left = 41, ; + Name = "_checkbox1", ; + ReadOnly = .T., ; + Top = 47 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_grdbase1.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Scutit cu drept de deducere", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column15._checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + Left = 29, ; + Name = "_checkbox1", ; + ReadOnly = .T., ; + Top = 47 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_grdbase1.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Operatiune externa", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total cu TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Neimpozabil", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Baza imp.19%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "TVA 19%", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + BackStyle = 0, ; + BorderColor = 128,128,128, ; + Height = 48, ; + Left = 228, ; + Name = "_shape3", ; + Top = 58, ; + Width = 552, ; + ZOrderSet = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_shape4' AS _shape WITH ; + BackStyle = 0, ; + BorderColor = 128,128,128, ; + Height = 79, ; + Left = 220, ; + Name = "_shape4", ; + Top = 36, ; + Width = 568, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Left = 703, ; + Name = "But_excel1", ; + TabIndex = 12, ; + Top = 1, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 734, ; + Name = "But_listare1", ; + TabIndex = 11, ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 588, ; + Name = "But_modifica1", ; + TabIndex = 13, ; + Top = 0, ; + Visible = .F., ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reface1' AS but_reface WITH ; + Comment = "*:OnResize=RT", ; + Left = 674, ; + Name = "But_reface1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_dataact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = dataact, ; + Caption = "Data act", ; + FontName = "Arial Narrow", ; + Left = 3, ; + Name = "Ck_dataact", ; + TabIndex = 2, ; + tip = D, ; + Top = 52, ; + ZOrderSet = 25 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_eroare' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "Eroare TVA", ; + FontName = "Arial Narrow", ; + Left = 63, ; + Name = "Ck_eroare", ; + TabIndex = 7, ; + Top = 52, ; + ZOrderSet = 22 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_fdoc' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = fdoc, ; + Caption = "Fel doc.", ; + FontName = "Arial Narrow", ; + Left = 3, ; + Name = "Ck_fdoc", ; + TabIndex = 3, ; + Top = 68, ; + ZOrderSet = 24 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nract' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = nract, ; + Caption = "Nr. act", ; + FontName = "Arial Narrow", ; + Left = 3, ; + Name = "Ck_nract", ; + TabIndex = 1, ; + Top = 36, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = nume, ; + Caption = "Numele firmei", ; + FontName = "Arial Narrow", ; + Left = 3, ; + Name = "Ck_nume", ; + TabIndex = 4, ; + Top = 84, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_opext' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "Operatiune externa", ; + FontName = "Arial Narrow", ; + Left = 3, ; + Name = "Ck_opext", ; + TabIndex = 5, ; + Top = 100, ; + ZOrderSet = 23 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_scd' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = scd, ; + Caption = "Cont", ; + FontName = "Arial Narrow", ; + Left = 63, ; + Name = "Ck_scd", ; + TabIndex = 6, ; + Top = 36 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 132, ; + Name = "Cmd_cauta1", ; + TabIndex = 8, ; + Top = 43, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmd_istoric' AS _commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'cmd_notacontab' AS _commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Left = 132, ; + Name = "Cmd_reset1", ; + TabIndex = 22, ; + Top = 76, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Total cu TVA", ; + Left = 241, ; + Name = "Lb_simplu1", ; + TabIndex = 23, ; + Top = 51, ; + ZOrderSet = 26 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Neimpozabil", ; + Left = 331, ; + Name = "Lb_simplu2", ; + TabIndex = 24, ; + Top = 51, ; + ZOrderSet = 27 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu3' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Baza imp. 19%", ; + Left = 416, ; + Name = "Lb_simplu3", ; + TabIndex = 25, ; + Top = 51, ; + ZOrderSet = 28 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu4' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "TVA 19%", ; + Left = 525, ; + Name = "Lb_simplu4", ; + TabIndex = 26, ; + Top = 51, ; + ZOrderSet = 29 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu5' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Baza imp. 9%", ; + Left = 603, ; + Name = "Lb_simplu5", ; + TabIndex = 27, ; + Top = 51, ; + ZOrderSet = 30 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu6' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "TVA 9%", ; + Left = 711, ; + Name = "Lb_simplu6", ; + TabIndex = 28, ; + Top = 51, ; + ZOrderSet = 31 + *< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'oMenuShortcut' AS menulib WITH ; + Left = 216, ; + Name = "oMenuShortcut", ; + TabIndex = 15, ; + Top = 7, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\..\comun\clase\utility.vcx" BaseClass="container" /> + + ADD OBJECT 'Text1' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotctva", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 230, ; + Name = "Text1", ; + ReadOnly = .T., ; + TabIndex = 16, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pnneimpozab", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 321, ; + Name = "Text2", ; + ReadOnly = .T., ; + TabIndex = 17, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text3' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotftvam", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 413, ; + Name = "Text3", ; + ReadOnly = .T., ; + TabIndex = 18, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text4' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntvam", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 505, ; + Name = "Text4", ; + ReadOnly = .T., ; + TabIndex = 19, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text5' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntotftvai", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 596, ; + Name = "Text5", ; + ReadOnly = .T., ; + TabIndex = 20, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Text6' AS _txbase WITH ; + Alignment = 1, ; + ControlSource = "pntvai", ; + FontName = "Arial Narrow", ; + Format = "R", ; + InputMask = (get_mask(12,gnPA)), ; + Left = 688, ; + Name = "Text6", ; + ReadOnly = .T., ; + TabIndex = 21, ; + TabStop = .F., ; + Top = 74, ; + Width = 90, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + PROCEDURE Activate + tw1=Thisform.Width + tl1=Thisform.Height + Thisform.WindowState=2 + tw2=Thisform.Width + tl2=Thisform.Height + + gw1=Thisform._grdbase1.Width + gl1=Thisform._grdbase1.Height + + Thisform._grdbase1.Width=Round(gw1*tw2/tw1,0) + Thisform._grdbase1.Height=Round(gl1*tl2/tl1,0) + + ** ocont2003 + lnlung1=Thisform._shape1.Width + Thisform._shape1.Width=Round(lnlung1*tw2/tw1,0) + lndif=Thisform._shape1.Width-lnlung1 + Thisform._shape2.Left=Thisform._shape2.Left+lndif + thisform.but_excel1.left=thisform.but_excel1.left+lndif + thisform.but_listare1.left=thisform.but_listare1.left+lndif + thisform.but_modifica1.left=thisform.but_modifica1.left+lndif + thisform.but_reface1.left=thisform.but_reface1.left+lndif + thisform.but_TERMIN1.left=thisform.but_TERMIN1.left+lndif + Thisform.cmd_notacontab.Left=Thisform.cmd_notacontab.Left+lndif + Thisform.cmd_istoric.Left=Thisform.cmd_istoric.Left+lndif + ** + + Thisform.Paint + Thisform.Refresh + ENDPROC + + PROCEDURE actualizeaza_grid1 + LPARAMETERS lcFiltru + IF EMPTY(lcFiltru) + lcFiltru = povanz.ca_baza1.cfiltru + ENDIF + thisform.MousePointer= 11 + thisform.LockScreen=.F. + + save_grid_tag(thisform._grdbase1) + povanz.ca_baza1.cfiltru=lcFiltru + povanz.ca_baza1.afisare() + restore_grid_tag(thisform._grdbase1) + + thisform.LockScreen=.F. + + thisform.MousePointer= 0 + SELECT actcv + CALCULATE sum(totctva),sum(neimpozab),sum(totftvam),sum(tvam),sum(totftvai),sum(tvai) TO ; + pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + GO top + *thisform.Refresh + WITH thisform + .text1.refresh + .text2.refresh + .text3.refresh + .text4.refresh + .text5.refresh + .text6.refresh + ._grdbase1.SetFocus + ENDWITH + + ENDPROC + + PROCEDURE butapend + *!* LOCAL lbMenu[4] + + *!* lbMenu="" + *!* lbMenu[1]="\100 ]+; + [OR ABS(TOTFTVAI*(]+ALLTRIM(STR(m.ctvai,5,2))+[-1)-TVAI)>100 ]+; + [OR ABS(TOTFTVAM+TOTFTVAI+NEIMPOZAB+TVAI+TVAM-TOTCTVA)>100)] + ENDIF + + IF thisform.ck_fdoc.Value=1 + lcFiltru = lcFiltru + thisform.ck_fdoc.filtru + ENDIF + + IF thisform.ck_nract.Value=1 + lcFiltru = lcFiltru + thisform.ck_nract.filtru + ENDIF + + IF thisform.ck_nume.Value=1 + lcFiltru = lcFiltru + thisform.ck_nume.filtru + ENDIF + + IF thisform.ck_opext.Value=1 + lcFiltru = lcFiltru + [ AND EXT=1] + ENDIF + + thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT('actcv')=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare") + thisform.ck_nract.SetFocus() + ENDIF + ENDPROC + + PROCEDURE do_excel + If Used('actcv') And Reccount('actcv')>0 + Local i,xlsheet,XLApp,tmpsheet + exista_excel=.T. + p1='' + p2='' + With Thisform._grdbase1 + For nCol=1 To .ColumnCount + nColumn=.Columns(nCol).ColumnOrder + p1=p1+.Columns(nCol).ControlSource+',' + p2=p2+Strtran(.Columns(nCol).header1.Caption,Chr(32),'_')+',' + Endfor + p1=Substr(p1,1,Len(p1)-1) + p2=Substr(p2,1,Len(p2)-1) + Endwith + On Error Do exportare With thisform._grdbase1.RecordSource,p1,p2 + tmpsheet = Getobject('','excel.sheet') + On Error + + If exista_excel + Wait Window "Se transmit datele catre Excel..." Nowait + + XLApp = tmpsheet.Application + XLApp.workbooks.Close() + XLApp.workbooks.Add() + poExcel = XLApp.ActiveSheet + + Go Top + poExcel.Cells(1,1).Font.Size=16 + poExcel.Cells(1,1).Font.Bold=.T. + poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn)) + nRows = 3 + With Thisform._grdbase1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption + poExcel.Cells(nRows,nColumn).Font.Bold = .T. + poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16 + Endfor + Scan + nRows = nRows + 1 + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder + If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0 + poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA') + Else + poExcel.Cells(nRows,nColumn) = Eval(.Columns(nCol).ControlSource) + Endif + Endfor + Endscan + Endwith + + XLApp.Visible = .T. + Endif + Endif + + + ENDPROC + + PROCEDURE do_listare + PUBLIC totftvam,tvam,a1,a2,AI,AM + PRIVATE pctitlu + STORE '' TO pctitlu + PRIVATE pcRegistru, pcContTVA, pcListaContTVA, pcListaContBaza, pcListaContExceptii + + + x=xmenu("\ 0 + SELECT cont_exceptii + SCAN + lcExceptii = lcExceptii + ',' + ALLTRIM(exceptie) + ENDSCAN + USE IN cont_exceptii + ENDIF + lcListaCampuri = get_lista_Act() + + lcSql = [begin pack_REFACERI.REFAC_TVA('] + gcS +[', 'vanz', 1.19, 1.09, '] + lcCorespDtva +[', '] + lcCorespD +[', '] + lcCorespCtva +[', '] + lcCorespC +[','4427', '] + lcExceptii +[',] + pcan + [, ] + pcnl + [,] + ALLTRIM(STR(tnScrie_Sterge)) + [,'] + lcListaCampuri + [' ); end;] + + lnSucces = goExecutor.oExecute(lcSql) + IF lnSucces < 0 + MESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + RETURN + ENDIF + + THISFORM.actualizeaza_grid1() + + + *** verificare INAINTE_DE + lcCoresp = ['411'] + lcExceptii = ['667,622'] + do inainte WITH "VANZ",,,,lcExceptii,lcCoresp in oinainte_de.prg + MESSAGEBOX('Refacerea s-a terminat') + + + + ENDPROC + + PROCEDURE do_reset + thisform.ck_scd.Value=0 + thisform.ck_dataact.Value=0 + thisform.ck_eroare.Value=0 + thisform.ck_fdoc.Value=0 + thisform.ck_nract.Value=0 + thisform.ck_nume.Value=0 + thisform.ck_opext.Value=0 + thisform.Refresh + ENDPROC + + PROCEDURE filtre + *!* STORE ".T." TO tfirma,TER,Tachitat,Tneachitat + *!* sele actcv + + *!* if Bfirma==.t. then + *!* Tfirma="UPPER(LEFT(ACTCV.nume,LEN(M.nume)))==M.nume" + *!* endif + + *!* if Bachitat==.t. then + *!* Tachitat='ACTCV.totctva=ACTCV.achitat and totctva#0' + *!* endif + + *!* if Bneachitat==.t. then + *!* Tneachitat='ACTCV.totctva#ACTCV.achitat' + *!* endif + + ENDPROC + + PROCEDURE incaspl + Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + Store "" To poact + Store .F. To llAfisare + Store 0 To pnlunanan + + pnlunanan=gnAn*12+gnLuna + CN='411 ' + Thisform.but_teRMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + + pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; + ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + *!* Sele ACTan + *!* Do NRORD With "ACTan" + pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,nract] + + Select actcv + *!* Do Case + *!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")&&cumparari + &&deb + *!* pcTitlu="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + *!* [and (perecheD=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')] + *!* gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poact.ca_baza1.afisare() + + *!* Select acn2 + *!* Sum suma To totsum + *!* If Thisform.lb_titlu_alb_b121.Caption#"REGISTRUL CUMPARARI" + *!* If totsum#m.achitat + *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* Endif + *!* Endif + *!* ORC=Createobj("AFincpl") + *!* ORC.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC.LABELTITLU.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + + *!* Otherwise&&vanzari + &&cred + *!* Sele 0 + + &&deb + pcTitlu="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + pcfiltru=[partC=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + [and (perecheC=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')] + gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + + *!* Select acn2 + *!* Sum suma To totsum + *!* If Thisform.LABEL10.Caption#"REGISTRUL VANZARI" + *!* If totsum#m.achitat + *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!" + *!* Endif + *!* Endif + *!* ORC=Createobj("AFincpl") + *!* ORC.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* ORC.LABELTITLU.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + *!* Endcase + + *!* ORC.ali="acn2" + *!* ORC.grid1.column6.Visible=.T. + *!* ORC.Show(1) + + ORC=Createobj("frm_debcred") + orc.Lb_titlu_alb_b121.caption=pcTitlu + ORC.lb_titlu1.Caption=pcTitlu + ORC.Show(1) + + pcTitlu="" + Thisform.AlwaysOnTop=.T. + Thisform.but_teRMIN1.Enabled=.T. + If Used('acn1') + Use In acn1 + Endif + Release ORC,poact + ENDPROC + + PROCEDURE Init + DODEFAULT() + PRIVATE pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + STORE 0.00 TO pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + IF luna_inchisa + thisform.but_modifica1.Visible=.F. + thisform._shape2.Left=thisform._shape2.Left+thisform.but_modifica1.Width + thisform._shape2.width=thisform._shape2.width-thisform.but_modifica1.Width + ENDIF + thisform.Refresh + ENDPROC + + PROCEDURE istoric + *!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poacn1,poacn2,pcnume + *!* Store "" To poacn1,poacn2,pcnume + *!* Store .F. To llAfisare + *!* lunanan=gnAn*12+gnLuna + *!* CN='411 ' + *!* Thisform.but_TERMIN1.Enabled=.F. + *!* Thisform.AlwaysOnTop=.F. + + *!* *!* Do NRORD With "ACTan" + *!* Select actcv + *!* pcnume=nume + *!* Do Case + *!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE FACTURI CUMPARARI")&&cumparari + *!* &&deb + *!* pcschema=[''] + *!* pcselect=['select * from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[partD=']+Alltrim(pcnume)+[' and SUBSTR(scd,1,3)='401'] + *!* pcorder=[dataact,nract] + *!* gencursor('poacn1','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poacn1.ca_baza1.afisare() + + *!* &&cred + *!* pcschema=[''] + *!* pcselect=['select nume,dataact,nract,dataireg,totctva as suma,achitat,achitat as pereche,fdoc,fdoc as scc,fdoc as scd,'+]+; + *!* ['fdoc as partC,fdoc as explicatia from ]+gcS+[.vcump where 2=2'] + *!* pcfiltru=[nume=']+Alltrim(pcnume)+[' and extract(year from dataact)*12+extract(month from dataact)<=]+Alltrim(Str(lunanan)) + *!* pcorder=[dataact,nract] + *!* gencursor('poacn2','ACN2',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poacn2.ca_baza1.afisare() + + *!* ORC=Createobj("AFDEBsiCREDA") + *!* ORC.Caption="PERECHI - "+Alltrim(pcnume) + *!* ORC.grid2.SetAll("DynamicForeColor", ; + *!* "IIF(abs(suma-achitat)<1000,RGB(0,0,0),iif(suma0 + Private pcselect,pcfiltru,pcschema,pcorder,poact,pcnume + Store "" To poact,pcnume + pcschema=['DATAIREG D,DATAACT D,NRACT N(14),PARTD C(50),PARTC C(50),EXPLICATIA C(100),'+]+; + ['SUMA N(19,2),SCD C(4),SCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20)'] + pcselect=['select dataireg,dataact,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataireg] + llAfisare=.F. + lunanan=gnLuna+gnAn*12 + Thisform.but_TERMIN1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + + Sele actcv + pcnume=nume + If Inlist(Thisform.lb_titlu_alb_b121.Caption,"REGISTRUL CUMPARARI" ,"REGISTRUL VANZARI") + pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+; + [ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+; + [ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+; + [ and partd=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + *!* Do NRORD With "ACT" + Else + pcfiltru=[extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+; + [ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+; + [ and partd=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + *!* Do NRORD With "ACTAN" + Endif + gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + Go Top + *!* ORC=Createobj("AFDEBCRED") + *!* ORC.ali='ACN1' + *!* ORC.LABELTITLU.Caption="NOTA CONTABILA" + *!* ORC.Show(1) + + ORC=Createobj("frm_debcred") + orc.Lb_titlu_alb_b121.caption="Nota contabila "+ALLTRIM(pcnume) + ORC.lb_titlu1.Caption="NOTA CONTABILA" + orc._grdbase1.removeobject("cUtil") + orc._grdbase1.removeobject("cDataOra") + ORC.Show(1) + + Release poact,ORC + Thisform.but_TERMIN1.Enabled=.T. + Thisform.AlwaysOnTop=.T. + Else + Messagebox("Nu aveti date in cautare!",48,"Atentie") + Thisform.ck_nract.SetFocus() + Endif + ENDPROC + + PROCEDURE plati + *!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + *!* Store "" To poact + *!* Store .F. To llAfisare + *!* Select actcv + *!* pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; + *!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + *!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + *!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + *!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + *!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + *!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + *!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + *!* pcschema=[''] + *!* pcselect=['select * from ]+gcS+[.vact where 2=2'] + *!* pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+; + *!* [ and nume=']+Alltrim(nume)+[' and perecheC=]+Alltrim(Str(nract)) + *!* pcorder=[] + *!* gencursor("poact","act",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + *!* poact.ca_baza1.afisare() + *!* Select act + *!* Do NRORD With "ACT" + *!* Go Top + *!* Thisform.but_termin1.Enabled=.F. + *!* ORC=Createobj("AFDEBCRED") + *!* ORC.LABELTITLU.Caption="Plati" + *!* ORC.Show(1) + *!* Thisform.but_termin1.Enabled=.T. + *!* RELEASE orc,poact + ENDPROC + + PROCEDURE cmd_istoric.Click + thisform.istoric() + ENDPROC + + PROCEDURE cmd_notacontab.Click + thisform.notacontab() + ENDPROC + + PROCEDURE _grdbase1.Column1.Text1.DblClick + Thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column10.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column11.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column12._checkbox1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column13.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column15._checkbox1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column2.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.Column2.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column3.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.Column3.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column4.Header1.Init + this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0)) + ENDPROC + + PROCEDURE _grdbase1.Column4.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column5.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column6.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column7.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column8.Text1.DblClick + thisform.butdrept() + ENDPROC + + PROCEDURE _grdbase1.Column9.Text1.DblClick + thisform.butdrept() + ENDPROC + +ENDDEFINE diff --git a/Clase/solution.vc2 b/Clase/solution.vc2 new file mode 100644 index 0000000..1df77bb --- /dev/null +++ b/Clase/solution.vc2 @@ -0,0 +1,65 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="solution.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS cmdclose AS commandbutton && Close button + *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Cancel = .T. + Caption = "Close" + FontBold = .F. + FontName = "MS Sans Serif" + FontSize = 8 + Height = 23 + Name = "cmdclose" + Width = 72 + * + + PROCEDURE Click + IF TYPE("THISFORM.Parent") = "O" + THISFORMSET.Release + ELSE + THISFORM.Release + ENDIF + ENDPROC + + PROCEDURE Error + LPARAMETERS nError, cMethod, nLine + LOCAL lnChoice + #DEFINE CR CHR(13) + DO CASE + CASE nError = 1545 && Uncommitted changes + *------------------------------------ + #DEFINE MSG1_LOC "Do you want to save your changes?" + #DEFINE MSG2_LOC "Uncommitted Changes" + lnChoice = MESSAGEBOX(MSG1_LOC, 4+48+0, MSG2_LOC) + DO CASE + CASE lnChoice = 6 && yes + =TABLEUPDATE(.T., .T.) + CASE lnChoice = 7 && no + =TABLEREVERT(.T.) + ENDCASE + OTHERWISE && Unanticipated error + *-------------------------------------- + #DEFINE NUM_LOC "Error Number: " + #DEFINE PROG_LOC "Program: " + #DEFINE CAP_LOC "ERROR" + lcMsg = NUM_LOC + ALLTRIM(STR(nError)) + CR + CR + ; + MESSAGE()+ CR + CR + PROG_LOC + PROGRAM(1) + lnChoice = MESSAGEBOX(lcMsg, 2+48+512, CAP_LOC) + DO CASE + CASE lnChoice = 3 &&Abort + CANCEL + CASE lnChoice = 4 &&Retry + RETRY + CASE lnChoice = 5 &&Ignore + RETURN + ENDCASE + ENDCASE + + ENDPROC + +ENDDEFINE diff --git a/Ferestre/ATENTIE1.sc2 b/Ferestre/ATENTIE1.sc2 new file mode 100644 index 0000000..1b4e6e9 --- /dev/null +++ b/Ferestre/ATENTIE1.sc2 @@ -0,0 +1,75 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="atentie1.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + Name = "Dataenvironment" + * + +ENDDEFINE + +DEFINE CLASS fatentie1 AS fatentie OF "..\clase\ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 84 + Name = "Fatentie1" + Width = 353 + WindowType = 0 + Shape1.Height = 75 + Shape1.Left = 4 + Shape1.Name = "Shape1" + Shape1.Top = 4 + Shape1.Width = 344 + IMAGE1.Height = 32 + IMAGE1.Left = 24 + IMAGE1.Name = "IMAGE1" + IMAGE1.Top = 12 + IMAGE1.Width = 32 + Label1.Left = 64 + Label1.Name = "Label1" + Label1.Top = 14 + * + + ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ; + AutoSize = .F., ; + Caption = "\ + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + Caption = "Modificarile sunt ireversibile!", ; + FontSize = 12, ; + Height = 21, ; + Left = 129, ; + Name = "Label2", ; + Top = 14, ; + Width = 200 + *< END OBJECT: BaseClass="label" /> + + PROCEDURE Deactivate + thisform.release + ENDPROC + + PROCEDURE LostFocus + thisform.release + + ENDPROC + +ENDDEFINE diff --git a/Ferestre/afisbalx.sc2 b/Ferestre/afisbalx.sc2 new file mode 100644 index 0000000..0f703a7 --- /dev/null +++ b/Ferestre/afisbalx.sc2 @@ -0,0 +1,1318 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="afisbalx.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + Height = 200 + Left = 45 + Name = "Dataenvironment" + Top = 86 + Width = 520 + * + +ENDDEFINE + +DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column1.header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column2.Header2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column3.Header3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column4.Header4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column5.Header5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column6.Header6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column7.Header7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column8.Header8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdlist3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdlist4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdlist5" UniqueID="" Timestamp="" /> + + * + *m: afisactual + *m: butapend + *m: butdrept + *m: fisacont + *m: rulcred + *m: ruldeb + *m: ruldebcred + *m: totcred + *m: totdeb + *m: totdebcred + * + + * + DoCreate = .T. + Height = 503 + Name = "Ffergen1" + Width = 793 + WindowType = 1 + Line1.Left = -4 + Line1.Name = "Line1" + Line1.Top = 475 + * + + ADD OBJECT 'Cmdlist1' AS cmdlist WITH ; + Left = 648, ; + Name = "Cmdlist1", ; + Top = 564, ; + Visible = .F., ; + Width = 98 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmdlist3' AS cmdlist WITH ; + Caption = "", ; + DownPicture = , ; + FontName = "Arial Black", ; + FontSize = 20, ; + ForeColor = 255,255,0, ; + Left = 689, ; + Name = "Cmdlist3", ; + Picture = ..\grafice\new.bmp, ; + ToolTipText = "Linie noua", ; + Top = 300 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmdlist4' AS cmdlist WITH ; + Caption = "", ; + DownPicture = ..\grafice\delete.bmp, ; + Left = 689, ; + Name = "Cmdlist4", ; + Picture = ..\grafice\delete.bmp, ; + ToolTipText = "Stergerea liniei selectate", ; + Top = 333 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmdlist5' AS cmdlist WITH ; + Caption = "+", ; + DownPicture = , ; + FontName = "Arial Black", ; + FontSize = 20, ; + ForeColor = 0,64,128, ; + Left = 689, ; + Name = "Cmdlist5", ; + ToolTipText = "Recalculare sume", ; + Top = 367 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ; + Height = 27, ; + Left = 689, ; + Name = "Cmdtermin1", ; + TabIndex = 2, ; + Top = 428, ; + Width = 98, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Command3' AS commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'Command4' AS commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'Grid1' AS grid WITH ; + BackColor = 254,255,240, ; + ColumnCount = 10, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + GridLineColor = 128,128,128, ; + Height = 379, ; + Left = 5, ; + Name = "Grid1", ; + Panel = 1, ; + ReadOnly = .F., ; + RowHeight = 19, ; + TabIndex = 1, ; + Top = 17, ; + Width = 672, ; + ZOrderSet = 9, ; + Column1.Alignment = 0, ; + Column1.BackColor = 226,226,226, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "bal.cont", ; + Column1.FontName = "Arial Narrow", ; + Column1.FontSize = 9, ; + Column1.Format = "", ; + Column1.InputMask = "", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .F., ; + Column1.Width = 26, ; + Column2.Alignment = 0, ; + Column2.BackColor = 226,226,226, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "bal.denumire", ; + Column2.FontName = "Arial Narrow", ; + Column2.FontSize = 9, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .F., ; + Column2.Width = 68, ; + Column3.Alignment = 1, ; + Column3.BackColor = 249,233,217, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "bal.precdeb", ; + Column3.DynamicForeColor = "IIF(PRECDEB>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column3.FontName = "Arial Narrow", ; + Column3.FontSize = 9, ; + Column3.Format = "r", ; + Column3.InputMask = "999 999 999 999", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .F., ; + Column3.Width = 63, ; + Column4.Alignment = 1, ; + Column4.BackColor = 249,233,217, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "bal.preccred", ; + Column4.DynamicForeColor = "IIF(PRECCRED>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column4.FontName = "Arial Narrow", ; + Column4.FontSize = 9, ; + Column4.Format = "r", ; + Column4.InputMask = "999 999 999 999", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .F., ; + Column4.Width = 66, ; + Column5.Alignment = 1, ; + Column5.BackColor = 236,242,241, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "bal.ruldeb", ; + Column5.DynamicForeColor = "IIF(RULDEB>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column5.FontName = "Arial Narrow", ; + Column5.FontSize = 9, ; + Column5.Format = "R", ; + Column5.InputMask = "999 999 999 999", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .F., ; + Column5.Width = 64, ; + Column6.Alignment = 1, ; + Column6.BackColor = 236,242,241, ; + Column6.ColumnOrder = 6, ; + Column6.ControlSource = "bal.rulcred", ; + Column6.DynamicForeColor = "IIF(RULCRED>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column6.FontName = "Arial Narrow", ; + Column6.FontSize = 9, ; + Column6.Format = "R", ; + Column6.InputMask = "999 999 999 999", ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .F., ; + Column6.Width = 69, ; + Column7.Alignment = 1, ; + Column7.BackColor = 249,233,217, ; + Column7.ColumnOrder = 7, ; + Column7.ControlSource = "bal.totdeb", ; + Column7.DynamicForeColor = "IIF(TOTDEB>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column7.FontName = "Arial Narrow", ; + Column7.FontSize = 9, ; + Column7.Format = "r", ; + Column7.InputMask = "999 999 999 999", ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .F., ; + Column7.Width = 75, ; + Column8.Alignment = 1, ; + Column8.BackColor = 249,233,217, ; + Column8.ColumnOrder = 8, ; + Column8.ControlSource = "bal.totcred", ; + Column8.DynamicForeColor = "IIF(TOTCRED>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column8.FontName = "Arial Narrow", ; + Column8.FontSize = 9, ; + Column8.Format = "r", ; + Column8.InputMask = "999 999 999 999", ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .F., ; + Column8.Width = 70, ; + Column9.Alignment = 1, ; + Column9.BackColor = 236,242,241, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "bal.soldcred", ; + Column9.DynamicForeColor = "IIF(SOLDCRED>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column9.FontName = "Arial Narrow", ; + Column9.FontSize = 9, ; + Column9.Format = "r", ; + Column9.InputMask = "999 999 999 999", ; + Column9.Name = "Column10", ; + Column9.ReadOnly = .F., ; + Column9.Width = 70, ; + Column10.Alignment = 1, ; + Column10.BackColor = 236,242,241, ; + Column10.ColumnOrder = 9, ; + Column10.ControlSource = "bal.solddeb", ; + Column10.DynamicForeColor = "IIF(SOLDDEB>=0, RGB(0,0,0), RGB(255,0,0))", ; + Column10.FontName = "Arial Narrow", ; + Column10.FontSize = 9, ; + Column10.Format = "r", ; + Column10.InputMask = "999 999 999 999", ; + Column10.Name = "Column9", ; + Column10.ReadOnly = .F., ; + Column10.Width = 66 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'Grid1.Column1.header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold Credit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 236,242,241, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header2" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 226,226,226, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column3.Header3' AS header WITH ; + Alignment = 2, ; + Caption = "Prec.Debit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header3" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 249,233,217, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column4.Header4' AS header WITH ; + Alignment = 2, ; + Caption = "Prec.Credit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header4" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 249,233,217, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column5.Header5' AS header WITH ; + Alignment = 2, ; + Caption = "Rul.Debit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header5" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 236,242,241, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column6.Header6' AS header WITH ; + Alignment = 2, ; + BackColor = 192,192,192, ; + Caption = "Rul.Credit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header6" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 236,242,241, ; + BorderColor = 0,0,0, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column7.Header7' AS header WITH ; + Alignment = 2, ; + Caption = "Total Debit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header7" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 249,233,217, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column8.Header8' AS header WITH ; + Alignment = 2, ; + Caption = "Total Credit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header8" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 249,233,217, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold Debit", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ; + Alignment = 1, ; + BackColor = 236,242,241, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + Caption = "Editare", ; + Height = 17, ; + Left = 692, ; + Name = "Label1", ; + TabIndex = 13, ; + Top = 276, ; + Width = 40, ; + ZOrderSet = 11 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label10' AS label WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "BALANTA DE VERIFICARE", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 255,255,255, ; + Height = 18, ; + Left = 5, ; + Name = "Label10", ; + TabIndex = 21, ; + Top = 0, ; + Width = 271, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label11' AS label WITH ; + Caption = "Debit", ; + Height = 17, ; + Left = 367, ; + Name = "Label11", ; + TabIndex = 20, ; + Top = 431, ; + Width = 35, ; + ZOrderSet = 28 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label12' AS label WITH ; + Caption = "Credit", ; + Height = 17, ; + Left = 367, ; + Name = "Label12", ; + TabIndex = 20, ; + Top = 453, ; + Width = 35, ; + ZOrderSet = 29 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label13' AS label WITH ; + Caption = "Debit", ; + Height = 17, ; + Left = 537, ; + Name = "Label13", ; + TabIndex = 20, ; + Top = 429, ; + Width = 35, ; + ZOrderSet = 30 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label14' AS label WITH ; + Caption = "Credit", ; + Height = 17, ; + Left = 537, ; + Name = "Label14", ; + TabIndex = 20, ; + Top = 451, ; + Width = 35, ; + ZOrderSet = 31 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label15' AS label WITH ; + AutoSize = .F., ; + Caption = "Afisare", ; + Height = 17, ; + Left = 692, ; + Name = "Label15", ; + TabIndex = 13, ; + Top = 108, ; + Visible = .F., ; + Width = 40, ; + ZOrderSet = 35 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + Caption = "Rulaje", ; + Height = 17, ; + Left = 244, ; + Name = "Label2", ; + Top = 409, ; + Width = 40, ; + ZOrderSet = 32 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Caption = "Credit", ; + Height = 17, ; + Left = 26, ; + Name = "Label3", ; + TabIndex = 20, ; + Top = 453, ; + Width = 35, ; + ZOrderSet = 21 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + Caption = "Total sume", ; + Height = 17, ; + Left = 394, ; + Name = "Label4", ; + Top = 409, ; + Width = 72, ; + ZOrderSet = 33 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + Caption = "Solduri", ; + Height = 17, ; + Left = 572, ; + Name = "Label5", ; + Top = 409, ; + Width = 40, ; + ZOrderSet = 34 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + Caption = "Debit", ; + Height = 17, ; + Left = 202, ; + Name = "Label6", ; + TabIndex = 20, ; + Top = 430, ; + Width = 35, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label7' AS label WITH ; + Caption = "Credit", ; + Height = 17, ; + Left = 202, ; + Name = "Label7", ; + TabIndex = 20, ; + Top = 452, ; + Width = 35, ; + ZOrderSet = 27 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label8' AS label WITH ; + Caption = "Total sume precedente", ; + Height = 17, ; + Left = 26, ; + Name = "Label8", ; + TabIndex = 19, ; + Top = 409, ; + Width = 132, ; + ZOrderSet = 18 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label9' AS label WITH ; + Caption = "Debit", ; + Height = 17, ; + Left = 26, ; + Name = "Label9", ; + TabIndex = 20, ; + Top = 431, ; + Width = 35, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'oMenuShortcut' AS menulib WITH ; + Left = 716, ; + Name = "oMenuShortcut", ; + TabIndex = 0, ; + Top = 48 + *< END OBJECT: ClassLib="..\clase\utility.vcx" BaseClass="container" /> + + ADD OBJECT 'Optiongroup1' AS optiongroup WITH ; + ButtonCount = 5, ; + ControlSource = "", ; + Height = 120, ; + Left = 684, ; + Name = "Optiongroup1", ; + Top = 115, ; + Value = 1, ; + Visible = .F., ; + Width = 108, ; + ZOrderSet = 1, ; + Option1.AutoSize = .T., ; + Option1.Caption = "\ + + ADD OBJECT 'Shape1' AS shape WITH ; + Height = 77, ; + Left = 3, ; + Name = "Shape1", ; + SpecialEffect = 0, ; + Top = 403, ; + Width = 677, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + Height = 463, ; + Left = 684, ; + Name = "Shape2", ; + SpecialEffect = 0, ; + Top = 17, ; + Width = 108, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape3' AS shape WITH ; + Height = 121, ; + Left = 684, ; + Name = "Shape3", ; + SpecialEffect = 0, ; + Top = 283, ; + Width = 108, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape4' AS shape WITH ; + Height = 65, ; + Left = 176, ; + Name = "Shape4", ; + SpecialEffect = 0, ; + Top = 415, ; + Width = 168, ; + ZOrderSet = 3 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape5' AS shape WITH ; + Height = 65, ; + Left = 3, ; + Name = "Shape5", ; + SpecialEffect = 0, ; + Top = 415, ; + Width = 176, ; + ZOrderSet = 7 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape6' AS shape WITH ; + Height = 65, ; + Left = 342, ; + Name = "Shape6", ; + SpecialEffect = 0, ; + Top = 415, ; + Width = 168, ; + ZOrderSet = 4 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape8' AS shape WITH ; + Height = 65, ; + Left = 508, ; + Name = "Shape8", ; + SpecialEffect = 0, ; + Top = 415, ; + Width = 172, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.sprecdeb", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 61, ; + Name = "Text1", ; + ReadOnly = .T., ; + TabIndex = 6, ; + Top = 427, ; + Width = 90, ; + ZOrderSet = 12 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.spreccred", ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 61, ; + Name = "Text2", ; + ReadOnly = .T., ; + TabIndex = 7, ; + Top = 451, ; + Width = 90, ; + ZOrderSet = 13 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text3' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.srulcred", ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 239, ; + Name = "Text3", ; + ReadOnly = .T., ; + TabIndex = 8, ; + Top = 451, ; + Width = 90, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text4' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.sruldeb", ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 239, ; + Name = "Text4", ; + ReadOnly = .T., ; + TabIndex = 10, ; + Top = 427, ; + Width = 90, ; + ZOrderSet = 16 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text5' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.stotdeb", ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 404, ; + Name = "Text5", ; + ReadOnly = .T., ; + TabIndex = 9, ; + Top = 427, ; + Width = 90, ; + ZOrderSet = 15 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text6' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.stotcred", ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 404, ; + Name = "Text6", ; + ReadOnly = .T., ; + TabIndex = 11, ; + Top = 451, ; + Width = 90, ; + ZOrderSet = 17 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text7' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.ssolddeb", ; + FontName = "Arial Narrow", ; + FontSize = 9, ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 575, ; + Name = "Text7", ; + ReadOnly = .T., ; + TabIndex = 6, ; + Top = 425, ; + Width = 90, ; + ZOrderSet = 24 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text8' AS textbox WITH ; + Alignment = 1, ; + ControlSource = "m.ssoldcred", ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = "999 999 999 999", ; + Left = 575, ; + Name = "Text8", ; + ReadOnly = .T., ; + TabIndex = 7, ; + Top = 449, ; + Width = 90, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE afisactual + sele bal + repl all totdeb with ruldeb+precdeb + repl all totcred with rulcred+preccred + repl all solddeb with iif(totdeb-totcred>0,totdeb-totcred,0) + repl all soldcred with iif(totdeb-totcred>0,0,-totdeb+totcred) + thisform.text1.setfocus + thisform.text2.setfocus + thisform.text3.setfocus + thisform.text4.setfocus + thisform.text5.setfocus + thisform.text6.setfocus + thisform.text7.setfocus + thisform.text8.setfocus + + thisform.grid1.refresh + ENDPROC + + PROCEDURE butapend + ENDPROC + + PROCEDURE butdrept + ENDPROC + + PROCEDURE fisacont + ENDPROC + + PROCEDURE Init + SELE BAL + GO TOP + ENDPROC + + PROCEDURE rulcred + ENDPROC + + PROCEDURE ruldeb + ENDPROC + + PROCEDURE ruldebcred + ENDPROC + + PROCEDURE totcred + ENDPROC + + PROCEDURE totdeb + ENDPROC + + PROCEDURE totdebcred + ENDPROC + + PROCEDURE Cmdlist1.Click + THISFORM.WINDOWSTATE=1 + do rapbal97.prg + THISFORM.WINDOWSTATE=0 + ENDPROC + + PROCEDURE Cmdlist3.Click + sele bal + + appe blan + thisform.afisactual + ENDPROC + + PROCEDURE Cmdlist4.Click + sele bal + dele + thisform.afisactual + ENDPROC + + PROCEDURE Cmdlist5.Click + + thisform.afisactual + ENDPROC + + PROCEDURE Cmdtermin1.Valid + DO CALCULEAZABALANTA + ENDPROC + + PROCEDURE Command3.Click + local t1,t2,sem,sumc,sumd,m.cont + + + SELE BAL + SCAN + t1=" " + t2=" " + sem=.f. + SCATTER MEMVAR + M.CONT=SUBS(CONT,1,4) + + SELE ACT + SUM SUMA TO SUMD FOR SCD=M.CONT + SUM SUMA TO SUMC FOR SCC=M.CONT + IF SUMD#M.RULDEB + t1='Cont debitor '+M.CONT+' cu dif. '+STR(M.RULDEB-SUMD,13) + *wait windows 'CONT DEBITOR '+M.CONT+' CU DIF. '+STR(M.RULDEB-SUMD,13) + sem=.t. + ENDIF + IF SUMC#M.RULCRED + t2= 'Cont creditor '+M.CONT+' cu dif. '+STR(M.RULCRED-SUMC,13) + *wait windows 'CONT CREDITOR '+M.CONT+' CU DIF. '+STR(M.RULCRED-SUMC,13) + sem=.t. + ENDIF + if sem==.t. then + ot=createobj("text") + ot.label2.caption=t1 + ot.label3.caption=t2 + ot.show(1) + endif + SELE BAL + ENDSCAN + + if sem==.f. then + OT=CREATEOBJ("TEXT") + OT.LABEL2.CAPTION="Verificarea s-a incheiat." + OT.LABEL3.visible=.f. + ot.show(1) + endif + ENDPROC + + PROCEDURE Command4.Click + + DO REFBAL IN REFverif.PRG + DO VERDIFBAL IN REFverif.PRG + + *do refbalanta + + OT=CREATEOBJ("TEXT") + OT.LABEL2.CAPTION="Balanta este refacuta." + OT.LABEL3.visible=.f. + ot.show(1) + sele bal + ENDPROC + + PROCEDURE Grid1.AfterRowColChange + LPARAMETERS nColIndex + THISFORM.OPTIONGROUP1.OPTION2.ENABLED=.T. + THISFORM.OPTIONGROUP1.OPTION3.ENABLED=.T. + THISFORM.OPTIONGROUP1.OPTION4.ENABLED=.T. + THISFORM.OPTIONGROUP1.OPTION5.ENABLED=.T. + ENDPROC + + PROCEDURE Grid1.Column1.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column1.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column10.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column10.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column2.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column2.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column3.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column3.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column4.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column4.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column5.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column5.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column6.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column6.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column7.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column7.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column8.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column8.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.Column9.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE Grid1.Column9.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.DblClick + do editscurt.mpr + ENDPROC + + PROCEDURE Grid1.When + sele bal + set filter to !deleted() + ENDPROC + + PROCEDURE Optiongroup1.Option1.Click + THIS.PARENT.OPTION2.ENABLED=.F. + THIS.PARENT.OPTION3.ENABLED=.F. + THIS.PARENT.OPTION4.ENABLED=.F. + THIS.PARENT.OPTION5.ENABLED=.F. + + SELE BAL + SET FILTER TO !DELETED() + THISFORM.GRID1.ACTIVATECELL(1,1) + ENDPROC + + PROCEDURE Optiongroup1.Option2.Click + THISFORM.RULDEB + ENDPROC + + PROCEDURE Optiongroup1.Option3.Click + THISFORM.RULCRED + ENDPROC + + PROCEDURE Optiongroup1.Option4.Click + THISFORM.TOTDEB + ENDPROC + + PROCEDURE Optiongroup1.Option5.Click + THISFORM.TOTCRED + ENDPROC + + PROCEDURE Shape2.RightClick + THISFORM.BUTAPEND + ENDPROC + + PROCEDURE Text1.GotFocus + sum precdeb to m.sprecdeb + ENDPROC + + PROCEDURE Text1.Init + sum precdeb to m.sprecdeb + this.refresh + ENDPROC + + PROCEDURE Text1.Refresh + THIS.FORECOLOR=IIF(M.SPRECDEB>=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Text2.GotFocus + sum preccred to m.spreccred + ENDPROC + + PROCEDURE Text2.Init + + sum preccred to m.spreccred + this.refresh + ENDPROC + + PROCEDURE Text2.Refresh + THIS.FORECOLOR=IIF(M.SPRECCRED>=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Text3.GotFocus + sum rulcred to m.srulcred + ENDPROC + + PROCEDURE Text3.Init + sum rulcred to m.srulcred + this.refresh + ENDPROC + + PROCEDURE Text3.Refresh + THIS.FORECOLOR=IIF(M.SRULCRED>=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Text4.GotFocus + sum ruldeb to m.sruldeb + ENDPROC + + PROCEDURE Text4.Init + sum ruldeb to m.sruldeb + this.refresh + ENDPROC + + PROCEDURE Text4.Refresh + THIS.FORECOLOR=IIF(M.SRULDEB>=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Text5.GotFocus + sum totdeb to m.stotdeb + ENDPROC + + PROCEDURE Text5.Init + sum totdeb to m.stotdeb + this.refresh + ENDPROC + + PROCEDURE Text5.Refresh + THIS.FORECOLOR=IIF(M.STOTDEB>=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Text6.GotFocus + sum totcred to m.stotcred + ENDPROC + + PROCEDURE Text6.Init + sum totcred to m.stotcred + this.refresh + ENDPROC + + PROCEDURE Text6.Refresh + THIS.FORECOLOR=IIF(M.STOTCRED>=0, RGB(0,0,0), RGB(255,0,0)) + ENDPROC + + PROCEDURE Text7.GotFocus + sum solddeb to m.ssolddeb + ENDPROC + + PROCEDURE Text7.Init + sum solddeb to m.ssolddeb + this.refresh + ENDPROC + + PROCEDURE Text8.GotFocus + sum neimpozab to m.sneimpozab + ENDPROC + + PROCEDURE Text8.Init + sum soldcred to m.ssoldcred + this.refresh + ENDPROC + +ENDDEFINE diff --git a/Ferestre/fundal.sc2 b/Ferestre/fundal.sc2 new file mode 100644 index 0000000..db35cd4 --- /dev/null +++ b/Ferestre/fundal.sc2 @@ -0,0 +1,377 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 200 + Left = 1 + Name = "Dataenvironment" + Top = 220 + Width = 520 + * + +ENDDEFINE + +DEFINE CLASS form1 AS form + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine02" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" /> + + * + *m: jurnal + * + + * + AlwaysOnBottom = .T. + AutoCenter = .T. + BackColor = 255,255,255 + BorderStyle = 0 + Caption = "" + Closable = .F. + ControlBox = .F. + DoCreate = .T. + Enabled = .T. + FillColor = 0,0,0 + HalfHeightCaption = .F. + Height = 429 + MaxButton = .F. + MinButton = .F. + Movable = .F. + Name = "FORM1" + Picture = ..\comun\drepturi utilizatori\roadef\ + ShowTips = .T. + Width = 797 + WindowState = 2 + * + + ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ; + ErasePage = .T., ; + Height = 457, ; + Left = -2, ; + Name = "_pgfrmbase1", ; + Top = 60, ; + Page1.CW1.LABEL_ITEM1.Name = "LABEL_ITEM1", ; + Page1.CW1.Name = "CW1", ; + Page1.Cw11.Label_item1.Name = "Label_item1", ; + Page1.Cw11.Name = "Cw11", ; + Page1.Cw12.Label_item1.Name = "Label_item1", ; + Page1.Cw12.Name = "Cw12", ; + Page1.Cw13.Label_item1.Name = "Label_item1", ; + Page1.Cw13.Name = "Cw13", ; + Page1.Cw5.Label_item1.Name = "Label_item1", ; + Page1.Cw5.Name = "Cw5", ; + Page1.Cw6.Label_item1.Name = "Label_item1", ; + Page1.Cw6.Name = "Cw6", ; + Page1.Cw8.Label_item1.Name = "Label_item1", ; + Page1.Cw8.Name = "Cw8", ; + Page1.Name = "Page1", ; + Page1.PageOrder = 1, ; + Page1.Pict_meniu1.Name = "Pict_meniu1", ; + Page2.Cw1.Label_item1.Name = "Label_item1", ; + Page2.Cw1.Name = "Cw1", ; + Page2.Cw2.Label_item1.Name = "Label_item1", ; + Page2.Cw2.Name = "Cw2", ; + Page2.Cw3.LABEL_ITEM1.Name = "LABEL_ITEM1", ; + Page2.Cw3.Name = "Cw3", ; + Page2.Cw4.LABEL_ITEM1.Name = "LABEL_ITEM1", ; + Page2.Cw4.Name = "Cw4", ; + Page2.Cw5.LABEL_ITEM1.Name = "LABEL_ITEM1", ; + Page2.Cw5.Name = "Cw5", ; + Page2.Cw6.Label_item1.Name = "Label_item1", ; + Page2.Cw6.Name = "Cw6", ; + Page2.Cw7.Label_item1.Name = "Label_item1", ; + Page2.Cw7.Name = "Cw7", ; + Page2.Cw9.Label_item1.Name = "Label_item1", ; + Page2.Cw9.Name = "Cw9", ; + Page2.Name = "Page2", ; + Page2.PageOrder = 3, ; + Page2.Pict_meniu1.Name = "Pict_meniu1", ; + PAGE3.Cw1.Label_item1.Name = "Label_item1", ; + PAGE3.Cw1.Name = "Cw1", ; + PAGE3.Cw2.Label_item1.Name = "Label_item1", ; + PAGE3.Cw2.Name = "Cw2", ; + PAGE3.Cw4.Label_item1.Name = "Label_item1", ; + PAGE3.Cw4.Name = "Cw4", ; + PAGE3.Cw9.Label_item1.Name = "Label_item1", ; + PAGE3.Cw9.Name = "Cw9", ; + PAGE3.Name = "PAGE3", ; + PAGE3.PageOrder = 2, ; + PAGE3.PICT_MENIU1.Name = "PICT_MENIU1", ; + Page4.Cw1.Label_item1.Name = "Label_item1", ; + Page4.Cw1.Name = "Cw1", ; + Page4.Cw10.Label_item1.Name = "Label_item1", ; + Page4.Cw10.Name = "Cw10", ; + Page4.Cw2.Label_item1.Name = "Label_item1", ; + Page4.Cw2.Name = "Cw2", ; + Page4.Cw3.Label_item1.Name = "Label_item1", ; + Page4.Cw3.Name = "Cw3", ; + Page4.Cw4.Label_item1.Name = "Label_item1", ; + Page4.Cw4.Name = "Cw4", ; + Page4.Cw5.Label_item1.Name = "Label_item1", ; + Page4.Cw5.Name = "Cw5", ; + Page4.Name = "Page4", ; + Page4.PageOrder = 4, ; + Page4.Pict_meniu1.Name = "Pict_meniu1" + *< END OBJECT: ClassLib="..\clase\ofundal_sal.vcx" BaseClass="pageframe" /> + + ADD OBJECT 'Image1' AS image WITH ; + BackStyle = 0, ; + Height = 220, ; + Left = 228, ; + Name = "Image1", ; + Picture = ..\grafice\roadef.bmp, ; + Stretch = 0, ; + Top = 205, ; + Width = 556 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Image2' AS image WITH ; + Height = 63, ; + Left = -11, ; + Name = "Image2", ; + Picture = ..\comun\grafice\f1.jpg, ; + Stretch = 2, ; + Top = -1, ; + Width = 851 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Imagine01' AS imagine WITH ; + Height = 55, ; + Left = 9, ; + Name = "Imagine01", ; + nid_img = 1, ; + picturedown = entitati2.bmp, ; + pictureup = entitati1.bmp, ; + ToolTipText = "Entitati", ; + Top = 1, ; + Width = 45 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine02' AS imagine WITH ; + Height = 55, ; + Left = 67, ; + Name = "Imagine02", ; + picturedown = plcont2.bmp, ; + pictureup = plcont1.bmp, ; + ToolTipText = "Plan conturi si politici contabile", ; + Top = 1, ; + Width = 45 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Operator:", ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 17, ; + Left = 7, ; + Name = "Label1", ; + Top = 381, ; + Width = 53 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nivel de acces:", ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 17, ; + Left = 7, ; + Name = "Label2", ; + Top = 401, ; + Width = 85 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ; + Anchor = 9, ; + Caption = "Operator:", ; + FontItalic = .T., ; + ForeColor = 255,255,255, ; + Left = 498, ; + Name = "lb_utilizator", ; + Top = 9 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ; + Anchor = 9, ; + Caption = "nume_utilizator", ; + FontBold = .T., ; + FontItalic = .T., ; + ForeColor = 255,255,255, ; + Left = 552, ; + Name = "lb_utilizator1", ; + Top = 9, ; + Visible = .F. + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + BackStyle = 0, ; + BorderStyle = 0, ; + ControlSource = "utilizator", ; + FontBold = .T., ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 23, ; + Left = 62, ; + Name = "Text1", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 380, ; + Width = 147 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + BackStyle = 0, ; + BorderStyle = 0, ; + ControlSource = "m.nivel", ; + FontBold = .T., ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 23, ; + Left = 93, ; + Name = "Text2", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 400, ; + Width = 28 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Activate + *!* THISFORM.AUTOCENTER=.T. + + LOCAL lnScrH,lnScrW + lnScrW = _screen.Width + lnScrH = _screen.Height + + thisform.image1.Top = lnScrH - thisform.image1.Height - 50 + thisform.image1.Left = lnScrW - thisform.image1.Width - 30 + thisform.image2.Width = lnScrW + 30 + thisform._pgfrmbase1.Width = lnScrW + thisform._pgfrmbase1.Height = thisform.Height-thisform.image2.Height + thisform._pgfrmbase1.page1.Pict_meniu1.Height = thisform._pgfrmbase1.Height + thisform._pgfrmbase1.page2.Pict_meniu1.Height = thisform._pgfrmbase1.Height + thisform._pgfrmbase1.page3.Pict_meniu1.Height = thisform._pgfrmbase1.Height + thisform._pgfrmbase1.page4.Pict_meniu1.Height = thisform._pgfrmbase1.Height + + *!* IF primadata + *!* + *!* DO start_firma IN ostartfirma.prg + *!* primadata = .F. + *!* + *!* verifica_drepturi2('gofundal','_pgfrmbase1') + *!* *!* *!* OSETINSTRUM = createobject('SETINSTRUM') + *!* *!* OSETVIZ = createobject('SETRAPID') + *!* *!* OSETVIZ.tbrprim.buton1.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.buton2.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.buton3.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.buton6.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.command1.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.command2.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.command3.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.command4.ENABLED=.T. + *!* *!* OSETVIZ.tbrprim.command5.ENABLED=.T. + + *!* *!* osetviz.show + *!* *!* *!* this.meniu1.Visible = .t. + *!* ENDIF + + *!* DO lansare_toolbar IN oproceduri_comune.prg + + + ENDPROC + + PROCEDURE Init + *!* THISFORM.AUTOCENTER=.T. + + + ENDPROC + + PROCEDURE jurnal + ENDPROC + + PROCEDURE KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + if nkeycode==-1 &&F2 + DO IESIRE + endif + + + + ENDPROC + + PROCEDURE RightClick + *!* set safety off + DO start_firma IN ostartfirma.prg + verifica_drepturi('gofundal','_pgfrmbase1') + *!* ostart.show(1) + *!* do totv + ENDPROC + + PROCEDURE Show + Lparameters nStyle + DoDefault(nStyle) + Do start_firma In ostartfirma.prg + primadata = .F. + verifica_drepturi('gofundal','_pgfrmbase1') + *!* verifica_drepturi('gofundal','_pgfrmbase1') + Do lansare_toolbar In oproceduri_comune.prg + DO lansare_help IN oproceduri_comune.prg + + gofundal.lb_utilizator1.Caption=Alltrim(gcUserNameApp) + gofundal.lb_utilizator1.Visible=.T. + + + ENDPROC + + PROCEDURE Image1.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE Imagine01.do_actiune + DO viz_parteneri IN onomenclatoare.prg + ENDPROC + + PROCEDURE Imagine02.do_actiune + DO viz_plcont IN onomenclatoare.prg + ENDPROC + + PROCEDURE _pgfrmbase1.Page1.RightClick + DO start_firma IN ostartfirma.prg + verifica_drepturi('gofundal','_pgfrmbase1') + ENDPROC + + PROCEDURE _pgfrmbase1.Page2.RightClick + DO start_firma IN ostartfirma.prg + verifica_drepturi('gofundal','_pgfrmbase1') + ENDPROC + + PROCEDURE _pgfrmbase1.PAGE3.RightClick + DO start_firma IN ostartfirma.prg + verifica_drepturi('gofundal','_pgfrmbase1') + ENDPROC + + PROCEDURE _pgfrmbase1.Page4.RightClick + DO start_firma IN ostartfirma.prg + verifica_drepturi('gofundal','_pgfrmbase1') + ENDPROC + +ENDDEFINE diff --git a/Ferestre/inchidluni.sc2 b/Ferestre/inchidluni.sc2 new file mode 100644 index 0000000..c991da8 --- /dev/null +++ b/Ferestre/inchidluni.sc2 @@ -0,0 +1,212 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="inchidluni.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 200 + Left = 1 + Name = "Dataenvironment" + Top = 220 + Width = 520 + * + +ENDDEFINE + +DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Grid1.Column3.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + + * + *p: c + * + + * + AutoCenter = .T. + BorderStyle = 3 + c = oo + DoCreate = .T. + Height = 504 + Name = "Ffergen1" + Width = 359 + LINE1.Left = 0 + LINE1.Name = "LINE1" + LINE1.Top = 509 + * + + ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ; + Left = 244, ; + Name = "Cmdtermin1", ; + TabIndex = 3, ; + Top = 463 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Grid1' AS grid WITH ; + BackColor = 254,255,240, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + GridLineColor = 192,192,192, ; + GridLines = 3, ; + Height = 324, ; + Left = 27, ; + Name = "Grid1", ; + Panel = 1, ; + RecordSource = "calendar", ; + TabIndex = 4, ; + Top = 129, ; + Width = 300, ; + ZOrderSet = 1, ; + Column1.Alignment = 0, ; + Column1.BackColor = 254,255,240, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "nl", ; + Column1.Name = "Column1", ; + Column1.Width = 75, ; + Column2.BackColor = 254,255,240, ; + Column2.ColumnOrder = 1, ; + Column2.ControlSource = "an", ; + Column2.Name = "Column2", ; + Column2.Width = 84, ; + Column3.Alignment = 0, ; + Column3.BackColor = 254,255,240, ; + Column3.ControlSource = "smf", ; + Column3.CurrentControl = "Check1", ; + Column3.Name = "Column3", ; + Column3.Sparse = .F., ; + Column3.Width = 81 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ; + Alignment = 0, ; + Caption = "Luna", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ; + Alignment = 0, ; + Caption = "Anul", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Grid1.Column3.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Height = 17, ; + Left = 27, ; + Name = "Check1", ; + Top = 26, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ; + Alignment = 0, ; + Caption = "Luna inchisa", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ; + BackColor = 254,255,240, ; + BorderStyle = 0, ; + ControlSource = "", ; + ForeColor = 255,255,240, ; + Margin = 0, ; + Name = "Text1", ; + Value = + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .F., ; + Caption = "In continuare datele din aceste luni vor putea fi vizualizate, dar nu si modificate. De asemenea nu vor fi permise noi introduceri de date/documente in aceste luni contabile.", ; + Height = 61, ; + Left = 28, ; + Name = "Label1", ; + TabIndex = 6, ; + Top = 66, ; + Width = 300, ; + WordWrap = .T. + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label10' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + Caption = "BLOCARE DE LUNA", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 255,255,255, ; + Height = 22, ; + Left = 25, ; + Name = "Label10", ; + TabIndex = 5, ; + Top = 18, ; + Width = 168, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .F., ; + Caption = "Bifati lunile pe care le doriti inchise.", ; + Height = 22, ; + Left = 28, ; + Name = "Label2", ; + TabIndex = 6, ; + Top = 45, ; + Width = 300, ; + WordWrap = .T. + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Shape1' AS shape WITH ; + Height = 492, ; + Left = 11, ; + Name = "Shape1", ; + SpecialEffect = 0, ; + Top = 6, ; + Width = 337, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + PROCEDURE Cmdtermin1.Valid + sele calendar + loca for nl=m.nl and an=m.an + luna_inchisa=smf + ENDPROC + +ENDDEFINE diff --git a/Ferestre/startfirma.sc2 b/Ferestre/startfirma.sc2 new file mode 100644 index 0000000..b0beeec --- /dev/null +++ b/Ferestre/startfirma.sc2 @@ -0,0 +1,783 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="startfirma.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + Name = "Dataenvironment" + * + +ENDDEFINE + +DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdrenunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" /> + + * + *m: seriadebaza + *p: ttanul + *p: ttfirma + *p: ttluna + * + + * + AutoCenter = .T. + BackColor = 255,255,255 + BorderStyle = 2 + DoCreate = .T. + Height = 474 + Name = "Ffergen1" + Picture = + Width = 500 + WindowType = 1 + Line1.Name = "Line1" + * + + ADD OBJECT 'Cmdrenunt1' AS cmdrenunt WITH ; + Left = 305, ; + Name = "Cmdrenunt1", ; + TabIndex = 12, ; + Top = 432 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ; + Left = 396, ; + Name = "Cmdtermin1", ; + TabIndex = 11, ; + Top = 432 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Label1' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 255,0,0, ; + BackStyle = 0, ; + Caption = "Bun Venit! ", ; + FontBold = .T., ; + FontItalic = .T., ; + FontName = "Comic Sans MS", ; + FontShadow = .F., ; + FontSize = 18, ; + ForeColor = 255,0,0, ; + Height = 37, ; + Left = 48, ; + Name = "Label1", ; + TabIndex = 24, ; + Top = 60, ; + Width = 128, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label10' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "CONT 2003", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 23, ; + ForeColor = 0,0,0, ; + Height = 39, ; + Left = 21, ; + Name = "Label10", ; + TabIndex = 23, ; + Top = 20, ; + Width = 185, ; + ZOrderSet = 3 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label11' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Anul:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 112, ; + Name = "Label11", ; + TabIndex = 16, ; + Top = 403, ; + Width = 44, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label12' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Strada:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 94, ; + Name = "Label12", ; + TabIndex = 19, ; + Top = 296, ; + Width = 62, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label13' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Numarul:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 80, ; + Name = "Label13", ; + TabIndex = 17, ; + Top = 321, ; + Width = 74, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "CONT 2003", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 23, ; + ForeColor = 0,0,0, ; + Height = 39, ; + Left = 22, ; + Name = "Label2", ; + TabIndex = 13, ; + Top = 18, ; + Width = 185, ; + ZOrderSet = 4 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Luna contabila:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 30, ; + Name = "Label3", ; + TabIndex = 20, ; + Top = 373, ; + Width = 126, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Cod fiscal:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 71, ; + Name = "Label4", ; + TabIndex = 22, ; + Top = 150, ; + Width = 87, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Nr. Inreg. R.C.:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 32, ; + Name = "Label5", ; + TabIndex = 14, ; + Top = 177, ; + Width = 123, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Banca:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 97, ; + Name = "Label6", ; + TabIndex = 21, ; + Top = 204, ; + Width = 59, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label7' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Cont bancar:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 49, ; + Name = "Label7", ; + TabIndex = 15, ; + Top = 230, ; + Width = 106, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label8' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Localitatea:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 60, ; + Name = "Label8", ; + TabIndex = 18, ; + Top = 269, ; + Width = 97, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label9' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Numele firmei: ", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 42, ; + Name = "Label9", ; + TabIndex = 25, ; + Top = 122, ; + Width = 122, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Shape1' AS shape WITH ; + BackStyle = 0, ; + Height = 458, ; + Left = 10, ; + Name = "Shape1", ; + SpecialEffect = 0, ; + Top = 8, ; + Width = 480, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + BackStyle = 0, ; + Height = 0, ; + Left = 10, ; + Name = "Shape2", ; + SpecialEffect = 0, ; + Top = 356, ; + Width = 480, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.cod_fiscal", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K", ; + Height = 23, ; + Left = 192, ; + Name = "Text1", ; + ReadOnly = .F., ; + TabIndex = 2, ; + Top = 148, ; + Value = , ; + Width = 225, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text10' AS textbox WITH ; + Alignment = 1, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.numar", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K", ; + Height = 23, ; + Left = 192, ; + Name = "Text10", ; + ReadOnly = .F., ; + TabIndex = 8, ; + Top = 319, ; + Value = , ; + Width = 102, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.luU", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K", ; + Height = 23, ; + Left = 192, ; + Name = "Text2", ; + ReadOnly = .F., ; + TabIndex = 9, ; + ToolTipText = "Introduceti (in cifre) numarul lunii contabile cu care doriti sa incepeti.", ; + Top = 371, ; + Value = , ; + Width = 102, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text3' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.an", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K", ; + Height = 23, ; + Left = 192, ; + Name = "Text3", ; + ReadOnly = .F., ; + TabIndex = 10, ; + ToolTipText = "Introduceti anul (inclusiv secolul).", ; + Top = 401, ; + Value = , ; + Width = 102, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text4' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.flung", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K!", ; + Height = 23, ; + Left = 192, ; + Name = "Text4", ; + ReadOnly = .F., ; + TabIndex = 1, ; + ToolTipText = "Introduceti numele complet al noii firme", ; + Top = 120, ; + Value = , ; + Width = 225, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text5' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.reg_com", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K!", ; + Height = 23, ; + Left = 192, ; + Name = "Text5", ; + ReadOnly = .F., ; + TabIndex = 3, ; + Top = 175, ; + Value = , ; + Width = 225, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text6' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.banca", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K!", ; + Height = 23, ; + Left = 192, ; + Name = "Text6", ; + ReadOnly = .F., ; + TabIndex = 4, ; + Top = 202, ; + Value = , ; + Width = 225, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text7' AS textbox WITH ; + Alignment = 1, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.cont_banca", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K", ; + Height = 23, ; + Left = 192, ; + Name = "Text7", ; + ReadOnly = .F., ; + TabIndex = 5, ; + Top = 228, ; + Value = , ; + Width = 225, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text8' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.localitate", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K!", ; + Height = 23, ; + Left = 192, ; + Name = "Text8", ; + ReadOnly = .F., ; + TabIndex = 6, ; + Top = 267, ; + Value = , ; + Width = 225, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text9' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.strada", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K!", ; + Height = 23, ; + Left = 192, ; + Name = "Text9", ; + ReadOnly = .F., ; + TabIndex = 7, ; + Top = 293, ; + Value = , ; + Width = 225, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Activate + *public m.luU,M.FSCURT + m.luU=alltrim(STR(MONTH(DATE()))) + m.luu=right(alltrim('0'+m.luu),2) + + *M.AN=ALLTRIM(STR(YEAR(DATE()))) + M.AN=STR(YEAR(DATE()),4) + m.nl=m.luu + + + ENDPROC + + PROCEDURE seriadebaza + LOCAL SB,SN,I,T,TIPAR + STORE '' TO SB,SN + T=RAND(-1) + *TIPAR='VOICUIONEMIL' + + DO seriadebaza IN proceduri.prg + + + *!* FOR I=1 TO 5 + *!* SB=SB+LITERA() + *!* NEXT + + *!* SELE CUL + *!* REPL RED WITH SB + *!* SN=GREEN + + + *!* IF SUBSTR(SN,3,1)=SUBSTR(SB,1,1) AND; + *!* SUBSTR(SN,6,1)=SUBSTR(SB,2,1) AND; + *!* SUBSTR(SN,9,1)=SUBSTR(SB,3,1) AND; + *!* SUBSTR(SN,12,1)=SUBSTR(SB,4,1) AND; + *!* SUBSTR(SN,15,1)=SUBSTR(SB,5,1) AND; + *!* SUBSTR(SN,VAL(M.NL)+floor((VAL(M.NL)-1)/2),1)=SUBSTR(TIPAR,VAL(M.NL),1) + *!* *DO MESAJ WITH 'Seria este corecta','' + *!* RETURN + *!* ELSE + + *!* FOR I=1 TO 17 + *!* SN=SN+LITERA() + *!* NEXT + + *!* FOR I=1 TO 5 + *!* SN=STUFF(SN, I*3, 1, SUBSTR(SB,I,1)) + *!* NEXT + *!* SN=STUFF(SN, VAL(M.NL)+floor((VAL(M.NL)-1)/2), 1, SUBSTR(TIPAR,VAL(M.NL),1)) + + *!* SELE CUL + *!* REPL GREEN WITH SN + *!* ENDIF + ENDPROC + + PROCEDURE Cmdtermin1.Click + *DO NOT RELEASE + ENDPROC + + PROCEDURE Cmdtermin1.Valid + PUBLIC LAN,LLUN + LOCAL I,J,NI + LAN='AN'+M.AN + LLUN='DATE'+M.NL + I=.F. + + *SCRIE NUMELE SCURT AL FIRMEI___________________ + sele firma + M.firma=upper(alltrim(m.flung)) + M.FSCURT=M.FIRMA + M.fscurt=upper(alltrim(m.fSCURT))+space(7) + M.fscurt=ALLTRIM(LEFT(ALLTRIM(M.fscurt),8)) + M.FSCURT=CHRTRAN(M.FSCURT,SPACE(8),'________') + + tt='Numele noii firme nu trebuie sa coincida cu numele altor firme. '+; + 'O firma al carui nume incepe cu <'+LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)+; + '> exista deja! '+; + 'Este important ca primele 8 caractere sa fie diferite de <' + IF LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)!=LEFT(m.fscurt+"________",8) + ttt=LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)+'> sau <'+LEFT(m.fscurt+"________",8)+'>.' + ELSE + ttt=LEFT(m.fscurt+"________",8)+'>.' + endif + + *!* SCAN + *!* IF UPPER(ALLTRIM(FIRMA))==UPPER(ALLTRIM(M.FIRMA)) OR UPPER(ALLTRIM(Fscurt))==UPPER(ALLTRIM(M.Fscurt)) THEN + *!* I=.T. + *!* omm=crea('textmare') + *!* omm.label2.caption=tt+ttt + *!* omm.show(1) + *!* RETURN + *!* ENDIF + *!* ENDSCAN + SCAN + IF UPPER(ALLTRIM(FIRMA))==UPPER(ALLTRIM(M.FIRMA)) + I=.T. + omm=crea('textmare') + omm.label2.caption='Numele noii firme nu trebuie sa coincida cu numele altor firme.' + omm.show(1) + RETURN + ENDIF + ENDSCAN + + SCAN + IF UPPER(ALLTRIM(Fscurt))==UPPER(ALLTRIM(M.Fscurt)) + I=.T. + m.fscurt=LEFT(m.fscurt,2)+LEFT(STRTRAN(TIME(),':',''),6) + exit + ENDIF + ENDSCAN + + + + *DACA FIRMA NU EXISTA DEJA_______________ + IF !I + appe blank + NFSCURT=M.FSCURT + m.calefirm=dirgen+'\'+nfscurt + calefirma=m.calefirm + *m.loctempo='C:\CONTAFIN\TEMP\' + GATHER MEMVAR + repl permis with '*' + REPL locTEMPO WITH '&DIRGEN\' + + *CONSTRUIESC ARBORE FISIERE FIRMA NOUA______________________________ + set defa to c: + if !directory('contafin') + md contafin + endif + set defa to c:\contafin + if !directory('temp') + md temp + endif + set defa to c:\contafin\temp + MD &NFSCURT + set defa to c:\contafin\temp\&nfscurt + md tempo + SET DEFA TO &DIRGEN + + SET DEFA TO &DIRGEN + MD &NFSCURT + CD &NFSCURT + MD DATEAN + MD LUNA + MD TEMPO + MD &LAN + CD &LAN + MD &LLUN + *COPIEZ FISIERELE STANDARD__________________ + close database + SET DEFA TO &DIRGEN + COPY FILE _ALFA\DATEAN\*.* TO &NFSCURT\DATEAN\*.* + COPY FILE _ALFA\LUNA\*.* TO &NFSCURT\LUNA\*.* + COPY FILE _ALFA\TEMPO\*.* TO &NFSCURT\TEMPO\*.* + COPY FILE _ALFA\AN0000\DATE00\*.* TO &NFSCURT\&LAN\&LLUN\*.* + COPY FILE _ALFA\TEMPO\*.* TO c:\contafin\temp\&NFSCURT\TEMPO\*.* + + + *SCRIU IN CALENDAR___________________ + DIRFIRM=DIRGEN+NFSCURT + sele 0 + USE &calefirma\DATEAN\CALENDAR alias cal + APPE BLANK + REPL NL WITH M.NL + REPL AN WITH M.AN + REPL SCONT WITH .T. + M.antet=ALLTRIM(M.FLUNG) + + THISFORM.RELEASE + *____________ + ENDIF + + DO TOTV + + THISFORM.SERIADEBAZA + + SELE LUNILEAN + SEEK (M.NL) + M.LUNA=NUMELUNA + + *schimb titlul__________________ + capapl="CONT2000 Firma "+UPPER(rTRIM(m.flung))+"- Luna contabila: "+RTRIM(M.luna)+" "+M.AN + goApp.SetCaption(capapl) + + + ENDPROC + + PROCEDURE Text2.Valid + m.nl=RIGHT('0'+ALLTRIM(m.lUU),2) + + + + + ENDPROC + + PROCEDURE Text3.Valid + M.AN=ALLTRIM(THIS.VALUE) + + ENDPROC + + PROCEDURE Text4.MouseMove + LPARAMETERS nButton, nShift, nXCoord, nYCoord + ENDPROC + + PROCEDURE Text4.Valid + if alltrim(m.flung)=="" then + wait wind "Introduceti numele firmei!" + return 0 + endif + + ENDPROC + + PROCEDURE Text4.When + *thisform.label8.caption=thisform.ttFIRMA + ENDPROC + +ENDDEFINE diff --git a/Grafice/C.ico b/Grafice/C.ico new file mode 100644 index 0000000000000000000000000000000000000000..ce97f7109e809635c2b1cee26d4ecb4d6b70dd5d GIT binary patch literal 766 zcmc(dJr2V#2!&s&?&;LoV~^3J`Di{)N8iBxF#f5dE|nq`2YB!T!6?$k3E?J_*G0PH zA80_I=%y=Hig4d0Lc+x84hux1Qc4h|J}Si!%CVHi=SXcfT4ig$&#=Ng5)I_`LieTR zaamU02#_-#V|ztS6FA-cK4=GL$H(s-=do!%=e1zDPoI7rd)}(}rslpVU-rq~)_spn K{|@*a{wi-ZR_c=g literal 0 HcmV?d00001 diff --git a/Grafice/CHECKMRK.ICO b/Grafice/CHECKMRK.ICO new file mode 100644 index 0000000000000000000000000000000000000000..2eb7ca6b7d53df3d529f7db17e6bbf35411c68be GIT binary patch literal 1078 zcmeIxL2iOj5XSKj+oYSuaDXPTYCJ{h$>iO@BlIYJD_wd7O}o%tF)qXunf?c>Zrr$W zqXWNr149TQ^Q1&Q<#{TPWlwr#P1F7LAd&hH(tvw8-jV2$ECrrDAAu&F5cUh15`VTMzr`S<$QDKgVP?|lL*1if@5e%m)@dkKL)0#vjbE3iw%2CI_QSkuc@z&B4Xy{dqYG24E&uAZB5>0 z%MTuzGyBTQ7Z0$+@N_D>{CRkvZ0ray!_~dw4lMl_mh^2q?AGul zLB|UW>G03E+SkLT7U}u1^x>;Dly8XT^Qr#ki~0#Zbn#0|`DV3TZ`$parvJ*4zOFZI z&%XXcQ$zZG{cP8ZZV=yZX(_+!yWi~Ej_SYZE#+Uen{Bu1sm#qAOZuYjpLX>Vi1*O^ z-jY7ln)#A zThhCRe|cK|>Enk7_M5cN*tAdGc4#;7YVj9H-~avFb^|J471;e1(!UG;=@+z}dNyM< z)cg(7_rKqIvl>>-Y5`@M2jKlPy)fL@yWu5NVAs?S-Di-#|M^|N9Tuymh7VZ$7}EE@ z-w*db??Zh|vNTN}Uo6*209Tfgl;mhKnWPA(sG1@&C0UX@){l>mLeQTpISENIBqj+j zHmHQtH)uW|GYm$lIl=^IxMZI?W-{;UZ@!uR@mu~*`y?~dhyFCDJl;zQ{CC&Q%Ptf! zK$E!2C;=%#d6G{FnW92~Ap{-4ND@>{gz}-7(Zo;G$yqQ6u1*wBA{eK%Bhowp<4rhZ zC@|6@OQ%^i&7{SkU{FCdGO`qlif{@Bk+@k~Km^087W1VKV9dKM3J45R@vc;clgTvC zr)e%Nh7eQ(L$es9a%VA$2!`3ruYd9Yj2HDH94xf1R9c{Niqa{8ehnLAa6vUJXjdu~ zb>`G!l(8#yJql(CFTm)VIvg}qR|>`$s2okf;x*V8jJJvz6cQRkX)=$vtsTnMg_m} z_!TY2aowmCU%+?@Wc+;q26&#USt)8Un4k&_@=m}g<2r_F;J4m*0!F{uWFd?)U;~-5 z7#T)rni23Ll+(2Uh7gpIk!9tiWPjUvF=rN|%*d(s5G}?j?T9oVz}U325TFnmg?U%L zAA`A_V_-vB3@)fJ7c4vCV8Ff0>Dn@vb6w&)nLi>Jrar7so`BH}tAG~xBpBc;m1kO4 z3cwJ8N;n{=s1~PS6!KH8bsoX6s>OWi0T{D((GKCb5oUQI_G6R@>{5cgN^wn$fY=^7Gn}EhS|)ofARs0-KOu}gg3_EE+Mcb zLvB=>kAg}#P$7rOF2@*^8o5{-M6?)IwU{qG0OKVDQ3`8TN{%sLx)#IAw{$xff=Vc8 zMWFIs?8m6+(#i2Ff^l3oD#ZgZzSxB_A;q++rfb1s5Qu~TfkMPO1{YN4B0&?`m2zq^ z=nV1kD}r%cH!8&gFqYjHpNHZRl1%av>jBpwN(hm&Qc6(C23QucbAlCfHY-)Bk&CKl z{U(B;YvahhCt!r)5n=-aNsB?j&^!1t_I~ke55VZ#F9RB4Bw`%{ zL8DI!8dr)yzlKE#;etwY!Kw%$*@RurN>!zt1h%$=Xfdp6F<<%s#%gHS;h+J71v>Z^ z!4RmgloSl3-Z8~9)XmWI!%!8ooPmEr>!?IxVTcY#r948GB5G1gL0Nd~G)5dn%7a|cEYhM*ew ztv8;45zOHG0E}$(m7-u6gKvmj3juEFO)7;wf(I2HpJYCi@$A0vka zJ~=C;1eF#esVchf6)slHoyAarKV>x=KVw(QP>21&6EK3Y7#1+p;G2SBSd65ah(I@v z!BD4eSSvk(VO5Ly(gQGF)qOz6V;FIzVC5UUYhmt`P1g!RmA!zPKq@Y|!FRxW7%GaPEAlr1_YMkV$x#nz);(ttU8Qf zSk+>_^Z|_3>enf%!{8zjVDQ5!C)9~hb){Y?K_wSSF5Ugyfa3Q-=)-eX{N>M=-7fCKh18%`kL3zx|7Ecijt6I#L9)LkZx*`+` z7)e>cF~;ni?*hDQF$4;c7DEZDfdPkT@C%B$8+^wQon|Y);mHRuHnaJnO#?xL{^>t5 zE7gpGN;GnL41imUF_9Z)tt}#2469nqm)?MZvM_9h0ArG7FkxGQ2jMhV7K4Go1eIVA z;S$1nV9qQCqQjcwR|Mm@Zd8f~V6?BBMZFBfV8}6s?bOy$P{~D-%VDxpi-BN|)QKyC zaY8vV$r~^NF&O8;pn@teh}@m+7L0h*m~7uS|MUcmb{R%Tik_+`LUbOU^Gz)V6I5}L zkW|E#qQ%^GrPS%+)^-sshE*-*OCP}asttt-(5)C_*rsb+Cg?~7AH!_s z*FSjx#=Kj!TQW1tw+`FaxeN_YSUc-C&(P&`6TfuRIdTqHz# zHMt#Qs6&$XYMVdCu9Q_R=1UL2SkAlG0rjQE1wI0i2s7C8Ekkq)K}ReSSoxMaCtNP@ zp^5xdv$Dlg1jDKp^Q8x1^zDFfFl2}^26)$IC7Mi0Hbx?pf@);sGMA8y;;}t zDS{z2apI>BU_iJf^db04(YR7f(2)$13zrbLU?3So-CFYz469nqm%e~egkmy;#jwpv zF)*m08W_?++$|Vc+>c>4^Xs2H0At;xp{(wK{skDaE0va0I`PEzd<#KGEMU5}5TgON zVBqL>emx3i2_L{{H?XO75sJxxQ8eB2jk2@=Unv3(wlYK~#FY|)DmJo0{%vpXU)tZFe|dH_bVTLyFr00l$r;LDQ|0@scUd_qti4I;go+**tn ziO_82H$3?O25fDu7cc7Vu-QHH^S)7@rx3fAg8_4<(3QedI(N#tQV5egB?LXDDOPJl7zV8rR#QCm0Oc>u_s9x5R_$RU!UDw42EtcbnB5M91Jj9UMb~Sewhcj?)Am_@8<2L z>$`h>4Y$7+omgaLOV*HpVaotyHI{%H4s1WPHO*T0qQW)xiD1SZ?_c zV-`S93grlASno>F8C$WAu`ejkOlyVTIRr!DX07x1@&XOqAB-=%H$VpTr9vPhD>9Us zV9=8y*#h5zpe!@1BX;KyjFY}n7qp6)CAmKsFBj_xY5O3!NYDi35EF+6b>@R_Sp1d? zd!lCgTXsei|wWD;&xfzM@fV*k9MvG-!u>i_pW6tnYy4f zGyhWb?otJyvkQEu&)|C>YIy#?~-WWrjsB|DG%S@XPDswWq z!X-pQ$hz`E#w< zein?ATU*~pvwHr&+Lk)2^csKi;+XnP3{sRrfZ=q zCD$<+7@DA%Wv11aSLNi2St+wCWdq~niArzRU_O-6o`8{u0tQ$NV;uvJ>lh3SO;DWE z%p8mgoJce~aI*EGb6^m@L-6E>#Kbci@B|DJ3K*ow#h!1zz_$;ECMeEnW?Db6g#&1E z2u7ThI@9dWCwl@$5e66;{ILd~5N+ifz>wi{n8nZp<(X*}!J1%MR1U$2U8(ae|4a@) zz-aqj5M)4v^AtuI1{m}}Jht*p!O#WenQ8r88w^21$Xwv#vr@3x{7kLKqo9aornQ5! zq9B*Ae4q2KRYzW)tofLDQUmt~16*sti7=3jN^p{JYOH)iS4s}P4+LeIS?$1~;MuLS zQhN1@t`r^b$LsAh-~|}Jh(%(VJo9RqxFFYZd23w(P0 z3ozsXW_nV*zfJ@92czD8)xZ(hVT`^@Qh}qa9gG7(S!P;Y(D`z?9|HzD*ENEe`%nY- z2V*U5I`&hP%oWc+5`g$Qs?A9DDtxQ=1y=$423gTeQFcYPRfrK(a) l*B;yRtqV#s^Gc(47lWbCN+pKcjE7sALo6dTaCb0%`hTOMt~USx literal 0 HcmV?d00001 diff --git a/Grafice/EYE.ICO b/Grafice/EYE.ICO new file mode 100644 index 0000000000000000000000000000000000000000..b1c65e68ad8d5431996db1454f79acff888b2b35 GIT binary patch literal 1078 zcmchWJ#O1T5QU#C2V@hkZXi~HuaJr=*z+1L-ASFNO4#KJK1J#cV!&n6rc)KTaG}D5 z3>cn#vkWZ-a2F&a&Ca~}+22QLrV};ILLql2(mU*8G2-)?bT*gHi8bg7o#~WOGHPEJ zBT2?=G>o{YDd$YW%U|x{q5L8g!@rUBdVMtUWPU?ro1|AHhFsLy560tkhJrgt~(SYk?y)Q&5)uz8m9Vm1A6FR4j*{+z@pO@!5!JE zY={+3!8A{434D|;yHNdcw78 zbyv@tv1an%`2uawiRT&rbumay#%wfz0@8)?OG`(I-`bf-1yd4xM4#xv1@YQskxx`(<8C3^bz|7 Dz}&kL literal 0 HcmV?d00001 diff --git a/Grafice/HLP.BMP b/Grafice/HLP.BMP new file mode 100644 index 0000000000000000000000000000000000000000..4fbb501ddd5c2c3348f5224841d92b2255179f50 GIT binary patch literal 246 zcmZvUF%H5o3`K)Pq-^CF?1&4nBW1CO)N=r1vs4@iF?Gq2x)gPDpA$x$`2YBQE0^on zwR&Jj`ta+W+t(mh{U;^(`D?Zv+xre!VIVeu!&mCHpb~)^Z)<= literal 0 HcmV?d00001 diff --git a/Grafice/H_POINT.CUR b/Grafice/H_POINT.CUR new file mode 100644 index 0000000000000000000000000000000000000000..6d1096b00acf7ed686f37d2d1f4af01e40f1d010 GIT binary patch literal 318 zcmbu3F%G~W36kmK$08zLMU6n@!}~g>?Nw+H$WXZ^(rTR;kAO zeAI|2bsd3~t-7uQO$gIZA=r-OvRf?vB8CfYe!@kNPu$PByWoD#oo{D;-^{r4r`G%9 z5zo}$H^%)wapakf{8TsDqP3pXn{3he+IW`HIRHJ$=$rtLZmT~UUuBMd2hY@W<1>9f zuQy%UVD+Zw15&-R;ZaY9N8Jpc`7cWK)?wnysXxLha>f4K$lT7iSWSK{IX}jigqbHA zhRM!SJ%q6u$${+2A7n??8Y?Zv_tLln-+^zX`%>D0uPoWGX|V{K1F0!0u=*H^ z>TCE^{S4o#KjC|I4!`hEv1Q$mC7I{EWB+{A%s2`&Jpn7*|C;kY&hi1Y8Fjr}6Vaa- z7}vYz#Pqt}rmC&o(16~%!RDYnxU-=@9(u#}&h_@XjoVu^&dZUE3tT!L^qHKV^M{cK h_aGg}{cGv=n(zB1r`va(zU>?E7P<$m$^Bml@eh7uYexV8 literal 0 HcmV?d00001 diff --git a/Grafice/entitati1.bmp b/Grafice/entitati1.bmp new file mode 100644 index 0000000000000000000000000000000000000000..ca87f684c0ea159f6c93b5fb923d6abf9a0705de GIT binary patch literal 7534 zcmbuDcU)6xy2sDr%+Bte-M#lSTkq`5?yPO>D2g&D_BM(r7MjvQdM}{_l7RFMp#%sJ zLNC&5=rtrEfFM<{S3p5Tfg$I;&&dgh?*4cAd^w*tA)e>={+@E)c>IFx_n7o&KU}xK z?@stV0KdP&{svbJQb?awDZrw_-ZQCkX z@aE0IKmG`We9CGtS;#G0AcidPjvWy@c0}&lB|~05diU-qd3ln^ojZXjxWZ?E?c0H< zwd~jtwPQ#0r(pj%9)y%4+Z=3h`*wf`AdLrsV-yr(_U;9k`}WCzHM|4wD=5GRqCp>g zSgHvE!y@|Mh}pR_X4ftN`@~ymFo+kimYq8zU~_OsxV3@;gp5^Gj8jsIQ&t8N4jx=f zys~nSZXB^)}Gc=&Mgv19BLCkRfRN&!xu1lY%qCm%hUq@t2|=nxA&Db*CeZ(khz z^F4cFckd>yd-lZr8yKNl6 zrj~K(5&#S0<@xjJ=gy^_IYVeVb_@iuz%x*!P?bmR!^HRbeaBD|Vf)|D$c8XCDeI(gTx=j-YMu*kiBJx5bB`|8z9 zb#<<)D(B~)Q^6!~=*W?zg9lkkN~{A15)>5^_U$9CQdo+LBp8I0A+0aiy(|U$_b03> zIB|k7;QaXvb@gmbO^8=$U{GXgT4HWqYGqYsV^eNpQ)XoaFN;l0;ZFsi2?SlalA)%? zIeV4^YK|Ud!)CzIpMFX_aDZU{ev+j9`;!hFz{s+P*fK~Dl#~*bm02n(Nk@;So;n2{ zWL&(MeeGKQ_3O8dj36Eau5xm!b$73$QtQ3E2&hz^yL*kZbEUm~nWbg1v2mfUE~v?Z zl$|@rIej`6>gn)dHr!KLIY~(gViVUDFvz_O$RA`86oBMIhln~jaU$*PS;#uC@?|s+pHA!JZ2B z^-FHvtgyAMp-}4S^p>EY&ZsCsLPA4)0^P*qme~!4qb1eejBaSi<79L(nXQ3=jSL3Q z&8^bTuJq>3+j@F=8XDP9&X8G1(}@$DMpRj0D3VS%fj>=0*DY`I?$J>gt*2&u4-$AO*Gx-W)!hrlJC1&{trCtRW#0 zU;}&$f%5sNnlXg>uY<(-6C;Mm!PX|7VpZ6 z!LNNOIrg>i`|oqyZTm7Z1hKJgK|zf)TCKBlg@r|lfkC0RcHY&i+0br3|D199H21`b z^y9}lM~|i-J&KVwu)!sG3v5tT%~Dri%|(^HeVwN#WSt)!Elx=R8+fVg?6{x-k*M!Z zzqnh_*V7~J>F!*>J2FCXo(^8F*S_z+D*0V$f&O>0vbtHUj?mC1I-Te0T4`-vYHVC| z{d&Q*Yq=LM=A1tdYBEos&Nz7z1YywJZ0Tr%;X{bHd^uN3>$bjrskwQTqa!o|BpY_t z%i#>(zTJ?{DM*eS8yp-O86LhjHa<2!@!;X`$Vfkq3)r4`jm8_>KNV>0f3&p3^rwyU zc>USg-HC~v5fRM{MjeGxWo=z%Vp4SD21v=fbSVeIojH?r`gG>WlNd~=H0VsyiOZMs zK!kxonS})uM1!|?TW~Ps0!$t$D|^t=k{n2TGCq25Y;<(w-qg%&e{bL2!J(p;iSZZAzN9b|5^%#Z~V_0c)pah}GnYYhhJq%!F zO^uE|6$&Tn>If;x$^5Xe76zl<#iiQHs@&L^a0R*nl5pVy20cv_=Cx~uH*S=ennGbh zvq7D=Gnpmkrfd;|1m&OuZ6g<4PNwI(PRLKff+!oR6#F>xqdEGc%Gfo39%G`9=HIbt%7F zuI@+A5Sm4=UcGoUK7o*=tf@n(dQq|PZD(d8QpG&>{k`@1(mRBjA3sCNzs1$Rk*NRa zZ&^#*u1{$H99zwd6UD}M1O_&HdDS^MRGFKX!GzS&DbmouvY{-rw2H{ubaH}rhfXUC z4OV5Vyc`&qpPZC<7<@5waQE1yuX}dxBqQM{z;n z>_pCeg!-O7AETc{=6^sw^0>#B|G@FR63Jf;2lI{9#GG_tR8*U9m*HrdEc0xj0;L+&lSYu&PVPH^t{W?~ltzB$j0He3Y(UCACEUb^q^$ye3 z|6mg?phy}XS!@5##W%+8C^jsf7TDtFgMu$VQ?!iy&L*{AvE=Q^PNd04dfn()J5sDg znyC$_#s$sRzG}%u)4gaxgr+hM58+>=FZ;J8Ae7h?CRXyT5jDEL`UDv%?(YmNLXasFS`sCWtNE9Z6y@ncY!rJscdJz3>0Er ztavH0@^TN-6(KXxf_c-tanozPraASdh3~47P6<>H%1cjXGGk#O>hYN2L-iIsSOSeHD+d&1_oHMo?f|`S+%`=BbC|_91N3qsHiBGYge+E z>;Kwed0_$Wg`U5BSCxzAQG)~1I$zNs)YEAK8T6r>U5i%YC9BSP!fabQyfUbt{;7QaK+#+DsCk&pVA-1cPNE~P(0^;xFE74d znx8MrN*OCHh17IMMRiJ3Q*UPnmSClj6idrGS67(3F!K7+(ngAl8&k4EZfP~+zWB_O z;yQtAKRRDEBhP)@Q<$wO58v5oN)BZrgwkFhzemVWjIPwr+^C&4s()=*Kc!anM!sMU zJ-eIp9-VlGcHdq&6f)>##lSzjSYBF64xo%zRNT$T5Hp#4fB#kwj|MncSy*7@rl!?o zr}+5^Vq)%axufOfPrAA&C(pXwJR8|Qd9nT%wYqte&ZUdZ=#rMs7PXt$I(Kg4D7eFa z3X=j2BXooRi+0VlVckp6akXapV8$a(c~jt>nVXF-b#9Lo3P$h;6}T`k!}|h@VKz}+ zJ(Qi@8z0{l6x2qgHaR)fTU%olW@a^Zc8wk$ZT|j3Qb%=7b6w|6uQZ(&{L(0{+k*_+ z7OeV_Q6JiO+2C&uY)ml$!ov@SX+@;g!NRN`UFS{f*G?MNO=;9jpUJ*&T=L+G2Vi|;voSfc-1VM0cJDe}!fofxeRYJ!?k$QTz2LuS2%>IlF zR&2T}HNu%&Z~p?nA;!%Gi>7UJ=7L|$dy$g5{^6if%&HkvNx@XJFohUQF&rLpmSf1E z@wF~*+MsUoa`o%08H29vZ>)NkOjW!mQ}_0sV3Z=S(BLCe7~k0izN&V z?V!vow)@L`UD@a8lEYDS>RE zMAAHmH$VR%n8V|qAiZ(qG>J3|?`edWc|AuPG9Ubq(!VEnM9#F~TZ^jHCn)_jiWx@% z1M^3NTFM3E3M0Vys7+zq>0MPq0G#_galDY2 z&@7}5sE??qzLb=l{06U>f|=#z`#3&6E5UL6369$?qFuT!+ch07#59BoU)ax~zvR9A zW5(DYQ^w@<8s#qJ|6p4A4~sfEeV*J_?!be2Y5kz$_eiU0LAM$#d9B&>9!$+o$s8{& z9m>e)i;EKm2lMIlHaE9s2L}v}0;CRj_6Q;(dXtmO!ony`=Z5vRxcf=)gTEjr^h)( z%U?#wSSZo0er{4frQ0Q;j4sq>72GQ-8ca{`Wio~E{ewnpqflfzcn%H?Zf>n~IzKpA z93S7Go_?>g(#6qpd2w+@BALMPavVRyZn8e1XlG@nZ(@90MS1tGU0NC%rfIy0<>ds4 z#782rkw~smlKzF`U*7JKb54_suKkr|{BsHJFo^3nOzStkF?q18Mo$fMb{@&i9bmJ2 zqoPECft_&lq)=KM9kCkl1NsGCczbsS2Er2vQZtmBo9OM$NXyH5xR^49>$W|X`)-@* zm2+N>*71S9H=W&s8H~B7Pv;&?G?bR+rl#g|I88-GBis~~`=h^?NWR4JbvQ2P!{Ii* zC|SUx9^)ZH62F%V?)v%@Wo3{QXcloqgwWrg)X_@n;Mva`1ebv`TGTGNR+222P_wMx2kguDY z^Wx&~B$6*cO7Vc)r2y5S62qjnBk}z81#hA$l+oPW!PL|{v9aRNP{FNRop1o9P+Faw z2tRl*Po12a-QC+548oGg$lk=n0WP;7ARwCJBCM;L=oJbYsxy-l&2+S*yu1b~DxS2o zJZ^4Y3JdQQ7mt^eJgBOw zVKP%_v`k;$-jw9Af`Xy+^nt`g$Vg9kcsG1E^YP)swmm#LTwU8BFN6*on|f#&umq|V z1{!3?-@hw3SQHT<24mvmVfNjDTO=jPfHesS1z42Q;)yu1cPKU!m zS3m$5BMJ-aj*JvXMTw)Md!!I+0Nz{yny@z}2EyElivwkZEcibG5>Oc*4>t5gMfJd~ zf`UXKg2CwW^6K*RBy_mCb~rm@ga|u3I0Q7pRCRG_21}q|Nhxq5fpP&gfq^jlJ_0X; zf`o7-fm_2t4pJE!Dh>;S8U$H=(Ep$e?1cPAM1T!Y6JlrrKR=<5kAOxKP^o-(_f850 z04W%e6jFzSLzAOpGc+(1tcOP{Bna{c<-%a_eSO!`1usG3D!#t(4m2USErf?)zlS11)kMD_RYhO3_+fv>N~$45w~6Ha)0LuEix zNGV-zZe0`#2I(Mya}lA#*%=< znEw%YNv8{GG=MMzDuYTTERjkPxVr-w1P5Fr3OJOH7G2PTUR;a6Fspbcsk611v=RI~Of z6+ucN+y-E~;5x=y#v}xjl literal 0 HcmV?d00001 diff --git a/Grafice/entitati2.bmp b/Grafice/entitati2.bmp new file mode 100644 index 0000000000000000000000000000000000000000..2928dfbf993d6a0d0614fa15476e5c252845be1c GIT binary patch literal 7534 zcmbuDcT`(fw#M&}c;3p)yf<$qGqduNOiALJ*v7$zU~I?Tj$7Qp1#CbVV~P#Nm?nB} zq6mcO9fWA2BM=f*0!fID0nrQ?Tj2{_upgvxa+9yeZKvjea_Xf3lINJ zDE~Czx*h&^!T&e#{~O{XxDtfs>g&n}tC#ln_Tu7VI-TxmZ%?zZ@G~*-HZt;}P)Ixt z4S$7~q2c?=SKD;tRjco7eH*y!lrIY~H+)z|ETj zw`}k$51xB73}25g)ej03lC-$>B*?GPjAtFM4yRn-tx)i5=+RrcXAcmzXHUqkT?)SX3JBfE&Yht>-0e z;7Bd4$O8v}s6&THm$gd$$7k?50HK)Wx|m;m zMN<+ClU`@{?qK*L_|kp*A~ZE2Qq;HK#vD5qd+HRB@ZEPCiGwGP9g8`9IQrm0=KlQ* zb@d4N6yyXGP{s@2y?Yf^)o>*ds;U678gJ*$;9o(i3i|Ke8?LS%xqpAu!GqC9j>H~6 zo^a+&(uE6YSFWUMYXccKZ?bOQ%+S#R(yv}ky>u!0?AgTczKergl?g>@YDQ{kM5w7n z?Aa6X_16I7-ypzctA$(}tSYH2Gsw%(&|qq5#T-2vd*VdW*|QJ^;<0sga|{jhjEy-a zCIx0@01V(^9)*&lug|`HJLCHG)QcCB&YX!memn*Ww|_qq>IL7XrbZH}rlw%;UJ@cy zRh1+RrVc1A26a_9KvNSmh&gg3{?w`D^XEZ;j2kzy_4OfM(W6JDPo8ic94e?(o{I|r z1FoZEsf|ssrDcJsX|ADRmacBbwQFQH@lY&~Q%j2pv)Z?hsjf~ErLImw(7*nA6{W4h z)zlOkfDb@}!-wNeo=iG-F7@(dP#!YKH#IG>wuX2DclR29|N7uy5uM(^U^FrqFo1`( z{{HY14-&GrE;2XIGcwAAs$IE~0+l*`JPwQn*=TAi(9j@>(a?zb<{LucYH+|hYgPam zz;uuVD4eCI$1yf8wz8^lbgc67f_MCe$US2*_Q!^|QjWjks7m51${GQ_C&YYaq zv@}U{w2(%t^6)6PwJkO`&owY$gQLO1r%xxJJQ)v@Ja{lpOKTkhVuP6#R)91QAC8CR zaPnj_$Z+ji)}1??d-qDLtSX(ILGZ?ii00&E$e@?Yh42u&iO;vQv~;mDqPo~Tp+2^= zuxOOFJg=*hmzH+r=C&j!!$)d-e4tDv78V=|CF|zROjuB7&!(I{op|h6{I}mG96U%u zM1J#)q9bW(#eyGCoJc%#2Asvx*3Q0rH~+x{FeAty3=VFJi)+u!>?tXM3|>g3Z+d%^ zBZ88m!z4Al-j0^G`IXM3@cEBEic(XHx_7UMUo|KYbQct~Wn_pWBkTSBD|3{TDU@Ohi*h@=Do;;QSQu0t z=GR|Q0UEsO=nxd;M+Uhy)K|B*wn&>>8pVygInmW9T~Ik#`KVd+5!I(<3?dco17$w!V5;D*?vM-#vhXU;$uf~5~8 zFMjwCED4f|84M_PcVXdBb@iA`HqqN#S6-Hx5Zcw++ScA7Ym&4!H_MuvL`z7R8iXot zq2fEjy&sgdcO=HeyzcBAZEWl-FYjctWwEispdf*ZOZnr+#rN;$>FQ=*yOs&9=P#s0=ixTBz5i_se~elM~|SQHGY0#CKH71EiQ(cy=-lr?C%!|__=A!zMh_EJ>A`X z@_u>$z|iyVo}PAu#Bq*@t3CbjFWEOVMiB}N@tqqRd)?Iqsr2)BompA3xHwTzP!*&C zOBx!Wo?iC#>#XzVS!d6tpE^Z=C!h_dUAmNc;|6p?Qi)nWKQMediv_}th(xd2+oy+y z-oAMg6YBHg`9Pn%x3{NnVrI6zrM0u`*~IMJFvbmKIf!k@|CdTdNyQXGoJ?j>Zr<$Z z=tOt-3$b{hqM|E1n^dLB*}1~Xs>H+uQpve~oeg$8bB0KUa$LTgsiVU&Gz3pTITT4m zMRjCm%DLQ;h6a##W_WmEVq&;=ut`unKK6QOaPZCR35>B1)h;bQ9tN*4W?#|iIK8bw zUvnIx$)C`0n}E&A{Bde(4pQmqc_EPu@OWLIN=%F>AfU?02?|tXWW-SxDC^=y0+e7~ zzn-n9S72gNZevs9?cEq24xUgbA(2Qb_`DQ$RxXPf6li$j5*nTx8yO#e@nUiD-Qe@V zCwkhZH?H+#JVG;<69k7K3c`F>Fn%*LH~wbWD-$Pd+M&zQ>9wAol~13RnVJ^fy_=__LqKoIGcW*K zz!Hbm1#W^RIv}XA^Lp^p(h^!(L9~az75wvk;g0v>|FB%vj>j;b#jjt#9PS^$c%`sP zs9Cn8o--#(i^k^(hkc*aj=y`0arMX;*7^Wl{u8?V;a^$kbKUWCXOb#8h0m+2dpMl7 z#6)p$a1HE^mX@W)#*hjD&A;IOeXflSw2B5gy)8W*D#Fc7|2FHu(%ZKy%ge}7|NUnN z_Q)^&zIo>d>_6ufFfrJ22BwYi(yYT2)|thhOE8g)8Gf|5=%hi6TVIUJT~A<>|HAI7 z$YImp5mH0w&j#|W``-^qniQU8v1Cl9(8ot$XU8=+FE%tJI3R|Z87x$V7_qU>a&uvo zn!DZmY)G|zM26tc$^773Qv>XD@2&Nb`Dy}BEi7zHND$L#wQy!o zNEc`C<&OQY zjH#Q3d}@)vOMW1R#(=Gx%d^4B$)c(MgAO7TSMx6jb~$*3eG z58S8irT6g_wV%cR!ZTgqfYTB0?sZ$+a8*?gY=ki}jsE`C4h}pE3!>D*f={Kw zR@599*OQ+=TvrFpJG96qA7y*bT0vRhyYTp{x22hQ0rRcG&9l_?10Agguzo8xZd@{x zy)zRn7}U%d2xblW(-(OQ@1_2bA$yhUU~H#zVR5kMy*j+fs{T)uEJcY|R`PPQVGWPM z)>By6o|q^J38{B;<6B!3u=hZ(ZJ^Ow5)$Oa#iJt8gj^oPuuegAe{o=umECiZ@L|)^ z|5W2aNa)S0ONR)X5@`d*K`-!q38Kg_rQyfByh;7aX$t?fe&yu;qJ?kr=J0TJcbr?) zLlciT`0#7|M{PbrKS3si`K+nFzA%OuwXnd1$ zc^#+1-}^>2@<21A9G>`TJ3d!Bqna|(oRguW3is?TnpTBUj1ymCuVHK;!&fV3bjv3V zE2j)9C%!M8R?VKrW1XxY@bNLcCwK8+K$nx58(Mq?c|->}&I}B^l*xuFDxR@eq(!Rj z>9K}DS}>5r{M*33fzscZo^MExswLGSCGdw?&N{g;iRG}-?kZJ!K+)jJvrhYG*pbF zzNs!3BE25W3=O?%X?f1)cV}g_L`F9H`qojYM5V25t(O<{+Rn_(0c9Q&L(hdR14hm% zH*3(PUZmHI_3IYR+Oc6P-gia+Bda(@8`mDL&(Blh#FcXA^5c6P8>R`aN+ z7?;WDX(g7f;nrz_M=z1C44H_R?$ynkh<`F^!J3!ve(P62m{k*p;)(O=gc_Ytr@BoXnpsf72g!%JHmJOTk!!S z>SY?|Sn0%X9r>U5H+&u`Ce#?hnV&*d@WYm6gW3h7`uTHZvyZZ+=Ka{9Y58u|f?maI z3V%kwcHz7jJ;@LzXB5p04!&w`hPw1-XDjmX_ZK=l6MTF7Iv*ctL_|kMMqgL&ro5`?PXqU!NQ@jPOT;yeA=`VH2}>C>haI*sEm(uV#O-~M%GkIFs%#}7&qMse~K zruSo?j)fzBHH94`#Y@<^7a9!GDF@$7QUp_1YFBhCr`ZW9)BXJ~rPAj-UN4*778M10 zDD$whtM~GfhKF~+dMPf3Eip~dX~!&_MQ9MA{yFeCg7ekGCA?eD<|`em3v_;<m~;v-k_i%Abo~{zuyA2kEo_nYZ-MvUkT^xOfGr z+(|m=lC_L6MS}Fo#*O%sx=@z^RGwcp+1WWJ5)Bj=KTAt%WiTYZzC!RR90F?H+!}&{ znxmtivDwi1p)^zd{SRzhK?zW00HGp;PQ_Q5A6I{5cK@ys<=7#u-Me>dYim=I_%wu= z2)Q9-fzVak*v}B!l-sQGBvB=-{5PhNa5l5*LU;L7cLg()VRXVh)y2*Z%rR13-Ou4X zOG#;=)5ShM$~@o<=Iq?y@885=bV6y0iiT@zVSR`C_&BBIrH?GfPa?g#QI$`37+pQ< z^w>Po*OT(Z!OPQg`Q5waw{wEZ%8ZPROctw(%k9rh-9Iw$2S^2>_YhKXPf8KI%wIyG zqsYG-c}yYGJ9nnKyT=Az)>W{-fJH(>VK45^&K@i; z9~BDQ`MgudkN;zj#->f1R8)Su^UFP!#&_MEs8k24xvA-}ymxVSmSkymc4=;IX@36Q z+$`0>0rsTdDf4)b)1h+7_q>0;K}_8tX5&YkMNdb^S2EdXb@gCTQBOujdvvsnMiYB@ z2o-t2aS&RFn_FW*Kr@rsk(%1e;SBM3FGQjY2E)(MzNxlyu(KKN+fowZZ{5)G_3-F# zYkNC3Hvi(qI&a6v7hb+xc>TIvB5_R@+@C}H5&B>XZDP%Ba%uV?{)hjTqwT!q1R8Bj zD16T4_GM>xB__5;L`ePo8eCn44h{sI%=pmSU0g)4dcm!+v0WJ%@`8dv9uE#I4Fv_% z$B%WjwGD3H4s>^KtF4{t?N!jzGuhoe+0`}q>=_K;;dEagY#g&gLvzDJF?71NMTDh% z*>Pp%!pe$z?!x8s=RKZ2?JX}K=JERT^Sjg1K#Z1<5Q&#pgOiic)|RNWv=rFbRKt19 z-Cf}lI$e=UdU|hO-auIybeoa7Iykw&&IH$Si3FBDtU9PMFxJpO0?)wnV8A!6trHy` zlbs#Ya(PL5dZ@Q|bYNh2X%RHg7j?Cu#6Up-RHQ2|u9Z%g1qOmS8l9Z#ArIc8M|>+Q zI26@@OFTTFIx@I#h>h(?Nr8Px&f&lU8-yEt_=%ySVig#}GhFUqX{my;G8hk6R*vxb zQ2Q5kbz}AQurkLXOOXg3j>2yfJl`^8v-G@T#})ZlEK14Sfz3{yE`?t6Mi>fFk0XT1lUYK3}BQ@ z24D;tKnC!J&gkg2hzLkR1_po$!}-h6QK5(8{9$3Cum~KLpFF9Co(4uyrqbZ;4cSP8 zf@C2f&2;)kp!tAcu=JbZB_J#eXblfI%+ibaWKi+l#;-d{{5*dDz<4*xN%YLKhbytYpv)vVq&(fB+KM3l#YKlSq7g z02nv<`-AC#=HTF#&`|Io%o}KjD~v%`cph4|pP!-}US1M6HxNVYnro~1KDBTKLc69^FBUJ za97~zDRp-TdrDkfNIk^%_5e`@6@iwj1d;%1VC~r1)q!mRa150y0{=oz0N7gz?9?J9 z4X`IDUlPL<0T3J_LA*6qW5baT(sgrF02Og|ZlqGhfP(`dfj(9ZD+RWgjX-+^$UGb! z>!3`~YMh)zYY3^-pILhnUR6j9KsGRAcX!D~Kmb=)sj?grCnp8Y&Jrq>L<;BA8V~?% z0gFXR9VoF59Mwq3RN%Unfe1vRQXAHRN`vVDP(98kHLpQHRB$3d zYEBBiZUs;qoT#wX2G*xb4pyZmXG~t*+`tM=N@Q+stGK(%+})c=JUp7$Xz}m>i2nsp C7v!b@ literal 0 HcmV?d00001 diff --git a/Grafice/plcont1.bmp b/Grafice/plcont1.bmp new file mode 100644 index 0000000000000000000000000000000000000000..5dbe8c617af3fc56f8edc276e4a7260d7b22f0b7 GIT binary patch literal 7534 zcmbW4=UWqL+s5bpFWxWjH+^(%xRzbi6$=8QVpl{^1Oq4_(veO=5_(POozNu-A%xxo z3M7PdItYquU3J$7-L<{vWB>tW_chl=N6wZl ze*<^RmIbzM<^B_CTep4-!P&ZX6<-J1wvD@tv~Al~V`P-JNV<{HKeK&%`XU+Iw=aiS zu0)<28Br_=tTXc zDceAfvGKwQE)BoQ+PO1p$BxzD!*3umcI=?Ygwhf_cV-$OZ`id9qv!nmbMBr!dHeQ} z?B5Uamr-!w04O|okUAm1+P4qn?b(xSY@CDJckljt2uhDU8m0@?uk7BPh5L<-p`CAH zQh4Z4k*R6Xkt4-1r>MSok#B9yx3QtXCBCgV zd9uvX5_c8Dy@^QyX0m5bzOnII5M)JmX^gx(O{)u@7@*c+XsIX z1XRhwuL3dr@=MXdgC*wXOw%-X6jY9v-a$0qr3n?Lk2uAt4>1p`bG?tcy;U zvRFNAwv@@ldE1>kjkj*q(P#o2o2t{N$zV)Pc?S;`?cZO7VZR4KH57GRaA%02`0!zv zK)lGj*3q%i!voswY*u}IoFpNxi_4Xzr^~opd3yR_Mus$po1X3)o8}h7xfz|}k`Z^S zEi$~-$4BDqEVQw?d-`;_rDci1O7Z^vt1&StHZdUzp-O>1fL~x@!aH=R6edobsJ?Ik zCYrsxx*{U_($X3V^7`7_TSYacc_qDNWuqby7!!+m;)L@F7mh|-nMa+lU>~=MzEG9P z?qRV=D>Rz$(xoc2i-kqW;lmiY1TlXD0o7F$A2?8AW>$Xuc=h@7qN`Vta94OZIrTbm zy|}ijw4_cX%F4>)S4(CG1|G{~!^+MZ^^SW|Ew)D>3#N)kG)T{S8sNjlumEH zeOr9(n&ABT%Hzk&&CE&J3DyPtnwpj$J$m=lshZ1|8*bk0 z2oCN~N*XBP_4Y{1c!m7CRbr8do1T-`q|^rXn6yMI&0ruB*I*T=8l$lPue zvHxVq^}=*^UwnK=KtR2dQ_ZDIcTb+IIC``UU2keiQ4XO+2xPSa{K!xd{>6)82Zt7K z?_M^0sGy)z!0*#(^Rv=<`MEU$L25=Gw@FtiYAWq1I8%MbC}-P_jvu#FZ&{bPZe9Gk zf5mMurke-H2FuYp;o;5h?&2#~1n17(J#nJa!lJ^=Y&n%?W|ijVM5(Fi60lirZjJz} z&zuq2+BUknb_EB^Qc^Smfp&a+U}8LzlM)vd6B`{DU)h;dui@4X1PUXLR2?ztG%+4D z-Yws4)NHgaY2Cl#*KdnA@`&*sDlELmWVU&ENgNz%E?%rYd9upV5>{4GWnn>-VS@tZ z<|O#Vv115OXl-40{W=wfGA~ahsngHRsh<3roRAP#D2f*iCe*1DB-St)C57<>JCY<^x)Bd8JylX5F!3u|B{xk1BKil4uK z-v3*_=eXwq<$>LUyD1+=N!z@*o|>}K{8M?AkSwceBojXl8Zb7PoEZ8 zSqV;@_zEtqtca@P$4RhN;QH*@8dT)kHFQ=tIwL7bS6VvL*{M|y!G~gI1}5aw)3S+) z(SQHDbzmTgo15F+Gdn-``SWM-GqEY(bVKrnb#d!9CH!zQJN^CpqM}qeIpejpzYY%Sb=sNF zpSuPIl#d@z{Q2k5!-w62gYYD*ugl(P$`**xFij?p!VAyb=OEjI2Z#F4WoCHJ~kS-3~qA>+E>_=#g%GOg%RzpPCwvzGdVwFw&iz$B#$fylLy{8TtKp$^?$%@86HSc|%>c z-S5fBEso*UxCi?rO4O+h8gYHc#gp07v&F@w(cZq^)>d-qQr*Ri zl4TGm7*;kCYoyWIy}WwD!Uj`Py7Kb!@3wO4)!e%sB?UR7Z(ge(KSmzi3dPii5735# z;n%Mz6Ek1FwD)w?3k3q9$j9F$CN0hV&aLRE;L+~(ndat^iV9^~T0e^=#S4SGdkc-$ zc;!mHjSZ|wtgY)8A<)Bhwzdt}!f)Q}^7HFsvCy7fH3Dv0R$_Hed`Ux221ozux6b?b zwa=exo;>N6%h48E^om?Q`PW~tGW+F=POts=;lt~fFFHkBPfweytdx@CoJM|`zPVwt zwpL$MG?bj&&tORX{X5*FC&swHg>W5F4v0E|xYn zaEtlzh2mIxXz#ENjj5WO>*(vlVi}m2xUbj4f&SGi&C{pwG5!Ai+@ptoy?gim&6^iv z1OA>DZ7-X+I9ugqC*%D>C~)nw^Cw<)cS1K@|l@&CG+B zPkx<$@#5{=+}qjFqEt^Wx8tFqZmzE9?5`XQ@wVf0V@9j*YIAZ1bAp+lXWI~ILtdA$Diw)(c_n)*83Z!gi0*f|ulv!vv+XILP^ zuU=sbp?sh@^bcp>K7IQ8%*?B?u~%cGih3^l&Y3udBQw(1-{0|yt%<*fbyI%&SY@R) zD{C+|wl6HK$Je*h-M!t}xz*9J1?u+pM1!4O6Pkna5fmgtU2=1~s_#x+QuhN@*jKE}3j#Yz&^@V|eDlo0*xHdj0dEA@H!j&eQc+2Fn`9kPufE)7SCZ z5oRDwFA|QHmTJ<|tk zOxufY`roqj^0G@wW_x>Bca#@Q)z*#_7pplOIg8a76x8GG-R=;*<(MIPfWlWE@1+O;6tm|Jyj?kb#=|Q zw9GU$J?!j|i*hT|+^RU&c!{BqxJgrHYX>vaTj)Ul!nb#VpHewrt9iP+ggW*6cf*%kz*i1bm3nv(NCKdBJ8s z#K&tgGe^tH3|8*RTAIgRynq#y1CJH#@uP-DR!xkLwzN#w)WCs0FHe`9jUxmhpq*Le5sEUX5kC=47XG66t9SZ*6(0K08~LkRYei`vU{-`S=iU(2g+htjB)p z=GKkX>+Owx9$+vOadDcA3m*mXwvl3^~k|P}h{I6%H##AS>hYJfdDJes2 zwk#y1&(DuQ3=7~z(9MmE1Wy@XU-YvK?_&uG3s!1t@j}!o5{|uo1uIAePri|7&+ZHO zWb5VU!-O(EekdkJ85^rkPS#-pMMYD5{#>i%ad&Y=4l9Ljt>F7O*zF4rbS}+E>dQ{o zrll!kV&oAK1A&1A7BOO==*HF#ABe=u>z=!DJ3aN2?PPb?NE&YO<>8VWZ?xXXRX1)}uBy%m1{y z)8Qz(moT28&&W{YE(Svu6hx4k;Q=vDSpFhsyO;%RSiYmwXX*{-b_|5Y@ zi81P!m?6CTg@zJXzMvN%gXLi1piBJy$#KKO2ayUEb5fF)!+|!Q6gn?VLJ{87`Sr>CzzrlB4UWiRK><>@xIOB3}do(V}%8i<>{@-es%OfRdn=% zk6ujOz&-Q?fcz3ZKIr6r42_-*3qv7?uU9fg3?)&&G(T5}`3_kiH zfK*T*6rSot+|Ohp1_eez55XwHSoDDt(nnAb1Sl&?CQ}_9t$`ct1psR*I$FhIDKWS3 za0Pr|#^2Hpd4MH@x-3N<9E^F(;Rf2c8AqJs6MP;NL<&P5Nq{9E!NChwA|fEELYa^# z1$vIbP@;CojPzj;qa+uOSSE&e7eY4F8`DMdq$F0vBG4G5OknDPfvdrXl#kF*GL`Uf zs4D67ui!E)Oc@$V`XDo>K(G+|9^_mN^@a~pn*!?-7_2}~v67+S;IBXlJ|Ib1fjk8+ zsSm@#2xyaSxClApZy=|&2x_Uo{3w>6Lu?tCp`r*6S1&@4*)D;;!}?r=3iInRJe;iYG8Tqg8h7Q1IwE2LI$cet zYu19n&@dPT+MWU$3!sM$EL3rMXBo~_bovr%24gKS`f{|9k$(e0Ns>o8o#JahFVjf{UQXpw=D8i)t~_x5;hxX*FYB)wZy`p(b4+vF&rJeCNVL@{{wK93J?GQ literal 0 HcmV?d00001 diff --git a/Grafice/plcont2.bmp b/Grafice/plcont2.bmp new file mode 100644 index 0000000000000000000000000000000000000000..23d4e7df8226819c52c53df4c6622f49dda9b147 GIT binary patch literal 7534 zcmbW5=UWr&*2d@kFWxWbo4)qC?ORX~3tLf9!~z}>DO;KpL5h?>2)!os-XTCB2@n!` z8l;k5A#@N_5JA+f;=3jRMAW^{b+~?+Ylh4`>wfOFo-(nt@%a~G{5uB6o$%QQpX2cP zALM`Gh#)7{zBgX19dIr#{{?X_F8_?HYutYflDcC@+Am1ou_Jxw&R>zSbLTg9?aKJC z*}Xes_iiL@=S~yf;_cd%zKNd)Fg^^=XZ|Pb*^_Amzh}>{K%gy@J$nGt-9J6z_wM~0 z2z&Rgv2P#YpUB#`??({)zI|Kx*3ka_giU1a-@lau2eQ`5K5*clIe0L8ot%RQH-l`B zgq|NbU}7V{cPEDqW&bTXhYq0}K8*5xq+ea;9y|yjXqa`48)8i-YfqY*{_VHC*-r%n|bDKVrfu?={S<`;_aPDS)`z_Z9`oPhn1t(7y z{r-E&nKPx9mO$Bs3qbiMDy^-7s>_#6C-7An+-6}>VrB*p792lb0FC@Dh$$X=JaPm; zd$7T=V|mAp6`ej^YGF}+@nY4LD>c`z*WS26ymf0c4R`MXBu7URa89(hueG%WS>;w% zrRL_vr%xB2I8k`)*moR1UbqP)|LD;ztO-AM42&%?H!riYf)>7ad&U^ z@M!b$YV-CsLHG4#`1^MR2AY7&HcwBAvoq=5y}BDWs;#XnOlnS@Dn4=IS0G^8W?iW8 z6DNv*Q>V(#o~^iWq4wG}l7j=))s^n=-~Ie~F9yTH;W+W}Ya}LeQ&I-f(s-GfCg75Z z#dd{;w)^^$ot+zQ->$xVxx&)2VTIa=i|M28Q%+!B`EI7cbV?+BP{kLBG4h z!yz!AKo~45lhxMBtEv>WwI-BAqMAg~QYhLMs)j;Vks77t<^0S{78c702%tWC)Nt!o z^&fv!Sy`2VyQfe86r}j~-#1uO2e(>Uf{5Dd*PH+S?{*)bzNjcZ9xtn`6p zrAkZ7ax=57n46cIn#^!o(|5Bu~=%QoYp}n)>OApsd)vZ zq;}@w+}wvZZ^jme9`(8&$6q`Ub7p^}`Qd;YW`RzRvqP1fZgqV=B?c0*K?Z6(~hcUYpT~Bz)SNrF0RlPu4lAo#Fyq#(R(JQFurOg(mX=JO6bd=4KAuif zoS#!sT-Zz^W#$wS=*l`Wy^33E+i1JLaQ~s6Lwg(cZcE(;QvNS_$I<8u{<*QEES9pS zW*{l4%iq7n$%%CHCehlu_Wb$H)IkkgxPYKWtphS^FI{T5af5vSKI6#~FhgEmKHA+q zsZ?raXZePqTzqCyTtZ@eQgU5yTAQ3e;fFLuSrM(wd(BUXP8<~;J-|4yEp6NOD z;PKj~rfGp-ST57NdL?}^lb({2R7y@Ji&9!-DXp^fHaVuhGFO}Hq4ThoS)UZ2JR&-> zvv}wBl^!c0%m}L z9lpM7ELK`vY+x|vR4S=Rs9#>zt*nrmNkno}T48NsX){Pkr^yKt>dOx=dGkD9z3&;x znWLhkCLR0I_dhNPoR&(5T3QBS)I>xuJUl244y0?>8ZKY{5v1NPMkp*~ zvd34ZR##W4bJTN<=XRv;*p{?ySL&`mvh2F}J@7c_kml!eqoX^#y<6|!C)?XMUBBLR z_39Ro1{)iI1Ww$(-3B6_JOS}(y0G{xmE7!2VGl(#V%DT)Di9#e#FLN|9WOd9I9hl-)m4b7XhX?wv(DEh;Y;vrCs>ym+ZljCOV^ z%F6f&3B7@VbT_wFShVfzC^v3w0U?1jJ3H#VdvtgA?!dtQxHwr!$#84yq*yE$iig#z z_wU{*^*Y(ql+a+%udFCvzaIVi72s(!qLC59=g+jhZhT|8OPBwRR>uo9=WnwD!n>Mi zOyRq^xz`%aL~pOArbd*O#tseb^75iRc+h(LHucsm>dl)d5ZVX=W10-L`S4+LX7 zQiR8A>g&h2TzVV5vPV%z>6D2@>gj3i;$jz@t$F*_Bm$254<9s(i>Ax2es)e_c|t|A zS6D!5t2~3Ipmq-|zk0PWJUq?g4N)kvf&v~6*B2Dj;qKlJ3;4ZzEwFBE0wIGmFvG>A zCm?{AkO1Wg8RgPwg;XxST|sE*tt=_fF20dXPlF#!vDonG6T}7u>NjspBF4Uc?PmA2 zHIYb7>KH5wH8tXl3~pp(ub*Fsiwn)svGwjC@tyg+5A_ukYQwyv)kVqIO!-s9L_D*T3NNM_OA|Wo4q& zRBm{9ua8d$?5Z9-pgB0u?%r)Tg0#ZLqeoqkl!yp1fuL(_oaFJiynaFjDY=xIh>75+ zl~9<{si~fU0T?X&p`m`23KXao7UZ+Dpkw62hpEYlFYx#I^TLEQ(AWOnJ##lVo5I4( zrp796cPrHUG?zQv+^i@n5+)^aLP9`Fr@K4j!Greu_uCyD=nf7@o1-J$)wSEl2Zp#L zCugX+c}gGv9r*mRM0`JOS(}gM)j#yt-UnJDi;8u&_Hi zBJB?zFrYYmefu#ONp`lrscDMG6G{f#dODkFt;+e=P>(Qkh{wm#kaKe|K-3EhFol?O zKyj!h$3K2}|M}y`Pb({*-YrYI^I}766JwmQ*r!23&JGS{zP|Q!a?PAXGSS_wBNAmf zIRe<>1_$?fd!tewKJ0k#0HNK#583L0)ipA55Ei!j`UxhJ-P;Wl#^~xQ%Ga-oxw$S5 z2c}U|Y_OzHAmHnCpb2znrY1hFto*gS{PE2jU{=@XB2M!5~aGy15|?n9E&U zpm5mFo(baOtZ_8=damq(RYBK)^ZX;%>{yPoH^P{rTs0f4_V2 zvA!%CX;v(rU@-LX@{yG##9{|RLfF2(NXMf`9d2&jV9t{#?BHNN4kslLv{hB3bovW{ z;Ei6tI5TY+)+;8)K?>9dR45E!*^3uwt-yc&`pclzyd52Vtx(MJ`7e09Igw}{7N${2 zdred=-i?y)M#Mk3fA55!pF>21XMC)mUf4g);fzoy8dG*6BOyBom;rRVyFyb}Sp$S@D6%G%x1_wtze-q{TP~1wG2nPO2(Qo9yd_ zn>B@n(&S`eWF*q_=bvjpYP`Lfetz8G-~pIh6B0m*uBK)bYNfv)&HdPDZzn_lZW(L< zSHKV5;v%oNXHF^w4@R1sb=B3HvNCOX`7o@Mt*tXG)+?!W$sm6%Z>%nkOUKv`k^-C@ ze-90DD=p6AQ|dvnwzO21o-W2>kzUwyczT*(f)1#XfB^2ZXE3Oso)tMcTG)#~qa4m_ znQUAxWA$^iXGm4 zIy+~%+JN!`1mY55>8=8;10-Z_;J6*f5d!`Jt8s215A= zVbMuW1}V^8NGBv7X4`?bRw0+8V=~7(Iz}lJh^NZUMMcENi?CQ=5Vp4|Dd_K#1u1u&U0#^z;^l7BSCXSGDpI7UqdM4-2q;egY}gEp9mq~t7_vZN&FD?Bw+Rb^;s z7^6}rXtas;_NlJUnZ6oYL11k{m^v>HeHMp9IDUR6xKN=0Y}Pk;`ji(OEP(kwIvNa@ z!wYwIHna=91T-Zj>im4jt}Hbb3;+>uryw*G5Qc_|q0*zHrSL`w6C)S{eW<7ys;(Zc ztpyB3;uO8In-DF>XUY;124i9nE~LOnKNzsiz|*H|1O@R!L;28432U(1bG&1t%n8L#`GE%k<0wwkhqv2>rjX>JI17-#2(<6}!8|Zg*{68-(w< zob|kS0nzn)*VmOZzY*t7&oeXs=lti)nQ`!1zJQ&DVfy2rCjRO6VPUz3|5;fi@t1`q z<mk@M=+t7p%iJ%0T7_uqg2jWQGhy$=D5e2jn00?Y->2+RwLhJK(ZqKfK` z2w=?t6Ycfu*H4~2xp(j0wQJWdUc7kr?AbGC&YY$Ug+OmY0An5_ALAdh0CNE|0`mg1 z19PM|iiR(@nOdm)GB#Am-$non4tU;s`t<3|n>QhE_U+r((9lp{Utd>Ox1KT-0=)?V zjCqWFjDO4m%mvH{%nQs8%#pu6uYTPGARy?5FcdZax}E&vT82@C$2=@M;HeLjuCcMP zwzhV`f(50erBkO)E$J{*C_^Fet0O=Rb&Pq8e2jn00?Y->2+Rx24oVeb7D*5qAmx^p z7W}1Xh#48m{T&G4Vdle!4_N)i;sc)jF!iQSpPrwepPHJQkdP1`A0JB@3W45%07g5; zJVrjoKV|{u0%io}1!f242xiK6%&%W8NejprFOJ{5!L|)>5DW#&FV@9BzBw2|*aC!? zuqi1iH8nLWDMKO9yAi-Fz+3%Y z2JDo>?4US^=%cpQmiCtS&!0WRc0mvju_8yk68fnI@V~Ay6bJq5x{RvuKZ*dsL3lTW zT?*JHM{y7{+8rG9_UYrtuU@_c0YMwWDf@E<>JNb&CMVnoFIYSaTEvjfEX3@RRkyw`YJ?JgkFUJ#X&uEcU#N* z_Se5%K6mcwrAx$3mlOx}02dYXEeKE?^ere+ae5B|6bJRt*KHr)w*T?q!kIId&Yvf) zTE-4-N)PG*F)HY*2v8jKRfwnvy$S(}gL>%hwhwRGU)?`<>J%*6{24w0?TLfYc%JdYX!wYJz)Fk-OKiuw@)2CdiwZrC_#7c-laIG2e_!9Z$W_K zpl?Cx*N6ia`ZXHzkG6v1pdR4;^!9oCi(AJJ9XfgB2yQvQbLS4eRK-npJtU!mCU)+D<`4Zlou3gib+3oE|)T4(eJ25&uhn$@p+E$LZ=% z`XCzNCLBa6G8B$(^XZg|IS0~B#vyYfvm$+%Bli%WO!!kdC=TkOJ3hU6*8cp)(S7@l z9Xtpn==SZ~_)?YPpdJvTg1(Btzm9{@B8WJmU8IBAv)d*!$LtiLYY?*!v%71dU-E%} z*MwaoBhHti5s|y*L&hf^ow6nUdvGvkOGYC+JN+awXO90RALfK)9A?K?BQQt)AG-e` z4toCR!P+@v348C_g`KMwzvTp8p_#^Fs`lU;XQ#Mu3{C%s-w#*<3x9$QfxrwYDG{ zvV|M@zy0GSGtMZKti$1LD^WClqJ}7_Zo$Nl@82Qvr#Da9pIzVEux(0Oc;)2mc@vU1 zR+p}tU2x$@6S75oWP5z)dgkV!N*l@x;g2|ofY5`RmlFjc=jV?flC2|t-n@8X#f;I6 z`Y)S}tHYUVNVt&}Wuf73UOk6Ulx(Dl&Fh~mp9_CeY|esFtbX$~BaljjfZ zfP_EMv|)SgoI6*}!hLGbrakMbz#x#%h!4lsn$pvIw>-Fc`NO+6t7hgQ2}JavEwvEr zwbQa7$*-L~0>}HeuTjvNvI5BGyI0S@eDXUO4PqZM8Kt8*6#B=Dr$-ytbSvSJKT1R> z!Gnklo&uquGHsteA?Hu8AGbffdSKVC>gf~fmoJz-Cie89U7Ht|A_?k@My;NePgL^O zrBkR6{-R1ZE*wX3aDV|H-nxQ3ubw^xY9JbmN?tj25X6BBqwRnQsnBG^0cmy`7%d;( zBLZ3ns(Sj{JrswSV9Z@>$`KiDgyTrVD)13VA3z~<)arKg86qEoNjv39{ruk|@GEf; zq#Uzh1{VIzKbhTKgP47o-9)Ny@j*;P>tx76zvNFwV0Iuf^H0*<$)EiBEe>QtMkCz# zNt$kpKq%=?I6C=|$w^1g@jHe7JU{>4bZ2+7t9s=^v7@QPn-Ac+_`>9)%wL{3yZSu-M+bQ{zTLhj05hg8XtqY z5qU!CAY?vx6RHY4k8NK|(gET#7mc*UPf*N)yb**2{V~TO+)#N)PcS&q9MCu62~2<< z+@Mi1A2`TRP$Ze0a{LSk{7M|ejAvH~$sEe;?i3S2gcK#>bQ{W?yicChu9l2tIh8hd9L(KIHbxr;i|MA^e+9?uQBkWtvN>c8 zNy0__35dXnizg)#$$=*x13KkN{ruk|@XK%zU?ik2@s~uE+4D<5WMncEW(OHcW<~li zN9!6&`oPgO2@%Td|0Oq>4^bQ$jr1q;C-Y?XA>uO!k)g~%WCUhUxI6iiKAkdQ_U{x# z2#=mi9M zb;2LnWw5%bf_`|Xb}Hf`NHXTs>xyy(Kj!HcJkUN)7X(VRWdu!tTD zi*+#k1d*W{U?sTmQVH3jTxe=o8G{chj8JBk1ezM?13_pGUKkP00pq}j*?>KP2}%K9 zV+E3I4#_M?{vSSi{1B)jE8?{p@<9X1Q08nY_x})qe>DevyIA}7nE%7Rpo;z(5cuaf z2yf>hDnTD04m`kjZ7k$A6eW-j)P$~~-|hol39DYr@gd&3%5&xjq#Jq@R}9b2|sxpL+5<;yrV4%c~iibni|D#Wbmbc%x@L?ArDci36cRqN@Lg!li1PVgA@Hx`Ao8L5@6rmHuoKkZkx!=_dgsqy z6}NwmgYeuA_Q4JTEJ;D?b{#f&tAbZB&{^<0zH8{W`+(p;L(K89JFW+2VU7vuO)5>y z{)D^b+3og6=NdL{Y^<+uZf?GG=@O34{?c{c(C@HYplc?C4|Ee^SrR{?_&_Z>cX0cc zA~X8~C1wSRIf&5RkQJb2_9xw7AFRuLDU^&xIesJp|2hu(k>F5e^+E*xIS%>-z-)PT ztNr&g+v@7JZP)-M=;FnTIJxvo9P|scmukWfK!D<)9{@5{#J>muii3LStd^%Y+J8H> zdF@(QC_(4Wox{nc6bJQy7!~wY1Sk&rDnwL-UWEX~K|OSL%aiNv4^P&wUR}Rt&4mjW zC=TiYD=O$45uiBe8-b#t^%4Xq4(g$!TOMC+e{j5R#frL>E6<+A;n^o~aw(+;^?(=^ z^i>2X4*DuYRD@oI0L4K)ba%_6=Jp52)-7AMw4!49^5rvU&OCVVAg&NCkkb@0@H}KWjqjuz-N5!Tu$waTAhbbF#ChO`8U7==JMv zcAIyb73E1Gz>EOJLCk1SZVCa4gF1}?un+j<%$YMwmMoc=n^Kw+l^Nn!n&7v*D6VR3 z%*=w!31bVUPoEANdiSoI4{tl=M*XA^=!5_cl!6|O4VEicuEgx?6iWT15a?|Pe2IfF zQ+gW|XfN&t!d-Ri)~%a5b?S^l`rL5|o2Nw1Oz@eNunr__Tu}~4I4Iq zTqe`$3#QQP=F+#%jNd&ga%Q48Y;94@vPsc(Gcz{LDOgZ6p>WcqMT-{U@C1s6e!WTY zkG2RS4H`5C8>I*Rqc~HU|633sI4C|o9voCxSBEty%nr9=nV_$yBE`&%HsCSiYQI+f?Zw|vvks^4YM*D%M0quCd`{iFDxts4dL6>mX^-< z{`^~dpQ`7NM}Xp>ACEaz;?Il#!9fWL33$~GEugn?5Dp+ce*F02#fw2GC6nl@X3@8G zun!36GY5^F5l5RI@42inddbA74YSgBR2DQXnovK7K9~L{4dFP`UPakI^LYOG>qc-8 z4j!cRpr609s2ctN1PBgFO-;qeFZK2HI0^u>1OFLmL8xUAuOTqM;u! zTz`QgFi!B9GY(*oEb1KzV^c3_VDsuC6K1KkJeUR71q zCgt()E0&R|7h$DIbddC1U`HAjN+i)(A`uUzls3CLD+0uTU)zt-#$FgV|HMU{CXTj zvd`SPb0^X1(+lZUQ|MdfGN@!%^uVK@n9or7=XgJu| zaG;@Ke?#NGhQ{678aJ-3t6f&RqIP9%?aJk_D^}L7SOo|Eu3EKv<;qnnYgewSUA4M) z)%umIx2&(VkvJ&C4F@V4T0%! zzyiShKIufI>Lm!^Q4JFf&q!Ey!0I<%!s1~GpXO19LZG)HfRT^!k6D1ZfEj^#@!fAU zz(FsbK3Q2lzaTn1H+*pNFz;9&msnr7cwdh=Z;x1S{Pc_P@(px!u`)E()zHz_?66uo zS`4eLsi}>>+FIH=I=Y7Xh8AW6-0YkJJ-q!~Xnw9VH%C_^LlYfsJ%-iN*Vfe6`ZKw% zwx%A#YUyfeGOVVCj=Gwbva-6IoPwOVgo(U_gO2ntD~;kZOi8SJQG^qepf7O{G9+kd-5mOiiF9nV!`Hq5mePiL388#nGZ`xetym;r zX!qEOirGgQ3W45<0LDLN0pbAh&=3Hy;jzZ0_^PlK3n+1%>&EE#>KFGIQZB& zv;^2qB-pKF*z6QJT-13&tQDpw`!+1h#m?%k%Wk9(2xw>ZgvRP|TdK!zuE^QCAiXrn zyD;1l1XMM4#JU+Noz~)rgai%ktfJS=p%+f1iKZ?~~8HBo&4S3?>d? zFaaq;A<)|p_&oeS5!2zj=RT6-jnA(74UtZE;RB3fY>h|R>5a10i*qnbbh3;ZXf{Ys z%U@T=Mpj;hn^%UDSBgtWibq_MTTGHmSdvRfl!H&G4-ao&PH7==3w?9j{x+IQ8j_-t zf_y?;oZK9JIXU|BviIR*W94IK<>z4K$KO7z{rdiCdHS$&^=0Mc>ch#+#;Mwm%T%1p zLYmWBmcvG#-By9!UWwg7g~LUYC)8STZr0!}^G5HiEZ9{&zC$OP0McPF$l?jGdzKaM ztu1O=UbJ(0(e~v3{0z#$|($-4q1LV~WMdeldi7IgLDsl14aPW(=@k;g+Rh3lHR@Rl3kmupz zgF4fPl^vG74;N=&UhcjE{rU*<^bzD_<>zGO<7Dl}&dSZf%EjM@OPG^Oj*H7oh|5Nn z%R!MF)=rVrR*~ISkqy>PncYE^(@mG(%Ro5PPHAkI!@|7KRV4`<%QCjk&uJ*nYp5#N zRyDSuh~^*!ysE^x<>X-D;$rOw%fZ6K$-;x5>?|Cx{Hz=j z92~OT9LD?{HZmM`avb(@?Do)l6xi()IH3Og$v$daE;_uP#v+5Pyl?4$$Ox=NXhV26G_{aEWy%zs!Ur0n zw4v`CS5ztr0SW;Mfp0+oGWOx^TjNHJ47W5%a2Sy2*gxLBf8;>ZP;*mfC1pc?Asv1} zO9lbyc^l}{v^8B6l^kW{-4s<_mDQb8G%aP-HTh*_xg`bJ1bJ9_`!Q_4eyrTwtlV5I z+#D?2eOWkJS=joru<`e0ljdfV?Z>9e&t@sfZYS4a<=O2Smd#$F!z!{nC~-Ke^U(B# z0xhJ6*eDFKRSb94iuN*y@i9sYw#o>18Xe=28}F4B?Uoheo}cKG8S9=F>0FTFKYeWY z!pRBi7Ub_;GyTkllAAlrc9!RFotb`SI&9AQyz%^dplVg?Ou+qMmR4k;S?mVrdYp%9=Dpb+>D1R!9qUpzlL zWKfKqd6LV(BxlgjfCvlYU?T%(1qE|aF&lXWA47uxQzK7ZEt}9?hQLAWEL=jY9CH2Glm*!IMc6E**{o#y zTFdpdk!Q10_|w`evfC@N*(a3Me{93s=Ix(u?P@}3jTm4QY^3k0uIi+u;Hje-Xlm$hqU)`%5n!l2#8_{bu|cR=f0~BAiHMvMw~z!I zj~E-TI0wH3r+_e9KR#A2K^9IGE-pO*9vxwBBM}Zu88$09Hfwn{8wJ?DuyzUzea8V? z4iwp)RJdq50{+Hgfu@p!`b!VBQW#<-7c@{V$W}4XS>20f%tvAMCFSfInA9PWTvI+czK ziEtXy-o1OV1@Ws$QV}QwC{PCF?s2RR;Fd2VZY4r_V#4)$SVY;{xQfa2q*#Nn#O<7XfmXe{ApC>CfU z8DuIQU?$^lCgnds*2_xO&dzXvo2`kjyP>bAzORp-kDsm=tiOS8pt0W|Bi|q+zaS(3 zAkdJWe~_+Upmu=2mYdZ>Q!sDY}tz2f?mCPiSIhV zxoxc<+ulBDdvUG(@u~JF#~DoY;!N9%GanuudwOBZg)MXUFPlWr(DD*`@kBaq$HQS1 zIE(M^VoSxR5TFpC5TFp~83Az6!5!OEd}*09$4oDWXe-0vMjAu))%-P;2kC1KG13b% z)*WVPG{i!erl;tlt>~nyW}zZ)swl52E-uKyDag)lBp~3eBIc(i=&Q=-t-|er7di?Y zj`E!L3f#5~%Vnp;Wv|TXsKVu<#^a&M=dC9M_5t<4`Wi|27)g2>O1m4$SsJSwSeR)# zIIFvRt9tmV()`ps{ncr{8ty*Y9=_T%e{Gtt9?jRl)8EKD(8wpq$UDfuD^T0ZU&l8< z$3H;J-&f1e7k@Q;z0`f&b^JZ$`+P8Gl_6qufV#c|qprONu594dBp24I-DFi44 zCNH=E93R(oce^Mnqfk@4?okWWQ47%5^wd^$R9CduQZ!YP(vuZ6 zRlwN=3icYZ4yv*)%HsBN9G+_Zh8v1SnMp*Nhz>Ut4AA2CP~~t|=5$iwc2VPZ)ev;i z5OCAt_tFy%Fp{54V6&KOuQ(c}H7^iR0_XG|72~^vs z_K&aHUR`T@b+P^Rh4y!s+uk?7xx4>r(;_U*?Oa4JFQ(&2IndD2qem$k`dg#xUmf}L zv&#SGe>@!ilBQRE$oWh5AR6`GoD#T}>)pHBd2?c%?PBdMLM;q~Otk!rHNEsTU9?rL zR2B54#SLV|ER`kg)Wn^2qyzP2qx;Lmnu|yF7Y{NJ^3vi7A0U}*r;uVTmuxK)YauzJ zzt|8H5nnwaAAQjvQ`uk(r9u7W{Y@lkx`J+60!~`OHflnaY9hv(a;hpy5~^Cl`sOlr zUWTD@*6DPIab?bvD%~elI^~vH#*Nb*9IxsTqT)PA&DmeaBT&aZK+DZr$HUtI9OUk2 z?Cx*m;crOu*Z1<%^Y+vA_SN?C*7Wk$@bc93q-lD4;Kh)fsd+yx0YNqaac)sbelaz9 zB}W^(th9^`YwPacy@$h8f#iRLWLs<7$7k)YueH6t)c(G?z2$1_(-ZfPtU9`8+V)C% z1>OwN>GS5zJ8|L!MMM7q?H_jit)c$y^ZgseAmhBhVTFcayR0TSts@|n(xDYi06R+5qZ zMFaKtMp#IV3pANL#EkB%KZd52<*b_Gq#9$dJlsNlkg2qvk%YUhsEwM)Ks6B)MIl{z zQ6(7(X=y15d1VP5Lvb@}SvOzxp;7&l$9R{NhgEMJS-UHA>8_y_TL;Zr=UcegF|EWT zG*i=Sq?+pxE%(8iuKt>?-a78S2JXH_Zm@oa?tTUyetI+?9h$cm!+L3Z`e=E2YI@K# zY2Y9~Ip{%L{Jed6gxLfoxI`p41*Ld}l_X^cn3!d!WgOgh;O(0?f2E($KK$PP z?pg;8U2A`J?)NhrkFT4twVYnoK|}NB&p&qT7&`GEmcGAQ_TR`Rop_`xS#-+@-Hvl| zrgS^qx}CY5BtTb5(yf^4D*rIEI+>Tv8aNBaX z2FE0JHC+$k#4%P~&4V5dKCZOwJ_~~c5s771K2N*~>s7aVA2kmy+qlKxs3{r9Q({l0EbMw=4@iuhzF?97daP`)6_11Ow z(sc7uck|S6r)he4F|0dH%fr*aH$dLhl9yYMuP>iKAAT`5At?@FX%1m*-V^U9s3NQA z@8w&!dfls+ul_e=U=wEgAX$T%FG!|fW(SfK$O*zceaLCWJn6_;NlsYi z8BNZ5W|=@r3}$&kN*-ppL<%uxp~oyvZ+|wJv!uZ-Eu_JXSA@CFWN?r^X|6JvD@>;O zv$@P+;>bG?B`)Nr#_pL-5IPikmh(7gU7$F1}o&9 z%#m+1ol@av*UaJ5r54A@8p6?CBTjy9;wk2a!%boWM<>Mavn#OhVFn*=vR~jJ`wI@H zp1l0Idz+d1{0h@pxJr%?IGD!H_0I$9206yyAjcjYpNHga=7GvQfXPvf2q^LV`SZXB z!0z0+v$C=hbTebd3>=0wX3UuE?CiYk?85BqvT@mS$0lVBb{I8KEyYGH+Y$VtQQ)mH z)>{*HjHmjgw&MzGUD&BpubyJcjI2p6ybi|sYAvL=L=GD6vEw;&-WfC(^Js?)eeVDS7zm`jYzN^2U zlefOBx4w(FuCu4Mv!|BpXAW|sfs8akN$#Fncx~hp06mDCo1eQ6wu|$M^bwR`6Ov#T zl;jkY?k6hFBP1y#?quh*cJ;cKFJ2OI@;@@T4GPig_78X3-(P8Oxz_sP%)JB4_b)4g zHZ%uc4bkbq6a5Q8`ky3}t2+b$EHnEMywg>eAxMX0oG)<=K{TBx=1b(#iB>uh3dts& zsH78#bfOP(iV^dUoQdSzBql65g~>@x%ye?@lLCQ|5~R=|B?&2B2$@3)qOM|!5M`ur zBZVFz21yA?icM0YlJb@m#iZoM_8Y<+`fLtHy%-166?TR&&H?XN{OFjoWa&lTMM zxyn138v^&|CN_O;^sdh^>}JAd&u75)cENJrXP6Is2L9mZt~m6$a}JaJMfM=sr(`da z{Z5VqVqlQtgme%?s1q~7lN@p&6lQ}li69h&8lwJaGVbre^*0L_F2wgN_`n~x;Y^q? z0d$j>mzR-|F*Yr2dRE#(dfKw-S!?DLte-!=ej$BFRnfkslW~|pReHd@Nc-|pj&mby zDid7F;~nQj*~|*JoHEpOT1fwrVWv}tnM@BepFGrbLV#hqvud2JdWfm&@B#X{gFKS_ z90%JNx|?d-XshZ=h%0dMNwEotaf*rv$%@Eoh-er{nGMu%_0shT()JEi_w-Zs@R4`% zQt}>bIx5|9%yf^EMSk<^hAiC`w&rm3#*?udPe-mh8oGSnpsGe%=^A@_rFq6wov<&=1fy}#af(~mWPj?cc7f9 z1sfM{9~Mqd7H(b^9zoWA!hLwf*aajwg~T|8gxLip1f`rDoEKFtdi49FF4|CAd)tTh z_cw`mL+^h(g0F{gmO}k}`b_MUn=}dUh9F5O8tRUD{^CdQJMov`qplhdd`M#I#7AEu zCPD*ZR)3foiqwEeh9Vq<5=3f1Bu^0zQVAjmt6TL4C>j z1DACrGJ?^_=TCysNID}N}I#LjkGKyq9(m_fyQVSsE z9w`Y)2Pq`sASEXpq&OuVq@;y|6u)qgGP#q36xwi*lAPJW9HCQM@+Wga%oQMOMLL)( z&)g`orKE#IgT#kKjKq+1kT{dbcXg2cMfM>1=t4NiM;dYrkfQ>F;RK) z-??K4VVjy5blTY1fUhdIZr!qa^~yz+6_pj`Rh1QR;BQ&ktjWcN#gir$F)a2BkEf3x zJ8{Ce3F8XJ7UWMDo4On?k5suEj7UovC8c0n^K~`2uR1#8MR!mu0$xzkU zR^8D@-Dikl=t#?mXp^DCwS59r-Mmy>ycC?h6lp=G5vk63Q$33-1Lv+ETGJG^>R?R$ ziGm5p#TI9_!N}%h9XKDI|Yq|{5a}U&a_t$mz)pGUJaB@?} zMs7!E4HtKHR}XbpaFB<(3r)-2Ti3(Kz$*wG#LkH$yScgg^y6mj$IHqsz{Cr=4ENea-8pC8)ZU2DTmxi=S|UEFqb^;Fz9w0Qx2 z_7ujV9Cpf~uc<{j5;0~+>xXwZ3%6Utynx0~YCsrZh?g&4Jb(TS(jTI~L(t=LxJMA{ z4<0)p?5AWM| zXz$*Gd-fdIz5BqfUHf+K+_QcA?#9Ml4GpkO+qUi8x^>5vEsdKtHPqKPY}~kQ!-lPO zbz9c2-@Ic%a*NKx^(rDC981J>f*&Ks;jZ& zy}YVwS!LzYii#!W<#O~=VB=wwyLbGvaGCP_U!VRGZ&VYE|@W6{`Bed zrcIkWb?TgwlCmjNW>20xtGIY(QPIr8!qQ2TW=xz2JDpCSHemuj!7dp$ZpzrPlM4!p z$BZe?&o9c$E6mHAl$$##Cuid5(e&)>30Ya=Gc(6!WWbJ1PcKMI8k&&>e5fLdPN5UqDhbN5~kr);R zn=pKMd}t_aTu4aluwe{4bSP|0aB%dHA+Vzc4~C5zG$=AC2sR=xkYNJ?V8i|W8P?B_ zup@kZVZ(fU2s_-{o3No?UW5(t^d#*t8jaZw_3-#U%bW?^Wd3lF<&rfa>lTK3`udVJ zCmJ#`AOMzVAkkQ~nrJ=&1u!ANA%Fs61a!cV05d5p4A>GNr$j`g0`m^!(F;U(pkL5C z*|2eOu;?}P9eOY?IT;qciEc&zqL+#8M!%!?VKEFa9xy5}HeieL^D$b=ipJN>D_J~a zV)fKHmRnKq$j27Oss@tW!xTbE92teUue#q{kfXEZJxyJ2S5=CYifHHCXOltZ}QQfhiiMgvvNowOZ& z^u0rj21lBWNE#TEVV{s`9Tle=Fi6?eOUcPo*~v@6(Nn?MPcJyeHf^HEg!zNY)`l+L zIdav(xJ@S$8qUOSI~`eneE9l9LCcyv=hZt+UTT$FHXw1L{?G(1&!O5L*dqrH3ea}- z(R8M1I=ZOaJFD3{sX92Txwxx3xv4q1YdU-Cy7?H<2FaUPa&roC_2K94%ipgLFE1;P z04p~?D;E!Li(uvEW8)L&5K`n6QQ{T1GVWisu=3f{ZqDRsYkA%F>h3-uAKm)BE<8x9uO_Fzkmv+CRK%e-De- zZ7Dl#9PhqcpdV2NKlPjN|G&Ahu%by-!YJGIE_0fga-_N)Hey;U5*t4y_ zooRgtd%E?(sn!Q4TOXWgy??y*-mwmQwDsPR*1LyW?;dKs1ADOb&Vkn32U>3JYq_-Nvw2wzgc^(sE^UOEc`Imgf4F%di_; zE^TPJw7%sc>^g?Mu(svGnwATzTh6cQuq#{6t?00|EoYavoL$DSXO^~{S<-U4rsecv zhCNl?a%xe_$*K-p*>bX?Z<-p{Y{jkL?`-)oj6*BDJNiBOPw(O<1?17!ovS&QQ z?jF~&du;2jf|gxl7`7?Dr75qKVRKt|!j5j;0h`^rBa30TXSQz7Xl+byZA@d>hSUz5 z(%O*Rx(zm|bz5TV)`Sil-?}C46T`-Q+6)`rVMl%16xCrPKh;NksvpU)8^b?s9Ko;~ z!rC?rZ`%;sRtFo>RyT}c*AMNmL)zBC4(_mn+SUfawyzB&9Bu0ceGVGZwjQ=436Y$U zPbeeL4a1TDp9P^rqG;4%Q{b1%cMWM3H^m$W7x?Z z{aEs6w=(*7I-{@AKINRPgHz7QTg$7HSCAu zmG6&NzB^X==4knwqZMzDR=zv2=>3W6*GDQ|99Z!D!2IWozpxAcv5LzNx2 z>iHpteRgQkv%}S}PY>Z7>BX;3*1kTy`j6AA-<+@e$e1+^m_e^D?Wm%s$GQzj@w80y zwixBCKg>!s%Go%>&oSN4CCb?<&|KfQzrMSn)<9KxLn#S82}uJfIc+g{BSkF@S#GB7Fsv*~K)uB-I6^9R^s}F0I8=In*C! z62VW%t50|Lf4I5(+Rm!I9S6#RhVc1nv*>Bl#n?S%KcwQ0BC=UVSXFc zgS*@1!SD7Y*A;tqkXtXl#X+t~{&S9QHxPF9>{hq!){|6tzunPwarGzn`SzxfF}ua8 zThFfGckA=d4GA*mZyBOwoSuh08A{GCT-;DKbyBpOWg^Wo#d~0!yIF*Tew?d$nzvH| z%{j!@!qZgW)mYb7Q`J~TQe8+$iBC|LPgq(=MnT0$%iPr_Fv2G>FEDR1Ew{)rG1n*} z)i@%}JTlWhzQ8$|ZWWoM?;oY&7^r0Ht7z?`V&|t~@26<%Cui-itf25(~-;f2hZQ^H+6+W)=Z-jqcsC!mEA)X z9fA~WeH87zz(kr3-fDI^!ZluhF`;R+k9v@rt`;k@W zH_s(Fh`8vXp`2bdg$SbBpi_tLd2A1SbR*%!-<`V#KUveiO^=Gbb5GWf+V|HjT`*jLox+ zA8Q?zZ!|bX*=>Zp-C!mAAu5i;)LlchJi@fxN2s_AS9A+J9-%{^oJJo3l2ZiCw;T_`b%dBp>02-?uL zh4gBiDc3cW}DFuq?9?ITj=H%}3-K3{F$^jFNL4 zE@KxWZ6B)WGE&_$M#CpgZ*Z!0!g!zYWuc`@VyiZ$t!&C(b1-ww!K7t-hL_cO(W@Qv zW?QBd8zxN9j2@#LlA_`{T-h;5(cWLt(MQSATgj28Xz!+I@2YI?s_Eh(Yt)~IQ-Ft| z2mMJyT&z5J6U4#F!@`O9v%7f+sSDKFc< zY{soUOD}F)aClV-&XI#9$Y?iC*e<8nOk-U1FmvWiY*54wD=_=d+1*sFCpW-Wz-cvR1#|Qh=o&%s%I?DzU56>T z3|4jtP;vHCcJx$oa94pIu{i?lygM^lxd5TFpC5coL}z?T_2H*H7?4h+K;J=SJE z<|b}>h7QV_HZp3aBJ!Gi66zufCK|>xXW!6aqlOHRcOMq(8k?0|U7v|F4HoSVowIq! zlv=xlLetQ6%cvZ%M*qmsW}|YAqVi0m$GMCy3!1TZSmllpOZJ9U;~bubpt&17rz~?E zGk;*p6vN@8)x1Y3I1W{^3s$xbmbVO&=^r3#;jd^DpzIK+=op~j7^vtpSlxT1X=Jv0 z;ljY`jXo>3yRF>rvUrn2>GFa3W&LBu8;4~Y3{BP!j8gX=u1>>pUyzy;jyd(za`BPT zGvnmo<6y-d;viJvr6>=osS;R{VW>^3$VZ?;jj`bG_-#{$(fDl|nN*v|`Hc#f6&| zOq_+yaz#b>Rtq0}U~X4A6ao|i6aqgF0$4aYdSGwNpa37M0nWzyHd>nf6_oo+ zDw#{D43N{d(YK_z1qKI4MMb5?$7FZ6BGMP_aH|^O@+S2ZqhA_sCy3AZlFy z@a%yx`Bn*I2PTfUOrB((G|48jG;r#Qn5BD?>Q1F?K9{udRP@>-BbM$Cm{aFbwAdkc zwpq+L?LkSZo+Fi9hABD@QL!7WJTO3hfS2q5H#ti;C2J1_YnrT`kEC0$c+e{#uXe%UlZPI_J!=ODQyu%rg#6H5wGB?-Q=&Iz-bcP}?a$TE~o? zgO`nkgRO&u2pZyHU`pQ%Bu9SBf(-0Y5OAZcR z+$YY#;2<7079Qw9e0>E(*oCCo1r@kNbtRQFCFRAr_$Ao+$ zZfk%l#N1gOWc0S}&EvLbSKA()Zo7Z@^~J5vPjCEqy@{bBft4N~YkPF`-LTHHT= zf=N`K&afmU&*5@*ehN0;(0$}=J*1p`Bs>R+4~YHz_9 z_hsQ?$2kdX0umfTGJW~fd4=5!&1jYb6+}cu*tjJ-Xh@Y;OkG%7O-3nibS^&I@18zz zsA*MUHY;gVdRkmo za!f{Ibb9Qlw6O3b|KMnk(4>)57N;!TMqfGv=~JbM=mZQ?mm2+to;ZM;^@;)kX=xk zLr|HMUq?X5ufKW1;6XO}`eI!D1X(#nS$SkR1(o>3m4&5g&Ti+L3S z-tw*;`q9%XpYT2Y-J_pw?frCT-|I`;PHnAPGQV`~nl(84tEa4b^Z5IP+Kv&?F(|q@ z5}f(_4kB95?fz;$M1~kth}m;i%%Nnqcqk&iD8zCx`Pn1f@I(+YCvyJw%*mX|mUeag z-P)q&|4_Efm{9JY0ReP0p80n+?HXS)EjleTCN?P{HYGhFDQfo@ zm-Bbr8n^4_xb4ja+b-m8I-9ocM9h-?A@jHTPFd|fq1rBMwrMO~b6C29?QKdwH!A{>J9 zoC4bY1WkoSeGK%+MMoqL4K`3x7G&cRVda*>8XdQ&s-U!?x=wZFB7EBXjnfd(z)5Yb zAKTu)YI8R2}{y1R!7`!|{O_jzz`(eDe5H zW(WKcia3ag_}$h7{vZMz4$wnBM4mW#6({ZC`+5wm9!4o+Tz>ilW&zg_+2Tw-9J`9$ zn>a=ln`g*Fzj1&n&RNA-tT?d`nWLUaf`mxkbN;9RVxlrg#oS(IH_>)f0ImB{+nE7D zi6|Nq5Ubf=!V~%b-E5hQV0NQ87-k=4ch8~BF)8==AwVFE?#5*mvlc8&OwNdlPEL-? zNQucz$2RQbysXr`%(R^Jl+l^VxtWPM>CsukgA?t2W1J$#`R2|YG^I9d{ub=hj$3{> zamBIZ)hE-|pG&X5oW1RO-mZIN_ud`bbPcbBvNoSftHWB{;joG(zv=7UC)C(vmYGCP z)C|j22+Nj@$dip8E1NP&JgZnZf2v?%8UL&*{;HJ%i`NKNt`MGGB}AVpoI6fDDP3|@ zf=qafRA8v2&rsd4q!II0$f;38Sy(ED@|q#e{6cedB|W52>))Ma8N7w zgYOUlbpyrVv}9BOXFlV5YJAIv8w%>{>o;!PxM9NvIB>7Q_U+s85);Qq<7{V~x(tTG z@v%sbOuoc)@CRGra9Nzmj4E|oVWRD55%57xz?)s$&O8cGb5Ird1^kH9p>ZT*&)MF* zc@xBnN+Kb1KHuU7(;+R<(ysB5A$kO44V*!sT_aFF|3w6de#iYrbIU6dQ!-PNvake~ znV5@3xs3GO^t90#siQ}yWap*i6r|**#peZ#$a0OI5L8$lR=zoW$*%Y{N3%Ab%dNkd zv*|+4*5;h;*GKQXnYa7y*nM}$?!KP4vpJ{na>my4acho;E!yorbEE4-97ej(IJ-<| z^eokaxk}>}C>B;J&R8ZpXN6eh8sR1D1=eomUAK*IS)E|jDq*NXlco#hju%c$6^)9M z42_cV50Uf;mUAEKoK`$~-N8wFpmUwi+1^`VT~gQJ%n8NcF)S9q4Pl&ZFjvYvvf zjG#!rzKop-{cxXMAAT)dYIk`nx`9%7PiLi@{@QORy zIqu)PuiM%Et*`^r4)d+?sd)cR1TaXT0^ksJTrPtvR2D2)fU7-VaNQwch@bFBD9*$O z5kR&>%rZBZARx#(h+Hs2O-&81Vj&WK&gMV4A*<@@YD7b1$bT>(23n`wAd{g?Aw#eU zE+YWrtX{o(QOC`d)22R;*Ic5i z;3KpPnIJ1<*oiw(C_JG$fqhV!#fukzsqJVB+Kvl)z(i;}QZd)IlN)%VIFK5MvbMIi zyu7?C4ulVa5CPZpfZ3rjb*f&cY`gvhZu|G|&(F_C+tDdqBcN#j9TAo;T?);yYXr*Y zzl#7y6ng*G&6_i4&rM9sNRG`+PlEcBo0giBk(QI0l07;xGbbS&E20HzpsvU3louxV<+g?72N@-yQnio8xv}AGhmTUgPDI zbtfa2>=`tFv&XD;b~9EDC|zSbzfO1IMvdw%s!JP{*Y1|vxKDE10nwdDgmxX_Z`dcW zYKuVi8ve3H0+ULG3yMUNvqd5kM1mtlXhTJv28mhtsJM+BHhJl^y;tU*`F-Ze`^EdN zkKcN3;^y;nb~X=9o?xhEG*HLDT3=sJK~YvvoS%)qA1l9TUt!gL;?@c(9y*%Q?vBe! z3Mz|JWBi@$Rn_FUh5Pm4<6;x!=M>gd)mSih9-i4c&F=p$=2ULK00NMxxJx1 zi>tZ0ouQ$%o?cgLYhd7IXGb454s?J=cRXM-4=qpM33j|)mxu3U*skQK-d1tD|hvQW^0ZQJ68 z3<-2{LX~=Gdk~FQIB_DV3giOast3LRHQ=Hp+*L7@M(Y7jyvemUGV-yv2eE>Sq0V%A zVnkJuRkwUc1Of1Ip;#>hmrs;a7DVq)p(=^$ccMTEjZ)*pq! zlYF8eG9i*92ckQORQQX8WF?UUbB4$PKVgWRnM08TKZyuLD3LRKy3HA(L=agPs)3vl zndm$GCDTI0!5=?~Af)}D8@y7za^X_pq$!aRNl}r>@v#}HN!b}m+1W|iqZ6{S;i zvlHU;hGrCxm{}XQa(7bwvAo?^N{-y0ee~hHV-Mz^csT#e?{iQ8R(kaAwEefH?z=sC z-<_h}Hwt%OpRm0-eZ%pX)rUe>?(-HOOKBCibT&?M};=T(q2QP>p zJ}-9Yoap}3B27m{>zag@ZW5fcOkmO+;eu&mDPu*jPdhkH)IC(xez16dA2Abeqrn-O zH9MDGe6j5E%j$Da79P7lXaDt@qt`}c7a3`pTIn0Q4lwhuG`H5(R}hpCWfPR>D=Nn> zY$PG;s;L=lX;xj7e_+$1dE--~-QA3(6h+zjdHVA5aR|yu%4ejd<3^jGr)&P_V}q(d zw+LVgpV`0Pfmx(~*&XcTgGYCWbY?jWS%JrRtgX?LlK#UBU(SSx<7;QPp{|aZ&Is88 zB?6vMVL%@#F)HqDzbaM{Q6dHgIsyris;;gMC87u{v?3#%5;3<|N1DjEv12npYaLXjAsqlVkT@Ejf07-pNPRXP+%Q|9siS=S!PkEV=Sx z@x^BqCmzf_e7E%AohiGo6*gVT-*G8%+vyS8P7P`}>9y^o)6Ua2d(I6wblK?GRqYcu zR8HSkID1F->@BI2S0#=$OB}f*vGUQNvS!U~y0Z52t2LKjuD}Obln|rk>lsX;by=u_Hs=^$gVnB(QIRk6ln)P&&Xr z=5xNybF(-sX85zP7=JB8 z)LBgwte5)#tV(g6VhSPO-a2fyg*>hkgNnVXwiSy{=*$cT%J8yOkp=H^1egJ{r| zA|fI#E-qLPM5D5^vyt=Ap+iAEpaT$rpP!$stSo9GDJiL`sTmd)hDA60dUw`{u-Q9N^?tQ4c{ciQ87u6?zTX6K=%>6gU?`clkb2(z~ z#o&FHd=6f6J$lvlB_5Z zw_b0)@nX}}dl9*lwAGBPj7vzafw*SDbcjG#zcmm z*uCY#!JRe5W8*yCOl4#xIQaP41w{F!2U^P)f;oo)nwkmm@uj7u5b1cRMnNbJg`)Bgu3cN}=eMkX{|Y_5cor5L zrskvVnoJogad5;$N8@D^q$1wn;JF=)z-;gU4^;~)K)#`23=0dubY@{O=>i3FC8NW_ zpzI(OdV!p(aGXDX9+IDpjcxew;aH6%p84_EUshJe#l_XHUq1+KJo%TDlz>*?_#gJol} zcfdi|N8#$~%E7^bP`rS{t1Ewhf3ODhN^nzPU?5_Gys(gna&2vGSy@>@bEqelHzOh< z5NiB??41c%PV4&rGi#tilhT|@Q7Tk4D4G>T$dswfnUbNTK@uvFXrhutp^+p-=9$c6 zX0~mfw!QcHo&QJcc(4BKZ9C_Ge*d$N-FvNTUF%)%v!3UEp0(cl`+V>Fe(q&rf};w+ zLK4IPuo!O!IaN8r*-dnVCsjrB1Ds$d#?q zRJOCMqOH1yfB$}mD$0Jid-Kqa?A1Y&J-QidO3TVLmy(r`H|uH+ffY@z{wq{sgOLB9 zM}U6{+V5;-HM+XXJ9L;LCgvw5Hcm`zOx-qGOl+{2n9e6v3R==h0b9L zof01IEhaX!?vjaOV*X-c<3Ck`KH`|#z>ChG>Is}S4GjrpV7`qEs2acsSIgF%99w3$ z_&Dks?OKOupv>^P8W3!fm>7x@At7$U##c_F^MzK1h>5xU76&nqlk*)p5~Ym=iTO6O zaa5Kd|Dn~Zx7*ql_35*D^~ClNy6$5P`oiCKxJ5 zj~>m}L4yWiEkr7Aw3U^WfI*nosGlxCoe&R!k%~cs)Bq*O%=7?x5F;QU00|ifjDdB8 z_#+1KkRS|Li~t}eO?2+uSwcbrIg$VW^MB_Ln`6+B|Hk#3iHRwLhmCc19c1r3)W+Sn z&!|~WQ^TC*#tx3#6p&pRQF1PJ*VUM9=c00sF57-0p{yppye6jjL}cFKMcMlnZrZ!B z@M!pUrRk&BT_3+Odi2Kd!Rt=fQL!;M$KSHTS!py4~x@wcdNr*%u$T%`CS_ z+}<^6gWmKQjS+J++{WoRjMnZwO11k?W#ge8d-*wyUJ{(LbNh)amo6R|KYhN5aW5A; z2mhg7A>(~wCX84x(B0d(tGR+|r`F0Hn#*dolfRc1p_gCyyRquc_X=Hg@JX z_wL5(vTbA~z#y}d;*!sv?LXmdY7pr^I0F1fa5TV!z#!Bw7&N)Ustr>(&wN+F?J$mBY3~QE?F-1W8Ge&PQyR z5t!)wNpb;(I<{^-al!=j7!Gc{rv9s@W6dF*klplmTxq5o0%sCw*d zKmdhN$lxh1CnfQZQ(T(0JE@|aRy5lcMv-mg#`=( zlySk}Ji?s>+~8h;W#9wy^YbI31FIKJ3>!8Kn1HL1&dZgkrV#EmCIsh(Hw|PMfJw3QJPe z(hCfB9<(@j%kKVj`{(bhU;Je8?5A!|-WC5llV1xh`>_v(fHE#P!jrX^+W8RDRL74ml z0q9cPKp{hhU_)~i6T{O$d72h#5bcG^5f5|O()R5Ww6p-t3=@;h78d!|)?08?85zYW zD}zL{nl|Ms-~%#(RIn0(e+inuo3=J=1-*(*iKelZV2!LPEZot%cX8joB@PbMJf}qq zU5nf&~G{63h`02gY2bO0+D{g4*_5zXPj0hJ&uGzzA0 zIrkCg5%w|MJy-|{9>8vf&5dG2i32xGc!2)p%a=PjIUzX}A`*bY0VScs^b3yUyka3>I{1L=8apEXDzTDJ+*&moJ;8H z-t$*lPLDP7i|#TkOxtaamcvZlJ~K3}Cu&%Z*RmL|Z8bsDVY;$MpyKdQxe3uSbK<2V zk|md~mq^HzUB6AOWS{YwtG(_$wfXU#)ytoIzW87c82$L(^oRE*kKT2C_}1j%ThoVc z%H8+X|zZ|k*ey~Vi#R*zbv1O9l#GpuVXDmK%=2j-Cc?aWM`k8^o^4ni{rOCL*Vo~+0y->|mWBl3 z!%8tUB%A7VTf{+tp~rXbl#CcrXm3wF8@qLb zX9*Z200$%BQI8DPujh(#I$>YW`MTF7Rk4E_HnPG?$6BA)N zxJz&b!8Oq8q6t4khmQuGj6VhUJ+W}8Vqk@n3@lYK$b_-6K$ZK2`4M2kKu4pT=U3V# zoB&QCU=Y=U0ss&rBPsw)Qv)&pd>{y*Ca8J@1I0K)i^8u$wICNE7GMOC5?~+3J!)XS zK^}hIphJKh4;xLhhi4%w)lvh_H4sn)B7CJz(3x;W4c(vZD|duJE7@5-eENLfn014qQ|$udy84Fed(ZDQFj&9;f{xB}H0=X4tS4$& z`e|ACX*f(%^_tgyT$IA}IQe;rZ9~_!4NsO?k}3rZt;&*4+tNONx8~lXolalvarde1 ziw`z0f9?7FXY;2YdOZ2*4?Xd^?*0S;b)6Q;*4 z3Q1ocnzl43cFwplj=e0DmAc9*Xp55_PF7n+&daV3Nk)G8@Y4^suN>N*k-ligP@C>r zZDq~6n(o?JCc+>FLG<~v-Jk|}{!=5sBk?a_5Fi2rLL(*4n+E`4H$%_Yw>ybY1KkUa zvihWWM|ygqhzJ9tQJUuAgbh*8G;M7v!E^@1)K}f2W9)Jiz@P_6p~+!G%X;)k_4eL0 zYEJl$;e(B+Gw>rx zNl>9uM@NtdK1CDM0G#+m9P=Bq4P=~-(HebVjhNjJA9s4O7?z1`!3u!+#QeoP1xuDhU=B|=muu5iOLaRlq+AK{`O5Uux zsaPeqR3>wWOzuvN>a#s+pV+g|Umh4b&a0oHZnrjaom$B$i%Y9WNLw2k7j4_l zD&n^~b{geI&j0Ssp5}6DNAOONJN3A_`1`HxP4k|>P zwt!*+uu=(Puu%^Lhm8Z_O#QupcfuJFdU7C~0Y>|N62RNV1%;1tMkjL%zH-YDjEHNz z|9IZ<*YNc#h5xCapixAuQ8N(^P*Knj=MG2#@8G`tQ&oLdm`)MwheHbQ4?i)-U>y_a z#>uaD_Op7vv#-p!4j(?^=04EW+SOvfxNd`H81$Rjsb6510l`LIiwxX@wH;?`^_`*R zHBWU^So=v!6edQso4B~`wCJ{h%Vp=r$^^%^2}@L6nQfR^th;HKQbv(%+78*w62Qa{4&0 zUfsGI7=(w0lezTi(`U7}Z=XDM3gg4xy%p65s^QVBWqA7R+3VMDcwn$dV^_hv{8xTL zzOx7Z8@uz*Vvv209{9DfmXInm(8B{87xV;$ERYTna0nV0oy@Pj#Kg4fbZ_9)seqR# z9vcZ!gUs`nSXoh?8VE=eY-pl-Q2r=yy^*bfpApWfk zl%UeTUjEyErDixFHDh@LboihL7+9jCzrB)gDaqZT3GO@0>s!iymt`1j?saKlk&UHw zdqoX}_PQE|4*K@vIuDrL*=s>(uTX>jAsyZ3sd)ys9~Q1Ke386wsQlQ4a$|z!#)ryJ zj%+tGMj>RC#k16lmuapmRa#RhpIWAvxwn08wPx`tgCjS(U3+Zx@Kx`ZAM9WM zV*e40e(C+=F5;8rEOc%|ZwR=m}p`x7f>@{2CLKltn z@-Wotsn(&3nwp}dOb2N>|IwrG-KqWM!@D1DoIkuZbyL*bnL|AKnws>nvRyELVOZE= z{|OUaTwQzhva+zSw6?Js;ORAG%GB_P#h7E0lT(*1BMIcHjBEhsWYy5bEpIGvPsSU{Z(h!HPhT34TV!@%dm>8LPiV6y_>NC|59y6h7 zoCTg&AA{g8JwB=KfQb`{)Wwv?#0i~A4MLAN;OncGFKbw{*_+I}bd{5m zX+?62R+?&^9J>w(FdeqA%b zMyoGer@K5?J8oNt*zN6Oi`pmbR9sUgpIV`iQKgoDRKNVZ!I3KlXKt8Wy>I^Dxy`e; z_HRBozWur1(>MJeJ|B4dhY?rrk3N5U{ISau4%AHCb7E5A!3kUTPuy5JVSSZv(jK1` zB?A}by3I_s9kbNLYi>uEX&Uz9=*u6D0Dp~dvBjBw z(x0Zfx`gZwba&Tl)Cl7kJP1z^nij45nc~F?2SVWqGQy0eshORTfqPnHg+nlq2p9I@ zUAqVXKy^ncD6pVLs7g@X@E24!BuF4H-8D6FjT55GMEy4(R7`4*Zr?8S@`B4?QUgQ; za~!pas1T++5fvh@DZ$KGiUflgbv}9cu+-OAh)mejqlYLmL6C<%e2V_kH9AXLiFgeS z0y(nG%m|7A_^<(D!~;z0BeFn(fIktEPV@H%NnsoU_Wj{KYAEm>jKIf9&inT{>odD* z>$PbvCDUBGRkL<&rFA=+xOejkG#eV$Wng%xq0!pIqB{%;Z$EH>f@h$@fB+@00Hsm$ zlqW=Xn7%@7Zjx$Prcy+XLR6mOisJSwcPSyn{(-xi7)gx!lII**+X7A3u zo7QDV1%?jy7-HGgNJU9WLPk!ajrRc0Ti37Q@Ol6I(amEOmD!1_=TGr->)T0DNvf$t z^QIC_n@KipD%H5LBpV0yHi>4ad z^jTGCdr?rgkEbUgUO)yGB*gx*M^yOo#fyV!X+&#pv#|jks8E0dfB^Ua(dsWa_4e?n zpLa+Yiess%f;kQp6P!vS^BP^lZ$)r5q1W^d;~tWObeX266vh=rL?a&oP7v^u$Va}Vq>B+96NM8|#$)Z7C*cmyf; zpRL$$sBBX4(M+?)}`!x z=RFtHi;v6XREX#7mdM*Hv-61Rp$k1P+#YoAsqcfQH9%sZEAPVU}TxH^1YkpE0iCreFLH7Qx8R&57+4XnL+^KXCq_2+jl9$Y+na7Wta z*pT_726a_wFV(n3%SOD0RjP3#iN=j2*&5Yt!ZDE4q_ITv<`P<3daD!GHek?S>VH9J z1;zXI*ld)o#}^o6R7Z1g)(G=_LFJ;QDU9R8vCjSmT6I-Z^B*^kNLn(k+`4rOZ6+u~ zn*PW;o;*n(IurncP{gULWBU?e85L3+hPW=DnjY`#iyt3r9tsn&zr0ib=u3Gyi-vN{ z%~>u4u@X@dY6FIlO~3+V>uqL6WG{;-fkHv$qAKrQzFgqwC`2YuL;c7EY8X+M{Ecfh zTeckT?!I)!jO|HD)myh#WM>zQ8N=ElmMPI4!K)>7fvf5x=?E_`mPgSGfqZ@03*iiX zAt4egbjSsS%SKcT2|;t{8$*E^6S08HnTb7vZ{mF6JfMKr3FjTb0AK-U zh=QO1aoQB%T6|%IDH7Vvx*os$jH}uWxH>;Me&{tGfXezDLOjfPAtV(lP zxu)&pB+Sd#>oiTDxkdrY%oe6~4bSczwY5{!4#VX; z4HL>cCs!M19x~m0wEMP`mL)Ydd#+fNU(_u)-Y#>G#JWPs^`%mq_eyT9lFZwyw0(c~ z12tZkZcn)RAmI9gpqko{v$qzXx)pcq`l=(>lBzE!RbPv*yta7frTMvMrf)bpcGVuQ zh%JtDQ)~m4={fkcYNsa7JA)caNH>$vQBesC3_O4A(D?(Ud)6<@3Y!)>%-z*c*I1#w znvC3#L4$7B))MOa>xXyG?_9cisIVeyMbxBWHo6*Zo3@Y=Yu!vty0MsKV=)P~Mq(0T zb$bpPiM4FhsAaQeBwW&sU-@TW=k?codjD5@{SUqU)%8JWQKF{t{&cK^19dSmmcU?z zL$#u2!5{&E1eME4tY^?46ty}TFO7|d4;w~W8y170qeL)7yMPffz{xHyv1)4MXJG#& z292z@ymaFD@u*XlZ8A&e@-K&lll)Y(e?Nf2hXp36Rzl;1 z*%w+Dr&3jTxF|9qQcez1BTym6fk1TnC2T(4-ooM(6g$D{ndauWglL*eL>MFhG|1KI z(^X+1A*^Q+boiHD5S?Lgh*)DiDa$aaUpNnl06ipXBhLV-dl)@}*;pCM0#A|*u*`=K zYd>+=0W_>U!sSGaG`}JzC25oeq~u9p;U~jLZMeg@ge(Uj9hk^fd}YlkS#;*&5soFUBzdECR?7l^;3J`WtcPXwD+jd8I$7dX7z!8@;n}P_WdSK&0L7R#h`RRI zJmBGc@$C7c+4FSUC@VLSRcRul)m&CjQeIn9L9wM=yH*;i9s73cGp48Q0F}=D)hs3{ z*aRrK&NQ01v~Tn#msQ2iiDj-SRZi)LoHCC)Zam?*=|tacXByEGz0Cp3`qZN>`7uvP#;mn#)QzZ7thW zN?u&rrfb)AOT$l<xA;|H$^F z#ChX=`&eqUl9m#aXfD>ev6vLl^Th@Ri8pH|rKzPG7nexf_FwY}`OEg2X9oT7bsmHw zh40|eAjplRaIDb5)P`FGoh(8h;eaz3?tmu&twieD-rO9W2^(T{Auz=J9G#DvMJukg zwk9tDD|!SB5>7`>}6PoKJk(&Pw*4pf$uES8tY3Wxbl@FEEV!q8y= zbp6x|UTK$=nMry0Ab9tcrw%d5OTd~S5`hXB#BhNTXmw7q{1bA4ss~(1M?mf!V1*T< z5EdYY^`U?QNQZ3vM1jc2NGKTZPHp-T+T>F*{H3OwsaeL30av|Y8|z@TXpNH ztmmX|HdevZPt#+b-NJOA^omiN4voz{?!TkPukhly(yOD3FOMp@JiPSEust^iR@|`7 zKdzHlC>N8{W<^fhgspPPMRFNsZ8LVuWRyu~?2=wrAh{}6DmFtqInRC1v8g972iM$+ zI9nTg@<#IMo4IFi>^OfnujWzKu?K4^?nZ6DHap{#f8zd8@nt?s^DKu3v{liOXxgd` ze65*G+olp7TDA6eu**w|uFhFmoDjTb*66X;W_`7_x^~bQ<~{f$4+4Y!_RH(%_ixrz z9N4}lds*P3@!n=?D$-5FTZpx4A|};HOk6~Q>cB``Osqv650X;X=(v1&LIVc<75)zO z`}i#wggO=G^MYQ56fnU`F2zw6hcz_Qz z3kD@yTchW}3(RpM_l?ldXS@Rp`W7B^uDV(XSA&xLCI&&`1gW~JsGvyULG>{RFnadm zk2}YW6Cx9EEs+{X=pgct4njwCxvDDK7?IHSYsQR0c+dwAk*F8KpuxOE!FV$!O~R0c zZB68ksedo(A2T>G2mymo_>3639ZJF(UAxEOV{;e}snP?|uZn5rY5)AO`I!%GCyNKsVR~Ga3dcBC7=( z6flJK$*rCNO3?Yd18#ai0E!NU$+R3D$bNmFJ_HZo)(1F<&=!E~H!+CpV1g6mEB+vq z@R_PA;7pJWkv^*s9wbUYYND!2t{9f7iu^&`Zec)9WM)Ez@bBOlf}jDlzz|YF21S?i zIw8M0R~PJTR$aPOFo^LHr78u3@Ib)|)$3rZi@bb7d^~A$2o4m{uHSpWz#yz%WXXnx z@D>B~ypXGhJ=~3yq2MMy9n!dw#)n*LEE&e4NcXX-2|1SY^I88=VtaDh;;8SoJ z>coJC3yBE;$U+WnpbaEtRB`Ln#~_*j#jy49vL0l>=0<{3V2DHt82Y%DblCtL^&=!` zNGtFuq+&eDTt`({@SvH%+1E+m?+wCtbDoC^+P|-Ck8=-;UaFe59kk5aC>hBpnY3$f zDkpEMB-c$<*;uthFHHqA71@>&iZZGe?To!G#zap{tqLkQ7g}*G>cH(~CmzI|dJuc^ zUfiii%T7I+x#ybm+H!+MnH}b*bcoE-iqF?eDekhdTtBm1Wo=>G)!U`l6w0hCZX3T% zE-qg_cB@=eR=dztwa`?nHQT4|KDqMr^^KSA6kWVicJW@t)u$C#-|RU1X2Zc}@nsLf zcH9iiy%>;n)OkvTT1TS}vdSGK+Np}mYDl)xl#dqk{#25Nu;?kW)v>aL}Q5eaRK1HHbIw+y-bM;=KztY$@Cyn9Q6f15DMpD% zga<)_U|5hxVh>1LO-^rKAxG|R!XakNm;uRxg%SM-L;^`vh0%}KLonswzSQsCU+tKG z8JReC7Zm!~*$*-6G0@1kcL#OTwu+FTZt@D2D$2dJwe0n@hMIP;(vWS|sChGSg*G}i zt}_zmZ8;HEaxr%Qt<|R9l+48t>>6Shy?yf?n; zT+xNwmDiqBUVX9W@~iEqU*sHpk$&*`^4$*??6?-V<&0}Uq^7>9zKV{XoQig>G%`Jk4|va=y&zz`cj z4x-u+Nx&e}Pjxz4SP)JIsNq;aONeeg|0B*+FI_4`Cb0GgM-S{q=oA!BB$BD7=Ev;K zR#wyu`mkb1Xpu%a!v-19{ZxK&SQvIcsNc8z%fKKKR>Lwt1cW4<15m)s1tq~8r>megF<~0LWsdBLs!7 zpeN;#ACg6PM8o?RJPzLzlP4}5I(V#=rHht^xm-I7MMWD`wZ1yq?wt+1j12;8 zHC;O?NHuNItWk?L3YvqbFI`r0c2(u|^b_}TFFnt__A2wr%e3>)7VW+;C~kX?z_ndw ztuYSG>b5k`Jh9j+eUJ6VN~4q##U)v?ks0ll=E$$yu9R5Zo;9s;JGA2qJFnQ$HMY=V zd124!{O$|Zn@n2n7?c>fX>Zx(ht;=V@45D-xaLLC`M29^-lZOX7PIS4c)`W~vzO`^ zcI&F8*R!L(xw@vYg0emsBq3weTDDhvd3PhN=>z*D&h-l&GsxA{$kMoL-lom0fugfN zy?=Y-O3jmpwI5zSe02F}c}~jY!Crd2Jhw>;=|+-mn@F?CG;Sr;NUBvMDappIK5org zYpH23UKI5$|Bk=lBlI12nFr<%F=%2P0O{97H9P6)g-xHnWzCxE?c0wP6;-FFmrR=` zU=XWgfFV#xlR>9A1F*=hM+X;~gBwiq70!qc@Y@n(rszFOa!kxK(ix!|Qjfy-+P&ojIlTM%7 z>ThqKvuP9DZ~B>(7dBzAC!*ChP3;=(1~rVzzaeu)-uD(J~~%dP%N*Vu?fg9*3+d>*QTJQ5)MV zSS!CcLvh8H_N%t5tSQut+pfQ=xNGum%Qd@fSCu-(m)J*dH=dlRG#c{>Q zs_wr$aR2B1w?FK=^-KA+4_i*XNUnOAPfCA5AKkzI@&EYiFL!INUp#&E$9q>FT|IH2 zC~IYCpi>Xi_To|sjazkS-cGfJoO07P@{OhC8_Tq7BGa~sjBGP$9WW>)vH^qsg8z;` z#328AF$R4tEQrNoK99+Tc{sWYU4(aFe_|pjL&+6D3TyoG0{cK+fI@Fi5x@45I0tpVYXHl+?H}V{k*DW>JsODAXOo;{>4| z_yzusqODtjJdgq$tiL#jGYG>T7Nhm4!iey2BFBV$ai86HbUR%un=}b31P0|=T4HAt zqykyoKGguQn(6D?*5ND|M2j>b*b-@ufOgW{3E(?>+BB3ozLIZb1Qdh000+dOL5TRk zH8_K9jW;-8rmMebh<`mn4#H>v$D+P)%=qx(fF3bW9CJVc_8fCY2pAA*0Aip*Gzwz^ zI~ZpM7M(yzD(8b#loZuZCE$_p69Nc7v1f*W5f6$qY0@MDDjH%E7!z*5t&8V(rLB#h zGB&`$+PAyWfR5Tu9aQ_Mc5vya<b<}0swGo$+A`z&8#i((CYx65A z@4Tpd@UGzEt5rL%jgBcYpR%U2U#!LK6uZbAr`YWt>vr|esC3$}$8^~imB7^sfvZ)b zHmb(usjVs0N-pV?SZI<|Vwt?lK4rIi${x4a!d`*t9fw6LJI_;g3DR;8@(NB*s=Qcv z=k3wQzaD+?>w(%2r8Td&9Qk2GL&dJeKMch)nqQPS!qui8sd z*{-9;Twl+%Vbd0j8Q{^QOJ_wz&)#;GyLNq~LVx?)>zB{3)SSL~{^b2DCr(yu%UKmY z($QY8bsLSQ(j8mM>xe68G;gcgR93ZlTjl0$SS_W{Tvnf$gy8T73=;jn{vrqbJJ2v+ zx5Y8@7wJ+k2ozuzjSghe3k-n;L~ZdRp`5;b(baf}h*B2RH40gvLby?Sf6~V4K+Lph z7;Qi<)E5v23BsL30Dx#ss6d6d7KJZ*=^M(tx4Ahk3@ma$7;}5(3QT|q7khQOJ~wIl!#fJpxBe=xE}jqqYn$!|soFf3@-GkJMJWCF4g=YX9}=n)pS ze^gTUT2+fWdIeDu>~)l(Igr=mQ?VXeT5DFX#@@wn2@vpyPZ$40-Y&r#=zs$(X_(h| zp&KiPh(luz0JEr%HGf#!Hx^)C0d}xl2umG=i}kIH!#7@AzZh51Q~Jy2FYXBvhJ^v) zem%N#A-%!6Pb2k+1+j-&Pn(`~YOA0K;Cm4>3F`J%fzbMlqHh)M`>Bx-Ap_!Gv+g4;e^Gqm&cx7_olVTGyPA&kbPt_4I+V1e zc6Rn^+Ez+x4%!`Ocn#Pb8v64!W9V3W~k7I?kUs`NV?W(wO;)k1w7h|2TRm}EeaW^R33X`RTD^sgvAWK(`HLDb zsQzE+uW-!2<6AJO%O`c(yIVIxbBP2)=QG9SgHNB>r@Sp&qI7h~bwIcRCN&WTp^ee} zK#52pqrIn2m>^&fO*7N3TDTBZ58YsoJ4r-^glh?h#tbOZ`M}Twe}9%q68D9p1V6iA zDdKfJW4*nBgMM|3^6wxWM(+rvTLxLVT5OwDGptX)s&4?6b;qY#t-qC?CbC4F?8(sIl;>| zj*r~j({E+xQOgYdR`i^m=n<1WI;C_{R^{Z))n01~y96b4m=vi#YlU7|x^e7Q)5Jov zwB6ma_t|7u+Hb6M`G`~1uF>1N06^a1Mm{m!hpez1mSi;|-C}r(-Pra1OUpC%-QR!b z!;uHS9=`MI(d#eHoIf`)Fv8fxvbTB98GgPA;Xxaghs6a>@#$&aT~TSIjm@_BxRV9> zTjH1c+V|?Ktzj;&XeOuF&)76*%;<{39X~#Ph*#*%tLL|`p53x8ZoIpblYzdoj+UFI zrh~egO?xG4CFPzGASXXhz>4b3z=^wiU|FwmbrWok@t*wpcp-5tFwEZn>G z_3Jh?w7Y+t<;*oMVd*0iwocEin6veW-}(yc1?x2Z!!)KWHV8`S7Mo|&;rCtW)YwO(o}R{FXzfq@Me^k4m){|mx@3kE?SMDfh} z^76Lk=5F@(1Du_`TwDe?IJnu`n(OM~WU;RcA;4e-k*SYCg8mobh-UNVkzrxjdC>pN zlbJ1lq(U=ifw4v!BIAVLJu0g)9hpR(B5 z8X6LffE^EG;8%=Vz*FtnvpA{*DnuM0f(g(DGUDXICSlzue60(k{~ol*}rfH8!q{88G(^wfQqhFZ8tXQ*<6#Lk1t|`0wW$*Xcdc<@4@gZ9d58rllWbR>y z$Q<3FVTSG@RzqVP#;$VoTjMl2#c_Iu{j?1ZGqU>6+d4d=XvV6&s|wDSUwU@2_Wp~r zdE-V;?A5c6r<;4&+}T-cW2*`_o~bCP%t;FwHzH#4xaz#j%he@EOS9qvCwiH6wUkrr zA=}PQRoy{H+fiRX({dbjG?) zEu-`61CXGT(f=Y4>87p@b;47C%RtcosQL%juJI0T;bq)#B9?`I218@(5Jc_w#Sj1p zrh_9!XjFtg9Dotv1xTu1SA*~l2#j67M}ma0MLgUYy8{A*$OIzK3AYf1?O|Y~U+jTA zQH#RCNHMX_pG2KAeLBv4>}fE*FK-#}M6fh5(gczb{LC={W?vR-IP-ms0I?yruU_1m z6q~+e?)J5j`KuSDE}Fi4>WJv!)=RuPFZ1p?zL#cCeJy7*L%#to$M%%otT|hfn?20g zK}W7_`&R8#+UeT4jGMY*^TPc7i%XA16`q<9S7bFd#&ATK$<$@t<|kQ2WxKB_^~u^l zV(XC+#ivIWpYkg_HF?L$!E1M#OkAPoy{LzGRNs;D{U)v*Fe9yhP=-hFMyH?+jzJp- zEh-opSvovq+lU3(5$Ss?kDmJRbpGT?GyC@L=j}dlaqzs&>50{)TWhL!9w^+DzAS9_ z*35_3&%U^G=GM8g!u4@JwpN{_q`OMV^paC_P*Zc#)^Ib_?q{qu$h^~dCyUTg{iDYX zUG6s`e(I=bzkv~B`!Aa^G;YR-rPGEjn=vwe&bYWhzsQNh=8g8uOIpri-tXgHH}v8g zM*s}MNg-em$!*qk>V$8dseXMNL8~*{=T&qfxcTw`lN1R7FiF+tAR^5SQxJu>4RUfK z9+-$|Y=E?moPrEBn>T|&!W$6K`MeK~*fvpu0;;8Q!~n|-{%=X}7TMG#N*(h%00agB zVa|1t6;*10N$t7t^v!iCO z9&a1#V;VQCn}072+fLe!W`<$Y$KR|u{^ahBg6#DJ?RuJPx9_f@VxXXEq}6Tcn7Ps0 z_NJb^9#wqGEilDs;G%9L7Te5RWwS8dVR_z=w2JXtk4!E(JEg2)Iz&RTRE!^l8p5qph8iTs%4l?QJX{_blO?S>f$GAx&*Us`!UobH#X!NStBT|C>Q$i=L zUNC-ju;03{DX9@Nct3c;{0VzBt!zWm_``~!oksz{Y1V34rVA2loD5hz=z z5In-6&fx+CbgElrL$Dn0WwWdE^ULU5{;5@z*vEIq6I`mBd}Z)Q`?t#$4Qp| zfK4n!B@mkYHe>{4VGd_FUmuwM@Fq4C_-`2j{%&}MZeP22yt3%R;gXuFZHEiei<1_n z1~{(uvq~IeIon>Rzj4R@*4?t#ta$#Y_VtS&O1I^V@pK;UWIoE-a`nj)uqYXkGjQeF`TqS ze{gX35mEO32?J)OdC$un9I|n6_$Kegn+Gh+@(S7H6PhXiV4&r!quf_hexQ-|R440DACD#DJ(o@PS{*ndBXa7-rL)o_ zr>zZ}v^IQl+T!Uc;nUKiW*sQVB#8aL}^)v#fBg5V$`5+v#c+MYMi9bULl zNVxzK5u!lYHsFW_45=U>R9j!?3%DZypU|!#gV3}Po-L5Lesvf$#KeS@p{%=P?N5CK z6v^=A0pmkt!jUy=gvbPth#V2rEV!#g<3qaw-Z2{9yj`e{2kG*@@2IHXOY8vdL_|c; zA{azs>QSRcaX{PxXE;wb)Gvi;IP)Eh08bQD==z0I*Uwg8KfUK%RsPmh3!}$5FCWn} zc0{)YE_yze29taS9@<^_)7zK7{QTkM;p!zp0V_kMq(#kK9Ws4^-?$;}13d=~o3bEm z$ebAKu~9w8#@kO%?YA)7XZbe2)ZGEwjs}&T3#q;ue)#5s1J}lF+}m?*VyE#DCZocw z{Z}~7SPT6b5w&$xbpFVt`NO002QS*>JwI#6oXj!vb9`r|_v$xO)!0L&vy-m5n@;z> z%Bs4Cx<*cRjw6Q*ojiX0vc-`VyLQ%Ix%}eM!zZLDJ$ItAV9Q+p@g}O;?VGmNZYJGB zM#(`{%T-g`Q&-nTOVwUgv5&fDkKz*GJD} z%Um{R!_ryValyySwlrYSckqz^Q(X`+=-j@2q-!I^0TIXqwz1xy7gA#i`)nhZ4p<=C zgkOb3os{P)7ILx?n+<9R^#BLZ7LU5LX}*2>?B2DD5ar+FAm9T2ms2SztaW7rgV-QM zAQAXT;5RFeXb3SNN7xKOB{pD=JzqJAY=S(9!7+dZD}gS7K|uot5(o$Tpa~kHAsex`a87S9K#5LxdQg4G|&<8`$LX$q+Zt(UJ58zZdxcEyX1ySHa1E}AuAvbXEvp;pUBbPw?`8tZ7j zbkY1P=T7|m;p5`s+N+mxk`i|3BpoT;P_cDgX2R0Y*|SHF9BE_Q$Jo-%-Y2;Kob_Je zTfJkp`zP;Sn13v~?EKRGSC<{V9ewg{$bsu4l8Y^-$M%>UV?QIob#6-k;0?ohfS;GU@`_4-B920G7H(J%mSll~+`k?%JA?HphQL4}Am07Sf81rSv4)St)6{Xz96W>-N{z zchT1Dqo(2r5~;U$)=?W`)@hub$utkkz#(=EN4u_?J34!LP)_`UocQ^hSBB)ohZH17 z*X%38W%l27LmQ<1e;)x{9v2TBAaga7d~_^Ggu-XT6hY6d+vyuA-1(!}eEJk`@L4`U(eu4Z%BZ96VSya3JV|+9xKB4cS=7N^Uxm z%ORVnA>jqA#4vzR?8&r11a)}ZwjcuLGOTb|>V`{5tdEJoDZ_Fbg44dm1Xq7lg~)`; zxpRrxBOeh%L~A6ZfGG?DI8J6c(K6VDbLX;{m*qCU8TkMY63C8Vi=#zytdV_= zg9Qr~@N0b;8jio45%|c1Ucat6cXm_OhS+71!E>esP8_{-(%{6&POB%`$4zhw9_yX9 zX4UQMmw)}`V^)f1KRnu#mve0Q*4r2M-nvkAsA9*)w4{YWvwE4DswwK2_w*h?8d>mjw)488kXAaysafyJ}(Xs?hv3k>wj# zUp-vjfI;8QqyFt3K||g=c@k}pf+Y@Fcp0dmUF*Y*=vdIV!dH%g19UG-Q$ZhG_Fw_l zswf2o2n+NC3*I~vll+tvUff1zGw|gPApo5ZEbsD`i7NmEL8EElZ*q$kNdW;Tj~|ErkPm@ssr=hVMpTlJw(I-% z3r0eWax^WBk7$&HF<~g^I{_FhQ|i~N7kL}V;Q;3TW}}D%`apcx^T8R!UWlM;@CS)T z{(CxL>P1Eo63?ckrLA7Qn&gLJb7sc}O-fxjZd3T^tl%NJk-pnkOiv6CN=jUH`sC3M z??0}de)s0}iORC$d-5OOI`;bMwY#=-vyRnnKKmg1^uweR_kzo6CZ+6}kXSl9t9nu1iRi-9F-51B7M)sLa3VbaF=JSIWI%HGl(nH#Hm_V*m=;}_zO*=fMP+XCjpLOK z81y|o^WWGPK;eg*H%T`N??Ahv&vC&3C~O>jeFJn*{tzEF&<7Mi2?GR6ASSl9*+D@E zN=xy-fIe8j(B!|VjlYzWzaCQIGs07UvAlfu?AbXzdy1fkb*w-SY9H*Y4}5SC0O+F? zu}zye7nj1MB!G{9J(W<^KV^UWOeDm9O;*p~VBV}sG9sE52IsR;Vklyim2nbb`b&w6 zqxG+ce`AXytWwSQmb%NI{c{`vEV zpKjC~-&c}(@%YY{Ki>N3?Q`-E+`MruE-J!**pPuPuFie?jhQefZu73((|5LAc$|O! z(Y6aeY&rLM!?C+dO3#OGIliRe{HpSsDb;tr~DY)MT_K}~4Rale=X zhlz2WU8bv;c`I~rRqX80p{tXsiKBWqM|D%{)@_xWHj?0#bB!8FHf~(EHDNE_yop4M z#u5^ZC0jREfrg`Qhd$bDYHkKPWFiW1?j1R5VBFN< zD`$;Jn(vnuJ~cfmVEvMro8p6aZH(QQm$Y|t;@&Omt{tyvz@Y!G=ltIyE&r7FZ{OBd zR-VnvJD8DCm6}?alJdJ-a&je`r~t=lX$Nw0j_laMc52U_OQ%oYynY?ckKqdqjQ1b? z57qic^r_z?1Otg6FHi}px_S2O@!Z_q5fM9hZ}p%-8(dw}ot@L1oKlIPb9LP?e0a`` z8N1f5JyDm@lq3vX!i8K;B~(?v=6~UsN}kr%UMVX(#+ww<)Bmqg5{*f6as|2UR;{Yu zvE$~oYXbB7deaae(vXVQ2XRc?_`e`t!zKUm5#UDikYnrxbZ~lpOklWUN5aaLOBXL* z5w$pWNkr1ph`hLn(zOwL(jzK2MC@H3QMo?6DkHpd!=j4xg?rbBa$J!fu|6(>w*;O% zapKw2A3wZ*_sh>e{c!(!RcY4V!t}e>PyhVW8=Cp){ky6?yH>`8M=qE(WxTJC_hA1? zGvl%f3NPL-uYFm3<;QL3f5|M-*q9}$4R4-+=xhxrGgxBrC?7h-1vZm0yc59I-O(A)egzpjM;u)o4z8}X=< z`jHLFK%!Ja$jG$7|D6v9eB~rRQ2-ez{BLQ!zIgOSkl_zUiJ@Q+zMXktmm^OC`})l_ z9RK-8062hUGvUGL3Wvqc#@jJ?6H`n?MBL(tgy@K*n278Z5rwNF%986qM}VFU5mgxx z`!efq;lft|gGh%cqJ+0%y&8a#T;#DtA``))nnfB$vq)n}VdJzTr*=Gw~I%)^iKPd?vy@zw52&&w`8 zDL(%w@6_F#<99NT+)b&jjVU=7w4rL$;?0hemYEL;(y{YZFmaPJc2qWVRxt*HRGKz! z-AGKbQDaH5M&e>0Uw+EF=bE=@)Ks=9uUah}AR3CI$Luga+is%*#tyShy~7*M?=~*>QVvSC?%{D9v0^y*=ej zMegyP+1HL$G+@x5|FQqylMrn$D14OdKlKqVtiS(X5>g}{_=1N2>>~mliv2GMK(#_Q zzcN0earobpp`qqK$p}2UbF*sK_JW+WoaDIm35!$XB2r=_*yqMa6es=zcYqr#i|oH1g^5P$!Pn~KVg-F;el=T+YMCn*POF~My*_QST5PfO3gsJQm3;^wQe z>(2@=KHPr(VeaV%8AtA{+H*M~@8q<^U7kV7Hlrg9+@>gY_mVSqRWfmF-_@>_yjs&H z(jPIX5f}sjHRJtyts1v%+oXAi<`TNCq!|E!YZ~J1 zm>4i>)1nzU;j^+MW^Im|yLIXO?Fr#U$xF*J<102NR^+bPw=K0YKV|2}g#FvoF6=M3 zu)pxu>FNdy`jb4{4PrEmK*I?9`A6XGv)cP-3-6rXasPbDy>mrZD>IL6joY8KSO6UX zcfJLB1QN7A>myWU#Irsu0!qc4iunv4p`YHo`0@VrL*@CKQ->K8Hev@AAOj2@=^J< zS5M>(04D%354 zmK@2A$ypNx2CfE*2MY}HDFSznF{m9+aLw7QdKiG2mhtkV0Dr?_W-+fng z=XJ%c=OtI4<`KGZ667b-MO!*;Z~)iBMT?rl`{#GA^Be|+P% zlx)*hiY;U`TPt*t>tLa*VXLXtM@!vVSKZspU_>udUz=_-`rC(%^o*T6B5C&c4WU!E zE(=@Zn~&|@e0W#R@$xM-`wK1| z-g&#`@V8^oM}V%ghhX={{Eh+qvkzu@9CO%6KfcK7(}yH2IAM8rOkrUmZ&V?TNm*GL zY5W;*_AKb*3+-uO*0B#O zuPVNKt>(?kr>~#?c;V#H%HnO+JGWPtZm-ypm%AY~EF@&y=*bhNEQrr2EIfZd@8XlR zqj%Cz+{?f8s^sdcJ=b3!xclzV!}t5|z1e;9Wx>U#*(V<)?Y+LD=t5}L5xm#USVj4q1Q(aKZU|{rYuQor5OA+vLfF z{Mm>2(xjv$vM;Wz_lb{>-@Q5UWa);=+*NyXR#t9KsLoHS+LCyW4Uvh$nApify!M9Pwgyu_Ht$F@E^nwPa^8CebMGXk2xQS$uB z!_$W=50)2PK6B*7lZRO8o<9CR?VSf$Q|J5lTWht$-D>OKR;{+SRco!St6Ht2TD8?m zQQV`7iw!E^LO86j_Y#mL$c8}Jd(W^(2s>eh6;>7`?;X;g_0<;buu#3vl`B_B&U!xQ zc)s4xy_$=&k_u9y3R9vBQev~>qkO%*^tDN6eo;Pp>aw<_k5^iiC$-5btKPe$BczHQ zL1!n`4`j4(Gg^4bjKN4cJD{-LJ)L12L(})CUUrB-eADCW6S_-wDKFcju=4wpa~H3e zHR-K)C(U~A)#)EhoVsYjlqIiD{o?hRYiG>f`u=-TE0>)6ZngU1@3qfKo2s66(^vDg zxJ7X$CEd5l2zJgUyJeBxb0WNp6GF<5RBlR}Df_YD%{M$V~CVhcI7LJr7K zwQ#VamljhRVV~h+IQqO?f*TQLN9gP6Ioq07B=~ffMn?O)mX(!0^7Mm0Az7%QhL#vb z&Pa@A)>IC%yWqvBE-%fBugXbiD$Q-ID4^zKh6RV18CzdCfA#25Wwl%O_7VB+d5xY$ z&At^ZGQB6hzCVpQnAOSy8H%s#r&RR#7qq*k)SHn@b-Z&FEGT=FY*y^QwtTPZs{Lo@ zeY|q!~39^1}%Lh8> zBn8+~W4wyveTx(Pt1=_%sPWbL@#R^u6*=+M)Relylsal+T|pu}FRmmbqA)EiDmgwIo*tk z!Janpm3nM>Mt24776~8$B=GMMfd4ZObA()mXs}Ymr-O%x)09z@?2&b!1n~yHYXrfU zUTY5Dt`7npoFGFrRh5*`fUM;BHbxz%uZPWQuA-*VauV9; z`Q6P`jkT3U1^Ka2v38cuDi^LDJs_`m)!Z^T&AYhCw~`fD-4)Z&m%-X+m;ZEi^#Qr}mVP<&wOR9DpS5Df?9KBQ>{$5G z#<&0Pv)8A7^5&F%YgQU6p0vJk&gRzHyC$jujylOfc7;jz%QML}dC~OT=(^(Mmg?NL zS}LP5r=cQ;LCb5cqOz*tJ-fOfu^=@pJ1ICh%9j#!*U!t=+tt#=mSm!T>(;HC;0_Z9 zx9by@hJ+P~ur?y@8WUt2BGy?q$z4C)n*@`V)L@IU2s?1Sm4w?ChuOe;VW@RUq*HmE zM?-#e8!fw|rhwg2!(oFr2b<#kd;bFPNJsz)j5z@i3K6ea>>lD(i3D^`TTWfty&Qj& zKbn^Ve^9tRVQ63gxkZp|1VS^)5a3rH6nHExPKb%5m6Y`LfGO13P?2Aj5mj4|(pFpC z-c-YEtgfNa(i2kMY~0i?XdL)S_O$$M%h1%|>dxTWZc1%;a${dkD=)ueD5s5|(l{7R z>kck#^~z|pi>V-dbLA`}zLT^5^03yXlUEn6SUY3#jQ1u_`)uaSZ|42q_Js>JygPUK zlxZJMnX+rm=jPYsyezK!+TS938Ake9q)}XpQUl5|!|RF?>q}D^w4Anv5>{hrb4?MG zUcjuPHkRkqm!wzZ#wSwl-*dHewj)^>Y2DIPR+c}bCVxgt<(%<#1uMPlPNsyv1rg-{ zq5}f0o9d+x&NTp-8(>-(YE??HDKUeX4rMlT5^C5H6&-;EEpBP`)=?F=?`O;0zPC-zY>$HO;x9H# zpEPyu~W$(`ZcIBrI#ML-|`@|sojHtWmQSNz(ewBHV zHAP8HRe8-d1+2#M?q+%?gVtPER$oai%!&^W@bGfBbh0Mt-_}r5Ic~9aZ*<2;Y@dk);+C9BYA4AX`5SoGzOOPIk?f}EQK(qW1>x!iN_0+g725q3b zjnCXE;NuKNYd`<>Z+ktR2JkmRTbBk=Hw)WmFLF8bX+fs$s6qBa|T&VW@bXl9jiOa za#w!bcl5kE;T)5m(7;M>9n5a$Q9A|VSBD^@X&|n;lTy*)Pi=9}U|7dh$=gL9)N(s? z-Rje|Ti=>8YvGKkTb3@6-TjT`iG5~j=SZp-Wxo4%`|6cWq+6w#QN`(D#pxlX*7Uy86%O1Pt*>Y)va19NK)r! z@1nymkpL1v0xt>yu?+QyxV7S#?V)N&BkC*+g=gvGG28Gze=vpY4G0p61Xbps@YEBZ zuCM|~6_nDgsVu23$#1Q%tSCs$Nep3@XZN+%@%p=m1zb*lPh)LOYGR73$7QSAO&T z{5kJ^GI#c#H6N>=++%j-l&A4E@*NAa8&?kQ+-75NyOCZ}U!Gl(MX995GOM!N8;W7t zjaHJInh@>oVsB+?V5Fx-+|ty(p<#4g%~@N?!$8r;P%+R*KFIV^sD&KGT9IreA8sul zp#rikJw3RoJd@McJ;djNz4JseFUsA8<3s{T00}&i zfH+EFK*(!^m~D`u;eqn5A~HN(AGd~}QkWo9kd@fBy7EslA8f)wDfgv(sC8soi{P z7r&sBpVP+4ZsVjf`{L@@6gu0th-DI4tmB_~#U^0wHYkJr@!F3U9@@5wP&jCJ`yBN8 zNe*y}zIXSA{CTt6*XwCzP4uGT%!vFna%N%}+20*>$HY+AQ1|u?jmw&9N~Y>6_w-c* zO;tn8lqr_V5mt&6E5&dt1+tY~xQ#-r%awRn^+*Th2wTNOSIsof+ZjFv)DSCL@_j~8 zQeS6_SagQb-g)AEhASWeB!C3|fPh#kxI!L7Yz+zMLQZ90O#;LZLoJ1eBjvypf*Cn) zD?(qFFflQK9958^KiK1MUyJuW5-bOaLd@DqHmj+zsw6uuthO|}zq=VUXn0rviA83y``<(*-QKO9XWaN>YbpdOh$V_4@4&Ls2%)V7B91PFs+4?+{}%r>GQ~Ax@XlJ zct>y9Bfa6vHT%B(TIJ+V_JpFRnMRnqac+!XX=+TE#~oX}o5`Vm8BswlHl$k`$~QHX ziEC;)*VS}2RqSr6`Wvc-nyH3cse<%GSt`ZYs>Ir>#W<=(JE%q4sZeZ`D7MNJdu589 zN|cj&ino4IluJWld>6BdH^7#R3*LVlDt))B+Z*|u z-r*tMuz&~U=Cd<0?X7GtotNLg|KO>!m+ZX#QyQA{dw4l4UUmmBNBk0GcMK&n2gAy{ zqUjyhp|RWd{=8+w#$!M4yQOx)#X`r&-hh11Dm&gkKP4>mo&%w&q^=-)RbKX*qO7il zyzxyXcWvbm6Qytq#c&ISNGs)7JGB^F)mU4#c>62y4p-ux)Z?5qq8+Y8*rD}-9A zC3%yIV(+!kse^15Xywxk_OD(6+ztsK0VME36A;I2^IJrmss}Pei*o@PdN_3mtRd*~ z;BHD7>JnyVW>C`%dci-1_f4yB&hO^s!@OL#AQudx4nby{Afc{5v$^L^bkg@fL-fJc z(?<^LXsWqblbkH|?9H?tt@LzmT~<>#tA62xp2{x>C0Zf({Nb zcL*OVu?#^kAt;hoR#pbpp`Qp49_e83K$HT6#Bm4Nt;{M~NoGS;L3evSpW6#R^7-7F z>I%R6?nWd+MMd$D%;DpwE?B$yX4Ezp^$7Ah#jk>%Au6k{oY`pM9k_A(o|P-U`u3YG zKknLf_UK_9rL)$zR^ax zK7uS1+G9a`O1`^VY6@8Fg*NJ$z~>H?z4rBt6UVj^$}Nm1Qf} zEm^d5`hEDevk5TM;Pha5R$y_zNB{{S0VMDg1VAW+f({|KTF9qEfm4v7 z@+il&dyjS0i+7!CBZYpP1A*-6!v z1?=uNXnx1#^f4M~S?RICer_)Imc)%)Cl8-KbxMh3d(S5}-O|hdrn#+#uAaK4%CY08 zepvgJ^tz>r`!?#G+2eNeWSFH&oU>-6!{sn*g&?yFp%#}SZ6VhBQmFa4FpGt~SrfMUgrS}uWDkK7LEjunWjT1Tk8;A2$3ADUzpa(QsH5w$xOXXXm6wMu*&Yvb0dSq_lJUzOUAN`=itmdDSb|w6u(GTy`g^nO>7UyX(s{ zTb63dY&5<2gZs_nWOK!6`zulQs*u_fVsB$-y;DefCR=70kI7A zia2y3l$GOE_0=as2b_@}tiQR3z)vIzRFH(s`I!;+MufQ@0X@H=w~mvO6O{MK&d!Fm zJD^8{|NjDAMs;jQ5uc4@;cF|DrtntMo+Nbth zIk-t#Y6D4O|9$<_G3KYtR1e7Q{p!MZOK%+7U~+Mn>$Sta`ey@-F8LaY>x%|kX=a5v z({p2c+8X)XK~Or>opE$u;i(`2B!C2-k^sn%p!3)CRgj^E6o{0AmP3zNLk}wvG&LYw z6P{*-qcLG?Kv+QB!bp)HFpfZy9$p}r!N|Y>97Q9u|b3xpt8GO|qp1 z+2V4jg{r@i{GID3P2~4$9^HKTzdfH-dmBIQQXS9w)XMS&LY`nxjp zK#9Ol1c7rfK^I{!Zh_}*Nw`~xi*G;tax*79EXDPIf~|-!8zRy{oOuLW!L}nWoy5C3 z39h%}U2nxYT??~TyKiv8_KJ-5sqN|q)*D^eWvF~m<-mpuJ6Edh->7}^N88J%Q~d9+ znDoKkE{MDXt7mLj;ZczQ5 zGAPMiC*D;nMDNrcB^i|;wq2Fp>1}Hq8xcmYs_O3(S2h@HMtFQAfCP{L5_o0=;3+@U z3F)g4unoN)c}F4@}U3 z`aqn6k0B9iYmw=0*q`rXps7i^c@s1UDtMy?jgOlH&jJY`0VMG335aE=N64)a2W*2i z#LBBry9W(e|8W@t^#MN-v~UfvBJPvK>XR28*3s0+txgeDg_3UEFxJvaO-)ToN~)=; zK|AQ#UwAwM5x1nB0SsXK zco`5r#>P2O;VfnY1iZocd9|scsxT8REmLi6&>%2{YHMpzgT}?3fhU0kkN^_+R|q^V zLycL!d4Xn+mz8^5Uq=51$^n7-L$M?L%?K}jycT<+pZ8!`yt;G|odN=6p{tvo zo}QADQdd_8>8|JxdVmN&AOR$R1fG8aVr!@ed_zz|0gCzXI`bQ|?n|tp(N$)YU%~u= z6xTot!d;(mBZ$1%XlQ%)h`8|TGep%9kosz6U;wr0z!X9adj4-V93c`w0!ZL-0wca5 z5w~VUhN}5p1&l0T@D2TifNhEQhipT584@nK1lie{-O(YLe0$`u{Dv%HO{BGffwiGw zR#q06LiP3aXa_w)3I9X_NB{}E5ClMmhI^s3sU$=}z%FKH`(^tXKfMe|BHtkPz}JLu z)7SGfGRljO=W#fXm_H9-@*A>6HPN;tlAWJcsk5##5_?&^96C=x&dNMIZh7?GioNjb3$!K7SkL5Rc}g0gS-p;4V4bPlr2h>w3f_vdLw z!EY`WHKuwxI(j-e6%`eMDK!2y2y~~nx3{^u8AAA=bu6@$g#|v;)zyJBtFyDSudlDG zs|yS|s5=Bb&?_n`B=TBTRt7VT@Dr>9zryBiZEc`Uph{1}3fDmbNB{}Ehy*}}gd7o% zDfSHs#32eGLy2yNcS(eko}RyxQ!S15G~oxoi;mw?B4VW7yK~3e#igXA1fJFKY#$GH zki?de*enmf!$?7KKvrU6VuFH#puin`h6O(O`};$$b4arVF@+%W(9lp14-Z#YS4T%j z3kwSq6BGCl78aJ1lara5Nuf|+b68mtiw*|S!$*P7g(nP8U#=8mX;Qny!t!){F?;e z&@f{LwoFGyM|*oam?{r1aC)FPpfCFR`j;C>l=A3uKd=us&tsl9vm9y@mI`t|Gf_V%#C&6_u2b1N$=C>0JR^1zIGa1=Nw*h*j@ z{bgnUn*?xkB!C2vz<4Ae;tWnS%#U%E-v<+qZlB_HCOseLjEw;_1^roIU&N)vLe$`s>3oGIA$Ro;!Bz z;QsxvxvZ=#m`I>vv9Ym|Bfzl|6BEH!0%3v~zrRoTZ(bnW90?!+Brtvm2!#S+AETu* zd!U#7kDQgDty0vK9pLF1;N=DO#dy#lus&cu5Hgiut_&vA-2S)R9a(%$OzwXAsqEaj zpU#=HdDAB8ef#`2ZuD5UZu{GBuU)om%cf16mMz=*$}3A>e)+36-&B}A`|8Y@X3Lgc zTfThBlqu_1t-7#fi{s+Or{~OB`p!GB`Hw&T2<8&Vkc*28>|SyxPft&nvV&fFXHMVvT%))_>1~Qc* zBO`-@g98Erz|rID>+3VJ1e%)G?cM9QX3df}-`u%v+m0<;yngzLCnuM%b?eSaleSEr zeCDmUZcLl@)yprFKK!t9$By9n^Xp_}+KwIj>8-a`y#K!X-o4D-yS-PhUNUv+&h6U| z95|q=stWUXpgV9BI96a_Aecp9e*uc_?ryY${;4|+_k#qG01|kdfPh68HRpxgzaQ%B z3)5d<3V}Cd3^fRxL1}4e;N>wkHU^&#EQW@L;NsEK)6*SUEVQ&r4<9bwym{kmuPvK9 z_wx@vP}{e!TTKmQ=>GiqmnTlF{rTsdjT^Vjn4vEtlc1`4{pX*R7caJ&K7IGZi91%W zHda=yla|igv}yCKS>P*DQ&ZE>(9qJ-f_=kL;8@z)+F*P^;Z`t$#*o9~R|>yD0!RP} zJbwg+I%`EO)G&Yl@W8;TswyyrSS%Lg)Qr_gL4&~bfF^q2i|Og<0ZRnV2ZF94c@}IF zaM>hKC^R{_fddC@XV2Dn_0?Y{OgON4bBKzHKv6MyCp&-osnvo7Yu|lWLru+6 zUH!z8B?n%5N%^IhcF&!wdF6_Stu6h;3HJW|2j|Z}bMz=E4#X!wgo7j~9sE#W210;0 z5P(@YIGM5HfX77wNB{}E2n2?@>O`#tl)%7<;Na@&YLKC^)u2b1g9?BcLFTN3gM+fN zvaIYm`Ac#!2M+g2ORK;0&iYp-?wB%j{pYJ>e%M!hTDIfdIhnb0k4%_weB#7~Q>JhK zcAMSGRblhzpPVq^^Vi;7`N5){-+d?h%P&r=R%NeTxoi6LuRr??0vI564y-K@I8Yz- z{yf4T|3m^v00}%(0z+L5qPC)_kdSCHS(4ESb5LVw2R$-au!-X08c&__m6Fomwd?58 zrN4ZdUUQcmPhO!!O3HHT)cr5Nym0o?&lVj@ z*(S|Cc~W!X2cNw;YsqU(9+ZdPY^^PfZ2uK zpGWxPpGW`+Ac1E}V5qxM)LsGt6dN86Q(j;SK@9;&&v~W?efphqIKw-3biDCK!tB{5 zGiT~fm~j7-sp`HL??7BAlU+S~>25bKs0WE@f9%FE}iS|vU4^?9@Q zPoJEkx1Q)%(`Y+!B6{gk#aAbtUa%l@|NfevexhyKL|wZ!a@n%OQ>NUtvm0;L-_!HK zHIV=kKmz}10z*AaQG00|g^~~%366M3iUFU<_|YI}rnhgO;GK6^6DByl{Bq=k39;|J zr}V={Y1bWQPAe1*KiN-wd0J(Y!HL5SAAJ~p`b%y1t%S?x=eEDLYvxp=S+fS;ofdj+ z&Go>IH?0;PKm7hW^UdDIXUG!Idyk+LF@r~fBw_AF`hgUKmz|! z0>kVk5vv>oC@CfeBBH?*8gCjTB_;UiBhJK$`Sa#6rcCj8|NT=Ren^@#r~i#Nf~2K2 zfBH#EL&N^)(Y|lLZJIpU^rMeLH*DygG|79yguody20r!-xBwY0S{6}wBJZ&U^1fDYj!@VuSj*8@%nAG@qsOJeX1fgi-$_|o}8d|oDJ9%>Q z)~%hpcXv#kYBO_Y?E3XX@4oAO@ZgO@hYp=Nb8*9l>IDm!uf1lvaih=n?V@?}s4u+~ zIej|i;K9BRKA^w!Qt`xzb`XyMQEgc+qD~qJPXlj}rI%N3f zn^_YlmVf-Qm6}@G_umUY{j~R`mtvPJu{(04W9QDHDN~x?e%nq}m4HN4s7C~a;Qpf* z3r`yfAOR%soDmrAXNfxLAV66uDNrE?Od+UBJ$`C+ayTLxnc)>HI8&!4PoJLj`s=kb zXL??}ntA2Q;IU(apM91ye}4Fk8BwpiQao)MMOQaGEv-gcdU)MB{u^)jDk%jhD>IKA z5iMHOuypBN3MHCKr9uYo_!-@Eb}!*@kN^@u0)Ljk@IZ&Cs|ExpCp{fXQbY5gaiu|A zu1Hx~xMz=W=~BV``NInqbP+^xb8~w|1xH6`_|T!@HEVdYXY&^=YH@e3YHe-r=^0R0 zAKtKmzj}3gMFlf7wC}_T;o`-tBS#XOn_IxdgRpa)i2JiQ39gR>kN^^RMg)cjxw0-3~`|YE_b-HQka_yg}C|fC#L^Aqq_)qiv*AW68LKbh6lSvJ@t8+ znFYDIP$&Ro2ug-x*w|l#iCZB7B!C2vz@H*8%wdbz4Fx$l#Z)R(=>ZvnT5YI7e~KZl zj0BJX5^72Xx3M73?QG@;(N!$tvAOR$R1pX`mA#Xs`+f-6e0PX7_ zI~8OILYL7F`m-2ueI$SckN^_+3j~DxK~Z0GSy2(KtPGMjp;+AD;2`?${{l(e1PLGk zB!C3|ECHc_E9!5pEGem>(I9jgWQYTGLjSowt$+4>aD60z1dsp{cyR~_hj^m?wyN^- zS~?vvgFuF$fG29ui*p0uNRa>%Kmub(KsY224X~Ghgp#dV|K!&iAzzcN);9!ve5)|NB{}EI0VER#O(nisI8?1q7fh{4vOKR2E8~p0FD$1AOR#Wh6F}5sJDs1 z=xA>TPY}ouYS0*74m>mxKmthMg(4u&N_SRMi%LY#nEEt$QR@VZLiv*AW5_r)F2!{nC0jHD2>g(-=5NlNs95rhE=V|h97*hl~gAb}T(fN)486mZz$@(3_)6rdOC;^SbE z01`j~V@v=vXn07#=@anzV|*rfcqD)XkN^@u0!RP}AOR$R1dsp{Kmter2_OL^fCP{L z5D({{fbAG1mY9 literal 0 HcmV?d00001 diff --git a/Meniuri/blocaredel.mn2 b/Meniuri/blocaredel.mn2 new file mode 100644 index 0000000..8beffad --- /dev/null +++ b/Meniuri/blocaredel.mn2 @@ -0,0 +1,167 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="blocaredel.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + sele calendar + + loca for nl=m.nl and an=m.an + if smf + do mesaj with 'Luna '+m.nl+' '+m.an+' este inchisa!','' + else + oi=crea('danuinchid') + oi.show(1) + if buton=1 + sele calendar + loca for nl=m.nl and an=m.an + repl smf with .t. + luna_inchisa=.t. + endif + endif +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + Store 0 To lnprogram,lnfirma,lncalendar + Store {//} To lddata + Store '' To lcfirma,lcprogram + Store '' To poLista1 + Store '' To poLista2 + Store '' To poLista3 + Store '' To pcselect + */////////////////////////////////////////////////////////////////////////////////// + *----------- + *!* pcSchema=[''] + *!* pcSelect=[select id_program,denumire from contafin_oracle.nom_programe where 1=2] + *!* pcOrder=[denumire] + *!* pcFiltru = [1=1] + *!* llAfiseaza = .F. + *!* gencursor('poLista1','crsprograme',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza) + *!* poLista1.ca_baza1.afisare() + *-------- + + lcsql = "select id_program,denumire from contafin_oracle.nom_programe order by denumire" + *STRTOFILE(lcsql,'c:\seleprograme.txt') + lnSucces=goExecutor.oExecute(lcsql,'crsprograme') + If lnSucces<0 + aMESSAGEBOX(goExecutor.cEroare,16,"Eroare") + Return + Endif + + Select crsprograme + Go Top + lnprogram=id_program + lcprogram=Alltrim(denumire) + */////////////////////////////////////////////////////////////////////////////////// + + + + */////////////////////////////////////////////////////////////////////////////////// + *--------- + *!* pcSchema=[''] + *!* pcSelect=['select id_firma,schema from contafin_oracle.nom_firme ] + *!* pcOrder=[schema] + *!* pcFiltru = [] + *!* llAfiseaza = .F. + *!* gencursor('poLista2','crsfirme',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza) + *!* poLista2.ca_baza1.afisare() + *--------- + + lcsql = "select id_firma,schema from contafin_oracle.nom_firme order by firma" + *STRTOFILE(lcsql,'c:\selefirme.txt') + lnSucces=goExecutor.oExecute(lcsql,'crsfirme') + If lnSucces<0 + aMESSAGEBOX(goExecutor.cEroare,16,"Eroare") + Return + Endif + + Select crsfirme + Go Top + lnfirma=id_firma + lcfirma=Alltrim(schema) + */////////////////////////////////////////////////////////////////////////////////// + + + + + + + */////////////////////////////////////////////////////////////////////////////////// + * se face un update la tabela de blocari + lcsql= " select id_calendar,nl,an from "+lcfirma+".calendar where ( id_calendar not in "+; + " (select id_calendar from "+lcfirma+".blocatprogramluni where id_program ="+Alltrim(Str(lnprogram))+" ) )" + + lnSucces=goExecutor.oExecute(lcsql,'crsplusluni') + If lnSucces<0 + aMESSAGEBOX(goExecutor.cEroare,16,"Eroare") + Return + Endif + + Select crsplusluni + *brow + If Reccount()>0 + *MESSAGEBOX("intrat in scan ! ") + Scan + lcsql=" insert into "+lcfirma+".blocatprogramluni(id_program,id_calendar,blocat,lunaan)"+; + " values ( "+Alltrim(Str(lnprogram))+","+Alltrim(Str(id_calendar))+",0,"+; + " to_date("+Alltrim(nl)+"||'/'||"+Alltrim(an)+",'mm/yyyy') )" + Strtofile(lcsql,'c:\insertluni.txt') + lnSucces=goExecutor.oExecute(lcsql) + If lnSucces<0 + aMESSAGEBOX(goExecutor.cEroare,16,"Eroare") + Return + Endif + Select crsplusluni + Endscan + Endif + + + *----------- + *!* pcSchema=[''] + *!* pcSelect=['select lunaan,blocat from ]+lcfirma+[.blocatprogramluni where 1=2'] + *!* pcOrder=[lunaan] + *!* pcFiltru = [id_program=]+ALLTRIM(STR(lnprogram)) + *!* llAfiseaza = .F. + *!* gencursor('poLista3','crslunian',pcSelect,pcFiltru,pcSchema,pcOrder,llAfiseaza) + *!* poLista.ca_baza1.afisare() + + *----------- + lcsql = " select lunaan,blocat,id_calendar from "+lcfirma+".blocatprogramluni where "+; + " id_program="+Alltrim(Str(lnprogram))+"order by lunaan " + *STRTOFILE(lcsql,'c:\selelunianblocat.txt') + lnSucces=goExecutor.oExecute(lcsql,'crslunian') + If lnSucces<0 + aMESSAGEBOX(goExecutor.cEroare,16,"Eroare") + Return + Endif + Select crslunian + + */////////////////////////////////////////////////////////////////////////////////// + ovizblocate=Createobject('frm_viz_blocate') + ovizblocate.Show(1) + + + + + + + + +ENDPROC && BAR_2_OF_Shortcut_FB2P + +* diff --git a/Meniuri/calculatoare.mn2 b/Meniuri/calculatoare.mn2 new file mode 100644 index 0000000..018d333 --- /dev/null +++ b/Meniuri/calculatoare.mn2 @@ -0,0 +1,18 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="calculatoare.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Nomenclator Calculatoare" +ON SELECTION BAR 1 OF Shortcut do def_calculatoare in oproceduri_roadef.prg + +DEFINE BAR 2 OF Shortcut PROMPT "Setari Calculatoare" +ON SELECTION BAR 2 OF Shortcut do set_calculatoare in oproceduri_roadef.prg +ACTIVATE POPUP Shortcut + +* \ No newline at end of file diff --git a/Meniuri/calend.mn2 b/Meniuri/calend.mn2 new file mode 100644 index 0000000..3ffd5f0 --- /dev/null +++ b/Meniuri/calend.mn2 @@ -0,0 +1,14 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="calend.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR _MST_DIARY OF Shortcut PROMPT "\ \ No newline at end of file diff --git a/Meniuri/coeficientilunari.mn2 b/Meniuri/coeficientilunari.mn2 new file mode 100644 index 0000000..2c4fe7a --- /dev/null +++ b/Meniuri/coeficientilunari.mn2 @@ -0,0 +1,37 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="coeficientilunari.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Cote TVA" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "Plafoane casa" +ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P +ACTIVATE POPUP Shortcut + +* + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + lnAn = gnAn + lnLuna = gnLuna + + DO viz_cote_tva WITH gcs,lnAn,lnLuna +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + lnAn = gnAn + lnLuna = gnLuna + + DO viz_plafon_casa WITH gcs,lnAn,lnLuna IN onomenclatoare.prg + *!* oc=crea('coef') + *!* oc.show(1) +ENDPROC && BAR_2_OF_Shortcut_FB2P + +* diff --git a/Meniuri/editscurt.mn2 b/Meniuri/editscurt.mn2 new file mode 100644 index 0000000..fded029 --- /dev/null +++ b/Meniuri/editscurt.mn2 @@ -0,0 +1,61 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="editscurt.mnx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR _med_copy OF Shortcut PROMPT "\ \ No newline at end of file diff --git a/Meniuri/entitati.mn2 b/Meniuri/entitati.mn2 new file mode 100644 index 0000000..ceabf97 --- /dev/null +++ b/Meniuri/entitati.mn2 @@ -0,0 +1,29 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="entitati.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + DO viz_parteneri IN onomenclatoare.prg +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + DO viz_entitati_conturi IN onomenclatoare.prg +ENDPROC && BAR_2_OF_Shortcut_FB2P + +* diff --git a/Meniuri/firmanoua.mn2 b/Meniuri/firmanoua.mn2 new file mode 100644 index 0000000..295029f --- /dev/null +++ b/Meniuri/firmanoua.mn2 @@ -0,0 +1,323 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="firmanoua.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + *!* ll2=m.nl + *!* aa2=m.an + + *!* do form startfirma + *!* IF buton=2 + *!* m.an=aa2 + *!* m.nl=ll2 + *!* endif +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF__1mj0sbjsk_FB2P + *!* sele act + *!* copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX + + *!* sele 0 + *!* use &loc\&nfscurt\tempo\ytemp alias ytemp + *!* sele ytemp + *!* BUTON=1 + *!* mmm=crea('modiffact') + *!* mmm.decare='FURN' + *!* MMM.SHOW(1) + *!* IF BUTON=2 + *!* DO STERGE + *!* USE IN YTEMP + *!* RETURN + *!* ENDIF + + *!* SELE YTEMP + *!* SCAN + *!* SCAT MEMV + *!* SELE ACT + *!* IF FLOCK() + *!* appe blan + *!* gath memv + *!* endif + *!* unlock + *!* SELE ACTan + *!* IF FLOCK() + *!* appe blan + *!* gath memv + *!* endif + *!* unlock + *!* endscan + + *!* USE IN YTEMP + *!* wait wind 'Se inregistreaza in analiticul de furnizori...' nowait + *!* DO TOTV + *!* DO REFBAL + *!* DO REFFURNIZOR + *!* wait wind 'Se inregistreaza in registrul de cumparari...' nowait + *!* DO TOTV + *!* DO REFCUMP + *!* wait wind 'Se inregistreaza in situatia facturilor de furnizori...' nowait + *!* do totv + *!* DO REFCUMPLUN + *!* DO TOTV + *!* wait clear +ENDPROC && BAR_1_OF__1mj0sbjsk_FB2P + +PROCEDURE BAR_2_OF__1mj0sbjsk_FB2P + *!* sele act + *!* copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX + + *!* sele 0 + *!* use &loc\&nfscurt\tempo\ytemp alias ytemp + *!* sele ytemp + *!* BUTON=1 + *!* mmm=crea('modiffact') + *!* mmm.decare='CLI' + *!* MMM.SHOW(1) + *!* IF BUTON=2 + *!* DO STERGE + *!* USE IN YTEMP + *!* RETURN + *!* ENDIF + + *!* SELE YTEMP + *!* SCAN + *!* SCAT MEMV + *!* SELE ACT + *!* IF FLOCK() + *!* appe blan + *!* gath memv + *!* endif + *!* unlock + *!* SELE ACTan + *!* IF FLOCK() + *!* appe blan + *!* gath memv + *!* endif + *!* unlock + *!* endscan + + *!* USE IN YTEMP + *!* wait wind 'Se inregistreaza in analiticul de clienti...' nowait + *!* DO TOTV + *!* DO REFBAL + *!* DO REFCLIENTI + *!* wait wind 'Se inregistreaza in registrul de vanzari...' nowait + *!* DO TOTV + *!* DO REFVANZ + *!* wait wind 'Se inregistreaza in situatia facturilor de clienti...' nowait + *!* do totv + *!* DO REFVANZLUN + *!* DO TOTV + *!* wait clear +ENDPROC && BAR_2_OF__1mj0sbjsk_FB2P + +PROCEDURE BAR_3_OF__1mj0sbjsk_FB2P + *!* LOCAL m.SUM1,M.SUM2,M.SUM3 + + *!* SELECT CREDITOR + *!* SET FILTER TO !DELETED() + *!* sum LUAT,DAT to m.SUM1,M.SUM2 + *!* M.SUM3=M.SUM1-M.SUM2 + + *!* SELE BAL + *!* SEEK '462 ' + *!* SCATTER MEMVAR + *!* IF M.SOLDcred # M.SUM3 + *!* do mesajval with 'Diferenta soldului cont.462 este de: ',M.SOLDCRED-M.SUM3 + *!* endif + + + *!* + *!* m.cont='462 ' + *!* cn=m.cont + + *!* SELECT CREDITOR.NUME,CREDITOR.luat as deb,CREDITOR.dat as cred; + *!* from CREDITOR where !deleted() ; + *!* into TABLE &LOC\&nfscurt\tempo\xtemp + *!* + *!* * rename column luat TO deb; + *!* * rename column dat TO cred; + + *!* if file('&LOC\&nfscurt\tempo\xtemp.dbf') + *!* sele xtemp + *!* alter table xtemp ADD COLUMN CONT C(4) + *!* repl all cont with m.cont + + *!* sele xtemp + *!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + *!* OVIZ=CREATEOBJECT("afsitanalitX") + *!* WITH OVIZ + *!* .command5.visible=.f. + *!* .LABEL10.CAPTION='SITUATIA ANALITICA - CREDITORI' + *!* .GRID1.COLUMN2.VISIBLE=.F. + *!* .GRID1.COLUMN2.WIDTH=0 + *!* .GRID1.COLUMN8.VISIBLE=.F. + *!* .GRID1.COLUMN8.WIDTH=0 + *!* ENDWITH + *!* OVIZ.SHOW(1) + *!* use in xtemp + *!* endif +ENDPROC && BAR_3_OF__1mj0sbjsk_FB2P + +PROCEDURE BAR_4_OF__1mj0sbjsk_FB2P + *!* SELECT debitor + *!* SET FILTER TO !DELETED() + + *!* SELECT debitor + *!* sum LUAT,DAT to m.SUM1,M.SUM2 + *!* M.SUM3=M.SUM1-M.SUM2 + *!* SELE BAL + *!* SEEK '461 ' + *!* SCATTER MEMVAR + *!* IF M.SOLDDEB # M.SUM3 + *!* do mesajval with 'Diferenta soldului cont.461 este de: ',M.SOLDDEB-M.SUM3 + *!* endif + + + *!* SELECT debitor.NUME,debitor.luat as deb,debitor.dat as cred; + *!* from debitor where !deleted() ; + *!* into TABLE &LOC\&nfscurt\tempo\xtemp + *!* *alter table xtemp; + *!* * rename column luat TO DEB; + *!* * rename column dat TO CRED; + + *!* sele xtemp + *!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + *!* do creaT_analitX with 'SITUATIE ANALITICA - DEBITORI','Incasat','Restituit' + *!* use in xtemp +ENDPROC && BAR_4_OF__1mj0sbjsk_FB2P + +PROCEDURE BAR_5_OF__1mj0sbjsk_FB2P + *!* local m.sum1,m.sum2,m.sum3 + *!* set safety off + + *!* SELECT ACHIT542 + *!* SET FILTER TO !DELETED() + *!* sum LUAT,DAT to m.SUM1,M.SUM2 + *!* M.SUM3=M.SUM1-M.SUM2 + + *!* SELE BAL + *!* SEEK '542 ' + *!* SCATTER MEMVAR + *!* IF M.SOLDDEB # M.SUM3 + + *!* ot=createobj('textval') + *!* ot.label2.caption= 'Diferenta soldului este de: ' + *!* ot.valoare=M.SOLDDEB-M.SUM3 + *!* ot.show(1) + *!* ENDIF + + *!* m.cont='542 ' + *!* cn=m.cont + *!* + *!* SELECT ACHIT542.NUME_2 as nume,achit542.luat as deb,achit542.dat as cred; + *!* from achit542 where !deleted(); + *!* into TABLE &LOC\&nfscurt\tempo\xtemp + + *!* ** rename column nume_2 TO nume; + *!* * rename column luat TO deb; + *!* * rename column dat TO cred; + *!* + *!* if file('&LOC\&nfscurt\tempo\xtemp.dbf') + *!* sele xtemp + *!* alter table xtemp ADD COLUMN CONT C(4) + *!* repl all cont with m.cont + *!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + *!* OVIZ=CREATEOBJECT("afsitanalitX") + *!* WITH OVIZ + *!* .command5.visible=.f. + *!* .LABEL10.CAPTION='SITUATIA ANALITICA - ACHIZITORI' + *!* .GRID1.COLUMN2.VISIBLE=.F. + *!* .GRID1.COLUMN2.WIDTH=0 + *!* .GRID1.COLUMN8.VISIBLE=.F. + *!* .GRID1.COLUMN8.WIDTH=0 + *!* ENDWITH + *!* OVIZ.SHOW(1) + *!* use in xtemp + *!* endif +ENDPROC && BAR_5_OF__1mj0sbjsk_FB2P + +PROCEDURE BAR_6_OF__1mj0sbjsk_FB2P + *!* SELECT actionar + *!* SET FILTER TO !DELETED() + *!* sum LUAT,DAT to m.SUM1,M.SUM2 + *!* M.SUM3=M.SUM1-M.SUM2 + *!* + + *!* SELECT actionar.NUME,actionar.luat as deb,actionar.dat as cred; + *!* from actionar where !deleted() ; + *!* into TABLE &LOC\&nfscurt\tempo\xtemp + *!* *alter table xtemp; + *!* * rename column luat TO deb; + *!* * rename column dat TO cred; + + *!* sele xtemp + *!* index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + *!* do creaT_analitX with 'SITUATIE ANALITICA - ACTIONARI','Luat','Dat' + *!* use in xtemp +ENDPROC && BAR_6_OF__1mj0sbjsk_FB2P + +PROCEDURE BAR_3_OF__1mj0sbbn6_FB2P + *!* sele bal + *!* do form afisbalx +ENDPROC && BAR_3_OF__1mj0sbbn6_FB2P + +* diff --git a/Meniuri/impozitar.mn2 b/Meniuri/impozitar.mn2 new file mode 100644 index 0000000..1f7884a --- /dev/null +++ b/Meniuri/impozitar.mn2 @@ -0,0 +1,18 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="impozitar.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Lunar" +ON SELECTION BAR 1 OF Shortcut do impozit_luna with .f. in oproceduri_roadef_sal.prg + +DEFINE BAR 2 OF Shortcut PROMPT "Anual" +ON SELECTION BAR 2 OF Shortcut do impozit_luna with .t. in oproceduri_roadef_sal.prg +ACTIVATE POPUP Shortcut + +* \ No newline at end of file diff --git a/Meniuri/listenomenclatoare.mn2 b/Meniuri/listenomenclatoare.mn2 new file mode 100644 index 0000000..250c843 --- /dev/null +++ b/Meniuri/listenomenclatoare.mn2 @@ -0,0 +1,85 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="listenomenclatoare.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + DO VIZ_FDOC IN ONOMENCLATOARE.PRG +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + DO viz_sucursale IN ONOMENCLATOARE.PRG +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_3_OF_Shortcut_FB2P + DO viz_sectii IN ONOMENCLATOARE.PRG +ENDPROC && BAR_3_OF_Shortcut_FB2P + +PROCEDURE BAR_4_OF_Shortcut_FB2P + DO VIZ_GESTIUNI IN ONOMENCLATOARE.PRG +ENDPROC && BAR_4_OF_Shortcut_FB2P + +PROCEDURE BAR_5_OF_Shortcut_FB2P + DO viz_venchel IN onomenclatoare.prg +ENDPROC && BAR_5_OF_Shortcut_FB2P + +PROCEDURE BAR_6_OF_Shortcut_FB2P + DO viz_lucrari IN onomenclatoare.prg +ENDPROC && BAR_6_OF_Shortcut_FB2P + +PROCEDURE BAR_7_OF_Shortcut_FB2P + DO VIZ_RESPONSABILI IN ONOMENCLATOARE.PRG +ENDPROC && BAR_7_OF_Shortcut_FB2P + +PROCEDURE BAR_8_OF_Shortcut_FB2P + DO VIZ_JUDETE IN ONOMENCLATOARE.PRG +ENDPROC && BAR_8_OF_Shortcut_FB2P + +PROCEDURE BAR_9_OF_Shortcut_FB2P + DO VIZ_LOCALITATI IN ONOMENCLATOARE.PRG +ENDPROC && BAR_9_OF_Shortcut_FB2P + +PROCEDURE BAR_10_OF_Shortcut_FB2P + DO viz_valute IN onomenclatoare.prg +ENDPROC && BAR_10_OF_Shortcut_FB2P + +* diff --git a/Meniuri/nomenclatoare.mn2 b/Meniuri/nomenclatoare.mn2 new file mode 100644 index 0000000..b888efb --- /dev/null +++ b/Meniuri/nomenclatoare.mn2 @@ -0,0 +1,75 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="nomenclatoare.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Nomenclator deduceri" +ON SELECTION BAR 1 OF Shortcut do nom_limded in oproceduri_roadef_sal.prg + +DEFINE BAR 2 OF Shortcut PROMPT "\-=" +ON BAR 2 OF Shortcut ACTIVATE POPUP _1js0sa0gs + + *---------------------------------- + DEFINE POPUP _1js0sa0gs SHORTCUT RELATIVE +DEFINE BAR 3 OF Shortcut PROMPT "Sectii" +ON SELECTION BAR 3 OF Shortcut DO viz_sectii IN onomenclatoare.prg + +DEFINE BAR 4 OF Shortcut PROMPT "Formatii" +ON SELECTION BAR 4 OF Shortcut do nom_formatii in oproceduri_roadef_sal.prg + +DEFINE BAR 5 OF Shortcut PROMPT "Meserii" +ON SELECTION BAR 5 OF Shortcut do nom_meserii in oproceduri_roadef_sal.prg + +DEFINE BAR 6 OF Shortcut PROMPT "Transe" +ON SELECTION BAR 6 OF Shortcut do nom_transe in oproceduri_roadef_sal.prg + +DEFINE BAR 7 OF Shortcut PROMPT "Clase de salarizare" +ON SELECTION BAR 7 OF Shortcut do nom_clasesal in oproceduri_roadef_sal.prg + +DEFINE BAR 8 OF Shortcut PROMPT "Tipuri de contract" +ON SELECTION BAR 8 OF Shortcut do nom_tipctr in oproceduri_roadef_sal.prg + +DEFINE BAR 9 OF Shortcut PROMPT "Cursuri de calificare" +ON SELECTION BAR 9 OF Shortcut do nom_curscal in oproceduri_roadef_sal.prg + +DEFINE BAR 10 OF Shortcut PROMPT "\-" +ON BAR 10 OF Shortcut ACTIVATE POPUP _1iy0x213n + + *---------------------------------- + DEFINE POPUP _1iy0x213n SHORTCUT RELATIVE +DEFINE BAR 11 OF Shortcut PROMPT "Grupe de munca" +ON SELECTION BAR 11 OF Shortcut do nom_grpmun in oproceduri_roadef_sal.prg + +DEFINE BAR 12 OF Shortcut PROMPT "Grad handicap" +ON SELECTION BAR 12 OF Shortcut do nom_grdhand in oproceduri_roadef_sal.prg + +DEFINE BAR 13 OF Shortcut PROMPT "Tipuri intretinere" +ON SELECTION BAR 13 OF Shortcut do nom_tipintret in oproceduri_roadef_sal.prg + +DEFINE BAR 14 OF Shortcut PROMPT "Case de asigurari" +ON SELECTION BAR 14 OF Shortcut do caseasig in oproceduri_roadef_sal.prg + +DEFINE BAR 15 OF Shortcut PROMPT "\-" +ON BAR 15 OF Shortcut ACTIVATE POPUP _1iy0x213o + + *---------------------------------- + DEFINE POPUP _1iy0x213o SHORTCUT RELATIVE +DEFINE BAR 16 OF Shortcut PROMPT "Grila sporuri de vechime" +ON SELECTION BAR 16 OF Shortcut do nom_tabvechimi in oproceduri_roadef_sal.prg + +DEFINE BAR 17 OF Shortcut PROMPT "Grila zile CO" +ON SELECTION BAR 17 OF Shortcut do nom_grilaco in oproceduri_roadef_sal.prg + +DEFINE BAR 18 OF Shortcut PROMPT "Nomenclator ore" +ON SELECTION BAR 18 OF Shortcut do nom_ore in oproceduri_roadef_sal.prg + +DEFINE BAR 19 OF Shortcut PROMPT "Tipuri CM" +ON SELECTION BAR 19 OF Shortcut do nom_tipcm in oproceduri_roadef_sal.prg +ACTIVATE POPUP Shortcut + +* \ No newline at end of file diff --git a/Meniuri/optiuni.mn2 b/Meniuri/optiuni.mn2 new file mode 100644 index 0000000..adba02f --- /dev/null +++ b/Meniuri/optiuni.mn2 @@ -0,0 +1,37 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="optiuni.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Optiuni \ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + DO viz_optiuni IN oinit_optiuni.prg WITH gcs +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + DO viz_optiuni WITH gcS IN oinit_optiuni.prg +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_3_OF_Shortcut_FB2P + LLL = GCS + DO viz_exceptii WITH lll +ENDPROC && BAR_3_OF_Shortcut_FB2P + +* diff --git a/Meniuri/rapoarte.mn2 b/Meniuri/rapoarte.mn2 new file mode 100644 index 0000000..39dcc88 --- /dev/null +++ b/Meniuri/rapoarte.mn2 @@ -0,0 +1,24 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="rapoarte.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Organizarea punctului de lucru" +ON SELECTION BAR 1 OF Shortcut do list_utilizatori in oproceduri_roadef.prg + +DEFINE BAR 2 OF Shortcut PROMPT "Organizarea calculatoarelor" +ON SELECTION BAR 2 OF Shortcut do list_calculatoare in oproceduri_roadef.prg + +DEFINE BAR 3 OF Shortcut PROMPT "Organizarea gestiunilor" +ON SELECTION BAR 3 OF Shortcut do list_gestiuni in oproceduri_roadef.prg + +DEFINE BAR 4 OF Shortcut PROMPT "Organizarea utilizatorilor" +ON SELECTION BAR 4 OF Shortcut do list_org_util in oproceduri_roadef.prg +ACTIVATE POPUP Shortcut + +* \ No newline at end of file diff --git a/Meniuri/roadef.mn2 b/Meniuri/roadef.mn2 new file mode 100644 index 0000000..c4cad58 --- /dev/null +++ b/Meniuri/roadef.mn2 @@ -0,0 +1,134 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="roadef.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*1 +*REPLACE + +* +DEFINE MENU _msysmenu BAR +DEFINE PAD _000000001 OF _msysmenu PROMPT "\.' + +DEFINE PAD _000000003 OF _msysmenu PROMPT "A\ + +* +PROCEDURE BAR_1_OF_Utile_FB2P + *!* do form start00 + DO start_firma IN ostartfirma.prg +ENDPROC && BAR_1_OF_Utile_FB2P + +PROCEDURE BAR_3_OF_Utile_FB2P + Do apeleaza_calc In oproceduri_comune.prg +ENDPROC && BAR_3_OF_Utile_FB2P + +PROCEDURE BAR_4_OF_Utile_FB2P + Do apeleaza_notepad In oproceduri_comune.prg +ENDPROC && BAR_4_OF_Utile_FB2P + +PROCEDURE BAR_6_OF_Utile_FB2P + ies=.t. + + DO IESIRE + +ENDPROC && BAR_6_OF_Utile_FB2P + +PROCEDURE BAR_1_OF_Ajutor_FB2P + Do arata_manual In oproceduri_comune.prg +ENDPROC && BAR_1_OF_Ajutor_FB2P + +PROCEDURE BAR_3_OF_Ajutor_FB2P + DO arata_modificari IN oproceduri_comune.prg +ENDPROC && BAR_3_OF_Ajutor_FB2P + +PROCEDURE BAR_4_OF_Ajutor_FB2P + DO arata_versiune IN oproceduri_comune.prg +ENDPROC && BAR_4_OF_Ajutor_FB2P + +* diff --git a/Meniuri/utilizatori.mn2 b/Meniuri/utilizatori.mn2 new file mode 100644 index 0000000..63ecdc3 --- /dev/null +++ b/Meniuri/utilizatori.mn2 @@ -0,0 +1,18 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="utilizatori.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Grupuri Utilizatori" +ON SELECTION BAR 1 OF Shortcut do grupuri_util in oproceduri_roadef.prg + +DEFINE BAR 2 OF Shortcut PROMPT "Utilizatorii companiei" +ON SELECTION BAR 2 OF Shortcut do util_rol_intern in oproceduri_roadef.prg +ACTIVATE POPUP Shortcut + +* \ No newline at end of file diff --git a/Programe/1proverb.prg b/Programe/1proverb.prg new file mode 100644 index 0000000..1b90d6b --- /dev/null +++ b/Programe/1proverb.prg @@ -0,0 +1,107 @@ + +WAIT WIND 'Se genereaza raportul. Asteptati...' nowait +SET SAFETY OFF +COPY FILE &DIRGEN\DEVIZE\DATE\TEMPO\PROVERB.* TO &LOC\&NFSCURT\TEMPO\PROVERB.* + +SELE 0 +USE &LOC\&NFSCURT\TEMPO\PROVERB EXCL ALIAS PROVERB +sele proverb +zap + +public m.g,m.nrinmat,m.tipauto +LOCAL M.DENUMIRE,M.CODMAT,M.CODFURN,M.CANT,M.PRET +STORE '' TO M.DENUMIRE,M.CODMAT,M.CODFURN,m.tipauto +STORE ' ' TO m.nrinmat +STORE 0 TO M.CANT,M.PRET,m.g +sele rul +set filter to subs(nrord,1,1)='G' +SCAN +m.nrord = nrord +M.DENUMIRE = DENUMIRE +M.CODMAT=CODMAT +M.CODFURN=EXP4 +M.CANT=CANTE +M.PRET=PRETV +m.fel = 'A' +do nrcirc +SELE PROVERB +APPE BLANK +GATHER MEMVAR +SELE RUL +ENDSCAN +sele OPER +set filter to subs(nrord,1,1)='G' +SCAN +m.nrord = nrord +M.DENUMIRE = DENOP +M.CODMAT=CODOP +M.CODFURN=codfurn +M.CANT=TIMPN +M.PRET=PRET +m.fel = 'B' +do nrcirc +sele oper +SELE PROVERB +APPE BLANK +GATHER MEMVAR +SELE OPER +ENDSCAN +sele proverb +set order to tag codfel +TOTAL ON DENUMIRE+STR(PRET,10) FIELDS CANT TO &LOC\&NFSCURT\TEMPO\PROVERB1 +SELE 0 +*USE C:\CONTAFIN\AUTOSTAL\TEMPO\PROVERB1 +USE &LOC\&NFSCURT\TEMPO\PROVERB1 +************** +INDEX ON TIPAUTO+CODFURN+DENUMIRE+STR(PRET,10) to &LOC\&NFSCURT\TEMPO\PROVERB1 +*************** +report format proverb TO PRINTER PROMPT preview +USE IN PROVERB +USE IN PROVERB1 +RETURN +************* +procedure nrcirc +m.g=1 +m.tipauto='' +m.nrinmat='' +do case + case subs(nrord,1,1)='/' + m.g=2 + case subs(nrord,2,1)='/' + m.g=3 + case subs(nrord,3,1)='/' + m.g=4 + case subs(nrord,4,1)='/' + m.g=5 + case subs(nrord,5,1)='/' + m.g=6 + case subs(nrord,6,1)='/' + m.g=7 + case subs(nrord,7,1)='/' + m.g=8 + case subs(nrord,8,1)='/' + m.g=9 + case subs(nrord,9,1)='/' + m.g=10 + case subs(nrord,10,1)='/' + m.g=11 + case subs(nrord,11,1)='/' + m.g=12 + case subs(nrord,12,1)='/' + m.g=13 + case subs(nrord,13,1)='/' + m.g=14 + case subs(nrord,14,1)='/' + m.g=15 + case subs(nrord,15,1)='/' + m.g=16 +endcase +m.nrinmat = subs(nrord,m.g,20-m.g) +sele masini +loca for ALLT(m.nrinmat) = ALLT(nrinmat) +if found() +m.tipauto = masina +else +m.tipauto='' +endif +return \ No newline at end of file diff --git a/Programe/actualizari.prg b/Programe/actualizari.prg new file mode 100644 index 0000000..a071f76 --- /dev/null +++ b/Programe/actualizari.prg @@ -0,0 +1,270 @@ + + +SELE CALENDAR +M=4*RECCOUNT()+4 +OP=CREA('PROGRESBAR') +op.titlu.caption='Actualizari' +OP.SHOW() + + + +close database +IF !USED('FISTOTVdev') + do deschidf with '&dirgen\devize\date\datean\','&dirgen\devize\date\datean\','fistotvdev','fistotv','CALE','' +ENDIF + +sele 0 +use &calefirma\datean\calendar alias calendar +sele calendar +J=0 +scan +scatter memvar +date=calefirma+'\AN'+m.an+'\DATE'+M.nl +if file('&date\oper.dbf') +*DO PR WITH J +*do pfactura +DO PR WITH J +do pordl +DO PR WITH J +do poper +DO PR WITH J +do popersal +DO PR WITH J +do psalarii +endif +endscan +*** +DO PR WITH J +do pclie +DO PR WITH J +DO PSECTIE +DO PR WITH J +DO PMECANICI +DO PR WITH J +do pmasini +DO PR WITH J +DO PMARCI +OP.RELEASE +RETURN + + + + +*____________________________________________ +procedure pfactura +dele file &date\facturaa.* +dele file &date\facturav.* +copy file &dirgen\devize\date\date00\factura.* to &date\facturaa.* +sele 0 +use &date\facturaa.dbf AGAIN ALIAS facturaa exclusive +sele facturaa +zap +sele facturaa +append from &date\factura +sele facturaa +reindex +use +rename &date\factura.* to &date\facturav.* +rename &date\facturaa.* to &date\factura.* +*do refRULL +return + +*____________________________________________ +procedure psalarii +dele file &date\salariia.* +dele file &date\salariiv.* +copy file &dirgen\devize\date\date00\salarii.* to &date\salariia.* +sele 0 +use &date\salariia.dbf AGAIN ALIAS salariia exclusive +sele salariia +zap +sele salariia +append from &date\salarii +sele salariia +reindex +use +rename &date\salarii.* to &date\salariiv.* +rename &date\salariia.* to &date\salarii.* +*do refRULL +return + +*____________________________________________ +procedure pordl +dele file &date\ordla.* +dele file &date\ordlv.* +copy file &dirgen\devize\date\date00\ordl.* to &date\ordla.* +sele 0 +use &date\ordla.dbf AGAIN ALIAS ordla exclusive +sele ordla +zap +sele ordla +append from &date\ordl +sele ordla +reindex +use +rename &date\ordl.* to &date\ordlv.* +rename &date\ordla.* to &date\ordl.* +&&&&&&do refact +return + + +*____________________________________________ +procedure poper +dele file &date\opera.* +dele file &date\operv.* +copy file &dirgen\devize\date\date00\oper.* to &date\opera.* +sele 0 +use &date\opera.dbf AGAIN ALIAS opera exclusive +sele opera +zap +sele opera +append from &date\oper +sele opera +reindex +use +rename &date\oper.* to &date\operv.* +rename &date\opera.* to &date\oper.* + +return + +*____________________________________________ +procedure popersal +dele file &date\opersala.* +dele file &date\opersalv.* +copy file &dirgen\devize\date\date00\opersal.* to &date\opersala.* +sele 0 +use &date\opersala.dbf AGAIN ALIAS opersala exclusive +sele opersala +zap +sele opersala +append from &date\opersal +sele opersala +reindex +use +rename &date\opersal.* to &date\opersalv.* +rename &date\opersala.* to &date\opersal.* + +return + + +*______________________________________________________________ +procedure pclie +dele file &calefirma\datean\cliea.* +dele file &calefirma\datean\cliev.* +copy file &dirgen\devize\date\datean\clie.* to &calefirma\datean\cliea.* +sele 0 +use &calefirma\datean\cliea.dbf AGAIN ALIAS cliea exclusive +sele cliea +zap +sele cliea +append from &calefirma\datean\clie +sele cliea +reindex +use + +rename &calefirma\datean\clie.* to &calefirma\datean\cliev.* +rename &calefirma\datean\cliea.* to &calefirma\datean\clie.* +*DO refRUL +return + +*______________________________________________________________ +procedure pSECTIE +dele file &calefirma\datean\SECTIEa.* +dele file &calefirma\datean\SECTIEv.* +copy file &dirgen\devize\date\datean\SECTIE.* to &calefirma\datean\SECTIEa.* +sele 0 +use &calefirma\datean\SECTIEa.dbf AGAIN ALIAS SECTIEa exclusive +sele SECTIEa +zap +sele SECTIEa +append from &calefirma\datean\SECTIE +sele SECTIEa +reindex +use + +rename &calefirma\datean\SECTIE.* to &calefirma\datean\SECTIEv.* +rename &calefirma\datean\SECTIEa.* to &calefirma\datean\SECTIE.* +*DO refRUL +return + +*______________________________________________________________ +procedure pMECANICI +dele file &calefirma\datean\MECANICIa.* +dele file &calefirma\datean\MECANICIv.* +copy file &dirgen\devize\date\datean\MECANICI.* to &calefirma\datean\MECANICIa.* +sele 0 +use &calefirma\datean\MECANICIa.dbf AGAIN ALIAS MECANICIa exclusive +sele MECANICIa +zap +sele MECANICIa +append from &calefirma\datean\MECANICI +sele MECANICIa +reindex +use + +rename &calefirma\datean\MECANICI.* to &calefirma\datean\MECANICIv.* +rename &calefirma\datean\MECANICIa.* to &calefirma\datean\MECANICI.* +*DO refRUL +return + + + + +*______________________________________________________________ +procedure pmasini +dele file &calefirma\datean\masinia.* +dele file &calefirma\datean\masiniv.* +copy file &dirgen\devize\date\datean\masini.* to &calefirma\datean\masinia.* +sele 0 +use &calefirma\datean\masinia.dbf AGAIN ALIAS masinia exclusive +sele masinia +zap +sele masinia +append from &calefirma\datean\masini +sele masinia +reindex +use + +rename &calefirma\datean\masini.* to &calefirma\datean\masiniv.* +rename &calefirma\datean\masinia.* to &calefirma\datean\masini.* +return + +*______________________________________________________________ +procedure pMARCI +dele file &calefirma\datean\MARCIa.* +dele file &calefirma\datean\MARCIv.* +copy file &dirgen\devize\date\datean\MARCI.* to &calefirma\datean\MARCIa.* +sele 0 +use &calefirma\datean\MARCIa.dbf AGAIN ALIAS MARCIa exclusive +sele MARCIa +zap +sele MARCIa +append from &calefirma\datean\MARCI +sele MARCIa +reindex +use + +rename &calefirma\datean\MARCI.* to &calefirma\datean\MARCIv.* +rename &calefirma\datean\MARCIa.* to &calefirma\datean\MARCI.* +return + + + +*____________________________________ +PROC PR +PARAM J +IF J>M +RETURN +ENDIF +OP.PRBAR.VALUE=J +OP.P=ROUND(100*OP.PRBAR.VALUE/OP.PRBAR.MAX,2) +OP.REFRESH +J=J+1 +RETURN + + + + + + + diff --git a/Programe/genhtml.dbf b/Programe/genhtml.dbf new file mode 100644 index 0000000000000000000000000000000000000000..d357b9a1f6b6bf397e48029a719153534c3a9ed1 GIT binary patch literal 7337 zcmeHLe~cqz819`*oH&X29r0uQA@S?z?sd04+#hXcc3anJt25oZy+mTRo!uL{+ci6j z75+F9L=Zs)5#)jhB8VV@2qK6ef(RmrAaaBwf(V|k({^XxdE2j>UH|!#uYI5Q`QGPy z=9{ly+lklKZ;HoavD}8M@fvRH4~WIg$+FhYX4fIu6dn@GtKCHQ5QN8cp&u0T#qEY4 z>L=rU1K~|=r`b;Fr!u^%8QBiMnc=gAv|$v}I!x+Az4$^t14PZ}mkhH#K%ZpzoR(G%GhKlN{em96R%~qo-D3DmNuBJ}+dcSBy~FU; zvYIxvmcBU)ej{1IY)RL(Vrzl)MXuh^DoBf_FX4smzX`2kM3i?Utr=W{tSG3d6Pj5xbFJ~-=14WzzeJ!R04tbSWgK>ZeZZOsPBH~h3no?>M;!Q@fGk9C zk~)C+f>^5-aUeDUnO{+YvrPlc1QV-_!wwA3@|;@4fD)W!H-PvOT&t!ioc|+{bmxQ_n=4r ziga|A->+E?2a3WDc4Xr5L~1m2{Q?N7YtgS0L7#R#xEuQL92IpiGQ>N$5#={=5`o;! zh;IqtK|;pCmLYZxZiU=!63N@a-ys=8X~sc4-=lR?J8aGYI(M#2GI2hq~;xmwXRwDNt_~#{KD9tz+0T*l)g#J34ROsZIYA0sDsqdR@T8gka|}l_a6B7 zC1WTZaWFL8<5d0tr61CAf)*2mN@U=3zU9I z%L)Dp_-m4rLC!&n-3Q-5>RXB2ci_L5jG=VYK{COAJMTm3544=%AAx@&IT?&PNF@^N z8tjMEFA}+5!T%;1Lut+de;)jf(m!Z9!G8k(MRGF8IpBBV-;laeBKHsYD(b1k=iw1b zwpkB6((9)nxC8$K2i?nW1u_S_WCQx};WaR9FVn0qPSo(-`sqNip@F46! zwLGhA%{X&2D_es@*X%Bgxz?<0)Ldsi{76%FMatSaa2lTNMlHx3Y?BS>!-wwz?ttC? nFobSHAAuINZdGfrBfl$MQT+*nanQogE0|&b3dRci%CY|fXciQ> literal 0 HcmV?d00001 diff --git a/Programe/genhtml.fpt b/Programe/genhtml.fpt new file mode 100644 index 0000000000000000000000000000000000000000..3f89f2d859c23dd1458860f2b6ff240a85dc3987 GIT binary patch literal 31936 zcmeHQ{c;;ea;MI&l*uz~+2972o2g!@1DwW5$CrDKuAo=}fcJW1gEC3OpOMuJ5a(8;Vr@N=8r+2!s zv~=fxmzI`(kN+2+_mcy6Fzk;VI|!S$yv&qp^`)mvkC&GI``diY6l`9 zW>L0-x?^4iqHKnyxbXa%8HTbfY*&~fG)oP~^aUDtjZj?LVO3n%(kTnea~d^QRHa## zevlEXE2}FVy`pgx!l2(Ri=T*{KDn-v)VW7Bh*wp$TF z&2$_QdZOl`cQcg2ta%ML41{-~=*);>RSJ+)2UQj6sz#uhgHoIcJYk2zGF?%Uq7i@u zMSINy!-%oudzS$TA0h4Qyd?j-_3wI{VRs1stCM1HNp_nU6?*BnFHGt zwJ+1gxn|R@(8h&T-)mH=ku{7h-Hf%F=<*>=W&nbuh&jE-)nV6jL*H}6Wz|+w@LwCY zk9J44<$Hm55sJJUO5c^C*neHenks#|PE$RI0vHzG#$9lG4^%SMCW|i%hZOqYz=|pP> z*Z!F<6t{kAB@!a#KkxasiutFP!0~4w>Ho50{%Id3`4UL@{_`){3P|{A{jV?L`FCi; z^Yty5W79#uNj}8?e_Mg&+w~A;)~z()eCL`aeP^3WdeLw#`lo^>_P};v(^F0T{nB(A zGQGO8{N~O1iP}S1Y*g^Aw{J6E>0hK3W^_xD6aCt7SKyZe$!6F`1gSS~if22=g;dm? z`@(i#sYmIzZ_}A$vnIuFgn`}+e0NeYfQU1R&Ql-}I}Z_$grnN}x;4Zkd>Yh-{CjHU zYv5Xbk7RxKY(4vA^YJ-0j*(eDYq$l)-;`01Avc+-xdEaE^_u)X@qZiR-aL#gxsymPi!`0@GK&go%(xA3EZyB+kfP3C$207}1X z9m`9l;88C-dwb6csek%Ip?JDeJWNGAu}&Hx8>G|s2lNA`9OPf@w}!1+YktJ{yD-rV zE$^P3ey_kp4_xs?-RXo-0HqQOM`S?*GQ(|T3Gh6YwR7cpD6jv6Poc-<{I|Ndd8T*m%E zl-f9K8f0##;&@WOy#sq9{I3ewxl}6PX}bqLOY#Byor5hHAV8arU2$`c#LmZ(juX^P z3%kGEL-kkPESJ?^SW|`A3Vrp>tMc}i?J{!309a1DvBECrE^Hs+sV0}$oFT-YwuCUY zx4uSu_Am^R!?-jN4`~4>hed3z8+1D{S}w6IjN5xzsA>p5B^Zh0ourJG_##=P2Ud?<9Si=8JU;fvza~aJL!hiJKH!m&_9mMsx zAHx6kIYMlFA;Sn=Q1{I%1PyIB6ebLE)od~l2}c3DpKjeDF2eu5d;Hf0zIjdHyIu`1 zoC+qQm`4TjVbTxr$NsZ^|JGW>b8!Uj(*6mHS@0vi1ImwneyrJq|0VaF;!wSNnq>Yx zfd7EGhA6G_qb#U8*vG)FO9v|oy@H7i-;zBnB>q18zi(!_|C`qT`7g&R+M#m!BTXhR zGwNO@AIe&XryDix*keSylbshYif8$wRMa3%SJ&}WAM6cYU*{|V$6;ww#^Hvsw$alx zgNMYL>euBz!X&mj&A55IPki0-$R|)jr9UrZxq{#{m+*1BApCE%{y4f9ZNQb`hX08d zr9R)AI=zY$AtL-$#2Kr2xD$rH4Hpo*(H}|`Wsq`41vA?CV{1EU75Dl!d-H~2?4y&t zRQ|Y_N}cWR9-pMr53=d6vuQ9HQSE#8*6vk&DcyUBrm)9xM|-_J>HqA=^y&YO?>%e# zGp+vqF5a+h!~u}?%_lROfgFGD{GT0m&A%^Ths(+`jxPezKP~^S#h=z6WoN{GwSHaW z|Lo8!{GXnA*q2YD{qIKq`|$r^c18p;!FBTWmOXeIoYXl>K=$*Y)@D%+M?T zeMCEnJIZGvvd{ydp4|7V6?@&8MN|M3RAEGm5c zJ)R71ivN%1YX6_i3ca>JdyPp{Uj>tHhW}5pPv^=1*`Zhb|K!Y^aQAyd@rUfj%mM(^ zpWgV-4ACq8-~A5nSjMzFO8N26jp%=NnEydt>~6xIS0@&knuT zf2_a$trdur|Fg40ulaw-`2To*&&}GO$D8wvKWAr$Uh)6a=e~Wb_Fp)Fyg5(( zpB;L||IZ6`9E|LG0hvtwZp{8a*_@RF-q-(`9eT}woL_Nmq^wP_0F(Y}@2{Z0Gh9FK zoKJ9mQ=MB(c8;^|%O+Erm_|b4q9e1@(zdldVl-ze zS!S21?_&)@%Wc>Ic+$9=d@+I+GUtF`ltd3dz^0zgMltu{t>GVAdyucr!1N!mCqC>vBt9OoMbq`)WHQnILPrqViPAcCn4K%_{%P@ z3OF1I#a!D(g~P5kN`}HpAc$REaPgRW%FfCz^u@qAweHQ&ghhzl%c*ijC7`q zGknNfU~<`Tilaoa^>ilAKI>6G3WF*Sg8ItA#k0PmYvXOpx=U#2v4h`~SsR3B5Ov<$ zVDkg`fg-~R{o$QmpZ!UMG@)!c9YO7F5^aBTfcgL7fA*XID&r1DK%3}5I><%Tl1X_= zyl37eCn1=AEpu_O1amFejF!i7qgIkW`Z+{?f2A76U8jt8$A@^J9`5o)HP&>Em#6jm zcmZS2l_BION~-LfMnQX3Yt!GF4Y2Ag+j144s*1F#$QIT1Pp`uf9j(?G)s{!|X%}&v zyjFK)D2-0b)Jr=t;9V~31^|ZpT1P@q`@Eq{t=34r*iveP=eb9h|ae8bY>#wYKazI!`BBSLy zGGBMWb%?BUjf$ItJ}yvg0^99rwd?4SnE_}{>lP!}YPnj=%MzT@%!o`%d)R99IJBw( zi7M(xbEUnGMQn=uN2^#D6k0alZg>*zNZHM&bi=D(*a;QKxt_?G25R7MNf# z#c?n^s2B{ZMc$YEU%#x2I?csX6vS zB+dl3Yq73NtDuRltD?9Xtm!0;&MY7#0KtZs<)#TZ7B>o6O(qaEBzUk=O3PBAeoS5Z z&XumamA~Mrb5&hNzQ%o9y39jll^J-jwE*>6Br4A^StJs$mN>{_ufDuM6_;uRq52gm zJ0mk|c&y8Unf1CfeY8lgDO4or(&Vnh6M9)ty(7VscKm{w{klXK42LSzLqi&S-fG;T zjRb7usswE+wKGUEXk@ShWZ5pJxeB*Y!>BCL)4zYEkrRZ2>wHYgpzT%UXIY&zVL+ae z$eO6&!V`s1)?v7i^T95V9?djLih&y*b+4xr0NxKwbju`qB)uILAmP3?GsJ4L^Nn)c-)?k%k89gjB_gUW}W?hSh(QpsC;h?w-SoGb^wMt{$ zf_>Y>>mc-R>CZ@X7cY0tR6T@l(`j?XgdI$KWl>e~!Z=r!VfR=-z!u_j7 z5q{qIr{&+Y_HSDJ)7sBP{AS_*F8tp`{BrU8XFQ^ 0 +*!* SET ORDER TO ordine +*!* REPORT FORM mesaje TO PRINTER PROMPT PREVIEW +*!* ENDIF + pcTitlu=[VERIFICARE GLOBALA] + pcPerioada=[Perioada ] + pcdataora = get_ora(2) + SELECT crsverificari + REPORT FORM rap_mesaje TO PRINTER PROMPT preview +ENDPROC \ No newline at end of file diff --git a/Programe/oparteneri.prg b/Programe/oparteneri.prg new file mode 100644 index 0000000..5d7ecaa --- /dev/null +++ b/Programe/oparteneri.prg @@ -0,0 +1,687 @@ + +*!* APEL DE PROCEDURA +*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + +*----------------------------------------------------------- + +PROCEDURE lans_ireg_parteneri + PARAMETERS tlTest,tcCont,tlactiv,tlTitluTot,tcDenumire,tcDenDebit,tcDenCredit + *!* tlTitluTot = daca denumirea titlului este totala i.e.: Nu trebuie sa mai adaug Balanta parteneri + *!* tcDenumire = titlul balantei + *!* tcDenDebit = peste tot pe unde apare debit se va inlocui cu aceasta denumire + *!* tcDenCredit = peste tot pe unde apare credit se va inlocui cu aceasta denumire + + LOCAL lcCont, llActiv, llParametri,llTitluTot,lcDenumire,lcDenDebit,lcDenCredit + llParametri = .F. + + IF EMPTY(tlTitluTot) + llTitluTot = .F. + ELSE + llTitluTot = tlTitluTot + ENDIF + + IF EMPTY(tcDenumire) + lcDenumire = "" + ELSE + lcDenumire= tcDenumire + ENDIF + + IF EMPTY(tcDenDebit) + lcDenDebit = "Debit" + ELSE + lcDenDebit = tcDenDebit + ENDIF + IF EMPTY(tcDenCredit) + lcDenCredit = "Credit" + ELSE + lcDenCredit = tcDenCredit + ENDIF + + IF !EMPTY(tcCont) + lcCont = ALLTRIM(tcCont) + ELSE + lcCont = '' + ENDIF + + IF !EMPTY(tlactiv) + llActiv = tlactiv + ELSE + llActiv = .F. + ENDIF + + llParametri = .F. + *If PCOUNT() = 3 + *!* IF !EMPTY(tlActiv) AND !EMPTY(tcCont) AND !EMPTY(tlActiv) + *!* llParametri = .T. + *!* Endif + IF !EMPTY(tcCont) + llParametri = .T. + ENDIF + LOCAL NOU, lnTdeb, lnTcred, lnSold, lcContPart, lclista + STORE 0 TO lnTdeb, lnTcred, lnSold + NOU=.T. + + IF glPrimaLuna + NOU = .F. + ENDIF + + PRIVATE plActiv + STORE .T. TO plActiv + PRIVATE eActiv + STORE .T. TO eActiv + IF !llParametri + PRIVATE polista,pcschema1,pcselect1,pcfiltru1,pcorder1 + STORE "" TO polista + IF USED('clista') + USE IN clista + ENDIF + pcschema1=['cont c(4),acont c(4),explicatie c(50)'] + pcselect1=['select distinct cont,rpad(CHR(32),4,CHR(32)) as acont,explicatie from ]+gcS+[.vcoresp_tip_cont where 1=2'] + pcfiltru1=[2=2] + pcorder1=[cont] + llAfisare=.F. + gencursor('polista','clista',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare) + polista.ca_baza1.afisare() + + SELECT clista + loCont=myscatter('blank') + + Ol=CREATEOBJECT("frm_sel_cont") + WITH Ol + .Lb_titlu_alb_b121.CAPTION= 'Selectati contul' + IF EMPTY(.cboCont.ROWSOURCE) + .cboCont.ROWSOURCE="clista.cont,acont" + ENDIF + .ocont=loCont + IF EMPTY(.cAlias) + .cAlias=LEFT(.cboCont.ROWSOURCE,AT(".",.cboCont.ROWSOURCE)-1) + ENDIF + .HEIGHT = 190 + ENDWITH + Ol.SHOW(1) + + IF buton = 2 + USE IN clista + RETURN + ENDIF + + lcContPart = loCont.CONT + IF !llTitluTot AND EMPTY(lcDenumire) + lcDenumire = "Inregistrari " + ALLTRIM(clista.explicatie) + "( " + lcContPart + " )" + ELSE + IF !EMPTY(lcDenumire) AND !llTitluTot + lcDenumire = "Inregistrari " + lcDenumire + "( " + lcContPart + " )" + ENDIF + ENDIF + USE IN clista + plActiv = eActiv + ELSE + eActiv = llActiv + plActiv = llActiv + lcContPart = lcCont + IF !llTitluTot AND EMPTY(lcDenumire) + lcDenumire = "Inregistrari " + "( " + lcContPart + " )" + ELSE + IF !EMPTY(lcDenumire) AND !llTitluTot + lcDenumire = "Inregistrari " + lcDenumire + "( " + lcContPart + " )" + ENDIF + ENDIF + ENDIF + + + *** verificare INAINTE_DE + DO inainte WITH "IREG_PARTENERI",lcContPart IN oinainte_de.prg + IF tlTest + DO test_ireg WITH lcContPart,llActiv + ENDIF + + pcCont = lcContPart + + PRIVATE poireg_parteneri,pcschema1,pcselect1 + STORE '' TO poireg_parteneri + pcschema1 = ['id_ireg_part n(20),an n(4), luna n(2),ID_FACT N(20),id_part n(20),cont c(4),acont c(4), ID_VALUTA N(5), ID_VENCHELT N(5), PROC_TVA N(8,2),' +] + ; + ['PRECDEB N(20,4),PRECCRED N(20,4),PRECVALDEB N(20,4),PRECVALCRED N(20,4),' +] + ; + ['debit n(20,4),credit n(20,4),valdebit n(20,4), valcredit n(20,4),' +] + ; + ['NRACT N(14),DATAACT D,DATAIREG D,DATASCAD D,CURS N(9,3),' +] + ; + ['COD N(20),EXPLICATIA C(100),EXPLICATIA4 C(100),EXPLICATIA5 C(100), ' +] + ; + ['ID_RESPONSABIL N(5),ID_FDOC N(5),ID_LUCRARE N(5),ID_SET N(20),ID_ACT N(20),' +] + ; + ['NUME C(100),COD_FISCAL C(30),FDOC C(50),NRESP C(50),NRORD C(50),NUME_VAL C(10),VENCHELT C(50)' ] + +pcselect1=['SELECT I.ID_IREG_PART, I.AN, I.LUNA, ID_FACT, I.ID_PART, I.CONT, I.ACONT, I.ID_VALUTA, I.ID_VENCHELT, I.PROC_TVA,' + ] +; +['I.PRECDEB, I.PRECCRED, I.PRECVALDEB, I.PRECVALCRED, ' + ] +; +['I.DEBIT, I.CREDIT, I.VALDEBIT, I.VALCREDIT, ' + ] +; +['I.NRACT, I.DATAACT, I.DATAIREG, I.DATASCAD, I.CURS,' + ] +; +['I.COD, I.EXPLICATIA, I.EXPLICATIA4, I.EXPLICATIA5,' + ] +; +['I.ID_RESPONSABIL, I.ID_FDOC, I.ID_LUCRARE, I.ID_SET, I.ID_ACT,' + ] +; +['I.NUME,I.COD_FISCAL,I.FDOC,I.NRESP,I.NRORD,I.NUME_VAL,I.VENCHELT' + ] + ; +[' FROM ] + GCS + [.VIREG_PARTENERI I WHERE 1=2'] + +*!* pcselect1=['select i.*,p.cod_fiscal from ] + gcS + [.vireg_parteneri i join ] + gcS + ; +*!* [.vnom_parteneri p on p.id_part = i.id_part where 1=2'] + pcorder1=[dataact] + pcfiltru1 = [1=2] + *!* pcfiltru1 = [cont = '] + Alltrim(pcCont) + [' and luna = ] + Alltrim(Str(gnLuna)) + [ and an = ] + Alltrim(Str(gnAn)) + gencursor('poireg_parteneri','actcv',pcselect1,pcfiltru1,pcschema1,pcorder1) + poireg_parteneri.ca_baza1.afisare() + + + SELECT actcv + + tcFis2 = "ActCv" + tlVisible = .T. + + LOCAL c + c="nume+ALLTRIM(STR(YEAR(dataact)))+RIGHT('0'+ALLTRIM(STR(MONTH(dataact))),2)+RIGHT('0'+ALLTRIM(STR(DAY(dataact))),2)" + buton=1 + + IF tlTest AND .F. + + PRIVATE pcCampVerif + pcCampVerif = ofis.camp_verif + SELECT (tcFis2) + SET FILTER TO + lcProc='inainte_'+ALLTRIM(tcFis2) + DO &lcProc IN inaintede.prg + IF buton=2 + RETURN + ENDIF + ENDIF + + SELE actcv + + + PRIVATE pcAnalitic,pcLucrare + STORE '' TO pcAnalitic,pcLucrare + + Oreg=CREATEOBJECT("FRM_IREG_PARTENERI") + WITH Oreg + .lActiv = llActiv + .cCont = lcContPart + *!* .LABEL10.Caption=Proper(tctitlu)&&& trebuie facut + .LABEL10.CAPTION= PROPER(lcDenumire) + .grid1.column12.VISIBLE=.T. + .CONT=ALLT(pcCont) + .fisier=ALLTRIM(tcFis2) + .Ck_valuta.VISIBLE=tlVisible + .CK_explicatia.VISIBLE=tlVisible + .CHECK7.VISIBLE=tlVisible + .CHECK9.VISIBLE=tlVisible + .grid1.column2.VISIBLE=tlVisible + .grid1.column11.VISIBLE=tlVisible + .grid1.column13.VISIBLE=tlVisible + .grid1.column14.VISIBLE=tlVisible + .grid1.column7.VISIBLE=tlVisible + .grid1.column8.VISIBLE=tlVisible + .grid1.column10.VISIBLE=tlVisible + IF !tlVisible + .CHECK3.CAPTION='Regularizate' + .CHECK4.CAPTION='Neregularizate' + .check10.CAPTION='Regularizat' + .grid1.column12.header1.CAPTION='Regularizat' + .grid1.column2.WIDTH=0 + ENDIF + IF !plActiv + + .grid1.column9.CONTROLSOURCE = "(preccred+credit)-(precdeb+debit)" + .grid1.column14.CONTROLSOURCE ="(precvalcred+valcredit)-(precvaldeb+valdebit)" + .ck_sold.camp_nume = "credit+preccred-precdeb-debit" + .grid1.column1.CONTROLSOURCE = "preccred+credit" + .grid1.column12.CONTROLSOURCE = "precdeb+debit" + .grid1.column11.CONTROLSOURCE = "precvalcred+valcredit" + .grid1.column13.CONTROLSOURCE = "precvaldeb+valdebit" + .grid1.column20.CONTROLSOURCE = "credit" + .grid1.column21.CONTROLSOURCE = "debit" + .grid1.column22.CONTROLSOURCE = "valcredit" + .grid1.column23.CONTROLSOURCE = "valdebit" + .grid1.column18.CONTROLSOURCE = "preccred" + .grid1.column19.CONTROLSOURCE = "precdeb" + + .grid1.column1.header1.CAPTION = "Total " + lcDenCredit + .grid1.column12.header1.CAPTION = "Total " + lcDenDebit + .grid1.column11.header11.CAPTION = "Total " + lcDenCredit + " valuta" + .grid1.column13.header1.CAPTION = "Total " + lcDenDebit + " valuta" + .grid1.column20.header1.CAPTION = lcDenCredit + .grid1.column21.header1.CAPTION = lcDenDebit + .grid1.column22.header1.CAPTION = lcDenCredit + " valuta" + .grid1.column23.header1.CAPTION = lcDenDebit + " valuta" + .grid1.column18.header1.CAPTION = "Prec " + lcDenCredit + .grid1.column19.header1.CAPTION = "Prec " + lcDenDebit + ELSE + .grid1.column9.CONTROLSOURCE = "(precdeb+debit)-(preccred+credit)" + .grid1.column14.CONTROLSOURCE ="(precvaldeb+valdebit)-(precvalcred+valcredit)" + .ck_sold.camp_nume = "precdeb+debit-credit-preccred" + .grid1.column1.header1.CAPTION = "Total " + lcDenDebit + .grid1.column12.header1.CAPTION = "Total " + lcDenCredit + .grid1.column11.header11.CAPTION = "Total " + lcDenDebit + " valuta" + .grid1.column13.header1.CAPTION = "Total " + lcDenCredit + " valuta" + .grid1.column20.header1.CAPTION = lcDenDebit + .grid1.column21.header1.CAPTION = lcDenCredit + .grid1.column22.header1.CAPTION = lcDenDebit + " valuta" + .grid1.column23.header1.CAPTION = lcDenCredit + " valuta" + .grid1.column18.header1.CAPTION = "Prec " + lcDenDebit + .grid1.column19.header1.CAPTION = "Prec " + lcDenCredit + ENDIF + IF TYPE('pcTotctva')#'U' AND TYPE('pcAchitat')#'U' + .grid1.column12.header1.CAPTION=pcAchitat + .grid1.column1.header1.CAPTION=pcTotctva + ENDIF + IF TYPE('pcSumaTotal')#'U' AND TYPE('pcSumaAchi')#'U' + .CHECK13.CAPTION=pcSumaTotal + .check10.CAPTION=pcSumaAchi + ENDIF + IF TYPE('actcv.nresp') # 'U' + .grid1.column17.VISIBLE= .T. + .grid1.column17.CONTROLSOURCE = 'nresp' + .Ck_responsabil.VISIBLE = .T. + ENDIF + ENDWITH + Oreg.SHOW(1) + *!* Select actcv + *!* If Used('actcv') + *!* Use In actcv + *!* Endif + *!* Release ofis + RELEASE Oreg + USE IN actcv + +ENDPROC && lans_ireg_parteneri +*--------------------------------------------------------------------------------- + +PROCEDURE lans_balanta_parteneri + LPARAMETERS tcCont,tlactiv,tlTitluTot,tcDenumire,tcDenDebit,tcDenCredit &&initital cu 2 parametrii + *!* tlTitluTot = daca denumirea titlului este totala i.e.: Nu trebuie sa mai adaug Balanta parteneri + *!* tcDenumire = titlul balantei + *!* tcDenDebit = peste tot pe unde apare debit se va inlocui cu aceasta denumire + *!* tcDenCredit = peste tot pe unde apare credit se va inlocui cu aceasta denumire + + LOCAL llParametri, lcCont, llActiv,llTitluTot,lcDenumire,lcDenDebit,lcDenCredit + + llParametri = .F. + lcCont = '' + llActiv = .F. + IF EMPTY(tlTitluTot) + llTitluTot = .F. + ELSE + llTitluTot = tlTitluTot + ENDIF + + IF EMPTY(tcDenumire) + lcDenumire = "" + ELSE + lcDenumire= tcDenumire + ENDIF + + IF EMPTY(tcDenDebit) + lcDenDebit = "Debit" + ELSE + lcDenDebit = tcDenDebit + ENDIF + IF EMPTY(tcDenCredit) + lcDenCredit = "Credit" + ELSE + lcDenCredit = tcDenCredit + ENDIF + *!* IF PCOUNT() < 2 + IF EMPTY(tcCont) AND EMPTY(tlactiv) + llParametri = .F. + ELSE + llParametri = .T. + lcCont = ALLTRIM(tcCont) + llActiv = tlactiv + ENDIF + + LOCAL NOU, lnTdeb, lnTcred, lnSold, lcContPart, lclista + STORE 0 TO lnTdeb, lnTcred, lnSold + NOU=.T. + + IF .F. + SELECT calendar + GO TOP + IF an=pcAn AND NL=pcNl + NOU=.F. + ENDIF + ENDIF + *!* IF glPrimaLuna + *!* nou = .F. + *!* ENDIF + + PRIVATE polista,pcschema1,pcselect1,pcfiltru1,pcorder1 + STORE "" TO polista + + + IF !llParametri + + IF USED('clista') + USE IN clista + ENDIF + + + pcschema1=['cont c(4),acont c(4),explicatie c(50)'] + pcselect1=['select distinct cont,rpad(CHR(32),4,CHR(32)) as acont,explicatie from ]+gcS+[.vcoresp_tip_cont where 1=2'] + pcfiltru1=[2=2] + pcorder1=[cont] + llAfisare=.F. + gencursor('polista','clista',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare) + polista.ca_baza1.afisare() + + *!* SELECT DISTINCT cont, '' as acont FROM coresp_tip_cont INTO CURSOR clista + SELECT clista + loCont=myscatter('blank') + + PRIVATE eActiv + STORE .T. TO eActiv + + Ol=CREATEOBJECT("frm_sel_cont") + WITH Ol + .Lb_titlu_alb_b121.CAPTION= 'Selectati contul' + IF EMPTY(.cboCont.ROWSOURCE) + .cboCont.ROWSOURCE="clista.cont,acont" + ENDIF + .ocont=loCont + IF EMPTY(.cAlias) + .cAlias=LEFT(.cboCont.ROWSOURCE,AT(".",.cboCont.ROWSOURCE)-1) + ENDIF + .HEIGHT = 190 + ENDWITH + Ol.SHOW(1) + + IF buton = 2 + USE IN clista + RETURN + ENDIF + + lcContPart = loCont.CONT + IF !llTitluTot AND EMPTY(lcDenumire) + lcDenumire = "Balanta " + ALLTRIM(clista.explicatie) + "( " + lcContPart + " )" + ELSE + IF !EMPTY(lcDenumire) AND !llTitluTot + lcDenumire = "Balanta " + lcDenumire + "( " + lcContPart + " )" + ENDIF + ENDIF + USE IN clista + ELSE + lcContPart = lcCont + eActiv = llActiv + + IF !llTitluTot AND EMPTY(lcDenumire) + lcDenumire = "Balanta " + "( " + lcContPart + " )" + ELSE + IF !EMPTY(lcDenumire) AND !llTitluTot + lcDenumire = "Balanta " + lcDenumire + "( " + lcContPart + " )" + ENDIF + ENDIF + ENDIF + + IF eActiv + lnSemn = -1 + ELSE + lnSemn = 1 + ENDIF + + + *** verificare INAINTE_DE + DO inainte WITH "BALANTA_parteneri",lcContPart IN oinainte_de.prg + + + + + PRIVATE pobalpartext,pcschema2,pcselect2,pcfiltru2,pcorder2,pobalpartint,pcschema3,pcselect3,pcfiltru3,pcorder3,pcgroup3 + STORE "" TO pobalpartext,pobalpartint + pcschema2=['PRECDEB1 N(19,2),PRECCRED1 N(19,2),PRECDEB N(19,2),PRECCRED N(19,2),'+]+; + ['DEB N(19,2),CRED N(19,2),PRECVALDEB1 N(19,2),PRECVALCRED1 N(19,2),PRECVALDEB N(19,2),'+]+; + ['PRECVALCRED N(19,2),VALDEBIT N(19,2),VALCREDIT N(19,2),NUME_VAL C(5),ID_PART N(10),'+]+; + ['NUME C(50),COD_FISCAL C(30),CONT C(4),ACONT C(4),AN N(4),LUNA N(2),TOTCRED N(19,2),TOTDEB N(19,2),'+]+; + ['TOTVALCRED N(19,2),TOTVALDEB N(19,2),ID_VALUTA N(5)'] + pcselect2=['select PRECDEB1,PRECCRED1,PRECDEB,PRECCRED,'+]+; + ['DEBIT as DEB,CREDIT as CRED,PRECVALDEB1,PRECVALCRED1,PRECVALDEB,'+]+; + ['PRECVALCRED,VALDEBIT,VALCREDIT,NUME_VAL,ID_PART,'+]+; + ['NUME,COD_FISCAL,CONT,ACONT,AN,LUNA,'+]+; + ['PRECCRED+CREDIT as TOTCRED,PRECDEB+DEBIT as TOTDEB,'+]+; + ['PRECVALCRED+VALCREDIT as TOTVALCRED,PRECVALDEB+VALDEBIT as TOTVALDEB,ID_VALUTA '+]+; + ['from ]+gcS+[.vbalanta_parteneri where 1=2'] + pcfiltru2=[1=2] + pcorder2=[nume,acont] + llAfisare=.F. + gencursor('pobalpartext','xtemp',pcselect2,pcfiltru2,[''],pcorder2,llAfisare) + pobalpartext.ca_baza1.afisare() + + pcschema3=['PRECDEB1 N(19,2),PRECCRED1 N(19,2),PRECDEB N(19,2),PRECCRED N(19,2),'+]+; + ['DEB N(19,2),CRED N(19,2),PRECVALDEB1 N(19,2),PRECVALCRED1 N(19,2),PRECVALDEB N(19,2),'+]+; + ['PRECVALCRED N(19,2),VALDEBIT N(19,2),VALCREDIT N(19,2),NUME_VAL C(5),ID_PART N(10),'+]+; + ['NUME C(50),COD_FISCAL C(30),CONT C(4),ACONT C(4),AN N(4),LUNA N(2),TOTCRED N(19,2),TOTDEB N(19,2),'+]+; + ['TOTVALCRED N(19,2),TOTVALDEB N(19,2),ID_VALUTA N(5)'] + pcselect3=['select SUM(PRECDEB1) AS PRECDEB1,SUM(PRECCRED1) AS PRECCRED1,SUM(PRECDEB) AS PRECDEB,SUM(PRECCRED) AS PRECCRED,'+]+; + ['SUM(DEBIT) as DEB,SUM(CREDIT) as CRED,0 AS PRECVALDEB1,0 AS PRECVALCRED1,0 AS PRECVALDEB,'+]+; + ["0 AS PRECVALCRED,0 AS VALDEBIT,0 AS VALCREDIT,'LEI' AS NUME_VAL,ID_PART,"+]+; + ['NUME,COD_FISCAL,CONT,ACONT,AN,LUNA,'+]+; + ['SUM(PRECCRED+CREDIT) as TOTCRED,SUM(PRECDEB+DEBIT) as TOTDEB,'+]+; + ['SUM(PRECVALCRED+VALCREDIT) as TOTVALCRED,SUM(PRECVALDEB+VALDEBIT) as TOTVALDEB,0 AS ID_VALUTA '+]+; + ['from ]+gcS+[.vbalanta_parteneri where 1=2'] + pcfiltru3=[1=2] + pcorder3=[nume,acont] + pcgroup3=[CONT,ACONT,AN,LUNA,ID_PART,NUME,COD_FISCAL] + llAfisare=.F. + gencursor('pobalpartint','xtemp',pcselect3,pcfiltru3,[''],pcorder3,llAfisare,pcgroup3) + pobalpartint.ca_baza1.afisare() + + OVIZ=CREATEOBJECT("frm_bal_parteneri") + WITH OVIZ + *!* .LABEL10.Caption='SITUATIA ANALITICA - BALANTA PARTENERI (' + Alltrim(lcContPart) + ')' + .LABEL10.CAPTION = PROPER(lcDenumire) + IF eActiv + .grid1.column6.CONTROLSOURCE='- cred + deb' + .grid1.column10.CONTROLSOURCE='- totcred + totdeb' + .grid1.column9.CONTROLSOURCE='- preccred + precdeb' + + .grid1.column21.CONTROLSOURCE='- totvalcred + totvaldeb' + .grid1.column18.CONTROLSOURCE='- precvalcred + precvaldeb' + *!* .grid1.column6.header1.Caption='Sold (deb-cred)' + *!* .grid1.COLUMN4.header1.Caption='Debit' + *!* .grid1.COLUMN5.header1.Caption='Credit' + .grid1.column6.header1.CAPTION= "Sold("+ALLTRIM(lcDenDebit)+"-"+ALLTRIM(lcDenCredit)+")"&&'Sold (cred-deb)' + .grid1.COLUMN4.header1.CAPTION= lcDenDebit&&Debit' + .grid1.COLUMN5.header1.CAPTION= lcDenCredit&&'Credit' + .grid1.column11.header1.CAPTION= "Prec." + lcDenDebit&&Debit' + .grid1.column12.header1.CAPTION= "Prec." + lcDenCredit&&'Credit' + .grid1.COLUMN15.header1.CAPTION= "Total" + lcDenDebit&&Debit' + .grid1.COLUMN16.header1.CAPTION= "Total" + lcDenCredit&&'Credit' + .pcfel='A' + ELSE + .grid1.column6.CONTROLSOURCE='cred - deb' + .grid1.column10.CONTROLSOURCE='totcred - totdeb' + .grid1.column9.CONTROLSOURCE='preccred - precdeb' + + .grid1.column21.CONTROLSOURCE='totvalcred - totvaldeb' + .grid1.column18.CONTROLSOURCE='precvalcred - precvaldeb' + .grid1.column6.header1.CAPTION= "Sold("+ALLTRIM(lcDenCredit)+"-"+ALLTRIM(lcDenDebit)+")"&&'Sold (cred-deb)' + .grid1.COLUMN4.header1.CAPTION= lcDenDebit&&Debit' + .grid1.COLUMN5.header1.CAPTION= lcDenCredit&&'Credit' + .grid1.column12.header1.CAPTION= "Prec." + lcDenCredit&&'Credit' + .grid1.column11.header1.CAPTION= "Prec." + lcDenDebit&&'Debit' + *!* .grid1.column11.controlsource = "preccred" + *!* .grid1.column12.controlsource = "precdeb" + .grid1.COLUMN16.header1.CAPTION= "Total" + lcDenCredit&&'Credit' + .grid1.COLUMN17.header1.CAPTION= "Total" + lcDenDebit&&'Debit' + *!* .grid1.COLUMN15.controlsource= "totCred" &&Credit' + *!* .grid1.COLUMN16.controlsource= "TotDeb" &&'Debit' + .pcfel='P' + + ENDIF + .grid1.column18.VISIBLE=.F. + .grid1.column19.VISIBLE=.F. + .grid1.column20.VISIBLE=.F. + .grid1.column21.VISIBLE=.F. + .grid1.column22.VISIBLE=.F. + .TABEL = 'BALANTA_PARTENER' + .pcCont = ALLTRIM(lcContPart) + .grid1.column8.WIDTH=0 + .grid1.column13.WIDTH=0 + .grid1.column14.WIDTH=0 + .grid1.column8.VISIBLE=.F. + .grid1.column13.VISIBLE=.F. + .grid1.column14.VISIBLE=.F. + .label7.VISIBLE=.F. + .text4.VISIBLE=.F. + .TEXT5.VISIBLE=.F. + .text9.VISIBLE=.F. + ENDWITH + IF !NOU + WITH OVIZ.grid1 + .column2.COLUMNORDER=2 + FOR I=9 TO 16 + lcViz='.column'+ALLTRIM(STR(I))+'.visible=.f.' + *lcWidth='.column'+ALLTRIM(STR(i))+'.width=0' + &lcViz + *&lcWidth + ENDFOR + ENDWITH + ENDIF + + OVIZ.SHOW(1) + USE IN xtemp + *!* ENDIF +ENDPROC && lans_balanta_parteneri +*---------------------------------------------------------------------------------------------- + + +*---------------------------------- Inceput lans_balanta_cumulata ---------------------------------- +PROCEDURE lans_balanta_cumulata + + +pcselect = [select explicatie, id_coloana from ] + gcs + [.coloane where 2=2] +pcfiltru = [2=2] +pcschema = [''] +pcorder = [explicatie] +pccoloane = [explicatie] +pcTitlu = [Alegeti Balanta] +pcFiltruOriginal = [camp is null and tabel is null and id_prg_owner = 2 and configurabil = 1] +locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitlu,"",.f.,pcFiltruOriginal) + +IF EMPTY(locauta.id_coloana) OR ISNULL(locauta.id_coloana) + RETURN +ENDIF + +pnIdBal = locauta.id_coloana + + +pcTitluCol = [] +pcNumeCol = [] +lcSel = [{call pack_balante_cumulate.balante_cumulate(?@pcNumeCol,?@pcTitluCol,?gcS,?pnIdBal,?gnAn,?gnLuna)}] +lcSchema = [] +lcCursor = 'crs_bal' +lnSucces = goExecutor.oExecute(lcSel,lcCursor) + +IF lnSucces < 0 + MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + RETURN +ENDIF + + +pcNumeCol = [nume;cod_fiscal;acont;] + pcNumeCol +pcTitluCol = [Partener,Cod Fiscal,Analitic,] + pcTitluCol +SELECT (lcCursor) +SCATTER NAME loto BLANK + + +obalp = CREATEOBJECT('frm_bal_parteneri_cumulata') +obalp.ototal = loto +WITH obalp.ct_grid_order1 + .cselect = lcSel + .cschema = lcSchema + .cTitlu_coloane = pcTitluCol + .cNume_coloane = pcNumeCol + .cFiltruOriginal = [] + .cFiltru = [] + .cOrder = [] + .cTitlu = [] + .cnumeCursor = lcCursor + .lmodparam = .T. +ENDWITH +obalp.ctitlu = locauta.explicatie +obalp.show() + +IF USED(lcCursor) + USE IN (lcCursor) +ENDIF + +ENDPROC && lans_balanta_cumulata +*---------------------------------- Sfarsit lans_balanta_cumulata ---------------------------------- + + +*---------------------------------- Inceput configurare_balanta_cumulata ---------------------------------- +PROCEDURE configurare_balanta_cumulata +PRIVATE pnIdBalanta, pnIdColoana +STORE 0 TO pnIdBalanta, pnIdColoana + +pcselect1 = [select explicatie,explicatie2, id_coloana from ] + gcs + [.coloane ] +pcfiltru1 = [camp is null and tabel is null and id_prg_owner = 2 and configurabil = 1] +pcschema1 = [''] +pcorder1 = [explicatie] +pccoloane1 = [explicatie; explicatie2] +pcTitluCol1 = [Titlu Balanta,Conturi] +pcTitlu1 = [Lista Balante Configurate] + +pcselect2 = [select f.id_calcul, f.id_op_col , f.ordine, f.id_coloana, c.camp, c.explicatie from ] + gcs + [.sal_calcul f left join ] + ; + gcs +[.coloane c on f.id_op_col = c.id_coloana and f.coloana = 1] +pcfiltru2 = [f.id_coloana =?pnIdBalanta] +pcschema2 = [''] +pcorder2 = [f.ordine] +pccoloane2 = [explicatie; ordine] +pcMask2 = '[1]=;[2]=REPLICATE("9",3)' +pcTitluCol2 = [Titlu coloana, Ordine] +pcTitlu2 = [Coloane Balanta] + +pcselect3 = [select id_calcul, id_coloana, id_op_col, explicatie, camp, coloana, ordine from ] + gcs + [.cont_vformule_balante ] +pcfiltru3 = [id_coloana =?pnIdColoana] +pcschema3 = [''] +pcorder3 = [ordine] +pccoloane3 = [camp;explicatie;ordine] +pcMask3 = '[1]=;[2]=;[3]=REPLICATE("9",3)' +pcTitluCol3 = [Camp,Explicatie,Ordine] +pcTitlu3 = [Formula Coloane] + + +obalp = CREATEOBJECT('config_balante_parteneri') +WITH obalp.Ct_grid_search1 + .cselect = pcselect1 + .cschema = pcschema1 + .cTitlu_coloane = pcTitluCol1 + .cNume_coloane = pccoloane1 + .cFiltruOriginal = pcfiltru1 + .cFiltru = [2=2] + .cOrder = pcorder1 + .cTitlu = pcTitlu1 + .cnumeCursor = 'crs_NumeBal' + .lmodparam = .T. +ENDWITH +WITH obalp.Ct_grid_search2 + .cselect = pcselect2 + .cschema = pcschema2 + .cTitlu_coloane = pcTitluCol2 + .cNume_coloane = pccoloane2 + .cFiltruOriginal = pcfiltru2 + .cFiltru = [2=2] + .cOrder = pcorder2 + .cTitlu = pcTitlu2 + .cMask = pcMask2 + .cnumeCursor = 'crs_ColoaneBal' + .lmodparam = .t. +ENDWITH +WITH obalp.Ct_grid_search3 + .cselect = pcselect3 + .cschema = pcschema3 + .cTitlu_coloane = pcTitluCol3 + .cNume_coloane = pccoloane3 + .cFiltruOriginal = pcfiltru3 + .cFiltru = [2=2] + .cOrder = pcorder3 + .cTitlu = pcTitlu3 + .cMask = pcMask3 + .cnumeCursor = 'crs_FormulaBal' + .lmodparam = .t. +ENDWITH +obalp.show() + +ENDPROC && configurare_balanta_cumulata +*---------------------------------- Sfarsit configurare_balanta_cumulata ---------------------------------- + diff --git a/Programe/oproceduri_app.prg b/Programe/oproceduri_app.prg new file mode 100644 index 0000000..b291cd5 --- /dev/null +++ b/Programe/oproceduri_app.prg @@ -0,0 +1,196 @@ +Define Class gridDinamic As Grid + Visible = .T. + DeleteMark = .F. + RecordMark = .F. + HighlightStyle = 2 + SplitBar = .F. +Enddefine + + +Define Class pornesteLans As Session + + Procedure text1DblClick + This.lans(crsSets_categorii.id_set) + Endproc + + Procedure text1KeyPress + Parameters nKeyCode, nShiftAltCtrl + If nKeyCode = 13 + This.lans(crsSets_categorii.id_set) + Endif + Endproc + + Procedure lans + Parameters tnId_set + Set DataSession To 1 + Private pl_verificat + pl_verificat = .F. + Private _program + _program = 'cont' + Local lcSql, lnSucces, lnLinii, lnLiniiReq + + lcSql = [select r.valoare_default,r.id_item,i.camp_lista, i.id_fisier,pack_util.GetText(i.fis_lista,] + ; + [i.id_fisier, to_number(r.valoare_default), replace(i.camp_lista, ',' , ' || '' '' || ')) ] + ; + [as valoare_default_text, i.var_item ] + ; + [from xrequest r ] + ; + [join xitems i on i.id_item = r.id_item ] + ; + [where r.id_set = ?tnId_set and r.valoare_default is not null ] + + lnSucces = goExecutor.oExecute(lcSql, [crsRequest]) + If lnSucces < 0 + Messagebox([Eroare]) + Return + Endif + lnLiniiReq = Reccount("crsRequest") * 2 + If lnLiniiReq = 0 + Messagebox([Nu exista note predefinite pentru aceasta categorie]) + Return + Endif + lcSql = [select n.cont,n.id_part,n.id_set, p.nume, n.tip ] + ; + [ from (select n1.xscd as cont, n1.id_partd as id_part, n1.id_set, 'D' as tip ] + ; + [ from xnote n1 ] + ; + [ where nvl(n1.id_partd, 0) <> 0 and n1.id_set = ?tnId_Set ] + ; + [ union ] + ; + [ select n2.xscc as cont, n2.id_partc as id_part, n2.id_set, 'C' as tip ] + ; + [ from xnote n2 ] + ; + [ where nvl(n2.id_partc, 0) <> 0 and n2.id_set = ?tnId_Set ) n ] + ; + [ join nom_parteneri p on n.id_part = p.id_part] + lnSucces = goExecutor.oExecute(lcSql,[crsNumePartener]) + If lnSucces<0 + amessagebox(goExecutor.ceroare,0+16,[Eroare]) + Return + Endif + lnLinii = Reccount("crsNumePartener") * 2 + + Dimension laValori(lnLiniiReq + lnLinii,4) + + Select crsRequest + i = 1 + + Scan + laValori(i,1) = "poAct." + Allt(Nvl(crsRequest.id_fisier,[])) + laValori(i,2) = Allt(Nvl(crsRequest.valoare_default,[])) + laValori(i,3) = .F. + laValori(i,4) = .T. + + laValori(i+1,1) = "poAct." + Allt(Nvl(crsRequest.var_item,[])) + laValori(i+1,2) = Alltrim(Nvl(crsRequest.valoare_default_text,[])) + laValori(i+1,3) = .F. + laValori(i+1,4) = .T. + i = i + 2 + Endscan + + Select crsNumePartener + Scan + laValori(i,1) = "poact.id_vv" + Alltrim(Nvl(crsNumePartener.Cont,[])) + ; + IIF(INLIST(LEFT(cont,2),'51','53'),IIF(tip = 'D' ,'0','1'),'') + laValori(i,2) = Alltrim(Str(Nvl(crsNumePartener.id_part,0))) + laValori(i,3) = !Empty(Nvl(crsNumePartener.id_part,0)) + laValori(i,4) = .T. + + laValori(i+1,1) = "poact.v" + Alltrim(crsNumePartener.Cont)+ ; + IIF(INLIST(LEFT(cont,2),'51','53'),IIF(tip = 'D' ,'0','1'),'') + laValori(i+1,2) = Alltrim(Nvl(crsNumePartener.nume,[])) + laValori(i+1,3) = !Empty(Nvl(crsNumePartener.id_part,0)) + laValori(i+1,4) = .T. + i = i + 2 + Endscan + + Select xsets + If Seek(tnId_set,"xsets") + Scatter Name loxset + If loxset.aleg_cont + Private pcACN, cn, cn2, pcACN2 + Store '' To pcACN, cn, cn2, pcACN2 + Endif + Endif + + lans(tnId_set,.T.,.T.,@laValori) + Use In (Select("crsNumePart")) + Use In (Select("crsRequest")) + Endproc +Enddefine + +*********************************** incaseaza_monetar_50505 *************************** +Procedure incaseaza_monetar_50505 + + Private pl_verificat + pl_verificat = .F. + + Local lnRaspuns, loIm + Private pcCont1, pcAcont1, pcCont2, pcAcont2 + Private pcACN, cn, cn2, pcACN2, loCont, loCont2, _program + _program = 'cont' + lnRaspuns = 6 + Do While lnRaspuns = 6 + Store '' To pcACN, cn, cn2, pcACN2 + loCont = ret_cont("Selectati contul",'704,707') + If gnButon = 2 + lnRaspuns = 7 + Else + pcCont1=loCont.Cont + pcAcont1=loCont.Acont + + loCont2=ret_cont("Selectati contul",'4111') + If gnButon = 2 + lnRaspuns = 7 + Else + pcCont2=loCont2.Cont + pcAcont2=loCont2.Acont + + Do update_jtva_coloane With [JV] + + Create Cursor crsIncasare_monetar (serie c(15),id_part N(10),nr_factura N(14), ; + nr_incasare N(14), numeclient c(60), valctva N(17,gnPa), valftva N(17,gnPa), ; + valtva N(17,gnPa), id_jtva_coloana i(4),cota_tva N(2)) + Select crsIncasare_monetar + + loIm = Createobject('frm_incasare_monetar_50505') + loIm.Show(1) + If Used('crsIncasare_monetar') + Use In crsIncasare_monetar + Endif + + If Used('actactan_o') + Use In actactan_o + Endif + Endif + Endif + + If lnRaspuns <> 7 + lnRaspuns = amessagebox('Doriti sa continuati cu operatii de acest fel?',4+32,"Confirmare") + Endif + Enddo +* Release lnRaspuns,pcCont1,pcAcont1,pcCont2,pcAcont2 + +Endproc && incaseaza_monetar_50505 *************************** + +************* incaseaza_monetar ********************************* +Procedure incaseaza_monetar + Local loIm, lnRaspuns + Private pl_verificat + pl_verificat = .F. + Private pcCont1, pcAcont1, pcCont2, pcAcont2 + Private pcACN, cn, cn2, pcACN2, loCont, loCont2, _program + + lnRaspuns = 6 + Do While lnRaspuns = 6 + + Do update_jtva_coloane With [JV] + + Create Cursor crsIncasare_monetar (serie c(15),id_part N(10),nr_factura N(14), ; + nr_incasare N(14), numeclient c(60), valctva N(17,gnPa), valftva N(17,gnPa), ; + valtva N(17,gnPa), id_jtva_coloana i(4),cota_tva N(2)) + Select crsIncasare_monetar + + loIm = Createobject('frm_incasare_monetar') + loIm.Show(1) + If Used('crsIncasare_monetar') + Use In crsIncasare_monetar + Endif + If lnRaspuns <> 7 + lnRaspuns = amessagebox('Doriti sa continuati cu operatii de acest fel?',4+32,"Confirmare") + Endif + Enddo + +Endproc && incaseaza_monetar ^^ ********************************* \ No newline at end of file diff --git a/Programe/oproceduri_registretva.prg b/Programe/oproceduri_registretva.prg new file mode 100644 index 0000000..8881db0 --- /dev/null +++ b/Programe/oproceduri_registretva.prg @@ -0,0 +1,57 @@ +****************************************************************** +PROCEDURE listare_registru_tva +LPARAMETERS tcRegistru + + pcRegistru = UPPER(ALLTRIM(tcRegistru)) + DO CASE + CASE 'VANZ'$pcRegistru + pcContTVA = [4427] + pcListaContTVA = [411,4111,4112,4113,4114,4115,4116,4117,461,635,5311,5121,428,4281,4282,4426,4428] + pcListaContBaza = [411,4111,4112,4113,4114,4115,4116,4117,461,428,4281,4282] + pcListaContExceptii = [667,419] + OTHERWISE + pcContTVA = [4426] + pcListaContTVA = [401,404,5121,5124,542,4427,4428] + pcListaContBaza = [401,404] + pcListaContExceptii = [767] + ENDCASE + + + lcSql = [{call PACK_REGISTRE_TVA.REGISTRUTVA(?gcS, ?gnAn, ?gnLuna, ] + ; + [?pcRegistru, ?pcContTVA, ?pcListaContTVA, ?pcListaContBaza, ?pcListaContExceptii )}] + lcCursor = 'crsRegistruTemp' + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + IF lnSucces < 0 + AMESSAGE(goExecutor.cEroare,0+16,"Eroare") + ELSE + + SELECT nract, dataact, PART AS nume, cod_fiscal, fdoc, baza, proc_tva, tva, baza + tva as totctva, 00000000000.0000 as total ; + FROM crsRegistruTemp ; + INTO CURSOR crsRegistru ; + READWRITE ORDER BY nract, dataact, nume + USE IN crsRegistruTemp + + SELECT nract, dataact, nume,sum(totctva) as total ; + from crsRegistru ; + INTO CURSOR tgrup ; + GROUP BY nract, dataact, nume + + SELECT tgrup + SCAN + SCATTER NAME ot + SELECT crsRegistru + LOCATE FOR nume = ot.nume AND nract = ot.nract AND dataact = ot.dataact + IF FOUND() + REPLACE total WITH ot.total + ENDIF + SELECT tgrup + ENDSCAN + USE IN tgrup + + SELECT crsRegistru + REPORT FORM registru_tva_simplu TO PRINTER PROMPT PREVIEW + USE IN crsRegistru + ENDIF +ENDPROC + +****************************************************************** \ No newline at end of file diff --git a/Programe/oproceduri_roadef_sal.prg b/Programe/oproceduri_roadef_sal.prg new file mode 100644 index 0000000..cf01f5a --- /dev/null +++ b/Programe/oproceduri_roadef_sal.prg @@ -0,0 +1,978 @@ +******************************************* +* PROCEDURE inchidprog( ) +* Date : 05/23/05, 11:32:30 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE inchidprog( ) + +RETURN + +ENDPROC +*----------------------------------sfarsit procedura inchidprog---------------------------------- + +*___________________________________________ +Procedure nrord +Parameters ALI +Sele &ALI +A=Reccount() +If A=0 + Return +Endif +If A>65000 + Return 0 +Endif +Declare NROR(A) +K=0 +Scan + K=K+1 + NROR(K)=Recno() +Endscan +Return + +Function NRCRT +NR=Ascan(NROR,Recno()) +Return NR +********************** +*_____________________________________- +PROCEDURE IESIRE + +QUIT +RETURN +*___________________________________________ +Procedure mesaj +Parameters m1,m2 +ot=Create('text') +ot.label2.Caption=m1 +ot.label3.Caption=m2 +ot.Show(1) +Return +*___________________________________________ +Procedure danu +Parameters m1 +od=Create('danu') +od.label1.Caption=m1 +od.Show(1) +RETURN + +*_________________________________________________________ +PROCEDURE caut_alfa_cursor +PARAMETERS NUMEBAZA,NUMECIMP,CAPTEXT,VARMEM +LOCAL MC0,MC1,MC2, llVizibil +SET SAFETY OFF +llVizibil = .t. + +MC0='SELE '+NUMEBAZA +MC1='VARMEM=M.'+NUMECIMP +*MC2='SET order TO TAG '+NUMECIMP +MC2 = [INDEX ON ] +NUMECIMP+ [ TAG nume OF &loc\&nfscurt\tempo\xindex.idx COMPACT ASCENDING ] + + +*!* &MC0 +*!* &MC2 +*!* GO TOP + +LOCAL lcNumeCol2 +STORE '' TO lcNumeCol2 + +LcCol = ALLTRIM(NUMEBAZA) + '.cod_fiscal' +IF TYPE(LcCol) # 'U' + lcNumeCol2 = 'cod_fiscal' +ENDIF + +LcCol = ALLTRIM(NUMEBAZA) + '.gest' +IF TYPE(LcCol) # 'U' + lcNumeCol2 = 'gest' +ENDIF + +LcCol = ALLTRIM(NUMEBAZA) + '.id_sectie' +IF TYPE(LcCol) # 'U' + lcNumeCol2 = 'id_sectie' +ENDIF + +IF EMPTY(lcNumeCol2) + lcNumeCol2 = 'space(4)' + llVizibil = .f. +ENDIF + +LcCol = ALLTRIM(NUMEBAZA) + '.id' +IF TYPE(LcCol) # 'U' + lcNumeCol3 = 'id' +ELSE + lcNumeCol3 = 'space(4)' +ENDIF + +SELECT DISTINCT &NUMECIMP, &lcNumeCol2, &lcNumeCol3 FROM (numebaza) INTO CURSOR tnomenclator READWRITE ORDER BY &NUMECIMP + +OCA=CREATEOBJECT("CAUTALFa") +OCA.CAPTION=CAPTEXT +OCA.GRID1.RECORDSOURCE='tnomenclator' +OCA.GRID1.COLUMN1.CONTROLSOURCE = NUMECIMP +OCA.GRID1.COLUMN2.CONTROLSOURCE = lcNumeCol2 +OCA.GRID1.COLUMN2.visible = llVizibil +OCA.cmdrenunt1.visible=.t. +OCA.command1.visible=.f. +OCA.command2.visible=.f. +OCA.command3.visible=.f. +OCA.SHOW(1) + +*!* &MC0 +*!* SCATTER MEMVAR +*!* SET FILTER TO + +IF buton=2 + USE IN tnomenclator + RETURN +ENDIF + +lcFile = ADDBS(gcTempPath) + 'xindex.idx' +IF FILE(lcFile) + SET INDEX TO + DELETE FILE &lcFile +ENDIF +*!* &MC1 + +SELECT tnomenclator +SCATTER MEMVAR + +&MC1 + + +USE IN tnomenclator +RETURN + +*_________________________________________________________ +Procedure CAUT_ALF +Parameters NUMEBAZA,NUMECIMP,CAPTEXT,VARMEM +Local MC0,MC1,MC2 +Set Safety Off +MC0='SELE '+NUMEBAZA +MC1='VARMEM=M.'+NUMECIMP +MC2='SET order TO TAG '+NUMECIMP + +&MC0 +Go Top +If Eof() + Appe Blank +Endif +&MC2 +OCA=Createobject("CAUTALF") +OCA.Caption=CAPTEXT +OCA.GRID1.RecordSource=NUMEBAZA +OCA.GRID1.COLUMN1.ControlSource=NUMECIMP +OCA.Show(1) + +Scatter Memvar +&MC1 + +Return + + +*_________________________________________________________ + + +******************************************* +* PROCEDURE introd_respsal( ) +* Date : 05/23/05, 12:27:24 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE introd_respsal( ) + +Private poresp,pcschema1,pcselect1 +Store '' To poresp +If Used('v_resp') + Use In v_resp +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_responsabil where 1=2'] +pcorder1=[nume,prenume] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('poresp','v_resp',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +poresp.ca_baza1.afisare() +ofrmresp=Createobject('frm_resp_sal') +ofrmresp.Show(1) +Release poresp + +ENDPROC +*----------------------------------sfarsit procedura introd_respsal---------------------------------- + +******************************************* +* PROCEDURE zile_lucr( ) +* Date : 05/23/05, 15:30:38 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE zile_lucr( ) + +*----------- sarbatori +Private posarbat,pcschema1,pcselect1 +Store '' To posarbat +If Used('v_sarbat') + Use In v_sarbat +Endif +pcschema1=['data d,sarbatoare c(16),id_sarbat n(10)'] +pcselect1=[select data,sarbatoare,id_sarbat from ] + gcS + [.sal_nom_sarbatori where sters = 0] +pcorder1=[data] +pcfiltru1 = [extract(year from data) = ] + ALLTRIM(STR(gnAN)) + [ and sters = 0] +llAfiseaza = .F. +gencursor('posarbat','v_sarbat',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +posarbat.ca_baza1.afisare() +SELECT v_sarbat + + +*----------- zile lucratoare +Private pozile,pcschema2,pcselect2 +Store '' To pozile +If Used('v_zile') + Use In v_zile +Endif +pcschema2=[''] +pcselect2=[select * from ] + gcS + [.sal_calendar where 1=2] +pcorder2=[luna,an] +*!* pcfiltru2 = [ 2 = 2 ] +pcfiltru2 = [ luna = ] + ALLTRIM(STR(gnLuna)) + [ and an = ]+ALLTRIM(STR(gnAn)) + +llAfiseaza = .F. +gencursor('pozile','v_zile',pcselect2,pcfiltru2,pcschema2,pcorder2,llAfiseaza) +pozile.ca_baza1.afisare() +SELECT v_sarbat + +*-------------- +PRIVATE pnIdSal,pnZileluc,pnOreluc,pnOrestas +STORE 0 TO pnIdSal,pnZileluc,pnOreluc,pnOrestas + +pnIdSal = v_zile.id_Calendar +pnZileluc = v_zile.zileluc +pnOreluc = v_zile.oreluc +pnOrestas = v_zile.orestas + +ofrmform=Createobject('frm_zileluc') +ofrmform.Show(1) + +IF gnButon == 1 + lcSql = [update ] + gcS +[.sal_calendar set zileluc = ] + ALLTRIM(STR(NVL(pnZileluc,0))) + [,] +; + [ oreluc = ] + ALLTRIM(STR(NVL(pnOreluc,0))) +; + [,orestas = ] + ALLTRIM(STR(NVL(pnOrestas,0))) + [where id_calendar = ] + ALLTRIM(STR(NVL(pnIdSal,0))) + + lnSucces = goExecutor.oExecute(lcSql) + IF lnSucces < 0 + MESSAGEBOX(goExecutor.cEroare,0 +16,'Eroare') + ENDIF + goExecutor.oReset() + + RETURN lnSucces +ENDIF +Release posarbat,ofrmform + + +ENDPROC +*----------------------------------sfarsit procedura zile_lucr---------------------------------- + +******************************************* +* PROCEDURE nom_formatii( ) +* Date : 05/26/05, 16:37:20 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_formatii( ) +Private poformatii,pcschema1,pcselect1 +Store '' To poformatii +If Used('v_formatii') + Use In v_formatii +Endif +*!* DEBUG +*!* SUSPEND +pcschema1=[''] +*!* pcselect1=[select f.*,s.SECTIE,t.TRANSA from ] + gcS +; +*!* [.sal_nom_formatii f left join ]+gcS; +*!* +[.vnom_sectii s on f.id_sectie = s.ID_SECTIE ]+; +*!* [ left join ]+gcS+[.sal_vnom_transe t on f.id_sectie = t.ID_TRANSA where 1=2] +pcselect1=[select f.*,S.SECTIE,T.TRANSA from ] + gcS + [.sal_nom_formatii f ] + ; + [ LEFT JOIN ] + GCS + [.VNOM_SECTII S ON F.ID_SECTIE = S.ID_SECTIE ] +; + [ LEFT JOIN ] + GCS + [.SAL_VNOM_TRANSE T ON F.ID_TRANSA = T.ID_TRANSA ]+; + [ where 1=2] +pcorder1=[ordine] +pcfiltru1 = [f.sters = 0] +llAfiseaza = .F. +gencursor('poformatii','v_formatii',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +poformatii.ca_baza1.afisare() +SELECT V_FORMATII +ofrmform=Createobject('frm_formatii') +ofrmform.Show(1) +Release poformatii + +ENDPROC +*----------------------------------sfarsit procedura nom_formatii---------------------------------- + +******************************************* +* PROCEDURE nom_meserii( ) +* Date : 05/23/05, 12:27:24 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_meserii( ) + +Private poresp,pcschema1,pcselect1 +Store '' To poresp +If Used('v_meserii') + Use In v_meserii +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_nom_mes where 1=2'] +pcorder1=[meserie] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('poresp','v_meserii',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +poresp.ca_baza1.afisare() +ofrmresp=Createobject('frm_meserii') +ofrmresp.Show(1) +Release poresp + +ENDPROC +*----------------------------------sfarsit procedura nom_meserii---------------------------------- + + +******************************************* +* PROCEDURE nom_transe( ) +* Date : 05/23/05, 12:27:24 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_transe( ) + +Private potransa,pcschema1,pcselect1 +Store '' To potransa +If Used('v_transe') + Use In v_transe +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_nom_transe where 1=2'] +pcorder1=[transa] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('potransa','v_transe',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +potransa.ca_baza1.afisare() +ofrmresp=Createobject('frm_transe') +ofrmresp.Show(1) +Release potransa + +ENDPROC +*----------------------------------sfarsit procedura nom_transe---------------------------------- +******************************************* +* PROCEDURE nom_clasesal( ) +* Date : 05/23/05, 12:27:24 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_clasesal( ) + +Private poclasesal,pcschema1,pcselect1 +Store '' To poclasesal +If Used('v_clasesal') + Use In v_clasesal +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_nom_clasesal where 1=2'] +pcorder1=[tarifar] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('poclasesal','v_clasesal',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +poclasesal.ca_baza1.afisare() +ofrmresp=Createobject('frm_clasesal') +ofrmresp.Show(1) +Release poclasesal + +ENDPROC +*----------------------------------sfarsit procedura nom_clasesal---------------------------------- + +******************************************* +* PROCEDURE nom_tipctr( ) +* Date : 05/23/05, 12:27:24 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_tipctr + +Private potipctr,pcschema1,pcselect1 +Store '' To potipctr +If Used('v_tipctr') + Use In v_tipctr +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vnom_tipctr where 1=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('potipctr','v_tipctr',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +potipctr.ca_baza1.afisare() +ofrmresp=Createobject('frm_tipctr') +ofrmresp.Show(1) +Release poclasesal + +ENDPROC + +******************************************* +* PROCEDURE nom_sporuri( ) +* Date : 06/17/05, 09:04:27 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_sporuri( ) +Private ponomspor,pcschema1,pcselect1 +Store '' To ponomspor +If Used('v_nomspor') + Use In v_nomspor +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vnom_sporuri where 1=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponomspor','v_nomspor',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomspor.ca_baza1.afisare() +ofrmresp=Createobject('frm_nomspor') +ofrmresp.Show(1) +Release poclasesal + +ENDPROC +*----------------------------------sfarsit procedura nom_sporuri---------------------------------- + + +******************************************* +* PROCEDURE nom_popriri( ) +* Date : 06/17/05, 13:52:11 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_popriri( ) +Private ponompop,pcschema1,pcselect1 +Store '' To ponompop +If Used('v_nompop') + Use In v_nompop +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vnom_popriri where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponompop','v_nompop',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponompop.ca_baza1.afisare() +SELECT v_nompop +ofrmpop=Createobject('frm_nompopriri') +ofrmpop.Show(1) +Release ponompop + + +ENDPROC +*----------------------------------sfarsit procedura nom_popriri---------------------------------- + +******************************************* +* PROCEDURE nom_grpmun( ) +* Date : 06/17/05, 15:03:04 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_grpmun( ) +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_nomgrp') + Use In v_nomgrp +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_coef_cas where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponomgrp','v_nomgrp',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_nomgrp +ofrmpop=Createobject('frm_grpmun') +ofrmpop.Show(1) +Release ponomgrp +*!* SELECT v_nomgrp +*!* USE + +ENDPROC +*----------------------------------sfarsit procedura nom_grpmun---------------------------------- + +******************************************* +* PROCEDURE nom_grdhand( ) +* Date : 06/17/05, 15:10:33 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_grdhand( ) + +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp + +If Used('v_nomhand') + Use In v_nomgrd +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_nom_handicap where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponomgrp','v_nomhand',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_nomhand +ofrmpop=Createobject('frm_grdhand') +ofrmpop.Show(1) +Release ponompop + +*!* SELECT v_nomhand +*!* USE +ENDPROC +*----------------------------------sfarsit procedura nom_grdhand---------------------------------- + +******************************************* +* PROCEDURE nom_tipintret( ) +* Date : 06/17/05, 15:13:34 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_tipintret( ) + +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_nomintret') + Use In v_nomintret +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_nom_dedsupl where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponomgrp','v_nomintret',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_nomintret +ofrmpop=Createobject('frm_tipintret') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura nom_tipintret---------------------------------- + +******************************************* +* PROCEDURE caseasig( ) +* Date : 06/17/05, 15:20:20 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE caseasig( ) + +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_caseasig') + Use In v_caseasig +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vcaseasig where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponomgrp','v_caseasig',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_caseasig +ofrmpop=Createobject('frm_caseasig') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura caseasig---------------------------------- + +******************************************* +* PROCEDURE nom_tabvechimi( ) +* Date : 06/21/05, 09:54:04 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_tabvechimi( ) + +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_tabvechimi') + Use In v_tabvechimi +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vtab_vechimi where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponomgrp','v_tabvechimi',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_tabvechimi +ofrmpop=Createobject('frm_tabvechimi') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura nom_tabvechimi---------------------------------- + +******************************************* +* PROCEDURE nom_grilaco( ) +* Date : 06/21/05, 10:54:08 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_grilaco( ) +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_grilaco') + Use In v_grilaco +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vnom_zileco where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +gencursor('ponomgrp','v_grilaco',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_grilaco +ofrmpop=Createobject('frm_grilaco') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura nom_grilaco---------------------------------- + +******************************************* +* PROCEDURE nom_ore( ) +* Date : 06/21/05, 11:41:51 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_ore( ) +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_nomore') + Use In v_nomore +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vnomore where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +pcorder1 = [ ordine ] +gencursor('ponomgrp','v_nomore',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_nomore +ofrmpop=Createobject('frm_nomore') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura nom_ore---------------------------------- + +******************************************* +* PROCEDURE nom_tipcm( ) +* Date : 06/22/05, 09:34:42 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_tipcm( ) +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_nomtipcm') + Use In v_nomtipcm +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vnom_cm where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +pcorder1 = [ ordine ] +gencursor('ponomgrp','v_nomtipcm',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_nomtipcm +ofrmpop=Createobject('frm_nomcm') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura nom_tipcm---------------------------------- + +******************************************* +* PROCEDURE impozit_luna( ) +* Date : 06/22/05, 11:36:42 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE impozit_luna(tlImpAn) + +Private ponomgrp,pcschema1,pcselect1,plImpAn +Store '' To ponomgrp + +IF EMPTY(tlImpAn) + STORE .f. TO plImpAn +ELSE + STORE tlImpAn TO plImpAn +ENDIF + +If Used('v_imp') + Use In v_imp +Endif + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_impozitar where 2=2'] +pcorder1=[] +IF plImpAn + pcfiltru1 = [sters = 0 and luna = 0 and an = ]+ALLTRIM(STR(gnAn)) +ELSE + pcfiltru1 = [sters = 0 and luna = ]+ALLTRIM(STR(gnLuna))+[ and an = ]+ALLTRIM(STR(gnAn)) +ENDIF + +llAfiseaza = .F. +pcorder1 = [ inf ] +gencursor('ponomgrp','v_imp',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_imp +ofrmpop=Createobject('frm_imp') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura impozit_luna---------------------------------- + +******************************************* +* PROCEDURE nom_limded( ) +* Date : 06/22/05, 13:23:29 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_limded( ) +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_deduceri') + Use In v_deduceri +ENDIF + +lcsql=[select NVL(id_calendar,0) as id_calendar,an,luna from ]+gcs+[.sal_calendar where an = ]+str(gnan)+[ and luna = ]+str(gnluna) +lnSucces = goExecutor.oExecute(lcSql,'crsCalendar') + IF lnSucces < 0 + MESSAGEBOX(goExecutor.cEroare,0 +16,'Eroare') + ENDIF + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vdeduceri where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +pcorder1 = [ nrpers ] +gencursor('ponomgrp','v_deduceri',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_deduceri +ofrmpop=Createobject('frm_limded') +ofrmpop.Show(1) +Release ponompop + +IF USED('crsCalendar') + USE IN crsCalendar +ENDIF + +ENDPROC +*----------------------------------sfarsit procedura nom_limded---------------------------------- +******************************************* +* PROCEDURE nom_curscal( ) +* Date : 06/22/05, 14:01:51 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE nom_curscal( ) +Private ponomgrp,pcschema1,pcselect1 +Store '' To ponomgrp +If Used('v_curscal') + Use In v_curscal +Endif + + +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.sal_vnom_curs where 2=2'] +pcorder1=[] +pcfiltru1 = [sters = 0] +llAfiseaza = .F. +pcorder1 = [ denumire ] +gencursor('ponomgrp','v_curscal',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +ponomgrp.ca_baza1.afisare() +SELECT v_curscal +ofrmpop=Createobject('frm_curscal') +ofrmpop.Show(1) +Release ponompop + +ENDPROC +*----------------------------------sfarsit procedura nom_curscal---------------------------------- +******************************************* +* PROCEDURE sal_coef( ) +* Date : 06/22/05, 15:27:17 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE sal_coef( ) + + +*----------- zile lucratoare +Private pozile,pcschema2,pcselect2 +Store '' To pozile +If Used('v_coef') + Use In v_coef +Endif +pcschema2=[''] +pcselect2=[select * from ] + gcS + [.sal_calendar where 1=2] +pcorder2=[luna,an] +pcfiltru2 = [ luna = ] + ALLTRIM(STR(gnLuna)) + [ and an = ]+ALLTRIM(STR(gnAn)) +llAfiseaza = .F. +*!* WAIT WINDOW ' Luna:'+STR(gnLuna) + ' an:'+STR(gnAn) +gencursor('pozile','v_coef',pcselect2,pcfiltru2,pcschema2,pcorder2,llAfiseaza) +pozile.ca_baza1.afisare() + +SELECT v_coef +*-------------- +PRIVATE pnIdSal +STORE 0 TO pnIdSal + +pnIdSal = v_coef.id_Calendar +SELECT v_coef +SCATTER NAME pocoef + +ofrmform=Createobject('frm_salcoef') +ofrmform.Show(1) + +IF gnButon == 1 + lcSql = [update ] + gcS +[.sal_calendar set c_meds = ] + ALLTRIM(STR(NVL(pocoef.c_meds,0),5,3)) + [,] +; + [ c_medp = ] + ALLTRIM(STR(NVL(pocoef.c_medp,0),5,3)) +; + [,c_soms = ] + ALLTRIM(STR(NVL(pocoef.c_soms,0),5,3)) +; + [,c_somp = ] + ALLTRIM(STR(NVL(pocoef.c_somp,0),5,3)) +; + [,c_casp = ] + ALLTRIM(STR(NVL(pocoef.c_casp,0),5,3)) +; + [,salmin = ] + ALLTRIM(STR(NVL(pocoef.salmin,0),16,gnPa)) +; + [,salmed = ] + ALLTRIM(STR(NVL(pocoef.salmed,0),16,gnPa)) +; + [,c_munca = ] + ALLTRIM(STR(NVL(pocoef.c_munca,0),8,6)) +; + [,dedl1 = ] + ALLTRIM(STR(NVL(pocoef.dedl1,0),16,gnPa)) +; + [,dedl2 = ] + ALLTRIM(STR(NVL(pocoef.dedl2,0),16,gnPa)) +; + [,c_faambp = ] + ALLTRIM(STR(NVL(pocoef.c_faambp,0),8,6)) +; + [,zilecmplang = ] + ALLTRIM(STR(NVL(pocoef.zilecmplang,0))) +; + [,BAZA_INGR = ] + ALLTRIM(STR(NVL(pocoef.BAZA_INGR,0))) +; + [,c_cas1 = ] + ALLTRIM(STR(NVL(pocoef.c_cas1,0),6,4)) +; + [,c_cas2 = ] + ALLTRIM(STR(NVL(pocoef.c_cas2,0),6,4)) +; + [,c_cas3 = ] + ALLTRIM(STR(NVL(pocoef.c_cas3,0),6,4)) +; + [,FD_FNUASS = ] + ALLTRIM(STR(NVL(pocoef.FD_FNUASS,0),6,4)) +; + [where id_calendar = ] + ALLTRIM(STR(NVL(pnIdSal,0))) + + lnSucces = goExecutor.oExecute(lcSql) + IF lnSucces < 0 + MESSAGEBOX(goExecutor.cEroare,0 +16,'Eroare') + ENDIF + goExecutor.oReset() + + RETURN lnSucces +ENDIF +Release posarbat,ofrmform + + +ENDPROC +*----------------------------------sfarsit procedura sal_coef---------------------------------- \ No newline at end of file diff --git a/Programe/ovariabile_globale.prg b/Programe/ovariabile_globale.prg new file mode 100644 index 0000000..88b0b2a --- /dev/null +++ b/Programe/ovariabile_globale.prg @@ -0,0 +1,12 @@ +PUBLIC gcCondLuna +*!* gcCondLuna = [((((extract(month from datafact) =]+Alltrim(Str(gnLuna))+; +*!* [ and extract(year from datafact) =]+Alltrim(Str(gnAn))+[) or (datafact is null )); +*!* and ]+; +*!* [ (extract (month from datai)<=]+Alltrim(Str(gnLuna)) + [ and extract(year from datai)<= ]+Alltrim(Str(gnAn))+[))]+; +*!* [ or ((extract (month from dataoravalid)>= ]+Alltrim(Str(gnLuna))+[ and extract(year from dataoravalid)>=]+Alltrim(Str(gnAn)) +[)]+; +*!* [ and id_tip > 1)]+ [)] + +*!* lcDataFact= [ (a.facturat=1 and (extract(month from a.datafact) =]+Alltrim(Str(gnLuna))+[ and extract(year from a.datafact) =]+Alltrim(Str(gnAn))+[))] +*!* lcDataValid = [ (a.validat=1 and (extract (month from a.dataoravalid)>= ]+Alltrim(Str(gnLuna))+[ and extract(year from a.dataoravalid)>=]+Alltrim(Str(gnAn)) +[)) ] +*!* gcCondLuna = [ ((extract (month from a.datai)=]+Alltrim(Str(gnLuna)) + [ and extract(year from a.datai)= ]+Alltrim(Str(gnAn))+[) or ]+; +*!* [ (a.id_tip=1 and (a.facturat=0 or ] + lcDataFact + [) ) or (a.id_tip>1 and (a.validat=0 or ] + lcDataValid + [))) ] \ No newline at end of file diff --git a/Programe/pmenu.prg b/Programe/pmenu.prg new file mode 100644 index 0000000..dd829b6 --- /dev/null +++ b/Programe/pmenu.prg @@ -0,0 +1,4578 @@ +*-------------------------------------------- +Function deschide_menu +Parameters tabela, cc1,cc2,mnrtata,stinga,sus,ONT + +Public nt,no,m +nt=Alltrim(tabela)+'_'+Alltrim(Str(mnrtata)) + +If Upper(Left(tabela,6))='_MENU1' + no='o'+nt + zz='SELECT '+cc1+' AS C1, '+cc2+' AS C2,nrnod,PROCEDURA,TATAFIU,ID_SET,LISTA_NOTE FROM '+; + tabela+' WHERE NRTATA='+Alltrim(Str(mnrtata))+' INTO CURSOR '+nt +Else + no='o_'+nt + zz='SELECT '+cc1+' AS C1, '+cc2+' AS C2,nrnod,PROCEDURA,TATAFIU,ID_SET FROM '+; + tabela+' WHERE NRTATA='+Alltrim(Str(mnrtata))+' INTO CURSOR '+nt +Endif +&zz + + +m=0 + + + +Select &nt +Scan + mm=Len(Alltrim(c1)) + m=Iif(m>mm,m,mm) +Endscan + +ta=_Tally +If ta=0 + Return '0' +Endif + +If Type("&no")!='O' + Public &no + zz=no+'=crea("menuclasic")' + &zz + + With &no + wm=m*7 + .NUME=no + .ONUMETATA=ONT + .Left=stinga + .Top=sus + .tabela=tabela + .camp1=cc1 + .camp2=cc2 + .sursa=nt + .Width=wm+2*.margine + .NRFII=ta + .rh=.container1.cwm1.Height + .Height=(.rh+1)*.NRFII+2*.margine+2 +*.show() + Endwith +Endif + +Release nt,m +Return no + + + +*------------------------------------------------------------------------------------------ +Procedure deschide_menuuri +*!* If !Used('menu1') +*!* Use &DIRGEN\CONTAB\Date\menu1 In 0 Alias menu1 Order Tag 'nrnod' +*!* Endif +*!* If !Used('menu2') +*!* Use &DIRGEN\CONTAB\Date\menu2 In 0 Alias menu2 Order Tag 'nrnod' +*!* Endif +*!* If !Used('menu3') +*!* Use &DIRGEN\CONTAB\Date\menu3 In 0 Alias menu3 Order Tag 'nrnod' +*!* Endif +*!* If !Used('menu4') +*!* Use &DIRGEN\CONTAB\Date\menu4 In 0 Alias menu4 Order Tag 'nrnod' +*!* Endif + +*!* If PRIMADATA +*!* Do CE_WINDOWS +*!* omenuvertical=Crea('menuvertical') +*!* omenuvertical.Show() +*!* Endif +*deschide_menu(tabela, cc1,cc2,mnrtata,stinga,sus,ONT +Return + + + + +*-------------------------------------- +Procedure CE_WINDOWS +Local vermajor,verminor +Public TIP_MENU,COL_MENU,cewin +Store '' To cewin +Store 0 To vermajor,verminor,TIP_MENU + +vermajor=Val(Os(3)) +verminor=Val(Os(4)) +Do Case +Case vermajor<4 + cewin='95' +Case vermajor=4 + cewin='98' +Case vermajor>=5 + Do Case + Case verminor=0 + cewin='2000' + Case verminor=1 + cewin='XP' + Otherwise + cewin='MAINOU' + Endcase +Endcase + + +*IF INLIST(CEWIN,'95','98','2000') +TIP_MENU=0&&'RAISED' +*ELSE +*TIP_MENU=2&&'FLAT' +*ENDIF + +*!* Do Case +*!* Case Inlist(cewin,'95','98') +*!* COL_MENU=Rgb(192,192,192)&&GRI +*!* Case cewin='2000' +*!* COL_MENU=Rgb(212,208,200)&&NISIP GRI +*!* Case cewin='XP' +*!* COL_MENU=Rgb(236,233,216)&&NISIP BEJ +*!* Otherwise +COL_MENU=Rgb(255,255,255)&&ALB +*!* Endcase + + +Return + + + + +*-------------------------------------- +Function SCRIE_IN_FISIERE +Parameters INFORMGEST + +*!* DEBUG +*!* SUSPEND +Local M.DEB,M.CRED,COND +Store 0 To M.DEB, M.CRED +Public OZ +COND='(Empty(SUMA) AND INLIST(XSETS.ID_SET,70))'&&INREGISTRARI CU SUMA 0 + + +*!* SELECT actactan +*!* SCAN +*!* SCATTER NAME loCont +*!* IF EMPTY(loCont.ascd) +*!* SELECT plcontana +*!* LOCATE FOR cont=locont.scd +*!* IF FOUND() +*!* loCont.ascd='0000' +*!* ENDIF +*!* ENDIF +*!* IF EMPTY(loCont.ascc) +*!* SELECT plcontana +*!* LOCATE FOR cont=locont.scc +*!* IF FOUND() +*!* loCont.ascc='0000' +*!* ENDIF +*!* ENDIF +*!* SELECT actactan +*!* GATHER NAME loCont +*!* ENDSCAN +*!* RELEASE loCont + +DD=Datetime() +Do CODARE +Select ACTACTAN +Replace All COD With M.COD +Replace All UTIL With UTILIZATOR, DATAORA With DD +Go Top +Scatter Name OZ + + + +Select ACTACTAN +Scan For !Empty(SUMA) OR &COND + Scatter Memv + Select ACT + If Flock() + Append Blank + Gather Memv + Endif + Unlock + Select ACTAN + If Flock() + Append Blank + Gather Memv + Endif + Unlock + Select ACTACTAN +Endscan + +Do Case +Case Left(Upper(INFORMGEST),3)='NIR' + Do SCRIE_NIR +Case Left(Upper(INFORMGEST),3)='BON' + Select IESIRI + Replace All COD With M.COD + IF !INLIST(M.ID_SET,70) + Do IERULAJMAGAZII + Do IESTOCURIMAGAZII + ENDIF + If Inlist(M.ID_SET,74,75,76)&&TRANSFER + Select INTRARI + Replace All COD With M.COD + Do INRULAJMAGAZII + Do INSTOCURIMAGAZII + Endif +Case Upper(INFORMGEST)='SCHIMBPRET' + Select INTRARI + Replace All COD With M.COD + Select IESIRI + Replace All COD With M.COD + Do IERULAJMAGAZII + Do IESTOCURIMAGAZII + Do INRULAJMAGAZII + Do INSTOCURIMAGAZII +Endcase + + +&& TABELA DE CONTURI +*!* IF USED('conturi') +*!* USE IN conturi +*!* ENDIF + +*!* IF USED('cc') +*!* USE IN cc +*!* ENDIF + + + +IF _program='cont' + Select Distinct SCD As Cont,ascd as acont,99999999999999 As DEB,; + 99999999999999 As CRED,99999999999999.99 As DEBVAL,99999999999999.99 As CREDVAL; + FROM ACTACTAN Into Table &LOC\&NFSCURT\TEMPO\CONTURI +ELSE + Select Distinct SCD As Cont,ascd as acont,99999999999999 As DEB,; + 99999999999999 As CRED,99999999999999.99 As DEBVAL,99999999999999.99 As CREDVAL; + FROM ACTACTAN Into Table &LOC\&NFSCURT\TEMPO\CONTURI_g + USE IN conturi_g + USE &LOC\&NFSCURT\TEMPO\CONTURI_g IN 0 ALIAS conturi +ENDIF + +Select CONTURI +Replace All DEB With 0, CRED With 0,DEBVAL With 0, CREDVAL With 0 +Select Distinct SCC As Cont,ascc as acont From ACTACTAN; + WHERE SCC+ASCC Not In (Sele Distinct Cont+ACONT From CONTURI); + INTO Cursor CC +Select CONTURI +Append From Dbf('CC') + +Select CONTURI +Scan + Scatter Memv + Select ACTACTAN + Sum SUMA To M.DEB For SCD=M.CONT AND ascd=m.acont + Sum SUMA To M.CRED For SCC=M.CONT AND ascc=m.acont + Sum SUMA_2 To M.DEBVAL For SCD=M.CONT AND ascd=m.acont + Sum SUMA_2 To M.CREDVAL For SCC=M.CONT AND ascc=m.acont + Select CONTURI + Gather Fields DEB, CRED,DEBVAL,CREDVAL Memv +Endscan + + +&& SCRIE IN BALANTA +Select CONTURI +Scan + Scatter Memv + Select BAL + If Flock() + LOCATE FOR cont=M.CONT + If !Found() + Sele PLCONT + Locate For Left(CIMP1,4)=Left(M.CONT,4) + If Found() + Do MESAJ With 'Se introduce in balanta contul',M.CONT + Scatter Memvar + m.CONT=M.CIMP1 + m.denumire=m.cimp2 + Sele BAL + If Flock() + Append Blank + Gather Memvar + Endif + Unlock + Else + Do MESAJ With 'Contul '+M.CONT+' nu este introdus','nici in planul de conturi si nici in balanta!' + Do Form contnou + Endif + Endif + Select BAL + Replace RULDEB With RULDEB+M.DEB, TOTDEB With TOTDEB+M.DEB,; + RULCRED With RULCRED+M.CRED, TOTCRED With TOTCRED+M.CRED + SOLD=TOTDEB-TOTCRED + Replace SOLDDEB With Iif(SOLD>0,SOLD,0), SOLDCRED With Iif(SOLD<0,-SOLD,0) + Endif + Unlock + Select CONTURI +Endscan + +&&scrie in balanta analitica +Select ascd,ascc From ACTACTAN Where !Empty(ascd) Or !Empty(ascc) Into Cursor aacont +If _Tally<>0 + Select balana + If Flock() + Select ACTACTAN + Scan + Scatter Memv + &&deb + IF !EMPTY(m.ascd) + Select balana + Seek m.SCD+m.ascd + If !Found() + Seek m.SCD+'0000' + If !Found() + Append Blank + Replace Cont With m.SCD + Replace acont With '0000' + Endif + Endif + Replace RULDEB With RULDEB+M.suma, TOTDEB With TOTDEB+M.suma + SOLD=TOTDEB-TOTCRED + Replace SOLDDEB With Iif(SOLD>0,SOLD,0) + endif + &&cred + IF !EMPTY(m.ascc) + Select balana + Seek m.SCc+m.ascc + If !Found() + Seek m.SCc+'0000' + If !Found() + Append Blank + Replace Cont With m.SCc + Replace acont With '0000' + Endif + Endif + Replace RULcred With RULcred+M.suma, TOTcred With TOTcred+M.suma + SOLD=TOTDEB-TOTCRED + Replace SOLDcred With Iif(SOLD<0,-SOLD,0) + endif + Select ACTACTAN + Endscan + Endif + Unlock In balana +Endif + +&& SCRIE IN FISIERE +Select Distinct A.Cont,b.acont,A.FPROC,B.DEB,B.CRED,B.DEBVAL,B.CREDVAL From INFISIERE A, CONTURI B ; + WHERE A.Cont=B.Cont ; + INTO Cursor COM + +*!* SELECT com +*!* BROWSE + +Select COM +Scan + Scatter Memv + zz='Do '+Alltrim(FPROC)+' with m.deb,m.cred,M.DEBVAL,M.CREDVAL' + &zz +SELECT COM +Endscan + +SELECT com +LOCATE FOR INLIST(cont,'4426','4427') +IF !FOUND() + DO caut_neimpozab WITH 'actactan' +ENDIF + +m.NNIR=OZ.NNIR +If Type('OXSET')='O' + If !Empty(OXSET.LISTARE) + zz=Alltrim(OXSET.LISTARE) + zz='DO '+zz + If !Empty(OXSET.PARAM2) + zz=zz+' WITH '+OXSET.PARAM2 + Endif + &zz + Endif +Endif + +DO inchid_actcv +Do STERGE +Release OZ +Return 0 + + + + + +*----------------------------------------------- +Procedure _401 +Parameters debit,credit,VALDEBIT,VALCREDIT +&&&&&&&&&&& FURNIZOR + +Select FURNIZOR +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +Unlock + +Local di,din,div +SELECT actactan +Sum SUMA To di For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount +Sum neimpozab To din For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount +Sum SUMA_2 To div For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount valuta + +&&&&&&&&&&&CUMPLUN +Local nui +Select cumplun +Set Order To nract +&&creditul=factura + +If credit!=0 OR din!=0 && discount neimpozabil + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascc=m.acont + Scatter NAME o401 + + Select cumplun + Seek o401.nract + If Found() + Locate For nract=o401.nract And dataact=o401.dataact And NUME=o401.NUME AND acont=o401.ascc + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + Replace totctva With 0,SUMAVAL WITH 0 + Endif + Replace totctva With totctva+credit-di + Replace SUMAVAL With SUMAVAL+VALcredit-div + REPLACE cursschimb WITH o401.suma_3 + REPLACE ACONT WITH o401.ascc + Endif + Unlock +Endif + +RELEASE o401 +&&debitul=plata +If debit!=0 OR (credit=0 AND debit=0) && atunci cand sunt sume cu + si -, cu total 0 + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont + Scatter Memv + + Select cumplun + DO CASE + CASE !(COD=M.COD) AND !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_plati With 'cumplun','ascd','nume' + OTHERWISE + Select cumplun + If Flock() + Replace achitat With achitat+debit-di + Replace achitatVAL With achitatVAL+VALdebit-div + Endif + Unlock + ENDCASE +Endif + +Select cumplun +Set Order To Tag dataireg + +&&&&&&&&&&&CUMP + +*!* If credit!=0 OR din!=0 && discount neimpozabil + +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCC=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For SCC=m.CONT AND ascc=m.acont +*!* m.neimpozab=m.neimpozab-din + +*!* * Sum SUMA To di For Left(SCC,1)='7' And SCD=m.CONT &&discount + +*!* m.totctva=credit-di +*!* +*!* * Sum suma To m.tvam For Left(scd,3)='442' AND SCC=m.CONT AND ascc=m.acont +*!* Select CONTURI +*!* Locate For Left(Cont,3)='442' +*!* If Found() +*!* m.tvam=DEB-CRED +*!* Endif + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* ** m.totctva=m.totftvam+m.neimpozab+m.tvam + +*!* Select cump +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME +*!* IF !FOUND() +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* UNLOCK +*!* ELSE +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* Endif + +Return + + +*----------------------------------------------- +Procedure _404 +Parameters debit,credit,VALDEBIT,VALCREDIT +Select FURNIZ404 +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +UNLOCK + +Local di,din,div +SELECT actactan +Sum SUMA To di For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount +Sum neimpozab To din For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount +Sum SUMA_2 To div For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount valuta + +&&&&&&&&&&&CUMPLUN +Local nui +Select cumplun404 +Set Order To nract +&&creditul=factura +If credit!=0 OR din!=0 && discount neimpozabil + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascc=m.acont + *Scatter Memv + SCATTER NAME o404 + + Select cumplun404 + Seek o404.nract + If Found() + Locate For nract=o404.nract And dataact=o404.dataact And NUME=o404.NUME AND acont=o404.ascc + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + GATHER NAME o404 + Replace totctva With 0,SUMAVAL WITH 0 + Endif + Replace totctva With totctva+credit-di + Replace SUMAVAL With SUMAVAL+VALcredit-div + REPLACE cursschimb WITH o404.suma_3 + REPLACE ACONT WITH o404.ascc + Endif + Unlock +Endif + +&&debitul=plata +If debit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont + Scatter Memv + + Select cumplun404 + DO CASE + CASE !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_plati With 'cumplun404','ascd','nume' + OTHERWISE + Select cumplun404 + If Flock() + Replace achitat With achitat+debit-di + Replace achitatVAL With achitatVAL+VALdebit-div + Endif + Unlock + ENDCASE +Endif + +Select cumplun404 +Set Order To Tag dataireg + +&&&&&&&&&&&CUMP + +*!* If credit!=0 OR din!=0 && discount neimpozabil + +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCC=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For SCC=m.CONT +*!* m.neimpozab=m.neimpozab-din +*!* * Sum SUMA To di For Left(SCC,1)='7' And SCD=m.CONT &&discount + +*!* m.totctva=credit-di + +*!* Select CONTURI +*!* Locate For Left(Cont,3)='442' +*!* If Found() +*!* m.tvam=DEB-CRED +*!* Endif + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* **m.totctva=m.totftvam+m.neimpozab+m.tvam + +*!* Select cump +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME +*!* IF !FOUND() +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* UNLOCK +*!* ELSE +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* Endif + +RETURN + + +*----------------------------------------------- +PROCEDURE _4426 +Parameters debit,credit,VALDEBIT,VALCREDIT +Store 0 To m.totctvam,m.totftvam,m.tvam,neimpozab,totftvai,tvai + +SELECT infisiere +LOCATE FOR cont='4426' +SCATTER NAME ofis +lcCoresp_d=ALLTRIM(ofis.coresp_d) +lcCoresp_c=ALLTRIM(ofis.coresp_c) + + +SELECT actactan +SUM suma TO tvam_deb FOR scd='4426' AND proc_tva=m.ctvam AND INLIST(ALLTRIM(scc),&lcCoresp_d) +SUM suma TO tvam_cred FOR scc='4426' AND proc_tva=m.ctvam AND INLIST(ALLTRIM(scd),&lcCoresp_c) +m.tvam=tvam_deb-tvam_cred +SUM suma TO tvai_deb FOR scd='4426' AND proc_tva=m.ctvai AND INLIST(ALLTRIM(scc),&lcCoresp_d) +SUM suma TO tvai_cred FOR scc='4426' AND proc_tva=m.ctvai AND INLIST(ALLTRIM(scd),&lcCoresp_c) +m.tvai=tvai_deb-tvai_cred + + +IF debit#0 OR (credit=0 AND debit=0) + *m.tvam=debit-credit + + SELECT SUM(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),neimpozab,IIF(ALLTRIM(scc)='767' AND INLIST(ALLTRIM(scd),&lcCoresp_d),-neimpozab,0))) as neimpozab; + FROM actactan INTO CURSOR tcn + + SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),suma,IIF(ALLTRIM(scc)='767' AND INLIST(ALLTRIM(scd),&lcCoresp_d),-suma,0))) as totctvam; + FROM actactan WHERE proc_tva=m.ctvam ; + INTO CURSOR tvam + + SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),suma,IIF(ALLTRIM(scc)='767' AND INLIST(ALLTRIM(scd),&lcCoresp_d),-suma,0))) as totctvai; + FROM actactan WHERE proc_tva=m.ctvai ; + INTO CURSOR tvai + + SELECT tvam + SCATTER MEMVAR + SELECT tcn + SCATTER MEMVAR + SELECT tvai + SCATTER MEMVAR + + USE IN tvam + USE IN tcn + USE IN tvai + + m.totftvam=m.totctvam-m.tvam + m.totftvai=m.totctvai-m.tvai + m.totctva=m.totctvam+m.totctvai+m.neimpozab + + IF EMPTY(m.totctva) + RELEASE ofis + RELEASE o4426 + RETURN + ENDIF + + SELECT actactan + LOCATE FOR scd='4426' + IF !FOUND() OR scc='4428' + GO top + ENDIF + SCATTER NAME o4426 + o4426.scd=o4426.scc + + Select cump + Locate For nract=o4426.nract AND cod=o4426.cod &&And dataact=m.dataact And NUME=m.NUME + IF !FOUND() + If Flock() + Append Blank + Gather NAME o4426 + GATHER MEMVAR + Endif + UNLOCK + ELSE + REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; + tvam WITH tvam+m.tvam,totftvai WITH totftvai+m.totftvai, ; + tvai WITH tvai+m.tvai,neimpozab WITH neimpozab+m.neimpozab + ENDIF +ENDIF + +IF credit#0 + *m.tvam=debit-credit + SELECT SUM(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),-neimpozab,0)) as neimpozab ; + FROM actactan INTO CURSOR tcn + + SELECT sum(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),-suma,0)) as totctvam ; + FROM actactan WHERE proc_tva=m.ctvam; + INTO CURSOR tvam + + SELECT sum(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),-suma,0)) as totctvai ; + FROM actactan WHERE proc_tva=m.ctvai ; + INTO CURSOR tvai + + SELECT tvam + SCATTER MEMVAR + SELECT tcn + SCATTER MEMVAR + SELECT tvai + SCATTER MEMVAR + + USE IN tvam + USE IN tcn + USE IN tvai + + m.totftvam=m.totctvam-m.tvam + m.totftvai=m.totctvai-m.tvai + m.totctva=m.totctvam+m.totctvai+m.neimpozab + + IF EMPTY(m.totctva) + RELEASE ofis + RELEASE o4426 + RETURN + ENDIF + + SELECT actactan + LOCATE FOR scc='4426' + SCATTER NAME o4426 + + + Select cump + Locate For nract=o4426.nract AND cod=o4426.cod &&And dataact=m.dataact And NUME=m.NUME + IF !FOUND() + If Flock() + Append Blank + Gather NAME o4426 + GATHER MEMVAR + Endif + UNLOCK + ELSE + REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; + tvam WITH tvam+m.tvam,totftvai WITH totftvai+m.totftvai, ; + tvai WITH tvai+m.tvai,neimpozab WITH neimpozab+m.neimpozab + ENDIF +ENDIF + +RELEASE ofis +RELEASE o4426 +RETURN + +*----------------------------------------------- +Procedure _408 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select ana408 +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +Unlock + + +SELECT DISTINCT scd as cont,ascd as acont,proc_tva,sum(suma) as suma408,sum(suma_2) as suma408_2,"D" as tip ; +from actactan WHERE scd='408 ' AND ascd=m.acont GROUP BY ascd,proc_tva INTO CURSOR t408 ; +UNION ; +SELECT DISTINCT scc as cont,ascc as acont,proc_tva,sum(suma) as suma408,sum(suma_2) as suma408_2,"C" as tip ; +from actactan WHERE scc='408 ' AND ascc=m.acont GROUP BY ascc,proc_tva; +order BY tip + +SELECT t408 +SCAN FOR tip='C' + SCATTER MEMVAR +&&&&&&&&&&& FACT408 +Local nui +Select fact408 +Set Order To nract + +Select fact408 +&&creditul=factura +*If credit!=0 + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascc=m.acont AND proc_tva=m.proc_tva + Scatter Memv + + Select fact408 + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont AND proc_tva=m.proc_tva + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + Replace totctva With 0 + Replace SUMAVAL With 0 + Endif + + Select fact408 + Replace totctva With totctva+m.suma408 &&credit + Replace SUMAVAL With SUMAVAL+m.suma408_2 &&VALcredit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascc + ENDIF + Unlock +*Endif +ENDSCAN +&&debitul=plata + +If debit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont + Scatter Memv + + Select fact408 + If !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_plati With 'fact408','ascd','nume' + Else + Select fact408 + If Flock() + Replace achitat With achitat+debit + Replace achitatVAL With achitatVAL+VALdebit + Endif + Unlock + Endif +Endif + +Select fact408 +Set Order To Tag dataireg + +&&&&&&&&&&&CUMP + +*!* LOCAL di +*!* If credit!=0 +*!* +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCC=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For SCC=m.CONT +*!* SUM suma TO di FOR LEFT(scc,1)='7' AND SCd=m.CONT&&discount + +*!* m.totctva=credit-di + +*!* Select CONTURI +*!* Locate For LEFT(Cont,3)='442' +*!* If Found() +*!* m.tvam=DEB-cred +*!* Endif + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam + +*!* Select cump +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* Unlock +*!* Endif + +Return + + + + +*------------------------------------------------------------- +Procedure _409 +Parameters debit,credit,VALDEBIT,VALCREDIT +Select AVANS409 +If debit#0 + If Flock() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME + If !Found() + Append Blank + Gather Fields Except achitat,facturat,achitatval,factval Memv + Endif + Replace achitat With achitat+debit &&, facturat With facturat+credit + Replace achitatVAL With achitatVAL+VALdebit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascd + Endif + Unlock +ENDIF + +If credit#0 +*!* If Used('actcv1') +*!* Select actcv1 +*!* Scan For ALES +*!* Scatter Name av +*!* Select AVANS409 +*!* Locate For nract=av.nract And dataact=av.dataact And NUME=av.NUME +*!* If Flock() +*!* Replace facturat With facturat+av.sumaachi +*!* Replace factVAL With factVAL+av.sumaachi2 +*!* Endif +*!* Unlock +*!* Select actcv1 +*!* ENDSCAN +*!* Release av +*!* ELSE &&la modificare + SELECT actactan + LOCATE FOR LEFT(scc,3)='409' + SCATTER NAME omodif +*!* lcDat=Right(Allt(omodif.NRORD),10) +*!* ldDAT=Ctod(lcDat) +*!* lcNr=Strtran(Strtran(omodif.NRORD,lcDat,''),'/','') +*!* lnNr=Val(lcNr) + Select AVANS409 + Locate For nract=omodif.pereche2 And NUME=omodif.NUME + IF FOUND() + If Flock() + Replace facturat With facturat+CREDIT + Replace factVAL With factVAL+valCREDIT + Endif + UNLOCK + ENDIF + Release omodif +*!* ENDIF +*!* +Endif + + +Select FURNIZOR +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace avans With avans+debit-credit + Replace avansVAL With avansVAL+VALdebit-VALcredit +Endif +Unlock +IF USED('actcv1') + USE IN actcv1 +ENDIF +Return + +*----------------------------------------------- +Procedure _411 +Parameters debit,credit,VALDEBIT,VALCREDIT +Select clienti + +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +UNLOCK + + +IF id_set=10421 + DO regularizare_clienti + IF USED('actcv') + USE IN actcv + ENDIF + RETURN +ENDIF + +Local di,din,div +SELECT actactan +Sum SUMA To di For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount +Sum neimpozab To din For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount +Sum SUMA_2 To div For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount valuta + +&&&&&&&&&&&vanzLUN +Local nui +Select vanzlun +Set Order To nract +&&debitul=factura +If (debit!=0 OR din!=0) &&AND xsets.id_set!=10421 && discount neimpozabil + regularizari avans-facturi(e uraaaaaaaaaaaaaaaaaat) + nui=.F. + Select ACTACTAN + Locate For Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont + Scatter Memv + +*!* IF m.ctvam#m.ctvai +*!* SUM suma TO m.totftvam FOR Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont AND proc_tva=m.ctvam +*!* SUM suma TO m.tvam FOR SCc='4427' AND ascd=m.acont AND proc_tva=m.ctvam +*!* SUM suma TO m.totftvai FOR Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont AND proc_tva=m.ctvai +*!* SUM suma TO m.tvai FOR SCc='4427' AND ascd=m.acont AND proc_tva=m.ctvai +*!* SUM suma TO m.neimpozab FOR Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont AND neimpozab#0 +*!* ENDIF + + Select vanzlun + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + ENDIF + + If Flock() + If nui + Append Blank + Gather Fields Except achitat,totctva,ACHITATVAL,SUMAVAL Memv + ENDIF + + Replace totctva With totctva+debit-di + Replace SUMAVAL With SUMAVAL+VALdebit-div +*!* REPLACE totftvam WITH totftvam+m.totftvam-di,totftvai WITH totftvai+m.totftvai-di,tvam WITH tvam+m.tvam,tvai WITH tvai+m.tvai,neimpozab WITH neimpozab+m.neimpozab + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascd + Endif + Unlock +Endif + + +&&creditul=plata +If credit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For Left(SCC,3)=Left(m.CONT,3) AND ascc=m.acont + Scatter Memv + Select vanzlun + DO CASE + CASE !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'vanzlun','ascc','nume' + OTHERWISE + Select vanzlun + If Flock() + Replace achitat With achitat+credit-di + Replace achitatVAL With achitatVAL+VALcredit-div + Endif + Unlock + ENDCASE + +Endif + +Select vanzlun +Set Order To Tag dataireg + +&&&&&&&&&&&vanz + +*!* If debit!=0 OR din!=0 && discount neimpozabil +*!* m.totctva=debit-di +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCD=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For Left(SCD,3)=Left(m.CONT,3) +*!* m.neimpozab=m.neimpozab-din + +*!* Select CONTURI +*!* Locate For Cont='4427' +*!* If Found() +*!* m.tvam=CRED +*!* Endif + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam + +*!* Select vanz +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME +*!* IF !FOUND() +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* UNLOCK +*!* ELSE +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* Endif + +Return + + +*----------------------------------------------- + +PROCEDURE _4427 +Parameters debit,credit,VALDEBIT,VALCREDIT +Store 0 To m.totctvam,m.totftvam,m.tvam,m.neimpozab,m.totftvai,m.tvai + +SELECT infisiere +LOCATE FOR cont='4427' +SCATTER NAME ofis +lcCoresp_c=ALLTRIM(ofis.coresp_c) +lcCoresp_d=ALLTRIM(ofis.coresp_d) + +SELECT actactan +SUM suma TO tvam_deb FOR scd='4427' AND proc_tva=m.ctvam AND INLIST(ALLTRIM(scc),&lcCoresp_d) +SUM suma TO tvam_cred FOR scc='4427' AND proc_tva=m.ctvam AND INLIST(ALLTRIM(scd),&lcCoresp_c) +m.tvam=tvam_cred-tvam_deb +SUM suma TO tvai_deb FOR scd='4427' AND proc_tva=m.ctvai AND INLIST(ALLTRIM(scc),&lcCoresp_d) +SUM suma TO tvai_cred FOR scc='4427' AND proc_tva=m.ctvai AND INLIST(ALLTRIM(scd),&lcCoresp_c) +m.tvai=tvai_cred-tvai_deb + + +IF credit#0 OR (credit=0 AND debit=0) + SELECT sum(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),neimpozab,IIF(ALLTRIM(scd)='667' AND INLIST(ALLTRIM(scc),&lcCoresp_c),-neimpozab,0))) as neimpozab ; + FROM ACTACTAN INTO CURSOR tcn + + SELECT sum(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),suma,IIF(ALLTRIM(scd)='667' AND INLIST(ALLTRIM(scc),&lcCoresp_c),-suma,0))) as totctvam; + FROM actactan WHERE proc_tva=m.ctvam ; + INTO CURSOR tvam + + SELECT sum(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),suma,IIF(ALLTRIM(scd)='667' AND INLIST(ALLTRIM(scc),&lcCoresp_c),-suma,0))) as totctvai; + FROM actactan WHERE proc_tva=m.ctvai ; + INTO CURSOR tvai + + SELECT tvam + SCATTER MEMVAR + SELECT tcn + SCATTER MEMVAR + SELECT tvai + SCATTER MEMVAR + + USE IN tvam + USE IN tcn + USE IN tvai + + m.totftvam=m.totctvam-m.tvam + m.totftvai=m.totctvai-m.tvai + m.totctva=m.totctvam+m.totctvai+m.neimpozab + + IF EMPTY(m.totctva) + RELEASE ofis + RETURN + ENDIF + + SELECT actactan + LOCATE FOR scc='4427' + IF !FOUND() OR scd='4428' + GO top + ENDIF + SCATTER FIELDS EXCEPT neimpozab MEMVAR + + Select vanz + Locate For nract=m.nract AND cod=m.cod &&And dataact=m.dataact And NUME=m.NUME + IF !FOUND() + If Flock() + Append Blank + Gather Memv + Endif + UNLOCK + ELSE + REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; + tvam WITH tvam+m.tvam,totftvai WITH totftvai+m.totftvai, ; + tvai WITH tvai+m.tvai,neimpozab WITH neimpozab+m.neimpozab + ENDIF +ENDIF + +IF debit#0 +*!* SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),-suma,0)) as totctva,; +*!* sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),-neimpozab,0)) as neimpozab ; +*!* FROM actactan ; +*!* INTO CURSOR tva +*!* +*!* SELECT tva +*!* SCATTER MEMVAR +*!* m.tvam=credit-debit +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam + + SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),-neimpozab,0)) as neimpozab ; + FROM actactan INTO CURSOR tcn + + SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),-suma,0)) as totctvam ; + FROM actactan WHERE proc_tva=m.ctvam ; + INTO CURSOR tvam + + SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),-suma,0)) as totctvai ; + FROM actactan WHERE proc_tva=m.ctvai ; + INTO CURSOR tvai + + SELECT tvam + SCATTER MEMVAR + SELECT tcn + SCATTER MEMVAR + SELECT tvai + SCATTER MEMVAR + + USE IN tvam + USE IN tcn + USE IN tvai + + m.totftvam=m.totctvam-m.tvam + m.totftvai=m.totctvai-m.tvai + m.totctva=m.totctvam+m.totctvai+m.neimpozab + + IF EMPTY(m.totctva) + RELEASE ofis + RETURN + ENDIF + + SELECT actactan + LOCATE FOR scd='4427' + SCATTER FIELDS EXCEPT neimpozab MEMVAR + m.scd=m.scc + + Select vanz + Locate For nract=m.nract AND cod=m.cod &&And dataact=m.dataact And NUME=m.NUME + IF !FOUND() + If Flock() + Append Blank + Gather Memv + Endif + UNLOCK + ELSE + REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; + tvam WITH tvam+m.tvam,totftvai WITH totftvai+m.totftvai, ; + tvai WITH tvai+m.tvai,neimpozab WITH neimpozab+m.neimpozab + ENDIF +ENDIF + + + +RELEASE ofis +RETURN +*---------------------------------------------------------------- + +Procedure _4118 +Parameters debit,credit,VALDEBIT,VALCREDIT +Select client4118 + +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +Unlock + +&&&&&&&&&&&vanzLU4118 +Local nui +Select vanzlu4118 +Set Order To nract +&&debitul=factura +If debit!=0 + nui=.F. + Select ACTACTAN + Locate For Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont + Scatter Memv + + Select vanzlu4118 + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Fields Except achitat,totctva,ACHITATVAL,SUMAVAL Memv + Endif + Replace totctva With totctva+debit + Replace SUMAVAL With SUMAVAL+VALdebit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascd + Endif + Unlock +Endif + + + +&&creditul=plata +If credit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For Left(SCC,3)=Left(m.CONT,3) AND ascc=m.acont + Scatter Memv + Select vanzlu4118 + If !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'vanzlu4118','ascc','nume' + Else + Select vanzlu4118 + If Flock() + Replace achitat With achitat+credit + Replace achitatVAL With achitatVAL+VALcredit + Endif + Unlock + Endif + +Endif + + +Select vanzlu4118 +Set Order To Tag dataireg + +&&&&&&&&&&&vanz + +*!* if debit!=0 +*!* SELECT vanz +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME +*!* If Found() +*!* IF FLOCK() +*!* REPLACE scd WITH m.cont +*!* ENDIF +*!* ENDIF + +*!* *!* m.totctva=debit +*!* *!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* *!* Select ACTACTAN +*!* *!* Locate For SCD=m.CONT +*!* *!* Scatter Memv +*!* *!* Sum neimpozab To m.neimpozab For Left(SCC,3)=Left(m.CONT,3) + + +*!* *!* Select CONTURI +*!* *!* Locate For Cont='4427' +*!* *!* If Found() +*!* *!* m.tvam=CRED +*!* *!* Endif + +*!* *!* m.totftvam=m.totctva-m.neimpozab-m.tvam + +*!* *!* Select vanz +*!* *!* If Flock() +*!* *!* Append Blank +*!* *!* Gather Memv +*!* *!* Endif +*!* *!* Unlock +*!* Endif + + +RETURN + +*----------------------------------------------- +Procedure _418 +Parameters debit,credit,VALDEBIT,VALCREDIT +Select ana418 + +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +Unlock + +*!* &&&&&&&&&&&vanzLUN +*!* Local nui +*!* Select fact418 +*!* Set Order To nract +*!* &&debitul=factura +*!* If debit!=0 +*!* nui=.F. +*!* Select ACTACTAN +*!* Locate For Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont +*!* Scatter Memv + +*!* Select fact418 +*!* Seek m.nract +*!* If Found() +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont +*!* If !Found() +*!* nui=.T. +*!* Endif +*!* Else +*!* nui=.T. +*!* Endif +*!* If Flock() +*!* If nui +*!* Append Blank +*!* Gather Fields Except achitat,totctva,ACHITATVAL,SUMAVAL Memv +*!* Endif +*!* Replace totctva With totctva+debit +*!* Replace SUMAVAL With SUMAVAL+VALdebit +*!* REPLACE cursschimb WITH m.suma_3 +*!* REPLACE ACONT WITH m.ascd +*!* Endif +*!* Unlock +*!* Endif + + +SELECT DISTINCT scd as cont,ascd as acont,proc_tva,sum(suma) as suma418,sum(suma_2) as suma418_2,"D" as tip ; +from actactan WHERE scd='418 ' AND ascd=m.acont GROUP BY ascd,proc_tva INTO CURSOR t418 ; +UNION ; +SELECT DISTINCT scc as cont,ascc as acont,proc_tva,sum(suma) as suma418,sum(suma_2) as suma418_2,"C" as tip ; +from actactan WHERE scc='418 ' AND ascc=m.acont GROUP BY ascc,proc_tva; +order BY tip + +&&&&&&&&&&& FACT418 +SELECT t418 +SCAN FOR tip='D' + SCATTER MEMVAR + Local nui + Select fact418 + Set Order To nract + + Select fact418 + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont AND proc_tva=m.proc_tva + Scatter Memv + + Select fact418 + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont AND proc_tva=m.proc_tva + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + Replace totctva With 0 + Replace SUMAVAL With 0 + Endif + + Select fact418 + Replace totctva With totctva+m.suma418 &&credit + Replace SUMAVAL With SUMAVAL+m.suma418_2 &&VALcredit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascd + ENDIF + UNLOCK +ENDSCAN +&&creditul=plata +If credit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For Left(SCC,3)=Left(m.CONT,3) AND ascc=m.acont + Scatter Memv + Select fact418 + If !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'fact418','ascc','nume' + Else + Select fact418 + If Flock() + Replace achitat With achitat+credit + Replace achitatVAL With achitatVAL+VALcredit + Endif + Unlock + Endif + +Endif + + +Select fact418 +Set Order To Tag dataireg + +Return + +*----------------------------------------------- +Procedure _461 +Parameters Tndebit,Tncredit,TnVALDEBIT,TnVALCREDIT +Select debitor + +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace DEBIT With DEBIT+tndebit, CREDIT With CREDIT+tncredit + Replace VALDEBIT With VALDEBIT +tnVALdebit, VALCREDIT With VALCREDIT+tnVALcredit +Endif +UNLOCK + +LOCAL di,din +SELECT actactan +Sum SUMA To di For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount +Sum neimpozab To din For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount +Sum SUMA_2 To div For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount valuta + +&&&&&&&&&&&vanzLUN +Local nui +Select deblun +Set Order To nract +&&debitul=factura +If tndebit!=0 + nui=.F. + Select ACTACTAN + Locate For Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont + Scatter Memv + + Select deblun + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Fields Except achitat,totctva,ACHITATVAL,SUMAVAL Memv + ENDIF + Replace totctva With totctva+TnDebit-di + Replace SUMAVAL With SUMAVAL+TnVALdebit-div + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascd + Endif + Unlock +Endif + + + +&&creditul=plata +If tnCredit!=0 OR (tnCredit=0 AND tnDebit=0) + nui=.F. + Select ACTACTAN + Locate For Left(SCC,3)=Left(m.CONT,3) AND ascc=m.acont + Scatter Memv + Select deblun + DO CASE + CASE !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'deblun','ascc','nume' + OTHERWISE + Select deblun + If Flock() + Replace achitat With achitat+tnCredit-di + Replace achitatVAL With achitatVAL+TnVALcredit-div + Endif + Unlock + ENDCASE + +Endif + + +Select deblun +Set Order To Tag dataireg + +&&&&&&&&&&&vanz + +*!* If tnDebit!=0 OR din!=0 && discount neimpozabil +*!* m.totctva=tndebit-di +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCD=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For Left(SCD,3)=Left(m.CONT,3) +*!* m.neimpozab=m.neimpozab-din + +*!* Select CONTURI +*!* Locate For Cont='4427' +*!* If Found() +*!* m.tvam=CRED +*!* Endif + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam + +*!* Select vanz +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME +*!* IF !FOUND() +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* UNLOCK +*!* ELSE +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* Endif + + +Return +*----------------------------------------------- +Procedure _462 +Parameters Tndebit,Tncredit,TnVALDEBIT,TnVALCREDIT +Select CREDITOR + +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace DEBIT With DEBIT+tndebit, CREDIT With CREDIT+tncredit + Replace VALDEBIT With VALDEBIT +tnVALdebit, VALCREDIT With VALCREDIT+tnVALcredit +Endif +UNLOCK + +&&&&&&&&&&&CREDLUN +Local nui +Select CREDlun +Set Order To nract +&&creditul=factura +If TNcredit!=0 + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascc=m.acont + Scatter Memv + + Select CREDlun + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Fields Except totctva Memv + Endif + Replace totctva With totctva+TNcredit + Replace SUMAVAL With SUMAVAL+TnVALcredit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascc + Endif + Unlock +Endif + + +&&debitul=plata +If TNdebit!=0 OR (TNcredit=0 AND TNdebit=0) + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont + Scatter Memv + + Select CREDlun + DO CASE + CASE !(COD=M.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_plati With 'CREDlun','ascd','nume' + OTHERWISE + Select CREDlun + If Flock() + Replace achitat With achitat+TNdebit + Replace achitatVAL With achitatVAL+TnVALdebit + Endif + Unlock + ENDCASE +Endif + +Select CREDlun +Set Order To Tag dataireg + +&&&&&&&&&&& CUMP NU STIU ???????????????? + +*!* Local di +*!* If credit!=0 + +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCC=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For SCC=m.CONT +*!* Sum SUMA To di For Left(SCC,1)='7' And SCD=m.CONT&&discount + +*!* m.totctva=credit-di + +*!* Select CONTURI +*!* Locate For Left(Cont,3)='442' +*!* If Found() +*!* m.tvam=DEB-CRED +*!* Endif + + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* *m.totctva=m.totftvam+m.neimpozab+m.tvam + +*!* Select cump +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* Unlock +*!* Endif + +Return + + +*----------------------------------------------- +Procedure _419 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select AVANS419 +If credit#0 + If Flock() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME + If !Found() + Append Blank + Gather Fields Except achitat,facturat,achitatval,factval Memv + Endif + Replace achitat With achitat+credit &&, facturat With facturat+credit + Replace achitatVAL With achitatVAL+VALcredit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascc + Endif + Unlock +Endif +If debit#0 +*!* If Used('actcv1') +*!* Select actcv1 +*!* Scan For ALES +*!* Scatter Name av +*!* Select AVANS419 +*!* Locate For nract=av.nract And dataact=av.dataact And NUME=av.NUME +*!* If Flock() +*!* Replace facturat With facturat+av.sumaachi +*!* Replace factVAL With factVAL+av.sumaachi2 +*!* Endif +*!* Unlock +*!* Select actcv1 +*!* Endscan +*!* Release av +*!* ELSE &&la modificare + SELECT actactan + LOCATE FOR LEFT(scd,3)='419' + SCATTER NAME omodif +*!* lcDat=Right(Allt(omodif.NRORD),10) +*!* ldDAT=Ctod(lcDat) +*!* lcNr=Strtran(Strtran(omodif.NRORD,lcDat,''),'/','') +*!* lnNr=Val(lcNr) + Select AVANS419 + Locate For nract=omodif.pereche And NUME=omodif.NUME + IF FOUND() + If Flock() + Replace facturat With facturat+debit + Replace factVAL With factVAL+valdebit + Endif + UNLOCK + ENDIF + Release omodif +*!* Endif +Endif + + +Select clienti +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace avans With avans-debit+credit + Replace avansVAL With avansVAL-VALdebit+VALcredit +Endif +Unlock + +DO inchid_actcv + +Return + +*----------------------------------------------- +Procedure _5311 +Parameters debit,credit,VALDEBIT,VALCREDIT +STORE 0 TO m.plati,m.incasari + +&&credit=casa plateste + +IF CREDIT#0 + Select ACTACTAN + Locate For SCC=m.CONT + Scatter Memv + *m.casa=m.CASACRED + m.casa=ALLTRIM(m.nume_3) + + Select casa + If Flock() + Append Blank + Gather Memv + Replace plati With credit + Endif + Unlock + + Select casanume + *Locate For casa=m.casaCRED + Locate For ALLTRIM(casa)=m.casa + If Flock() + If !Found() + Append Blank + *Gather Fields casa Memv + REPLACE CASA WITH M.CASA + Endif + Replace plati With plati+credit + Endif + Unlock +ENDIF + +&&debit=casa incas +IF DEBIT#0 + Select ACTACTAN + Locate For SCD=m.CONT + Scatter Memv + *m.casa=m.CASADEB + m.casa=ALLTRIM(m.nume_3) + + Select casa + If Flock() + Append Blank + Gather Memv + Replace incasari With debit + Endif + Unlock + + Select casanume + Locate For ALLTRIM(casa)=m.casa + If Flock() + If !Found() + Append Blank + *Gather Fields casa Memv + REPLACE CASA WITH M.CASA + Endif + Replace incasari With incasari+debit + Endif + Unlock +ENDIF + + +Return + +*----------------------------------------------- +Procedure _5314 +Parameters debit,credit,VALDEBIT,VALCREDIT + +STORE 0 TO m.plati,m.incasari,m.platival,m.incasval + +&&credit=casa plateste +IF CREDIT#0 + IF EMPTY(M.CASAVALCRE) && pt modificare + Select ACTACTAN + Locate For SCC=m.CONT + M.CASAVALCRE=nume_5 + ENDIF + Select casVnume + Locate For NUME_5=M.CASAVALCRE + If Flock() + If !Found() + Append Blank + REPLACE NUME_5 WITH M.CASAVALCRE + *Gather Fields NUME_5 Memv + Endif + Replace plati With plati+credit + Replace platiVAL With platiVAL+VALcredit + REPLACE numeval WITH m.nume_4 + Endif + UNLOCK + + Select ACTACTAN + SCAN For SCC=m.CONT && din cauza diferentelor de curs valutar + Scatter Memv + *m.casa=m.nume_5 + M.CASA=M.CASAVALCRE + Select casaVAL + If Flock() + Append Blank + Gather Memv + Replace plati With m.suma,cursschimb WITH m.suma_3,numeval WITH m.nume_4 + Replace platiVAL With m.suma_2 + Endif + UNLOCK + SELECT actactan + ENDSCAN +ENDIF + +&&debit=casa incas +IF DEBIT#0 + IF EMPTY(M.CASAVALDEB) && pt modificare + Select ACTACTAN + Locate For SCD=m.CONT + M.CASAVALDEB=nume_5 + ENDIF + + Select casVnume + Locate For NUME_5=m.CASAVALDEB + SELECT casvnume + If Flock() + If !Found() + Append Blank + *Gather Fields NUME_5 Memv + REPLACE NUME_5 WITH m.CASAVALDEB + Endif + Replace incasari With incasari+debit + Replace incasVAL With incasVAL+VALdebit + REPLACE numeval WITH m.nume_4 + Endif + UNLOCK + + Select ACTACTAN + SCAN For SCD=m.CONT && din cauza diferentelor de curs valutar + Scatter Memv + *m.casa=m.nume_5 + M.CASA=m.CASAVALDEB + + Select casaVAL + If Flock() + Append Blank + Gather Memv + Replace incasari With m.suma,cursschimb WITH m.suma_3,numeval WITH m.nume_4 + Replace incasVAL With m.suma_2 + Endif + UNLOCK + + SELECT actactan + ENDSCAN +ENDIF +Return + +*----------------------------------------------- +Procedure _5121 +Parameters debit,credit,VALDEBIT,VALCREDIT + +STORE 0 TO m.plati,m.incasari + +&&credit=banca plateste +IF CREDIT#0 + Select ACTACTAN + Locate For SCC=m.CONT + Scatter Memv + m.BANCACRED=ALLTRIM(m.nume_2) + m.banca=m.BANCACRED + + Select banca + If Flock() + Append Blank + Gather Memv + Replace plati With credit + Endif + Unlock + + Select bannume + Locate For ALLTRIM(nume_2)=m.bancaCRED + If Flock() + If !Found() + Append Blank + *Gather Fields nume_2 Memv + REPLACE NUME_2 WITH M.BANCACRED + Endif + Replace plati With plati+credit + Endif + Unlock +ENDIF + +&&debit=banca incas +IF DEBIT#0 + Select ACTACTAN + Locate For SCD=m.CONT + Scatter Memv + m.bancadeb=ALLTRIM(m.nume_2) + m.banca=m.BANCADEB + + Select banca + If Flock() + Append Blank + Gather Memv + Replace incasari With debit + Endif + Unlock + + Select bannume + Locate For ALLTRIM(nume_2)=m.bancaDEB + If Flock() + If !Found() + Append Blank + *Gather Fields nume_2 Memv + REPLACE NUME_2 WITH m.bancaDEB + Endif + Replace incasari With incasari+debit + Endif + Unlock +ENDIF + +Return + +*----------------------------------------------- +Procedure _5124 +Parameters debit,credit,VALDEBIT,VALCREDIT + +STORE 0 TO m.plati,m.incasari,m.platival,m.incasval + +&&credit=banca plateste +IF CREDIT#0 + IF EMPTY(m.banvalcred) && pt modificare + Select ACTACTAN + Locate For SCC=m.CONT + m.BANVALCRED=nume_3 + ENDIF + + Select banVnume + Locate For nume_3=m.BANVALCRED + If Flock() + If !Found() + Append Blank + *Gather Fields nume_3 Memv + REPLACE NUME_3 WITH m.BANVALCRED + Endif + Replace plati With plati+credit + Replace platiVAL With platiVAL+VALcredit + REPLACE numeval WITH m.nume_4 + Endif + UNLOCK + + Select ACTACTAN + SCAN For SCC=m.CONT && din cauza diferentelor de curs valutar + Scatter Memv + m.banca=m.BANVALCRED + + Select bancaVAL + If Flock() + Append Blank + Gather Memv + Replace plati With m.suma,cursschimb WITH m.suma_3,numeval WITH m.nume_4 + Replace platiVAL With m.suma_2 + Endif + UNLOCK + Select ACTACTAN + ENDSCAN +ENDIF + +&&debit=banca incas +IF DEBIT#0 + IF EMPTY(m.banvaldeb) && pt modificare + Select ACTACTAN + Locate For SCD=m.CONT + m.BANVALDEB=nume_3 + ENDIF + + Select banVnume + Locate For nume_3=m.BANVALDEB + If Flock() + If !Found() + Append Blank + *Gather Fields nume_3 Memv + REPLACE NUME_3 WITH m.BANVALDEB + Endif + Replace incasari With incasari+debit + Replace incasVAL With incasVAL+VALdebit + REPLACE numeval WITH m.nume_4 + Endif + UNLOCK + + + Select ACTACTAN + SCAN For SCD=m.CONT && din cauza diferentelor de curs valutar + Scatter Memv + m.banca=m.BANVALDEB + + Select bancaVAL + If Flock() + Append Blank + Gather Memv + Replace incasari With m.suma,cursschimb WITH m.suma_3,numeval WITH m.nume_4 + Replace incasVAL With m.suma_2 + Endif + UNLOCK + Select ACTACTAN + ENDSCAN +ENDIF +Return + + + +*----------------------------------------------- +Procedure _542 +Parameters Tndebit,Tncredit,TnVALDEBIT,TnVALCREDIT + + +Select achit542 +If Flock() + If Alltrim(NUME_2)!=Alltrim(M.NUME_2) + Seek Alltrim(M.NUME_2) + If !Found() + Append Blank + Gather Fields NUME_2,COD_FISCAL Memv + Endif + Endif + Replace DEBIT With DEBIT+tndebit, CREDIT With CREDIT+tncredit + Replace VALDEBIT With VALDEBIT +tnVALdebit, VALCREDIT With VALCREDIT+tnVALcredit +Endif +UNLOCK + + +&&&&&&&&&&& achiLUN +Local nui +Select achilun +Set Order To nract +&&debitul=factura +If tndebit!=0 + nui=.F. + Select ACTACTAN + Locate For Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont + Scatter Memv + + Select achilun + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME_2 AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Fields Except achitat,totctva,ACHITATVAL,SUMAVAL Memv + ENDIF + Replace totctva With totctva+TnDebit + Replace SUMAVAL With SUMAVAL+TnVALdebit + REPLACE cursschimb WITH m.suma_3 + REPLACE nume WITH m.nume_2 + REPLACE ACONT WITH m.ascd + Endif + Unlock +Endif + + + +&&creditul=plata +If tnCredit!=0 OR (tnCredit=0 AND tnDebit=0) + nui=.F. + Select ACTACTAN + Locate For Left(SCC,3)=Left(m.CONT,3) AND ascc=m.acont + Scatter Memv + Select achilun +*!* DO CASE +*!* CASE !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'achilun','ascc','nume_2' +*!* OTHERWISE +*!* Select achilun +*!* If Flock() +*!* Replace achitat With achitat+tnCredit +*!* Replace achitatVAL With achitatVAL+TnVALcredit +*!* Endif +*!* Unlock +*!* ENDCASE + +Endif + + +Select achilun +Set Order To Tag dataireg + +*!* Parameters debit,credit,VALDEBIT,VALCREDIT +*!* &&&&&&&&&&& achit542 +*!* Select ACTACTAN +*!* Locate For SCC=m.CONT Or SCD=m.CONT +*!* Scatter Fields nume_2 Memv + +*!* Select achit542 +*!* If Flock() +*!* If Upper(Alltrim(nume_2))!=Upper(Alltrim(M.nume_2)) +*!* Seek Upper(Alltrim(M.nume_2)) +*!* If !Found() +*!* Append Blank +*!* Gather Fields nume_2 Memv +*!* Endif +*!* Endif +*!* Replace dat With dat+credit, luat With luat+debit +*!* Endif +*!* Unlock +Endproc +*----------------------------------------------- +Procedure _455 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select actionar +If Flock() + If Upper(Alltrim(nume_2))!=Upper(Alltrim(M.nume_2)) + Seek Upper(Alltrim(M.nume_2)) + If !Found() + Append Blank + Gather Fields nume_2 Memv + Endif + Endif + Replace dat With dat+debit, luat With luat+credit +Endif +Unlock +Endproc + + +*-------------------------------------------------------- +Procedure _471 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Local nui +Select chavans +Set Order To nract + +Select chavans + +If debit!=0 + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont + Scatter Memv + Select chavans + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + Replace totctva With 0 + Endif + + Select chavans + Replace totctva With totctva+debit + Endif + Unlock +Endif + +&&debitul=plata +If credit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascc=m.acont + Scatter Memv + Select chavans + If !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'chavans','ascc','nume' + ELSE + Select chavans + * LOCATE FOR ALLTRIM(nume)=ALLTRIM(m.nume) AND ALLTRIM(dst_chlt)=ALLTRIM(m.dst_chlt) + * IF FOUND() + If Flock() + Replace achitat With achitat+credit + Endif + UNLOCK + * ENDIF + Endif +Endif + +Select chavans +Set Order To Tag dataireg +Endproc + +*-------------------------------------------------------- + +Procedure _472 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Local nui +Select vnavans +Set Order To nract + +Select vnavans + +If credit!=0 + nui=.F. + Select ACTACTAN + Locate For SCc=m.CONT AND ascc=m.acont + Scatter Memv + Select vnavans + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + Replace totctva With 0 + Endif + + Select vnavans + Replace totctva With totctva+credit + Endif + Unlock +Endif + +&&debitul=plata +If debit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascd=m.acont + Scatter Memv + Select vnavans + If !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_plati With 'vnavans','ascd','nume' + ELSE + Select vnavans + * LOCATE FOR ALLTRIM(nume)=ALLTRIM(m.nume) AND ALLTRIM(dst_chlt)=ALLTRIM(m.dst_chlt) + * IF FOUND() + If Flock() + Replace achitat With achitat+credit + Endif + UNLOCK + * ENDIF + Endif +Endif + +Select vnavans +Set Order To Tag dataireg +ENDPROC + +*----------------------------------------------------------------- +Procedure _5112 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select ACTACTAN +Locate For SCD=m.CONT Or SCC=m.CONT +Scatter Memv + +Select cecnume +If Flock() + If Upper(Alltrim(cec))!=Upper(Alltrim(M.explicatia)) + Seek Upper(Alltrim(M.explicatia)) + If !Found() + Append Blank + Replace cec With m.explicatia + Endif + Endif + Replace incarcat With incarcat+debit,plati With plati+credit +Endif +Unlock +Sele cec +If Flock() + Go Bottom + Appe Blank + m.plati=credit + m.incarcat=debit + Gather Memvar +Endif +Unlock +Endproc +*-------------------------------------------------------- + +*!* PROCEDURE _667 +*!* PARAMETERS debit,credit,valdebit,valcredit + +*!* SELECT actactan +*!* LOCATE FOR scd=m.cont +*!* lcScc=scc +*!* SELECT infisiere +*!* LOCATE FOR cont=lcScc +*!* SCATTER NAME ofis +*!* SELECT (ofis.fisier) + +*!* ENDPROC + + + +Procedure SCRIE_NIR + +DD=Datetime() +Select INTRARI +Replace All COD With M.COD +Replace All UTIL With UTILIZATOR +Replace All DATAORA With DD +Do INRULAJMAGAZII +Do INSTOCURIMAGAZII +Return + + +*-------------------------------------------------------- +Function LANS +Parameters IDS + +*DO STERGE + +m.ID_SET=IDS +Select XSETS +Seek IDS +Scatter Name OXSET +oitem=Crea('actbaza') +oitem.ID_SET=IDS +oitem.Show(1) +If OXSET.nu_sterg=.F. And buton!=2 + Do danu With 'Doriti sa continuati cu operatii de acest fel?' + If buton=1 + LANS(IDS) + Endif +Endif +Release OXSET +Return + + + + +*---------------------------------------------- +Procedure afis_operatii +PARAMETERS tcFis,tlVisible +SELECT (tcFis) +Scatter Fields COD,SCD,SCC,nume_2 Memvar +Select * From &tcFis Where &tcFis..COD=m.COD Into Cursor AAA NOFILTER +Select AAA +N=Reccount() + +Public camp +Scatter Name camp + +Do Form vizpage +*ov=CREATEOBJECT('vizpage') && NU MERGE SI NU INTELEG DE CE :( +*ov.bandablOC1.visible=tlVisible +*ov.banda21.visible=!tlVisible +*ov.blocbuton1.visible=!tlVisible +*ov.show() + +Release camp +Select rull +Set Filter To +Select &tcfis +Endproc + + + + + + + +*!* *------------------------------------------- + +*!* Function BLOCHEZ_NIR +*!* Select NRNIR +*!* Flock() + +*!* DO case +*!* case nr_bonuri=0 +*!* Calculate Max(NR) To m For NRGEST=NR_GEST And GEST=M.GEST +*!* m=m+1 +*!* m.NNIR='1'+Str(NR_GEST,1,0)+Str(m.GEST,3,0)+Str(m,5,0) +*!* m.NNIR=Strtran(M.NNIR,' ','0') +*!* case nr_bonuri=1 +*!* Calculate Max(NR) To m +*!* m=m+1 +*!* m.NNIR=Alltrim(Str(m)) +*!* case nr_bonuri=2 +*!* Calculate Max(NR) To m For NRGEST=idutil +*!* m=m+1 +*!* m.NNIR=Alltrim(Str(m)) +*!* Endcase +*!* Append Blank +*!* Gather Fields NNIR Memv +*!* Replace NRGEST With idutil,NR With m +*!* *Replace NRGEST With m.nr_gest,NR With m +*!* Unlock +*!* Return M.NNIR + +*------------------------------------------- +Function BLOCHEZ_NIR +LOCAL G,M +STORE 0 TO M,G +Select NRNIR +Flock() + +DO case +case nr_bonuri=0 + Calculate Max(NR) To m For NRGEST=NR_GEST And GEST=M.GEST + m=m+1 + m.NNIR='1'+Str(NR_GEST,1,0)+Str(m.GEST,3,0)+Str(m,5,0) + m.NNIR=Strtran(M.NNIR,' ','0') + G= m.nr_gest +case nr_bonuri=1 + Calculate Max(NR) To m + m=m+1 + m.NNIR=Alltrim(Str(m)) +case nr_bonuri=2 + Calculate Max(NR) To m For NRGEST=idutil + m=m+1 + m.NNIR=Alltrim(Str(m)) + G= idutil +ENDCASE +Select NRNIR +Append Blank +Gather Fields NNIR,GEST Memv +*Replace NRGEST With idutil,NR With m +*Replace NRGEST With m.nr_gest,NR With m +REPLACE NR WITH M,NRGEST WITH G +Unlock +Return M.NNIR + + + + +*---------------------------------- +Function ELIB_NIR +Parameters N +Select NRNIR +Seek N +If Found() + If Flock() + Delete + Endif + Unlock +Endif +Return + + + +*!* *------------------------------------------- + +*!* Function BLOCHEZ_BON +*!* Select nrbon +*!* Flock() +*!* DO case +*!* case nr_bonuri=0 +*!* Calculate Max(NR) To m For NRGEST=NR_GEST And GEST=M.GEST +*!* m=m+1 +*!* m.NNIR='2'+Str(NR_GEST,1,0)+Str(M.GEST,3,0)+Str(m,5,0) +*!* m.NNIR=Strtran(M.NNIR,' ','0') +*!* case nr_bonuri=1 +*!* Calculate Max(NR) To m +*!* m=m+1 +*!* m.NNIR=Alltrim(Str(m)) +*!* case nr_bonuri=2 +*!* Calculate Max(NR) To m For NRGEST=idutil +*!* m=m+1 +*!* m.NNIR=Alltrim(Str(m)) +*!* Endcase +*!* Append Blank +*!* Gather Fields NNIR Memv +*!* Replace NRGEST With idutil,NR With m +*!* *!* Gather Fields NNIR,gest Memv +*!* *!* Replace NRGEST With m.nr_gest,NR With m +*!* Unlock +*!* Return M.NNIR + +*------------------------------------------- +Function BLOCHEZ_BON +LOCAL G,M +STORE 0 TO G,M +Select nrbon +Flock() + +DO case +case nr_bonuri=0 + Calculate Max(NR) To m For NRGEST=NR_GEST And GEST=M.GEST + m=m+1 + m.NNIR='2'+Str(NR_GEST,1,0)+Str(M.GEST,3,0)+Str(m,5,0) + m.NNIR=Strtran(M.NNIR,' ','0') + G= m.nr_gest +case nr_bonuri=1 + Calculate Max(NR) To m + m=m+1 + m.NNIR=Alltrim(Str(m)) +case nr_bonuri=2 + Calculate Max(NR) To m For NRGEST=idutil + m=m+1 + m.NNIR=Alltrim(Str(m)) + G= idutil +ENDCASE +SELECT NRBON +Append Blank +Gather Fields NNIR,GEST Memv +*Replace NRGEST With idutil,NR With m +*!* Gather Fields NNIR,gest Memv +*!* Replace NRGEST With m.nr_gest,NR With m +REPLACE NR WITH M,NRGEST WITH G +Unlock +Return M.NNIR + +*---------------------------------- + +Function ELIB_BON +Parameters N +Select nrbon +Seek N +If Found() + If Flock() + Delete + Endif + Unlock +Endif +Return +*______________________________________________________________________________ + +Procedure aleg_doc_plata +Parameters tcfis,tcNume,tlval,tcFelCont + +If Used('actcv') + Use In actcv +Endif + +tcNume=Upper(Alltrim(tcNume)) +tcfis=Alltrim(tcfis) +IF tlval + lccond=[ABS(&tcfis..sumaval-&tcfis..achitatval)>0] +ELSE + IF existacamp('&tcfis','sumaval') + lccond=[&tcfis..sumaval-&tcfis..achitatval=0] + ELSE + lccond='.t.' + ENDIF +ENDIF + + +Sele distinct &tcfis..* ; + FROM &tcfis ; + WHERE Upper(Alltrim(&tcfis..NUME))==Upper(Allt(tcNume)) And ; + !(Abs(&tcfis..totctva-&tcfis..achitat)=0 Or (&tcfis..totctva<&tcfis..achitat And &tcfis..totctva>0)) and ; + &lccond ; + into TABLE &LOC\&NFSCURT\TEMPO\actcv order by &tcfis..dataact + + +*!* SELECT DISTINCT actan.cod,actan.nrord FROM actan,&tcfis WHERE actan.cod=&tcfis..cod AND actan.NRACT=&tcfis..NRACT ; +*!* INTO CURSOR actfis +*!* SELECT &tcfis..*,actfis.nrord ; +*!* FROM (&tcfis left join actfis on &tcfis..cod=actfis.cod) ; +*!* WHERE Upper(Alltrim(&tcfis..NUME))==Upper(Allt(tcNume)) And ; +*!* !(Abs(&tcfis..totctva-&tcfis..achitat)=0 Or (&tcfis..totctva<&tcfis..achitat And &tcfis..totctva>0)) and ; +*!* &lccond ; +*!* into TABLE &LOC\&NFSCURT\TEMPO\actcv order by &tcfis..dataact +*!* USE IN actfis + + +DO CASE + CASE ALLTRIM(UPPER(tcFelCont))='A' + ALTER TABLE actcv rename COLUMN ACONT to ascc + CASE ALLTRIM(UPPER(tcFelCont))='P' + ALTER TABLE actcv rename COLUMN ACONT to ascd +ENDCASE + +Alter Table actcv Add Column ALES L Add Column sumaachi N(14) Add Column SUMAACHI2 N(14,2) Add Column achilei N(14) +IF tlval + Alter Table actcv ADD COLUMN difplus n(14) ADD COLUMN difminus n(14) Add Column cursval n(7) Add Column cursdif n(7) +ENDIF + +Sele actcv +Go Top + +Endproc && aleg_doc_plata + +*______________________________________________________________________________ + +Procedure trezorerie_plati +Parameters tcfis,tcAcont,tcCol + +tcAcont=ALLTRIM(tcAcont) +lcAcont='trez.'+tcAcont +lcCol='trez.'+ALLTRIM(tcCol) + +*!* IF USED('actcv') +*!* Select actcv +*!* Scan For ALES +*!* Scatter Name trez +*!* +*!* IF existacamp('actcv',tcAcont) +*!* Select (tcfis) +*!* IF TYPE('actcv.proc_tva')#'U' +*!* Locate For nract=trez.nract And dataact=trez.dataact And NUME=trez.NUME AND acont=&lcAcont AND proc_tva=trez.proc_tva +*!* ELSE +*!* Locate For nract=trez.nract And dataact=trez.dataact And NUME=trez.NUME AND acont=&lcAcont +*!* ENDIF +*!* ELSE +*!* Select (tcfis) +*!* Locate For nract=trez.nract And dataact=trez.dataact And NUME=trez.NUME +*!* ENDIF +*!* If Flock() +*!* Replace achitat With achitat+trez.sumaachi +*!* IF existacamp('&tcfis','achitatval') +*!* Replace achitatval With achitatval+trez.sumaachi2 +*!* ENDIF +*!* Endif +*!* UNLOCK +*!* Select actcv +*!* ENDSCAN +*!* ELSE && pt modificare sau analitice diferite + + SELECT actactan + Scan For pereche#0 AND &tcAcont=m.acont + Scatter Name trez + IF TYPE(tcfis+'.acont')#'U' + Select (tcfis) + IF TYPE(tcfis+'.proc_tva')#'U' + Locate For nract=trez.pereche And NUME=&lcCol AND acont=&lcAcont AND proc_tva=trez.proc_tva + ELSE + Locate For nract=trez.pereche And NUME=&lcCol AND acont=&lcAcont + ENDIF + ELSE + Select (tcfis) + Locate For nract=trez.pereche And NUME=&lcCol + ENDIF + + IF FOUND() + If Flock() + Replace achitat With achitat+trez.suma + IF TYPE(tcfis+'.achitatval')#'U' + Replace achitatval With achitatval+trez.suma_2 + ENDIF + ENDIF + UNLOCK + ENDIF + + Select actactan + ENDSCAN +*!* ENDIF +Release trez + +IF USED('actcv') + USE IN actcv +ENDIF +Endproc && trezorerie_incasari_plati + +*______________________________________________________________________________ + +Procedure trezorerie_incasari +Parameters tcfis,tcAcont,tcCol + + +tcAcont=ALLTRIM(tcAcont) +lcAcont='trez.'+tcAcont +lcCol='trez.'+ALLTRIM(tcCol) + +SELECT actactan +Scan For pereche2#0 AND &tcAcont=m.acont + Scatter Name trez + IF TYPE(tcfis+'.acont')#'U' + Select (tcfis) + IF TYPE(tcfis+'.proc_tva')#'U' + Locate For nract=trez.pereche2 And NUME=&lcCol AND acont=&lcAcont AND proc_tva=trez.proc_tva + ELSE + Locate For nract=trez.pereche2 And NUME=&lcCol AND acont=&lcAcont + ENDIF + ELSE + Select (tcfis) + Locate For nract=trez.pereche2 And NUME=&lcCol + ENDIF + + IF FOUND() + If Flock() + Replace achitat With achitat+trez.suma + IF TYPE(tcfis+'.achitatval')#'U' + Replace achitatval With achitatval+trez.suma_2 + ENDIF + ENDIF + UNLOCK + ENDIF + + Select actactan +ENDSCAN + +Release trez + +IF USED('actcv') + USE IN actcv +ENDIF +Endproc && trezorerie_incasari +*------------------------------------------------------------------------------ + + + +PROCEDURE test_facturi +Parameters tcfis,tccont,tcNume,tcfel + +tcNume=Upper(Alltrim(tcNume)) +tcfis=Alltrim(tcfis) + + LcCond=upper(allt(ofis.camp_verif))+[=']+tcnume+[' AND ]+tcfel+[=']+Tccont+['] && ofis.camp_verif---> vezi procedura viz_fact + SELE 0 + USE &DATE/ACT.DBF AGAIN ALIAS ACn1 + + SELECT ACN1 + SET FILTER TO &Lccond + + select &tcfis..nume,&tcfis..dataact,&tcfis..nract,&tcfis..dataireg,&tcfis..totctva as suma,; + &tcfis..achitat,&tcfis..achitat as pereche,&tcfis..fdoc,&tcfis..fdoc as scc,&tcfis..fdoc as scd,&tcfis..fdoc as nume_2,&tcfis..fdoc as explicatia; + FROM &tcfis; + WHERE Upper(Alltrim(&tcfis..NUME))==Upper(Allt(tcNume)) ; + into cursor acn2 order by dataireg + +RETURN LcCond +ENDPROC + +*________________________________________________________________________________ + +PROCEDURE imperechere_fact_avans +PARAMETERS tcfis,tcNume,TnSuma,tlval,tcPereche + +PRIVATE PlStrict +STORE .f. to PlStrict + +tcfis=UPPER(ALLTRIM(tcfis)) +tcNume=Upper(Alltrim(tcNume)) +lcPereche='m.'+ALLTRIM(tcPereche) +IF tlval + lccond=[&tcfis..achitatval-&tcfis..factval>0] +ELSE + lccond=[&tcfis..achitatval-&tcfis..factval=0] +ENDIF + +IF USED('actcv1') + USE IN actcv1 +ENDIF + +SELECT * ; + from &tcfis; + where Upper(Alltrim(&tcfis..NUME))==tcNume AND &tcfis..achitat-&tcfis..facturat#0 AND &lccond; + into Table &loc\&nfscurt\tempo\actcv1 order by dataact + ALTER TABLE actcv1 ADD COLUMN ales l ADD COLUMN sumaachi n(14) ADD COLUMN sumaachi2 n(14,2) ; + ADD COLUMN difplus n(14) ADD COLUMN difminus n(14) + +IF _tally=0 + DO mesaj with 'Nu exista avansuri inregistrate','la acest partener !' + DO STERGE + DO inchid_actcv + DO deschid_actc + RETURN +ENDIF + + +IF xsets.id_set=10421 && regularizari clienti creditori + SELECT actcv + REPLACE ALL sumaachi WITH sumaachi/m.ctva FOR neimpozab=0 AND ales + REPLACE ALL neimpozab WITH sumaachi FOR neimpozab#0 AND ales + SUM sumaachi TO tnsuma FOR ales +ENDIF + +*m.suma=tnsuma + +SELECT actcv1 +IF !tlval + oavans=CREATEOBJECT('avansales') + oavans.suma=tnSuma +ELSE + oavans=CREATEOBJECT('avansval') + oavans.suma_2=m.suma_2 +ENDIF + +oavans.pcfis='AVANS' +oavans.show(1) + +IF buton=2 + DO sterge + DO inchid_actcv + DO deschid_actc + RETURN +ENDIF + +SELECT ACTCV1 +LOCATE FOR ALES +SCATTER NAME av + + +IF av.proc_tva=0 + m.proc_tva=m.ctvam +ELSE + m.proc_tva=av.proc_tva +ENDIF + +lnSumaAchi=av.sumaachi +lnSumaAchiVal=av.sumaachi2 + +NRAVANS=NRACT +DATAAVANS=DATAACT +LcNRORD=ALLT(STR(NRAVANS))+' / '+ALLT(DTOC(DATAAVANS)) + +*!* IF USED('actactan') +*!* USE IN actactan +*!* ENDIF +*!* IF USED('actc') +*!* USE IN actc +*!* ENDIF + +*!* USE &LOC\&NFSCURT\TEMPO\ACTc IN 0 again ALIAS ACTACTAN exclusive ORDER TAG nr_nota +*!* SET DELETED ON + +SELECT actactan +PACK + +IF lnSumaAchi0 OR sumaachi2-LnminVal>0 + REPLACE sumaachi WITH LnMin + REPLACE sumaachi2 WITH LnMinVal + ENDIF + LnSumaAchi=LnSumaAchi-LnMin + LnSumaAchiVal=LnSumaAchiVal-LnMinVal + + SELECT actactan + GOTO lni + + SELECT actactan + REPLACE suma WITH LnMinAct + REPLACE suma_2 WITH LnMinVal + REPLACE &tcPereche WITH av.nract +* REPLACE neimpozab WITH lnNeimpozab + + SELECT actactan + IF tlval + IF suma_3>av.cursschimb + SCATTER NAME oaa + APPEND BLANK + GATHER NAME oaa + IF tcfis='AVANS419' + REPLACE scd WITH '665 ',suma WITH (oaa.suma_3-av.cursschimb)*LnMinVal,; + explicatia WITH 'DIFERENTE NEFAVORABILE',suma_2 WITH 0,suma_3 WITH av.cursschimb + ELSE + REPLACE scc WITH '765 ',suma WITH (oaa.suma_3-av.cursschimb)*LnMinVal,; + explicatia WITH 'DIFERENTE FAVORABILE',suma_2 WITH 0,suma_3 WITH av.cursschimb + ENDIF + ENDIF + IF suma_3m.precdeb Or apreccred<>m.preccred Or aruldeb<>m.RULDEB Or arulcred<>m.RULCRED + Select BALANA + Seek m.cont+acontvid + If !Found() + Append Blank + Gather Memv + REPLACE acont WITH acontvid + Endif + Replace precdeb With m.precdeb-aprecdeb + Replace preccred With m.preccred-apreccred + Replace RULDEB With m.RULDEB-aruldeb + Replace RULCRED With m.RULCRED-arulcred + Endif + Select cc +ENDSCAN + +ENDIF +UNLOCK IN balana +SELECT balana +SET FILTER TO +return + + + +*_______________________________________ +Procedure CALCULEAZABALANTA_ANA +Select BALANA +If Flock() + Replace All TOTDEB With RULDEB+precdeb; + totcred With RULCRED+preccred +Endif +Unlock +Scan + If Flock() + If TOTDEB-totcred>0 + Replace SOLDDEB With TOTDEB-totcred; + SOLDCRED With 0 + Else + Replace SOLDCRED With totcred-TOTDEB; + SOLDDEB With 0 + Endif + Endif + Unlock +Endscan +Return +******************************************** + +PROCEDURE introducere_compacta +PARAMETERS tcfis,tcscd,tcscc,tl_calcTVA,tl_plata,tctitlu,tctva,tn_idset + +*!* tcfis=fisierul din calefirma (achi_mat.dbf) +*!* tcscd=simbol cont debitor +*!* tcscc=simbol cont creditor +*!* tl_calctva=daca se calculeaza TVA-ul per total +*!* tl_plata=daca se achita factura respectiva +*!* tctitlu=titlul formularului frm_introd_compact +*!* tctva=contul de TVA (daca tl_calctva=.t.) +*!* tn_idset=parametrul functiei lans() + +IF USED('introdc') + USE IN introdc +ENDIF + +SELECT (tcfis) +COPY STRUCTURE TO &loc\&nfscurt\tempo\introdc WITH CDX +USE &loc\&nfscurt\tempo\introdc IN 0 SHARED + +SELECT introdc +APPEND FROM &CALEFIRMA\DATEAN\&tcfis FOR id_set=tn_idset +SET ORDER TO tag ordine + +SELECT introdc +IF FLOCK() + IF INLIST(tn_idset,10467,10468) && PLATI IMPOZITE + REPLACE ALL nrcrt WITH 0 + ELSE + REPLACE ALL NRCRT WITH ordine + ENDIF + + IF !EMPTY(tcscd) + REPLACE ALL scd WITH tcscd FOR EMPTY(scd) OR UPPER(scd)='X' + ENDIF + + IF !EMPTY(tcscc) + REPLACE ALL scc WITH tcscc FOR EMPTY(scc) OR UPPER(scc)='X' + ENDIF + + IF m.ctva-1=0 + REPLACE ALL bifa WITH .t. + REPLACE ALL ptva WITH 0 + ENDIF +ENDIF +UNLOCK + +SELECT actactan +ZAP + +SELECT introdc +GO TOP +obj=CREATEOBJECT('FRM_INTROD_COMPACT') +obj.gridb1.column3.backcolor=RGB(255,255,255) +obj.gridb1.column4.backcolor=RGB(255,255,255) + +IF !tl_plata + obj.container2.visible=.f. + obj.container2.optiongroup1.value=0 + OBJ.HEIGHT=obj.container2.TOP +ELSE +obj.container2.optiongroup1.value=1 +ENDIF + +IF !tl_calcTVA + obj.container1.visible=.f. + OBJ.HEIGHT=obj.container1.TOP+10 +ENDIF + +obj.titlufrumos1.caption=tctitlu +obj.show(1) + +IF BUTON=2 + DO deschid_actc + RETURN +ENDIF + +*!* IF tn_idset=10455 && rate leasing +*!* lans(10411) +*!* ENDIF + +SELECT actactan +REPLACE ALL id_set WITH tn_idset + +SELECT actactan +SCRIE_IN_FISIERE(' ') + +DO deschid_actc +ENDPROC &&introducere_compacta + +*___________________________________________________ +PROCEDURE deschid_actc + +IF USED('actactan') + USE IN actactan +ENDIF + +IF !USED('ACTc') + DO DES WITH 'ACTc' +ENDIF + +ENDPROC && deschid_actc + +*____________________________________________________ +PROCEDURE inchid_actcv + +IF USED('actcv') + USE IN actcv +ENDIF + +IF USED('ACTcv1') + USE IN 'ACTcv1' +ENDIF + +ENDPROC && inchid_actcv + + +*_____________________________________________________________________________________________________________________ +PROCEDURE viz_facturi +PARAMETERS tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + + +SELECT infisiere +LOCATE FOR VAL(cont)=tnCont +SCATTER NAME ofis + +*!* SELECT(tcfis1) +*!* If EXISTACIMP(tcfis1,'TOTDEB') +*!* If Flock() +*!* DO CASE +*!* CASE UPPER(ofis.fel)='A' +*!* Replace All totdeb With precdeb+productie,totcred With preccred+incasat +*!* CASE UPPER(ofis.fel)='P' +*!* Replace All totdeb With precdeb+platit,totcred With preccred+achizit +*!* ENDCASE +*!* Endif +*!* UNLOCK +*!* ENDIF + +SELECT(tcfis1) +If EXISTACIMP(tcfis1,'TOTDEB') + Replace All totdeb With precdeb+&TcColDeb,totcred With preccred+&TcColCred +ENDIF + + +Local C +C="nume+ALLTRIM(STR(YEAR(dataact)))+RIGHT('0'+ALLTRIM(STR(MONTH(dataact))),2)+RIGHT('0'+ALLTRIM(STR(DAY(dataact))),2)" +buton=1 + +IF tlCuTest + SELECT (tcfis2) + Set Filter To + lcProc='inainte_'+ALLTRIM(tcfis2) + Do &lcProc In inaintede.prg + If buton=2 + Return + ENDIF +ENDIF + +If Used('ACTCV') + Use In actcv +ENDIF + +lcCale='&Date\'+ALLTRIM(tcfis2) +Use &lcCale In 0 Again Alias actcv SHARED order dataireg + +Sele actcv +*!* Index On &C Tag nd Of &loc\&nfscurt\tempo\actcv +*!* Index On DATAireg Tag DATAireg Of &loc\&nfscurt\tempo\actcv additive +*!* Set Order To Tag DATAireg + +PRIVATE pcAnalitic +STORE '' TO pcAnalitic + +Oreg=Createobject("AFCUMPVANZanp") +With Oreg + .LABEL10.Caption=PROPER(tcTitlu) + .grid1.column12.Visible=.T. + .cont=tnCont + .fisier=ALLTRIM(tcFis2) + .CHECK2.Visible=tlVisible + .CHECK6.Visible=tlVisible + .CHECK7.Visible=tlVisible + .CHECK9.Visible=tlVisible + *.command1.Visible=tlVisible + *.command3.Visible=tlVisible + .grid1.column2.Visible=tlVisible + .grid1.column11.Visible=tlVisible + .grid1.column13.Visible=tlVisible + .grid1.column14.Visible=tlVisible + .grid1.column7.Visible=tlVisible + .grid1.column8.Visible=tlVisible + .grid1.column10.Visible=tlVisible + IF !tlVisible + .CHECK3.Caption='Regularizate' + .CHECK4.Caption='Neregularizate' + .check10.Caption='Regularizat' + .grid1.column12.header1.Caption='Regularizat' + .grid1.column2.Width=0 + ENDIF +Endwith +*OREG.cmdlist1.VISIBLE=.f. +Oreg.Show(1) +IF USED('actcv') + Use In actcv +ENDIF +RELEASE ofis +RELEASE oreg + +*?????? Do totv + +ENDPROC && viz_facturi + + + +*-------------------------------------- +Function STERGE_DIN_FISIERE +Parameters PlConfirmare,pnCod +Local M.DEB,M.CRED,COND +Store 0 To M.DEB, M.CRED + +CREATE TABLE &loc\&nfscurt\tempo\conturi.dbf FREE (cont c(4),ana c(4),deb n(14),cred n(14),debval n(14.2),credval n(14.2)) + +SELECT conturi +APPEND BLANK +APPEND BLANK + +DD=Datetime() + +IF PlConfirmare + IF USED('actactan') + USE IN actactan + ENDIF + + SELECT * from actjur WHERE cod=pnCod INTO CURSOR actactan + overif=CREATEOBJECT('verificare') + overif.show(1) + IF buton=2 + USE IN conturi + Release Overif + RETURN + ENDIF +ENDIF + + + +&& sterg efectele neimpozab,TVA si baza din cump si vanz pt toate inregistrarile din nota +&& in loc sa fac o procedura sterg_4426 si sterg_4427 +DO sterg_TVA WITH "actactan" + + +Select ACTJUR +SET FILTER TO +SCAN FOR cod=pnCod +SCATTER NAME osterg + + Replace UTILS With UTILIZATOR, DATAORAS With DD + DELETE + + Select ACTAN + SET DELETED ON + If Flock() + LOCATE FOR cod=osterg.cod AND scd=osterg.scd AND scc=osterg.scc AND suma=osterg.suma + IF FOUND() + DELETE + ENDIF + Endif + UNLOCK + + SELECT conturi + GOTO 1 + REPLACE cont WITH osterg.scd,ana WITH osterg.ascd,deb WITH -osterg.suma,debval WITH -osterg.suma_2 + GOTO 2 + REPLACE cont WITH osterg.scc,ana WITH osterg.ascc,cred WITH -osterg.suma,credval WITH -osterg.suma_2 + + && sterge din balanta si balanta analitica + + Select conturi + SCAN + Scatter Memv + Select BAL + If Flock() + Seek ALLTRIM(M.CONT) + If !Found() + Do MESAJ With 'Contul '+M.CONT+' nu se regaseste in balanta!','' + ELSE + Select BAL + Replace RULDEB With RULDEB+M.DEB, TOTDEB With TOTDEB+M.DEB,; + RULCRED With RULCRED+M.CRED, TOTCRED With TOTCRED+M.CRED + SOLD=TOTDEB-TOTCRED + Replace SOLDDEB With Iif(SOLD>0,SOLD,0), SOLDCRED With Iif(SOLD<0,-SOLD,0) + Endif + Endif + UNLOCK + + SELECT balana + IF FLOCK() + IF !EMPTY(m.ana) + Seek m.cont+m.ana + IF FOUND() + Replace RULDEB With RULDEB+M.deb, TOTDEB With TOTDEB+M.deb, ; + RULcred With RULcred+M.cred, TOTcred With TOTcred+M.cred + SOLD=TOTDEB-TOTCRED + Replace SOLDDEB With Iif(SOLD>0,SOLD,0),SOLDcred With Iif(SOLD<0,-SOLD,0) + ENDIF + ENDIF + ENDIF + UNLOCK + Select conturi + ENDSCAN + + Select Distinct A.Cont,b.ana as acont,A.FPROC,B.DEB,B.CRED,B.DEBVAL,B.CREDVAL From INFISIERE A, conturi B ; + WHERE A.Cont=B.Cont ; + INTO Cursor COM + + Select COM + SCAN + Scatter Memv + zz='Do '+'sterg'+Alltrim(FPROC)+' with m.deb,m.cred,M.DEBVAL,M.CREDVAL' + &zz + SELECT com + ENDSCAN +Select ACTJUR +ENDSCAN + + +&&in gestiuni ???? +sele RUL +set filter to +if flock() + DELETE for cod=osterg.cod +endif +unlock in rul + +sele RULL +set filter to +if flock() + SCAN FOR cod=osterg.cod + IF PlConfirmare + scat memv + sele stoc + if flock() + loca for allt(denumire)=allt(m.denumire) and allt(codmat)=allt(m.codmat) and pret=m.pret and gest=m.gest and scd=m.scd + if found() + if m.cant#0 + repl cant with cant-m.cant + else + repl cante with cante-m.cante + endif + endif + ENDIF + UNLOCK + ENDIF + sele rull + delete + endscan +endif + +unlock in rull + +USE IN conturi +Do STERGE +Release Osterg +Return 0 + + + + + +*----------------------------------------------- +Procedure sterg_401 +Parameters debit,credit,VALDEBIT,VALCREDIT +&&&&&&&&&&& FURNIZOR + +Select FURNIZOR +If Flock() + + Seek Alltrim(osterg.NUME) + + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +Unlock + +Local di,din,div +IF Left(osterg.SCC,3)='767' And osterg.SCD=m.CONT AND osterg.ascd=m.acont &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 +ELSE + STORE 0 TO di,din,div +ENDIF + +&&&&&&&&&&& CUMPLUN +Select cumplun +IF credit#0 OR di#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + Locate For nract=osterg.pereche And NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+credit+di + Replace SUMAVAL With SUMAVAL+VALcredit+div + Replace achitat With achitat+debit+di + Replace achitatVAL With achitatVAL+VALdebit+div + + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF + Endif + UNLOCK +ENDIF + +&&&&&&&&&&&CUMP + +*!* If credit!=0 OR di#0 + +*!* m.neimpozab=-osterg.neimpozab+din +*!* m.totctva=credit+di + +*!* IF Left(osterg.scd,3)='442' +*!* m.tvam=credit +*!* ELSE +*!* m.tvam=0 +*!* ENDIF +*!* +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* + +*!* Select cump +*!* If Flock() +*!* Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME +*!* IF FOUND() +*!* IF FLOCK() +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* ENDIF +*!* +*!* SELECT cump +*!* IF totctva=0 AND totftvam=0 AND neimpozab=0 AND tvam=0 +*!* DELETE +*!* ENDIF +*!* ENDIF +*!* Unlock +*!* Endif +Return + + +*----------------------------------------------- +Procedure sterg_404 +Parameters debit,credit,VALDEBIT,VALCREDIT +&&&&&&&&&&& FURNIZOR + +Select FURNIZ404 +If Flock() + + Seek Alltrim(osterg.NUME) + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +Unlock + +Local di,din,div +IF Left(osterg.SCC,3)='767' And osterg.SCD=m.CONT AND osterg.ascd=m.acont &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 +ELSE + STORE 0 TO di,din,div +ENDIF + +Select cumplun404 +IF credit#0 OR di#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + Locate For nract=osterg.pereche And NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+credit+di + Replace SUMAVAL With SUMAVAL+VALcredit+div + Replace achitat With achitat+debit+di + Replace achitatVAL With achitatVAL+VALdebit+div + + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF + Endif + UNLOCK +ENDIF + +&&&&&&&&&&&CUMP + +*!* If (credit!=0 OR di#0) AND osterg.neimpozab#0 + +*!* m.neimpozab=-osterg.neimpozab+din +*!* m.totctva=credit+di + +*!* IF Left(osterg.scd,3)='442' +*!* m.tvam=credit +*!* ELSE +*!* m.tvam=0 +*!* ENDIF +*!* +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* + +*!* Select cump +*!* If Flock() +*!* Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME +*!* IF FOUND() +*!* IF FLOCK() +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* ENDIF +*!* +*!* SELECT cump +*!* IF totctva=0 AND totftvam=0 AND neimpozab=0 AND tvam=0 +*!* DELETE +*!* ENDIF +*!* ENDIF +*!* Unlock +*!* Endif +Return + +*---------------------------------------------- + +Procedure sterg_408 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select ana408 +If Flock() + Seek Alltrim(osterg.NUME) + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +Unlock + + +Select fact408 +IF credit#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont AND proc_tva=osterg.proc_tva +ELSE + Locate For nract=osterg.pereche And NUME=osterg.NUME AND acont=m.acont AND proc_tva=osterg.proc_tva +ENDIF +If Found() + If Flock() + Replace totctva With totctva+credit + Replace SUMAVAL With SUMAVAL+VALcredit + Replace achitat With achitat+debit + Replace achitatVAL With achitatVAL+VALdebit + + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF + Endif + UNLOCK +ENDIF + +*!* IF debit#0 && pt regularizari 408-401,4426-4428 +*!* LOCAL lnSUma +*!* lnSuma=0 +*!* SELECT cump +*!* Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME +*!* IF FOUND() +*!* lnSuma=ROUND(debit*(m.ctva-1)/m.ctva,0) +*!* REPLACE tvam WITH tvam+lnSuma +*!* REPLACE totftvam WITH totftvam-lnSuma +*!* ENDIF +*!* SELECT cump +*!* IF totctva=0 AND totftvam=0 AND neimpozab=0 AND tvam=0 +*!* DELETE +*!* ENDIF +*!* ENDIF +RETURN + +*----------------------------------------------- +PROCEDURE sterg_4426 +Parameters debit,credit,VALDEBIT,VALCREDIT +*** vezi sterg_TVA +RETURN + + +*----------------------------------------------- +PROCEDURE sterg_4427 +Parameters debit,credit,VALDEBIT,VALCREDIT +*** vezi sterg_TVA +RETURN + +*----------------------------------------------- +Procedure sterg_409 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select AVANS409 +If debit#0 + If Flock() + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME + If Found() + Replace achitat With achitat+debit &&, facturat With facturat+credit + Replace achitatVAL With achitatVAL+VALdebit + Endif + Endif + Unlock +Endif +If credit#0 +*!* lcDat=Right(Allt(osterg.NRORD),10) +*!* ldDAT=Ctod(lcDat) +*!* lcNr=Strtran(Strtran(osterg.NRORD,lcDat,''),'/','') +*!* lnNr=Val(lcNr) + + Select AVANS409 + Locate For nract=osterg.pereche2 And NUME=osterg.NUME + IF FOUND() + If Flock() + Replace facturat With facturat+credit + Replace factVAL With factVAL+valcredit + Endif + UNLOCK + ENDIF +ENDIF + +SELECT avans409 +IF achitat=0 AND facturat=0 AND achitatval=0 AND factval=0 + DELETE +ENDIF +Select FURNIZOR +If Flock() + Seek Alltrim(osterg.NUME) + If Found() + Replace avans With avans+debit-credit + Replace avansVAL With avansVAL+VALdebit-VALcredit + Endif +Endif +UNLOCK + +Return +*------------------------------------------------------------- +Procedure sterg_419 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select AVANS419 +If credit#0 + If Flock() + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME + If Found() + Replace achitat With achitat+credit &&, facturat With facturat+credit + Replace achitatVAL With achitatVAL+VALcredit + Endif + Endif + Unlock +ENDIF + +If debit#0 +*!* lcDat=Right(Allt(osterg.NRORD),10) +*!* ldDAT=Ctod(lcDat) +*!* lcNr=Strtran(Strtran(osterg.NRORD,lcDat,''),'/','') +*!* lnNr=Val(lcNr) + Select AVANS419 + Locate For nract=osterg.pereche And NUME=osterg.NUME + IF FOUND() + If Flock() + Replace facturat With facturat+debit + Replace factVAL With factVAL+valdebit + Endif + UNLOCK + ENDIF +Endif +SELECT avans419 + +IF achitat=0 AND facturat=0 AND achitatval=0 AND factval=0 + DELETE +ENDIF + +Select clienti +If Flock() + Seek Alltrim(osterg.NUME) + If Found() + Replace avans With avans-debit+credit + Replace avansVAL With avansVAL-VALdebit+VALcredit + Endif +Endif +UNLOCK + +*--------------------------------------------------------------------- + +Procedure sterg_462 +Parameters tndebit,tncredit,tnVALDEBIT,tnVALCREDIT +&&&&&&&&&&& CREDITORI + +Select CREDITOR +If Flock() + Seek Alltrim(osterg.NUME) + Replace debit With debit +TnDebit, credit With Credit+TnCredit + Replace VALdebit With VALdebit +tnVALdebit, VALcredit With VALcredit+tnVALcredit +Endif +Unlock + +Local di,din,div +IF Left(osterg.SCC,3)='767' And osterg.SCD=m.CONT AND ascd=m.acont &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 +ELSE + STORE 0 TO di,din,div +ENDIF + +&&&&&&&&&&& CREDLUN + +Select credlun +IF TNcredit#0 OR di#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + Locate For nract=osterg.pereche And NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+TNcredit+di + Replace SUMAVAL With SUMAVAL+TnVALcredit+div + Replace achitat With achitat+TNdebit+di + Replace achitatVAL With achitatVAL+TnVALdebit+div + Endif + UNLOCK + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF +ENDIF + +*---------------------------------------------- + +Procedure sterg_411 +Parameters debit,credit,VALDEBIT,VALCREDIT +&&&&&&&&&&& CLIENTI + +Select clienti +If Flock() + Seek Alltrim(osterg.NUME) + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +Unlock + +Local di,din,div,reg +STORE 0 TO di,din,div,reg + +DO CASE + CASE Left(osterg.SCd,3)='667' And osterg.SCc=m.CONT AND osterg.ascc=m.acont &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 + CASE osterg.id_set=10421 AND osterg.scc='4427' &®ularizare facturi-avans + reg=osterg.suma +ENDCASE + +&&&&&&&&&&& VANZLUN + +Select vanzlun +IF (debit#0 OR di#0) AND osterg.id_set#10421 &&discount + regularizare avans-factura + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+debit+di+reg + Replace SUMAVAL With SUMAVAL+VALdebit+div + Replace achitat With achitat+credit+di+reg + Replace achitatVAL With achitatVAL+VALcredit+div + Endif + UNLOCK + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF +ENDIF + + +&&&&&&&&&&&VANZ + +*!* If debit!=0 OR di#0 + +*!* m.neimpozab=-osterg.neimpozab+din +*!* m.totctva=debit+di + +*!* IF Left(osterg.scc,3)='442' +*!* m.tvam=debit +*!* ELSE +*!* m.tvam=0 +*!* ENDIF +*!* +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* +*!* Select vanz +*!* If Flock() +*!* Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME +*!* IF FOUND() +*!* IF FLOCK() +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* ENDIF +*!* +*!* SELECT vanz +*!* IF totctva=0 AND totftvam=0 AND neimpozab=0 AND tvam=0 +*!* DELETE +*!* ENDIF +*!* ENDIF +*!* Unlock +*!* Endif +RETURN + +*---------------------------------------------- + +Procedure sterg_461 +Parameters tndebit,tncredit,tnVALDEBIT,tnVALCREDIT +&&&&&&&&&&& DEBITORI + +Select debitor +If Flock() + Seek Alltrim(osterg.NUME) + Replace debit With debit +TnDebit, credit With Credit+TnCredit + Replace VALdebit With VALdebit +tnVALdebit, VALcredit With VALcredit+tnVALcredit +Endif +Unlock + +Local di,din,div +IF Left(osterg.SCd,3)='667' And osterg.SCc=m.CONT AND osterg.ascc=m.ascc &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 +ELSE + STORE 0 TO di,din,div +ENDIF + +&&&&&&&&&&& DEBLUN + +SELECT deblun +IF tnDebit#0 OR di#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+tndebit+di + Replace SUMAVAL With SUMAVAL+tnVALdebit+div + Replace achitat With achitat+tncredit+di + Replace achitatVAL With achitatVAL+tnVALcredit+div + Endif + UNLOCK + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF +ENDIF + +&&&&&&&&&&&VANZ + +*!* If tnDebit!=0 OR di#0 + +*!* m.neimpozab=-osterg.neimpozab+din +*!* m.totctva=tnDebit+di + +*!* IF Left(osterg.scc,3)='442' +*!* m.tvam=tnCredit +*!* ELSE +*!* m.tvam=0 +*!* ENDIF +*!* +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* + +*!* Select vanz +*!* If Flock() +*!* Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME +*!* IF FOUND() +*!* IF FLOCK() +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* ENDIF +*!* +*!* SELECT vanz +*!* IF totctva=0 AND totftvam=0 AND neimpozab=0 AND tvam=0 +*!* DELETE +*!* ENDIF +*!* ENDIF +*!* Unlock +*!* Endif +Return + +*--------------------------------------------------------------------------- + +Procedure sterg_4118 +Parameters debit,credit,VALDEBIT,VALCREDIT + +&&&&&&&&&&& CLIENT4118 +Select client4118 +If Flock() + Seek Alltrim(osterg.NUME) + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +Unlock + +Local di,din,div +IF Left(osterg.SCd,3)='667' And osterg.SCc=m.CONT AND osterg.ascc=m.acont &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 +ELSE + STORE 0 TO di,din,div +ENDIF + + +&&&&&&&&&&& VANZLU4118 +Select vanzlu4118 +IF debit#0 OR di#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+debit+di + Replace SUMAVAL With SUMAVAL+VALdebit+div + Replace achitat With achitat+credit+di + Replace achitatVAL With achitatVAL+VALcredit+div + Endif + UNLOCK + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF +ENDIF + +RETURN + +*--------------------------------------------------------------------------- + +Procedure sterg_418 +Parameters debit,credit,VALDEBIT,VALCREDIT + +&&&&&&&&&&& ANA418 +Select ana418 +If Flock() + Seek Alltrim(osterg.NUME) + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +UNLOCK + + +&&&&&&&&&&& FACT418 +Select Fact418 +IF debit#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont AND proc_tva=osterg.proc_tva +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME AND acont=m.acont AND proc_tva=osterg.proc_tva +ENDIF +If Found() + If Flock() + Replace totctva With totctva+debit + Replace SUMAVAL With SUMAVAL+VALdebit + Replace achitat With achitat+credit + Replace achitatVAL With achitatVAL+VALcredit + + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF + ENDIF + UNLOCK +ENDIF + +*----------------------------------------------------------------------------------- + +Procedure sterg_471 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select chavans +Set Order To nract + +Select chavans +IF debit#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME AND acont=m.acont +ENDIF + +If Found() + If Flock() + Replace totctva With totctva+debit + * Replace SUMAVAL With SUMAVAL+VALdebit + Replace achitat With achitat+credit + * Replace achitatVAL With achitatVAL+VALcredit + Endif + UNLOCK + IF totctva=0 AND achitat=0 + DELETE + ENDIF +ENDIF + +Select chavans +Set Order To Tag dataireg +ENDPROC + +*---------------------------------------------------------------------------------- + +Procedure sterg_472 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select vnavans +Set Order To nract + +Select vnavans +IF credit#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche AND NUME=osterg.NUME AND acont=m.acont +ENDIF + +If Found() + If Flock() + Replace totctva With totctva+credit + * Replace SUMAVAL With SUMAVAL+VALcredit + Replace achitat With achitat+debit + * Replace achitatVAL With achitatVAL+VALdebit + Endif + UNLOCK + IF totctva=0 AND achitat=0 + DELETE + ENDIF +ENDIF + +Select vnavans +Set Order To Tag dataireg +ENDPROC + +*---------------------------------------------------------------------------------- + + +Procedure sterg_455 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select actionar +If Flock() + Seek Upper(Alltrim(osterg.nume_2)) + If Found() + Replace dat With dat+debit, luat With luat+credit + Endif +Endif +UNLOCK + +ENDPROC + +*-------------------------------------------------------- + +Procedure sterg_5311 +Parameters debit,credit,VALDEBIT,VALCREDIT + +SELECT casa +LOCATE FOR cod=osterg.cod +IF FOUND() + DELETE +ENDIF + +Select casanume +Locate For ALLTRIM(casa)=osterg.nume_3 +If Flock() + If Found() + Replace incasari With incasari+debit + Replace plati With plati+credit + Endif +Endif +Unlock + +Return + +*----------------------------------------------- +Procedure sterg_5314 +Parameters debit,credit,VALDEBIT,VALCREDIT + +STORE 0 TO m.plati,m.incasari,m.platival,m.incasval + +SELECT casaval +LOCATE FOR cod=osterg.cod +IF FOUND() + DELETE +ENDIF + +Select casvnume +Locate For ALLTRIM(nume_5)=osterg.nume_5 +If Flock() + If Found() + Replace incasari With incasari+debit + Replace incasVAL With incasVAL+VALdebit + Replace plati With plati+credit + Replace platiVAL With platiVAL+VALcredit + Endif +Endif +Unlock + +Return + +*----------------------------------------------- +Procedure sterg_5121 +Parameters debit,credit,VALDEBIT,VALCREDIT + +SELECT banca +LOCATE FOR cod=osterg.cod +IF FOUND() + DELETE +ENDIF + +Select bannume +Locate For ALLTRIM(nume_2)=osterg.nume_2 +If Flock() + If Found() + Replace incasari With incasari+debit + Replace plati With plati+credit + Endif +Endif +Unlock + +Return + +*----------------------------------------------- +Procedure sterg_5124 +Parameters debit,credit,VALDEBIT,VALCREDIT + +SELECT bancaval +LOCATE FOR cod=osterg.cod +IF FOUND() + DELETE +ENDIF + +Select banvnume +Locate For ALLTRIM(nume_3)=osterg.nume_3 +If Flock() + If Found() + Replace incasari With incasari+debit + Replace incasVAL With incasVAL+VALdebit + Replace plati With plati+credit + Replace platiVAL With platiVAL+VALcredit + Endif +Endif +Unlock + +*-------------------------------------------------------- +Procedure sterg_5112 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Sele cec +If Flock() + LOCATE FOR cod=osterg.cod + IF FOUND() + DELETE + ENDIF +Endif +UNLOCK + +Select cecnume +If Flock() + LOCATE FOR UPPER(ALLTRIM(cec))=Upper(Alltrim(osterg.explicatia)) + If Found() + Replace incarcat With incarcat+debit,plati With plati+credit + Endif +Endif +UNLOCK + +ENDPROC + +*-------------------------------------------------------- + +Procedure sterg_542 +Parameters tndebit,tncredit,tnVALDEBIT,tnVALCREDIT +&&&&&&&&&&& DEBITORI + +Select achit542 +If Flock() + Seek Alltrim(osterg.NUME_2) + Replace debit With debit +TnDebit, credit With Credit+TnCredit + Replace VALdebit With VALdebit +tnVALdebit, VALcredit With VALcredit+tnVALcredit +Endif +Unlock + +&&&&&&&&&&& achiLUN + +SELECT achilun +IF tnDebit#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME_2 AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME_2 AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+tndebit + Replace SUMAVAL With SUMAVAL+tnVALdebit + Replace achitat With achitat+tncredit + Replace achitatVAL With achitatVAL+tnVALcredit + Endif + UNLOCK + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF +ENDIF + +*!* Parameters debit,credit,VALDEBIT,VALCREDIT +*!* &&&&&&&&&&& achit542 +*!* Select achit542 +*!* If Flock() +*!* Seek Upper(Alltrim(osterg.nume_2)) +*!* If Found() +*!* Replace dat With dat+credit, luat With luat+debit +*!* Endif +*!* Endif +*!* Unlock + +ENDPROC + +*----------------------------------------------------------------------- +*** INCEPUT PROCEDURA INTRODUC_TVA +PROCEDURE caut_neimpozab +PARAMETERS tcAlias + + +LOCAL lcAlias, lcTVAD,lcTVAC,llvanz,llcump + +lcAlias = ALLTRIM(tcAlias) +lcTVAD = "4426" +lcTVAC = "4427" + +SELECT infisiere +LOCATE FOR cont=lcTVAD +lclstcDD=coresp_d && lista corespondentelor 4426 pe debit +lclstcDC=coresp_c && lista corespondentelor 4426 pe credit +LOCATE FOR cont=lcTVAC +lclstcCD=coresp_d && lista corespondentelor 4427 pe debit +lclstcCC=coresp_c && lista corespondentelor 4427 pe credit + +STORE .F. to llvanz, llcump + +IF !USED(lcAlias) + RETURN +ENDIF + +*** caut daca exista inregistrari care afecteaza tva-ul +SELECT (lcAlias) +LOCATE FOR neimpozab!=0 +IF !FOUND() + RETURN +ENDIF + +SELECT (lcAlias) +LOCATE FOR neimpozab != 0 +IF FOUND() + IF INLIST(ALLTRIM(scd),&lclstcCC) OR INLIST(ALLTRIM(scc),&lclstcCD) + llvanz = .T. + ENDIF + IF INLIST(ALLTRIM(scd),&lclstcDC) OR INLIST(ALLTRIM(scc),&lclstcDD) + llcump = .T. + ENDIF +ENDIF + + +IF llcump + DO _4426 WITH 0,0,0,0 +ENDIF + +IF llvanz + DO _4427 WITH 0,0,0,0 +ENDIF + +RETURN +*----------------------------------------------------------------------- +*** INCEPUT PROCEDURA STERG_TVA +PROCEDURE sterg_TVA +PARAMETERS tcAlias + + +LOCAL lcAlias, lcTVAD,lcTVAC,llvanz,llcump + +lcAlias = ALLTRIM(tcAlias) +lcTVAD = "4426" +lcTVAC = "4427" + + +lclstcCD = [411;4111;4112;4113;4114;4115;4116;4117;4118;4119;4428] && lista corespondentelor 4427 pe debit +lclstcCC = [411;4111;4112;4113;4114;4115;4116;4117;4118;4119;461;5121;5124;5311;5314;428;635] && lista corespondentelor 4427 pe credit +lclstcDD = [401;404;5121;5124;542] && lista corespondentelor 4426 pe debit +lclstcDC = [4427;4424;635] && lista corespondentelor 4426 pe credit + +STORE .F. to llvanz, llcump + +IF !USED(lcAlias) + RETURN +ENDIF + +*** caut daca exista inregistrari care afecteaza tva-ul +SELECT (lcAlias) +LOCATE FOR neimpozab!=0 OR INLIST(scd,lcTVAD,lcTVAC) OR INLIST(scc,lcTVAD,lcTVAC) +IF !FOUND() + RETURN +ENDIF + +SELECT (lcAlias) +GO top +SCATTER NAME losterg + + +*** verific daca trebuie sa sterg din vanz sau din cump +SELECT (lcAlias) +LOCATE FOR INLIST(lcTVAD,scd,scc) +IF FOUND() + llcump = .T. +ELSE + LOCATE FOR INLIST(lcTVAC,scd,scc) + IF FOUND() + llvanz = .T. + ENDIF +ENDIF + +IF !(llcump OR llvanz) && daca nu am gasit inreg cu TVA caut neimpozab + SELECT (lcAlias) + LOCATE FOR neimpozab != 0 + IF FOUND() + IF ALLTRIM(scd)$lclstcCD OR ALLTRIM(scc)$lclstcCD OR ALLTRIM(scc)$lclstcCC OR ALLTRIM(scd)$lclstcCC + llvanz = .T. + ENDIF + IF ALLTRIM(scc)$lclstcDC OR ALLTRIM(scd)$lclstcDC OR ALLTRIM(scd)$lclstcDD OR ALLTRIM(scc)$lclstcDD + llcump = .T. + ENDIF + ENDIF +ENDIF + +IF llvanz + SELECT vanz + LOCATE FOR cod=losterg.cod AND nract=losterg.nract + IF FOUND() + IF FLOCK() + DELETE + UNLOCK + ENDIF + ENDIF +ENDIF + +IF llcump + SELECT cump + LOCATE FOR cod=losterg.cod AND nract=losterg.nract + IF FOUND() + IF FLOCK() + DELETE + UNLOCK + ENDIF + ENDIF +ENDIF + +ENDPROC && sterg_TVA +*----------------------------------------------- + +PROCEDURE regularizare_clienti + +&&&&&&&&&vanzlun +SELECT actactan +SCAN FOR INLIST(m.acont,ascc,ascd) + SCATTER NAME oreg + SELECT vanzlun + IF FLOCK() + DO CASE + CASE LEFT(OREG.scc,3)='411' + LOCATE FOR nract=oreg.pereche2 AND NUME=oreg.NUME AND acont=oreg.ascc + IF FOUND() + REPLACE achitat WITH achitat+oreg.suma + ENDIF + CASE LEFT(OREG.scd,3)='411' + LOCATE FOR nract=oreg.pereche2 AND NUME=oreg.NUME AND acont=oreg.ascd + IF FOUND() + REPLACE achitat WITH achitat-oreg.suma + ENDIF + ENDCASE + ENDIF + UNLOCK + + SELECT actactan +ENDSCAN +RELEASE oreg + +ENDPROC +*---------------------------------------------------------------------------------------------- + +PROCEDURE afis_sold_casabanca +PARAMETERS tcTip,tcFis,tcTitlu,TcCont,TcNumeCol1,TcNumeCol2,tlVisibil + +Private m.sum1,m.sum2,m.sum3,m.sumA2,m.sumA3,m.sumA4,m.sumA5,m.sumA6,m.sumA7,m.sumA8,m.sumA9,m.sumA10,m.sumA11,m.sumA12,m.sumA13,pcnumele,M.NUMEVAL,; + m.tincasari,m.tplati,sold +STORE 0 TO m.sum1,m.sum2,m.sum3,m.sumA2,m.sumA3,m.sumA4,m.sumA5,m.sumA6,m.sumA7,m.sumA8,m.sumA9,m.sumA10,m.sumA11,m.sumA12,m.sumA13,; + m.tincasari,m.tplati,sold +STORE '' TO pcnumele,M.NUMEVAL +Sele &tcFis + +m.SOLDDEB=0 +m.SOLDCRED=0 +Sum &TcNumeCol2,PLATI To m.sum1,M.sum2 +m.sum3=M.sum1-M.sum2 + +Sele Bal +Seek TcCont +If Found() + Scatter Memvar + If M.SOLDDEB-M.SOLDCRED # M.sum3 + Do mesajval With 'Diferenta este:',M.SOLDDEB-M.SOLDCRED-M.sum3 + Endif +*!* Else +*!* Do mesajval With '',M.SOLDDEB +Endif + +Sele &tcFis + +Obancana=Createobject("afbancanav") +WITH Obancana + .tip=tcTip + .grid1.column1.ControlSource=TcNumeCol1 + .grid1.column3.ControlSource=TcNumeCol2 + .grid1.column3.DynamicForeColor='IIF('+TcNumeCol2+'>=0, RGB(0,0,0), RGB(255,0,0))' + .grid1.column9.ControlSource=TcNumeCol2+'-PLATI' + .grid1.column9.DynamicForeColor='IIF('+TcNumeCol2+'-plati>=0, RGB(0,0,0), RGB(255,0,0))' + .grid1.column3.header3.caption=PROPER(TcNumeCol2) + .TitluFrumos1.Caption=TcTitlu + .check1.visible=TlVisibil + .check3.visible=TlVisibil + .check5.visible=TlVisibil + .check7.visible=TlVisibil + .TEXT14.VISIBLE=TlVisibil + .TEXT15.VISIBLE=TlVisibil + .TEXT16.VISIBLE=TlVisibil + .LABEL2.VISIBLE=TlVisibil + .GRID1.column5.visible=TlVisibil + .GRID1.column6.visible=TlVisibil + .GRID1.column7.visible=TlVisibil + .GRID1.column8.visible=TlVisibil +ENDWITH +Obancana.Show() + +ENDPROC + +*-------------------------------------------------------------------- +procedure umple_log +PARAMETERS textul,textmare +LOCAL datatext +datatext="" +*----------------FACE INREGISTRARI IN LOG_TEXT. +datatext=calefirma+"\logs\contab\log_"+ALLTRIM(STR(DAY(DATE())))+"_"+ALLTRIM(STR(MONTH(DATE())))+"_"+ALLTRIM(STR(YEAR(DATE())))+".txt" +CD &CALEFIRMA +If !Directory("LOGS") + md logs +ENDIF +CD &calefirma\logs +If !Directory("contab") + Md contab +ENDIF +Set Textmerge On +Set Textmerge Noshow +Set Textmerge To &datatext ADDITIVE +\\<>,<>,<>,<> +\ +Set Textmerge To +CD &dirgen + +RETURN &&-------umple_log + + diff --git a/Programe/quitapp.prg b/Programe/quitapp.prg new file mode 100644 index 0000000..bd26e33 --- /dev/null +++ b/Programe/quitapp.prg @@ -0,0 +1,340 @@ +* Program: QUITAPP.PRG +* Description: Client-side of remote termination of applications. +* Created: 07/11/2003 +* Developer: Gregory L Reichert +* Copyright: Copyright (c) 2003 GLR software +*------------------------------------------------------------ +* Id Date By Description +* 1 07/11/2003 Gregory L Reichert Initial Creation +* +*------------------------------------------------------------ + +*!* Overview + +*!* The component is the client-side portion of a Remote Application Killer. +*!* With the use of a shared table, an network administrator can determine +*!* what workstation has what application running, and instruct that application +*!* to quit. + +*!* An administrator can monitor which applications are running, and instruct them +*!* termination themselves. + +*!* Instructions + +*!* This component is based on a Timer class with a one minute interval. Each minute +*!* the application check to see if the administrator wishs the application to +*!* quit. If discovered so, the countdown begins (default 10 minutes). During the +*!* Countdown, a message is displayed notifing the user that the automatic termination of +*!* the application is underway. They can manual exit the application, or wait for the +*!* automatic. Either way, it is intended for the user to complete their current task. +*!* At the end of the countdown, the application issues a QUIT command. + +*!* Call this routine, and a object reference is returned. This object should +*!* remain active throughout the life of the application. + +*!* PRIVATE oQuitApp +*!* oQuitApp = QuitApp( "\\MyServer\MyDrive\CommonFiles\" ) +*!* +*!* When the administrator wish to terminate one or more application, they place +*!* a True (.T.) in the "lQuit" field of the QuitApp.dbf table. As the Application continues +*!* countdown to automated termination, the "Remain" field indicates the number of minutes +*!* remaining. If the Admin changes the value of "Remain", the countdown continues from +*!* that new value. If a value less then zero (0) is entered, the application terminates +*!* the next time the QuitApp timer is fired. + + +*!* Two exposed method are provided to inform the routine that the application +*!* is performing critical operations and can not be interupted. These are called +*!* EnterCritical() and LeaveCritical(). The EnterCritical() should be called when the +*!* critical section begins, and the LeaveCritical() should be called when the section +*!* ends. + +*!* The administrator can check to see a application is running, or if it crashed before hand, +*!* by set the "aLiveTest" field of the QuitApp.dbf to False (.F.). After a couple of minutes, +*!* if the application is still alive, the field will revert to True (.T.). + +*!* The form called Admin_QuitApp.scx is used by the administrator to monitor and control the +*!* remote applications. + +*!* ===================================================================================== + +LPARAMETERS tcPath, tcQuitName + +RETURN CREATEOBJECT("QuitApp", tcPath, tcQuitName) + + +#DEFINE kQuitMax 10 && Wait 10 minutes before auto-quit + +*------------------------------------------------------------ +* Description: QuitApp class +*------------------------------------------------------------ +* Id Date By Description +* 1 07/11/2003 Gregory L Reichert Initial Creation +* +*------------------------------------------------------------ +DEFINE CLASS QuitApp AS TIMER + + INTERVAL = (60*1000) && check once a minute. + ENABLE = .T. + cPath = tcPath + cQuitName ="QuitApp" + cQFile ="QuitApp" + cAlias = "QuitApp" + && Full URN to QuitApp.dbf. Must be at a shared network location for all running application to gain access. + + *------------------------------------------------------------ + * Description: Error Trap + * Parameters: internal + * Return: n/a + * Use: internal + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE ERROR( a,b,c ) + *-- ignore all error from this class + RETURN + ENDPROC + + *------------------------------------------------------------ + * Description: Initializes the timer + * Parameters: cPath: path to the shared QuitApp.dbf - path only + * Return: N/A + * Use: ox = CreateObject( "QuitApp","\\myserver\shared\CommonFiles\" ) + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE INIT( cPath, cQuitName ) + LOCAL lc + lc = SELECT() + + + cPath = ADDBS(IIF(EMPTY(cPath),"", cPath)) + cQuitName = IIF(EMPTY(cQuitName),"QuitApp",JUSTSTEM(cQuitName)) + cQFile = cPath+cQuitName+".dbf" + cAlias = "QuitApp" + + this.cPath = cPath + this.cQuitName = cQuitName + this.cQFile = cQFile + this.cAlias = cAlias + *------------------------------------- + * create QuitApp table if missing. + *------------------------------------- + IF NOT FILE(this.cQFile) + SELECT 0 + CREATE TABLE (this.cQFile) (ws c(40),ID N(10,0), cCaption c(100),lQuit L, remain N(3), Critical L, aLiveTest L) + USE + ENDIF + + SELECT(lc) + ENDPROC + + *------------------------------------------------------------ + * Description: Timer routine + * Parameters: n/a + * Return: n/a + * Use: internal + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE TIMER + + + LOCAL lc + lc = SELECT() + USE (this.cQFile) IN 0 SHARED ALIAS (this.cAlias) + SELECT (this.cAlias) + + LOCATE FOR ID=_VFP.HWND AND cCaption=_VFP.CAPTION AND NOT DELETED() + IF NOT FOUND() + + *------------------------------------- + * Add an instence for this workstation / application + INSERT INTO (this.cQFile) (ws,ID,cCaption,lQuit,remain, Critical, aLiveTest) ; + VALUES ( UPPER(SYS(0)),_VFP.HWND, _VFP.CAPTION, .F., kQuitMax, .F., .T.) + ENDIF + + *- Each time, reset the aLiveTest field. + REPLACE aLiveTest WITH .T. + + IF NOT Critical AND TXNLEVEL()=0 + *- do only if not in Critical Section of the code, + * and not in a Transaction block + IF lQuit + *------------------------------------- + * if still timing out, display remaining time. + *------------------------------------- + IF remain>0 + IF remain=kQuitMax + * - if first time displaying the warning, force application on top. + _SCREEN.ALWAYSONTOP=.T. + _SCREEN.ALWAYSONTOP=.F. + ENDIF + *- decrement the counter, and display warning. + REPLACE remain WITH remain -1 + osh=CREATEOBJECT('shell.application') + osh.minimazeall + _screen.windowstate=2 + WAIT WINDOW NOCLEAR NOWAIT "Programul se va inchide automat in " +ALLTRIM(STR(remain,10))+" minute." + ?? CHR(7) + osh.undominimazeall + RELEASE osh + ELSE + *------------------------------------- + * otherwise, quit the application. + *------------------------------------- + USE IN (this.cAlias) + CLEAR EVENTS + glQuit = .T. + QUIT + ENDIF + ELSE + *------------------------------------- + * if nolonger quiing, reset counter. + *------------------------------------- + REPLACE remain WITH kQuitMax + WAIT CLEAR + ENDIF + ENDIF + + USE IN (this.cAlias) + THIS.RESET + SELECT(lc) + ENDPROC + + *------------------------------------------------------------ + * Description: Called when entering a Critical Section of the code. + * Parameters: n/a + * Return: True + * Use: .EnterCritical + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE EnterCritical() + LOCAL lc + lc = SELECT() + USE (this.cQFile) IN 0 SHARED ALIAS (this.cAlias) + SELECT (this.cAlias) + + UPDATE (this.cQFile) SET Critical=.T. WHERE ID=_VFP.HWND AND cCaption=_VFP.CAPTION + + USE IN (this.cAlias) + SELECT(lc) + ENDPROC + + *------------------------------------------------------------ + * Description: Called when exitting a Critical Section of the code. + * Parameters: n/a + * Return: True + * Use: .LeaveCritical + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE LeaveCritical() + LOCAL lc + lc = SELECT() + USE (this.cQFile) IN 0 SHARED ALIAS (this.cAlias) + SELECT (this.cAlias) + + UPDATE (this.cQFile) SET Critical=.F. WHERE ID=_VFP.HWND AND cCaption=_VFP.CAPTION + + USE IN (this.cAlias) + SELECT(lc) + ENDPROC + + *------------------------------------------------------------ + * Description: Destroy this object + * Parameters: n/a + * Return: n/a + * Use: internal + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE DESTROY + *----------------------------------------------- + * On destroy, remove the application reference from the QuitApp table. + *----------------------------------------------- + LOCAL lc + lc = SELECT() + USE (this.cQFile) IN 0 SHARED ALIAS (this.cAlias) + SELECT (this.cAlias) + + DELETE FROM (this.cQFile) WHERE ID=_VFP.HWND AND cCaption=_VFP.CAPTION + + USE IN (this.cAlias) + SELECT(lc) + ENDPROC + +ENDDEFINE + + + +&& ------------------------------INCEPUT: Quit_Automat ------------------------------ +*!* Procedura: Quit_Automat +*!* Parametri: tlQuit +*!* Data/Ora generarii: 19/02/2004 12:48 +*!* Autor: MARIUS.MUTU +PROCEDURE Quit_Automat +LPARAMETERS tlQuit + +IF tlQuit + QUIT +ENDIF + +ENDPROC +&& ------------------------------SFARSIT: Quit_Automat ------------------------------ + +* Eof QUITAPP.PRG +*************************** +*!* FUNCTION AppInstance +*!* PARAMETERS WindowName + +*!* #DEFINE GW_OWNER 4 +*!* #DEFINE GW_HWNDFIRST 0 +*!* #DEFINE GW_HWNDNEXT 2 +*!* #DEFINE SW_MAXIMIZE 3 +*!* #DEFINE SW_NORMAL 1 + +*!* DECLARE integer SetForegroundWindow in win32api long lnhWnd +*!* DECLARE integer GetWindowText in win32api integer, string, integer +*!* DECLARE integer GetWindow in win32api integer,INTEGER +*!* DECLARE integer IsWindowVisible in win32api integer +*!* DECLARE integer GetActiveWindow in win32api +*!* DECLARE integer ShowWindow in user32 INTEGER lnhWnd, INTEGER lnCmdShow + +*!* IsWindEx = .F. +*!* if len(WindowName) < 1 +*!* return .t. +*!* endif + +*!* foxhwnd = GetActiveWindow() +*!* hwndNext = GetWindow(foxhwnd,GW_HWNDFIRST) + +*!* DO WHILE hwndNext <> 0 +*!* IF (hwndnext <> foxhwnd .AND. GetWindow(hwndnext,GW_OWNER) = 0) +*!* Stuffer = SPACE(64) +*!* x = GetWindowText(hwndnext,@Stuffer,64) +*!* IF WindowName $ Stuffer +*!* IsWindEx = .T. +*!* =SetForegroundWindow(hwndnext) +*!* =ShowWindow(hwndNext,SW_MAXIMIZE) +*!* EXIT +*!* ENDIF +*!* ENDIF +*!* hwndNext = GetWindow(hwndnext,GW_HWNDNEXT) +*!* ENDDO + +*!* RETURN IsWindEx +*!* ENDFUNC \ No newline at end of file diff --git a/Programe/rapbal97.prg b/Programe/rapbal97.prg new file mode 100644 index 0000000..40f0093 --- /dev/null +++ b/Programe/rapbal97.prg @@ -0,0 +1,104 @@ +public wbal +dirfirm=loc+'\'+nfscurt +WBAL=0 + +sele bal +set filter to SUBS(CONT,1,1)='7' +TOTAL ON subs(cont,5,1) TO &dirfirm\tempo\TOTTOT7 +SELE BAL +set filter to SUBS(CONT,1,1)='6' +TOTAL ON SUBS(CONT,5,1) TO &dirfirm\tempo\TOTTOT6 + +SELE 0 +USE &dirfirm\tempo\TOTTOT7 +REPL DENUMIRE WITH 'TOTAL VENITURI'; + CONT WITH '7998' +SELE 0 +USE &dirfirm\tempo\TOTTOT6 +REPL DENUMIRE WITH 'TOTAL CHELTUIELI'; + CONT WITH '6998' +SELE BAL +SET FILTER TO + +SELE BAL +TOTAL ON SUBSTR(CONT,1,3) TO &dirfirm\tempo\TOTBAL + +SELE 0 +*USE DATEAN\TOTBAL +USE &dirfirm\tempo\totbal.dbf exclusive + +SELE BAL +COPY TO &dirfirm\tempo\RAPBAL + +SELE 0 +USE &dirfirm\tempo\RAPBAL +TOTAL ON SUBS(CONT,5,1) TO &dirfirm\tempo\TOTTOT + +SELE TOTBAL +REPL ALL DENUMIRE WITH 'TOTAL '+SUBSTR(CONT,1,3); + cont WITH substr(cont,1,3)+'A' +SELE 190 +USE &dirfirm\tempo\TOTTOT +REPL DENUMIRE WITH 'TOTAL GENERAL'; + CONT WITH '9999' +SELE TOTBAL +USE + +SELE TOTTOT +USE +SELE TOTTOT7 +USE +SELE TOTTOT6 +USE + + +SELE RAPBAL + +APPE FROM &dirfirm\tempo\TOTBAL +APPE FROM &dirfirm\tempo\TOTTOT +APPE FROM &dirfirm\tempo\TOTTOT7 +APPE FROM &dirfirm\tempo\TOTTOT6 + +INDEX ON CONT TO &dirfirm\tempo\BALRAP.CDX +GO TOP +GCONT=CONT +kg=0 +SCAN +SCATTER MEMVAR + +if subs(m.cont,1,3)=subs(gcont,1,3) +kg=kg+1 +else +kg=1 +endif +IF SUBS(M.CONT,4,1)='A' and kg=2 +DELETE +kg=0 +ENDIF +GCONT=M.CONT +ENDSCAN + +m.titlu='' +if a4 + REPORT FORMAT RAPBALa4.FRX TO PRINTER PROMPT preview +else + REPORT FORMAT RAPBALa3.FRX TO PRINTER PROMPT preview +endif + +SELE RAPBAL +USE +ERASE &dirfirm\tempo\RAPBAL.DBF + +ERASE &dirfirm\tempo\BALrap.cdx + +ERASE &dirfirm\tempo\TOTTOT.DBF + +ERASE &dirfirm\tempo\TOTTOT7.DBF + +ERASE &dirfirm\tempo\TOTTOT6.DBF + +ERASE &dirfirm\tempo\totBAL.DBF + + + +RETURN \ No newline at end of file diff --git a/Programe/refverif.prg b/Programe/refverif.prg new file mode 100644 index 0000000..a225bd1 --- /dev/null +++ b/Programe/refverif.prg @@ -0,0 +1,7489 @@ +PROCEDURE REFClienti && REFCLI +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\clienti.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'clienti.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\clienti.DBF IN 0 ALIAS clientiU + +SELECT clientiU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('clientiu.totdeb') = 'U' + SELECT NUME,COD_FISCAL,avans AS precavans,productie AS precdeb,incasat AS preccred FROM clientiU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + productie, totcred WITH preccred + incasat, totvaldeb WITH precvaldeb + prodval, totvalcre WITH precvalcre + incasval + REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('clientiu.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precavans + avans) AS precavans, SUM(precavansv + avansval) AS precavansv, ; + SUM(precdeb + productie) AS precdeb, SUM(preccred+incasat) AS preccred, ; + SUM(precvaldeb + prodval) AS precvaldeb, SUM(precvalcre + incasval) AS precvalcre ; + FROM clientiU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precavans + avans) AS precavans, SUM(precavansv + avansval) AS precavansv, ; + SUM(precdeb + productie) AS precdeb, SUM(preccred+incasat) AS preccred, ; + SUM(precvaldeb + prodval) AS precvaldeb, SUM(precvalcre + incasval) AS precvalcre ; + FROM clientiU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN clientiU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '411', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '411' AND scc # '4118', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '411' AND scd # '4118', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '411' AND scc # '4118', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '411' AND scd # '4118', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE (LEFT(scd, 3)='411' AND scd # '4118') OR (LEFT(scc, 3)='411' AND scc # '4118'); +INTO CURSOR t411 GROUP BY 1, 2, 3 + +SELECT t411 +SCAN + SCATTER NAME o411 + SELECT rcli + SEEK LEFT(o411.NUME,30) + o411.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o411.COD_FISCAL + ENDIF + ELSE + SEEK LEFT(o411.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o411.acont + ELSE + APPEND BLANK + GATHER NAME o411 + ENDIF + ENDIF + REPLACE productie WITH productie + o411.debit, incasat WITH incasat + o411.credit, prodval WITH prodval + o411.valdebit, incasval WITH incasval + o411.valcredit + + SELECT t411 +ENDSCAN +RELEASE o411 +USE IN t411 + +SELECT NUME, ; +IIF(LEFT(scd,3) = '419', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '419', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '419', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '419', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '419', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('419',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t419 GROUP BY 1, 2 + + +SELECT t419 +SCAN + SCATTER NAME o419 + SELECT rcli + SEEK LEFT(o419.NUME,30) + o419.acont + IF !FOUND() + LOCATE FOR ALLTRIM(nume) = ALLTRIM(o419.NUME) + IF !FOUND() + APPEND BLANK + GATHER NAME o419 + ENDIF + ENDIF + REPLACE avans WITH avans - o419.debit + o419.credit + REPLACE avansval WITH avansval - o419.valdebit + o419.valcredit + SELECT t419 +ENDSCAN +RELEASE o419 +USE IN t419 + + +SELECT rcli +REPLACE ALL totdeb WITH precdeb+productie,totcred WITH preccred+incasat,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb+prodval,totvalcre WITH precvalcre+incasval,totavansv WITH precavansv+avansval + +SELECT clienti +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +*USE IN clientiU + +SELECT clienti +SET ORDER TO TAG NANA +RETURN + + +*_________________________________________ +PROCEDURE REFFurnizor && REFFUR +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\FURNIZOR.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'FURNIZOR.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\FURNIZOR.DBF IN 0 ALIAS FURNIZORU + +SELECT FURNIZORU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('FURNIZORu.totdeb') = 'U' + SELECT NUME, COD_FISCAL, avans AS precavans, platit AS precdeb, achizit AS preccred FROM FURNIZORU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + platit, totcred WITH preccred + achizit , totvaldeb WITH precvaldeb + platival, totvalcre WITH precvalcre + achizitval + REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('FURNIZORu.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precavans + avans) AS precavans, SUM(precavansv + avansval) AS precavansv, ; + SUM(precdeb + platit) AS precdeb, SUM(preccred + achizit) AS preccred, ; + SUM(precvaldeb + platival) AS precvaldeb, SUM(precvalcre + achizitval) AS precvalcre ; + FROM FURNIZORU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precavans + avans) AS precavans, SUM(precavansv + avansval) AS precavansv, ; + SUM(precdeb + platit) AS precdeb, SUM(preccred + achizit) AS preccred, ; + SUM(precvaldeb + platival) AS precvaldeb, SUM(precvalcre + achizitval) AS precvalcre ; + FROM FURNIZORU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN FURNIZORU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '401', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '401', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '401', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '401', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '401', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('401',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t401 GROUP BY 1, 2, 3 + +SELECT t401 +SCAN + SCATTER NAME o401 + SELECT rcli + SEEK LEFT(o401.NUME,30) + o401.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o401.COD_FISCAL + ENDIF + ELSE + SEEK LEFT(o401.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o401.acont + ELSE + APPEND BLANK + GATHER NAME o401 + ENDIF + ENDIF + REPLACE platit WITH platit + o401.debit, achizit WITH achizit + o401.credit, platival WITH platival + o401.valdebit, achizitval WITH achizitval + o401.valcredit + + SELECT t401 +ENDSCAN +RELEASE o401 +USE IN t401 + +SELECT NUME, ; +IIF(LEFT(scd,3) = '409', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '409', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '409', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '409', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '409', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('409',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t409 GROUP BY 1, 2 + + + +SELECT t409 +SCAN + SCATTER NAME o409 + SELECT rcli + SEEK LEFT(o409.NUME,30) + o409.acont + IF !FOUND() + LOCATE FOR ALLTRIM(nume) = ALLTRIM(o409.NUME) + IF !FOUND() + APPEND BLANK + GATHER NAME o409 + ENDIF + ENDIF + REPLACE avans WITH avans + o409.debit - o409.credit + REPLACE avansval WITH avansval + o409.valdebit - o409.valcredit + SELECT t409 +ENDSCAN +RELEASE o409 +USE IN t409 + + +SELECT rcli +REPLACE ALL totdeb WITH precdeb + platit, totcred WITH preccred + achizit, totavans WITH precavans + avans +REPLACE ALL totvaldeb WITH precvaldeb + platival, totvalcre WITH precvalcre + achizitval, totavansv WITH precavansv + avansval + +SELECT FURNIZOR +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +*USE IN FURNIZORU + +SELECT FURNIZOR +SET ORDER TO TAG NANA +RETURN + + + +*!* LOCAL nla,nlb,ana,anb + +*!* IF !se_reface() +*!* RETURN +*!* ENDIF + +*!* nlb=m.nl +*!* anb=m.an +*!* dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +*!* SELE calendar +*!* LOCATE FOR nl=m.nl AND an=m.an +*!* SKIP -1 +*!* IF !BOF() +*!* nla=nl +*!* ana=an +*!* dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +*!* ELSE +*!* dateA=dirgen+'\_alfa\an0000\date00\' +*!* ENDIF + + +*!* SET SAFETY OFF +*!* COPY FILE &dirgen\_alfa\an0000\date00\FURNIZOR.* TO &loc\&nfscurt\tempo\rcli.* + +*!* USE &dateA\FURNIZOR.DBF IN 0 ALIAS FURNIZORU +*!* SELECT FURNIZORU +*!* SET ORDER TO 1 && NUME +*!* TOTAL TO &loc\&nfscurt\tempo\FURNIZORA ON NUME +*!* USE &loc\&nfscurt\tempo\FURNIZORA IN 0 ALIAS FURNIZORA +*!* SELECT FURNIZORA +*!* IF TYPE('FURNIZORa.totdeb') # 'U' +*!* * SUM TOTcred, achizit TO M.TOTcred, M.achizit +*!* REPLACE ALL totdeb WITH precdeb + platit, totcred WITH preccred + achizit +*!* ELSE +*!* SUM platit TO M.platit +*!* m.totdeb=0 +*!* ENDIF + + + +*!* USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +*!* &&precedente--------- +*!* IF TYPE('FURNIZORa.totdeb') = "U" +*!* SELECT NUME,COD_FISCAL,avans AS precavans,platit AS precdeb,achizit AS preccred FROM FURNIZORA INTO CURSOR rrr +*!* ELSE +*!* * Select NUME,COD_FISCAL,totavans As precavans,totdeb As precdeb,totcred As preccred From FURNIZORa Into Cursor rrr +*!* SELECT NUME,COD_FISCAL,NUMEVAL,; +*!* totavans AS precavans,totdeb AS precdeb,totcred AS preccred,; +*!* totavansV AS precavansV,totVALdeb AS precVALdeb,totVALcre AS precVALcre; +*!* FROM FURNIZORA INTO CURSOR rrr +*!* ENDIF + +*!* USE IN FURNIZORA + +*!* SELECT rcli +*!* APPEND FROM DBF('rrr') +*!* USE IN rrr + + +*!* &&rulaje------------ +*!* SELE rcli +*!* SET ORDER TO TAG NUME +*!* DO REDAU WITH 'SCC="401 " ','RCLI','M.NUME','ACHIZIT' +*!* DO REDAU WITH 'SCD="401 " ','RCLI','M.NUME','PLATIT' +*!* DO REDAU WITH 'SCD="409 " ','RCLI','M.NUME','AVANS' +*!* DO REDAUsc WITH 'SCc="409 " ','RCLI','M.NUME','AVANS' + +*!* DO REDAUVAL WITH 'SCC="401 " ','RCLI','M.NUME','ACHIZITVAL' +*!* DO REDAUVAL WITH 'SCD="401 " ','RCLI','M.NUME','PLATIVAL' +*!* DO REDAUVAL WITH 'SCD="409 " ','RCLI','M.NUME','AVANSVAL' +*!* DO REDAUscVAL WITH 'SCc="409 " ','RCLI','M.NUME','AVANSVAL' + +*!* SELECT rcli +*!* REPLACE ALL totdeb WITH precdeb+platit,; +*!* totcred WITH preccred+achizit,; +*!* totavans WITH precavans+avans +*!* REPLACE ALL totVALdeb WITH precVALdeb+PLATIVAL,; +*!* totVALcre WITH precVALcre+ACHIZITVAL,; +*!* totavansV WITH precavansV+AVANSVAL + +*!* *Do suprapune WITH 'FURNIZOR','rcli' +*!* SELECT FURNIZOR +*!* IF FLOCK() +*!* DELETE ALL +*!* APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +*!* ENDIF +*!* UNLOCK +*!* USE IN rcli +*!* USE IN FURNIZORU + +*!* SELECT FURNIZOR +*!* SET ORDER TO TAG NUME +*!* RETURN + + +*_________________________________________ +PROCEDURE VERBAL +LOCAL btotdeb,btotcred,bpreccred,bprecdeb,dateA,dateb,tsuma,ttotdeb,ttotcred +*i=1 +*STARE=1 +*orm=createobj('textmult') +OTEXT=CREATE('text_TREE') +STARE=1 + +CLOSE DATABASE +SELECT 0 +USE datEAN\calendar.DBF; +AGAIN ALIAS calendar ; +ORDER 0 +btotdeb=0 +btotcred=0 +bprecdeb=0 +bpreccred=0 +SELE calendar +SCAN + SCATTER MEMVAR + dateA=calefirma+'\an'+m.an+'\'+'date'+M.nl + + SELE 0 + USE &dateA\BAL.DBF SHARED + SELE 0 + USE &dateA\act.DBF SHARED + SELE BAL + SUM precdeb,preccred,RULDEB,RULCRED TO bprecdeb,bpreccred,ttotdeb,ttotcred + SELE act + SUM suma TO tsuma + + IF ttotdeb# tsuma + m.DENUMIRE='Diferente pe debit in luna '+M.nl+' '+M.an + DO mesajt WITH M.DENUMIRE +* WAIT WIND 'Diferente pe debit in luna '+M.NL+' '+M.AN + ENDIF + + IF ttotcred# tsuma + m.DENUMIRE='Diferente pe credit' + DO mesajt WITH M.DENUMIRE +* WAIT WIND 'Diferente pe credit' + ENDIF + + SELE BAL + IF btotdeb# bprecdeb OR btotcred # bpreccred + m.DENUMIRE='Eroare de preluare in luna '+M.nl+' '+M.an + DO mesajt WITH M.DENUMIRE +* WAIT WIND 'Eroare de preluare in luna '+M.NL+' '+M.AN + ELSE + m.DENUMIRE='Preluare corecta in luna '+M.nl+' '+M.an + DO mesajt WITH M.DENUMIRE +* WAIT WIND 'Preluare corecta in luna '+M.NL+' '+M.AN + ENDIF + + IF M.nl='12' + SUM SOLDDEB,SOLDCRED TO btotdeb,btotcred + ELSE + SUM totdeb,totcred TO btotdeb,btotcred + ENDIF + + SELE BAL + USE + SELE act + USE +ENDSCAN + +IF STARE!=1 + OTEXT.DEUNDE='C' + OTEXT.label10.CAPTION='RAPORT VERIFICARE BALANTA' + OTEXT.CMDLIST1.VISIBLE=.F. + OTEXT.CMDLIST2.VISIBLE=.F. + OTEXT.CMDRENUNT1.VISIBLE=.F. + OTEXT.SHOW(1) +ENDIF + +DO TOTV.PRG +RETURN + + +*_________________________________________ +PROCEDURE vercasa +LOCAL m.ban + +STORE 0 TO TINCASARI,TPLATI +m.ban='' +SELECT BAL +SEEK ('5311 ') +SCATTER MEMVAR +SELE CASA +SUM INCASARI,PLATI TO m.TINCASARI,M.TPLATI +IF M.TINCASARI-M.TPLATI# M.SOLDDEB +***WAIT WINDOWS 'DIFERENTA LA CASA '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10) + DO mesaj WITH 'Diferenta la casa: '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10),'' + +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA CASA IN LUNA '+NL+' ANUL '+M.AN + DO mesaj WITH 'Nu sunt deferente la casa in luna: '+nl+' '+M.an,'' + +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE verBANCA +LOCAL m.ban + +STORE 0 TO TINCASARI,TPLATI +m.ban='' +SELECT BAL +SEEK ('5121 ') +SCATTER MEMVAR +SELE BANCA +SUM INCASARI,PLATI TO m.TINCASARI,M.TPLATI +IF M.TINCASARI-M.TPLATI# M.SOLDDEB +***WAIT WINDOWS 'DIFERENTA LA BANCA IN VALUTA '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10) + DO mesaj WITH 'Diferenta la banca in valuta: '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10),'' + +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA BANCA IN VALUTA IN LUNA '+NL+' ANUL '+M.AN + DO mesaj WITH 'Nu sunt deferente la banca in valuta in luna: '+nl+'$'+M.an,'' + +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE verVALBANCA +LOCAL m.ban + +STORE 0 TO TINCASARI,TPLATI +m.ban='' +SELECT BAL +SEEK ('5124 ') +SCATTER MEMVAR +SELE BANCAVAL +SUM INCASARI,PLATI TO m.TINCASARI,M.TPLATI +IF M.TINCASARI-M.TPLATI# M.SOLDDEB +***WAIT WINDOWS 'DIFERENTA LA BANCA '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10) + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta la banca: '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10) + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA BANCA IN LUNA '+NL+' ANUL '+M.AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente la banca in luna: '+nl+' '+M.an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE VERCUMP +SELE CUMP +SUM totctva,neimpozab,totftvaI,tvaI,totftvaM,tvaM; +TO m.Stotctva,m.Sneimpozab,m.StotftvaI,m.StvaI,; +M.StotftvaM,m.StvaM + +m.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+; +M.StotftvaM+m.StvaM + +SELE BAL +SEEK '401 ' +SCATTER MEMVAR +m.f401=m.RULCRED +SEEK '404 ' +SCATTER MEMVAR +m.f404=m.RULCRED +m.f401404=m.f401+m.f404 +IF M.Stotctva-M.ADUN#0 +***WAIT WINDOWS 'DIFERENTA ESTE DE '+STR(M.STOTCTVA-M.ADUN,12,0) + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta este: '+STR(M.Stotctva-M.ADUN,12,0) + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +IF M.Stotctva-M.f401404#0 +***WAIT WINDOWS 'DIFERENTA FATA DE 401+404 ESTE DE '+STR(M.STOTCTVA-M.f401404,12,0)+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta fata de 401+404 este: '+STR(M.Stotctva-M.f401404,12,0) + ot.label3.CAPTION='in luna '+nl+' '+an + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE FATA DE 401+404'+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente fata de 401+404'+' in luna '+nl+' '+an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE VERVANZ +SELE VANZ +SUM totctva,neimpozab,totftvaI,tvaI,totftvaM,tvaM; +TO m.Stotctva,m.Sneimpozab,m.StotftvaI,m.StvaI,; +M.StotftvaM,m.StvaM + +m.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+; +M.StotftvaM+m.StvaM +SELE BAL +SEEK '411 ' +SCATTER MEMVAR +m.f411=m.RULDEB + +IF M.Stotctva-M.ADUN#0 +***WAIT WINDOWS 'DIFERENTA ESTE DE '+STR(M.STOTCTVA-M.ADUN,12,0) + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta este de: '+STR(M.Stotctva-M.ADUN,12,0) + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +IF M.Stotctva-M.f411#0 +***WAIT WINDOWS 'DIFERENTA FATA DE 411 ESTE DE '+STR(M.STOTCTVA-M.f411,12,0)+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta fata de 411 este de: '+STR(M.Stotctva-M.f411,12,0) + ot.label3.CAPTION='in luna '+nl+' '+an + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE FATA DE 411'+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente fata de 411 in luna: '+nl+' '+an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE VERFUR +SELE FURNIZOR +SUM achizit,platit,avans TO M.TACHIZIT,M.TPLATIT,M.TAVANS +SELE BAL +SEEK '401 ' +SCATTER MEMVAR +m.SOLD=M.SOLDCRED +SEEK '404 ' +SCATTER MEMVAR +m.SOLD=M.SOLDCRED+M.SOLD +IF M.SOLD # m.TACHIZIT-M.TPLATIT +***WAIT WINDOWS 'DIFERENTA LA SOLD ESTE DE '+STR(M.SOLD+M.TPLATIT-M.TACHIZIT)+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta la sold este '+STR(M.SOLD+M.TPLATIT-M.TACHIZIT) + ot.label3.CAPTION='in luna '+nl+' '+an + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA FURNIZORI'+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente la furnizori'+' in luna '+nl+' '+an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE VERCLI +SELECT clienti + +SUM avans,incasat,productie TO m.SUM1,M.SUM2,M.SUM3 +m.SUM4=m.SUM3-M.SUM2 +SELE BAL +SEEK '411 ' +SCATTER MEMVAR + +IF M.SOLDDEB # M.SUM3-M.SUM2 +***WAIT WINDOWS 'DIFERENTA IN SOLD FATA DE 411 ESTE DE '+STR(M.SOLDDEB-M.SUM3+M.SUM2)+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta in sold fata de 411 este '+STR(M.SOLDDEB-M.SUM3+M.SUM2) + ot.label3.CAPTION='in luna '+nl+' '+an + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA CLIENTI'+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente la clienti '+' in luna '+nl+' '+an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE VERACHI +SELECT ACHIT542 +SUM LUAT,DAT TO m.SUM1,M.SUM2 +m.SUM3=M.SUM1-M.SUM2 +SELE BAL +SEEK '542 ' +SCATTER MEMVAR +IF M.SOLDDEB # M.SUM3 +***WAIT WINDOWS 'DIFERENTA SOLDULUI CONT.542 ESTE DE '+STR(M.SOLDDEB-M.SUM3)+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta soldului cont.542 este de: '+STR(M.SOLDDEB-M.SUM3) + ot.label3.CAPTION='in luna '+nl+' '+an + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA 542'+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente la 542'+' in luna: '+nl+' '+an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________________________________ +PROCEDURE REFCasa +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + + +USE &dateA\casanume IN 0 SHARED ALIAS CASANUMEP +IF TYPE('casanumep.precdeb') # 'U' + SELECT casa, precdeb + incasari as precdeb, preccred + plati as preccred FROM casanumeP ; + INTO CURSOR tprec ORDER BY casa +ELSE + SELECT casa, incasari as precdeb, plati as preccred FROM casanumeP ; + INTO CURSOR tprec ORDER BY casa +ENDIF + +SELE CASA +IF FLOCK() + DELETE ALL + m.casa = 'SOLD' + m.DATAIREG = {} + m.COD = -1 + m.INCASARI = 0 + m.PLATI = 0 + m.scd = '' + m.scc = '' + SELE tprec + SCAN + SCATTER MEMVAR + SELE CASA + GOTO BOTTOM + APPE BLANK + m.INCASARI=M.precdeb-M.preccred + m.PLATI=0 + GATHER MEMVAR + SELE tprec + ENDSCAN + UNLOCK +ENDIF + +SELECT cod, dataireg, nume_3 as casa, scd, scc,; + IIF(scd = '5311', suma, 00000000000000) as incasari, ; + IIF(scc = '5311', suma, 00000000000000) as plati ; + FROM act WHERE scd = '5311' OR scc = '5311' ; + INTO CURSOR tact + +SELECT casa +APPEND FROM DBF('tact') +USE IN tact + + +SELECT CASANUME +IF FLOCK() + DELE ALL + APPEND FROM DBF('tprec') + + SELECT nume_3 as casa, ; + sum(IIF(scd = '5311', suma, 00000000000000)) as incasari, ; + sum(IIF(scc = '5311', suma, 00000000000000)) as plati ; + FROM act WHERE scd = '5311' OR scc = '5311' ; + INTO CURSOR tact; + GROUP BY 1 + + + SELECT tact + SCAN + SCATTER NAME ot + SELECT casanume + LOCATE FOR ALLTRIM(casa) = ALLTRIM(ot.casa) + IF !FOUND() + APPEND blank + REPLACE casa WITH ot.casa + ENDIF + REPLACE incasari WITH incasari + ot.incasari, plati WITH plati + ot.plati + SELECT tact + ENDSCAN + +UNLOCK +ENDIF + +IF USED('tact') + USE IN tact +ENDIF +USE IN tprec +USE IN CASANUMEP + +*!* SELE act +*!* SCAN FOR scd='5311' +*!* SCATTER MEMVAR +*!* IF LEFT(m.nume_3,2)=' ' +*!* REPL nume_3 WITH 'CENTRALA' +*!* m.nume_3='CENTRALA' +*!* ENDIF +*!* SELE CASA +*!* m.CASA=M.nume_3 +*!* m.INCASARI=M.suma +*!* m.PLATI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN + +*!* SCAN FOR scc='5311' +*!* SCATTER MEMVAR +*!* IF LEFT(m.nume_3,2)=' ' +*!* REPL nume_3 WITH 'CENTRALA' +*!* m.nume_3='CENTRALA' +*!* ENDIF +*!* SELE CASA +*!* m.CASA=M.nume_3 +*!* m.PLATI=M.suma +*!* m.INCASARI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN +*!* ENDIF +****WAIT WIND 'J' + + +*!* SELE 0 +*!* USE &DATE\casanume + + +*!* IF FLOCK() + +*!* SELE CASA +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE casanume +*!* LOCA FOR CASA=ALLTRIM(M.CASA) +*!* IF NOT FOUND() +*!* GOTO BOTTOM +*!* APPE BLANK +*!* REPL CASA WITH M.CASA +*!* ENDIF +*!* SELE CASA +*!* ENDSCAN + +*!* SELE casanume +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE CASA +*!* SUM INCASARI,PLATI TO M.INCASARI,M.PLATI FOR ALLTRIM(CASA)=ALLTRIM(M.CASA) +*!* SELE casanume + +*!* REPL INCASARI WITH M.INCASARI +*!* REPL PLATI WITH M.PLATI +*!* SELE casanume +*!* ENDSCAN +*!* ENDIF + +*!* UNLOCK IN CASA +*!* UNLOCK IN casanume + +SELE CASA +SET ORDER TO TAG DATAIREG +RETURN + + + + + + +*__________________________________________________ +PROCEDURE REFBANCA +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +USE &dateA\bannume IN 0 SHARED ALIAS banNUMEP +IF TYPE('bannumep.precdeb') # 'U' + SELECT nume_2, precdeb + incasari as precdeb, preccred + plati as preccred FROM bannumeP ; + INTO CURSOR tprec ORDER BY nume_2 +ELSE + SELECT nume_2, incasari as precdeb, plati as preccred FROM bannumeP ; + INTO CURSOR tprec ORDER BY nume_2 +ENDIF + +SELE banca +IF FLOCK() + DELETE ALL + m.DATAIREG = {} + m.COD = -1 + m.INCASARI = 0 + m.PLATI = 0 + m.scd = '' + m.scc = '' + SELE tprec + SCAN + SCATTER MEMVAR + m.INCASARI = M.precdeb-M.preccred + m.PLATI = 0 + m.banca = m.nume_2 + SELE banca + GOTO BOTTOM + APPE BLANK + GATHER MEMVAR + SELE tprec + ENDSCAN + UNLOCK +ENDIF + +SELECT cod, dataireg, nume_2 as banca, scd, scc,; + IIF(scd = '5121', suma, 00000000000000) as incasari, ; + IIF(scc = '5121', suma, 00000000000000) as plati ; + FROM act WHERE scd = '5121' OR scc = '5121' ; + INTO CURSOR tact + +SELECT banca +APPEND FROM DBF('tact') +USE IN tact + + +SELECT banNUME +IF FLOCK() + DELE ALL + APPEND FROM DBF('tprec') + + SELECT nume_2 as banca, ; + sum(IIF(scd = '5121', suma, 00000000000000)) as incasari, ; + sum(IIF(scc = '5121', suma, 00000000000000)) as plati ; + FROM act WHERE scd = '5121' OR scc = '5121' ; + INTO CURSOR tact; + GROUP BY 1 + + + SELECT tact + SCAN + SCATTER NAME ot + SELECT bannume + LOCATE FOR ALLTRIM(nume_2) = ALLTRIM(ot.banca) + IF !FOUND() + APPEND blank + REPLACE nume_2 WITH ot.banca + ENDIF + REPLACE incasari WITH incasari + ot.incasari, plati WITH plati + ot.plati + SELECT tact + ENDSCAN + +UNLOCK +ENDIF + +IF USED('tact') + USE IN tact +ENDIF +USE IN tprec +USE IN banNUMEP + +*!* SELE BANCA +*!* SET ORDER TO TAG COD +*!* IF FLOCK() +*!* DELE ALL + + +*!* SELE BANNUME +*!* USE +*!* SELE 0 +*!* USE &dateA\BANNUME + +*!* m.DATAIREG={} +*!* m.COD=-1 +*!* m.INCASARI=0 +*!* m.PLATI=0 +*!* m.scd='' +*!* m.scc='' +*!* SELE BANNUME +*!* SCAN +*!* SCATTER MEMVAR +*!* m.BANCA=m.nume_2 +*!* SELE BANCA +*!* GOTO BOTTOM +*!* APPE BLANK +*!* m.INCASARI=M.INCASARI-M.PLATI +*!* m.PLATI=0 +*!* GATHER MEMVAR +*!* SELE BANNUME +*!* ENDSCAN +*!* SELE BANNUME +*!* USE +*!* SELE BANCA +*!* m.BANCA='BANCA COMPENSARI' +*!* m.INCASARI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR + +*!* SELE act +*!* SCAN FOR scd='5121' +*!* SCATTER MEMVAR +*!* SELE BANCA +*!* m.BANCA=M.nume_2 +*!* m.INCASARI=M.suma +*!* m.PLATI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN + +*!* SCAN FOR scc='5121' +*!* SCATTER MEMVAR +*!* SELE BANCA +*!* m.BANCA=M.nume_2 +*!* m.PLATI=M.suma +*!* m.INCASARI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN +*!* ENDIF + + +*!* SELE 0 +*!* USE &DATE\BANNUME +*!* IF FLOCK() +*!* DELE ALL +*!* &&&exclusive +*!* &&&zap + +*!* SELE BANCA +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE BANNUME +*!* LOCA FOR nume_2=ALLTRIM(M.BANCA) +*!* IF NOT FOUND() +*!* GOTO BOTTOM +*!* APPE BLANK +*!* REPL nume_2 WITH M.BANCA +*!* ENDIF +*!* SELE BANCA +*!* ENDSCAN + +*!* SELE BANNUME +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE BANCA +*!* SUM INCASARI,PLATI TO M.INCASARI,M.PLATI FOR BANCA=M.nume_2 +*!* SELE BANNUME +*!* REPL INCASARI WITH M.INCASARI +*!* REPL PLATI WITH M.PLATI +*!* SELE BANNUME +*!* ENDSCAN +*!* ENDIF +*!* UNLOCK IN BANCA +*!* UNLOCK IN BANNUME + +SELE BANCA +SET ORDER TO TAG DATAIREG +RETURN + + + + +*_________________________________________ +PROCEDURE REFBancaVal && REFVALBANCA +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + + +USE &dateA\banvnume IN 0 SHARED ALIAS banvnumeP +IF TYPE('banvnumep.precdeb') # 'U' + SELECT nume_3, numeval, ; + precdeb + incasari as precdeb, preccred + plati as preccred, ; + precvaldeb + incasval as precvaldeb, precvalcre + platival as precvalcre ; + FROM banvnumeP ; + INTO CURSOR tprec ORDER BY nume_3 +ELSE + SELECT nume_3, numeval, incasari as precdeb, plati as preccred, incasval as precvaldeb, platival as precvalcre ; + FROM banvnumeP ; + INTO CURSOR tprec ORDER BY nume_3 +ENDIF + +SELE bancaval +IF FLOCK() + DELETE ALL + m.DATAIREG={} + m.COD=-1 + m.INCASARI=0 + m.PLATI=0 + m.incasval=0 + m.platival=0 + m.scd='' + m.scc='' + m.CURSSCHIMB=0 + m.CURSBNR=0 + + SELE tprec + SCAN + SCATTER MEMVAR + m.INCASARI = M.precdeb-M.preccred + m.PLATI = 0 + m.INCASval = M.precvaldeb-M.precvalcre + m.PLATIval = 0 + m.banca = m.nume_3 + SELE bancaval + GOTO BOTTOM + APPE BLANK + GATHER MEMVAR + SELE tprec + ENDSCAN + UNLOCK +ENDIF + +SELECT cod, dataireg, nume_3 as banca, scd, scc, suma_3 as cursschimb, nume_4 as numeval, ; + IIF(scd = '5124', suma, 00000000000000) as incasari, ; + IIF(scc = '5124', suma, 00000000000000) as plati, ; + IIF(scd = '5124', suma_2, 000000000000.00) as incasval, ; + IIF(scc = '5124', suma_2, 000000000000.00) as platival ; + FROM act WHERE scd = '5124' OR scc = '5124' ; + INTO CURSOR tact + +SELECT bancaval +APPEND FROM DBF('tact') +USE IN tact + + +SELECT banvnume +IF FLOCK() + DELE ALL + APPEND FROM DBF('tprec') + +SELECT nume_3 as bancaval, nume_4 as numeval, ; + sum(IIF(scd = '5124', suma, 00000000000000)) as incasari, ; + sum(IIF(scc = '5124', suma, 00000000000000)) as plati, ; + sum(IIF(scd = '5124', suma_2, 000000000000.00)) as incasval, ; + sum(IIF(scc = '5124', suma_2, 000000000000.00)) as platival ; + FROM act WHERE scd = '5124' OR scc = '5124' ; + INTO CURSOR tact; + GROUP BY 1 + + + SELECT tact + SCAN + SCATTER NAME ot + SELECT banvnume + LOCATE FOR ALLTRIM(nume_3) = ALLTRIM(ot.bancaval) + IF !FOUND() + APPEND blank + REPLACE nume_3 WITH ot.bancaval + REPLACE numeval WITH ot.numeval + ENDIF + REPLACE incasari WITH incasari + ot.incasari, plati WITH plati + ot.plati + REPLACE incasval WITH incasval + ot.incasval, platival WITH platival + ot.platival + SELECT tact + ENDSCAN + +UNLOCK +ENDIF + +IF USED('tact') + USE IN tact +ENDIF +USE IN tprec +USE IN banvnumeP + +*!* SELE BANCAVAL +*!* IF FLOCK() +*!* DELE ALL +*!* SET ORDER TO TAG COD +*!* &&&ZAP + +*!* SELE BANVNUME +*!* USE + +*!* SELE 0 +*!* USE &dateA\BANVNUME + +*!* m.DATAIREG={} +*!* m.COD=-1 +*!* m.INCASARI=0 +*!* m.PLATI=0 +*!* m.incasval=0 +*!* m.platival=0 +*!* m.scd='' +*!* m.scc='' +*!* m.CURSSCHIMB=0 +*!* m.CURSBNR=0 +*!* SELE BANVNUME +*!* SCAN +*!* SCATTER MEMVAR +*!* m.BANCA=m.nume_3 +*!* SELE BANCAVAL +*!* APPE BLANK +*!* m.INCASARI=M.INCASARI-M.PLATI +*!* m.incasval=M.incasval-M.platival +*!* m.PLATI=0 +*!* m.platival=0 +*!* GATHER MEMVAR +*!* SELE BANVNUME +*!* ENDSCAN + +*!* SELE BANVNUME +*!* USE +*!* SELE BANCAVAL +*!* m.BANCA='BANCA COMPENSARI' +*!* m.INCASARI=0 +*!* m.incasval=0 +*!* APPE BLANK +*!* GATHER MEMVAR + +*!* SELE act +*!* SCAN FOR scd='5124' +*!* SCATTER MEMVAR +*!* SELE BANCAVAL +*!* m.BANCA=M.nume_3 +*!* m.INCASARI=M.suma + +*!* m.incasval=M.suma_2 +*!* m.CURSSCHIMB=M.SUMA_3 + +*!* m.SBNR=SUBSTR(M.EXPLICATIA,8,14) +*!* m.CURSBNR=VAL(M.SBNR) +*!* m.PLATI=0 +*!* m.platival=0 +*!* m.NUMEVAL=m.nume_4 +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN + +*!* SELE act +*!* SCAN FOR scc='5124' +*!* SCATTER MEMVAR +*!* SELE BANCAVAL +*!* m.BANCA=M.nume_3 +*!* m.PLATI=M.suma +*!* m.platival=M.suma_2 +*!* m.CURSSCHIMB=M.SUMA_3 +*!* m.SBNR=SUBSTR(M.EXPLICATIA,8,14) +*!* m.CURSBNR=VAL(M.SBNR) +*!* m.INCASARI=0 +*!* m.incasval=0 +*!* m.NUMEVAL=m.nume_4 +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN +*!* ENDIF +*!* &&REFACERE BANVNUME DUPA BANCAVAL===================== +*!* SELE 0 +*!* USE &DATE\BANVNUME +*!* IF FLOCK() +*!* DELE ALL + +*!* &&NUMELE BANCILOR============= +*!* SELE BANCAVAL +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE BANVNUME +*!* LOCA FOR nume_3=M.BANCA +*!* IF NOT FOUND() +*!* GOTO BOTTOM +*!* APPE BLANK +*!* REPL nume_3 WITH M.BANCA +*!* ENDIF +*!* SELE BANVNUME +*!* REPL NUMEVAL WITH m.NUMEVAL +*!* SELE BANCAVAL +*!* ENDSCAN +*!* &&VALORILE========== +*!* SELE BANVNUME +*!* SCAN +*!* SCATTER FIEL nume_3 MEMVAR +*!* SELE BANCAVAL +*!* SUM INCASARI,PLATI,incasval,platival TO M.INCASARI,M.PLATI,M.incasval,M.platival FOR ALLT(BANCA)=ALLT(M.nume_3) +*!* IF EMPTY(ALLT(M.nume_3)) +*!* SUM INCASARI,PLATI,incasval,platival TO M.INCASARI,M.PLATI,M.incasval,M.platival FOR EMPTY(ALLT(BANCA)) +*!* ENDIF +*!* SELE BANVNUME +*!* REPL INCASARI WITH M.INCASARI +*!* REPL PLATI WITH M.PLATI +*!* REPL incasval WITH M.incasval +*!* REPL platival WITH M.platival +*!* SELE BANVNUME +*!* ENDSCAN +*!* ENDIF +*!* UNLOCK IN BANCA +*!* UNLOCK IN BANCAVAL + +SELE BANCAVAL +SET ORDER TO TAG DATAIREG +RETURN + + + + +*__________________________________________________ +PROCEDURE REFCec +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + + +USE &dateA\CECnume IN 0 SHARED ALIAS CECNUMEP +IF TYPE('CECnumep.precdeb') # 'U' + SELECT CEC, precdeb + INCARCAT as precdeb, preccred + plati as preccred FROM CECnumeP ; + INTO CURSOR tprec ORDER BY CEC +ELSE + SELECT CEC, INCARCAT as precdeb, plati as preccred FROM CECnumeP ; + INTO CURSOR tprec ORDER BY CEC +ENDIF + +SELE CEC +IF FLOCK() + DELETE ALL + m.CEC = 'SOLD' + m.DATAIREG = {} + m.COD = -1 + m.INCARCAT = 0 + m.PLATI = 0 + m.scd = '' + m.scc = '' + SELE tprec + SCAN + SCATTER MEMVAR + SELE CEC + GOTO BOTTOM + APPE BLANK + m.INCARCAT=M.precdeb-M.preccred + m.PLATI=0 + GATHER MEMVAR + SELE tprec + ENDSCAN + UNLOCK +ENDIF + +SELECT cod, dataireg, CEC, scd, scc,; + IIF(scd = '5112', suma, 00000000000000) as INCARCAT, ; + IIF(scc = '5112', suma, 00000000000000) as plati ; + FROM act WHERE scd = '5112' OR scc = '5112' ; + INTO CURSOR tact + +SELECT CEC +APPEND FROM DBF('tact') +USE IN tact + + +SELECT CECNUME +IF FLOCK() + DELE ALL + APPEND FROM DBF('tprec') + + SELECT CEC, ; + sum(IIF(scd = '5112', suma, 00000000000000)) as INCARCAT, ; + sum(IIF(scc = '5112', suma, 00000000000000)) as plati ; + FROM act WHERE scd = '5112' OR scc = '5112' ; + INTO CURSOR tact; + GROUP BY 1 + + + SELECT tact + SCAN + SCATTER NAME ot + SELECT CECnume + LOCATE FOR ALLTRIM(CEC) = ALLTRIM(ot.CEC) + IF !FOUND() + APPEND blank + REPLACE CEC WITH ot.CEC + ENDIF + REPLACE INCARCAT WITH INCARCAT + ot.INCARCAT, plati WITH plati + ot.plati + SELECT tact + ENDSCAN + +UNLOCK +ENDIF + +IF USED('tact') + USE IN tact +ENDIF +USE IN tprec +USE IN CECNUMEP + + + +*!* SELE cec +*!* *set order to tag cod +*!* IF FLOCK() +*!* DELE ALL + + +*!* SELE cecnume +*!* USE +*!* IF !FILE('&DATEA\cecnume.dbf') +*!* COPY FILE &dirgen\_alfa\an0000\date00\cecnume.* TO &dateA\*.* +*!* ENDIF +*!* SELE 0 +*!* USE &dateA\cecnume + +*!* m.DATAIREG={} +*!* m.COD=-1 +*!* m.INcarcat=0 +*!* m.PLATI=0 +*!* m.scd='' +*!* m.scc='' +*!* ********incarcare solduri precedente +*!* SELE cecnume +*!* SCAN +*!* SCATTER MEMVAR +*!* *m.cec=m.explicatia +*!* SELE cec +*!* GOTO BOTTOM +*!* APPE BLANK +*!* m.INcarcat=M.INcarcat-M.PLATI +*!* m.PLATI=0 +*!* GATHER MEMVAR +*!* SELE cecnume +*!* ENDSCAN +*!* SELE cecnume +*!* USE + +*!* **********************incarcare in cec lunca curenta +*!* SELE act +*!* SCAN FOR scd='5112' +*!* SCATTER MEMVAR +*!* SELE cec +*!* m.cec=m.EXPLICATIA +*!* m.INcarcat=M.suma +*!* m.PLATI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN + +*!* SCAN FOR scc='5112' +*!* SCATTER MEMVAR +*!* SELE cec +*!* m.cec=m.EXPLICATIA +*!* m.PLATI=M.suma +*!* m.INcarcat=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN +*!* ENDIF + + +*!* SELE 0 +*!* USE &DATE\cecnume +*!* IF FLOCK() +*!* DELE ALL +*!* &&&exclusive +*!* &&&zap +*!* ********************incarcare denumiri in ccecnume +*!* SELE cec +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE cecnume +*!* LOCA FOR ALLTRIM(cec)=ALLTRIM(M.cec) +*!* IF NOT FOUND() +*!* GOTO BOTTOM +*!* APPE BLANK +*!* REPL cec WITH M.cec +*!* ENDIF +*!* SELE cec +*!* ENDSCAN +*!* *************************incarcare soduri in cecnume +*!* SELE cecnume +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE cec +*!* SUM INcarcat,PLATI TO M.INcarcat,M.PLATI FOR cec=M.cec +*!* SELE cecnume +*!* REPL INcarcat WITH M.INcarcat +*!* REPL PLATI WITH M.PLATI +*!* SELE cecnume +*!* ENDSCAN +*!* ENDIF +*!* UNLOCK IN cec +*!* UNLOCK IN cecnume + +SELE cec +SET ORDER TO TAG DATAIREG +RETURN + + + +*_________________________________________ +PROCEDURE REDAU +PARAMETERS CT,ALI,ETI,CIMP +IF ETI='M.NUME_2' + CIMP1='NUME_2' +ELSE + CIMP1='NUME' +ENDIF + +SELE &ALI +SELE act +SCAN FOR &CT + SCATTER MEMVAR + SELE &ALI + SEEK &ETI + IF FOUND() + REPL &CIMP WITH &CIMP +M.suma +*!* IF INLIST(UPPER(ALI),'FURNIZOR','CLIENTI',"RCLI",'ANA408','CLIENT4118') +*!* REPL COD_FISCAL WITH m.COD_FISCAL +*!* ENDIF + lcCod = m.COD_FISCAL + IF EMPTY(COD_FISCAL) AND !EMPTY(lcCod) + REPLACE COD_FISCAL WITH lcCod + ENDIF + + ELSE + GOTO BOTTOM + APPE BLANK + REPL &CIMP1 WITH &ETI + REPL &CIMP WITH &CIMP +M.suma + IF INLIST(UPPER(ALI),'FURNIZOR','CLIENTI',"RCLI",'ANA408','CLIENT4118') + REPL COD_FISCAL WITH m.COD_FISCAL + ENDIF + GO TOP + ENDIF + SELE act +ENDSCAN +RETURN + + +*_________________________________________ +PROCEDURE REDAUVAL +PARAMETERS CT,ALI,ETI,CIMP +IF ETI='M.NUME_2' + CIMP1='NUME_2' +ELSE + CIMP1='NUME' +ENDIF +SELE &ALI +SELE act +SCAN FOR &CT + SCATTER MEMVAR + IF M.SUMA_3#0 + SELE &ALI + SEEK &ETI + IF FOUND() + REPL &CIMP WITH &CIMP +M.suma_2 + REPLACE NUMEVAL WITH M.nume_4 +*If Inlist(Upper(ALI),'FURNIZOR','CLIENTI') +* REPL COD_FISCAL WITH m.COD_FISCAL +*Endif + ELSE + GOTO BOTTOM + APPE BLANK + REPL &CIMP1 WITH &ETI + REPL &CIMP WITH &CIMP +M.suma_2 + REPLACE NUMEVAL WITH M.nume_4 + REPL COD_FISCAL WITH m.COD_FISCAL + GO TOP + ENDIF + ENDIF + SELE act +ENDSCAN +RETURN + +************ +PROCEDURE REDAUsc +PARAMETERS CT,ALI,ETI,CIMP +IF ETI='M.NUME_2' + CIMP1='NUME_2' +ELSE + CIMP1='NUME' +ENDIF +SELE &ALI +SELE act +SCAN FOR &CT + SCATTER MEMVAR + SELE &ALI + SEEK &ETI + IF FOUND() + REPL &CIMP WITH &CIMP -M.suma + ELSE + GOTO BOTTOM + APPE BLANK + REPL &CIMP1 WITH &ETI + REPL &CIMP WITH &CIMP +M.suma + GO TOP + ENDIF + SELE act +ENDSCAN +RETURN + +************ +PROCEDURE REDAUscVAL +PARAMETERS CT,ALI,ETI,CIMP +IF ETI='M.NUME_2' + CIMP1='NUME_2' +ELSE + CIMP1='NUME' +ENDIF +SELE &ALI +SELE act +SCAN FOR &CT + SCATTER MEMVAR + IF M.SUMA_3#0 + SELE &ALI + SEEK &ETI + IF FOUND() + REPL &CIMP WITH &CIMP -M.suma_2 + REPLACE NUMEVAL WITH M.nume_4 + ELSE + GOTO BOTTOM + APPE BLANK + REPL &CIMP1 WITH &ETI + REPL &CIMP WITH &CIMP +M.suma_2 + REPLACE NUMEVAL WITH M.nume_4 + GO TOP + ENDIF + ENDIF + SELE act +ENDSCAN +RETURN + + + + +*_________________________________________ + +PROCEDURE REFDEBITOR +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\DEBITOR.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'DEBITOR.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\DEBITOR.DBF IN 0 ALIAS DEBITORU + +SELECT DEBITORU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('DEBITORu.totdeb') = 'U' + SELECT NUME,COD_FISCAL, LUAT AS precdeb, DAT AS preccred FROM DEBITORU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit, totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit +*REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('DEBITORu.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM DEBITORU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM DEBITORU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN DEBITORU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '461', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '461', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '461', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '461', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '461', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('461',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t461 GROUP BY 1, 2, 3 + +SELECT t461 +SCAN + SCATTER NAME o461 + SELECT rcli + SEEK LEFT(o461.NUME,30) + o461.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o461.COD_FISCAL + ENDIF + REPLACE debit WITH debit + o461.debit, credit WITH credit + o461.credit, valdebit WITH valdebit + o461.valdebit, valcredit WITH valcredit + o461.valcredit + ELSE + SEEK LEFT(o461.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o461.acont + REPLACE debit WITH debit + o461.debit, credit WITH credit + o461.credit, valdebit WITH valdebit + o461.valdebit, valcredit WITH valcredit + o461.valcredit + ELSE + APPEND BLANK + GATHER NAME o461 + ENDIF + ENDIF + + SELECT t461 +ENDSCAN +RELEASE o461 +USE IN t461 + +SELECT rcli +REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit &&,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit &&,TOTAVANSV WITH PRECAVANSV+AVANSVAL + +SELECT DEBITOR +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +SELECT DEBITOR +SET ORDER TO TAG NANA +RETURN + + +*_________________________________________ + +PROCEDURE REFCreditor +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\creditor.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'creditor.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\creditor.DBF IN 0 ALIAS creditorU + +SELECT creditorU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('creditoru.totdeb') = 'U' + SELECT NUME,COD_FISCAL, DAT AS precdeb, LUAT AS preccred FROM creditorU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit, totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit +*REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('creditoru.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM creditorU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM creditorU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN creditorU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA +SELECT IIF(LEFT(scc,3) = '462' AND INLIST(LEFT(scd,3),'411','451') AND !EMPTY(nume_2), nume_2, NUME) AS NUME, ; +IIF(LEFT(scd,3) = '462', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '462', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '462', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '462', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '462', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('462',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t462 GROUP BY 1, 2, 3 + +SELECT t462 +SCAN + SCATTER NAME o462 + SELECT rcli + SEEK LEFT(o462.NUME,30) + o462.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o462.COD_FISCAL + ENDIF + REPLACE debit WITH debit + o462.debit, credit WITH credit + o462.credit, valdebit WITH valdebit + o462.valdebit, valcredit WITH valcredit + o462.valcredit + ELSE + SEEK LEFT(o462.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o462.acont + REPLACE debit WITH debit + o462.debit, credit WITH credit + o462.credit, valdebit WITH valdebit + o462.valdebit, valcredit WITH valcredit + o462.valcredit + ELSE + APPEND BLANK + GATHER NAME o462 + ENDIF + ENDIF + + SELECT t462 +ENDSCAN +RELEASE o462 +USE IN t462 + +SELECT rcli +REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit &&,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit &&,TOTAVANSV WITH PRECAVANSV+AVANSVAL + +SELECT creditor +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +SELECT creditor +SET ORDER TO TAG NANA +RETURN + +*_________________________________________ +PROCEDURE VERdebitor +SELECT DEBITOR +SUM LUAT,DAT TO m.SUM1,M.SUM2 +m.SUM3=M.SUM1-M.SUM2 +SELE BAL +SEEK '461 ' +SCATTER MEMVAR +IF M.SOLDDEB # M.SUM3 + DO mesajval WITH 'Diferenta soldului cont.461 este de: ',M.SOLDDEB-M.SUM3 +*** +ELSE + DO mesaj WITH 'Nu sunt diferente la 461',' in luna: '+nl+' '+an +*** +ENDIF +RETURN + +*_________________________________________ +PROCEDURE VERcreditor +SELECT creditor +SUM LUAT,DAT TO m.SUM1,M.SUM2 +m.SUM3=M.SUM1-M.SUM2 +SELE BAL +SEEK '462 ' +SCATTER MEMVAR +IF M.SOLDCRED # M.SUM3 + DO mesajval WITH 'Diferenta soldului cont.462 este de: ',M.SOLDDEB-M.SUM3 +*** +ELSE + DO mesaj WITH 'Nu sunt diferente la 462',' in luna: '+nl+' '+an +*** +ENDIF +RETURN + + + +*____________________________________________________________________________________________________________ +*** INCEPUT PROCEDURA REFCUMP +PROCEDURE REFCump && refcumpnou + + +LOCAL lnTipTVA,llProcTva + + +llProcTva=.F. +SELECT act +IF TYPE('act.proc_tva')!="U" && daca exista campul proc_tva + llProcTva=.T. +ENDIF +DO CASE + CASE m.ctvam = 1 AND m.ctvai = 1 OR !llProcTva && firma neplatitoare de TVA + lnTipTVA = 1 + CASE (m.ctvam >1 AND m.ctvai = m.ctvam) OR !llProcTva && firma platitoare de TVA inainte de TVA REDUS + lnTipTVA = 2 + CASE (m.ctvam >=1 AND m.ctvai != m.ctvam) AND llProcTva && firma platitoare de TVA cu TVA REDUS adica am coloana proc_tva + lnTipTVA = 3 + OTHERWISE && consider firma platitoare de TVA inainte de TVA REDUS + lnTipTVA = 2 +ENDCASE + +locCond = [(SCC='401 ' OR SCC='404 ' OR (SCC='4428' AND SCD='4426'))] +IF gle4511 + SELECT * FROM act WHERE (&locCond OR COD IN (SELE DISTINCT COD FROM act WHERE (scc = '4511' AND (scd = '4426' OR !EMPTY(neimpozab))))) AND scc # '767 ' ; + INTO CURSOR tact +ELSE + SELECT * FROM act WHERE &locCond INTO CURSOR tact +ENDIF + + +*!* IF gle4511 +*!* locCond = [(SCC='401 ' OR SCC='404 ' OR (SCC='4428' AND SCD='4426') OR (scc = '4511' and (scd = '4426' or !EMPTY(neimpozab))))] +*!* ELSE +*!* locCond = [(SCC='401 ' OR SCC='404 ' OR (SCC='4428' AND SCD='4426'))] +*!* ENDIF + +SELE CUMP +IF FLOCK() + DELE ALL + + + SELE tact +*SET FILTER TO SCC='401 ' OR SCC='404 ' OR (SCC='4428' AND SCD='4426') +*SET FILTER TO &locCond + + STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA + SCAN FOR fdoc#'Nota modificare stoc' + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,scc,scd MEMV + SELE CUMP + LOCA FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + IF !FOUND() + SELE CUMP + APPE BLAN + GATH MEMV +* REPLACE scd WITH m.scc && nu-i bine din cauza selectiei : Marfa - Alte achizitii + ENDIF + SELE tact + ENDSCAN +******* +SELECT cump + + + SELE CUMP + SCAN + SCAT MEMV + SELE tact + STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA + IF USED('tact5') + USE IN tact5 + ENDIF + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + SELECT suma,neimpozab,scd,scc FROM tact ; + WHERE NUME=m.NUME AND dataact=m.dataact AND nract=m.nract ; + INTO CURSOR tact5 NOFILTER + OTHERWISE + SELECT suma,neimpozab,scd,scc,IIF(proc_tva=0 AND neimpozab=0,m.ctvam,proc_tva) AS proc_tva FROM tact ; + WHERE NUME=m.NUME AND dataact=m.dataact AND nract=m.nract ; + INTO CURSOR tact5 NOFILTER + + ENDCASE + SELECT tact5 + SCAN + DO CASE + CASE scd='4426' + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + m.tvaM=M.tvaM+suma + OTHERWISE && dupa tva redus + IF proc_tva=m.ctvam OR proc_tva=0 + m.tvaM=M.tvaM+suma + ELSE + IF proc_tva=m.ctvai + m.tvaI=m.tvaI+suma + ENDIF + ENDIF + ENDCASE + + + CASE scd#'4426' + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + m.totftvaM=M.totftvaM+(suma-neimpozab) + OTHERWISE + IF proc_tva=m.ctvam OR (proc_tva=0 AND neimpozab=0) + m.totftvaM=M.totftvaM+(suma-neimpozab) + ELSE + IF proc_tva=m.ctvai + m.totftvaI=M.totftvaI+(suma-neimpozab) + ENDIF + ENDIF + ENDCASE + + + m.neimpozab=m.neimpozab+neimpozab + + IF LEFT(scd,3)='371' + m.scd=scd + ENDIF +*!* IF SCD='635 ' + +*!* m.neimpozab=m.neimpozab+SUMA +*!* DO CASE +*!* CASE INLIST(lnTipTVA,1,2) && inainte de tva redus +*!* m.totftvaM=m.totftvaM-SUMA +*!* OTHERWISE +*!* IF proc_tva=m.ctvam OR (proc_tva=0 AND neimpozab=0) +*!* m.totftvaM=m.totftvaM-SUMA +*!* ELSE +*!* IF proc_tva=m.ctvai +*!* m.totftvaI=m.totftvaI-SUMA +*!* ENDIF +*!* ENDIF +*!* ENDCASE +*!* ENDIF + ENDCASE + + + ENDSCAN + IF USED('tact5') + USE IN tact5 + ENDIF + +*!* Scan For NUME=m.NUME And dataact=m.dataact And nract=m.nract +*!* Do Case +*!* Case SCD='4426' +*!* m.tvaM=M.tvaM+SUMA + +*!* Case SCD#'4426' +*!* m.totftvaM=M.totftvaM+(SUMA-neimpozab) +*!* m.neimpozab=m.neimpozab+neimpozab +*!* If Left(SCD,3)='371' +*!* m.SCD=SCD +*!* Endif +*!* If SCD='635 ' +*!* m.neimpozab=m.neimpozab+SUMA +*!* m.totftvaM=m.totftvaM-SUMA +*!* Endif +*!* Endcase +*!* ENDSCAN + + +*********** + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + m.totctva=M.tvaM+M.totftvaM+M.neimpozab + SELE CUMP + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva + OTHERWISE + m.totctva=M.tvaM+M.totftvaM+m.tvaI+m.totftvaI+M.neimpozab + SELE CUMP + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + tvaI WITH M.tvaI; + totftvaI WITH M.totftvaI; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva + ENDCASE +*************************************** + SELECT FURNIZOR + LOCATE FOR NUME = m.NUME + IF FOUND() + lcCodFiscal = COD_FISCAL + SELECT CUMP + REPLACE COD_FISCAL WITH lcCodFiscal + ENDIF +**************************************** + SELECT CUMP + + ENDSCAN + +************** + + SELE act +* SCAN FOR SCD='408 ' + SCAN FOR scd='4426' AND scc='4428' &&&&&&& modificare la 11 martie 2004, Georgiana + SCAT MEMV + SELE CUMP + LOCA FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + IF FOUND() + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus +* REPL totftvaM WITH ROUND(tvaM/(m.ctvam-1),0) + IF totftvaM # 0 && pt 4426 = 4428 fara baza + REPL totftvaM WITH totftvaM - m.suma + ENDIF + REPL totctva WITH totftvaM+tvaM+neimpozab + OTHERWISE + IF m.proc_tva=m.ctvam OR (m.proc_tva=0 AND m.neimpozab=0) +* REPL totftvaM WITH ROUND(tvaM/(m.ctvam-1),0) + IF totftvaM # 0 && pt 4426 = 4428 fara baza + REPLACE totftvaM WITH totftvaM - m.suma + ENDIF + ELSE + IF m.proc_tva=m.ctvai +* REPLACE totftvai WITH ROUND(tvai/(m.ctvai-1),0) + IF totftvaI # 0 && pt 4426 = 4428 fara baza + REPLACE totftvaI WITH totftvaI - m.suma + ENDIF + ENDIF + ENDIF + REPL totctva WITH totftvaM+tvaM+totftvaI+tvaI+neimpozab + ENDCASE + + ENDIF + SELE act + ENDSCAN + + + IF gle4511 + LlCondScan = [INLIST(LEFT(scd, 3), '401', '404', '451')] + ELSE + LlCondScan = [INLIST(LEFT(scd, 3), '401', '404')] + ENDIF + SELE act + SET FILTER TO + SCAN FOR scc='767 ' AND &LlCondScan &&INLIST(LEFT(scd, 3), '401', '404', '451') + + SCAT MEMV + SELE CUMP + LOCA FOR nract=m.nract AND NUME=m.NUME +*REPL TOTFTVAM WITH TOTFTVAM-TVAM+neimpozab + IF FOUND() + IF m.neimpozab#0 + REPLACE neimpozab WITH neimpozab-M.suma + ELSE + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + REPL totftvaM WITH totftvaM-m.suma + OTHERWISE + IF M.proc_tva=m.ctvam OR (M.proc_tva=0 AND M.neimpozab=0) + REPL totftvaM WITH totftvaM - m.suma + ELSE + IF M.proc_tva=m.ctvai + REPL totftvaI WITH totftvaI-m.suma + ENDIF + ENDIF + ENDCASE + ENDIF + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + REPL totctva WITH totftvaM+tvaM+neimpozab + OTHERWISE + REPL totctva WITH totftvaM+tvaM+totftvaI+tvaI+neimpozab + ENDCASE + ENDIF + SELE act + ENDSCAN + + SELE act + SET FILTER TO + IF USED('tact') + USE IN tact + ENDIF + +ENDIF +UNLOCK IN CUMP + + +ENDPROC +*** SFARSIT PROCEDURA REFCUMP +*_________________________________________________________________________________________________ +*_________________________________________________________________________________________________ +*** INCEPUT PROCEDURA REFVANZ +PROCEDURE REFVanz +LOCAL lnTipTVA,llProcTva + +llProcTva=.F. +SELECT act +IF TYPE('act.proc_tva')!="U" && daca exista campul proc_tva + llProcTva=.T. +ENDIF +DO CASE + CASE (m.ctvam = 1 AND m.ctvai = 1) OR !llProcTva && firma neplatitoare de TVA + lnTipTVA = 1 + CASE (m.ctvam >1 AND m.ctvai = m.ctvam) OR !llProcTva && firma platitoare de TVA inainte de TVA REDUS + lnTipTVA = 2 + CASE (m.ctvam >=1 AND m.ctvai != m.ctvam) AND llProcTva && firma platitoare de TVA cu TVA REDUS adica am coloana proc_tva + lnTipTVA = 3 + OTHERWISE && consider firma platitoare de TVA inainte de TVA REDUS + lnTipTVA = 2 +ENDCASE + +COPY FILE &dirgen\_alfa\an0000\date00\VANZ.* TO &loc\&nfscurt\tempo\vanz0.* + +USE &loc\&nfscurt\tempo\vanz0 IN 0 ALIAS vanz0 EXCLUSIVE +SELECT vanz0 +INDEX ON NUME+DTOC(dataact)+STR(nract,14)+scd TAG ndn OF &loc\&nfscurt\tempo\vanz0 +SET ORDER TO TAG ndn + + +*!* Sele VANZ +*!* If Flock() +*!* Dele All +SELECT vanz0 + +IF gle4511 + locCond = [(LEFT(SCD,3)='411' AND SCD#'4118') OR (SCD='635 ' AND SCC='4427') OR (scd = '4511' AND (SCC='4427' OR neimpozab # 0))] +ELSE + locCond = [(LEFT(SCD,3)='411' AND SCD#'4118') OR (SCD='635 ' AND SCC='4427')] +ENDIF + +&& adaug inregistrari pt prima oara--------------------------------------------------- +SELECT act +*SET FILTER TO (LEFT(SCD,3)='411' AND SCD#'4118') OR (SCD='635 ' AND SCC='4427') && OR (LEFT(SCD,3)='428' AND SCC='4427') OR (SCD='4428' AND SCC='4427') +SET FILTER TO &locCond +STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +SCAN + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,scd MEMV + SELE vanz0 + SEEK m.NUME+DTOC(m.dataact)+STR(m.nract,14)+m.scd + IF !FOUND() + SELE vanz0 + APPEND BLAN + GATH MEMV + ENDIF + SELE act +ENDSCAN + + +SELECT act +SET FILTER TO + +SELECT DISTINCT COD FROM act WHERE scd='461 ' AND (scc='4427' OR neimpozab # 0) INTO CURSOR C461 +SELECT COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,suma,scd FROM act; +WHERE COD IN (SELECT DISTINCT COD FROM C461); +INTO CURSOR CC461 ORDER BY dataact + +SELECT CC461 +STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +SCAN + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,scd MEMV + SELE vanz0 + SEEK m.NUME+DTOC(m.dataact)+STR(m.nract,14)+m.scd + IF !FOUND() + SELE vanz0 + APPE BLAN + GATH MEMV + ENDIF + SELE CC461 +ENDSCAN +USE IN CC461 + +*!* SELECT DISTINCT COD FROM ACT WHERE SCC='4118' AND SCD='4427' INTO CURSOR C4118 +*!* SELECT COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,SUMA,SCD FROM ACT; +*!* WHERE COD IN (SELECT DISTINCT COD FROM C4118); +*!* INTO CURSOR CC4118 ORDER BY dataact + +*!* SELECT CC4118 +*!* STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +*!* SCAN +*!* SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,SCD MEMV +*!* SELE vanz0 +*!* SEEK m.NUME+DTOC(m.dataact)+STR(m.nract,14) +*!* IF !FOUND() +*!* DO CASE +*!* IF scd#4427 +*!* m.totftvam=-suma +*!* ELSE +*!* m.tvam=-suma +*!* ENDIF +*!* ENDCASE +*!* +*!* SELE vanz0 +*!* APPE BLAN +*!* GATH MEMV + +*!* +*!* ENDIF +*!* SELE CC4118 +*!* ENDSCAN +*!* USE IN CC4118 + +SELECT DISTINCT COD FROM act WHERE scc='4118' AND scd='4427' INTO CURSOR C4118 +SELECT COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,SUM(IIF(scd='4427',-suma,0)) AS tvaM ,SUM(IIF(scd#'4427',-suma,0)) AS totftvaM,scd ; +FROM act GROUP BY act.COD ; +WHERE COD IN (SELECT DISTINCT COD FROM C4118); +INTO CURSOR CC4118 ORDER BY dataact + +SELECT CC4118 +STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +SCAN + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,scd,tvaM,totftvaM MEMV + m.totctva=m.totftvaM+m.tvaM + SELE vanz0 + SEEK m.NUME+DTOC(m.dataact)+STR(m.nract,14)+m.scd + IF !FOUND() + SELE vanz0 + APPE BLAN + GATH MEMV + REPLACE scd WITH '4118' + ENDIF + SELE CC4118 +ENDSCAN +USE IN CC4118 +******* + +SELE vanz0 +SCAN FOR scd#'4118' + SCAT MEMV + SELE act + STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA + + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + SELECT suma,neimpozab,scc,scd FROM act WHERE NUME=m.NUME AND dataact=m.dataact AND nract=m.nract; + AND (scd=m.scd OR (scd='4428' AND scc='4427') OR (scd='635 ' AND scc='4427')); + INTO CURSOR act4 + OTHERWISE + SELECT IIF(LEFT(scd,3) # '419', suma, -suma) AS suma, neimpozab, scc, scd,IIF(neimpozab=0 AND proc_tva=0,m.ctvam,proc_tva) AS proc_tva FROM act WHERE NUME=m.NUME AND dataact=m.dataact AND nract=m.nract; + AND (scd=m.scd OR (scd='4428' AND scc='4427') OR (scd='635 ' AND scc='4427') OR INLIST('419',LEFT(scd,3),LEFT(scc,3))); + INTO CURSOR act4 + ENDCASE + + + SELECT act4 + GO TOP + IF (LEFT(scd,3) = '419' AND LEFT(scc,3) = '411') OR (LEFT(scc,3) = '419' AND LEFT(scd,1) = '5') + lnScd = '419' + ELSE + lnScd = m.scd + ENDIF + +******* de completat + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + SUM suma TO m.tvaM FOR scc='4427' + SUM suma-neimpozab,neimpozab TO m.totftvaM,m.neimpozab FOR scc#'4427' + OTHERWISE + SUM suma TO m.tvaM FOR scc='4427' AND proc_tva=m.ctvam + SUM suma TO m.tvaI FOR scc='4427' AND proc_tva=m.ctvai + SUM IIF(proc_tva=m.ctvam,suma-neimpozab,0),IIF(proc_tva=m.ctvai,suma-neimpozab,0),neimpozab TO m.totftvaM,m.totftvaI,m.neimpozab FOR scc#'4427' + ENDCASE + + USE IN act4 + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + m.totctva=M.tvaM+M.totftvaM+M.neimpozab + SELE vanz0 + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva, scd WITH lnScd + OTHERWISE + m.totctva=M.tvaM+M.totftvaM+M.tvaI+M.totftvaI+M.neimpozab + SELE vanz0 + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + tvaI WITH M.tvaI; + totftvaI WITH M.totftvaI; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva, scd WITH lnScd + ENDCASE + +ENDSCAN + + +*********************** +SELE act +SET FILTER TO +*!* SCAN FOR (SCD='667 ' AND LEFT(SCC,3)='411') OR SCC='418 ' +SCAN FOR (INLIST(LEFT(scd,3),'667','622') AND INLIST(LEFT(scc,3),'411', '451')) OR (scd='4428' AND scc='4427') && modificat la 11 martie 2004, Georgiana, 622 - 27 august 2004 Marius + SCAT FIEL NUME,nract,dataact,scc,suma MEMV + IF m.scc = '4427' + m.scc = '411' + ENDIF + m.scd=m.scc + SELE vanz0 + SEEK m.NUME+DTOC(m.dataact)+STR(m.nract,14)+m.scd + IF FOUND() + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus +*!* IF m.SCC='418 ' +*!* REPL totftvaM WITH ROUND(tvaM/(m.ctvam-1),0) +*!* REPL totctva WITH totftvaM+tvaM+neimpozab +*!* ELSE + IF m.ctvam # 1 + REPL totftvaM WITH totftvaM-m.suma + ELSE + REPLACE neimpozab WITH neimpozab-m.suma + ENDIF + + REPL totctva WITH totftvaM+tvaM+neimpozab +*!* ENDIF + OTHERWISE + m.proc_tva=act.proc_tva + IF m.proc_tva=0 AND neimpozab=0 + m.proc_tva=m.ctvam + ENDIF +*!* IF m.SCC='418 ' +*!* IF m.proc_tva=m.ctvam +*!* REPL totftvaM WITH ROUND(tvaM/(m.ctvam-1),0) +*!* ENDIF +*!* IF m.proc_tva=m.ctvai +*!* REPL totftvaI WITH ROUND(tvaI/(m.ctvaI-1),0) +*!* ENDIF +*!* REPL totctva WITH totftvaM+tvaM+totftvaI+tvaI+neimpozab +*!* ELSE + IF m.proc_tva=m.ctvam + REPL totftvaM WITH totftvaM-m.suma + ENDIF + IF m.proc_tva=m.ctvai + REPL totftvaI WITH totftvaI-m.suma + ENDIF + + REPL totctva WITH totftvaM+tvaM+totftvaI+tvaI+neimpozab +*!* ENDIF + ENDCASE + + ENDIF + SELE act +ENDSCAN + +***************** + +SELECT VANZ +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\vanz0 + +ENDIF +UNLOCK IN VANZ +USE IN vanz0 + +*** SFARSIT PROCEDURA REFVANZ************************************************************************ + +*____________________________________________________________________________________________________ + +*** REFACERE BALANTA ANALITICA FARA PRECEDENTE******************************************************* +PROCEDURE REFBALANTA_ANA &&REFBAL_ANA +IF !se_reface() + RETURN +ENDIF + +SELE BALANA +IF FLOCK() + DELETE ALL FOR EMPTY(acont) + REPLACE ALL RULDEB WITH 0; + RULCRED WITH 0 + SCAN + SCATTER MEMVAR + SELE act + IF m.acont#'0000' + SUM suma TO m.RULDEB FOR scd=m.cont AND ASCD=M.acont + SUM suma TO m.RULCRED FOR scc=m.cont AND ASCC=M.acont + ELSE + SUM suma TO m.RULDEB FOR scd=m.cont AND (ASCD=M.acont OR EMPTY(ASCD)) + SUM suma TO m.RULCRED FOR scc=m.cont AND (ASCC=M.acont OR EMPTY(ASCC)) + ENDIF + + SELE BALANA + REPL RULDEB WITH M.RULDEB; + RULCRED WITH M.RULCRED + + ENDSCAN + + IF TYPE('PRECDEB1')!="U" + DELETE ALL FOR PRECDEB1 = 0 AND PRECCRED1 = 0 AND precdeb = 0 AND preccred = 0 AND RULDEB = 0 AND RULCRED = 0 AND totdeb = 0 AND totcred = 0 AND SOLDDEB = 0 AND SOLDCRED = 0 + ELSE + DELETE ALL FOR precdeb = 0 AND preccred = 0 AND RULDEB = 0 AND RULCRED = 0 AND totdeb = 0 AND totcred = 0 AND SOLDDEB = 0 AND SOLDCRED = 0 + ENDIF + +ENDIF + +DO CALCULEAZABALANTA_ANA +*UNLOCK +RETURN + + + + +*** REFACERE BALANTA SINTETICA FARA PRECEDENTE******************************************************* +PROCEDURE REFBalanta && REFBAL +IF !se_reface() + RETURN +ENDIF + +SELE BAL +IF FLOCK() + REPLACE ALL RULDEB WITH 0; + RULCRED WITH 0 + SCAN + SCATTER MEMVAR + SELE act + SUM suma TO m.RULDEB FOR scd=SUBS(m.cont,1,4) + SUM suma TO m.RULCRED FOR scc=SUBS(m.cont,1,4) + SELE BAL + REPL RULDEB WITH M.RULDEB; + RULCRED WITH M.RULCRED + + ENDSCAN + + IF TYPE('PRECDEB1')!="U" + DELETE ALL FOR PRECDEB1 = 0 AND PRECCRED1 = 0 AND precdeb = 0 AND preccred = 0 AND RULDEB = 0 AND RULCRED = 0 AND totdeb = 0 AND totcred = 0 AND SOLDDEB = 0 AND SOLDCRED = 0 + ELSE + DELETE ALL FOR precdeb = 0 AND preccred = 0 AND RULDEB = 0 AND RULCRED = 0 AND totdeb = 0 AND totcred = 0 AND SOLDDEB = 0 AND SOLDCRED = 0 + ENDIF + +ENDIF +DO CALCULEAZABALANTA +*UNLOCK +RETURN + + + +PROCEDURE VERDIFBAL +SELE BAL +IF FLOCK() + SUM RULDEB TO M.RULDEB + SUM RULCRED TO M.RULCRED + SELE act + SUM suma TO M.suma + IF M.RULDEB #M.suma + DO VERDIFDEB + DO REFBalanta + ENDIF + IF M.RULCRED #M.suma + DO VERDIFCRED + DO REFBalanta + ENDIF +ENDIF +UNLOCK IN BAL +RETURN + +************* +PROCEDURE VERDIFDEB +SELE act +DEB=' ' +SCAN + SCATTER MEMVAR + IF M.scd#DEB + DEB=M.scd + SELE BAL + SEEK DEB + IF ! FOUND() +*WAIT WINDOWS 'CONTUL '+DEB+' NU ESTE INTRODUS IN BALANTA' +**** + WAIT WIND 'Se introduce in balanta contul '+ DEB NOWAIT + SELE PLCONT +*LOCATE FOR LEFT(CIMP1,4)=LEFT(DEB,4) + LOCATE FOR ALLTRIM(CIMP1)=ALLTRIM(DEB) + IF FOUND() + SCATTER MEMVAR + m.cont=M.CIMP1 + m.DENUMIRE=m.cimp2 + SELE BAL + APPEND BLANK +*GATHER MEMVAR + REPL CONT WITH M.cont + REPL DENUMIRE WITH M.DENUMIRE + ELSE + WAIT WINDOWS 'CONTUL '+DEB+' NU ESTE INTRODUS IN PLANUL DE CONTURI' + ENDIF + +***** + ENDIF + SELE act + ENDIF +ENDSCAN +RETURN + +PROCEDURE VERDIFCRED +SELE act +DEB=' ' +SCAN + SCATTER MEMVAR + IF M.scc#DEB + DEB=M.scc + SELE BAL + SEEK DEB + IF ! FOUND() +*WAIT WINDOWS 'CONTUL '+DEB+' NU ESTE INTRODUS IN BALANTA' + WAIT WIND 'Se introduce in balanta contul'+DEB NOWAIT + SELE PLCONT +*LOCATE FOR LEFT(CIMP1,4)=LEFT(DEB,4) + LOCATE FOR ALLTRIM(CIMP1)=ALLTRIM(DEB) + IF FOUND() + SCATTER MEMVAR + m.cont=M.CIMP1 + m.DENUMIRE=m.cimp2 + SELE BAL + APPEND BLANK +*GATHER MEMVAR + REPL CONT WITH M.cont + REPL DENUMIRE WITH M.DENUMIRE + ELSE + WAIT WINDOWS 'CONTUL '+DEB+' NU ESTE INTRODUS IN PLANUL DE CONTURI' + ENDIF + ENDIF + SELE act + ENDIF + +ENDSCAN +RETURN + + + + +*___________________________________________________________________ +PROCEDURE refstocinloc &&REFSTOC + +IF !se_reface() + RETURN +ENDIF + + +SELE rull +M=3*RECCOUNT() +OP=CREA('PROGRESBAR') +OP.titlu.CAPTION='Refacere Stocuri' +OP.SHOW() +j=0 + +SELE inloc +*Set Order To Tag CODMAT2 +REPL ALL CANT WITH 0; +CANTE WITH 0 +SELE rull +SET ORDER TO TAG COD +SCAN + SCATTER MEMVAR + SELE W50 + SEEK M.COD + IF NOT FOUND() + SELE rull + IF FLOCK() + DELETE + ENDIF + UNLOCK + ENDIF + DO pr WITH j + SELE rull +ENDSCAN + +SELECT rull +IF FLOCK() + REPLACE ALL pretvtva WITH ROUND(pretv+tvav,0) FOR !EMPTY(pretv) AND !EMPTY(tvav) AND EMPTY(pretvtva) + REPLACE ALL DATAIN WITH dataact FOR CANT#0 AND EMPTY(DATAIN) + REPLACE ALL DATAOUT WITH dataact FOR CANTE#0 AND EMPTY(DATAOUT) +ENDIF +UNLOCK + +SELE inloc +REPL ALL CANT WITH 0; +CANTE WITH 0 + +*********** +&&gestiuni la pret de achizitie: +SELECT rull.* FROM rull WHERE rull.scd # '8039' AND gest in (sele DISTINCT gest FROM numegest WHERE nrg<>6 ) ; +INTO CURSOR rullachi + +SELECT inloc +SET ORDER TO TAG achi + +SELE rullachi +SCAN + m.cants=0 + m.CANT=0 + m.CANTE=0 + SCATTER MEMVAR + SELE inloc + SEEK STR(m.gest,3)+m.scd+STR(m.PRET,14,2)+m.CODMAT+m.DENUMIRE + IF FOUND() + REPL CANTE WITH CANTE+M.CANTE + REPL CANT WITH CANT+M.CANT + IF M.CANT#0 + REPLACE DATAIN WITH M.DATAIN + ELSE + REPLACE DATAOUT WITH M.DATAOUT + ENDIF + ELSE + APPEND BLANK + GATHER MEMV + ENDIF + + DO pr WITH j + SELE rullachi +ENDSCAN +USE IN rullachi + +&&gestiuni la pret de vanzare: +SELECT rull.* FROM rull WHERE gest in (sele DISTINCT gest FROM numegest WHERE nrg=6 ); +INTO CURSOR rullvanz + +SELECT inloc +SET ORDER TO TAG VANZ + +SELE rullvanz +SCAN + m.cants=0 + m.CANT=0 + m.CANTE=0 + SCATTER MEMVAR + SELE inloc + SEEK STR(m.gest,3)+m.scd+STR(m.PRET,14,2)+STR(m.pretvtva,14,2)+ m.CODMAT+m.DENUMIRE + +*!* Loca For GEST=M.GEST And SCD=M.SCD ; +*!* AND PRET=M.PRET AND PRETvtva=M.PRETvtva ; +*!* And Allt(CODMAT)=Allt(M.CODMAT) And Allt(DENUMIRE)=Allt(M.DENUMIRE) + IF FOUND() + REPL CANTE WITH CANTE+M.CANTE + REPL CANT WITH CANT+M.CANT + IF M.CANT#0 + REPLACE DATAIN WITH M.DATAIN + ELSE + REPLACE DATAOUT WITH M.DATAOUT + ENDIF + ELSE + APPEND BLANK + GATHER MEMV + ENDIF + + DO pr WITH j + SELE rullvanz +ENDSCAN +USE IN rullvanz + +OP.RELEASE +RETURN + + +*________________________________________________________________ +PROCEDURE refstoc &&refstint +LOCAL lp,ap +_SCREEN.MOUSEPOINTER=11 + +SET SAFETY OFF + +SELE calendar +LOCA FOR nl=m.nl AND an=m.an +SKIP -1 +IF BOF() + + dateA=dirgen+'\_alfa\an0000\date00' +ELSE + lp=nl + ap=an + dateA=calefirma+'\an'+ap+'\'+'date'+lp +ENDIF +dateb=calefirma+'\an'+m.an+'\'+'date'+M.nl + +SELE rull +SET FILTER TO + +SELE STOC +SET FILTER TO + +&&refacere fisier inlocuitor inloc +COPY FILE &dateA\STOC.* TO &loc\&nfscurt\tempo\inloc.* + +USE &loc\&nfscurt\tempo\inloc IN 0 ALIAS inloc EXCL +SELECT inloc +REPL ALL cants WITH cants+CANT-CANTE +DELE ALL FOR cants=0 +DELETE ALL FOR scd = '8039' +PACK + +SELECT inloc +INDEX ON STR(gest,3)+scd+STR(PRET,14,2)+ CODMAT+DENUMIRE TAG achi OF &loc\&nfscurt\tempo\inloc +INDEX ON STR(gest,3)+scd+STR(PRET,14,2)+STR(pretvtva,14,2)+ CODMAT+DENUMIRE TAG VANZ OF &loc\&nfscurt\tempo\inloc + + +DO refstocinloc &&REFSTOC + +SELECT inloc +ALTER TABLE inloc ADD COLUMN detoate c(175) +SET FILTER TO +INDEX ON detoate TAG detoate OF &loc\&nfscurt\tempo\inloc +SET ORDER TO TAG detoate +REPLACE ALL detoate WITH STR(gest,3)+scd+STR(PRET,14,2)+STR(pretvtva,14,2)+ CODMAT+DENUMIRE + +SELECT inloc +SET FILTER TO +TOTAL TO &loc\&nfscurt\tempo\inloctot ON detoate FIELDS CANT,CANTE,cants + + +USE &loc\&nfscurt\tempo\inloctot IN 0 ALIAS inloctot + +*DO suprapune WITH 'stoc','inloc' +SELECT STOC +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\inloctot +ENDIF +UNLOCK +USE IN inloc +USE IN inloctot + +SELECT STOC +SET ORDER TO TAG DENUMIRE + +_SCREEN.MOUSEPOINTER=0 +RETURN + + + + + + + +*________________________________________________________________ +PROCEDURE REFCumpAn && refcumpnouAN +LOCAL L,A +LOCAL M.BAZA, M.NE, M.TX + +L=M.nl +A=M.an + +SELE actan +M=3*RECCOUNT() +OP=CREA('PROGRESBAR') +OP.titlu.CAPTION='Refacere Total Cumparari' +OP.SHOW() +j=0 + +SELE CUMPAN +USE +SELE CUMP +USE +SELE act +USE +SELECT 0 +USE &datEAN\CUMPAN.DBF EXCLUSIVE ALIAS CUMP +ZAP +SELE actan +SET FILTER TO scc='401 ' OR scc='404 ' OR (scc='4428' AND scd='4426') +*SET FILTER TO SCC='401 ' OR SCC='404 ' OR SCC='4428' +*SET FILTER TO SCC='401 ' OR SCC='404 ' +STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +SCAN + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL MEMV + SELE CUMP + LOCA FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + IF !FOUND() + SELE CUMP + GO BOTTOM + APPE BLAN + GATH MEMV + ENDIF + DO pr WITH j + SELE actan +ENDSCAN +******* +SELE CUMP +SCAN + SCAT MEMV + SELE actan + STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA + SCAN FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + DO CASE + CASE scd='4426' + m.tvaM=M.tvaM+suma + + CASE scd#'4426' + m.totftvaM=M.totftvaM+(suma-neimpozab) + m.neimpozab=m.neimpozab+neimpozab + IF scd='635 ' +*M.TX=.T. + m.neimpozab=m.neimpozab+suma + m.totftvaM=m.totftvaM-suma + ENDIF + ENDCASE + + ENDSCAN + +*********** + + m.totctva=M.tvaM+M.totftvaM+M.neimpozab + SELE CUMP + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva + DO pr WITH j +ENDSCAN +SELE actan +SCAN FOR scd='408 ' + SCAT MEMV + SELE CUMP + LOCA FOR nract=m.nract AND NUME=m.NUME +*REPL TOTFTVAM WITH TOTFTVAM-TVAM + REPL totftvaM WITH ROUND(tvaM/(m.ctvam-1),0) + REPL totctva WITH totftvaM+tvaM+neimpozab + DO pr WITH j + SELE actan +ENDSCAN + +SELE CUMP +USE + +OP.RELEASE +*SELECT 0 +*USE &dateAN\cumpAN.dbf alias cumpan + +************DO RC1.PRG +m.an=A +m.nl=L +CLOSE DATABASE +DO TOTV.PRG +RETURN + + +*___________________________________________________________________________________________ +PROCEDURE refVANZAN +LOCAL L,A +LOCAL M.BAZA, M.NE, M.TX + +L=M.nl +A=M.an + +SELE actan +M=2*RECCOUNT() +OP=CREA('PROGRESBAR') +OP.titlu.CAPTION='Refacere Total Vanzari' +OP.SHOW() +j=0 + +SELE VANZAN +USE +SELE VANZ +USE +SELE CUMP +USE +SELE act +USE +SELECT 0 +USE &datEAN\VANZAN.DBF EXCLUSIVE ALIAS CUMP +ZAP +SELE actan +SET FILTER TO INLIST(scd,'411 ','461 ','4118') OR (scd='4428' AND scc='4427') OR (scd='635 ' AND scc='4427') +&&SET FILTER TO SCd='411 ' or (scd='4428' and scc='4427') +*OR (SCD='635 ' AND SCC='4427') +*SET FILTER TO SCD='411 ' or (scd='4428' and !inlist(left(scc,3),'371','408')) +STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +SCAN + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL MEMV + SELE CUMP + LOCA FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + IF !FOUND() + SELE CUMP + GO BOTTOM + APPE BLAN + GATH MEMV + ENDIF + DO pr WITH j + SELE actan +ENDSCAN +******* +SELE CUMP +SCAN + SCAT MEMV + SELE actan + STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA + SCAN FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + DO CASE + CASE scc='4427' + m.tvaM=M.tvaM+suma + + CASE scc#'4427' + m.totftvaM=M.totftvaM+(suma-neimpozab) + m.neimpozab=m.neimpozab+neimpozab + m.sumaval=m.sumaval+suma_2 + m.NUMEVAL=nume_4 + m.CURSSCHIMB=SUMA_3 + + + ENDCASE + + ENDSCAN + +*********** + + m.totctva=M.tvaM+M.totftvaM+M.neimpozab + SELE CUMP + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva + DO pr WITH j + SELE actan +ENDSCAN + +SELE CUMP +USE + +SELECT 0 +USE &datEAN\VANZAN.DBF ALIAS VANZAN + +OP.RELEASE +*********************DO RV1.PRG +m.an=A +m.nl=L +CLOSE DATABASE +DO TOTV.PRG +RETURN + +*-------------------------------------------------------------- + +*** REFACERE BALANTA SINTETICA CU PRECEDENTE +PROCEDURE REFBal && REFBalanta +LOCAL dateA + +IF !se_reface() + RETURN +ENDIF +SET SAFETY OFF + + +*** adaug in balanta curenta balanta din luna precedenta +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +IF FOUND() + SKIP -1 + IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla + ELSE + dateA=dirgen+'\_alfa\an0000\date00\' && 'Aceasta este prima luna deschisa!','' + ENDIF + DATE=calefirma+'\an'+m.an+'\date'+m.nl +ELSE + DO mesaj WITH 'Fisierul Calendar.dbf este defect!','' + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + + +SELE BAL +IF FLOCK() + DELE ALL + APPE FROM &dateA\BAL.DBF FOR !DELETED() + UNLOCK +ENDIF + + +*** verific daca am campurile de solduri la 1 ianuarie +llNuSold=.F. +IF TYPE('precdeb1')!="U" && am campurile precdeb1, deci trebuie sa completez soldul de la 1 ianuarie + llNuSold=.T. +ENDIF + + +*** caut prima balanta din anul curent care are campuri cu solduri de la 1 ianuarie +llgasit=.F. +lcBal1ian=calefirma+'\an'+m.an+'\date01\bal.dbf' +IF llNuSold + lnan=VAL(m.an) + + FOR i=1 TO 12 + SELECT calendar + LOCATE FOR VAL(an)=lnan AND VAL(nl)=i AND VAL(nl)!=VAL(m.nl) + IF FOUND() + lcBal1ian=calefirma+'\an'+calendar.an+'\date'+calendar.nl+'\bal.dbf' + IF FILE(lcBal1ian) + USE (lcBal1ian) IN 0 AGAIN SHARED ALIAS bal1ian + SELECT bal1ian + IF TYPE("precdeb1")!="U" && exxista campul precdeb1 in balanta selectata + USE IN bal1ian + llgasit=.T. + EXIT + ENDIF + USE IN bal1ian + ENDIF + ENDIF + ENDFOR +ENDIF + + + +*** daca am campul de sold la 1 ianuarie le preiau din prima balanta cu solduri la 1 ianuarie din anul respectiv +IF llNuSold + IF llgasit && daca am gasit prima balanta sintetica cu solduri la 1 ianuarie + + USE (lcBal1ian) IN 0 AGAIN SHARED ALIAS bal1ian + SELECT CONT,PRECDEB1,PRECCRED1 FROM bal1ian INTO CURSOR t1ian ORDER BY CONT + SELECT BAL + IF FLOCK() + REPLACE ALL PRECDEB1 WITH 0,PRECCRED1 WITH 0 + SCAN + lcCont=CONT + lnprecdeb1=PRECDEB1 + lnpreccred1=PRECCRED1 + + SELECT t1ian + LOCATE FOR CONT=lcCont + IF FOUND() + lnprecdeb1=PRECDEB1 + lnpreccred1=PRECCRED1 + ENDIF + + SELECT BAL + REPLACE PRECDEB1 WITH lnprecdeb1,PRECCRED1 WITH lnpreccred1 + ENDSCAN + UNLOCK IN BAL + ENDIF + USE IN bal1ian + USE IN t1ian + ENDIF + +ENDIF + + +SELE BAL +SET ORDER TO TAG CONT + +SELE BAL +IF FLOCK() + IF m.nl='01' + REPL ALL precdeb WITH 0,preccred WITH 0 + REPL ALL precdeb WITH SOLDDEB,preccred WITH SOLDCRED + IF llNuSold && AM CAMPURILE DE SOLDURI LA 1 IANUARIE + REPLACE ALL PRECDEB1 WITH SOLDDEB,PRECCRED1 WITH SOLDCRED + ENDIF + ELSE + + REPL ALL precdeb WITH 0, preccred WITH 0 + REPL ALL RULDEB WITH 0, RULCRED WITH 0 + REPL ALL precdeb WITH totdeb, preccred WITH totcred + ENDIF + UNLOCK +ENDIF + +DO REFBalanta +DO VERDIFBAL +DO CALCULEAZABALANTA + + +DO REFBALANA +RETURN + +*_______________________________________________________________________________________ + +*** REFACERE BALANTA ANALITICA CU PRECEDENTE*** +PROCEDURE REFBALANA && RefBalanta_ana +LOCAL dateA + +IF !se_reface() + RETURN +ENDIF + +SET SAFETY OFF + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' && 'Aceasta este prima luna deschisa!','' +ENDIF +DATE=calefirma+'\an'+m.an+'\date'+m.nl + + +*** caut bal si balana din prima luna din anul curent pt soldurile de la 1 ianuarie in caz ca nu gasesc in balanta precedenta +llgasit=.F. +lcBal1ian=calefirma+'\an'+m.an+'\date01\bal.dbf' +lnan=VAL(m.an) + +FOR i=1 TO 12 + SELECT calendar + LOCATE FOR VAL(an)=lnan AND VAL(nl)=i + IF FOUND() + lcBal1ian=calefirma+'\an'+calendar.an+'\date'+calendar.nl+'\balana.dbf' + IF FILE(lcBal1ian) + USE (lcBal1ian) IN 0 AGAIN SHARED ALIAS bal1ian + SELECT bal1ian + IF TYPE("precdeb1")!="U" && exxista campul precdeb1 in balanta selectata + USE IN bal1ian + llgasit=.T. + EXIT + ENDIF + USE IN bal1ian + ENDIF + ENDIF +ENDFOR + +SELE BALANA +IF FLOCK() + DELE ALL + IF FILE('&dateA\BALANA.DBF') + APPE FROM &dateA\BALANA.DBF FOR !DELETED() + ENDIF + + +*** verific daca am soldurile de la 1 ianuarie + llNuSold=.F. + STORE 0 TO lnprecdeb1,lnpreccred1 + IF existacamp('bal','precdeb1') +*!* CALCULATE sum(precdeb1),sum(preccred1) TO lnprecdeb1,lnpreccred1 +*!* +*!* IF lnprecdeb1=0 && nu am soldurile de la 1 ianuarie + llNuSold=.T. +*!* ENDIF + ENDIF + +*** Daca nu am soldurile de la 1 ianuarie dupa ce am facut append inseamna ca nu le am nici in balanta precedenta, +*** deci o sa le caut in prima balanta din anul respectiv + IF llNuSold + IF llgasit && daca am gasit prima balanta analitica + USE (lcBal1ian) IN 0 AGAIN SHARED ALIAS bal1ian + IF existacamp('bal1ian','precdeb1') AND existacamp('bal1ian','preccred1') + SELECT CONT,acont,PRECDEB1,PRECCRED1 FROM bal1ian INTO CURSOR t1ian ORDER BY CONT + SELECT BALANA + SCAN + lcCont=CONT + lcACont=acont + lnprecdeb1=PRECDEB1 + lnpreccred1=PRECCRED1 + + SELECT t1ian + LOCATE FOR CONT=lcCont AND acont=lcACont + IF FOUND() + lnprecdeb1=PRECDEB1 + lnpreccred1=PRECCRED1 + ENDIF + + SELECT BALANA + REPLACE PRECDEB1 WITH lnprecdeb1,PRECCRED1 WITH lnpreccred1 + ENDSCAN + USE IN bal1ian + USE IN t1ian + ENDIF + ENDIF + ENDIF + + + + SELE BALANA + SET ORDER TO TAG CONTACONT + + SELECT PLCONTANA + SCAN + SCATTER MEMV + SELECT BALANA + SEEK M.cont+M.acont + IF !FOUND() + APPEND BLANK + REPLACE CONT WITH M.cont, acont WITH M.acont, DENUMIRE WITH M.DENUMIRE + ENDIF + SELECT PLCONTANA + ENDSCAN + + SELECT DISTINCT scd AS CONT,ASCD AS acont ; + FROM act ; + WHERE !EMPTY(ASCD) AND LEFT(scd,4)+LEFT(ASCD,4) NOT IN ; + (SELE LEFT(CONT,4)+LEFT(acont,4) FROM BALANA) ; + INTO CURSOR tscd + + SELE BALANA + APPEND FROM DBF('tscd') + USE IN tscd + + SELECT DISTINCT scc AS CONT,ASCC AS acont ; + FROM act ; + WHERE !EMPTY(ASCC) AND LEFT(scc,4)+LEFT(ASCC,4) NOT IN ; + (SELE LEFT(CONT,4)+LEFT(acont,4) FROM BALANA) ; + INTO CURSOR tscc + + SELE BALANA + APPEND FROM DBF('tscc') + USE IN tscc + + IF m.nl='01' + REPL ALL precdeb WITH 0, preccred WITH 0 + REPL ALL precdeb WITH SOLDDEB, preccred WITH SOLDCRED + IF llNuSold && AM CAMPURILE DE SOLDURI LA 1 IANUARIE + REPLACE ALL PRECDEB1 WITH SOLDDEB,PRECCRED1 WITH SOLDCRED + ENDIF + + ELSE + + REPL ALL precdeb WITH 0, preccred WITH 0 + REPL ALL RULDEB WITH 0, RULCRED WITH 0 + REPL ALL precdeb WITH totdeb, preccred WITH totcred + ENDIF + + DO REFBALANTA_ANA +*DO VERDIFBAL_ANA + DO verif_balana + DO CALCULEAZABALANTA_ANA +ENDIF +UNLOCK IN BALANA +RETURN + +*______________________________________________________ + +PROCEDURE REFCasaVal && REFVALCASA +LOCAL ap,lp,D +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +USE &dateA\casvnume IN 0 SHARED ALIAS casvnumeP +IF TYPE('casvnumep.precdeb') # 'U' + SELECT nume_5, numeval, ; + precdeb + incasari as precdeb, preccred + plati as preccred, ; + precvaldeb + incasval as precvaldeb, precvalcre + platival as precvalcre ; + FROM casvnumeP ; + INTO CURSOR tprec ORDER BY nume_5 +ELSE + SELECT nume_5, numeval, incasari as precdeb, plati as preccred, incasval as precvaldeb, platival as precvalcre ; + FROM casvnumeP ; + INTO CURSOR tprec ORDER BY nume_5 +ENDIF + +SELE casaval +IF FLOCK() + DELETE ALL + m.DATAIREG={} + m.COD=-1 + m.INCASARI=0 + m.PLATI=0 + m.incasval=0 + m.platival=0 + m.scd='' + m.scc='' + m.CURSSCHIMB=0 + m.CURSBNR=0 + + SELE tprec + SCAN + SCATTER MEMVAR + m.INCASARI = M.precdeb-M.preccred + m.PLATI = 0 + m.INCASval = M.precvaldeb-M.precvalcre + m.PLATIval = 0 + m.casa = m.nume_5 + SELE casaval + GOTO BOTTOM + APPE BLANK + GATHER MEMVAR + SELE tprec + ENDSCAN + UNLOCK +ENDIF + +SELECT cod, dataireg, nume_5 as casa, scd, scc, suma_3 as cursschimb, nume_4 as numeval, ; + IIF(scd = '5314', suma, 00000000000000) as incasari, ; + IIF(scc = '5314', suma, 00000000000000) as plati, ; + IIF(scd = '5314', suma_2, 000000000000.00) as incasval, ; + IIF(scc = '5314', suma_2, 000000000000.00) as platival ; + FROM act WHERE scd = '5314' OR scc = '5314' ; + INTO CURSOR tact + +SELECT casaval +APPEND FROM DBF('tact') +USE IN tact + + +SELECT casvnume +IF FLOCK() + DELE ALL + APPEND FROM DBF('tprec') + +SELECT nume_5 as casaval, nume_4 as numeval, ; + sum(IIF(scd = '5314', suma, 00000000000000)) as incasari, ; + sum(IIF(scc = '5314', suma, 00000000000000)) as plati, ; + sum(IIF(scd = '5314', suma_2, 000000000000.00)) as incasval, ; + sum(IIF(scc = '5314', suma_2, 000000000000.00)) as platival ; + FROM act WHERE scd = '5314' OR scc = '5314' ; + INTO CURSOR tact; + GROUP BY 1 + + + SELECT tact + SCAN + SCATTER NAME ot + SELECT casvnume + LOCATE FOR ALLTRIM(nume_5) = ALLTRIM(ot.casaval) + IF !FOUND() + APPEND blank + REPLACE nume_5 WITH ot.casaval + REPLACE numeval WITH ot.numeval + ENDIF + REPLACE incasari WITH incasari + ot.incasari, plati WITH plati + ot.plati + REPLACE incasval WITH incasval + ot.incasval, platival WITH platival + ot.platival + SELECT tact + ENDSCAN + +UNLOCK +ENDIF + +IF USED('tact') + USE IN tact +ENDIF +USE IN tprec +USE IN casvnumeP + + +*!* SELE CASAVAL +*!* SET ORDER TO TAG COD +*!* IF FLOCK() +*!* DELE ALL + +*!* SELE CASVNUME +*!* USE + +*!* IF !FILE('&DATEA\CASVNUME.DBF') +*!* COPY FILE &dirgen\_alfa\an0000\date00\CASVNUME.* TO &dateA\CASVNUME.* +*!* ENDIF +*!* SELE 0 +*!* USE &dateA\CASVNUME + +*!* m.DATAIREG={} +*!* m.COD=-1 +*!* m.INCASARI=0 +*!* m.PLATI=0 +*!* m.incasval=0 +*!* m.platival=0 +*!* m.scd='' +*!* m.scc='' +*!* m.CURSSCHIMB=0 +*!* m.CURSBNR=0 + +*!* &&REFACERE SOLDURI IN CASAVAL DUPA CASVNUME DIN LUNA PRECEDENTA======================= +*!* SELE CASVNUME +*!* SCAN +*!* SCATTER MEMVAR +*!* m.CASA=m.nume_5 +*!* SELE CASAVAL +*!* APPE BLANK +*!* m.INCASARI=M.INCASARI-M.PLATI +*!* m.incasval=M.incasval-M.platival +*!* m.PLATI=0 +*!* m.platival=0 +*!* GATHER MEMVAR +*!* SELE CASVNUME +*!* ENDSCAN + +*!* SELE CASVNUME +*!* USE + +*!* &&REFACERE SUME IN CASAVAL DUPA ACT====================== +*!* &&IN DEB====================== +*!* SELE act +*!* SCAN FOR scd='5314' +*!* SCATTER MEMVAR +*!* SELE CASAVAL +*!* m.CASA=M.nume_5 +*!* m.INCASARI=M.suma +*!* m.incasval=M.suma_2 +*!* m.CURSSCHIMB=M.SUMA_3 +*!* m.SBNR=SUBSTR(M.EXPLICATIA,8,14) +*!* m.CURSBNR=VAL(M.SBNR) +*!* m.PLATI=0 +*!* m.platival=0 +*!* m.NUMEVAL=m.nume_4 +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN&& +*!* &&IN CRED======================= +*!* SELE act +*!* SCAN FOR scc='5314' +*!* SCATTER MEMVAR +*!* SELE CASAVAL +*!* m.CASA=M.nume_5 +*!* m.PLATI=M.suma +*!* m.platival=M.suma_2 +*!* m.CURSSCHIMB=M.SUMA_3 +*!* m.SBNR=SUBSTR(M.EXPLICATIA,8,14) +*!* m.CURSBNR=VAL(M.SBNR) +*!* m.INCASARI=0 +*!* m.incasval=0 +*!* m.NUMEVAL=m.nume_4 +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN +*!* ENDIF +*!* &&REFACERE CASVNUME DUPA CASAVAL=================== +*!* SELE 0 +*!* USE &DATE\CASVNUME +*!* &&& exclusive +*!* &&&zap +*!* IF FLOCK() +*!* DELE ALL +*!* &&NUMELE CASELOR=========== +*!* SELE CASAVAL +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE CASVNUME +*!* LOCA FOR nume_5=M.CASA +*!* IF NOT FOUND() +*!* GOTO BOTTOM +*!* APPE BLANK +*!* REPL nume_5 WITH M.CASA +*!* ENDIF +*!* REPL NUMEVAL WITH m.NUMEVAL +*!* SELE CASAVAL +*!* ENDSCAN +*!* &&VALORILE=============== +*!* SELE CASVNUME +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE CASAVAL +*!* SUM INCASARI,PLATI,incasval,platival TO M.INCASARI,M.PLATI,M.incasval,M.platival FOR ALLT(CASA)=ALLT(M.nume_5) +*!* IF EMPTY(ALLT(M.nume_5)) +*!* SUM INCASARI,PLATI,incasval,platival TO M.INCASARI,M.PLATI,M.incasval,M.platival FOR EMPTY(ALLT(CASA)) +*!* ENDIF +*!* SELE CASVNUME +*!* REPL INCASARI WITH M.INCASARI +*!* REPL PLATI WITH M.PLATI +*!* REPL incasval WITH M.incasval +*!* REPL platival WITH M.platival +*!* SELE CASVNUME +*!* ENDSCAN +*!* ENDIF +*!* UNLOCK IN CASAVAL +*!* UNLOCK IN CASVNUME +SELE CASAVAL +SET ORDER TO TAG DATAIREG +RETURN + + + +***____________________________________________________ +PROCEDURE CURATARE &&CURATARE INREGISTRARI STERSE +DO CURATARE1 +ON ERROR +RETURN + +*______________________ +PROCEDURE CURATARE1 +SELECT REFACERI +SCAN + LcFisier=ALLTRIM(tabel) + DO pack_fisier WITH LcFisier + SELECT REFACERI +ENDSCAN + +DO pack_fisier WITH 'BALANA' +DO pack_fisier WITH 'BALANTA_PARTENER' + +RETURN + +*___________________________ +*** INCEPUT PROCEDURA PACK_FISIER +PROCEDURE pack_fisier +PARAM numefis + +SELE &numefis +USE +SELE 0 + +lcOldError=ON("error") +ON ERROR DO daca_ruleaza1 +USE &DATE\&numefis EXCL ALIAS &numefis +PACK +SELE &numefis +USE + +DO des WITH numefis +ON ERROR &lcOldError +ENDPROC +*** SFARSIT PROCEDURA PACK_FISIER + +*_______________________ +PROC daca_ruleaza1 +DO daca_ruleaza +RETURN TO CURATARE + +*_______________________ +PROC daca_ruleaza +DO mesajmare WITH ' Inainte de a executa aceasta operatiune trebuie sa va asigurati ca programul nu mai ruleaza pe alte statii din retea.'+; ++SPACE(50)+'Inchideti programele CONTAFIN deschise pe toate celelalte statii si apoi reveniti.' +semafor1=.T. +RETURN +RETURN + + + + + + + +*_________________________________________ +PROCEDURE REFCumplun +LOCAL nla,nlb,ana,anb,cond,cond1 + +IF !se_reface() + RETURN +ENDIF + + +cond='(year(dataireg)0 + SCAT MEMV + SELE cumplun + LOCA FOR nract=m.nract AND NUME=m.NUME +*REPL TOTFTVAM WITH TOTFTVAM-TVAM+neimpozab + REPL totftvaM WITH totftvaM-M.suma + REPL neimpozab WITH M.suma + + REPL totctva WITH totftvaM+tvaM+neimpozab + SELE act + ENDSCAN +*************BILETE MASA********* + SELE act + SCAN FOR scd='5328' AND LEFT(EXPLICATIA,7)='TICHETE' AND neimpozab=0 + SCAT MEMV + SELE cumplun + LOCA FOR nract=m.nract AND NUME=m.NUME +* BROWSE +* SELECT cumplun +*REPL TOTFTVAM WITH TOTFTVAM-TVAM+neimpozab + REPL totftvaM WITH totftvaM-M.suma + REPL neimpozab WITH M.suma + + REPL totctva WITH totftvaM+tvaM+neimpozab +* BROWSE + SELE act + ENDSCAN +************* + SELE act + SET FILTER TO +*SCAN FOR SCc='4428' and LEFT(scd,3)='371' +*SCAT MEMV +*SELE cumplun +*loca for nract=m.nract and nume=m.nume + +*if found() +*m.neimpozab=totftvam*(-1) +*REPL TOTFTVAM WITH totftvam+m.neimpozab +*REPL neimpozab WITH m.neimpozab +*REPL TOTCTVA WITH TOTFTVAM+TVAM+neimpozab +*endif +*SELE act +*ENDSCAN +*endif + + SELE cumplun + SET FILTER TO + GO TOP +*BROW + +&&ca in rc1&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + SELE cumplun + REPL ALL achitat WITH 0 FOR !&cond + + SELE act + SET ORDER TO TAG PERECHE +*Set Filter To (ACT.SCD='401 ' Or ACT.SCD='404 ') And PERECHE#0 + SET FILTER TO act.scd='401 ' AND PERECHE#0 + + SELE act + GO TOP + DO WHILE !EOF() + m.achitat=0 + m.achitatval=0 + SCAT MEMV + DO WHILE PERECHE=M.PERECHE AND ALLTR(NUME)=ALLT(M.NUME) AND ASCD=m.ASCD + m.achitat=m.achitat+suma + m.achitatval=m.achitatval+suma_2 + SKIP + ENDDO + SELE cumplun + LOCA FOR nract=m.PERECHE AND ALLTR(NUME)=ALLT(M.NUME) AND acont=m.ASCD + IF !FOUND() + LOCATE FOR nract=m.PERECHE AND ALLT(NUME)=ALLT(M.NUME) + ENDIF + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH m.achitatval+achitatval + ENDIF +*SET FILTER TO ACHITAT=0 + SELE act + ENDDO + + +ENDIF +UNLOCK IN cumplun +SELE cumplun +SET FILTER TO +SELECT act +SET FILTER TO +RETURN + + +*------------------------------------------------------------------------------------ + +PROCEDURE REFvanzlun +LOCAL nla,nlb,ana,anb,cond,cond1 +STORE 0 TO M.suma_2, M.achitatval,M.suma,M.sumaval,M.achitat + + +IF !se_reface() + RETURN +ENDIF + +*** actualizez act cu pereche si pereche2 daca am optiunea refac=.T. +DO refac_act WITH "411" IN actualizare_act.PRG + +cond='(year(dataireg)'4118') AND !(LEFT(scd,3)='411' AND scc='4427') AND id_set != 90501 AND ; + NUME+'/'+DTOC(dataact)+'/'+STR(nract,14)+'/'+ASCD NOT IN (SELE NUME+'/'+DTOC(dataact)+'/'+STR(nract,14)+'/'+ACONT FROM vanzlun) ; + INTO CURSOR tact ; + GROUP BY NUME,dataact,nract,ASCD + + + lnrec = _TALLY + SELECT vanzlun + APPEND FROM DBF('tact') + USE IN tact + + + +************************************************************************************************* + lcfis = ALLTRIM(loc) + [\] + ALLTRIM(nfscurt) + [\tempo\tact.dbf] + + + SELE NUME,nract,dataact,ASCD, ; + SUM(suma) AS totctva, SUM(suma_2) AS sumaval ; + FROM act ; + WHERE LEFT(scd,3)='411' AND scd<>'4118' ; + INTO TABLE (lcfis) ; + GROUP BY NUME,dataact,nract,ASCD ; + ORDER BY NUME,dataact,nract,ASCD + + SELECT tact + INDEX ON NUME+[\]+DTOC(dataact)+[\]+STR(nract)+[\]+ASCD TAG ordine + SET ORDER TO ordine + + SELECT vanzlun + SET FILTER TO !&cond + SCAN + lcFactura = NUME+[\]+DTOC(dataact)+[\]+STR(nract)+[\]+acont + lnSumaVal=sumaval + lnTotctva = totctva + + SELECT tact + IF SEEK(lcFactura) + + lnTotctva = lnTotctva + totctva + lnSumaVal = lnSumaVal + sumaval + SELECT vanzlun + REPL totctva WITH lnTotctva, sumaval WITH lnSumaVal + ENDIF + SELECT vanzlun + + ENDSCAN + + USE IN tact +************************************************************************************************* + + + SELE act + SET FILTER TO + SCAN FOR INLIST(LEFT(scd,3),'667','622') AND LEFT(scc,3)='411' && 622 la 27 august 2004 Marius (Conpress - comision agent vanzare) + SCAT MEMV + SELE vanzlun + LOCA FOR nract=m.nract AND NUME=m.NUME AND acont=m.ASCC + + IF FOUND() + REPLACE totctva WITH totctva - m.suma + ENDIF + SELE act + ENDSCAN + + + lModifAct=.T. +******** + SELE vanzlun + SET FILTER TO + + REPL ALL achitat WITH 0 FOR !&cond + + +&& id_set = 90501 diferente de curs provenite din actualizarea facturilor la 31.12.NN + SELECT nract, NUME, ASCC AS acont, pereche2, ; + SUM(suma) AS achitat, SUM(suma_2) AS achitatval ; + FROM act WHERE LEFT(scc,3)='411' AND scc<>'4118' AND pereche2#0 AND id_set != 90501; + GROUP BY pereche2, NUME, ASCC ; + INTO CURSOR t411 + + SELECT t411 + SCAN + SCATTER NAME o411 + SELECT vanzlun + LOCATE FOR nract=o411.pereche2 AND ALLT(NUME)=ALLTRIM(o411.NUME) AND acont=o411.acont + IF !FOUND() + LOCATE FOR nract=o411.pereche2 AND ALLTRIM(NUME)=ALLTRIM(o411.NUME) + ENDIF + + IF FOUND() + REPLACE achitat WITH achitat + o411.achitat + REPLACE achitatval WITH achitatval + o411.achitatval + ENDIF + SELECT t411 + ENDSCAN + + RELEASE o411 + USE IN t411 + + + + +*** actualizarea soldurilor facturilor in valuta la 31.12.NN + SELECT nract, NUME, IIF(LEFT(scd,3)='411',ASCD,ASCC) AS acont, pereche2, ; + IIF(LEFT(scd,3)='411',suma,(-1)*suma) AS diferenta, SUMA_3 AS CURSSCHIMB ; + FROM act WHERE (LEFT(scc,3)='411' OR LEFT(scd,3)='411') AND scc<>'4118' AND pereche2#0 AND id_set = 90501; + INTO CURSOR tactualizare + + SELECT tactualizare + SCAN + SCATTER NAME lo501 + SELECT vanzlun + LOCATE FOR nract = lo501.pereche2 AND ALLT(NUME)=ALLTRIM(lo501.NUME) AND acont=lo501.acont + IF FOUND() + REPLACE totctva WITH totctva + lo501.diferenta, CURSSCHIMB WITH lo501.CURSSCHIMB + ENDIF + SELECT tactualizare + ENDSCAN + RELEASE lo501 + USE IN tactualizare + + + SELE act + SET FILT TO +******* +&&pt regularizare clienti creditori +&& and id_set#10421 + + + SELE DISTINCT COD,pereche2 FROM &DATE\act WHERE scd='419 ' AND LEFT(scc,3)='411' INTO CURSOR c419 ORDER BY COD &&pt regularizare clienti creditori + SELE act + SET FILT TO + SELE c419 + SCAN + SCAT FIEL COD,pereche2 MEMV + SELE act + LOCA FOR COD=m.COD AND pereche2=m.pereche2 AND LEFT(scd,3)='411' AND scd#'4118' AND scc='4427' + IF !FOUND() + LOOP + ENDIF + SCAT MEMV + + SELE vanzlun + LOCA FOR NUME=m.NUME AND nract=m.pereche2 AND acont=m.ASCD + IF !FOUND() + LOCA FOR NUME=m.NUME AND nract=m.pereche2 + ENDIF + IF FOUND() + REPL achitat WITH achitat+ABS(m.suma) + ENDIF + SELE c419 + ENDSCAN + USE IN c419 +&&pt regularizare clienti creditori +ENDIF +UNLOCK IN vanzlun +SELE vanzlun +SET FILTER TO +RETURN + +*_________________________________________ +PROCEDURE REFobinvent +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +SELECT rull +SCAN FOR scd = '8039' AND EMPTY(nresp) + lnR = RECNO() + lnC = COD + LOCATE FOR COD = lnC AND !EMPTY(nresp) + lcResp = nresp + IF FOUND() + GOTO lnR + REPLACE nresp WITH lcResp + ELSE + GOTO lnR + ENDIF + + SELECT rull +ENDSCAN + + +SELE obinvent +IF FLOCK() + DELE ALL + APPEND FROM &DATE\rull FOR scd = '8039' +ENDIF +UNLOCK IN obinvent + +SELE rull +SET FILTER TO + +SELE STOC_obinv +SET FILTER TO + + +&&refacere stoc obiecte de inventar aflate in folosinta +lcfis = dateA+'\stoc_obinv.Dbf' +lcStoc = dateA+'\stoc.Dbf' + +IF FILE(lcfis) + COPY FILE &dateA\STOC_obinv.* TO &loc\&nfscurt\tempo\inloc.* + USE &loc\&nfscurt\tempo\inloc IN 0 ALIAS inloc EXCL +ELSE + COPY FILE &dirgen\_alfa\an0000\date00\STOC_obinv.* TO &loc\&nfscurt\tempo\inloc.* + USE &loc\&nfscurt\tempo\inloc IN 0 ALIAS inloc EXCL + SELECT inloc + APPEND FROM &lcStoc FOR scd = '8039' +ENDIF + + +SELECT inloc +REPL ALL cants WITH cants+CANT-CANTE +DELE ALL FOR cants=0 +PACK +REPL ALL CANT WITH 0, CANTE WITH 0 + +SELECT inloc +INDEX ON STR(PRET,14,2)+ nresp+ CODMAT + DENUMIRE TAG achi OF &loc\&nfscurt\tempo\inloc + +SELECT rull +SCAN FOR scd = '8039' + SCATTER NAME orull + SELECT inloc + SEEK STR(orull.PRET,14,2)+ orull.nresp+ orull.CODMAT+orull.DENUMIRE +*LOCATE FOR GEST = orull.gest AND PRET = orull.pret AND CODMAT = orull.codmat AND DENUMIRE = orull.denumire AND nresp = orull.nresp + IF FOUND() + IF FLOCK() + REPLACE CANT WITH CANT + orull.CANT, CANTE WITH CANTE + orull.CANTE, DATAOUT WITH orull.DATAOUT + ENDIF + UNLOCK + ELSE + APPEND BLANK + GATHER NAME orull + ENDIF +ENDSCAN + +SELECT inloc +ALTER TABLE inloc ADD COLUMN detoate c(175) +SET FILTER TO +INDEX ON detoate TAG detoate OF &loc\&nfscurt\tempo\inloc +SET ORDER TO TAG detoate +REPLACE ALL detoate WITH STR(PRET,14,2)+ nresp+ CODMAT+DENUMIRE + +SELECT inloc +SET FILTER TO +TOTAL TO &loc\&nfscurt\tempo\inloctot ON detoate FIELDS CANT,CANTE,cants + + +USE &loc\&nfscurt\tempo\inloctot IN 0 ALIAS inloctot + +SELECT STOC_obinv +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\inloctot +ENDIF +UNLOCK +USE IN inloc +USE IN inloctot + +SELECT STOC_obinv +SET ORDER TO TAG DENUMIRE + +RETURN + +*_________________________________________ + + +PROCEDURE REFrespons +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +SELE respons +IF FLOCK() + DELE ALL + + APPEND FROM &dateA\respons.DBF FOR !DELETED() AND !EMPTY(nume_2) + + SELE DISTINCT act.nresp FROM act INTO CURSOR ttt + SELE ttt + SCAN + SCAT MEMV + SELE respons + LOCA FOR ALLT(m.nresp)=ALLT(nume_2) + IF !FOUND() + APPE BLAN + REPL nume_2 WITH m.nresp + ENDIF + SELE ttt + ENDSCAN + +ENDIF +UNLOCK IN respons +RETURN + + + + +*----------------------------------------- +PROCEDURE refavans409 +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +DO refac_act WITH "409" IN actualizare_act.PRG + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +IF !FILE('&dateA\avans409.dbf') + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +SELE avans409 +IF FLOCK() + DELE ALL + APPEND FROM &dateA\avans409.DBF FOR achitat<>facturat OR achitatval<>factval + SELE nract,dataact,COD,NUME,fdoc,suma AS achitat,suma_2 AS achitatval,SUMA_3 AS CURSSCHIMB,; + nume_4 AS NUMEVAL,DATAIREG,datascad,m.nl AS nl,m.an AS an, scd as cont, ASCD AS acont ; + FROM act WHERE LEFT(scd, 3)='409' INTO CURSOR aaa ORDER BY dataact + + SELE avans409 + APPE FROM DBF('aaa') + + SELE act + SCAN FOR LEFT(scc,3) = '409' + SCAT MEMV + SELE avans409 + LOCA FOR NUME=m.NUME AND nract=m.pereche2 AND cont = m.scc and acont=m.ASCC &&And dataact=DAT + IF !FOUND() + LOCA FOR NUME=m.NUME AND nract=m.pereche2 + ENDIF + IF FOUND() + REPL facturat WITH facturat+m.suma + REPL factval WITH factval+m.suma_2 + ENDIF + SELE act + ENDSCAN + + +ENDIF +UNLOCK IN avans409 + +RETURN + +*----------------------------------------- +PROCEDURE refavans419 +LOCAL nla,nlb,ana,anb + + + +IF !se_reface() + RETURN +ENDIF + +DO refac_act WITH "419" IN actualizare_act.PRG + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +IF !FILE('&dateA\avans419.dbf') + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + + +SELE avans419 +IF FLOCK() + DELE ALL + APPEND FROM &dateA\avans419.DBF FOR achitat<>facturat OR achitatval<>factval + + SELE nract,dataact,COD,NUME,fdoc,suma AS achitat,suma_2 AS achitatval,SUMA_3 AS CURSSCHIMB,; + nume_4 AS NUMEVAL,DATAIREG,datascad,m.nl AS nl,m.an AS an, ASCC AS acont, scc as cont ; + FROM act WHERE LEFT(scc, 3) = '419' INTO CURSOR aaa ORDER BY dataact + + SELE avans419 + APPE FROM DBF('aaa') + + SELE act + SCAN FOR ALLTRIM(scd)='419' + SCAT MEMV + SELE avans419 + LOCA FOR NUME=m.NUME AND nract=m.PERECHE AND acont=m.ASCD &&And dataact=DAT + IF !FOUND() + LOCA FOR NUME=m.NUME AND nract=m.PERECHE + ENDIF + IF FOUND() + REPL facturat WITH facturat+m.suma + REPL factval WITH factval+m.suma_2 + ENDIF + SELE act + ENDSCAN + + +ENDIF +UNLOCK IN avans419 +RETURN + + + + + + +*-------------------------------------------------------------------------------------- +PROCEDURE completeaza_analitic +SET SAFETY OFF +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +IF !FILE('&datea\analitic.dbf') + COPY FILE _alfa\an0000\date00\analitic.* TO &dateA\analitic.* +ENDIF + +WAIT WINDOW 'Se calculeaza precedentele conturilor bifate...' NOWAIT +&& precedente pentru toate conturile recalculabile------------------- +USE &dateA\analitic.DBF IN 0 ALIAS analitica +SELECT analitica +*BROW +IF existacimp('analitica','totdeb') + SELECT CONT,NUME,totdeb AS precdeb,totcred AS preccred FROM analitica ; + WHERE CONT IN (SELECT CONT FROM f_analitic WHERE f_analitic.ales); + INTO CURSOR rrr +ELSE + SELECT CONT,NUME,DEB AS precdeb,cred AS preccred FROM analitica INTO CURSOR rrr +ENDIF +USE IN analitica +SELECT rrr +*BROW + +WAIT WINDOW 'Se readuc precedentele conturilor NEbifate...' NOWAIT +* conturi nerecalculabile------------------------ +SELECT * FROM analitic ; +WHERE CONT NOT IN (SELECT CONT FROM f_analitic WHERE f_analitic.ales); +INTO CURSOR sss + + + +*aduc in ana-------------------- +SELE analitic +COPY STRUCTURE TO &loc\&nfscurt\tempo\ana WITH CDX + +USE &loc\&nfscurt\tempo\ana IN 0 EXCL ALIAS ana ORDER TAG cn +SELE ana +APPEND FROM DBF('rrr') +APPEND FROM DBF('sss') + +USE IN rrr +USE IN sss + +WAIT WINDOW 'Se calculeaza rulajele...' NOWAIT + +SELECT * FROM act WHERE ; +scd IN (SELECT CONT FROM f_analitic WHERE f_analitic.ales) OR ; +scc IN (SELECT CONT FROM f_analitic WHERE f_analitic.ales); +INTO CURSOR aaa + +SELECT A.*,b.NUME AS numescd FROM aaa A FULL JOIN f_analitic b; +ON A.scd=b.CONT AND b.ales INTO CURSOR bbb + +SELECT A.*,b.NUME AS numescc FROM bbb A FULL JOIN f_analitic b; +ON A.scc=b.CONT AND b.ales INTO CURSOR actmic ORDER BY DATAIREG + +SELECT actmic +*brow + +*refacere ana--- +SELE actmic +*!* Set Filter To +*!* Set Order To DATAIREG +SCAN FOR !ISNULL(COD) + SCAT MEMV + + IF !ISNULL(numescd) + T='m.nume='+numescd + &T +* WAIT WINDOW t +* WAIT WINDOW m.nume + WAIT WINDOW 'Data: '+DTOC(DATAIREG) NOWAIT + SELE ana + SEEK m.scd+m.NUME + + IF FOUND() + REPL DEB WITH DEB+m.suma + ELSE + m.cont=m.scd + m.DEB=m.suma + m.cred=0 + APPE BLAN + GATH FIEL CONT,DEB,NUME MEMV + ENDIF + ENDIF + + SELE actmic + IF !ISNULL(numescc) + T='m.nume='+numescc + &T + SELE ana + SEEK m.scc+m.NUME + IF FOUND() + REPL cred WITH cred+m.suma + ELSE + m.cont=m.scc + m.cred=m.suma + m.DEB=0 + APPE BLAN + GATH FIEL CONT,cred,NUME MEMV + ENDIF + ENDIF + SELE actmic +ENDSCAN +SELE ana +DELE FOR EMPTY(CONT) +IF existacimp('ana','totdeb') + REPLACE ALL totdeb WITH DEB+precdeb,totcred WITH preccred+cred +ENDIF +PACK +*din ana in analitic----- +WAIT WINDOW 'Se salveaza datele...' NOWAIT +DO suprapune WITH 'analitic','ana' +SELECT analitic +SET ORDER TO TAG NUME + +USE IN ana + +RETURN + + + +*------------------------------------------------------------------------------- +PROCEDURE suprapune +PARAMETERS DEST,sursa +LOCAL R +R=0 +**golire +SELECT &DEST +SCATTER MEMVAR BLANK +SCAN + GATHER MEMV +ENDSCAN + +SELECT &DEST +SET ORDER TO +ON ERROR APPE BLAN +GOTO 1 +*BROWSE TITLE 'DEST' +IF FLOCK() + RECALL ALL + + SELECT &sursa + SET ORDER TO +*BROWSE TITLE 'SURSA' + SCAN + R=RECNO() + SCATTER MEMV + SELECT &DEST +*SKIP +*!* If Eof() +*!* Append Blank +*!* ELSE + ON ERROR APPE BLAN + GOTO R +*!* ENDIF + GATHER MEMV + SELECT &sursa + ENDSCAN + + SELECT &DEST + R=RECNO() + DELETE FOR RECNO()>R + +ENDIF +UNLOCK IN &DEST + +RETURN + + + + +*-------------------------------------------------------------------------------------------------------------- +FUNCTION se_reface +LOCAL SE,PRIMALUNA,ACTGOL +SE=.T. +STORE .F. TO PRIMALUNA,ACTGOL + +&&E PRIMA LUNA? +SELECT calendar +GO TOP +IF an=M.an AND nl=M.nl + PRIMALUNA=.T. +ENDIF +SELECT * FROM act INTO CURSOR bbb +IF _TALLY<3 + ACTGOL=.T. +ENDIF + +buton=1 +IF PRIMALUNA AND !ACTGOL + OTM=CREA('TEXTMARER') + OTM.label2.CAPTION='Aceasta este prima luna deschisa. Prin refacere se sterg toate acele date de initializare inscrise'+; + ' manual direct in fisiere si carora nu le corespund inregistrari in registrul jurnal. Doriti ca totusi sa execute refacerea?' + OTM.SHOW(1) + IF buton=2 + RETURN .F. + ENDIF +ENDIF + +SE=!(PRIMALUNA AND ACTGOL) +IF !SE + DO mesaj WITH 'Aceasta este prima luna iar registrul jurnal este gol.','Refacerea nu se executa!' +ENDIF +RETURN SE + + + + + + +*_________________________________________ +PROCEDURE REFcredlun +LOCAL nla,nlb,ana,anb,cond,cond1 + +IF !se_reface() + RETURN +ENDIF + + +cond='(year(dataireg)10000) + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH achitatval+m.achitatval + ENDIF + SELE act + ENDDO + +ENDIF + + +SELE act +SET FILT TO + +UNLOCK IN deblun +SELE deblun +SET FILTER TO +RETURN + + +*---------------------------------------------------------------------------------------------- +PROCEDURE refchavans +LOCAL nla,nlb,ana,anb,cond,cond1 +STORE 0 TO M.suma_2, M.achitatval,M.suma,M.sumaval,M.achitat + + +IF !se_reface() + RETURN +ENDIF + +DO refac_act WITH "471" IN actualizare_act.PRG + +cond='(year(dataireg)10000) + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH achitatval+m.achitatval + ENDIF +* SET FILTER TO ACHITAT=0 + SELE act + ENDDO + +ENDIF + +UNLOCK IN vanzlu4118 +SELE vanzlu4118 +SET FILTER TO +SELECT act +SET FILTER TO +RETURN + + + +*_______________________________________ +PROCEDURE CALCULEAZABALANTA +SELECT BAL +IF FLOCK() + REPLACE ALL totdeb WITH RULDEB+precdeb; + totcred WITH RULCRED+preccred +ENDIF +UNLOCK +SCAN + IF FLOCK() + IF totdeb-totcred>0 + REPLACE SOLDDEB WITH totdeb-totcred; + SOLDCRED WITH 0 + ELSE + REPLACE SOLDCRED WITH totcred-totdeb; + SOLDDEB WITH 0 + ENDIF + ENDIF + UNLOCK +ENDSCAN +RETURN + +*_________________________________________ + +PROCEDURE RefAna418 +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\ANA418.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'ANA418.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\ANA418.DBF IN 0 ALIAS ANA418U + +SELECT ANA418U + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('ANA418u.totdeb') = 'U' + SELECT NUME,COD_FISCAL, productie AS precdeb,incasat AS preccred FROM ANA418U INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + productie, totcred WITH preccred + incasat, totvaldeb WITH precvaldeb + prodval, totvalcre WITH precvalcre + incasval +*REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('ANA418u.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(PRECdeb + productie) AS precdeb, SUM(preccred + incasat) AS preccred, ; + SUM(precvaldeb + prodval) AS precvaldeb, SUM(precvalcre + incasval) AS precvalcre ; + FROM ANA418U INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(PRECdeb + productie) AS precdeb, SUM(preccred + incasat) AS preccred, ; + SUM(precvaldeb + prodval) AS precvaldeb, SUM(precvalcre + incasval) AS precvalcre ; + FROM ANA418U INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN ANA418U + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '418', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '418', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '418', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '418', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '418', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('418',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t418 GROUP BY 1, 2, 3 + +SELECT t418 +SCAN + SCATTER NAME o418 + SELECT rcli + SEEK LEFT(o418.NUME,30) + o418.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o418.COD_FISCAL + ENDIF + ELSE + SEEK LEFT(o418.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o418.acont + ELSE + APPEND BLANK + GATHER NAME o418 + ENDIF + ENDIF + REPLACE productie WITH productie + o418.debit, incasat WITH incasat + o418.credit, prodval WITH prodval + o418.valdebit, incasval WITH incasval + o418.valcredit + + SELECT t418 +ENDSCAN +RELEASE o418 +USE IN t418 + +SELECT rcli +REPLACE ALL totdeb WITH precdeb+productie,totcred WITH preccred+incasat &&,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb+prodval,totvalcre WITH precvalcre+incasval &&,TOTAVANSV WITH PRECAVANSV+AVANSVAL + +SELECT ANA418 +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +SELECT ANA418 +SET ORDER TO TAG NANA +RETURN + + +*_________________________________________ +PROCEDURE RefFact418 +LOCAL nla,nlb,ana,anb,cond,cond1 +STORE 0 TO M.suma_2, M.achitatval,M.suma,M.sumaval,M.achitat + + +IF !se_reface() + RETURN +ENDIF + +DO refac_act WITH "418" IN actualizare_act.PRG + +cond='(year(dataireg)10000) + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH achitatval+m.achitatval + ENDIF +* SET FILTER TO ACHITAT=0 + SELE act + ENDDO + +ENDIF +UNLOCK IN Fact418 +SELECT act +SET FILTER TO +SELE Fact418 +SET FILTER TO +RETURN + + +*---------------------------------------------------------------------------------------------- +PROCEDURE REFVNAvans && refVENITavans +LOCAL nla,ana,anb,cond,cond1,dateA +*Store 0 To M.SUMA_2, M.achitatval,M.SUMA,M.sumaval,M.achitat + + +IF !se_reface() + RETURN +ENDIF + +cond='(year(dataireg)10000) + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH achitatval+m.achitatval + REPLACE nume_4 WITH m.EXPLICATIA + ENDIF + SELE act + ENDDO + + +ENDIF + + +SELE act +SET FILT TO + +UNLOCK IN ACHILUN +SELE ACHILUN +SET FILTER TO +RETURN + +*___________________________________________________________________________ + +PROCEDURE REFdividende +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\dividende.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'dividende.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\dividende.DBF IN 0 ALIAS dividendeU + +SELECT dividendeU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('dividendeu.totdeb') = 'U' + SELECT NUME,COD_FISCAL, LUAT AS precdeb, DAT AS preccred FROM dividendeU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit, totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit +*REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('dividendeu.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM dividendeU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM dividendeU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN dividendeU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '457', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '457', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '457', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '457', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '457', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('457',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t457 GROUP BY 1, 2, 3 + +SELECT t457 +SCAN + SCATTER NAME o457 + SELECT rcli + SEEK LEFT(o457.NUME,30) + o457.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o457.COD_FISCAL + ENDIF + REPLACE debit WITH debit + o457.debit, credit WITH credit + o457.credit, valdebit WITH valdebit + o457.valdebit, valcredit WITH valcredit + o457.valcredit + ELSE + SEEK LEFT(o457.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o457.acont + REPLACE debit WITH debit + o457.debit, credit WITH credit + o457.credit, valdebit WITH valdebit + o457.valdebit, valcredit WITH valcredit + o457.valcredit + ELSE + APPEND BLANK + GATHER NAME o457 + ENDIF + ENDIF + + SELECT t457 +ENDSCAN +RELEASE o457 +USE IN t457 + +SELECT rcli +REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit &&,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit &&,TOTAVANSV WITH PRECAVANSV+AVANSVAL + +SELECT dividende +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +SELECT dividende +SET ORDER TO TAG NANA +RETURN + +*_________________________________________ + +PROCEDURE refdivLUN +LOCAL nla,nlb,ana,anb,cond,cond1 +STORE 0 TO M.suma_2, M.achitatval,M.suma,M.sumaval,M.achitat + + +IF !se_reface() + RETURN +ENDIF + +cond='(year(dataireg)10000) + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH achitatval+m.achitatval + REPLACE nume_4 WITH m.EXPLICATIA + ENDIF + SELE act + ENDDO + + +ENDIF + + +SELE act +SET FILT TO + +UNLOCK IN divLUN +SELE divLUN +SET FILTER TO +RETURN + +*________________________________________________________ + +PROCEDURE REFActionar +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\ACTIONAR.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'ACTIONAR.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\ACTIONAR.DBF IN 0 ALIAS ACTIONARU + +SELECT ACTIONARU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('ACTIONARu.totdeb') = 'U' + SELECT NUME,COD_FISCAL, DAT AS precdeb, LUAT AS preccred FROM ACTIONARU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit, totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit +*REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('ACTIONARu.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM ACTIONARU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM ACTIONARU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN ACTIONARU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '455', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '455', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '455', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '455', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '455', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('455',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t455 GROUP BY 1, 2, 3 + +SELECT t455 +SCAN + SCATTER NAME o455 + SELECT rcli + SEEK LEFT(o455.NUME,30) + o455.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o455.COD_FISCAL + ENDIF + REPLACE debit WITH debit + o455.debit, credit WITH credit + o455.credit, valdebit WITH valdebit + o455.valdebit, valcredit WITH valcredit + o455.valcredit + ELSE + SEEK LEFT(o455.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o455.acont + REPLACE debit WITH debit + o455.debit, credit WITH credit + o455.credit, valdebit WITH valdebit + o455.valdebit, valcredit WITH valcredit + o455.valcredit + ELSE + APPEND BLANK + GATHER NAME o455 + ENDIF + ENDIF + + SELECT t455 +ENDSCAN +RELEASE o455 +USE IN t455 + +SELECT rcli +REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit &&,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit &&,TOTAVANSV WITH PRECAVANSV+AVANSVAL + +SELECT ACTIONAR +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +SELECT ACTIONAR +SET ORDER TO TAG NANA +RETURN + + +*_________________________________________ + +PROCEDURE ref_balanta_partener +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +SET SAFETY OFF +COPY FILE &dirgen\_alfa\an0000\date00\balanta_partener.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'balanta_partener.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\balanta_partener.DBF IN 0 ALIAS balanta_partenerU + +SELECT balanta_partenerU +SELECT * FROM balanta_partenerU WHERE CONT = loCont.CONT INTO CURSOR balanta_partenerA READWRITE +USE IN balanta_partenerU + +SELECT balanta_partenerA +REPLACE ALL precdeb WITH precdeb + debit, preccred WITH preccred + credit, ; +precvaldeb WITH precvaldeb + valdebit, precvalcre WITH precvalcre + valcredit + +REPLACE ALL debit WITH 0, credit WITH 0, valdebit WITH 0, valcredit WITH 0 + +*!* SELECT SUM(IIF(SCD = loCont.CONT, SUMA, 0)) AS debit, SUM(IIF(SCC = loCont.CONT, SUMA, 0)) AS credit, ; +*!* SUM(IIF(SCD = loCont.CONT, SUMA_2, 0)) AS VALDEBIT, SUM(IIF(SCC = loCont.CONT, SUMA_2, 0)) AS VALCREDIT, ; +*!* id_partd, id_partc, IIF(SCD = loCont.CONT, ASCD, IIF(SCC = loCont.CONT, ASCC, '')) AS acont ; +*!* FROM ACT ; +*!* WHERE (!EMPTY(id_partd) OR !EMPTY(id_partc)) AND INLIST(loCont.CONT,SCD,SCC) ; +*!* INTO CURSOR tact ; +*!* GROUP BY id_part, acont + +SELECT SUM(suma) AS debit, SUM(suma_2) AS valdebit, id_partd, ASCD ; +FROM act ; +WHERE !EMPTY(id_partd) AND scd = loCont.CONT ; +INTO CURSOR tactd ; +GROUP BY id_partd, ASCD + +&&& debit +SELECT tactd +SCAN + SCATTER NAME oact + SELECT balanta_partenerA + LOCATE FOR IDpart = oact.id_partd AND CONT = loCont.CONT AND acont = oact.ASCD + IF FLOCK() + IF !FOUND() + APPEND BLANK + GATHER NAME oact + REPLACE IDpart WITH oact.id_partd, CONT WITH loCont.CONT, acont WITH oact.ASCD + ELSE + REPLACE debit WITH debit + oact.debit, ; + valdebit WITH valdebit + oact.valdebit + ENDIF + + ENDIF + UNLOCK + SELECT tactd +ENDSCAN +RELEASE oact +USE IN tactd + +&&& credit +SELECT SUM(suma) AS credit, SUM(suma_2) AS valcredit, id_partc, ASCC ; +FROM act ; +WHERE !EMPTY(id_partc) AND scc = loCont.CONT ; +INTO CURSOR tactc ; +GROUP BY id_partc, ASCC + +SELECT tactc +SCAN + SCATTER NAME oact + SELECT balanta_partenerA + LOCATE FOR IDpart = oact.id_partc AND CONT = loCont.CONT AND acont = oact.ASCC + IF FLOCK() + IF !FOUND() + APPEND BLANK + GATHER NAME oact + REPLACE IDpart WITH oact.id_partc, CONT WITH loCont.CONT, acont WITH oact.ASCC + ELSE + REPLACE credit WITH credit + oact.credit, ; + valcredit WITH valcredit + oact.valcredit + ENDIF + ENDIF + UNLOCK + SELECT tactc +ENDSCAN +RELEASE oact +USE IN tactc + +SELECT balanta_partenerA +REPLACE ALL totdeb WITH precdeb + debit, totvaldeb WITH precvaldeb + valdebit +REPLACE ALL totcred WITH preccred + credit, totvalcre WITH precvalcre + valcredit + +SELECT balanta_partener +SET FILTER TO +IF FLOCK() + DELETE ALL FOR CONT = loCont.CONT + APPEND FROM DBF('balanta_partenerA') +ENDIF +UNLOCK + + +USE IN balanta_partenerA + +ENDPROC && ref_balanta_partener diff --git a/Programe/roadef.prg b/Programe/roadef.prg new file mode 100644 index 0000000..2d12823 --- /dev/null +++ b/Programe/roadef.prg @@ -0,0 +1,981 @@ +*!* 17.03.2011 +*!* marius.mutu +*!* nu se mai verifica seria hdd + +Parameters tparam + +Local lchost, lcUserName, lcPassword, lnIdUtil, lnIdProgram, lcUserNameApp,lcPasswordApp +Store '' To lchost, lcUserName, lcPassword, lcUserNameApp,lcPasswordApp +Store 0 To lnIdUtil, lnIdProgram +Private gcNumeProgram +gcNumeProgram=[ROADEF] +If !Like(gcNumeProgram + '*', Upper(Alltrim(Juststem(Sys(16,0))))) + Messagebox("Nu puteti porni acest program!",0+16,"Atentie") + Return +Endif +_Screen.Icon=gcNumeProgram + [.ICO] + +Set Century On +Set Deleted On +Set Date To Dmy +Set Exclusive Off +Set Cpdialog Off +Set Talk Off +Set Safety Off +Set Escape Off +Set Exact On +Set Mark To '/' +Set Ansi On +Set Console Off +Set Notify Off +Set Seconds Off +Set NullDisplay To '' +Set Decimals To 4 +_Screen.Visible=.F. +_Screen.AutoCenter=.T. + + + +*VARIABILE_______ +Local lcMainClassLib +Local lcLastSetTalk,lcLastSetPath,lcLastSetClassLib,lcOnShutdown + + +*VARIABILE__________________________________________________________________________ +Declare nror[65000] +Declare RTVA[22,2] + +Public CRLF,CR,LF,Tab +Store Chr(13) + Chr(10) To CRLF +Public pcNl,pcAn +Store "" To pcNl,pcAn && se initializeaza in start00 +CR=Chr(13) +LF=Chr(10) +Tab=Chr(9) + +Public pcTitlu,pl_verificat,gnid_prg_owner +Store "" To pcTitlu +Store .F. To pl_verificat +Public BUTON, luna_inchisa, luna_neplatita, PRIMADATA, m.ctva, m.ctvam, m.ctvai, antet, m.nivel +Public OStart,OSETVIZ,OSETTULBAR,OSETINSTRUM,orm,OTEXT,OJUR,osetgest,tlbr_INSTR,tlbr_VIZ,oprinc,DIRGEN +Public pcapsocsub,pcapsocvar +pcapsocsub=0 +pcapsocvar=0 +Public a4 +a4=.T. +m.nrgrup=999 + +Store .F. To luna_inchisa,tlbr_INSTRum,tlbr_VIZ +Store 1 To BUTON,col_menu +Store .T. To PRIMADATA,luna_neplatita + + +*** DECLARATII DE VARIABILE PUBLICE + +********************************************************************************************** +*-- Save and configure environment.*********************** +lcLastSetTalk=Set("TALK") +Set Talk Off +lcLastSetPath=Set("PATH") + +Public gcAppPath,gcAppName,gcTempPath, gcCaleServerDate, gcUserNameApp, gcPasswordApp,gcDirMare +Store '' To gcUserNameApp, gcPasswordApp, gnNivelUtilizator, gnGrupUtilizator, gcAcces,gcDirMare +*!* PUBLIC gcSchemaPath +*!* STORE '' TO gcSchemaPath + +Set Procedure To "D:\ROA\ROADEF\COMUN\UTILE\web\WWUTILS.PRG" Additive +Set Procedure To "D:\ROA\ROADEF\COMUN\UTILE\web\WWAPI.PRG" Additive + +gcAppPath = Addbs(ShortPath(GetAppStartPath())) +If Right(gcAppPath ,9)="PROGRAME\" + gcAppPath = Substr(gcAppPath ,1,Len(gcAppPath )-9) +Endif +gcAppName=Allt(Uppe(Juststem(Sys(16,0)))) + +*!* gcAppDataPath=gcAppPath+"Date_"+gcAppName+"\" && D:\CONTAFIN\TRANS\DATE_TRANS && PT OPTIUNI , FISIERE SPECIFICE PROGRAMULUI SI +gcUtilizatoriPath = gcAppPath + "UTILIZATORI\" +liat=Rat("\",gcAppPath,2) +gcDirMare=Addbs(Left(gcAppPath,liat-1)) +dirgen = gcDirMare + +Store "" To gcTempPath, gcCaleServerDate + +Set Default To (gcAppPath) +lcPath = gcAppPath + 'Date;' + ; + gcAppPath + 'Include;' + ; + gcAppPath + 'FERESTRE;' + ; + gcAppPath + 'GRAFICE;' + ; + gcAppPath + 'CLASE;' + ; + gcAppPath + 'MENIURI;' + ; + gcAppPath + 'PROGRAME;' + ; + gcAppPath + 'RAPOARTE;' + ; + gcAppPath + 'COMUN\CLASE;' + ; + gcAppPath + 'COMUN\FERESTRE;' + ; + gcAppPath + 'COMUN\PROGRAME;' + ; + gcAppPath + 'COMUN\GRAFICE;' + ; + gcAppPath + 'COMUN\RAPOARTE;' + ; + gcAppPath + 'COMUN\UTILE\CTL32;' + ; + gcAppPath + 'COMUN\UTILE\HPDF;' + ; + gcAppPath + 'COMUN\UTILE\HPDF\REPORTOUTPUT;' + ; + gcAppPath + 'COMUN\UTILE\WEB;' + ; + gcAppPath + 'COMUN\UTILE\NFJSON;' + ; + Addbs(Substr(gcAppPath,1,Rat([\],gcAppPath,2)))+[COMUNROA\] + +*!*Set Path To Date;Include;FERESTRE;GRAFICE;Help;CLASE;MENIURI;PROGRAME;RAPOARTE;PROGS;LIBS + +Set Path To &lcPath Additive + +Push Menu _Msysmenu +lcLastSetClassLib=Set("CLASSLIB") +lcMainClassLib = gcAppPath + "clase\ofundal_sal" + +*CLASE__________________________________________________________ +Set Classlib To (lcMainClassLib) Additive +*!* SET CLASSLIB TO baza ADDITIVE +*!* SET CLASSLIB TO ferestrebaza ADDITIVE +Set Classlib To CAUT Additive +Set Classlib To ooptiuni Additive +*!* SET CLASSLIB TO oteste ADDITIVE +*!* SET CLASSLIB TO ovanzcump ADDITIVE +*!* SET CLASSLIB TO oparteneri ADDITIVE +Set Classlib To ferestre_cere_date Additive +Set Classlib To oblocare Additive +*!* SET CLASSLIB TO overificari ADDITIVE +*!* SET CLASSLIB TO FERESTREBAZA ADDITIVE +*!* SET CLASSLIB TO CONT ADDITIVE +Set Classlib To registry Additive +*!* SET CLASSLIB TO odevize ADDITIVE +Set Classlib To decabaza Additive +Set Classlib To onomenclatoare Additive +*!* SET CLASSLIB TO onom_devize ADDITIVE +Set Classlib To onom_sal Additive +Set Classlib To cauta_alfa_forms Additive +*!* SET CLASSLIB TO ointroduceri additive +Set Classlib To ferestre_oracle Additive +Set Classlib To caut_ora Additive +Set Classlib To otoolbar Additive +*!* 19.07.2006 +*!* MARIUS MUTU +Set Classlib To Messagebox Additive +Set Classlib To opersonal Additive +Set Classlib To oasociere Additive +Set Classlib To ofirma Additive +Set Classlib To ferestre_roadef Additive +*!* 21.04.2009 +*!* alex.lepadatu +Set Classlib To oconfigurare_seturi.vcx ADDITIVE +*!* v 2.0.16 +SET CLASSLIB TO wwdialogs.vcx additive +*!* v 2.0.16 ^ +SET CLASSLIB TO overificari.vcx additive && v 2.0.25 +set classlib to comun.vcx additive && v 2.1.0 +SET CLASSLIB TO appwiz.vcx additive && v 2.1.2 +SET CLASSLIB TO accessibility.vcx additive && v 2.1.2 +*PROCEDURI______________________________________________________ +*Set Procedure To acces_meniu2 Additive +Set Procedure To acces_meniu Additive +Set Procedure To ooperatii_comune Additive +Set Procedure To quitapp Additive +Set Procedure To init_program Additive +Set Procedure To proceduri_comune Additive +Set Procedure To oproceduri_comune Additive +Set Procedure To gencursor.prg Additive +Set Procedure To updateserver.prg Additive +Set Procedure To oproceduri_maintenance.prg Additive +Set Procedure To onomenclatoare Additive +Set Procedure To oproceduri_ams Additive +Set Procedure To ocautare Additive +Set Procedure To oproceduri_roadef_sal Additive +Set Procedure To oinit_optiuni Additive +Set Procedure To osecurity Additive +Set Procedure To oproceduri_roadef Additive +*!* 16.06.2006 +*!* marius.mutu +Set Procedure To wwcodeupdate.prg Additive +Set Procedure To wwxmlhttp.prg Additive +Set Procedure To ini.prg Additive +Set Procedure To osalarii_comun.prg Additive + +Set Procedure To wwutils.prg Additive + +Set Procedure To proceduri_Excel.prg Additive +Set Procedure To cauta_alfa.prg Additive +*!* 21.04.2009 +*!* alex.lepadatu +Set Procedure To oproceduri_app.prg Additive +*!* v 2.0.16 +SET PROCEDURE TO iniacces.prg ADDITIVE +SET PROCEDURE TO oupdate.prg additive +SET PROCEDURE TO procese.prg additive +SET PROCEDURE TO version.prg additive +SET PROCEDURE TO xmlaccess.prg additive +SET PROCEDURE TO xmlparser.prg additive +SET PROCEDURE TO filebringer.prg additive +SET PROCEDURE TO wwcodeupdate.prg additive +SET PROCEDURE TO wwhttp.prg ADDITIVE +Set Procedure To wwApi.prg Additive +Set Procedure To validare.prg Additive +SET PROCEDURE TO nfjsonread.prg ADDITIVE + +Declare Integer GetPrivateProfileString In Kernel32 ; + string, String, String, String @, Integer, String +Declare Integer WritePrivateProfileString In Kernel32 ; + string, String, String, String +Declare Integer CopyFile In kernel32; + STRING lpExistingFileName,; + STRING lpNewFileName,; + INTEGER bFailIfExists +Declare Integer URLDownloadToFile In urlmon.Dll; + INTEGER pCaller, String szURL, String szFileName,; + INTEGER dwReserved, Integer lpfnCB +Declare Integer PathFileExists In shlwapi; + STRING pszPath +*!* v 2.0.16 ^ +*---------------------------------------------------------------------------- +If Pcount() = 1 And Type('tparam') = 'C' + glParametri = .T. + Private laParametri + Declare laParametri[1] + lcParam = Alltrim(tparam) + lnNr = lista2array(lcParam,@laParametri,";") + If lnNr < 5 + Messagebox('Numar incorect de parametri',0+16,'Eroare') + Return + Endif + lchost = laParametri[1] + lcUserName = laParametri[2] + lcPassword = laParametri[3] + lnIdUtil = Round(Val(laParametri[4]),0) + lnIdProgram = Round(Val(laParametri[5]),0) +Else + glParametri = .F. + lchost = 'JCSSERVER' + lcUserName = 'CONTAFIN_ORACLE' + lcPassword = '' + lnIdUtil = 0 + lnIdProgram = 0 + +Endif + + +*------------------------------------- +Public glVerificTabel && daca se verifica structura tabelelor in totv.prg +glVerificTabel=.T. + +Public glQuit +glQuit = .F. + +Public gnIdIstoric +gnIdIstoric = 0 + + + + + +Private gcGeneralIniFile, gcSettingsFile +gcGeneralIniFile = m.gcDirMare + "settings.ini" +gcSettingsFile = m.gcGeneralIniFile +If !File(gcGeneralIniFile) + + TEXT TO lcSettings NOSHOW +[errors] +host=http://83.103.197.79:3000/errors/create_xml + ENDTEXT + + Strtofile(lcSettings, gcGeneralIniFile) +Endif + + +gcSecurityPath = DIRGEN + 'Security\' +gcSecurityFile = gcSecurityPath + 'ROA_SECURITY.TXT' + +*** Tin conexiunea deschisa. La wert??? apare eroarea odbc "timeout occured" daca se lasa peste 1 minut programul fara sa se lucreze +LOCAL lcKeepAlive, lnKeepAlive +PRIVATE goKeepAlive +lcKeepAlive = NVL(getini(m.gcGeneralIniFile,'update','keepalive_seconds'), '') +lnKeepAlive = 0 +IF EMPTY(m.lcKeepAlive) + setini(m.gcGeneralIniFile,'update','keepalive_seconds', '0') + lnKeepAlive = 0 +ELSE + lnKeepAlive = VAL(m.lcKeepAlive) +ENDIF +IF m.lnKeepAlive >= 5 && minim 5 secunde + goKeepAlive = NEWOBJECT("keepalive","utility.vcx") + goKeepAlive.interval = m.lnKeepAlive * 1000 + goKeepAlive.enabled = .T. +ENDIF + + +Private poLog,goLog && obiect pt logarea mesajelor sistemului +poLog = Newobject("Log_Mesaje","Log_Mesaje.prg") +goLog = poLog + +*!* public poLog && obiect pt logarea mesajelor sistemului +*!* poLog = NEWOBJECT("Log_Mesaje","Log_Mesaje.prg") + + +Public glQuit +glQuit = .F. + +*!* modificare v 2.1.2 +*!* Public gnIdIstoric +*!* gnIdIstoric = 0 +*!* If verificari() +*!* _Screen.Visible=.T. +*!* Do mesaj With "Se fac verificari programului","Va rugam reveniti" +*!* glQuit= .T. +*!* Quit +*!* Endif +*!* If !Debug_Start() +*!* lcParam=tparam +*!* If Empty(tparam) Or (Type('tParam')='C' And !verific_start(tparam,DIRGEN,gcAppName)) +*!* _Screen.Visible=.T. +*!* Do mesaj With "Programul trebuie pornit doar din START","" +*!* Quit +*!* Endif +*!* Endif +*!* modificare v 2.1.2 ^ +*** verificare serie permanenta +*!* Public tipar,SER_PERM,SER_PERI,VERSIUNE +*!* Store .F. To SER_PERM,SER_PERI + + +***************************** VARIABILE ORACLE +Private goUtilizator +Private gnHandle,gnidutil,GCCODFISCAL,GCADRESA,GCNUMEFIRMA,GCMONEDA,GNDIFZILE, gcUserNameApp, gcPasswordApp +Private gnButon && variabila pentru renunt si terminat +Store 2 To gnButon +Store '' To GCCODFISCAL,GCADRESA,GCNUMEFIRMA,GCMONEDA, gcUserNameApp, gcPasswordApp, gcNivelUtilizator, gcGrupUtilizator, gcAcces +gnHandle = -1 +gnidutil = 0 + +Private gcHost, gcUserName, gcPassword,gofundal, gnIdProgram +gnIdProgram = 0 +gofundal='' + +Private goFirma,gnIdFirma,gcFirma,gnAn,gnLuna && ,gnPA,gnPC +&& STORE 0 TO gnPA,gnPC && nr. de zecimale afisare, calcul +Store Null To goFirma +Store 0 To gnIdFirma,gnAn,gnLuna +Store '' To gcFirma + +Private glUltimaLuna,glPrimaLuna, glLunaBuna,glLuna_neplatita,glLunaInchisa + +Store .F. To glUltimaLuna,glPrimaLuna, glLunaBuna,glLuna_neplatita,glLunaInchisa + +***toolbar*** +Private otool,ohelp +Store '' To otool,ohelp + + +Private gcS && schema firmei +Store 'DEMO' To gcS + +If Type('laparametri',1)="A" + If Alen(laParametri,1)=10 + gnAn = Val(laParametri[7]) + gnLuna = Val(laParametri[8]) &&lansare noua + gcS = laParametri[9] + gnIdFirma = Val(laParametri[10]) + Endif +Endif + +&& obiect global wrap pt sqlexec cu text eroare si succes +Private goExecutor +goExecutor = Createobject("oExecutor") + +&& obiect global wrap pentru sqlconnect, sqldisconnect; apeleaza proceduri postconectare pentru setare variabile sesiune +Private goConn +goConn = Createobject("oConn") + +Private goMyXMLHTTP +lcHostErrors = getini(gcGeneralIniFile,'errors','host') +goMyXMLHTTP = Createobject("MyXMLHTTP", lcHostErrors) + +&& obiect global pt luna aleasa din calendar +Private goCalendar +Store Null To goCalendar + +gcHost = lchost +gcUserName = lcUserName +gcPassword = lcPassword +gcUserNameApp = lcUserNameApp +gcPasswordApp = lcPasswordApp +gnidutil = lnIdUtil +gnIdProgram = lnIdProgram + + +If !glParametri + lnValid = getcrsSecurity(gcSecurityFile) + If lnValid > 0 + If Used('crsHost') + Select crsHost + Go Top + gcHost = Alltrim(Host) + gcUserName = Alltrim(schema) + gcPassword = Alltrim(pwd) + Use In crsHost + Endif + Endif +Endif + +*!* IF glParametri +*!* gcHost = lcHost +*!* gcUserName = lcUserName +*!* gcPassword = lcPassword +*!* gcUserNameApp = lcUserNameApp +*!* gcPasswordApp = lcPasswordApp +*!* gnIdUtil = lnIdUtil +*!* gnIdProgram = lnIdProgram +*!* ELSE +*!* gcHost = "jcsserver" +*!* gcUserName = "contafin_ORACLE" +*!* gcPassword = "123" +*!* gcUserNameApp = '' +*!* gcPasswordApp = '' +*!* gnIdUtil = 1 +*!* gnIdProgram = 8 +*!* ENDIF +***************************** VARIABILE ORACLE + + +*!* 17.03.2011 +*!* Use &gcAppPath\SER In 0 Alias SER Shared +*!* Select SER +*!* Go Top +*!* tipar=TIP +*!* SER_PERM=SER_PERMAN +*!* SER_PERI=SER_PERIOD +*!* VERSIUNE=VERcont +*!* MODEL_PROGRAM=MODEL +*!* Use In SER +*!* parolamea=Substr(tipar,Month(Date()),1) +*!* parolamea=parolamea+Allt(Str(Day(Date())))+Allt(Str(Month(Date()))) + +*!* If !_DEBUG() +*!* If SER_PERM And !verif_ser_perm() +*!* Quit +*!* Endif +*!* Endif +*!* 17.03.2011 ^ + +Public cales,eserver,loc,numestatie +eserver=.F. +Store '' To cales,loc,numestatie + +Public NUMEPROGRAM,FUNDALPROGRAM + +NUMEPROGRAM='ROADEF' +*!* MENIUPROGRAM=gcAppPath+"meniuri\cont2000.mpr" +*!* FUNDALPROGRAM=gcAppPath+"FERESTRE\FUNDAL.scx" +_program='roadef' + + + + +lcOnShutdown="ShutDown()" +On Shutdown &lcOnShutdown +On Error ErrorHandler(Error(),Program(),Lineno()) +*!* _Shell="DO Cleanup IN progs\ROADEF" + +*-- Instantiate application object.*************************** +Release goApp +Public goApp +goApp=Createobject("cApplication") + +*-- Configure application object.***************************** +NUMEPROGRAM = 'ROA - Definirea Companiei' +Local laVersion +Dimension laVersion(12) +If Agetfileversion(laVersion, Sys(16,0)) > 0 + NUMEPROGRAM = laVersion(10) +Endif +Release laVersion + +goApp.SetCaption(NUMEPROGRAM) +goApp.cStartupMenu = gcAppPath + "meniuri\Roadef" +goApp.cStartupForm = gcAppPath + 'COMUN\ferestre\frm_login.scx' + +_Screen.WindowState=2 +*-- Show application. +goApp.Show +*-- Release application. +Release goApp + +*-- Restore default menu. +*!* Pop Menu _Msysmenu + +*-- Restore environment. +On Error +On Shutdown +If Not lcLastSetClassLib==Set("classlib") + Release Classlib (lcMainClassLib) +Endif +If Empty(lcLastSetPath) + Set Path To +Else + Set Path To &lcLastSetPath +Endif +If lcLastSetTalk=="ON" + Set Talk On +Else + Set Talk Off +Endif + +cleanup() + +Return + + + + +* FUNCTII______________________________________________________________________ +Function ErrorHandler(nError,cMethod,nLine) + Local lcErrorMsg,lcCodeLineMsg + + Wait Clear + lcErrorMsg=Message()+Chr(13)+Chr(13) + lcErrorMsg=lcErrorMsg+"Method: "+cMethod + lcCodeLineMsg=Message(1) + If Between(nLine,1,10000) And Not lcCodeLineMsg="..." + lcErrorMsg=lcErrorMsg+Chr(13)+"Line: "+Alltrim(Str(nLine)) + If Not Empty(lcCodeLineMsg) + lcErrorMsg=lcErrorMsg+Chr(13)+Chr(13)+lcCodeLineMsg + Endif + Endif + + If Type('goMyXMLHTTP') = 'O' + lcLunaHTTP = Iif(Type('gnLuna') = 'N', Transform(gnLuna) + "/","") + Iif(Type('GNAN') = 'N', Transform(gnAn),"") + lcErrorMsgHTTP = Sys(0) + ":" + Iif(Type('GCS')='C'," " + gcS,"") + ": " + lcLunaHTTP + Chr(13) +Chr(10) + lcErrorMsg + ; + CHR(13) +Chr(10) + Chr(13) + Chr(10) + GETCALLSTACK() + lcUserName = gcUserNameApp + lcProgram = Juststem(Sys(16,0)) + goMyXMLHTTP.postError(lcErrorMsgHTTP, lcUserName, lcProgram) + Endif + + If AMESSAGEBOX(lcErrorMsg,17,_Screen.Caption)#1 + If _vfp.StartMode = 0 + Set Step On + Else + Quit + Endif + Endif +Endfunc + + + +Function Shutdown +*!* =End_Istoric(gnIdIstoric, Addbs(DIRGEN)+"DATERETEA\", "START_ISTORIC") + If Type("goApp")=="O" And Not Isnull(goApp) + Return goApp.OnShutDown() + Endif +*!* modificare v 2.1.2 +*!* ON SHUTDOWN +*!* ON ERROR +*!* CLEAR EVENTS + Cleanup() + Quit +*!* modificare v 2.1.2 ^ +Endfunc + + +Function cleanup + + If Cntbar("_msysmenu")=7 + Return + Endif + On Error + On Shutdown + Set Classlib To + Set Path To + Clear All +* Close All + Pop Menu _Msysmenu + Return + + + + *----------------------------------------------------- + +Function verif_ser_perm + Clear + + Return PORNIRE() + ******** + *?pornire() + +Function PORNIRE + Set Exact On + Private calewin,calesys,checksum1,checksum2,serinreg,serdisk,file1,file2,valret,serdisktemp,ser1,ser2,key1,KEY2 + Store '' To calewin,serinreg,serdisk,calesys,serdisktemp,catehd,ser1,ser2,key1,KEY2 + Store 0 To checksum1,checksum2 + Store .T. To valret + Declare Integer SHGetFolderPath In SHFOLDER.Dll ; + INTEGER hwndOwner, ; + INTEGER nFolder, ; + INTEGER hToken, ; + INTEGER dwFlags, ; + STRING @ pszPath + Declare Integer GetActiveWindow In WIN32API + #Define CSIDL_WINDOWS 36 + #Define CSIDL_SYSTEM 37 + #Define CSIDL_PROGRAMS 38 + lcPath = Repl(Chr(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath) + calewin=Left(lcPath,At(Chr(0),lcPath)-1) + lcPath = Repl(Chr(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_SYSTEM,0,0,@lcPath) + calesys=Left(lcPath,At(Chr(0),lcPath)-1) + &&se verifica existenta celor trei fisiere + If (Not File(calesys+'\diskserial.dll')) Or (Not File(calesys+'\getmacip.dll')) Or (Not File(calewin+'\comdir.snr')) + valret=.F. + Endif + If valret + file1=Filetostr(calesys+'\diskserial.dll') + checksum1=Sys(2007,file1) + file2=Filetostr(calesys+'\getmacip.dll') + checksum2=Sys(2007,file2) + &&severifica daca dll-urile nu au fost modificate + If (Val(checksum1) != 58755) Or (Val(checksum2) != 30476) + valret=.F. + Endif + Endif + &&se citesc seriile tutturor celor patru hard disk-uri posibile(pe IDE primary master,primary slave...) + &&se tine minte primul cu seria nenula-daca nu s-a putut citi seria de la nici unul se pune o serie default + &&seria default este "NUAREHAR" + If valret + Declare Integer GetSerialNumber In diskSerial.Dll Integer ,String + catehd=0 + For i=0 To 3 + serdisktemp=Space(40) + GetSerialNumber(i,@serdisktemp) + If (Len(Alltrim(serdisktemp))!=0) And (catehd=0) + serdisktemp=sircaracter(serdisktemp) + serdisk=serdisktemp + catehd=catehd+1 + Endif + Endfor + If (Len(Alltrim(serdisk))=0) + serdisk='NUAREHAR' + Else + If ((Len(Alltrim(serdisk))>0) And (Len(Alltrim(serdisk))<8)) + serdisk=serdisk+Replicate('1',8-Len(Alltrim(serdisk))) + Endif + Endif + serdisk=Substr(Alltrim(serdisk),Len(Alltrim(serdisk))-7,8) + Endif + &&se citeste din comdir.snr seria de inregistrare si se verifica egalitatea cu seria obtinuta anterior + If valret + gnFileHandle = Fopen(calewin+'\comdir.snr') + nSize = Fseek(gnFileHandle, 0, 2) && Move pointer to EOF + If nSize!=9 + valret=.F. + Else + = Fseek(gnFileHandle, 0, 0) && Move pointer to BOF + cString = Fread(gnFileHandle,9) + ser1=Substr(cString,1,4) + ser2=Substr(cString,5,4) + key1=Substr(cString,9,1) + KEY2=DECTOBIN(Alltrim(HEXDEC(key1))) + serinreg=decodare1(Alltrim(Upper(ser1)),KEY2)+decodare1(Alltrim(Upper(ser2)),KEY2) + If serdisk!=serinreg + valret=.F. + Endif + Endif + = Fclose(gnFileHandle) + Endif + seriedisk1=serdisk + serieinreg1=serinreg + On Error valret=.F. + Return valret + ************* +Function decodare1 + Parameters lstring,CHEIE + Local lens,poz1,poz2,POZ3,lret,LRET2,lcstring,val1,lret1 + lret='' + lret1='' + LRET2='' + lcstring=Alltrim(Upper(lstring)) + lens=Len(lcstring) + For i=1 To 4 + poz1=Substr(lcstring,i,1) + val1=Asc(poz1) + POZ3=Substr(CHEIE,i,1) + Do Case + Case val1>=48 And val1<=57 + If ((val1-47)+Int(Val(POZ3)))<=10 + poz2=Chr(val1+Int(Val(POZ3))) + Else + poz2=Chr(val1+Int(Val(POZ3))-10) + Endif + Case val1>=65 And val1<=90 + If ((val1-64)+2*Int(Val(POZ3)))<=26 + poz2=Chr(val1+2*Int(Val(POZ3))) + Else + poz2=Chr(val1+2*Int(Val(POZ3))-26) + Endif + Endcase + LRET2=LRET2+poz2 + Endfor + For i=1 To lens + poz1=Substr(LRET2,i,1) + val1=Asc(poz1) + Do Case + Case val1>=48 And val1<=57 + If ((val1-47)+i)<=10 + poz2=Chr(val1+i) + Else + poz2=Chr(val1+i-10) + Endif + Case val1>=65 And val1<=90 + If ((val1-64)+2*i)<=26 + poz2=Chr(val1+2*i) + Else + poz2=Chr(val1+2*i-26) + Endif + Endcase + lret=lret+poz2 + Endfor + lens=Len(lret) + For i=1 To lens + poz1=Substr(lret,i,1) + val1=Asc(poz1) + Do Case + Case val1>=48 And val1<=57 + poz2=Chr(val1+17)&& din 0-9 in A-J + Case val1>=65 And val1<=74 + poz2=Chr(val1-17)&& din A-J in 0-9 + Case val1>=75 And val1<=82 + poz2=Chr(val1+8)&&din K-R in S-Z + Case val1>=83 And val1<=90 + poz2=Chr(val1-8)&&din S-Z in K-R + Endcase + lret1=lret1+poz2 + Endfor + Return lret1 + *********** + &&transformarea in decimal a unui caracter hexa +Function HEXDEC + Lparameters LC + Local LV + Do Case + Case LC=='0' + LV='0' + Case LC=='1' + LV='1' + Case LC=='2' + LV='2' + Case LC=='3' + LV='3' + Case LC=='4' + LV='4' + Case LC=='5' + LV='5' + Case LC=='6' + LV='6' + Case LC=='7' + LV='7' + Case LC=='8' + LV='8' + Case LC=='9' + LV='9' + Case LC=='A' + LV='10' + Case LC=='B' + LV='11' + Case LC=='C' + LV='12' + Case LC=='D' + LV='13' + Case LC=='E' + LV='14' + Case LC=='F' + LV='15' + Endcase + Return LV + **************** + &&codarea binara din hexa pe patru biti +Function DECTOBIN + Parameters sc + Local lretf + Do Case + Case sc=='0' + lretf='0000' + Case sc=='1' + lretf='0001' + Case sc=='2' + lretf='0010' + Case sc=='3' + lretf='0011' + Case sc=='4' + lretf='0100' + Case sc=='5' + lretf='0101' + Case sc=='6' + lretf='0110' + Case sc=='7' + lretf='0111' + Case sc=='8' + lretf='1000' + Case sc=='9' + lretf='1001' + Case sc=='10' + lretf='1010' + Case sc=='11' + lretf='1011' + Case sc=='12' + lretf='1100' + Case sc=='13' + lretf='1101' + Case sc=='14' + lretf='1110' + Case sc=='15' + lretf='1111' + Endcase + Return lretf + *********** +Function ECARACTER + Parameters strg1 + Private pz,ch,lcstring,vret,lg1 + Store 0 To pz,lg1 + Store '' To ch,lcstring + Store .T. To vret + lcstring=Upper(strg1) + lg1=Len(lcstring) + For ind1=1 To lg1 + ch=Substr(lcstring,ind1,1) + If (Not Between(Asc(ch),48,57)) And (Not Between(Asc(ch),65,90)) + vret=.F. + Exit + Endif + Endfor + Return vret + ************ +Function sircaracter + Parameters strg1 + Private pz,ch,lcstring,vret,lg1,lciesire + Store 0 To pz,lg1 + Store '' To ch,lcstring,lciesire + Store .T. To vret + strg1=Strtran(strg1,Alltrim(Chr(39)),'')&&caracterul ' + strg1=Strtran(strg1,Alltrim(Chr(39)),'')&&caracterul " + lcstring=Upper(Alltrim(strg1)) + lg1=Len(lcstring) + For ind1=1 To lg1 + ch=Substr(lcstring,ind1,1) + If Between(Asc(ch),48,57) Or Between(Asc(ch),65,90) + lciesire=lciesire+ch + Endif + Endfor + Return lciesire + + + + ***------------------------------------- +Procedure _DEBUG + + Private lcret,lcfisier,lcPath,lccalewin + Declare Integer SHGetFolderPath In SHFOLDER.Dll ; + INTEGER hwndOwner, ; + INTEGER nFolder, ; + INTEGER hToken, ; + INTEGER dwFlags, ; + STRING @ pszPath + Declare Integer GetActiveWindow In WIN32API + #Define CSIDL_WINDOWS 36 + + + lcPath = Repl(Chr(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath) + lccalewin=Left(lcPath,At(Chr(0),lcPath)-1) + + lcret=.F. + lcfisier=Addbs(lccalewin)+[DEBUG.TXT] + + lcLog = '1 ' + lcfisier + poLog.Log(lcLog,Program()) + + If File(lcfisier) + LCVAL=Filetostr(lcfisier) + + LNVAL1=Mod(Val(Right(LCVAL,1)),2) && restul 1 sau 0; daca e impar e 1 + lnval2=Val(Left(LCVAL,Len(LCVAL)-1)) + + lcLog = Transform(LNVAL1) + ' ' + Transform(lnval2) + poLog.Log(lcLog,Program()) + + If LNVAL1=1 Or Year(Date())-Month(Date())=lnval2 + lcret=.T. + Endif + Endif + + lcLog = Transform(lcret) + poLog.Log(lcLog,Program()) + + Return lcret + +Endproc + + +Function Start_Nou + *!* llExista_Branch = Exista_Branch(,,dirgen) + + *!* lcLog = TRANSFORM(llExista_Branch) + *!* poLog.log(lcLog,PROGRAM()) + Return Exista_Branch(,,DIRGEN) + Return llExista_Branch + +Endfunc && start_nou + +Procedure Debug_Start + + lcFile = gcAppPath + "debug.txt" + If File(lcFile) + lcLog = 'debug_start' + poLog.Log(lcLog,Program()) + Else + lcLog = '!debug_start' + poLog.Log(lcLog,Program()) + Endif + + If File(lcFile) Or !Start_Nou() + Return .T. + Endif + Return .F. + +Endproc && Debug_Start +************************************************************************ +Procedure verificari + Parameters tcFisierVerif + + lcverificari = Addbs(gcAppPath)+gcAppName+".txt" + + + If File(lcverificari) + Return .T. + Endif + Return .F. + +Endproc && verificari*************** + +Procedure myinstance + Parameters myApp + =Ddesetoption("SAFETY",.F.) + ichannel = Ddeinitiate(myApp,"ZOOM") + If ichannel =>0 + =Ddeterminate(ichannel) + Quit + Endif + =Ddesetservice(myApp,"define") + =Ddesetservice(myApp,"execute") + =Ddesettopic(myApp,"","ddezoom") + Return + ****************************************** +Procedure ddezoom + Parameter ichannel,saction,sitem,sdata,sformat,istatus + Zoom Window Screen Norm + Return + ********************************************************** + ** EOF + ********************************************************** diff --git a/Programe/shutdown.prg b/Programe/shutdown.prg new file mode 100644 index 0000000..91623e3 --- /dev/null +++ b/Programe/shutdown.prg @@ -0,0 +1,3 @@ +IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) + RETURN goApp.OnShutDown() +ENDIF diff --git a/Programe/update_nomenclator.prg b/Programe/update_nomenclator.prg new file mode 100644 index 0000000..39425ab --- /dev/null +++ b/Programe/update_nomenclator.prg @@ -0,0 +1,20 @@ +********************************************************** +PROCEDURE update_nomenclator + + *** tabele meniu deschise din proiect + LOCAL lcCaleDateMenu + + lcCaleDateMenu=gcAppPath+[DATEMENU\] + + + IF !USED('INFISIERE') + USE &lcCaleDateMenu.INFISIERE IN 0 ALIAS INFISIERE + ENDIF + + IF !USED('refaceri') + USE &lcCaleDateMenu.refaceri IN 0 ALIAS refaceri + ENDIF + + CREATE CURSOR dual (dummy c(10)) + INSERT INTO dual (dummy) VALUES ("") +ENDPROC && update_nomenclator \ No newline at end of file diff --git a/Programe/update_roadef_sal.prg b/Programe/update_roadef_sal.prg new file mode 100644 index 0000000..d3bcb68 --- /dev/null +++ b/Programe/update_roadef_sal.prg @@ -0,0 +1,119 @@ + +******************************************* +* PROCEDURE update_responsabil( ) +* Date : 05/23/05, 12:25:08 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE update_responsabil( ) +If Used('v_resp') + Use In v_resp +Endif + +lcSql = [select * from ] + gcS + [.sal_responsabil where ales = 1 and sters = 0] +lcCursor = [v_resp] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() + +ENDPROC +*----------------------------------sfarsit procedura update_responsabil---------------------------------- + +******************************************* +* PROCEDURE update_sectie( ) +* Data/ora : 12/16/04, 14:26:22 +* autor : liana.macinic +* descriere: + +****** PARAMETER BLOCK ************** +* Parametri : 0 +* +******************************************* +Procedure update_sectie( ) +If Used('v_sectie') + Use In v_sectie +Endif + +lcSql = [select * from ] + gcS + [.vnom_sectii order by sectie]&& where inactiv = 0] +lcCursor = [v_sectie] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() + +Return lnSucces + +Endproc +******************************************* +* PROCEDURE update_transe( ) +* Date : 05/26/05, 16:25:42 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE update_transe( ) +If Used('v_transe') + Use In v_sectie +Endif + +lcSql = [select * from ] + gcS + [.SAL_NOM_TRANSE where inactiv = 0 and sters = 0] +lcCursor = [v_transe] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() + +Return lnSucces + +ENDPROC +*----------------------------------sfarsit procedura update_transa---------------------------------- +******************************************* +* PROCEDURE update_ore( ) +* Date : 05/26/05, 16:25:42 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE update_ore( ) +If Used('v_nomore') + Use In v_nomore +Endif + +lcSql = [select * from ] + gcS + [.SAL_NOMORE where inactiv = 0 and sters = 0] +lcCursor = [v_nomore] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() + +Return lnSucces + +ENDPROC +*----------------------------------sfarsit procedura update_ore---------------------------------- +******************************************* +* PROCEDURE update_calcdin( ) +* Date : 06/17/05, 12:52:29 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE update_calcdin( ) +If Used('v_calcdin') + Use In v_calcdin +Endif + +lcSql = [select id_calcdin,camp,denumire as nume_camp,tabel from ] + gcS + [.sal_nom_calcdin where 2=2] +lcCursor = [v_calcdin] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() + +Return lnSucces + +ENDPROC +*----------------------------------sfarsit procedura update_calcdin---------------------------------- \ No newline at end of file diff --git a/Programe/verifica.prg b/Programe/verifica.prg new file mode 100644 index 0000000..080865f --- /dev/null +++ b/Programe/verifica.prg @@ -0,0 +1,1486 @@ +&& ------------------------------ INCEPUT: VerFurnizor ------------------------------ +*!* Procedura: VerFurnizor +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 23-01-2004 15:18:03 +*!* Autor: ANDREI.BAUTU + +PROCEDURE VerFurnizor + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Balanta de furnizori' + + SELE FURNIZOR + SET FILTER TO + SUM PLATIT, TOTDEB, totcred TO M.PLATIT, M.TOTDEB, m.totcred + + IF FLOCK() + REPLACE ALL totdeb WITH precdeb+platit, totcred WITH preccred+achizit, TOTAVANS WITH PRECAVANS+AVANS + UNLOCK + ENDIF + SUM totcred, totdeb, totAVANS TO M.TACHIZIT, M.TPLATIT, M.TAVANS + + SELE BAL + SET FILTER TO + SUM soldcred TO m.soldcred FOR LEFT(cont,3)='401' + M.SOLD=M.SOLDCRED + SUM totdeb-totcred TO m.solddeb FOR LEFT(cont,3)='409' + + if m.tavans # m.solddeb + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta avans fata de sold debitor 409 este ' + LTRIM(STR(M.solddeb-M.TAVANS,12)), .T., llInTabel, lnId_ref + ENDIF + + m.sold=m.sold-m.solddeb + + IF M.sold # m.Tachizit-M.TPLATIT-M.TAVANS + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + '401;409 Diferenta in sold este de: '+ LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT+M.TAVANS,12)), .T., llInTabel, lnId_ref + + *'Diferenta fata de sold creditor 401-sold debitor 409 este ' + LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT+M.TAVANS,12)), .T., llInTabel + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold creditor 401-sold debitor 409.', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC + +&& ------------------------------ SFARSIT: VerFurnizor ------------------------------ + +&& ------------------------------ INCEPUT: VerCumpLun ------------------------------- +*!* Procedura: VerCumpLun +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:38:37 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCumpLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Facturi cumparari' + + LOCAL soldcump + SELE CUMPlun + SET FILTER TO + SUM totctva-achitat TO m.soldcump + + SELECT furnizor + SET FILTER TO + SUM totcred - totdeb TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre sold furnizor si sold facturi este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente Diferenta intre sold furnizor si sold facturi.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCumpLun ------------------------------ + +&& ------------------------------INCEPUT: Verfurniz404 ------------------------------ +*!* Procedura: Verfurniz404 +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 10:08:37 +*!* Autor: ANDREI.BAUTU +PROCEDURE Verfurniz404 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Balanta furnizori imobilizari' + + SELE furniz404 + SET FILTER TO + SUM PLATIT,TOTDEB,totcred TO M.PLATIT,M.TOTDEB,m.totcred + + IF FLOCK() + REPLACE ALL totdeb WITH precdeb+platit, totcred WITH preccred+achizit + UNLOCK + ENDIF + SUM totcred,totdeb TO M.TACHIZIT, M.TPLATIT + + SELE BAL + SET FILTER TO + SUM soldcred TO m.soldcred FOR LEFT(cont,3)='404' + m.sold=m.soldCRED + + IF M.sold # m.Tachizit-M.TPLATIT + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 404 este ' + LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT, 12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 404 .', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC +&& ------------------------------SFARSIT: Verfurniz404 ------------------------------ + +&& ------------------------------ INCEPUT: VerCumpLun404 ------------------------------ +*!* Procedura: VerCumpLun404 +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 15:27:19 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCumpLun404 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Facturi cumparari 404' + + LOCAL soldcump + SELECT cumplun404 + SET FILTER TO + SUM totctva - achitat TO m.soldcump + + SELECT furniz404 + SET FILTER TO + SUM totcred - totdeb TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de balanta analitica de facturi este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de balanta analitica de facturi.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCumpLun404 ------------------------------ + +&& ------------------------------INCEPUT: Verana408 ------------------------------ +*!* Procedura: Verana408 +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 10:21:58 +*!* Autor: ANDREI.BAUTU +PROCEDURE Verana408 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Balanta facturi nesosite' + + SELE ANA408 + SET FILTER TO + + IF FLOCK() + REPLACE ALL totdeb WITH precdeb+platit,totcred WITH preccred+achizit + UNLOCK + ENDIF + SUM totcred,totdeb TO M.TACHIZIT,M.TPLATIT + + SELE BAL + SET FILTER TO + SUM soldcred TO m.soldcred FOR LEFT(cont,3)='408' + M.SOLD=M.SOLDCRED + *!* M.SOLD=M.SOLDCRED+M.SOLD + + IF M.sold # m.Tachizit-M.TPLATIT + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 408 este ' + LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT, 12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 408.', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC +&& ------------------------------SFARSIT: Verana408 ------------------------------ + +&& ------------------------------ INCEPUT: VerFact408 ------------------------------ +*!* Procedura: VerFact408 +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 15:19:38 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerFact408 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Facturi nesosite' + + LOCAL soldcump + SELECT FACT408 + SET FILTER TO + SUM totctva - achitat to m.soldcump + + SELECT ANA408 + SET FILTER TO + SUM totcred - totdeb TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de balanta analitica facturi 408 este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de balanta analitica facturi 408.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerFact408 ------------------------------ + + + + + + + + + +&& ------------------------------ INCEPUT: verClienti ------------------------------ +*!* Procedura: verClienti +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 23-01-2004 14:46:21 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerClienti + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Balanta de clienti' + + LOCAL M.SUM1,M.SUM2,M.SUM3,M.SUM4 + + SELECT CLIENTI + SET FILTER TO + IF FLOCK() + REPLACE ALL TOTDEB WITH precdeb + PRODUCTIE, ; + totcred WITH preccred + INCASAT, ; + TOTAVANS WITH PRECAVANS + AVANS + UNLOCK + ENDIF + + SUM TOTAVANS, totcred, TOTDEB TO m.SUM1, M.SUM2, M.SUM3 + + SELE BAL + SET FILTER TO + SUM SOLDDEB TO M.SOLD FOR LEFT(CONT,3)='411' AND CONT<>"4118" + SUM totcred-totdeb TO M.SOLDcred FOR LEFT(CONT,3)='419' + + m.SOLD = m.SOLD + m.SOLDcred + m.SUM4 = M.SUM3-M.SUM2 + m.SUM1 + + IF M.SOLD # M.SUM4 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + '411+419 Diferenta soldului este de: '+ LTRIM(STR(M.SUM4-M.SOLD, 12)), .T., llInTabel, lnId_ref + + *'Diferenta fata de sold debitor 411-sold creditor 419 este ' + LTRIM(STR(M.SUM4-M.SOLD, 12)), .T., llInTabel + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold debitor 411-sold creditor 419.', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: verClienti ------------------------------ + +&& ------------------------------ INCEPUT: VerVanzLun ------------------------------ +*!* Procedura: VerVanzLun +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:51:07 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerVanzLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Facturi de vanzari' + + LOCAL soldvanz + SELECT VANZlun + SET FILTER TO + SUM totctva-achitat TO m.soldvanz + + SELECT clienti + SET FILTER TO + SUM totdeb-totcred TO m.sold + + IF m.sold <> m.soldvanz + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de clienti este ' + LTRIM(STR(m.sold - m.soldvanz, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de clienti.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerVanzLun ------------------------------ + +&& ------------------------------INCEPUT: VerClient4118 ------------------------------ +*!* Procedura: VerClient4118 +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 12:57:43 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerClient4118 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Balanta clienti incerti' + + Local M.SUM2,M.SUM3 + Select CLIENT4118 + Set Filter To + If Flock() + Replace All TOTDEB With precdeb+PRODUCTIE,totcred With preccred+INCASAT + Endif + Unlock + Sum totcred, TOTDEB To M.SUM2,M.SUM3 + + Sele BAL + Set Filter To + Sum SOLDDEB To M.sold For Left(Cont,4)='4118' + + IF M.sold#M.SUM3-M.SUM2 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 4118 este ' + LTRIM(STR(-(M.sold-M.SUM3+M.SUM2),12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 4118.', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerClient4118 ------------------------------ + +&& ------------------------------ INCEPUT: VerVanzLu4118 ------------------------------ +*!* Procedura: VerVanzLu4118 +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 15:47:03 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerVanzLu4118 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Facturi clienti incerti sau in litigiu' + + LOCAL soldcump + SELECT VANZlu4118 + SET FILTER TO + SUM totctva - achitat TO soldcump + + SELECT client4118 + SET FILTER TO + SUM totdeb - totcred TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre sold clienti si sold facturi este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente intre sold client si sold facturi.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerVanzLu4118 ------------------------------ + +&& ------------------------------INCEPUT: Verana418 ------------------------------ +*!* Procedura: Verana418 +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 12:30:51 +*!* Autor: ANDREI.BAUTU +PROCEDURE Verana418 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Balanta facturi neintocmite' + + LOCAL M.SUM2,M.SUM3,M.SUM4 + SELECT ANA418 + SET FILTER TO + + IF FLOCK() + REPLACE ALL totdeb WITH precdeb+productie,totcred WITH preccred+incasat + ENDIF + UNLOCK + + sum totcred, totdeb to M.SUM2, M.SUM3 + + M.SUM4=m.sum3-M.SUM2 + + SELE BAL + SET FILTER TO + SUM SOLDDEB TO M.SOLD FOR LEFT(CONT,3)='418' + + IF M.SOLD#M.SUM4 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 418 este '+ LTRIM(STR(M.SUM4-M.SOLD, 12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 418.', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC +&& ------------------------------SFARSIT: Verana418 ------------------------------ + +&& ------------------------------ INCEPUT: VerFact418 ------------------------------ +*!* Procedura: VerFact418 +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 15:56:05 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerFact418 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Clienti - facturi de intocmit' + + LOCAL soldcump + SELECT Fact418 + SET FILTER TO + SUM totctva - achitat TO m.soldcump + + SELECT ana418 + SET FILTER TO + SUM totdeb - totcred TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre sold 418 si sold facturi 418 este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente intre sold 418 si sold facturi 418.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerFact418 ------------------------------ + + + + + + + + + + + + +&& ------------------------------ INCEPUT: VerDebitor ------------------------------ +*!* Procedura: VerDebitor +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 23-01-2004 16:35:34 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerDebitor + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Balanta de debitori' + + Local m.SUM1,M.SUM2,M.SUM3,M.SUM4 + + Select DEBITOR + Set Filter To + + Select DEBITOR + If Flock() + Replace All TOTDEB With precdeb+DEBIT, totcred With preccred+CREDIT + Unlock + Endif + Sum totcred,TOTDEB To M.SUM2, M.SUM3 + m.Sum3 = m.Sum3 - m.sum2 + + Sele BAL + Sum SOLDDEB, SOLDcred To M.SOLDDEB, M.SOLDcred For Left(Cont,3)='461' + m.SOLD=m.SOLDDEB-m.SOLDcred + + IF M.SOLD # m.Sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de sold 461 este ' + LTRIM(STR(m.Sum3-M.SOLD,12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold 461.', .F., llInTabel, lnId_ref + ENDIF + ENDIF + +ENDPROC +&& ------------------------------ SFARSIT: VerDebitor ------------------------------ + +&& ------------------------------ INCEPUT: VerCreditor ------------------------------ +*!* Procedura: VerCreditor +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 23-01-2004 16:43:56 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCreditor + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Balanta de creditori' + + LOCAL M.SUM2,M.SUM3 + + SELECT CREDITOR + SET FILTER TO + IF FLOCK() + REPLACE ALL TOTDEB WITH precdeb+DEBIT,totcred WITH preccred+CREDIT + UNLOCK + ENDIF + SUM totcred,TOTDEB TO M.SUM2,M.SUM3 + m.sum2 = m.sum2 - m.sum3 + + SELE BAL + SET FILTER TO + SUM SOLDDEB, SOLDcred TO M.SOLDdeb, M.SOLDcred FOR LEFT(CONT,3)='462' + + m.SOLD=m.SOLDcred - m.SOLDdeb + + IF M.SOLD # m.Sum2 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de sold 462 este ' + LTRIM(STR(m.Sum2-M.SOLD,12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold 462.', .F., llInTabel, lnId_ref + ENDIF + ENDIF + +ENDPROC +&& ------------------------------ SFARSIT: VerCreditor ------------------------------ + +&& ------------------------------ INCEPUT: VerDividende ------------------------------ +*!* Procedura: VerDividende +*!* Parametrii: llInTabel, lnId_ref +*!* Data/Ora generarii: 14-04-2004 12:51:56 +*!* Autor: GEORGIANA.VOICU +PROCEDURE VerDividende + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Balanta dividende' + + LOCAL M.SUM2,M.SUM3 + + SELECT dividende + SET FILTER TO + IF FLOCK() + REPLACE ALL TOTDEB WITH precdeb+DEBIT,totcred WITH preccred+CREDIT + UNLOCK + ENDIF + SUM totcred,TOTDEB TO M.SUM2,M.SUM3 + m.sum2 = m.sum2 - m.sum3 + + SELE BAL + SET FILTER TO + SUM SOLDDEB, SOLDcred TO M.SOLDdeb, M.SOLDcred FOR LEFT(CONT,3)='457' + + m.SOLD=m.SOLDcred - m.SOLDdeb + + IF M.SOLD # m.Sum2 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de sold 457 este ' + LTRIM(STR(m.Sum2-M.SOLD,12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold 457.', .F., llInTabel, lnId_ref + ENDIF + ENDIF + +ENDPROC +&& ------------------------------ SFARSIT: VerDividende ------------------------------ + +&& ------------------------------ INCEPUT: VerDebLun ------------------------------ +*!* Procedura: VerDebLun +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 15:12:53 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerDebLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Inregistrari debitori diversi' + + LOCAL solddeb + SELECT deblun + SET FILTER TO + sum totctva - achitat TO m.solddeb + + SELECT debitor + set filter to + SUM totdeb - totcred TO m.sold + + IF m.sold <> m.solddeb + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de balanta analitica debitori este ' + LTRIM(STR(m.sold - m.solddeb, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de balanta analitica debitori.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerDebLun ------------------------------ + +&& ------------------------------ INCEPUT: VerCredLun ------------------------------ +*!* Procedura: VerCredLun +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:57:39 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCredLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Inregistrari creditori diversi' + + LOCAL soldcred + + SELECT credlun + SET FILTER TO + sum totctva - achitat to m.soldcred + + SELECT creditor + SET FILTER TO + SUM totcred - totdeb TO m.sold + + IF m.sold <> m.soldcred + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de balanta analitica creditori este ' + LTRIM(STR(m.sold - m.soldcred, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de balanta analitica creditori.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCredLun ------------------------------ + +&& ------------------------------ INCEPUT: VerDivLun ------------------------------ +*!* Procedura: VerDivLun +*!* Parametrii: llInTabel, lnId_ref +*!* Data/Ora generarii: 14-04-2004 12:47:39 +*!* Autor: GEORGIANA.VOICU +PROCEDURE VerDivLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Inregistrari dividende' + + LOCAL soldcred + + SELECT divlun + SET FILTER TO + sum totctva - achitat to m.soldcred + + SELECT dividende + SET FILTER TO + SUM totcred - totdeb TO m.sold + + IF m.sold <> m.soldcred + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de balanta dividende este ' + LTRIM(STR(m.sold - m.soldcred, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de balanta dividende.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerDivLun ------------------------------ + +&& ------------------------------ INCEPUT: VerActionar ------------------------------ +*!* Procedura: VerActionar +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 10:18:05 +*!* Autor: ANDREI.BAUTU + +PROCEDURE VerActionar + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Balanta de actionari' + + LOCAL M.SUM2,M.SUM3 + + SELECT actionar + SET FILTER TO + IF FLOCK() + REPLACE ALL TOTDEB WITH precdeb+DEBIT,totcred WITH preccred+CREDIT + UNLOCK + ENDIF + SUM totcred,TOTDEB TO M.SUM2,M.SUM3 + m.sum2 = m.sum2 - m.sum3 + + SELE BAL + SET FILTER TO + SUM SOLDDEB, SOLDcred TO M.SOLDdeb, M.SOLDcred FOR LEFT(CONT,3)='455' + + m.SOLD=m.SOLDcred - m.SOLDdeb + + IF M.SOLD # m.Sum2 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de sold 455 este ' + LTRIM(STR(m.Sum2-M.SOLD,12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold 455.', .F., llInTabel, lnId_ref + ENDIF + ENDIF + + +ENDPROC +&& ------------------------------ SFARSIT: VerActionar ------------------------------ + + + + + + + + + +&& ------------------------------INCEPUT: VerCasaNume ------------------------------ +*!* Procedura: VerCasaNume +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 14:05:56 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCasaNume + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Casa' + lcSursa = 'Solduri case' + + LOCAL m.sum1,m.sum2,m.sum3 + Sele CASANUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.sum3=M.sum1-M.sum2 + m.SOLDDEB=0 + m.SOLDCRED=0 + Sele Bal + Seek '5311' + IF FOUND() + Scatter Memvar + ENDIF + + IF M.SOLDDEB-M.SOLDCRED # M.sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 5311 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 5311.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC + +&& ------------------------------SFARSIT: VerCasaNume ------------------------------ + +&& ------------------------------ INCEPUT: VerCasa ------------------------------ +*!* Procedura: VerCasa +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:16:47 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCasa + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Casa' + lcSursa = 'Registrul de casa' + +*!* SELECT BAL +*!* LOCATE FOR cont='5311' +*!* m.solddeb = solddeb + Sele CASANUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.solddeb=M.sum1-M.sum2 + + SELE CASA + SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI + IF M.TINCASARI-M.TPLATI# M.SOLDDEB + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de solduri case este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de de solduri case.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCasa ------------------------------ + +&& ------------------------------INCEPUT: VerCASVNUME ------------------------------ +*!* Procedura: VerCASVNUME +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 13:52:28 +*!* Autor: ANDREI.BAUTU + +PROCEDURE VerCASVNUME + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Casa' + lcSursa = 'Solduri case in valuta' + + LOCAL m.sum1,m.sum2,m.sum3 + Sele CASVNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.sum3=M.sum1-M.sum2 + + Sele Bal + Seek '5314' + m.SOLDDEB=0 + m.SOLDCRED=0 + If Found() + Scatter Memvar + ENDIF + IF M.SOLDDEB-M.SOLDCRED # M.sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 5314 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 5314.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerCASVNUME ------------------------------ + +&& ------------------------------ INCEPUT: VerCasaVal ------------------------------ +*!* Procedura: VerCasaVal +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:16:47 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCasaVal + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Casa' + lcSursa = 'Registrul de casa in valuta' + +*!* SELECT BAL +*!* LOCATE FOR cont='5314' +*!* m.solddeb = solddeb + Sele CASVNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.solddeb=M.sum1-M.sum2 + + SELE CASAVal + SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI + IF M.TINCASARI-M.TPLATI# M.SOLDDEB + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de solduri case este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de solduri case.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCasaVal ------------------------------ + + + + + + + + + + + +&& ------------------------------INCEPUT: VerBanNume ------------------------------ +*!* Procedura: VerBanNume +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 14:23:52 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerBanNume + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Banca' + lcSursa = 'Solduri banci' + + LOCAL m.sum1,m.sum2,m.sum3 + Sele BANNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.sum3=M.sum1-M.sum2 + m.SOLDDEB=0 + m.SOLDCRED=0 + + Sele Bal + Seek '5121' + IF FOUND() + Scatter Memvar + ENDIF + IF M.SOLDDEB-M.SOLDCRED # M.sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 5121 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 5121.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerBanNume ------------------------------ + +&& ------------------------------ INCEPUT: VerBanca ------------------------------ +*!* Procedura: VerBanca +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:16:47 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerBanca + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Banca' + lcSursa = 'Registrul de banca' + +*!* SELECT BAL +*!* LOCATE FOR cont='5121' +*!* m.solddeb = solddeb + Sele BANNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.solddeb=M.sum1-M.sum2 + + SELE BANCA + SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI + + IF M.TINCASARI-M.TPLATI# M.SOLDDEB + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de solduri banci este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de solduri banci.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerBanca ------------------------------ + +&& ------------------------------INCEPUT: VerBanVNume ------------------------------ +*!* Procedura: VerBanVNume +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 14:18:18 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerBanVNume + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Banca' + lcSursa = 'Solduri banci in valuta' + + LOCAL m.sum1,m.sum2,m.sum3 + Sele BANVNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.sum3=M.sum1-M.sum2 + m.SOLDDEB=0 + m.SOLDCRED=0 + Sele Bal + Seek '5124' + IF FOUND() + Scatter Memvar + ENDIF + IF M.SOLDDEB-M.SOLDCRED # M.sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 5124 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 5124.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerBanVNume ------------------------------ + +&& ------------------------------ INCEPUT: VerBancaVal ------------------------------ +*!* Procedura: VerBancaVal +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:16:47 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerBancaVal + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Banca' + lcSursa = 'Registrul de banca in valuta' + +*!* SELECT BAL +*!* LOCATE FOR cont='5124' +*!* m.solddeb = solddeb + Sele BANVNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.solddeb=M.sum1-M.sum2 + + SELE BANCAVal + SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI + IF M.TINCASARI-M.TPLATI# M.SOLDDEB + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de solduri banci este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de solduri banci.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerBancaVal ------------------------------ + + + + + + + +&& ------------------------------INCEPUT: VerCecNume ------------------------------ +*!* Procedura: VerCecNume +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 14:30:32 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCecNume + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Alte' + lcSursa = 'Cec - Solduri' + + LOCAL m.sum1,m.sum2,m.sum3 + Sele CecNume + Sum INCARCAT +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.sum3=M.sum1-M.sum2 + m.SOLDDEB=0 + m.SOLDCRED=0 + Sele Bal + Seek '5112' + IF FOUND() + Scatter Memvar + ENDIF + IF M.SOLDDEB-M.SOLDCRED # M.sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 5112 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 5112.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerCecNume ------------------------------ + +&& ------------------------------ INCEPUT: VerCec ------------------------------ +*!* Procedura: VerCec +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:16:47 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCec + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Alte' + lcSursa = 'Cec - Registrul de operatiuni' + +*!* SELECT BAL +*!* LOCATE FOR cont='5112' +*!* m.solddeb = solddeb + Sele CecNume + Sum INCARCAT +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.solddeb=M.sum1-M.sum2 + + SELE CEC + SUM INCARCAT, PLATI TO m.tINCASARI, M.tPLATI + IF M.TINCASARI-M.TPLATI# M.SOLDDEB + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de solduri CEC este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de solduri CEC.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCec ------------------------------ + +&& ------------------------------ INCEPUT: VerAchit542 ------------------------------ +*!* Procedura: VerAchit542 +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 09:51:54 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerAchit542 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Alte' + lcSursa = 'Balanta de achizitori' + + Local m.SUM1,M.SUM2,M.SUM3,M.SUM4 + Select achit542 + Set Filter To + + IF Flock() + Replace All TOTDEB With precdeb+DEBIT, totcred With preccred+CREDIT + UNLOCK + ENDIF + Sum totcred, TOTDEB To M.SUM2, M.SUM3 + M.SUM1 = M.Sum3-m.sum2 + + Sele BAL + Set Filter To + Sum SOLDDEB, SOLDcred To M.SOLDDEB, M.SOLDcred For Left(Cont,3)='542' + m.SOLD=m.SOLDDEB-m.SOLDcred + + If M.SOLD # M.SUM1 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de sold 542 este ' + LTRIM(STR(m.Sum1-M.SOLD,12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold 542.', .F., llInTabel, lnId_ref + ENDIF + ENDIF + +ENDPROC +&& ------------------------------ SFARSIT: VerAchit542 ------------------------------ + +&& ------------------------------ INCEPUT: VerAchiLun ------------------------------ +*!* Procedura: VerAchiLun +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 16:08:22 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerAchiLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Alte' + lcSursa = 'Avansuri de trezorerie' + + LOCAL soldcump + SELE achilun + SET FILTER TO + SUM totctva - achitat TO m.soldcump + + sele achit542 + set filter to + SUM totdeb - totcred TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre sold achizitori si sold inregistrari este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente intre sold achizitori si sold inregistrari.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerAchiLun ------------------------------ + + + + + + +&& ------------------------------ INCEPUT: VerCump ------------------------------ +*!* Procedura: VerCump +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 11:33:20 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCump + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Registrul de cumparari' + + LOCAL llDiferente + m.stotctva=0 + SELE act + SUM suma TO m.f767 FOR LEFT(scc,3) = '767' AND INLIST(LEFT(scd,3),'401','404') + + SELECT BAL +*!* SEEK '767 ' +*!* m.f767=rulcred + SEEK '401 ' + m.f401=rulcred + SEEK '404 ' + m.f404=rulcred + m.f401404=m.f401+m.f404-M.F767 + seek '4426' + m.f4426=ruldeb + + SELECT CUMP + SUM totctva, neimpozab, totftvaI, tvaI, totftvaM, tvaM ; + TO m.Stotctva, m.Sneimpozab, m.StotftvaI, m.StvaI, m.StotftvaM, m.StvaM + M.ADUN=m.Sneimpozab + m.StotftvaI + m.StvaI + m.StotftvaM + m.StvaM + IF M.STOTCTVA # M.ADUN + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta este ' + LTRIM(STR(M.STOTCTVA-M.ADUN, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + SELECT cump + SUM totctva TO m.stotctva FOR INLIST(LEFT(scc,3),'401','404') + + IF M.STOTCTVA # M.f401404 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de 401+404 este ' + LTRIM(STR(M.STOTCTVA-M.f401404, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF m.f4426 # m.StvaM + m.stvai + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta de TVA este ' + LTRIM(STR(m.f4426-m.StvaM-m.stvai, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF !llDiferente AND llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCump ------------------------------ + +&& ------------------------------ INCEPUT: VerVanz ------------------------------ +*!* Procedura: VerVanz +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 11:48:29 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerVanz + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Registrul de vanzari' + + LOCAL m.f461, llDiferente + SELECT vanz + SUM totctva, neimpozab, totftvaI, tvaI, totftvaM, tvaM ; + TO m.Stotctva, m.Sneimpozab, m.StotftvaI, m.StvaI, m.StotftvaM, m.StvaM + M.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+m.StotftvaM+m.StvaM + + IF M.STOTCTVA # M.ADUN + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta este ' + LTRIM(STR(M.STOTCTVA-M.ADUN, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + + SELE act + SUM suma TO m.f667 FOR LEFT(scd,3) = '667' AND INLIST(LEFT(scc,3),'411') + + SELE BAL +*!* SEEK '667 ' +*!* m.f667=rulDEB + + SEEK '461 ' + m.f461=IIF(FOUND(), rulDEB, 0) + + SUM RULDEB TO M.RULDEB FOR LEFT(CONT,3)='411' AND cont<>'4118' + + sele vanz + Sum totctva,neimpozab,totftvaI,tvaI,totftvaM,tvaM; + TO m.stotctva,m.Sneimpozab,m.StotftvaI,m.StvaI,; + M.StotftvaM,m.StvaM For Left(SCD,3)='411' And scd<>'4118' + + SUM tvam, tvai TO tvam419, tvai419 FOR LEFT(scd,3) = '419' + + m.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+; + M.StotftvaM+m.StvaM + + If M.stotctva + (tvam419 + tvai419) != M.ruldeb - M.f667 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de 411 este: '+ LTRIM(STR(M.stotctva + (tvam419 + tvai419)-M.ruldeb+M.f667,12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + + +*!* SUM totctva, neimpozab, totftvaI, tvaI, totftvaM, tvaM ; +*!* TO m.Stotctva, m.Sneimpozab, m.StotftvaI, m.StvaI, m.StotftvaM, m.StvaM ; +*!* FOR LEFT(SCD,3)='411' AND cont<>'4118' +*!* +*!* M.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+m.StotftvaM+m.StvaM +*!* +*!* IF M.STOTCTVA != M.RULDEB-M.F667 +*!* DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; +*!* 'Diferenta fata de 411 este ' + LTRIM(STR(M.STOTCTVA-M.RULDEB+M.F667, 12)), .T., llInTabel, lnId_ref +*!* llDiferente = .T. +*!* ENDIF + + IF !llDiferente AND llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerVanz ------------------------------ + +&& ------------------------------ INCEPUT: VerBal ------------------------------- +*!* Procedura: VerBal +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 12:00:13 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerBal + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = '' + lcSursa = 'Balanta' + + local trd, trc, s, pd, pc, td, tc, llDiferente + store 0 to trd,trc,s,pd,pc,td,tc + SELECT ACT + SET FILTER TO + SUM SUMA to S + + SELE BAL + SUM RULDEB, RULCRED, precdeb, preccred TO TRD, TRC, pd, pc + IF TRD<>TRC + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Balanta dezechilibrata cu ' + LTRIM(STR(TRC-TRD, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF TRc<>s + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferente intre jurnal si balanta pe credit este ' + LTRIM(STR(TRC-S, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF TRD<>s + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferente intre jurnal si balanta pe debit este ' + LTRIM(STR(TRD-S, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + + SELECT calendar + LOCATE FOR nl=pcnl and an=pcan + SKIP -1 + if bof() OR !FOUND() + RETURN + ENDIF + dateprec = calefirma+'\an'+an+'\date'+nl + use &dateprec\bal in 0 alias bal_prec + SELECT bal_prec + SUM totdeb, totcred, solddeb, soldcred to td, tc, sd, sc + + IF m.nl<>'01' + IF pd<>td + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pd-td, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF pc<>tc + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pc-tc, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + ELSE + IF pd<>sd + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pd-sd, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF pc<>sc + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pc-sc, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + ENDIF + use in bal_prec + IF !llDiferente AND llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente.', .F., llInTabel, lnId_ref + ENDIF + +m.nl=pcnl +m.an=pcan + +ENDPROC +&& ------------------------------ SFARSIT: VerBal ------------------------------ + +&& ------------------------------ INCEPUT: VerAct ------------------------------ +*!* Procedura: VerAct +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 12:14:27 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerAct + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Diverse' + lcSursa = 'Registrul jurnal' + + local trd,trc,s,pd,pc,td,tc, llDiferente + store 0 to trd,trc,s,pd,pc,td,tc + SELECT ACT + SET FILTER TO + sum SUMA to S + + SELE BAL + SUM RULDEB,RULCRED,precdeb,preccred TO TRD,TRC,pd,pc + IF TRD<>TRC + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Balanta dezechilibrata cu ' + LTRIM(STR(TRC-TRD, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF (TRc<>s) + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre jurnal si balanta pe credit este ' + LTRIM(STR(TRC-S, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + endif + IF (TRD<>s) + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre jurnal si balanta pe debit este ' + LTRIM(STR(TRD-S, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF !llDiferente AND llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerAct ------------------------------------- + +&& ------------------------------INCEPUT: VerificareLunaDeschisa ------------------------------ +*!* Procedura: VerificareLunaDeschisa +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 14:39:07 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerificareLunaDeschisa + LPARAMETERS llInTabel + sterge_mesaje() + +&& Diverse + DO VerBal IN verifica WITH llInTabel, 1 + + *DO VerAct IN verifica WITH llInTabel, 36 + +&& Terti - Furnizori + DO VerCump IN verifica WITH llInTabel, 11 + + DO VerFurnizor IN verifica WITH llInTabel, 9 + DO VerCumpLun IN verifica WITH llInTabel, 10 + + DO Verfurniz404 IN verifica WITH llInTabel, 13 + DO VerCumpLun404 IN verifica WITH llInTabel, 14 + + DO Verana408 IN verifica WITH llInTabel, 19 + DO VerFact408 IN verifica WITH llInTabel, 20 + +* DO VerAvans409 in verifica WITH llInTabel + +&& Terti - Clienti + DO VerVanz IN verifica WITH llInTabel, 5 + + DO VerClienti IN verifica WITH llInTabel, 3 + DO VerVanzLun IN verifica WITH llInTabel, 4 + + DO VerClient4118 IN verifica WITH llInTabel, 7 + DO VerVanzLu4118 IN verifica WITH llInTabel, 8 + + DO Verana418 IN verifica WITH llInTabel, 25 + DO VerFact418 IN verifica WITH llInTabel, 26 + +* DO VerAvans419 in verifica WITH llInTabel + +&& Terti - Alti + DO VerDebitor IN verifica WITH llInTabel, 15 + DO VerDebLun IN verifica WITH llInTabel, 16 + + DO VerCreditor IN verifica WITH llInTabel, 17 + DO VerCredLun IN verifica WITH llInTabel, 18 + + DO VerDividende IN verifica WITH llInTabel, 34 + DO VerDivLun IN verifica WITH llInTabel, 35 + + DO VerActionar IN verifica WITH llInTabel, 36 + +&& Trezorerie - Casa + DO VerCasaNume IN verifica WITH llInTabel, 21 + DO VerCasa IN verifica WITH llInTabel, 21 + + DO VerCASVNUME IN verifica WITH llInTabel, 22 + DO VerCASAVal IN verifica WITH llInTabel, 22 + +&& Trezorerie - Banca + DO VerBanNume IN verifica WITH llInTabel, 23 + DO VerBanca IN verifica WITH llInTabel, 23 + + DO VerBanVNume IN verifica WITH llInTabel, 24 + DO VerBancaVal IN verifica WITH llInTabel, 24 + +&& Trezorerie - Alte + DO VerCecNume IN verifica WITH llInTabel, 31 + DO VerCec IN verifica WITH llInTabel, 31 + + DO VerAchit542 IN verifica WITH llInTabel, 28 + DO VerAchiLun IN verifica WITH llInTabel, 29 + + + +*!* if(llInTabel) +*!* raport_mesaje() +*!* ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerificareLunaDeschisa ------------------------------ \ No newline at end of file diff --git a/Rapoarte/balanta_parteneri_rpt1.fr2 b/Rapoarte/balanta_parteneri_rpt1.fr2 new file mode 100644 index 0000000..9f74f11 --- /dev/null +++ b/Rapoarte/balanta_parteneri_rpt1.fr2 @@ -0,0 +1,683 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="balanta_parteneri_rpt1.frx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + +