From d8b4e74c4f689dd8886311a689549dd7f1716d0d Mon Sep 17 00:00:00 2001
From: Marius Mutu <mmarius28@gmail.com>
Date: Wed, 8 Jul 2026 19:47:27 +0300
Subject: [PATCH] Corecteaza trunchierea NRDOC la transformare in MF; adauga
 docs/ si actualizeaza changelog

Fix STR() fara lungime in Clase/oimobilizari.vcx (frm_introducere.inainte_de_do_termin),
aplicat si in rapoartele jurnal.frx/listmfcota.frx. Adauga v2.1.43 in changelog.
Introduce docs/ cu insight-uri de proiect (flux transformare, pack_imob, tabele) si
sectiunea corespunzatoare in CLAUDE.md.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
---
 CLAUDE.md                       |    4 +
 Clase/oimobilizari.vct          |  Bin 538483 -> 538501 bytes
 Clase/oimobilizari.vcx          |  Bin 78858 -> 78858 bytes
 Rapoarte/jurnal.FRT             |  Bin 21184 -> 20864 bytes
 Rapoarte/jurnal.frx             |  Bin 29032 -> 29032 bytes
 Rapoarte/listmfcota.FRT         |  Bin 32768 -> 32512 bytes
 Rapoarte/listmfcota.frx         |  Bin 36360 -> 36360 bytes
 changelog_roaimob.txt           |   12 +-
 docs/README.md                  |   11 +
 docs/flux-transformare-in-mf.md |   25 +
 docs/pack_imob.md               |   22 +
 docs/tabele.md                  |   18 +
 pack_imob.pck                   | 3317 +++++++++++++++++++++++++++++++
 roaimob.PJT                     |  Bin 3948672 -> 3948736 bytes
 roaimob.PJX                     |  Bin 169023 -> 169023 bytes
 15 files changed, 3407 insertions(+), 2 deletions(-)
 create mode 100644 docs/README.md
 create mode 100644 docs/flux-transformare-in-mf.md
 create mode 100644 docs/pack_imob.md
 create mode 100644 docs/tabele.md
 create mode 100644 pack_imob.pck

diff --git a/CLAUDE.md b/CLAUDE.md
index ed64bea..373003c 100644
--- a/CLAUDE.md
+++ b/CLAUDE.md
@@ -47,3 +47,7 @@ Reads the file list straight from `roaimob.PJX`, so it only converts files this
 - **Changelog convention**: `changelog_roaimob.txt` holds HTML-comment-wrapped, dated (`dd/mm/yyyy`) entries per version (`ROAIMOB - X.Y.Z`), each with Romanian-language notes tagged `:nou:` (new), `:modificare:` (change), `:eroare:` (bug fix), or `:adaugare:` (addition). Follow this exact format/tagging when documenting a change here.
 
 - **Unrelated nested project**: `COMUN/utile/chatbot/` is a standalone Flowise-embed HTML support chatbot (`chatbot_maria.html`) with its own README.md and CLAUDE.md. It has no relation to the FoxPro/Oracle asset-management app — don't conflate its guidance with ROAIMOB itself.
+
+## Project insights (docs/)
+
+`docs/` holds short, concrete notes discovered while working on real tasks — flows (e.g. transformare imobilizare in curs -> MF), `pack_imob` procedures, `IMOB_*` table layout — that go beyond what CLAUDE.md covers. See `docs/README.md` for the index. **Proactively offer to update `docs/` whenever you uncover a non-obvious project insight while fixing a bug or investigating a flow** (don't wait to be asked), so future sessions can reuse it instead of re-investigating from scratch. Keep entries concise and factual — no restating what's obvious from reading the code.
diff --git a/Clase/oimobilizari.vct b/Clase/oimobilizari.vct
index 8a5c0baa32b8f9b33b6c19658f8049c91d770f6b..d4e471df307cd23ad0a2660bb4c8514b6c2fd103 100644
GIT binary patch
delta 1999
zcmaJ>32+ou5dHm+nLXI-E=e}`<q|gm3|SHkmTpo+1ql(@90&-Clm`k45EaD(H5A~L
z66zyOp@J035z7O&^ouuDU{FkgN(In_0AhIo0Z}=OiGMbrqLx$D^LwUyx?jKUo|DHi
z7j<Qt#8$M35Q1}Wr%9VLPwte5n#V<AKW&8s7rF7u($W!?R|oS(*WP~DVC_XnZ?6ot
zq<Zf^_Yfp=NtlFTsH|zpm0^c3DM?#y)dE_C7S!@RCB%p{w={8?&^85Mo@O{?zcy!N
z`4_bm^V7hH%x~Mn;7UBYohC#|zWN;G_%HX!{Eh_NG+Q`viVOP5%nn=7rvq6Sg5)!@
zOaPo9UhqN|eFQ$E^{^HSNEXc1wu2-HK?uVLOt0c;@l=0i;c;on)4ItB@yN!G`7j0F
zso*)XVgD)&&lXq7f{wTgQ^t2$8KWt!z(KIm6k>7}&x${z4OUoFOSV=jv^XOhJ4+}|
zO9cmR+(Jtu!@q6>%vYvEb{=xcuI>pkbZBK?(cc|zF)h!KEI;}h7MtR{PZow+s0)+s
z<0%n#>`2U?;RZ(1d)|e=yB_Wfb)ff7j%flmXyTURw;V40H+$J%Xq<nQa*+HFW9{1U
zd}%hVv}tjuumQzfUGIcWt3k`r?}Xw1&SQ6;?-Dk+Ai+EAKbw-?twUNVtfu7XFHULc
zuXU2E<yqXE49V(O7tC>4)$h81LVV7m_oEb8xI|Bn%1@(-^W}yeF?hNfUcwJbp-5eU
z^a>l!9t|!zaiCj0yN0H6+-~Qon6sODRr@+xyI;<WEtf0N6Metp1iM5XuV<Je6E}Eq
z%_B4pTb}{9oHjK^HNC_hyGn&lvm(G53t2Hv>jHrf?gvxtJHc)?R%BDJe0YmnUH3b?
z1hA+H`l}UZ*j9$y>^u#NvZ)7?eBhN!KN^N}%6O`5du60tx+T8vVb2Sbq-{_PzPO$F
z)V?03QADBU3GS7TUgW_WN+1@Ge+XW+h4M)hCpdU4o(=F!JQAQTRVjD{$3i!6$2V`*
zxYN^lLbUAn9Q>YhW!Dz+e7Vcxi)O^d={!z$c8<hv13J<*huJpujfY?6!o7Yz9mnMG
z{y4RXxh%^YYFq|?&L(G`jj>XOF&N@GQGTd!<AD&*RIldnG6UP)v=0yNE`$5jsv&$g
z$HovJfbN;JpITkWr`s^?K^kQs4R<{CPf~EkMYO-#AL3K{Sro?N;wnA__s)XL@tp!X
zOdT!bi|ttUI?cvv8}~#ziA!>sANN*iTtB?4yES@Xj2c_b7u2b7JNa!)ecHqqGJLaz
zyJbm-?ZVx*OZ^{+E(DHf<)ipeJ*e1dhg5vNopVfV)peE{rY|W=dp*hf#x+~(Z)v^G
zt|wKgRzAHlx}M6OBj)kHkEv4)@QZC6SKGOv77Z2^$!dM9t=X?K^353xKVGBj*hINo
zjjR>v0o+u=+|pC(Ru4Zd5YTpr`Ot~NsfMEPOu>@(c`@#~g>rl{!ZNU|o~_5~pT!$g
zoW+ClS+XkoMQoVq^&Rf{sW+2ai?!2d$ue(Z%H!5gk66e{<MmBnb=p?1&sue?%SbVy
zTRBb{l@!*g8_pP%>GP&;BZ=~{j-Ga0&|_?3r)iuD^coW=EXM_4PKG0DADCedTXB$K
zj&RrOwY}B~ZLRN4pWND*NQF%vZy1D~TluB<(0V=Fu|FEf)w0!wy<9CRFf$H#12uo*
ztqKrQ70`I|Qo`r)o*ZC>B;>b?2|1?E46BH9S2rV!R1>0#r;E*YNKivY2`1oeRZuP#
z8t^u%3b7R8)HRi24vU`^+hdZEr|L+LApYDQ8(DBhRH)_&q8`A&@e{?p(Gqt|6nBHA
zVQ8`_gt1sRS*)cZPQ_m@a!rgA<^X$#Zhha_+)*Q*fC7~|OAG<1!SWiB1_cOtG~Vyg
zE`{E{nHi<^8?`P&gv_(PwK%E@L^;ZB!14xTnEJ#p{eCuhXudj{YYsPPXtmPsOT5_Z
hF|$?TO~#}Ys*QI(U<8~|w^d7wF)XTm^SE&v{R37AXAuAZ

delta 1925
zcmZuy3s96*6uz(j|M$VNyDYn~EW+X{3kC5IqZbiqqzD+IW@gFIOo|#I=BVYUVLsCG
zb<JaCXwyrnG+UjUO%qEPFoUf+IZh8rEt;e;p|lV+=>AJqPTigJ-?RTYd(J)IIp5t?
zJ>H8Kyc#m(E<gyu{A%Lf@4eU&s5){KbH|a1d|W6VI(Jb+tOd;+Q&?C~ac|Zw<7=v)
zyo#ki8XU~x3qz?|HkyyhQ90QCIL4hU4T}jvx`#{34ykubi3xljYGVQAL=Ays4XTM>
z`NGV%ela7k;AAI-nh3m=hfa+N-2e4Ym}hpzz=TuG3^Ob^f_pm+MtVIVY_?zr&gS=b
z#_&nOIOi3aLbsWvBuho32u1M5&LuE)GKt%A+RuI8w){6Btlhz)%=6K4l!fc@Yj_kK
zXUq+~JD5$GB*UnI-KX;jl*Z$!ytr$7_{4BeJht$jYdLWA5Qz<p`mPZ}<}j=V&UJ+}
z-8E_3Q!MEQR}&AO{~mTVGc`ai{2VzHuViq;KTd(3YrPoGOw`oCnZX4t3<PXY@U8d(
zc)mvQ!6JrN{`dUG-(|hw4uk<Q>n%8r&LUY0FAsX0J<@m`7LQa;N{JBVD!x0M;)vL2
z!l(Za=*u_6b!W?{b_L^KP!dkU$8iCEhU$3bgz-w~{a2cJnW9fNIzo?-DrE=kkHc}|
zcMGny=#_u}Pt_7d6V!Te>lz85$Q(vum%!>aY=^!n_+4l!#JTYGRGcCzfkYeN%X!!d
zcUXy4Y}!fU8O$C|qD0&4WW~4e(naMhalW2H3ST?i2DQ;R8rF3YE6=>cB0hVEJ~tMM
z>S-xVBP<@qZ6g-G0wQ7Qcx)Sb)l^T@!R^9!zNvLI%uHbMV%0BnuPVxVX)cD`k;DeM
zZ8%D7>8H(9R9vR%m@jY5g7bb7DS`uZJLTsLPJVK)GkkzY^05PYgV-((5%wU_lcdAW
zXNXf&D6E`;$wj@eJC6;6=>v3HI3YwS%)wt#vU%~_QP6vtSRwc<&4<c2sRo(xguzE0
z*dlCZmc-x<BRd664vEzA7JLxi{}5Zn85_IZ0$WWihF5PJDgyRdSu~`)K@W<FiR@Ja
zo44@MI_UMYhv4Z17R9U2>IEl?H7RVK%EupY!jFCy1t*H}Q{v?ec7j2vm1T;C99Ct3
zl0xEyj1)HZZ;YTOhmC-?jl?ES=COw(U@%#h<;`Q+P-bP7;)i0k+Nk5^fTCiS0o{GX
z2PY=8a{lG}BSqm9wyaM0JJ?Dpf^BRTg~kxG^88K%+(`O;lFLIgo^_N>kR0s}vHRdn
zKXbX0q~RMjG~<4$YYIYjMugJDJ4abng+6X(vCpp@X3+VYYPwEc6P%yJjKb?v9%o_h
ziX~~vq&T~O*1)fWULq$LmC0~r{>}E-QKwquG^3GHejXtoa{VSRw+nK2>o5OW*C?WB
z3PSd1AKDA{TU3vr0j-PS1LB;}R;u^_%=<*!gd@ctpJ=tz`IuusLq&acXh1=})Byup
z)~}R^`cJibj1ee@wZ&q^VQnEcOn*haYD8)BW@^?FA+c4n;Bk=Ns=Y=A9pYH4ma2*D
zJ=%UFB<*1%jCXnT^T-=nd=SzyaH7RK8Dm_4^iP%ChfCTPpf0jmJ_9HRl0({h7=D$y
zd|vsxva}&6cT2rm>M!I;NOd%H9+&xfb7QQ?sZkRAaHx;oESA5hti`(O5h<Y9X7Fh@
zS)qd~g|IF_6QMVexnLM5W|-Ya)4<(8>`-A~_8S=j`InS~kXkP1uIDC6=u4NBmboNv
zJJ@D2uP8Db9`TT@95|L`aEqp7L!?<qbpjO$qYbkN?3^aM8Z@e^=<C-q?Bczps<lMC
zzDTtxcGuazyV)-Pg4$iOo1Rf|*SneTltsz)gtXPmeXh7#sd_ZrFJfk^6$I}RbLXgp
z%Dv`s)lJw0)4*4-{t0!D$gNeU61*8U)Tz^Px9F}@%bEOo=OVShx?Dn4s)yAfYj^38
ok<@kYW4|_9tU0FneB!-}+HI<6n4?rt@o~GFct&&-DWCiP1bwDvl>h($

diff --git a/Clase/oimobilizari.vcx b/Clase/oimobilizari.vcx
index 0e08bd651b66f6a69c8c7820700265db7c018c5f..8caa5e9fe3bd3b58c559a04556751e08f6821741 100644
GIT binary patch
delta 10674
zcmY+K2V4}#`^IN?k2~N1DYA+vaG-(+ct<^q1r-n#1Us5&>_(%+j=iQ>V;OZNielGj
zjCvYkEMSYq^0PNA!NeYo*iobYpV>Ls`_Jd|<=LJ0+1Yn@XJ>ckm~~$_>%LBBu3>QA
zuG^{;8rf{RAW`UMyP%KLx!*Y^5mu&#=|~GI8&8Rs%jnss88q50Tr9Y%G}8-FG|8ii
zZJAqNozQuq*OAD`0+C$bDU$I$1>%2OR5y?Mi#Ox^xsE*8>ZI1OKSA`FSCUM2iKOv4
zkvv`_5}&mqIfSiU_R|BWQ)rO4!PGe@(Hfl?6P*~FxHVlOK01-q4im|OR|4rnL^AzC
zg_8<Cfr3a)KH2iYwtR;==-f6Ed7mkf_+GSGL@K@L;}u+*A(0!X`VpaVz|ce@-<0r8
zI%AW@E9k0#C|c_8Q70q1Q>#=hgJ+E;at<5-oj@ZXo<PIN)bpiFsAlXODv`2A5=n(x
zKy~oAHQ&WtdZTKVoa`f!^12d<fd+x4ZW7sklnRs5Xi{@0I^Wkd_-j=41sy;$5C)EX
z!yC!=mdLVH>^X`SCwtIx-zu^{!mM~eySxxd49GL0#a6Vx>>&qWwG>z6G$;lez}IPL
zA%&inz2${i?F07T6iEg&78KV(_!HVQG|cs%e10vT{jHwwvg$heQ#Ef(;YyMG<tvhJ
zS_$gD+j#OEO!+!;%2lt{u|HoRUSm5UXJ}b9tGpkLEd|rTQ1EPlNVYAoH*BD@st1Y%
z9!NZu_VClw*H{g9x3AU_NB^aE!E=5Af{{M;8!Rrrfh|+%zrzf4ON{_A?@x8r+rN%@
z<~lB9s%^5rQ4miis3$AS>_Ly!d~8YlQzZYG1#%4sz)I{|u4fwS$jI|LwT}InStJl2
zA3_e%yS1#r{WpkY=dU6;F-9ck(j`(8k(Gt~kOvLYk;MwXCrbU@=(qqs_s?-~1wBR5
z47!CD1Y`$4H%a8$NQrDg{~a+;Ak&T!GHMoY!3XsnLew-_104hXJgf&r5`i5(IY-Ef
zNeHFVs31K(8d$~q9o!oah~#21?uZ8>X?@uq_LAr0QpX2Nqz-5vgboh<GXUWf`a_Vn
z@9_ZieUJy<;P}TwOKk^&Y=Zm0^LZ+1o&xDcrv~>Fn;&L})Pfc}8);*`vn?^CrX=op
zqh^_vU)7dZx1&%?sVR~5o+2?k=O^yz0DcCOKIlj=bq!0Gb;x!vT=xqF@@WT&Ou)T+
z`FqxMGTj#DBj>l{J3fc|uO;}qi;gT+*yW>1_4TF>L5T?o=9oCE)%p^5FDtEZS^`1*
za*<p;f_&Npx9p_ZK0$~TFX%Gd<h@|KGmY8khk9=Et|mOZ6x#d~iL~1+k*@|+<l{^S
zhZ}wKBDlwfYqqf-@=DW@V^r9bf{dN%)o`P1MlCD1;kf@%BtLf4k;nZjTQPOj@@XY=
z>m5lVLx@DKj*!TP5j^c~nyoQHto-z!NE(!j<StUL!))m^D8lHQg$vC}bLe#3p?eVa
zrb!Xm@+@>{R>GmS>mr$m)Yc4FH+&mml!Gtvu;GMA_8k{VdxYPHv9Kvt+xu2TSZNAv
zc0?pIa9k#}5mTJznth17#uwsFKnK0$hM~)iwG|Yvx!&&Mu1t*Yi+6~m=?9Ulq`jiD
z<!szVti-ND&s~oJ<TY;p*Y<1eL~Ar~lYLRm$~bgS^9qslLysQA(oLmL8rZvo#T;W!
zwCWILC6$UK0azc3#OWdRib<nS8wBcS;%<EvTCpMRZT8pqz!`dXQ+1p$2kK8_z#FMK
z8d?1H-{Jgqxvo0aSpxMVu8E`x8wyjYXS7NG>Y_*vUR0x#qXYFlaIW^&R-+H2O-`TV
z<QS-D%oqA{?7EMn1`fxV^v=KFUfrc0r6ty+kHAUj{}HPxG(R?2AhbAksIZS(;s%RX
z*D;svPMkq-`hJ>@9JM`-Zzu?-XoU5aUlBTLi)PvYbtYCIx0eu-N$VzBgPZP@h(9nk
z5QsDMg-s$J+1x$mj6~9%Sm%tQWsTkG{KihSIML{P7amrwK>q-%K{HyKm@P-!BOy>3
zJlP?UhCAr3#B};YL!%slRaOF^Rlwct5}C1`g-vmmn7CL=bYenc>{!&Ya!En+APeiu
zwyCao&9w&+R(^u60K<WY!dyWKn(N~d?ka=+4GO_-Dm2QLH&Y(ThbH0~ISl&S*J`SJ
z8X4uyU-R&C=sYldl0-_Tt4TD|n!nzOyZ#3)0x58H=dR|OYn$D*3c3gk0P`oJt(NqC
zV^6uOJsjRaBCWAp8yxJYh6gqAlx-dPKGs5qV9=Wc{iA~#zKrnGrab&N^a9ulzU1NL
zrk?Ujd-#=~L>_>#SU=nZTc^@(O}*r6sAA<5bU#=Gn)}(qdQ<zL#8@lFP_x+@V|Uhu
zekO}#iL*p{x>h*p{3N6Ax2R%eH1rFgzao-9=(eP6m)Dm?au)2hc{Pg=#p9b;r%Is(
zX$ITu7AYpb^XS`)Hwr{w%-;$wjpZ%fqYwIa6n?Tb>DNOLa&7tjTkD(d@Y9ildjzrq
z%F0Jyu3p=9WPCNgJ*%H%M7L?hmb7xCyF?dM^P^3N)N&QDy?=Eb+5Ltm(`1Oj)G^2!
z7iTqFELQV5gc^WOU=WxH7F6ff>N(!>C2W2hbp=S>7t5jG6F(ML-+$<uoKdE;r98Fz
zIz72#@2@PG#X%yeznGAVH1R8|yt^8DAD(odfrb|aQj7x{`=;V;#*}P{v0CF|&C&6e
z&4|nf<G}ImcpQL}qj^qKbj}f~GsYSl8?PXe3#<(#vb=^wT%ap4DzRdVm&o}a>8;L*
z6dTd4LtW(+sG0<ZfI>X~4`3MI<WteGjy@Xc5xfEQ-vM8AfIKI>&SKfkhaX^f?4o=V
znrukTE`}g2<1_@qfDRkExl6<e%X_?7!|eUb%QqJnNs=YfAKC$!!2>#VcnbCOcX4PZ
z2=%OFqg$=SlkUB%L_T&^hsw$R26}q9Yw%7NbYCz7xqX6XW<Ti2Y`)nCokTisKz>%5
zR8>b4MpTjO!lDN+MVxtpw{+;kPOQbKHs-G8W>(z573V!2aaR2BM5>PEmmftElE~|t
z(=#Ko<QAxT^IjzP!9}nGyp6#%OsPD_`KX$V)N??0&=6Ro?G}ED!%^i59^yHE4UeT8
z@6b;GE05mdOJ~9VyJ{C<+XdXg5<C(YLVKGXTa-QU7#xo3lW6TVUI7|m`ME?bx#=c{
z<10i|0pEiAaP@(%iej$F7FwUGipVkG1diMlNj`M?bDmufEN^#FPjJ*|XX=@2^ewwD
zk~5$PY=M0yI7Q95+45K{bp@?KtLwOZpnLzrBP^L_j&Y_BbE|m2yo19UE0QbF&xXV9
zgKW}hhcO{y+#S`qcg%8qA>K(o>Z#YhE_Bz}QKo_eyf;Rr=*fr(?X&S3Ub^pteA;GQ
zBVhxbF>a)5Q&C4E!H2(jFUL@1%D|8v7iW&OCd6(2z^`r~ES}(zfO}G?w9>3Px>|PY
zAcR=?6l%$lNGAA&Xx4}cMmYp^toTCppmYcZ=^?mM=`;`F&#=l$1~duO0R0BDu&JGv
zQ<uTq)e71WR0TV}WUiq0nrqFM+_eb$9q0x2E}WD>OD7tAw+`aL0_Xzp1rQfb%9fuG
z<bm7J%U~;T8K@@s+a#m>?h77%47~{oL8mX&1UqZHPPMxdpy5CQJqD<*u9_=r0B@@~
zGzPeXE&bKQ=%%^y`*YX#(5c{4@C!9f$(A?v<B=brv%%+}q%XE_LrbQ($tU{q@LuTm
zsd&&r|LMcR!O2#w{TqF_Z3-;Iz{UiLOjK>A<V4MuhiX=0s^Av;T_C%0H(tS%K`I@Z
zX`sQ=0)>$kYqojQ{;TRfcqH!)WpABGC|#<Y66X$QeSv-NyV7}iE_DCWsvb{<a#!FG
zf$TXzg=Gn}EJsgk<^3n_sev)5(rp|5LuZ})>2z+tI?ais+AglZyWO8Q&w?;fpR^hG
z^#<G!Q8Z|+w{6mDU%jdJdi$aM;zV{|*KPyfw}dpoi(dfUxzXyI`-e!%+v&(~e4|91
z#fXLFmiSi5mb*LaNC?*YY!XO1mgB+DQ*`^64QbMNnHFs_$OC`pyZ98k`=CVH&XUL>
zgVyKS?GclRS(rF;Q-oMKibwi_91%C2L~^n!t)@(zY`ZlOAy&Mg(_rlimJ6(B*u>4d
zylLqf9bJ7g-07zYdUAlCJ=xPESmB3PBTgg%&D7Iy=De3}(y3y1G3c&x%Lk8{p4auZ
zIoH-3^&j!-)1aF=TFkqbNz0z;=#GEAEj9D;mU0;%)-U<H!_q;#&FY1E^3ujnJj?1c
z#N*TPflpulYn7{DD^^74ECn9~Ag}}z4PE2`SY#!32@V0v0no+;EJO`uRmC~W)p?6a
zFAa2HS)jOM8K1^@W}ug_8a@Tbn}XyFw8hgvk8hLtDKRb-N#+vu083wb(4NnAblcNF
zVI4j5bg;*$@!ZsI4&FXjp!;Ad%5IwVEKqz?Zr?*)vHQ8oo%MYlC<Yd(SzUiVRXl%J
zjjVl9SJ+@X@gh|a&+JiaSe~E13KUk;$**qdM_};!r@Oj~vc_(-;B_6rOn-kp*rPc<
z%~*MRN+kZH>^XSTDdnMhUwlEfJz~$@n?5cN^w^ij-L-d%<igg<!|MDdL_DUjoNVXb
zG&VHrj*q#wL!3w-vq-8G@J;e_`6SUV$MmE$)1dB@{RzQmUCb&%tS_`4pQ&UCLWCTU
z<3#%6Lwj@`e4s+}z>!qep_M6;;HBIU1UI>f6Tj4M4Rj=+6PD4nEYCGlYZ0bM7C>pU
z*ok}_pd&YzIFWiwDow!_HqON)#+c*G7JtN8afg0@zXXg~?BHdio!vVSF;==kXUF1Y
z5;}ZQg}0X6cM*?whPDKCz+qYu_f|eif>GW@xoJH#59ES_3pLYV9ZWkH+D%Xei~wE^
zrmM^(+D-e1Ig#yPF1RwZvL#cjmih6ayuH29pTM`k<X~mrb@qc?aFw6DY0y!iEy%mV
zMuK!DNG}+DXJ6rliO?L-3fxnY^g_0L<uVWb0nIMfk+sk#m-x1Cv8~)1m8>*^Mgl!p
zU8EXJY&^H;K#RETYiKUW0?YPu8~d)a+ve`)w%Jp3WCF+r5!@EUKJ4taR;XsBAv6-W
zfR0KpXC$0DnTM><dcXiSOyUXqyCC7Elel3fbOPuG)=lJ@q-eWPCURRMhUpnt9speI
zwp7jbb^^DB!&VFY*Ak<7OWs;b&6bF2R_a4*g4d~-f=uOEopwc5-=cz*T<9Q>0_LZv
zhQdZhp|>F9DJ$KC&wOWlapOd24rl|eDxU5*^y8j9<X=TcJitF5I^yfecXHevJGp@h
zR!&2U!4eSQ!IRC>lAYwnZC^oq11p$r<TmzNWWNZbjNCQ=nhm0X%~iFj??raoT32q{
zKy>5>FcK6gmMTbi`$s;0u7NHBBS85F_Vj3@JgkD-{(=2%umqa)9*;ce?Eh3laC9dv
zmB4cQ0}LvH8?Q0hR^ekWO7>j-hk90upgX`^(EXjgy)K$>vfVcf+8e}xt*>}uE4+}{
z%2&Lh`OxX0BUt&88;ssCEO^Nc)1f0lTX6CPH;iG1eJ{9SD|8hY4+@_%L%PYVWwPlx
zw=ILt0lmPRXR0m8qS+ok<F;$iPs${+4f;+g^${|ZVjtY$k*H%O5b6o;J;8S;i{lQ*
zA}d~Z@wEu9-H}Mh6Lk;D4^`1?PN9O8BIq{oJ@CH6Gj$kcB)jd!ZOlaeh3|t~5@~vy
z+c15UkQk3Srs$ZbsAeU%1aHBh2{?3>9}t^AvR|p4SGjE+wDDz}9_a6iAS2-hSY^co
z^#+eGq32xU3Gb1Sa9>og(g~UdLO{+%o{7U))AJ&?wTHF<0buV1ZgUuGe!9SIE1(O&
zU{H9T+whTAk?^MT+&1V8-kCuRNai->tLn(AHY!;0g*t=M(-NtFnx}o88ET<|l`2fZ
z_5b0p|Hloj{9qW23Rb#9vp@vMJ;gI|7;6Te;<itrtB*=#GI)2A+tRdzhoYL5UeJ!f
z0#dn6nO_5aCd6*=h3df_ymNl5Y^#Awkc&lDjvtZ8KCm3zJIr>Gs`T|2yyUBgx#0wK
zFIWuB+z^^>ZWrAt)8Rsx>}GGM6S#Q@GlPfN442ZRCK{`cbyhYX#Gb%taO_}3Tptvz
z9n=7XSjmRA0d>Go<!nvl-1`6zb%dq>Kk#!gUYJsp9sz<unOzH~xS*Ju7C^rS*}zs*
zX)-yCCF_c~Re{a`!wd2AO<{%ATQ2{F#~(nigP+0MU5F<u#{&c(`Oz*OzX?4JHUJZk
zCj=tyZI92{hD!*#fbKih?R!QGPRgc0!9#9^N>;XS#<d0!V9Sr1Ne+U^cRe@hp#wrC
za%-JLUT>;2)wU$Jba+yqN0gO;n8iAb<$U13uF|cPu_oQ@ruS<xCg6kS64bO-nQFo-
zMNbnt&xR(vm03`41Rt%zhqp4tgbVQ*7Fo%Fw#OWND0KL0rCpeiq7($<N;C|{mB_}#
z4lCjK*`m*C{CEUzuBvo-%Nv*QX7ZrN@XN(uXu93t9wK<lkM{8vzQa!%mTCAwcD_Ws
zmhcu}Fa)(?qY|baV-n0!=eV~VKhcHaje0q}la*B=LbmTrEc)SFN(ahj;^#Tw!$K)a
zac#j_`Ls5&J%-BF-$-O3m<H0PW5`*=_LXk3STMPfV2O{7w|<FG8fb)YD3HPL^SCWm
zv(-Shucu06%0vtk(669Qc3Yfg+lDW@xnLsr5;Vz?NVS=2Yf6>6$f^@6qk$`?H9Gai
zcmz7k;D!mz&;!$S)()8W08ZdVdmP4h-0*-IZlK~fkkA%i>QDuY9>Wt()-pMoiQnfj
zMSdnjB0I6X2D}=|ZK;}VE~=}drDE8&fc$jWv-s}JVdyoBQ8^BkH(E<%AT%4yRI<X*
zYko)78bHA`FboXs!nbv;hg7?vqE{Mz9|TQ6B-q@J=a8x8Pz}{DTEd!&3C~|ek_DA{
z4w&<)yiz|lMhgi20Nqj>SwKtMs;vce&}?;4-Je+ro~zIq5wI!4!jW)EBRnTSF(%rY
z*2C|(n1TJd6>Fi55?&u~0MD!AwrGf64Lu3=fS@L-Avl3OfMPAN=9t*{md<#D$#{j3
zBr;3D6~&#=QRD~KSxcoJ=12!1oQVBh!<=ORW*l2K<YV&S2n?eiF}di5ZKu8#$ycB^
zrln2n$Gl|Tk^hXqS$qJKH|GAfT*eIn9ex2n`p2s~Q_>@0NXJ&0sB8)vfB>+<zz^%!
zNF0^{6-L}n?=ZLV0OTLXzb81`56hvGpF`|6Vr{`m&>zFdiE8RcIGY`xxZAmUT;ePQ
zW+BiHGzJl1&<8c=@+iT_l!x&{kGiMF@WUULf5T|8u7uyq6L3v3@r!E%S}?>z*=81W
z%8&*)f^hhB;0e4XU=wI{P;GO5ecaF`%;ba0GW=#=3XX%_AnjG9$z;_|yn@h3&=<4^
z%|Oyw^&39(H+TQ&#OT<VyBJq~1{cudMuUFf`+b$o1tn_DbwtPlOu!2eFi&Y_L6_Qz
zVXmYQGuY5NpemSINQZq)QC?UC@8BIfMKTR2YeX^%qh4Q7f*&(kiG_BNF^oqk#Q}m_
zXtudsT$c>=_*iRVLUgnx_Iv!El7tPyjQBqTEQjF#EX<eG6i-FtRNq~XA5*~xG=2^o
z06mZZE9KWPGpYzNLb^N=)m=d{s0ZX#xcmiZhW~epH)ac1iCM3npquwxTgO=wFf_(T
z&%vm-r!~GFlQI5cnU#NE@UPs~XAER}Pwl@{hG2ps7E@{qpYu5LHpAF12!6E9eQ$Xa
z+L;b=z&`w=$SM%gnthw3(2o!F!3h~S;T8KuY%ur~v<6Wia4P%grb7*G3m@uD(VE#0
z!8eWYOAsat27or;`DjNo>*Ds72Zvz-I|?mBlR+4;j?&C70ToUkM4pH0NK9=VDTP*p
z4jiF5^^x&fvm%0jh3LpxFfsriU*HsG3Rvk^j04EQhEew9BNMa@Tfi6syn%?1#lP`$
z*6YRm^Q?G0CIzOjGgP@H>*Mw#d5q7=Q(!OH2<8COIKJf{WAI~Ld&e!+?rh&O7tSsq
z70h+jk#OjDwB(<xx)p7YMQs2kfrenZ-w167T^h;T&Uc|%k6KoqrX~3P8x8t__8=bI
zQ-AwQrf(h@!z-FJp<V!G@9{kYiokmlZ*qt;W<VsKE~e5#lg$||(%Q2z-JbD}FwX*G
z!9b9~C}*#mc5g?`I~VU;k>&U&8R!M{*<V3g8SXOP+t=X+U?pi9#<f)X=RKGDY%d83
zmV}mWgro-w<eQa*bipz!p8s(BpKlE0;zk2~wC`u<3O`-5zn`|^S>&)X(Q)OW<4Tv}
ze(E`4JB-0B^zAo<oCk+N!!j&K@~PK<gE7~4l%Es)tB{L&F4#uYa=>9nD;!sh2OT0~
z99Ql*uCzboU@LN5i8$;K$vb>bJGv1^93rKTD;d8#M1FHz2|el%S>(7P9CL`|IIdiC
fTuJ-G!M4kBCHS~QWS-;7e~v2yPdL~vo!Iw(onj*5

delta 10467
zcmY+K2UrwG8^>o0M>#~=Es6?vhX_&7JMMrxD<~ilQ0z$5XzVrETdav1O{^2SXe`*H
z=2OX85);K5V{AlYFF}p5CiWin`_Imu2lG6?dw1sj&+NOqv$M0aH}j@E^QJ7D!o9+a
z<&CnC>2%6^QRwabLz5_1y78+-SehOylU7vG9u?2ur^_SKXz4j$n&4ks{O%n6{Xt!t
z5>VOsjek#B=rlj*K)k(3B!6xZ$+&I;iTF!YTQFVaErot4lSdo9)H3!HM;`{IDAHDu
zq?{1R{gon7R*B>n)b`)yC=M4g=<MJir8rw6A+ktn#)@R#Q-Sm#BANDw+pnQQNTlFJ
z4Iz2TftGwf-mr7Cu$?Ordv}@|mqAa31R1a8NTjTlME(cYc;MGqBGb?FDxFXzbtyIc
zX`?BjA<C0R5;+C-gFMg#$cNFAdh{`RyDh<PNw8b(onj>NsG&sOhqZ!g;C>6<=3IIy
zG*@XJB9T|MB$5Oh1-|i@i1Q#7CS=l-re1We&d)d<MSVaAkOu02LsNMp9|TKeX@+A+
zb-_jp#`@CNIzJ@>ewKn@^B;>O2`tv4$@gh*B|tGCdkv@l1lR}GgXx(FKAj#{f|Uix
z_6B<{izF8|8SIOOy8-PM6YF<x3BPDhuJKd6K1^rcw@f5gbt0MizM$^7WgrhAeu+%H
zwHmdI{q%)DyqJ(b=>0I8vKK8a2GhZC@Nk|;HqYa&cCD(RGpj_3D+3UA24&f2$VOLk
zWuwJ0SKoEE6ICOG0Q#WnKyle6YS^1W{~h8@zYC8L7yqedgR4c0Coe*t;hb1aD~QLF
z`S~gu=0y)xziV#zr%3LY1abq1!BX-nZqGK7$)uCATE>26ln5jwgpgn8-!*K;errXt
z{Rfd89xakn*%GM^&+_g3z(@9%$#RF<{mZKP)3Fg%EA_w;7IhOzI_xG|6p?3qYLLj~
z;S%`{op#t9flT?8kTElP0}9GJMDZ|7BE4wGNF|`bUXj$pj_#enjwYzxwys`74@OoF
zegpZ2Jt8@~TO={JM3Q~R<qlFPuD0DMkywzfN3Vvx8lhh8Mfzaf(Fk;Suo!sZ-kbn?
z&ACVK6e>NO%VWt56v&5kvay@kaz75K8QtxprHwQ`PJ2{!Ni2E6qbxn==UiB;ols*@
zb&0GA6p8mEe&SyD;b$=WjZErNzu0WW8_||Pb#uEwy0(?bC%9v;%|_E{baQNoQq-F7
z_Z05A7T{h-nJjj&%STh{Xbf%j_T*%fCDCTHJ;xo(QZ~+t5!7ESk_!iLY+1(U?LD%_
zaIq8$yA(HeFUW39VKVyWJ%8ng#@zi4Y<dHUwBI0+aeZ9j_|Sp1wYtS|T(S+9Y{PpJ
zX_YCHQYx%VN5DSxTy3plK`Bc&pt$o^Bpchw<VA0HBZf|%XtEWqyeUbffJo%xFo~=m
z#)HoH$Wq{9Y4d*~NqCNc5qK<<WmA2eR@W9+nWc2tX}Cjo!L6eyae2xt^k$agVYgir
z$s|O!W~f^6Wt>)tKF!^JhefjcH<7f5`*kdH8?2ta7sJC+Q`ocvBKZP`Ra0%mkmym(
z-p5rFwu|H#dgovM64~O<+R`U^RIhh(RT~WCUw<!>rf)>Df_AT)r+k20h^3U}=(cM_
za{ZY|oX=cW+KYzQ^H-{%n5AjBH?2!W(ih!%91Ayt-mB;83}%zXWViXi%Tfl#m<1Z#
z7KzVo8f3|&59&o~zQnEiBF0^jeq^eq>5en>=CZ0dY>L#Jz<@W(qiATZrkRQJmw!=J
ztTsn#MqUs}DjNzjXkdat^Wv094xCcG6B8me-Epo;YO3Db2?no^aB}=;prx<o6?WZQ
zQXTs(290(bZq%*nQJSp=O+B21es7UYr%S9xL87~@1;TD>P8=v+T+LL@>xtfi*P<yh
zIq7_mR9_HEX`Jm!)jjB@S*f1UsnjZvzX}OyO>5b0#?&nmsR6Y01mXw#)G3khJgy#F
zDv=y7^v$~TexpisZX++c+pg8!goLH@u!q4a(2SPZ^AxMg6AfDhJosKB4Zo*X?Adft
zeXUX#S(fy$LEvVwL}nH<w;|DNNwk_1?8$cPIFzz<-XW2rpbhd%Hmj;6kE#S7mWp9l
zfRP~B!BqNWk4kc>9v4dF2KWi=q(Z|yWfSG~m%}!~Gjas%uFup^e`=^zHhsq3MX(f%
zn1C_(Q#FWGPxF7a=c?af_kv8Qx^q=ikILy%t%7xc{(z20Tg~a~MuAFampi^K&NjAV
zz=3wEyMN<AWm`MGkF~G`81W{<9%-w(&%ph-33vYudj=GP!Q7qJBv4u5a=)l5k-Oj%
z<PSDR?F_oPNsw|GMJ$!V?g0*vUe)E+7~1IVRvQLTlgXCkQpUh`Rz$MUM<PA^+)6q(
zMXQ^EB9_L$4gkJqMRJ60PRa9qc}66EfD&g=YMdyZUWY!FPKz?VonJIdH&i{1p1t5(
zfoOK~X~DTMyrD<*R?l|AW@qDGT?Ju=b4l+OnkL(;%4F|P0$B;mlB{rBqgW>6!gzgF
zK1Yiw()(=7lgheCbY56h+GJ1-KMm^ZtH|WQ3pJL;gS-vx^tQxAo5^gpna;pt1^M7(
zFa;D=QI%B&2P+p)`4);+BJgl*$AOfpaH~@vx^nOc!=*AFS1(yZZn=6Pi)4XbBy|=L
za*o<Rwkbb{Nn|*la36yDrv!39CzJ6n+*27tn%QErC0b1hN#@P)%mov{(JpurfU_gj
zh$hKCajMW_vs#lD!7&yzs4tOa;S%wOU4ik4rEN(PIk}!*>0qa*L^l@rDa%nb85DpW
zc<k@T0KPHA)viqM4i7M{NAXNh1($xY7bddU4hrFi*A07kz78$crzT%-y(iu*IO+gz
zRH|G_B0kvO9fWq-tSd+vi_4=?B+?JI1F(R*`E<zJ4En*)ASDV}mOel?T7d@}L0-&P
zN5+ZOyy@|we#Y&-=&s-kMAR6M$iA?n@_01?+a1;-DmDw3Y4Whj%6pLbg6AU6Ho>eM
z_Mi5w#kyIhPNq~FZdmuZZUsL})$stThVAEXMN-So%hGA-uv{erCI7v~Y!I9UTfu7!
zu3P%M6I+C$DF}TC=mr{r1_>?+Ke6#Bss#SQWBW3mLS?T+QWvmv?<Ho_^D11bvylA&
z0>MH&0T;mbGL>&p3Bprv1d5NNwU>C}H^KH(iJC`c8_FHu4tN)V8Q>07y<u0?WvcjQ
zo{kg-&tc#Le*GJhQrKyacy!&dUF@r#;JPDyXy7QV?$J$=oCJHpCdj`8rPMSkPx%B}
zok0%Bz9^C^uqFTDiIqlMjrO6pM^z4fejR6G3?^l;ori)DM3YI|j*b#-*Hz`uqZey-
zU<&e9LxXm9q+7>~FnqU%_rbpD8Zt4?^E!9|6YQIyh-Qs#D6FTSj~(vURFsJc`2D4J
zZ45nz9E{M3i6*NpIdS6~esPUZgn)a3Og<6ZN}3xj*KjEZ!NXElSnFUsoWPIdoigqd
ztx^j`ELDN^1=j{)L>`38luZ}H{UNd}<-#@tH9+5i%x!4xi70;{S7pOC0%2h50H)Hn
z@u=1e;3@~~OwbdQ%%6}$%f@SU#r?T+CG1yV0PvbWAy0YQk2`L_o(ILizn>c5jtN@j
zO<(T54|@gd0C|1Y06Tbg{k}_8A2uFnK=(eXs*^|6whwPB9X1IBf=#{E!^rojih6U^
zJlM}bSMVb>Ov+O>^x~c+u(QEO;8IW2&!Xoi`76hIa(4;rybL^5VgK#H+{QGUr~R@X
zT=pp>!@-7RiA+*uhBUiJwiv}MSt^U9@E3vnj9c*n76dYAK`U=+oDwOFa_5|Lru-LL
zY4mX38EU`sA{P3!<EXfBD7pfBxA&uS7W&d%Uxx;~D&V5XK?3<{k0YqIV5j%1cvJnt
z7vipP3_$PX&Y_Ds$d%4ybN!tuUL@CfYANP%H=Kb*v7)Bg2HezZ)wPA(l|If1D|8w|
z>>3{P%xzv|-$l<opnFM3V@&dD(JkNFbYl<UwrwMmv3MP+_q#}Tv}Q{&!n!=AtB*|T
zAlGA^Kyt9148|U%#RKZolyM3zS?8?`_=WGH3+zvO(dB32DdGLD%d?xqV#hK@qNy1?
zEd7S(_q@R(ZaB=#a@|TpE1YVV(g+Vrp|De+>;#qxtY0|A4O@d9T_XfPAFIutl$>Nu
zbfiQJp_N1K@S*2UHx2nc!^_blTG-@~gx3;!d2-V$<Q`YZb&n~pJXRssAXccZd1>?_
zA0I^2SdzM_^ECQxZ25}1_sZv{RLI?{kn3E#yz)?mTvDC#zLgbnfpNkK&)#pxl~;C*
zFQ40AA!n{z-nX<u4zv7nr)hMB-1Q2%Hm35*k_x#vb9vvw3OP+edEc-Kxv~nm9E-4%
zb}Ok&f7)5w>x-ot@`~Qx*-eOZX6^D15RHGUlY!mGG|tsW)@VgBh31@HuXc<qbc|$+
z*=|01ANTPF%n;H<atYfk#XjLT!7Pn8S#{5|q_i7;D{hEpQ@D<4zrU}}2OUQugdiog
zP$b6oG8uvw$YLxZ9&RC%f$do5bxhO?8e?*fInll2ZSWO>so)?MfBM0iC#!c&fw#Y7
z67+@ykGvh+R<I4ym0&vX8dXtl^~i_9-3FwB+8_Y57*SsC8{v-RMMIg4w#uXr@UAD5
zEZA|w%4;?8NuH)3)`c`yCLKT;hy{NR;b&~fZcJhaqiS91J_v2Hr>bL~UI-143i;@C
zWSmS^Pf~9Zw>aMB5sNitay3dOzk`Vp7+yg9SYGwiXqj|rQ=zKf?y1@m(z?JmP$prp
zH!<Oz<H$D(xwYH}P5opt415Gy0Sj0f&s&eL>?kz~&EK7%2>9Ok%H$t#9_#{l*;GBv
zF(yjT)^@jP^FkZ&#lZH%6hI66+Q8c!>?4zwk{a>-M*cBrrkrM(ZQ6Q5ZU_BrOd-aD
zK`$gS@PR~Hzh>`7E^RxHwj+GWpcc@97wDJC&+!=GtEPpnZrtKN2186HFU$1R*<iDN
ziAWBe!P4Io{)Q82@@5^FJUy!+!WJGS%Xfx9DI0GYwDCEc5`tPRX<%nNL^2u}&#Tj^
z(sLoo0AyLRqUU$Pb_DGEMQ%6EJs&F0T}-=Q%A_05M~U0M!Dcp%ybvkIPjUsPp<i6k
z2h2$0x0H6iNZJ;v&!?g?nLfD?C4T$(U2{V&h6aot$Cd5B#AIQqYjG9Q;}@gE|DLPu
zr(B8@y3uZz28za#cXgvLPZm%A4L@EUE=LRNouPkb2;#|~)ZkW?MG33vuVq&>BQe|h
zw+nCf#+4YsLMvY#7|;@nMl8KPibEXX-l-2gbTvj(1&dp)54b}1p-I;w1NJQB@|Yh*
za%SVZqgi$>N<6|A7un-F#98gHM&8Z3W2lfZ-t;ixJppT?EPZvGk2#Yq-ekiLewA2x
z3|5^i%L!@u*z=HXyG*3>9z@U|@A!u`MtL|G87&fD*yoSDNKuFnePC)vQ~vcfnmejb
zPm3whWWEg_OBZ2}f(@X>BlV^aycc9N=Xs<JT+$j2FA@m;E%YMxLbr7OKmNKpC}F7v
zYyh~uz>9oN4gcgRW3a_if7mX-4nF(JRX3Pk_(!XZ{EAEZ!gd15;52nh3}#Ot2Ps$n
z0J{Oq0DsJXr%doDf0^%6!ma~TL6lorLkV@cOEGNi1Ixhe0(V1n&ONPiv4FR547LP(
z4J;nXe~>IW$8Vb1u#-VPSbY|^csA{KU#mFIa`z0_v7kM8bcVSNY<0<ESFgigXSnJV
zY)_1yn_*v_R#j~F=~8uohowwdI|v3FOVnL$exTJYE8*_Bu%Cj?U@a|ukf&R?i+dcC
zWb!%a32gA>(3ualN_*s3%7C>49q2Yu-8o+3+&gbGk*m^R6F~@YPGBlM78l&ARTH>s
z0qp0XHz=kL9_8rMJ))K4xhOSLCSPHD7|=nKr)XTB1bCu>3|ci;k8s0dt&-ZDSG2&^
z1aC8BvLr)|G}F`kY?QJz5q2oZ0bi#xm2>Koj|9!qAeqnzwNd*stuhx`mZrcC1G(UG
zpxS6lPou~25Me2zvP^=&zX37{=PEuMRj*?iN?AGqyALb`h5&U}lb&mJll{4SC~Pm#
z08FDr&-0YgTJGr&`vFJ<+x*mu`7gA}T0DDLT2FAmU=-N<7W0}cV?tX`kXzpJQE?5d
z1B?W(-Y}UVp`Ax|*Y%Qm2{!GuM1F>yL-)MQ(YN=A-h0m5ss`&1ZakBS0#TlF7F#SG
zg8dmdK=)T{FLdlHe`SWtJq~stXas(E%401zo~(PyTUi7<3v>nRo^To7`;zTRSi()P
zeDj3MX2DJXdEoS8E@Ll#u3O{aV=nsvb_19S_B?_to7Q`+Rh*Bwdo^q!7yu;hUJUo+
zhunP~wh^A2J7B#Ys<nOJXq9@dN2vie7~Hxik<TA6x545G;XF!N3i%uFu;9{liA3L1
zRaTGcI7(UC1N%Lg3qr4}yUKm5)p@zxPyfQV*{c!}Kq@VGo2NXw!YhtBk9A*=0uG#G
z6&KVNw92+~+`SgI$r;QbV1GTU?j0kD`)r!wVJQkW6x=(F1?khOioL$NPG)bEveXf_
z1&9U(r<h95maJW>k4|w_JJ@uf2fG~e1OZFpe{fe3ECqwXk0)6Jjw}(uZaB&P14|{+
z1tfwD)z20x-8-m-QkKGC{lL}ZSRgpA23u}0i9{(&L9imYd<+MFOjTug+8T^fmOg}S
z1L}e?N7ablN{DE{QSR>oyXqhoGQsO3s(+vi|4`&v>H*sUSU@KCpJV=Lmp=^F2i(9b
z?&rU#QMB+xF$Se99XWv26|fZC+7DHR<9}XwbGWdd`;Wrz0uGSC{oxuRNEhYuhr)V;
zvVB;cb);x;%Hy%g(*O3NSuh&>w%3uW5waaGHHfeu3RudA%>glB=pIZL(;eNsg<z%U
z9`5e|+Z<E_#k<{pZ$r7EVa0APrLfaLKG<6FPO4{%JFZT$wuDO;!p;Q4w__>G(cK3T
zzud-McVI7rV({Nqw36nS<SY0%s`(=7f46c`8SL+19f*1-3Q<B`{@I&x%|Ivc;TE-#
ze|&`yB@20$oOrog1x#S`dbi)lQ10nkbq$yL!S;`l$o172JlDOGI*$7xo--(9X&~0c
zf5rB45V_hTYN&-M&?ORJomenAzY6!zDpeHVk0V>hMC%*#mS({!5ZqrWk&jopMIlNz
z<XLJB+a4eG>cEa%;RvcEWH`qAqcePfm1CCT@fozw3at8rtB$}*LUYG$=KrpcH?Rcu
zFg}D9z~(Z4o^o#|uR0UoMy*ru*N(Y(g(zfgXFGnYgy764xZu@pHrK?8Ed-w~z+64k
zF*r`pM6&CfU{A1GX2DSdi#0yr@eC|cg0KaSD<ML*!DPm&XtFuUnq)hI;x$t-_JV03
z_fvGfuT+`d?2&y8S2jq2yAB8kzd6j6g*;sig!ytZq8N{zzz&7=Wv(2@oyv&VIR;}X
zm;?rc)WPV&Gk73)opcA12UjAfgtgMVkI>UW$IrP8ua0h6cP#%mXp2JwKHym!#6O+O
zntEhqDBcO`x5QHib`cmeT9rAL1tF^6T46A1jZY;x64{RJHQ+@77x)JYTHRa}grW96
z2sVMDYzQ4?Avmlt@GD=VY&^=!THs*{`vLf}GY_PNCy+yMuK|T%Di{uib>uRvHn<O~
z3yOPYN~9e~1tzeuH4kTZ2*L?R!L#NNW#A*q4|oZKt;)j5Q~uWodSsWtZmNkWV6V00
zbr*#q)b~)(kBJEW9R>SE90b`shW4HqE;YpS73{<Mebe{wR}g&8`Tl(-%Q7Z6Gh6L8
ztHqXVwLGnY$5VYQ9K#+5yFgT9Rp%(v3I4hkK6v+4@O~^|0wLhC;(qAp5ER53htDnj
zQPdFoxQx#q27J6|QC}Trw<;KCMXUf;hWxW<A{h#L;j30n_Ah`mhdvCW#$9~I(BT8Z
zrZXauU`PBRk|#<0Q1U&8(hAkuz||Ba00UU=?K+fl-P#Z30l1^yV8Qe*DEbXwWPJFc
z46Y*hE2mI+1BI=@anKKg#<4K|YApLWE>#iylvyaBh4OYF1=ItB-l#FBRuw{wi!ny{
zqU`an_{RXYcVbxh_B_9hC*qQ{Y2f<T%s@FhD>ttx`)J|1iQ^&n1`ko?68H{e?^T=5
z4HUeM$yoPscOeD7NBG~*HE<OC46>fS(>msa<I*fb;V94tv<GRRnPYP}F3l~BDBpuK
z=v`w#UodZ{r+&X`I3FERXazMvD3HMXQi#$WrPc7P+K%Du(sq0agN+4Y;LGi5BMqwy
zA%?A6@Xs)?awV23Fvj%(m$vb9kqn#fD5x%E>*nF3YcsfFwfGkjwrj1zXy^F7x{znQ
zwFZB*00N3mp_TohJNClT%M0jPKdNWb@o5coml<&O0=Xa&7?<O7HCz7RD=`XQ*jY+i
IgQEKX2V=K6Q2+n{

diff --git a/Rapoarte/jurnal.FRT b/Rapoarte/jurnal.FRT
index 30e48cfa1666ca7961801fdbb3af447343ad0036..e9abf70a82404eb15db593ac2a0711e7e128fd58 100644
GIT binary patch
delta 488
zcmX@Gl(AtkBL@QmqZ<PQgTqF_PmB{4I9VBi9FNHkOft~{jsdPgKCXW5As)6y=9VVB
zTwsxKPZyAYp{XS=m$Sc*e~_&aFBe2A*fYx27AQ<m=j1#lDMs_jT}-l~E};QFt`W9|
zV8eVILtJeQc)2DDnj3%|V#~oG#GuN+$WWe{S6q;vp96GTfPznAacYrQYKcOCp@D%Z
z14C%AlYxQZM8SZ`&CD&bGKo1kB^oKId8N6TMX8$F#U(`=c}0oIB|1h1niB=(H#@Vi
z$Zu{}ZeX)K;u7Q;<{D%RGo6>q#Wl>++0_=q5?(I<(2#)85L<{{lkJ$~6o-T_E7<@%
C`+n&F

delta 504
zcmZoz%y?iaBL@Qmqc;NsgTqF_PmB{4I9VBi9M#DjOfpi={yzRewnn^Mp&<dGA+`Z7
zZq7xii6!|(R+F^kgo2$NeOzq~4Geg>9D|)bJ#7sp*E2~m8JbR>#U!f{8RQ!5?-Ls0
z>F;N222v9e;vWF!8S`=h4fb&i0cz&unkZ<Z2eQ$cgF%Qvj)9S(JTtGjAU{8cfdOG3
zGTUmRV9?}d<`yZ*#GITGjg-{9(%j6VR88&Tk|K?~qQvA9&B=<w>YF`S{>w2jDNPP!
zGn%NtvDsO<h0Xl9OOR)nYmhC>4qh%7*Dz0KS0u0Ta`_KU-|m;=;85}k4f1pJ0r`1y
UBeUCNc4Y^YAUMK0`MAbU0NW#r0RR91

diff --git a/Rapoarte/jurnal.frx b/Rapoarte/jurnal.frx
index 73ea7c0cb71166e3c3834c0edd5dd8ffacf2fa8f..366e3aa63fc8c70c4451f1839124ce94fa461490 100644
GIT binary patch
delta 271
zcmaFyi1EcEMmYm1c8+2O28Ir<r$7=FFfnhGa|mVZ-5eiUB*@q|`BGW|<AlixE)J8M
z(~TJ?PTrngz&L4ge5mc@)C?om$w19hCO2kUGfthH=wvea9IxeM{%rNhIhg{i(|~f*
z!E!T@<wVUCEKDs-P0UOUEetIb6bxnp)y)E{n~kK-oOKRRd@fjg9+J4+<U6@~lO1vr
z80Sx3nDb=vf*cMe1&hgwg{G75=h#j@ozFR$D=&d@;pFVRCya|G2joAQ?4Qpzd09@{
W<OKyRtV@7~E}i_IOMUW%f*AmLB3exV

delta 275
zcmaFyi1EcEMmYl>R)Jy$28Ir<r$7=FFrC;a=Mc)+w>dtvNRY9A@};x_#)*>?TpT7h
zryDa)n!G)|fN}EV_)y!)sToGBQ-GSMPHxP!W}G%T(aB`;IbO@j{MqW0b20^3rvv3?
zfaPW)%ZZvPSeROvnwXgyS{Pa=C>YEFs+$c~HwQ_bIqO`Y_&l)qd?azX$#-(~COhOL
zFfN$9Fy{%^LZB+3Aqol>lNAe1C*RMpoqRf<b23+6!esw^w#fx~_Zb&Y4#<DPxCE#?
Xd-8$;7S^ReEz2gq=Te`1p<o689<N%o

diff --git a/Rapoarte/listmfcota.FRT b/Rapoarte/listmfcota.FRT
index 05557da5f9829f780a1d41cddb2eb104eccadf92..963a84c48dc81058007443c1a7421758662a34a0 100644
GIT binary patch
delta 109
zcmZo@U~2fs$icwC_=kak!C|A|C&q~ioST`MT3CdH6LWG(G>S`#H2i`bokMht3?@7B
dXiYxM=CawH{eafwc7=w`$BhmM5vkCU4*)*_BZmM0

delta 135
zcmZqp$Jo%o#KFM8!~g^i8wEcxPE_FB%*@on!Y`1RlT)HmTvDXr7v$(1GMSM_ck*F2
p7bZr9iGo&}nc0tMF)=Ak4rDi)sK7DVS)paKyU_t5a&%ep0RX3tB;Wu5

diff --git a/Rapoarte/listmfcota.frx b/Rapoarte/listmfcota.frx
index 45313f51b0d895dd7fff68857ba804d3e1f9b97f..b7bca5ac476821678a18137b7d19baa45358e164 100644
GIT binary patch
delta 2051
zcmZ9~d0bRg90hO>A07~C7QUG`zyKo%f-ek2P|IaBF$EXUltlr>1p$Gp2%2ajipd9;
z<g}-WWtOFek)>IgEt=V)R%WG%=2B*fS@uysYIklUVSnE5Ilnt^?!8M^c`RAw;TaR)
z?X$&mvcb#Qer$;70y|T)V_5Hh4>g;PAO_e>1anLHK!k9YHHT-VI(Wk-(9zwzAE7+y
zZz4>!I`OV>XI-Q}Q!E-A11t#V-T;9JS=Ko`FbAEvInYF;Do3?0&$C<5g|rKpvh3s?
zA;HWIvfysc4l)s~2D;uHs1Nhv;9wp1Fe_Lf);$o1ZX6I|B2JaNw=VlRbi}i>Lm)wx
z`*_4W$o~BT>ujF9<glOz+jcb3Q;qd%J$9s{j(d4QhWDwkck6IhsE$576e`fywI`dB
z0@>{F=K3%l{kS8{gi{UmmqR(M?WAJ>>pPjaU+F-prATCTxQRhZ9#Fl}5jqC5AVOe>
z+|_j#9U6l>TX0)an>KCY;(Nx$vACeGx~ybb2;k1h3=E}zl!;+#o8hi+WJ-dar=tvv
z;B}d#s3i4f(zvgSPXI>p>wyBJTv!)r<LbmfJjm^dCPu6F7#XBDRt-7@q;cwC6X}XG
zZuXm!z1ee!j!X_4Vq&Zc$GK+cN`jJfWU*V4iEQq)4@8dZh#H%c9@8+MWho{msDWJf
zfF}o}8koq;R1=fbz+^e#WP`uK(2;gbVZV_k^3=>!Ig`e7qkJ0MkNVI9`TT0Mi2@ZB
z%17$t?jnPgX&URt7?{RwV+4xaC)G!~9mQOoCQ#zG2s$TdJTunH{B#=xtI`FgtDmS$
z^W^Xh8)h&sL!i{%50e+|#lXxM%;eBafikyS<yE!gmCOW`Gj^=NEa|Q{@5Q3tZP^gz
z%jEGE`8!=Po7QmxbJW}jVdd4-NFEy(hzeenKG(fp1UF{IVIG^Z1Rj=_i20l_-pWnc
z1}gb+w!i|VRZ<Ny$BKn~B}ZV9(rT&ESj-jU1s+kdgqUaH*a<eT8u^mCC9rLIA!?a5
zE1av#9aySjXRZy)n2{^Im&=mF5zCdf9*oJbvu~~!qbBND!M+m(9+g|Vo?ZmcPmF7~
zQg-9Jckj`wYivRf9>|`Ax>k7zFHX`y`b-vh>=r*fS;yo2P5Kk9+~C$Jc09?0Qv{y6
z#hcq}T$5+uX}*;w@Qln7@hltWTe)befmK{JRbaK!=alB>8(6~y`2zJy*D4)eVBmR9
zDG+!;={luxg$7<^a-qO_c_xW?iCc>O88}VH%Z!;Ouz_o*mEsjziUeL|N{P<-#mPKX
zq+=tmNZaJL9Bk&XVu9D>x)crks6_a_{_j~jVq<t*9%X~g!V=L7jocuF_Zuw-t@GU^
z*DJbH9;$||@&l|apKjnyE}t&2O}^~_ccUG9&+x(a#>5$Zz}rkO71*Kv%R6j8GaB!*
z&rE^$l<bsZrEi&m_ZeCyuuJOAn=^Q}%#IJ}T`urZ%S-r}@0CYmH_u7kqt4<J_3*aO
z>Y(kFANwf}%(@TzxVEB%b7#kEpGo^%*%xl>$f}2Q?MvzVl^<yFyg9mdQ2JNOzjk{F
zlPav*H_{I&|5o}s?XX;br`F%gbscT<{InmW9Z_~v*)?fDN;{^kN!n62xA)?ShyAqU
z(oZP=NqPy37ld)od_V1^^i#@DxA?|NKkbb4pOydO_IT~Av|p8-b6XHal}-Ci`tQom
zE1x?%h>n>WGZ%Kynq_uDWq-8HxUznWI%pSV_NU7Jl36W-tC!;vH&vhX{aYpuM~uVK
zle?D1bN}M?+*s}7@!t}c*}tZO?H(!NpqgX2%G+xz_)bkeoi#r6t38TqDlc4`?|c3K
WdqvZ^%+u?J<ThZlZv@4%r~Uzt>*0U^

delta 2047
zcmZ9~d013c7zS`&9xf0`7T%dVzyKr22;MLhS<G!RDFrpqltlqW0ojkT7Me<~;gY=V
zX=00QYWR?usTr+Ld#3G+WN2lUw3n83<}~t9|8als`<=O*`>omRy=JqwPrTu6-R)Ck
zz|O7CQ3zvZemvWPub^hr5zY{si3skFo&X0stpz+Kbs+z?2}F9DS0jqu!6pW&Rx~e*
zcD2R?GsB{>Bg6tHUkwo$EXz8lh87@(yFyLGs`8M&<t26tOwulJxh%VQNkljc!z_qn
zW0;AdYT$|s18q^hoEWYno_XN{!#x8DNZ|Mg6C+ePv2QuZp(BZd9RkU+JceCqq3m&l
zB8B}1ni#1DuIxMT=|CN$_=5~bt8h%;urpG}SiT=AFs{#Oe%v0V!^QnkCazLL<K<8R
zTL$U4nr(wjOi-FCwFcL4WweQFl}uE<8BQIOSmqQ+lc&1B!hnwO!4_PU?&al`keHH?
zz^bybY<CX9WLXH|p_m*@VQ{R8sp^>P-0#SYBs)*W8pz;znPjSD+J&U!^&$Qtn9idU
z1g>{uYmALsQbRF=`%+EJRP8JoWOp=Qa{|cbf{7+_6z5*(ccuF=Ws;6roHEJ8Y!&9Y
zXXsAC(sbl=c$$d<9<oos9QPG<bfw*<VJ_=3Ocbhtd7c3uj?XkOpShVPiqt@{9B{Ec
z*kI%|J4!finu!H!rc};k@$_{6j{ehM@J1Pr%rH@|q6)d5F1}o8a9NhdwwVSh`SeVI
zD$h-gk#0vdw`2(jk2&d@tMRK@R+eVlu#nB!0*lm7EX(rY)EpaXSdt@9>*+_ywee+W
zZanHZIai?G<5u~p0(mw!2@M=JOQ2D@d)s|kIl3R)V*{8z$0C1cC~ly2wm_4byG~en
zE;EM5W`|-i&q-h6InT)*c?r0QU3mgarKMsS=gzTmXTE{ud?{a`S?SGE4YI(B6@08f
zV5QPkQsc0i8|MhDQL>g;V&Sa0Hs4$1CJj$wzxr~lV_rivx70hZUd66L8#XYfQ21?>
zC5K}eH`$UIpJV6PLSM$t({U@u&J)-qk94n|lV|271h&d<;)oH+BZm%4O6KAG`Cy+s
zf<MjIaU1=M1aAM2e^{jB4t^*7&OUB%Pq7_$@!ev9yZ_@o{WWeaF>nv}mI&M{vs7$m
z`%)`cEHJQzn->V&r*x~*(ozF$TwW@$P3iqgr<NIbfW>734=Q~~X+pVy?MyEhcv#*^
zDjwnPs$hmz=y;Uz6#|cOTSW~Xr=?P02Q#X5F0D%EiAo(ic~;skj}_nv9;*^)m(MlW
z%@?ahK*zs#=@=HzFXUCW+bpaWBk?336~b>%??vl8nC9N1OXa0%cuKy2mGuh^?B#}q
z0{i4{hj<!+9KFaN&vc|N3Ig^syGG!E`d<#Re{CF|<(OK5LrR{LVr4*`flfx&2|O?L
z!k066s?LrV=vOcBQtu|b%xCN4@Cr{$eO2AXYijZKH4M;RmoNJU4>yd$o7~n^&Bcw0
z+FR1zR`!m^2D14ET{|rOUFAo5z2rt+J1YG><?nkuf@w`w?E~o_D*s6OgWAXP`4jd0
zseEpwZAp;!nY7Q99aHv~v@U61C_64~9eeuw^7u_b+LzM1m7kDa&8p>5d}V2nc2fFR
z%D?XQ9m|5WZ=|16{;kIowbRnRQ}(^b!YG<;+8OCR%70M4xG{{5T8+6k572&;*-t9_
zxp&5$jaxB5`$cBIs_ZwJwJ?0;2K>&QE4u^!kcq<)?{K8BbA2M;S+$+6wZ1-m0q1zt
z+9n3BF2$enuWp`c@n=v=Ef1_M#d%)b(v81WqkLUyfEWIEUL0NPeS9I=8|(>iQmnu0
EA2Ai*!vFvP

diff --git a/changelog_roaimob.txt b/changelog_roaimob.txt
index 400c458..a4e4a00 100644
--- a/changelog_roaimob.txt
+++ b/changelog_roaimob.txt
@@ -1,4 +1,12 @@
-<!-- 
+<!--
+08/07/2026
+ROAIMOB - 2.1.43
+
+:modificare:
+  Transformare imobilizare in curs in imobilizare corporala/necorporala. S-a corectat trunchierea numarului de document la operatia de inchidere a imobilizarii in curs.
+-->
+
+<!--
 26/05/2026
 ROAIMOB - 2.1.42
 
@@ -6,7 +14,7 @@ ROAIMOB - 2.1.42
   S-a corectat o eroare la export xls lista imobilizari.
 -->
 
-<!-- 
+<!--
 25/05/2026
 ROAIMOB - 2.1.41
 
diff --git a/docs/README.md b/docs/README.md
new file mode 100644
index 0000000..1d00bf7
--- /dev/null
+++ b/docs/README.md
@@ -0,0 +1,11 @@
+# Documentatie tehnica ROAIMOB
+
+Notite concise despre structura interna a proiectului (fluxuri, pachete Oracle, tabele), descoperite in timp ce se lucreaza la sarcini concrete. Completeaza CLAUDE.md — nu il inlocuieste si nu duplica ce e deja evident din cod.
+
+- [flux-transformare-in-mf.md](flux-transformare-in-mf.md) — transformare imobilizare in curs -> imobilizare corporala/necorporala
+- [pack_imob.md](pack_imob.md) — pachetul Oracle `pack_imob` (proceduri cheie)
+- [tabele.md](tabele.md) — tabele/views `IMOB_*` relevante
+
+## Cand actualizezi
+
+Adauga sau corecteaza o notita aici ori de cate ori descoperi ceva nou si ne-evident despre structura proiectului in timpul rezolvarii unei sarcini (un flux ascuns, o capcana, o conventie). Nu documenta ce oricine ar afla citind codul in 30 de secunde — scopul e sa scurtezi investigatii viitoare similare, nu sa duplici codul.
diff --git a/docs/flux-transformare-in-mf.md b/docs/flux-transformare-in-mf.md
new file mode 100644
index 0000000..bc839cc
--- /dev/null
+++ b/docs/flux-transformare-in-mf.md
@@ -0,0 +1,25 @@
+# Flux: transformare imobilizare in curs -> imobilizare corporala/necorporala
+
+Cod operatie 3 (vezi enum in `Programe/oproceduri_operatii.prg`).
+
+## UI
+
+- Punct de intrare: `Clase/oimobilizari.vcx`, clasa `frm_introducere`, metoda `inainte_de_do_termin`.
+- Declansat cand `Thisform.ntipmodificare = 4`.
+- Cursor `crslista3` contine imobilizarile in curs selectate pentru transformare (SCAN peste ele — se pot transforma mai multe simultan intr-un singur activ nou).
+
+## Pasi per imobilizare in curs (in SCAN)
+
+1. `pack_imob.adauga_mf(...)` — creeaza activul NOU (corporal/necorporal); genereaza si prima operatie a acestuia, cu `EXPLICATIA = "TRANSFORMARE IN MF"`.
+2. `pack_imob.inreg_transformare_in_mf(...)` — "inchide" imobilizarea in curs veche (`v_id_mf`): actualizeaza `IMOB_NOM_MF`, adauga operatia `id_tip_operatie=3` pe activul vechi, leaga operatia noua de cea veche prin `pack_imob.adauga_la_transformare`.
+
+## Legatura intre activul nou si cel vechi
+
+- `IMOB_TRANSFORMARE_MF` (insert facut de `pack_imob.adauga_la_transformare`) tine perechea `id_mf_nou/id_operatie_nou` <-> `id_mf_vechi/id_operatie_vechi`.
+- `inreg_transformare_in_mf` gaseste `id_operatie_nou` prin `select min(id_operatie_mf) from imob_operatii_mf where id_mf = v_id_mf_nou` — presupune ca operatia noua a fost deja inserata (pasul 1) inainte sa ruleze pasul 2. Ordinea pasilor in cod conteaza.
+
+## Capcana descoperita (fix 08/07/2026, v2.1.43)
+
+Valorile numerice mari (NRACT/NRDOC, coloane Oracle `NUMBER(20)`) trebuie convertite explicit cu `STR(x, 20)` cand se construieste SQL ca text (nu parametru legat `?var`). `STR(x)` fara lungime foloseste implicitul VFP (10) si trunchiaza/corupe cifrele — fara eroare vizibila, insertul reuseste cu valoare gresita.
+
+Verifica toate apelurile `STR()`/`ALLTRIM(STR())` dintr-un bloc SQL nou, nu doar unul — e usor sa repari un apel si sa ratezi altul identic in acelasi bloc. Asa a fost bug-ul aici: in acelasi bloc din `inainte_de_do_termin`, doua din trei apeluri (`Str(m.pnnract,20)` pt. `adauga_mf`, `Str(nract,20)` pt. `v_nract`) erau corecte; al treilea (`Str(pnnract)`, pt. `v_nrdoc`) nu avea lungime specificata.
diff --git a/docs/pack_imob.md b/docs/pack_imob.md
new file mode 100644
index 0000000..ae6650e
--- /dev/null
+++ b/docs/pack_imob.md
@@ -0,0 +1,22 @@
+# Pachetul Oracle pack_imob
+
+Sursa vendorizata local: `pack_imob.pck` (specific ROAIMOB, nu e in `COMUN`).
+
+## Proceduri cheie observate
+
+- `pack_imob.adauga_mf(...)` — creeaza o imobilizare noua (in curs/corporala/necorporala) in `IMOB_NOM_MF` + prima operatie in `IMOB_OPERATII_MF`.
+- `pack_imob.inreg_transformare_in_mf(...)` — vezi [flux-transformare-in-mf.md](flux-transformare-in-mf.md).
+- `pack_imob.add_operatie_mf(...)` — insert generic in `IMOB_OPERATII_MF`, folosit de mai multe fluxuri (majorare, reevaluare, transformare etc).
+- `pack_imob.adauga_rata(...)` — genereaza/actualizeaza rata de amortizare asociata unei operatii.
+- `pack_imob.adauga_la_transformare(...)` — leaga operatia activului nou de operatia activului vechi in `IMOB_TRANSFORMARE_MF`.
+- `pack_imob.schimba_mf(...)` — folosit din fluxul "modificare cu istoric" (`frm_modificare`).
+- `pack_imob.inreg_majorare` / `pack_imob.inreg_reevaluare` — apelate din `Programe/oproceduri_operatii.prg` (`op_majorare`, `op_reevaluare`).
+
+## Observatie: doua stiluri de apel din VFP, riscuri diferite
+
+In acelasi fisier (`Clase/oimobilizari.vcx`) coexista:
+
+- **SQL construit prin concatenare de text** (`STR()`, `ALLTRIM()`, `Transform()`) — risc de trunchiere/formatare gresita daca nu esti atent la lungimi (vezi capcana STR() din flux-transformare-in-mf.md).
+- **parametri legati** (`?variabila`) prin `goExecutor` — mai sigur, fara conversie manuala numar-in-text.
+
+Cand cauti un bug de tipul "valoare corupta la salvare, fara eroare afisata", verifica intai daca apelul respectiv foloseste stilul text-concatenat.
diff --git a/docs/tabele.md b/docs/tabele.md
new file mode 100644
index 0000000..1ae7bdd
--- /dev/null
+++ b/docs/tabele.md
@@ -0,0 +1,18 @@
+# Tabele/views IMOB_* relevante
+
+Schema Oracle e per companie (`gcS`, ex. `CONTAFIN`).
+
+- `IMOB_NOM_MF` — nomenclator/master imobilizari (un rand per activ, indiferent de tip: in curs/corporal/necorporal).
+- `IMOB_OPERATII_MF` — istoric operatii per activ. Coloane cheie: `ID_MF`, `ID_TIP_OPERATIE`, `VALOARE`, `VALOARE_RAMASA`, `NRDOC`, `DATADOC`, `EXPLICATIA`, `ID_OPERATIE_PREC` (operatia precedenta), `STERS`/`DATAORA_STERS` (soft delete).
+- `IMOB_LISTA_MF` — lista curenta / gestiune (locatie, responsabil, sectie, sucursala), actualizata prin `pack_imob.add_in_lista_mf`.
+- `IMOB_TRANSFORMARE_MF` — leaga operatia noului activ (dupa transformare in MF) de operatia activului in curs original. Vezi [flux-transformare-in-mf.md](flux-transformare-in-mf.md).
+- `IMOB_BUNURICAPITAL` — bunuri de capital (relevant TVA/ajustare); expus si ca view `imob_vbunuricapital`.
+- `IMOB_CONTURI` — mapare conturi contabile.
+
+## Coduri operatie (`ID_TIP_OPERATIE`)
+
+Acelasi enum ca in `Programe/oproceduri_operatii.prg`: 1 introducere, 2 preluare, 3 transformare in MF, 4 iesire din gestiune, 5 intrare in gestiune, 6 majorare, 7 reevaluare, 8 schimbare DNS, 9 recalculare cota, 10 conservare, 11 scoatere din conservare, 12 modificare cu istoric, 13 inchidere, 14 schimbare DNS + reevaluare.
+
+## Coloane numerice mari
+
+`NRACT`/`NRDOC` sunt `NUMBER(20)` — pot contine numere de document lungi. Orice cod VFP care le construieste prin `STR()` (concatenare text SQL, nu parametru legat) trebuie sa foloseasca explicit lungime 20, altfel trunchiaza silentios (vezi capcana in flux-transformare-in-mf.md).
diff --git a/pack_imob.pck b/pack_imob.pck
new file mode 100644
index 0000000..50fcd3f
--- /dev/null
+++ b/pack_imob.pck
@@ -0,0 +1,3317 @@
+CREATE OR REPLACE PACKAGE pack_imob IS
+  imob_data_operatie date;
+
+  nNrLuniCurent number; -- an*12+luna curenta
+  nLunaCurenta  number;
+  nAnCurent     number;
+  dDataCurenta  date; -- 01/ll/aaaa
+
+  type tip_valori_mf is record(
+    data_test            date,
+    id_mf                number,
+    id_lista_mf          number,
+    id_operatie_mf       number,
+    id_operatie_prec     number,
+    id_calcul_rate       number,
+    denumire             varchar2(500),
+    data_achizitie       date,
+    data_pif             date,
+    explicatia           varchar2(500),
+    nract                number,
+    nr_pif               number,
+    procent              number,
+    coeficient           number,
+    id_tip_imobilizare   number,
+    tip_imobilizare      varchar2(50),
+    id_tip_amortizare    number,
+    tip_amortizare       varchar2(50),
+    dns_luni             number,
+    cont                 varchar2(4),
+    acont                varchar2(4),
+    cod_mf               varchar2(20),
+    id_gestiune          number,
+    gestiune             varchar2(50),
+    id_lucrare           number,
+    nrord                varchar2(50),
+    id_responsabil       number,
+    responsabil          varchar2(50),
+    id_sectie            number,
+    sectie               varchar2(50),
+    id_sucursala         number,
+    sucursala            varchar2(100),
+    nr_inventar          number,
+    lper_in              varchar2(7),
+    lper_fin             varchar2(7),
+    amort_max_deductibil number,
+    data_operatie        date,
+    id_tip_operatie      number,
+    ultima_operatie      varchar2(50),
+    cauza                varchar2(50),
+    uzura_prec           number,
+    dns_ramas            number,
+    iesit_din_gest       number,
+    cota_an              number,
+    cota_luna            number,
+    data_expirare        date,
+    ultima_rata          number,
+    valoare              number,
+    valoare_ramasa       number,
+    valoare_reziduala    number,
+    rata                 number,
+    --valoare_ramasa_amort number,
+    amort_prec number,
+    --amort_prec_rata    number,
+    uzura              number,
+    uzura_rata         number,
+    rper_in            varchar2(7),
+    rper_fin           varchar2(7),
+    valoare_rol        number,
+    valoare_ramasa_rol number,
+    rata_rol           number,
+    ultima_rata_rol    number,
+    valoare_achizitie  number,
+    valoare_prec       number,
+    id_tip_iesire      number,
+    tip_iesire         varchar2(100),
+    durata_ramasa      number);
+
+  procedure setlunacurenta(v_data IN DATE);
+  function getNrLuniCurent return number;
+  function getDataCurenta return date;
+
+  PROCEDURE adauga_mf(v_schema               IN VARCHAR2,
+                      v_data                 IN DATE,
+                      v_nract                IN NUMBER,
+                      v_dataact              IN DATE,
+                      v_denumire             IN VARCHAR2,
+                      v_explicatia           IN VARCHAR2,
+                      v_valoare              IN NUMBER,
+                      v_data_pif             IN DATE,
+                      v_nr_pif               IN NUMBER,
+                      v_nr_inventar          IN NUMBER,
+                      v_cod                  IN VARCHAR2,
+                      v_dns                  IN NUMBER,
+                      v_uzura                IN NUMBER,
+                      v_amort_prec           IN NUMBER,
+                      v_id_gestiune          IN NUMBER,
+                      v_id_responsabil       IN NUMBER,
+                      v_id_sectie            IN NUMBER,
+                      v_id_lucrare           IN NUMBER,
+                      v_id_sucursala         IN IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                      v_id_tip_amortizare    IN NUMBER,
+                      v_procent              IN NUMBER,
+                      v_coeficient           IN NUMBER,
+                      v_id_tip_imobilizare   IN NUMBER,
+                      v_cont                 IN VARCHAR2,
+                      v_acont                IN VARCHAR2,
+                      v_id_util              IN NUMBER,
+                      v_amort_max_deductibil IN NUMBER,
+                      v_id_fact              IN NUMBER,
+                      v_tip_operatie         IN NUMBER,
+                      v_explicatia_operatie  in varchar2,
+                      v_bunCapital           in number,
+                      v_bazatva              in number,
+                      v_tva                  in number,
+                      v_id_cotatva           in number,
+                      v_prorataTva           in number);
+
+  PROCEDURE adauga_mf(v_id_mf                IN OUT NUMBER,
+                      v_schema               IN VARCHAR2,
+                      v_data                 IN DATE,
+                      v_nract                IN NUMBER,
+                      v_dataact              IN DATE,
+                      v_denumire             IN VARCHAR2,
+                      v_explicatia           IN VARCHAR2,
+                      v_valoare              IN NUMBER,
+                      v_data_pif             IN DATE,
+                      v_nr_pif               IN NUMBER,
+                      v_nr_inventar          IN NUMBER,
+                      v_cod                  IN VARCHAR2,
+                      v_dns                  IN NUMBER,
+                      v_uzura                IN NUMBER,
+                      v_amort_prec           IN NUMBER,
+                      v_id_gestiune          IN NUMBER,
+                      v_id_responsabil       IN NUMBER,
+                      v_id_sectie            IN NUMBER,
+                      v_id_lucrare           IN NUMBER,
+                      v_id_sucursala         IN IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                      v_id_tip_amortizare    IN NUMBER,
+                      v_procent              IN NUMBER,
+                      v_coeficient           IN NUMBER,
+                      v_id_tip_imobilizare   IN NUMBER,
+                      v_cont                 IN VARCHAR2,
+                      v_acont                IN VARCHAR2,
+                      v_id_util              IN NUMBER,
+                      v_amort_max_deductibil IN NUMBER,
+                      v_id_fact              IN NUMBER,
+                      v_tip_operatie         IN NUMBER,
+                      v_explicatia_operatie  in varchar2,
+                      v_bunCapital           in number,
+                      v_bazatva              in number,
+                      v_tva                  in number,
+                      v_id_cotatva           in number,
+                      v_prorataTva           in number);
+
+  PROCEDURE adauga_mf(v_id_mf                IN OUT NUMBER,
+                      v_schema               IN VARCHAR2,
+                      v_data                 IN DATE,
+                      v_nract                IN NUMBER,
+                      v_dataact              IN DATE,
+                      v_denumire             IN VARCHAR2,
+                      v_explicatia           IN VARCHAR2,
+                      v_valoare              IN NUMBER,
+                      v_valoare_reziduala    IN NUMBER,
+                      v_data_pif             IN DATE,
+                      v_nr_pif               IN NUMBER,
+                      v_nr_inventar          IN NUMBER,
+                      v_cod                  IN VARCHAR2,
+                      v_dns                  IN NUMBER,
+                      v_uzura                IN NUMBER,
+                      v_amort_prec           IN NUMBER,
+                      v_id_gestiune          IN NUMBER,
+                      v_id_responsabil       IN NUMBER,
+                      v_id_sectie            IN NUMBER,
+                      v_id_lucrare           IN NUMBER,
+                      v_id_sucursala         IN IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                      v_id_tip_amortizare    IN NUMBER,
+                      v_procent              IN NUMBER,
+                      v_coeficient           IN NUMBER,
+                      v_id_tip_imobilizare   IN NUMBER,
+                      v_cont                 IN VARCHAR2,
+                      v_acont                IN VARCHAR2,
+                      v_id_util              IN NUMBER,
+                      v_amort_max_deductibil IN NUMBER,
+                      v_id_fact              IN NUMBER,
+                      v_tip_operatie         IN NUMBER,
+                      v_explicatia_operatie  in varchar2,
+                      v_bunCapital           in number,
+                      v_bazatva              in number,
+                      v_tva                  in number,
+                      v_id_cotatva           in number,
+                      v_prorataTva           in number);
+
+  PROCEDURE adauga_rata(v_schema          IN VARCHAR2,
+                        v_id_operatie_mf  IN NUMBER,
+                        v_id_tip_operatie IN NUMBER,
+                        v_id_mf           IN NUMBER,
+                        v_dns_ramas       IN NUMBER,
+                        v_data_calcul     IN DATE,
+                        v_valoare         IN NUMBER,
+                        v_valoare_ramasa  IN NUMBER,
+                        v_uzura_prec      in number,
+                        v_fiscala         in number);
+
+  PROCEDURE inreg_majorare(v_schema       IN VARCHAR2,
+                           v_id_sucursala in imob_lista_mf.id_sucursala%type,
+                           v_id_mf        IN NUMBER,
+                           v_valoare      IN NUMBER,
+                           v_datareeval   IN DATE,
+                           v_explicatia   in varchar2,
+                           v_id_util      IN NUMBER,
+                           v_fiscala      in number,
+                           v_datadoc      in date,
+                           v_nrdoc        in number,
+                           v_buncapital   in number,
+                           v_bazaTva      in number,
+                           v_idcotaTva    in number,
+                           v_Tva          in number,
+                           v_prorataTva   in number);
+
+  PROCEDURE inreg_reevaluare(v_schema       IN VARCHAR2,
+                             v_id_sucursala in imob_lista_mf.id_sucursala%type,
+                             v_id_mf        IN NUMBER,
+                             v_valoare      IN NUMBER,
+                             v_amortizare   IN NUMBER,
+                             v_datareeval   IN DATE,
+                             v_explicatia   in varchar2,
+                             v_id_util      IN NUMBER,
+                             v_fiscala      in number,
+                             v_datadoc      in date,
+                             v_nrdoc        in number,
+                             v_buncapital   in number,
+                             v_valreev      in number);
+
+  PROCEDURE inreg_schimbdns_reevaluare(v_schema            in varchar2,
+                                       v_id_sucursala      in imob_lista_mf.id_sucursala%type,
+                                       v_id_mf             in number,
+                                       v_cod               IN VARCHAR2, -- codul nou
+                                       v_dns               IN NUMBER, -- dns nou
+                                       v_valoare           in number, -- valoarea noua de inventar
+                                       v_amortizare        in number, -- valoarea noua total amortizata
+                                       v_uzura             IN NUMBER, -- uzura noua totala
+                                       v_valoare_reziduala IN NUMBER, -- valoarea noua reziduala
+                                       v_datareeval        in date,
+                                       v_explicatia        in varchar2,
+                                       v_id_util           in number,
+                                       v_fiscala           in number,
+                                       v_datadoc           in date,
+                                       v_nrdoc             in number,
+                                       v_buncapital        in number,
+                                       v_valreev           in number);
+
+  PROCEDURE inreg_conservare(v_schema         IN VARCHAR2,
+                             v_id_sucursala   in imob_lista_mf.id_sucursala%type,
+                             v_id_mf          IN NUMBER,
+                             v_tip            IN NUMBER,
+                             v_cauza          IN VARCHAR2,
+                             v_dataconservare IN DATE,
+                             v_id_util        IN NUMBER,
+                             v_fiscala        in number,
+                             v_datadoc        in date,
+                             v_nrdoc          in number,
+                             v_buncapital     in number,
+                             v_bazatva        in number,
+                             v_idcotatva      in number,
+                             v_tva            in number,
+                             v_prorataTva     in number);
+
+  PROCEDURE inreg_schimbdns(v_schema        IN VARCHAR2,
+                            v_id_sucursala  in imob_lista_mf.id_sucursala%type,
+                            v_id_mf         IN NUMBER,
+                            v_codnou        IN VARCHAR2,
+                            v_dnsnou        IN NUMBER,
+                            v_dataschimbare IN DATE,
+                            v_cauza         IN VARCHAR2,
+                            v_id_util       IN NUMBER,
+                            v_fiscala       in number,
+                            v_datadoc       in date,
+                            v_nrdoc         in number);
+
+  PROCEDURE inreg_gest(v_schema        IN VARCHAR2,
+                       v_id_sucursala  in imob_lista_mf.id_sucursala%type,
+                       v_id_mf         IN NUMBER,
+                       v_tip           IN NUMBER,
+                       v_cauza         IN VARCHAR2,
+                       v_dataschimbare IN DATE,
+                       v_id_util       IN NUMBER,
+                       v_fiscala       in number,
+                       v_datadoc       in date,
+                       v_nrdoc         in number,
+                       v_buncapital    in number,
+                       v_bazatva       in number,
+                       v_idcotaTva     in number,
+                       v_tva           in number,
+                       v_prorataTva    in number,
+                       v_id_tip_iesire in imob_tipuri_iesire.id%type default null);
+
+  PROCEDURE inreg_transformare_in_mf(v_schema               IN VARCHAR2,
+                                     v_id_mf                IN NUMBER,
+                                     v_id_mf_nou            IN NUMBER,
+                                     v_datamodificare       IN DATE,
+                                     v_nract                IN NUMBER,
+                                     v_dataact              IN DATE,
+                                     v_denumire             IN VARCHAR2,
+                                     v_explicatia           IN VARCHAR2,
+                                     v_valoare              IN NUMBER,
+                                     v_data_pif             IN DATE,
+                                     v_nr_pif               IN NUMBER,
+                                     v_nr_inventar          IN NUMBER,
+                                     v_cod                  IN VARCHAR2,
+                                     v_dns                  IN NUMBER,
+                                     v_uzura                IN NUMBER,
+                                     v_dns_ramas            IN NUMBER,
+                                     v_valoare_ramasa       IN NUMBER,
+                                     v_valoare_retinuta     IN NUMBER,
+                                     v_id_gestiune          IN NUMBER,
+                                     v_id_responsabil       IN NUMBER,
+                                     v_id_sectie            IN NUMBER,
+                                     v_id_lucrare           IN NUMBER,
+                                     v_id_sucursala         IN IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                                     v_id_tip_amortizare    IN NUMBER,
+                                     v_procent              IN NUMBER,
+                                     v_coeficient           IN NUMBER,
+                                     v_id_tip_imobilizare   IN NUMBER,
+                                     v_cont                 IN VARCHAR2,
+                                     v_acont                IN VARCHAR2,
+                                     v_id_util              IN NUMBER,
+                                     v_amort_max_deductibil IN NUMBER,
+                                     v_fiscala              in number,
+                                     v_datadoc              in date,
+                                     v_nrdoc                in number,
+                                     v_id_tip_operatie      in number DEFAULT 3);
+
+  FUNCTION getLuniOperatie RETURN NUMBER;
+
+
+  procedure schimba_mf(v_id_mf                IN NUMBER,
+                       v_nract                IN NUMBER,
+                       v_data_achizitie       IN DATE,
+                       v_denumire             IN VARCHAR2,
+                       v_explicatie_n         IN VARCHAR2,
+                       v_data_pif             IN DATE,
+                       v_nr_pif               IN NUMBER,
+                       v_procent              IN NUMBER,
+                       v_coeficient           IN NUMBER,
+                       v_id_tip_amortizare    IN NUMBER,
+                       v_id_tip_imobilizare   IN NUMBER,
+                       v_id_lista_mf          IN NUMBER,
+                       v_dns_luni             IN NUMBER,
+                       v_Cod_mf               IN VARCHAR2,
+                       v_cont                 IN VARCHAR2,
+                       v_acont                IN VARCHAR2,
+                       v_nr_inventar          IN NUMBER,
+                       v_id_gestiune          IN NUMBER,
+                       v_id_responsabil       IN NUMBER,
+                       v_id_sectie            IN NUMBER,
+                       v_id_lucrare           IN NUMBER,
+                       v_id_sucursala         IN IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                       v_lper_in              in VARCHAR2,
+                       v_lper_fin             in VARCHAR2,
+                       v_id_operatie_mf       IN NUMBER,
+                       v_id_tip_operatie      in NUMBER,
+                       v_valoare              IN NUMBER,
+                       v_valoare_ramasa       IN NUMBER,
+                       v_dns_ramas            in NUMBER,
+                       v_valoare_reziduala    IN NUMBER,
+                       v_data_operatie        in DATE,
+                       v_explicatie_o         in VARCHAR2,
+                       v_uzura_prec           in NUMBER,
+                       v_id_rata              in NUMBER,
+                       v_rper_in              in VARCHAR2,
+                       v_rper_fin             in VARCHAR2,
+                       v_rata                 in NUMBER,
+                       v_cota_an              in NUMBER,
+                       v_cota_luna            in NUMBER,
+                       v_ultima_rata          in NUMBER,
+                       v_data_ultima_rata     in DATE,
+                       v_fiscala              in NUMBER,
+                       v_id_util              IN NUMBER,
+                       v_amort_max_deductibil IN NUMBER,
+                       v_nrdoc                IN IMOB_OPERATII_MF.NRDOC%TYPE DEFAULT NULL,
+                       v_datadoc              in IMOB_OPERATII_MF.DATADOC%TYPE DEFAULT NULL);
+
+  procedure sterge_mf(v_id_mf IN NUMBER, v_id_util IN number default null);
+
+  /*  function add_operatie_mf(v_schema              IN VARCHAR2,
+                         v_id_mf               IN NUMBER,
+                         v_id_tip_operatie     IN NUMBER,
+                         v_valoare             IN NUMBER,
+                         v_valoare_ramasa      IN NUMBER,
+                         v_dns_ramas           IN NUMBER,
+                         v_data_operatie       IN DATE,
+                         v_explicatia_operatie IN VARCHAR2,
+                         v_id_util             IN NUMBER,
+                         v_fiscala             in number,
+                         v_datadoc             in date,
+                         v_nrdoc               in number,
+                         v_id_tip_iesire       in imob_tipuri_iesire.id%type default null)
+  return number;*/
+
+  function add_operatie_mf(v_id_mf               IN NUMBER,
+                           v_id_tip_operatie     IN NUMBER,
+                           v_valoare             IN NUMBER,
+                           v_valoare_ramasa      IN NUMBER,
+                           v_dns_ramas           IN NUMBER,
+                           v_valoare_reziduala   IN NUMBER,
+                           v_data_operatie       IN DATE,
+                           v_explicatia_operatie IN VARCHAR2,
+                           v_id_util             IN NUMBER,
+                           v_fiscala             in number,
+                           v_datadoc             in date,
+                           v_nrdoc               in number,
+                           v_id_tip_iesire       in imob_tipuri_iesire.id%type default null)
+    return number;
+
+  procedure add_in_lista_mf(v_schema               IN VARCHAR2,
+                            v_id_mf                IN NUMBER,
+                            v_dns                  IN NUMBER,
+                            v_cod_mf               IN VARCHAR2,
+                            v_cont                 IN VARCHAR2,
+                            v_acont                IN VARCHAR2,
+                            v_id_lucrare           IN NUMBER,
+                            v_id_gestiune          IN NUMBER,
+                            v_id_sectie            IN NUMBER,
+                            v_id_responsabil       IN NUMBER,
+                            v_id_sucursala         IN IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                            v_nr_inventar          IN NUMBER,
+                            v_id_util              IN NUMBER,
+                            v_data_calcul          IN DATE,
+                            v_durata               IN NUMBER,
+                            v_amort_max_deductibil IN NUMBER);
+
+  procedure adauga_la_transformare(v_id_mf_nou        IN NUMBER,
+                                   v_id_operatie_nou  IN NUMBER,
+                                   v_id_mf_curs       IN NUMBER,
+                                   v_id_operatie_curs IN NUMBER,
+                                   v_valoare          IN NUMBER);
+
+  procedure undo_in_imobilizare_in_curs(v_id_tip_imobilizare IN NUMBER,
+                                        v_id_operatie        IN NUMBER);
+
+  procedure recalculat_expirarea(v_schema           IN VARCHAR2,
+                                 v_id_operatie_prec IN NUMBER,
+                                 v_fiscala          IN NUMBER);
+
+  FUNCTION get_max_id(v_schema  IN VARCHAR2,
+                      v_tabela  IN VARCHAR2,
+                      v_nume_id IN VARCHAR2) RETURN NUMBER;
+
+  procedure CALCUL_SITUATIE_LUNARA(v_datain       in date,
+                                   v_datasf       in date,
+                                   v_cond         in varchar2,
+                                   v_fiscala      in number,
+                                   v_id_sucursala in number,
+                                   crsMF          out PACK_TYPES.tip_cursor);
+
+  procedure CALCUL_SITUATIE_LUNARA2(v_datain       in date,
+                                    v_datasf       in date,
+                                    v_cond         in varchar2,
+                                    v_fiscala      in number,
+                                    v_id_sucursala in number,
+                                    v_tip_selectie in number,
+                                    crsMF          out PACK_TYPES.tip_cursor);
+
+  function valori_calcul(v_schema       in varchar2,
+                         v_id_sucursala in IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                         v_datain       in date,
+                         v_datasf       in date,
+                         v_cond         in varchar2,
+                         v_fiscala      in number)
+    return PACK_TYPES.tip_cursor;
+
+  function valori_calcul_view(v_id_mf   in number,
+                              v_data    in date,
+                              v_fiscala in number)
+    return PACK_TYPES.tip_cursor;
+
+  procedure sterge_operatie_mf(v_id_operatie      IN NUMBER,
+                               v_id_operatie_prec IN NUMBER,
+                               v_fiscala          IN NUMBER);
+
+  procedure modifica_lista_mf(v_id_mf                IN IMOB_LISTA_MF.ID_MF%TYPE,
+                              v_id_lista_mf          IN IMOB_LISTA_MF.ID_LISTA_MF%TYPE,
+                              v_dns_luni             IN IMOB_LISTA_MF.DNS_LUNI%TYPE,
+                              v_Cod_mf               IN IMOB_LISTA_MF.COD_MF%TYPE,
+                              v_cont                 IN IMOB_LISTA_MF.CONT%TYPE,
+                              v_acont                IN IMOB_LISTA_MF.ACONT%TYPE,
+                              v_nr_inventar          IN IMOB_LISTA_MF.NR_INVENTAR%TYPE,
+                              v_id_gestiune          IN IMOB_LISTA_MF.ID_GESTIUNE%TYPE,
+                              v_id_responsabil       IN IMOB_LISTA_MF.ID_RESPONSABIL%TYPE,
+                              v_id_sectie            IN IMOB_LISTA_MF.ID_SECTIE%TYPE,
+                              v_id_lucrare           IN IMOB_LISTA_MF.ID_LUCRARE%TYPE,
+                              v_id_sucursala         IN IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                              v_id_util              IN IMOB_LISTA_MF.ID_UTIL%TYPE,
+                              v_an                   IN IMOB_LISTA_MF.AN%TYPE,
+                              v_luna                 IN IMOB_LISTA_MF.LUNA%TYPE,
+                              v_an_exp               IN IMOB_LISTA_MF.AN%TYPE,
+                              v_luna_exp             IN IMOB_LISTA_MF.LUNA%TYPE,
+                              v_amort_max_deductibil IN IMOB_LISTA_MF.AMORT_MAX_DEDUCTIBIL%TYPE);
+
+  procedure adauga_buncapital(v_id_mf           in imob_bunuricapital.id_mf%type,
+                              v_nrdoc           in imob_bunuricapital.nrdoc%type,
+                              v_datadoc         in imob_bunuricapital.datadoc%type,
+                              v_bazatva         in imob_bunuricapital.bazatva%type,
+                              v_tva             in imob_bunuricapital.tva%type,
+                              v_id_cota_tva     in imob_bunuricapital.id_cota_tva%type,
+                              v_ajustare        in imob_bunuricapital.ajustare%type,
+                              v_id_tip_operatie in imob_bunuricapital.id_tip_operatie%type,
+                              v_tvaDatorat      in imob_bunuricapital.tva_datorat%type,
+                              v_prorataTva      in imob_bunuricapital.proratatva%type);
+  procedure modifica_buncapital(v_id_mf           in imob_bunuricapital.id_mf%type,
+                                v_nrdoc           in imob_bunuricapital.nrdoc%type,
+                                v_datadoc         in imob_bunuricapital.datadoc%type,
+                                v_bazatva         in imob_bunuricapital.bazatva%type,
+                                v_tva             in imob_bunuricapital.tva%type,
+                                v_id_cota_tva     in imob_bunuricapital.id_cota_tva%type,
+                                v_ajustare        in imob_bunuricapital.ajustare%type,
+                                v_id_tip_operatie in imob_bunuricapital.id_tip_operatie%type,
+                                v_tvaDatorat      in imob_bunuricapital.tva_datorat%type,
+                                v_id_regbc        in imob_bunuricapital.id_regbc%type,
+                                v_prorataTva      in imob_bunuricapital.proratatva%type);
+  procedure sterge_buncapital(v_id_regbc in imob_bunuricapital.id_regbc%type);
+
+  FUNCTION verifica_nr_inventar(v_nr_inventar        IN IMOB_LISTA_MF.NR_INVENTAR%TYPE,
+                                v_data               IN DATE,
+                                v_id_tip_imobilizare IN NUMBER DEFAULT 1)
+    RETURN NUMBER;
+
+END pack_imob;
+/
+CREATE OR REPLACE PACKAGE BODY pack_imob is
+  /*TIP OPERATII
+  1 INTRODUCERE
+  2 PRELUARE
+  3 TRANSFORMARE IN MF
+  4 IESIRE DIN GESTIUNE
+  5 INTRARE IN GESTIUNE
+  6 MAJORARE VALOARE INVENTAR
+  7 REEVALUARE VALOARE INVENTAR
+  8 SCHIMBARE DNS
+  9 RECALCULARE RATA
+  10 CONSERVARE
+  11 SCOATERE DIN CONSERVARE
+  12 MODIFICARE CU ISTORIC
+  13 INCHIDERE
+  14 DENOMINARE
+  15 SCHIMBARE DNS + REEVALUARE */
+
+  -- 25.03.2013
+  -- marius.mutu
+  -- + v_amort_max_deductibil in add_in_lista_mf, adauga_transformare,
+
+  -- 15.05.2014
+  -- marius.mutu
+  -- + tabel IMOB_TIPURI_IESIRE cu valori predefinite pentru tipul de iesire din gestiune: 1=VANZARE, 2=CASARE, 3=FURT, 4=ALTE
+  -- foloseste la PACK_MG_EVOLUTIE pentru bilant F40 (active imobilizate) - reduceri amortizare provenite din CASARE
+  -- CALCUL_SITUATIE_LUNARA, type tip_valori_mf: + coloane valoare_prec, id_tip_iesire, tip_iesire
+  -- inreg_gest (iesire din gestiune), add_operatie_mf: + v_id_tip_iesire
+
+  -- marius.atanasiu
+  -- CALCUL_SITUATIE_LUNARA: + parametru v_tip_selectie: 0 (default), 1 = se apeleaza selectul din pack_mg_evolutie cu mai putine coloane
+
+  -- 09.10.2014
+  -- marius.mutu
+  -- overloading-ul la IMOB_CALCUL_SITUATIE_LUNARA am redenumit in IMOB_CALCUL_SITUATIE_LUNARA2 pentru ca dadea eroare la ODBC instantclient 11.2
+  -- nu stia probabil ce declaratie sa foloseasca (in ODBC 10x functiona)
+
+  -- 12.11.2019
+  -- marius.mutu
+  -- inreg_majorare - calculez dns_ramas = dns_ramas_anterior - uzura de la ultima operatie, in loc de DNS - uzura totala
+  -- UTMIDIA avea imobilizari la care marise DNS RAMAS, si nu mai corespundea cu DNS
+
+  -- 16.04.2020
+  -- marius.mutu
+  -- adauga_mf + id_mf
+
+  -- 21.05.2020
+  -- marius.mutu
+  -- schimba_mf - tratare transformare imobilizari in curs in mijloace fixe nu se transmite id_rata
+  -- probabil ca dadea eroare la selectie din imob_calcul_rate si nu se inregistra in imob_operatii si imob_calculc_rate
+  -- nu apare eroare din cauza unui bug in Oracle
+
+  -- inreg_modificare este acum inreg_transformare_in_mf
+  -- am eliminat adauga_transformare - apelez din inreg_transformare_in_mf
+
+  -- 09.06.2020
+  -- marius.mutu
+  -- + setlunacurenta.
+  -- se apeleaza inainte de imob_vsituatie_lunara, imobf_vsituatie_lunara
+
+  -- 07.07.2021
+  -- marius.mutu
+  -- add_in_lista_mf trim(v_cod)
+
+  -- 25.01.2021
+  -- marius.mutu
+  -- adaugare valoare_reziduala in imob_operatii_mf, imobf_operatii_mf si modificare proceduri
+
+  -- 28.01.2021
+  -- marius.mutu
+  -- + PACK_IMOB.calcul_situatie_lunara2 + durata_ramasa
+
+  -- 02.02.2021
+  -- pack_imob.tip_valori_mf + durata_ramasa
+
+  -- 02.04.2021
+  -- marius.mutu
+  -- inreg_gest, inreg_majorare, inreg_reevaluare, inreg_schimbdns, inreg_conservare
+  -- s-a corectat selectia din view-ul contabil/fiscal
+  -- se lua din cel fiscal, chiar si pentru calculele amortizare contabila.
+
+  -- 02.06.2021
+  -- marius.mutu
+  -- adaugare inreg_schimbdns_reevaluare (schimbare DNS si reevaluare)
+  -- corectare valoare ramasa la inreg_schimbdns (era scazuta valoarea reziduala)
+
+  -- 06.12.2021
+  -- marius.mutu
+  -- schimba_mf - tratare id_tip_imobilizare = 3
+  -- imobilizarile in curs nu au operatii si dadea eroare
+
+  -- 16.02.2022
+  -- marius.mutu
+  -- sterge_mf - se sterge si din imob_nom_mf
+
+  -- 23.03.2023
+  -- + tip_valori_mf.id_operatie_prec pentru ca s-a modificat view-ul imob_vsituatie_lunara
+
+  -- 28.08.2024
+  -- schimba_mf - modificarea operatiilor/ratelor se executa si pentru id_tip_imob = 3 (imobilizari in curs)
+  -- am adaugat informatiile lipsa in ROAIMOB > modificare operatie
+
+  -- 19.02.2026
+  -- + verifica_nr_inventar - verifica numar inventar duplicat in lista de imobilizari curenta
+  -- schimba_mf + nrdoc, datadoc
+  -- am sters definitia schimba_mf cu parametri vechi
+
+  -- 19.02.2026
+  -- schimba_mf + nrdoc, datadoc DEFAULT NULL, pentru ca este apelata din ROACONT - definire rate venituri/cheltuieli in avans
+
+  -- 24.06.2026
+  -- inreg_schimbdns - am calculat durata ramasa de calcul = dns nou - uzura totala
+  
+  procedure setlunacurenta(v_data IN DATE) is
+  begin
+    dDataCurenta  := v_data;
+    nLunaCurenta  := extract(month from v_data);
+    nAnCurent     := extract(year from v_data);
+    nNrLuniCurent := nAnCurent * 12 + nLunaCurenta;
+  end;
+
+  function getNrLuniCurent return number is
+  begin
+    return nNrLuniCurent;
+  end;
+
+  function getDataCurenta return date is
+  begin
+    return dDataCurenta;
+  end;
+  ---------------------------------------------------------------------------------------------
+  PROCEDURE adauga_mf(v_schema               IN VARCHAR2,
+                      v_data                 IN DATE,
+                      v_nract                IN NUMBER,
+                      v_dataact              IN DATE,
+                      v_denumire             IN VARCHAR2,
+                      v_explicatia           IN VARCHAR2,
+                      v_valoare              IN NUMBER,
+                      v_data_pif             IN DATE,
+                      v_nr_pif               IN NUMBER,
+                      v_nr_inventar          IN NUMBER,
+                      v_cod                  IN VARCHAR2,
+                      v_dns                  IN NUMBER,
+                      v_uzura                IN NUMBER,
+                      v_amort_prec           IN NUMBER,
+                      v_id_gestiune          IN NUMBER,
+                      v_id_responsabil       IN NUMBER,
+                      v_id_sectie            IN NUMBER,
+                      v_id_lucrare           IN NUMBER,
+                      v_id_sucursala         IN IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                      v_id_tip_amortizare    IN NUMBER,
+                      v_procent              IN NUMBER,
+                      v_coeficient           IN NUMBER,
+                      v_id_tip_imobilizare   IN NUMBER,
+                      v_cont                 IN VARCHAR2,
+                      v_acont                IN VARCHAR2,
+                      v_id_util              IN NUMBER,
+                      v_amort_max_deductibil IN NUMBER,
+                      v_id_fact              IN NUMBER,
+                      v_tip_operatie         IN NUMBER,
+                      v_explicatia_operatie  in varchar2,
+                      v_bunCapital           in number,
+                      v_bazatva              in number,
+                      v_tva                  in number,
+                      v_id_cotatva           in number,
+                      v_prorataTva           in number) is
+    v_id_mf number := 0;
+  begin
+    adauga_mf(v_id_mf,
+              v_schema,
+              v_data,
+              v_nract,
+              v_dataact,
+              v_denumire,
+              v_explicatia,
+              v_valoare,
+              v_data_pif,
+              v_nr_pif,
+              v_nr_inventar,
+              v_cod,
+              v_dns,
+              v_uzura,
+              v_amort_prec,
+              v_id_gestiune,
+              v_id_responsabil,
+              v_id_sectie,
+              v_id_lucrare,
+              v_id_sucursala,
+              v_id_tip_amortizare,
+              v_procent,
+              v_coeficient,
+              v_id_tip_imobilizare,
+              v_cont,
+              v_acont,
+              v_id_util,
+              v_amort_max_deductibil,
+              v_id_fact,
+              v_tip_operatie,
+              v_explicatia_operatie,
+              v_bunCapital,
+              v_bazatva,
+              v_tva,
+              v_id_cotatva,
+              v_prorataTva);
+  end adauga_mf;
+
+  ---------------------------------------------------------------------------------------------
+  PROCEDURE adauga_mf(v_id_mf                IN OUT NUMBER,
+                      v_schema               IN VARCHAR2,
+                      v_data                 IN DATE,
+                      v_nract                IN NUMBER,
+                      v_dataact              IN DATE,
+                      v_denumire             IN VARCHAR2,
+                      v_explicatia           IN VARCHAR2,
+                      v_valoare              IN NUMBER,
+                      v_data_pif             IN DATE,
+                      v_nr_pif               IN NUMBER,
+                      v_nr_inventar          IN NUMBER,
+                      v_cod                  IN VARCHAR2,
+                      v_dns                  IN NUMBER,
+                      v_uzura                IN NUMBER,
+                      v_amort_prec           IN NUMBER,
+                      v_id_gestiune          IN NUMBER,
+                      v_id_responsabil       IN NUMBER,
+                      v_id_sectie            IN NUMBER,
+                      v_id_lucrare           IN NUMBER,
+                      v_id_sucursala         IN IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                      v_id_tip_amortizare    IN NUMBER,
+                      v_procent              IN NUMBER,
+                      v_coeficient           IN NUMBER,
+                      v_id_tip_imobilizare   IN NUMBER,
+                      v_cont                 IN VARCHAR2,
+                      v_acont                IN VARCHAR2,
+                      v_id_util              IN NUMBER,
+                      v_amort_max_deductibil IN NUMBER,
+                      v_id_fact              IN NUMBER,
+                      v_tip_operatie         IN NUMBER,
+                      v_explicatia_operatie  in varchar2,
+                      v_bunCapital           in number,
+                      v_bazatva              in number,
+                      v_tva                  in number,
+                      v_id_cotatva           in number,
+                      v_prorataTva           in number) is
+    v_valoare_reziduala number := 0;
+  begin
+    adauga_mf(v_id_mf,
+              v_schema,
+              v_data,
+              v_nract,
+              v_dataact,
+              v_denumire,
+              v_explicatia,
+              v_valoare,
+              v_valoare_reziduala,
+              v_data_pif,
+              v_nr_pif,
+              v_nr_inventar,
+              v_cod,
+              v_dns,
+              v_uzura,
+              v_amort_prec,
+              v_id_gestiune,
+              v_id_responsabil,
+              v_id_sectie,
+              v_id_lucrare,
+              v_id_sucursala,
+              v_id_tip_amortizare,
+              v_procent,
+              v_coeficient,
+              v_id_tip_imobilizare,
+              v_cont,
+              v_acont,
+              v_id_util,
+              v_amort_max_deductibil,
+              v_id_fact,
+              v_tip_operatie,
+              v_explicatia_operatie,
+              v_bunCapital,
+              v_bazatva,
+              v_tva,
+              v_id_cotatva,
+              v_prorataTva);
+  end adauga_mf;
+
+  PROCEDURE adauga_mf(v_id_mf                IN OUT NUMBER,
+                      v_schema               IN VARCHAR2,
+                      v_data                 IN DATE,
+                      v_nract                IN NUMBER,
+                      v_dataact              IN DATE,
+                      v_denumire             IN VARCHAR2,
+                      v_explicatia           IN VARCHAR2,
+                      v_valoare              IN NUMBER,
+                      v_valoare_reziduala    IN NUMBER,
+                      v_data_pif             IN DATE,
+                      v_nr_pif               IN NUMBER,
+                      v_nr_inventar          IN NUMBER,
+                      v_cod                  IN VARCHAR2,
+                      v_dns                  IN NUMBER,
+                      v_uzura                IN NUMBER,
+                      v_amort_prec           IN NUMBER,
+                      v_id_gestiune          IN NUMBER,
+                      v_id_responsabil       IN NUMBER,
+                      v_id_sectie            IN NUMBER,
+                      v_id_lucrare           IN NUMBER,
+                      v_id_sucursala         IN IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                      v_id_tip_amortizare    IN NUMBER,
+                      v_procent              IN NUMBER,
+                      v_coeficient           IN NUMBER,
+                      v_id_tip_imobilizare   IN NUMBER,
+                      v_cont                 IN VARCHAR2,
+                      v_acont                IN VARCHAR2,
+                      v_id_util              IN NUMBER,
+                      v_amort_max_deductibil IN NUMBER,
+                      v_id_fact              IN NUMBER,
+                      v_tip_operatie         IN NUMBER,
+                      v_explicatia_operatie  in varchar2,
+                      v_bunCapital           in number,
+                      v_bazatva              in number,
+                      v_tva                  in number,
+                      v_id_cotatva           in number,
+                      v_prorataTva           in number) IS
+
+    v_valoare_ramasa  number := 0;
+    v_data_operatie   date;
+    v_dns_ramas       number := 0;
+    v_id_tip_operatie number := 0;
+    v_scd             varchar2(4) := '';
+    v_id_operatie_mfc number := 0;
+    v_id_operatie_mff number := 0;
+    v_data_calcul     date;
+    v_id_tip_iesire   imob_tipuri_iesire.id%type;
+  BEGIN
+    --SAVEPOINT A;
+    INSERT /*+APPEND*/
+    INTO IMOB_NOM_MF
+      (DENUMIRE,
+       EXPLICATIA,
+       DATA_ACHIZITIE,
+       DATA_PIF,
+       ID_TIP_AMORTIZARE,
+       ID_TIP_IMOBILIZARE,
+       ID_UTIL,
+       NRACT,
+       NR_PIF,
+       ID_FACT)
+    VALUES
+      (v_denumire,
+       v_explicatia,
+       v_dataact,
+       v_data_pif,
+       v_id_tip_amortizare,
+       v_id_tip_imobilizare,
+       v_id_util,
+       v_nract,
+       v_nr_pif,
+       v_id_fact)
+    RETURNING ID_MF INTO v_id_mf;
+
+    -- IF v_id_mf > 0 THEN
+    -- BEGIN
+    v_scd := v_cont;
+
+    v_data_operatie := v_data;
+    case v_tip_operatie
+      when 1 then
+        -- Introducere
+        v_id_tip_operatie := 1;
+      when 2 then
+        -- Preluare
+        v_id_tip_operatie := 2;
+      when 3 then
+        -- Transformare imobilizare in curs in mijloc fix
+        v_id_tip_operatie := 3;
+    end case;
+
+    v_valoare_ramasa := v_valoare - v_amort_prec;
+    v_dns_ramas      := v_dns - v_uzura;
+
+    pack_imob.add_in_lista_mf(v_schema,
+                              v_id_mf,
+                              v_dns,
+                              v_cod,
+                              v_scd,
+                              v_acont,
+                              v_id_lucrare,
+                              v_id_gestiune,
+                              v_id_sectie,
+                              v_id_responsabil,
+                              v_id_sucursala,
+                              v_nr_inventar,
+                              v_id_util,
+                              v_data_operatie,
+                              v_dns_ramas,
+                              v_amort_max_deductibil);
+
+    -- amortizare contabila
+    v_id_operatie_mfc := pack_imob.add_operatie_mf(v_id_mf,
+                                                   v_id_tip_operatie,
+                                                   v_valoare,
+                                                   v_valoare_ramasa,
+                                                   v_dns_ramas,
+                                                   v_valoare_reziduala,
+                                                   v_data_operatie,
+                                                   v_explicatia_operatie,
+                                                   v_id_util,
+                                                   0,
+                                                   v_data,
+                                                   v_nract,
+                                                   v_id_tip_iesire);
+    -- amortizare fiscala
+    v_id_operatie_mff := pack_imob.add_operatie_mf(v_id_mf,
+                                                   v_id_tip_operatie,
+                                                   v_valoare,
+                                                   v_valoare_ramasa,
+                                                   v_dns_ramas,
+                                                   v_valoare_reziduala,
+                                                   v_data_operatie,
+                                                   v_explicatia_operatie,
+                                                   v_id_util,
+                                                   1,
+                                                   v_data,
+                                                   v_nract,
+                                                   v_id_tip_iesire);
+    IF v_id_tip_imobilizare <> 3 THEN
+
+      IF (extract(year from v_data_pif) * 12 +
+         extract(month from v_data_pif) =
+         extract(year from v_data_operatie) * 12 +
+         extract(month from v_data_operatie)) AND v_uzura = 0 THEN
+        v_data_calcul := add_months(v_data_operatie, 1);
+      ELSE
+        v_data_calcul := v_data_operatie;
+      END IF;
+      -- amortizare contabila
+      pack_imob.adauga_rata(v_schema,
+                            v_id_operatie_mfc,
+                            v_id_tip_operatie,
+                            v_id_mf,
+                            v_dns_ramas,
+                            v_data_calcul,
+                            v_valoare,
+                            v_valoare_ramasa,
+                            v_uzura,
+                            0);
+      -- amortizare fiscala
+      pack_imob.adauga_rata(v_schema,
+                            v_id_operatie_mff,
+                            v_id_tip_operatie,
+                            v_id_mf,
+                            v_dns_ramas,
+                            v_data_calcul,
+                            v_valoare,
+                            v_valoare_ramasa,
+                            v_uzura,
+                            1);
+    END IF;
+    if v_bunCapital = 1 then
+      pack_imob.adauga_buncapital(v_id_mf,
+                                  v_nract,
+                                  v_dataact,
+                                  v_bazatva,
+                                  v_tva,
+                                  v_id_cotatva,
+                                  0,
+                                  v_tip_operatie,
+                                  0,
+                                  v_prorataTva);
+    end if;
+    -- EXCEPTION
+    --    WHEN OTHERS THEN
+    -- ROLLBACK TO SAVEPOINT A;
+    --      RAISE;
+    --RAISE_APPLICATION_ERROR(-20000, SQLERRM);
+    --   END;
+    --  ELSE
+    --    ROLLBACK TO SAVEPOINT A;
+    --  END IF;
+
+  END adauga_mf;
+  ---------------------------------------------------------------------------------------------
+  PROCEDURE adauga_rata(v_schema          IN VARCHAR2,
+                        v_id_operatie_mf  IN NUMBER,
+                        v_id_tip_operatie IN NUMBER,
+                        v_id_mf           IN NUMBER,
+                        v_dns_ramas       IN NUMBER,
+                        v_data_calcul     IN DATE,
+                        v_valoare         IN NUMBER,
+                        v_valoare_ramasa  IN NUMBER,
+                        v_uzura_prec      in number,
+                        v_fiscala         in number) IS
+    v_an                   number;
+    v_luna                 number;
+    v_data_exp             date;
+    v_an_exp               number;
+    v_luna_exp             number;
+    v_data_prec            date;
+    v_an_prec              number;
+    v_luna_prec            number;
+    v_rata                 number;
+    v_cota_luna            number;
+    v_cota_an              number;
+    v_rata_ultima          number;
+    v_amort_prec           number;
+    nPrecizie              number := 0;
+    v_table                varchar2(30) := 'IMOB_CALCUL_RATE';
+    v_valoare_reziduala    number;
+    v_valoare_amortizabila number;
+
+  BEGIN
+    if v_dns_ramas <> 0 then
+      v_data_exp := add_months(v_data_calcul, v_dns_ramas - 1);
+    else
+      v_data_exp := v_data_calcul;
+    end if;
+    v_an       := extract(year from v_data_calcul);
+    v_luna     := extract(month from v_data_calcul);
+    v_an_exp   := extract(year from v_data_exp);
+    v_luna_exp := extract(month from v_data_exp);
+    pack_contafin.SET_DATA_RON(v_schema);
+    if v_luna + v_an * 12 >=
+       pack_contafin.nAnRon * 12 + pack_contafin.nLunaRon then
+      nPrecizie := 2;
+    end if;
+
+    IF v_dns_ramas = 0 OR v_id_tip_operatie = 4 OR v_id_tip_operatie = 10 THEN
+      -- iesire din gestiune sau conservare
+      v_cota_luna := 0;
+      v_cota_an   := 0;
+    ELSE
+      v_cota_luna := ROUND(100 / v_dns_ramas, 2);
+      v_cota_an   := ROUND((1 / v_dns_ramas) * 100 * 12, 2);
+    END IF;
+    IF V_FISCALA = 0 THEN
+      select valoare_reziduala
+        into v_valoare_reziduala
+        from imob_operatii_mf
+       where id_operatie_mf = v_id_operatie_mf;
+    ELSE
+      select valoare_reziduala
+        into v_valoare_reziduala
+        from imobf_operatii_mf
+       where id_operatie_mf = v_id_operatie_mf;
+    END IF;
+
+    v_valoare_amortizabila := v_valoare_ramasa - v_valoare_reziduala;
+    v_rata                 := ROUND(v_valoare_amortizabila * v_cota_an / 12 / 100,
+                                    nPrecizie);
+    v_data_prec            := add_months(v_data_calcul, -1);
+    v_an_prec              := extract(year from v_data_prec);
+    v_luna_prec            := extract(month from v_data_prec);
+
+    IF v_dns_ramas = 0 OR v_id_tip_operatie = 4 OR v_id_tip_operatie = 10 THEN
+      v_rata_ultima := 0;
+    else
+      v_rata_ultima := v_valoare_amortizabila -
+                       v_rata *
+                       (12 * v_an_exp + v_luna_exp - (12 * v_an + v_luna));
+    END IF;
+
+    IF V_FISCALA = 1 THEN
+      v_table := 'IMOBF_CALCUL_RATE';
+    end if;
+    SAVEPOINT A;
+    EXECUTE IMMEDIATE 'UPDATE ' || v_schema || '.' || v_table ||
+                      ' SET AN_EXP=:1,LUNA_EXP=:2 WHERE ID_MF=:3 AND' ||
+                      ' AN_EXP*12+LUNA_EXP>=:4 AND STERS=0'
+      USING v_an_prec, v_luna_prec, v_id_mf, v_an * 12 + v_luna;
+
+    IF SQL%ROWCOUNT > 1 THEN
+      ROLLBACK;
+      RAISE_APPLICATION_ERROR(-20000,
+                              'Pe acest mijloc fix s-au facut mai multe operatii dupa data specificata!');
+    END IF;
+    v_amort_prec := v_valoare - v_valoare_ramasa;
+
+    EXECUTE IMMEDIATE 'INSERT /*+APPEND*/ INTO ' || v_schema || '.' ||
+                      v_table ||
+                      ' (ID_OPERATIE_MF,ID_MF,AN,LUNA,AN_EXP,LUNA_EXP,RATA,COTA_LUNA,COTA_AN,ULTIMA_RATA,DATA_ULTIMA_RATA,UZURA_PREC,AMORTIZARE_PREC) ' ||
+                      'VALUES (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11,:12,:13)'
+      USING v_id_operatie_mf, v_id_mf, v_an, v_luna, v_an_exp, v_luna_exp, v_rata, v_cota_luna, v_cota_an, v_rata_ultima, v_data_exp, v_uzura_prec, v_amort_prec;
+  END adauga_rata;
+  ---------------------------------------------------------------------------------------------
+  /*  FUNCTION calculeaza_rata_amort(v_amort_prec in number,
+                                 v_an         in number,
+                                 v_luna       in number,
+                                 v_rata       in number) return number is
+    v_luni_c  number;
+    v_luni_dc number;
+    v_suma    number;
+  BEGIN
+    v_luni_c  := pack_sesiune.getluna() + pack_sesiune.getan() * 12;
+    v_luni_dc := v_luna + v_an * 12;
+    v_suma    := v_rata * (v_luni_c - v_luni_dc);
+    return(v_amort_prec + v_suma);
+  END calculeaza_rata_amort;
+  ---------------------------------------------------------------------------------------------
+  FUNCTION calculeaza_uzura(v_dns_luni    in number,
+                            v_dns_ramas   in number,
+                            v_luna_calcul in number,
+                            v_an_calcul   in number) return number is
+    v_luni_c  number;
+    v_luni_dc number;
+    v_uzura   number;
+  BEGIN
+    v_luni_c  := pack_sesiune.getluna() + pack_sesiune.getan() * 12;
+    v_luni_dc := v_luna_calcul + v_an_calcul * 12;
+    v_uzura   := v_dns_luni - v_dns_ramas + (v_luni_c - v_luni_dc);
+    --    raise_application_error(-20000,v_luna_calcul||' '||v_an_calcul);
+    return(v_uzura);
+  END calculeaza_uzura;
+  ---------------------------------------------------------------------------------------------
+  FUNCTION calculeaza_uzura_prec(v_dns_vechi          in number,
+                                 v_dns_ramas          in number,
+                                 v_luna_calcul        in number,
+                                 v_an_calcul          in number,
+                                 v_data_operatie_noua in date) return number is
+    v_luni_c  number;
+    v_luni_dc number;
+    v_uzura   number;
+  BEGIN
+    v_luni_c  := extract(month from v_data_operatie_noua) +
+                 extract(year from v_data_operatie_noua) * 12;
+    v_luni_dc := v_luna_calcul + v_an_calcul * 12;
+    v_uzura   := v_dns_vechi - v_dns_ramas + (v_luni_c - v_luni_dc);
+    return(v_uzura);
+  END calculeaza_uzura_prec;*/
+  ---------------------------------------------------------------------------------------------
+  FUNCTION getLuniOperatie return number is
+  BEGIN
+    return(extract(year from imob_data_operatie) * 12 +
+           (extract(month from imob_data_operatie)));
+  END getLuniOperatie;
+  ---------------------------------------------------------------------------------------------
+  PROCEDURE inreg_majorare(v_schema       in varchar2,
+                           v_id_sucursala in imob_lista_mf.id_sucursala%type,
+                           v_id_mf        in number,
+                           v_valoare      in number,
+                           v_datareeval   in date,
+                           v_explicatia   in varchar2,
+                           v_id_util      in number,
+                           v_fiscala      in number,
+                           v_datadoc      in date,
+                           v_nrdoc        in number,
+                           v_buncapital   in number,
+                           v_bazaTva      in number,
+                           v_idcotaTva    in number,
+                           v_Tva          in number,
+                           v_prorataTva   in number) is
+
+    v_verificareluni number;
+    v_valoare_prec   number;
+    v_valoare_finala number;
+    v_valoare_ramasa number;
+    v_dns_ramas      number;
+    v_dns            number;
+    v_amort_prec     number;
+    --    v_amort_prec_rata number;
+    v_rata            number;
+    v_id_tip_operatie number;
+    --    v_data_operatie   date;
+    v_data_calcul       date;
+    v_id_operatie_mf    number;
+    v_uzura             number;
+    v_uzura_rata        number;
+    v_data              date;
+    v_cond              varchar2(250);
+    i                   number(1);
+    crsMf               pack_types.tip_cursor;
+    item                tip_valori_mf;
+    v_valoare_reziduala number;
+    v_id_tip_iesire     imob_tipuri_iesire.id%type;
+
+  BEGIN
+    v_verificareluni := months_between(v_datareeval,
+                                       pack_sesiune.getUltimaZi());
+
+    IF v_verificareluni > -1 and v_verificareluni <= 0 THEN
+      -- operatia trebuie sa fie din luna curenta
+
+      v_data := to_date(extract(month from v_datareeval) || '/' ||
+                        extract(year from v_datareeval),
+                        'MM/YYYY');
+      v_cond := 'n.id_mf = ' || to_char(v_id_mf);
+
+      i := 0;
+      for i in 0 .. v_fiscala loop
+        --        pinfo(TO_CHAR(V_DATA) || ' ' || V_COND || ' ' || TO_CHAR(I));
+
+        /*        crsMf := pack_imob.valori_calcul(v_schema,
+        v_id_sucursala,
+        v_data,
+        v_data,
+        v_cond,
+        i);*/
+
+        crsMF := pack_imob.valori_calcul_view(v_id_mf, v_data, i);
+
+        fetch crsMf
+          into item;
+
+        v_valoare_prec      := item.valoare;
+        v_dns_ramas         := item.dns_ramas; -- durata ramasa la operatia anterioara
+        v_dns               := item.dns_luni;
+        v_uzura_rata        := item.uzura_rata; -- uzura in luni de la operatia anterioara pana la luna curenta inclusiv
+        v_uzura             := item.uzura;
+        v_amort_prec        := item.amort_prec;
+        v_rata              := item.rata;
+        v_valoare_reziduala := item.valoare_reziduala;
+
+        close crsMf;
+
+        -- majorare
+        v_id_tip_operatie := 6;
+        v_valoare_finala  := v_valoare_prec + v_valoare;
+        v_valoare_ramasa  := v_valoare_finala - v_amort_prec - v_rata;
+        v_dns_ramas       := v_dns_ramas - v_uzura_rata; -- durata ramasa la operatia anterioara - uzura de la operatia anterioara 12.11.2019 (UTMIDIA)
+
+        v_id_operatie_mf := pack_imob.add_operatie_mf(v_id_mf,
+                                                      v_id_tip_operatie,
+                                                      v_valoare_finala,
+                                                      v_valoare_ramasa,
+                                                      v_dns_ramas,
+                                                      v_valoare_reziduala,
+                                                      v_datareeval,
+                                                      v_explicatia,
+                                                      v_id_util,
+                                                      i,
+                                                      v_datadoc,
+                                                      v_nrdoc,
+                                                      v_id_tip_iesire);
+
+        v_data_calcul := add_months(v_data, 1);
+        pack_imob.adauga_rata(v_schema,
+                              v_id_operatie_mf,
+                              v_id_tip_operatie,
+                              v_id_mf,
+                              v_dns_ramas,
+                              v_data_calcul,
+                              v_valoare_finala,
+                              v_valoare_ramasa,
+                              v_uzura,
+                              i);
+
+      end loop;
+      if v_buncapital = 1 then
+        pack_imob.adauga_buncapital(v_id_mf,
+                                    v_nrdoc,
+                                    v_datadoc,
+                                    v_bazaTva,
+                                    v_tva,
+                                    v_idcotaTva,
+                                    0,
+                                    v_id_tip_operatie,
+                                    0,
+                                    v_prorataTva);
+      end if;
+    ELSE
+      RAISE_APPLICATION_ERROR(-20001,
+                              'Data majorarii trebuie sa fie din luna curenta!');
+    END IF;
+  END inreg_majorare;
+  ---------------------------------------------------------------------------------------------
+  PROCEDURE inreg_reevaluare(v_schema       in varchar2,
+                             v_id_sucursala in imob_lista_mf.id_sucursala%type,
+                             v_id_mf        in number,
+                             v_valoare      in number,
+                             v_amortizare   in number,
+                             v_datareeval   in date,
+                             v_explicatia   in varchar2,
+                             v_id_util      in number,
+                             v_fiscala      in number,
+                             v_datadoc      in date,
+                             v_nrdoc        in number,
+                             v_buncapital   in number,
+                             v_valreev      in number) is
+    v_verificareluni  number;
+    v_valoare_finala  number;
+    v_valoare_ramasa  number;
+    v_dns_ramas       number;
+    v_dns             number;
+    v_id_tip_operatie number;
+    v_data_calcul     date;
+    v_id_operatie_mf  number;
+    v_uzura           number;
+    i                 number;
+    --v_uzura_rata      number;
+    v_data              date;
+    v_cond              varchar2(250);
+    crsMf               pack_types.tip_cursor;
+    item                tip_valori_mf;
+    v_valoare_reziduala number;
+    v_id_tip_iesire     imob_tipuri_iesire.id%type;
+
+  BEGIN
+    v_verificareluni := months_between(v_datareeval,
+                                       pack_sesiune.getUltimaZi());
+
+    IF v_verificareluni > -1 and v_verificareluni <= 0 THEN
+      -- operatia trebuie sa fie din luna curenta
+
+      v_data := to_date(extract(month from v_datareeval) || '/' ||
+                        extract(year from v_datareeval),
+                        'MM/YYYY');
+      v_cond := 'n.id_mf = ' || to_char(v_id_mf);
+      i      := 0;
+      for i in 0 .. v_fiscala loop
+        /*        crsMf := pack_imob.valori_calcul(v_schema,
+        v_id_sucursala,
+        v_data,
+        v_data,
+        v_cond,
+        i);*/
+        crsMF := pack_imob.valori_calcul_view(v_id_mf, v_data, i);
+
+        fetch crsMf
+          into item;
+
+        --v_dns_ramas  := item.dns_ramas;
+        v_dns               := item.dns_luni;
+        v_uzura             := item.uzura;
+        v_valoare_reziduala := item.valoare_reziduala;
+        --v_uzura_rata := item.uzura_rata;
+
+        close crsMf;
+
+        -- reevaluare
+        v_id_tip_operatie := 7;
+        v_valoare_finala  := v_valoare;
+        v_valoare_ramasa  := v_valoare - v_amortizare;
+        --v_dns_ramas       := v_dns_ramas - v_uzura_rata;
+        v_dns_ramas := v_dns - v_uzura;
+
+        v_id_operatie_mf := pack_imob.add_operatie_mf(v_id_mf,
+                                                      v_id_tip_operatie,
+                                                      v_valoare_finala,
+                                                      v_valoare_ramasa,
+                                                      v_dns_ramas,
+                                                      v_valoare_reziduala,
+                                                      v_datareeval,
+                                                      v_explicatia,
+                                                      v_id_util,
+                                                      i,
+                                                      v_datadoc,
+                                                      v_nrdoc,
+                                                      v_id_tip_iesire);
+
+        v_data_calcul := add_months(v_data, 1);
+
+        pack_imob.adauga_rata(v_schema,
+                              v_id_operatie_mf,
+                              v_id_tip_operatie,
+                              v_id_mf,
+                              v_dns_ramas,
+                              v_data_calcul,
+                              v_valoare_finala,
+                              v_valoare_ramasa,
+                              v_uzura,
+                              i);
+      end loop;
+      if v_buncapital = 1 then
+        update imob_bunuricapital
+           set valreev = v_valreev
+         where id_mf = v_id_mf
+           and id_tip_operatie in (1, 2);
+      end if;
+    ELSE
+      RAISE_APPLICATION_ERROR(-20001,
+                              'Data reevaluarii trebuie sa fie din luna curenta!');
+    END IF;
+  END inreg_reevaluare;
+
+  ---------------------------------------------------------------------
+  -- schimbare DNS si reevaluarea valorii de inventar si amortizarii totale
+  ---------------------------------------------------------------------
+  PROCEDURE inreg_schimbdns_reevaluare(v_schema            in varchar2,
+                                       v_id_sucursala      in imob_lista_mf.id_sucursala%type,
+                                       v_id_mf             in number,
+                                       v_cod               IN VARCHAR2, -- codul nou
+                                       v_dns               IN NUMBER, -- dns nou
+                                       v_valoare           in number, -- valoarea noua de inventar
+                                       v_amortizare        in number, -- valoarea noua total amortizata
+                                       v_uzura             IN NUMBER, -- uzura noua totala
+                                       v_valoare_reziduala IN NUMBER, -- valoarea noua reziduala
+                                       v_datareeval        in date,
+                                       v_explicatia        in varchar2,
+                                       v_id_util           in number,
+                                       v_fiscala           in number,
+                                       v_datadoc           in date,
+                                       v_nrdoc             in number,
+                                       v_buncapital        in number,
+                                       v_valreev           in number) is
+    v_verificareluni  number;
+    v_codvechi        imob_lista_mf.cod_mf%type;
+    v_dns_vechi       imob_lista_mf.dns_luni%type;
+    v_valoare_ramasa  number;
+    v_dns_ramas       number;
+    v_id_tip_operatie number := 15;
+    v_data_calcul     date;
+    v_id_operatie_mf  number;
+    i                 number;
+    v_data            date;
+    -- v_cond              varchar2(250);
+    crsMf           pack_types.tip_cursor;
+    item            tip_valori_mf;
+    v_id_tip_iesire imob_tipuri_iesire.id%type;
+
+  BEGIN
+    v_verificareluni := months_between(v_datareeval,
+                                       pack_sesiune.getUltimaZi());
+
+    IF v_verificareluni = 0 THEN
+      -- operatia trebuie sa fie din luna curenta
+
+      v_data := to_date(extract(month from v_datareeval) || '/' ||
+                        extract(year from v_datareeval),
+                        'MM/YYYY');
+      -- v_cond := 'n.id_mf = ' || to_char(v_id_mf);
+      i := 0;
+      for i in 0 .. v_fiscala loop
+        /*        crsMf := pack_imob.valori_calcul(v_schema,
+        v_id_sucursala,
+        v_data,
+        v_data,
+        v_cond,
+        i);*/
+        crsMF := pack_imob.valori_calcul_view(v_id_mf, v_data, i);
+
+        fetch crsMf
+          into item;
+
+        v_dns_vechi := item.dns_luni;
+        v_codvechi  := item.cod_mf;
+
+        close crsMf;
+
+        -- valoarea ramasa = valoarea noua de inventar - amortizarea noua totala
+        v_valoare_ramasa := v_valoare - v_amortizare;
+        -- durata ramasa = DNS - uzura noua totala
+        v_dns_ramas := v_dns - v_uzura;
+
+        -- schimbare DNS
+        IF (v_codvechi <> v_cod OR v_dns_vechi <> v_dns) and i = 0 THEN
+          --sa intre doar o data
+          pack_imob.add_in_lista_mf(v_schema,
+                                    v_id_mf,
+                                    v_dns,
+                                    v_cod,
+                                    item.cont,
+                                    item.acont,
+                                    item.id_lucrare,
+                                    item.id_gestiune,
+                                    item.id_sectie,
+                                    item.id_responsabil,
+                                    item.id_sucursala,
+                                    item.nr_inventar,
+                                    v_id_util,
+                                    v_datareeval,
+                                    v_dns_ramas,
+                                    item.amort_max_deductibil);
+
+        END IF;
+
+        v_id_operatie_mf := pack_imob.add_operatie_mf(v_id_mf,
+                                                      v_id_tip_operatie,
+                                                      v_valoare,
+                                                      v_valoare_ramasa,
+                                                      v_dns_ramas,
+                                                      v_valoare_reziduala,
+                                                      v_datareeval,
+                                                      v_explicatia,
+                                                      v_id_util,
+                                                      i,
+                                                      v_datadoc,
+                                                      v_nrdoc,
+                                                      v_id_tip_iesire);
+
+        v_data_calcul := add_months(v_data, 1);
+
+        pack_imob.adauga_rata(v_schema,
+                              v_id_operatie_mf,
+                              v_id_tip_operatie,
+                              v_id_mf,
+                              v_dns_ramas,
+                              v_data_calcul,
+                              v_valoare,
+                              v_valoare_ramasa,
+                              v_uzura,
+                              i);
+      end loop;
+      if v_buncapital = 1 then
+        update imob_bunuricapital
+           set valreev = v_valreev
+         where id_mf = v_id_mf
+           and id_tip_operatie in (1, 2);
+      end if;
+    ELSE
+      RAISE_APPLICATION_ERROR(-20001,
+                              'Data reevaluarii trebuie sa fie din luna curenta!');
+    END IF;
+  END inreg_schimbdns_reevaluare;
+
+  ---------------------------------------------------------------------------------------------
+  PROCEDURE inreg_conservare(v_schema         IN VARCHAR2,
+                             v_id_sucursala   in imob_lista_mf.id_sucursala%type,
+                             v_id_mf          IN NUMBER,
+                             v_tip            IN NUMBER,
+                             v_cauza          IN VARCHAR2,
+                             v_dataconservare IN DATE,
+                             v_id_util        IN NUMBER,
+                             v_fiscala        in number,
+                             v_datadoc        in date,
+                             v_nrdoc          in number,
+                             v_buncapital     in number,
+                             v_bazatva        in number,
+                             v_idcotaTva      in number,
+                             v_tva            in number,
+                             v_prorataTva     in number) IS
+    v_verificareluni  number;
+    v_valoare         number;
+    v_valoare_ramasa  number;
+    v_dns_ramas       number;
+    v_dns             number;
+    v_id_tip_operatie number;
+    v_data_calcul     date;
+    v_data            date;
+    v_amort_prec      number;
+    v_id_operatie_mf  number;
+    v_uzura           number;
+    --v_uzura_rata      number;
+    v_uzura_prec        number;
+    v_rata              number;
+    v_mesaj             varchar2(50);
+    v_cond              varchar2(250);
+    i                   number;
+    crsMf               pack_types.tip_cursor;
+    item                tip_valori_mf;
+    v_valoare_reziduala number;
+    v_id_tip_iesire     imob_tipuri_iesire.id%type;
+
+  BEGIN
+    v_verificareluni := months_between(v_dataconservare,
+                                       pack_sesiune.getUltimaZi());
+
+    IF v_verificareluni > -1 and v_verificareluni <= 0 THEN
+      -- operatia trebuie sa fie din luna curenta
+
+      v_data := to_date(extract(month from v_dataconservare) || '/' ||
+                        extract(year from v_dataconservare),
+                        'MM/YYYY');
+      v_cond := 'n.id_mf = ' || to_char(v_id_mf);
+      i      := 0;
+      for i in 0 .. v_fiscala loop
+        /*        crsMf := pack_imob.valori_calcul(v_schema,
+        v_id_sucursala,
+        v_data,
+        v_data,
+        v_cond,
+        i);*/
+        crsMF := pack_imob.valori_calcul_view(v_id_mf, v_data, i);
+
+        fetch crsMf
+          into item;
+        v_valoare := item.valoare;
+        --v_dns_ramas      := item.dns_ramas;
+        v_dns := item.dns_luni;
+        --v_valoare_ramasa := item.valoare_ramasa_amort;
+        v_amort_prec := item.amort_prec;
+        v_rata       := item.rata;
+        v_uzura      := item.uzura;
+        --v_uzura_rata := item.uzura_rata;
+        v_uzura_prec        := item.uzura_prec;
+        v_valoare_reziduala := item.valoare_reziduala;
+
+        close crsMf;
+
+        IF v_tip = 1 THEN
+          -- intrare in conservare
+          v_id_tip_operatie := 10;
+        ELSE
+          -- iesire din conservare
+          v_id_tip_operatie := 11;
+          v_uzura           := v_uzura_prec; --(nu stiu dc numar si lunile de conservare)
+        END IF;
+
+        v_valoare_ramasa := v_valoare - v_amort_prec - v_rata;
+        v_dns_ramas      := v_dns - v_uzura;
+
+        v_id_operatie_mf := pack_imob.add_operatie_mf(v_id_mf,
+                                                      v_id_tip_operatie,
+                                                      v_valoare,
+                                                      v_valoare_ramasa,
+                                                      v_dns_ramas,
+                                                      v_valoare_reziduala,
+                                                      v_dataconservare,
+                                                      v_cauza,
+                                                      v_id_util,
+                                                      i,
+                                                      v_datadoc,
+                                                      v_nrdoc,
+                                                      v_id_tip_iesire);
+
+        v_data_calcul := add_months(v_data, 1);
+
+        pack_imob.adauga_rata(v_schema,
+                              v_id_operatie_mf,
+                              v_id_tip_operatie,
+                              v_id_mf,
+                              v_dns_ramas,
+                              v_data_calcul,
+                              v_valoare,
+                              v_valoare_ramasa,
+                              v_uzura,
+                              i);
+      end loop;
+      if v_buncapital = 1 then
+        if v_tip = 1 then
+          pack_imob.adauga_buncapital(v_id_mf,
+                                      v_nrdoc,
+                                      v_datadoc,
+                                      v_bazaTva,
+                                      0,
+                                      v_idcotaTva,
+                                      0,
+                                      v_id_tip_operatie,
+                                      v_tva,
+                                      v_prorataTva);
+        else
+          pack_imob.adauga_buncapital(v_id_mf,
+                                      v_nrdoc,
+                                      v_datadoc,
+                                      v_bazaTva,
+                                      0,
+                                      v_idcotaTva,
+                                      v_tva,
+                                      v_id_tip_operatie,
+                                      0,
+                                      v_prorataTva);
+        end if;
+      end if;
+    ELSE
+      IF v_tip = 1 THEN
+        v_mesaj := 'Data intrarii in conservare trebuie sa fie din luna curenta!';
+      ELSE
+        v_mesaj := 'Data iesirii din conservare trebuie sa fie din luna curenta!';
+      END IF;
+      RAISE_APPLICATION_ERROR(-20001, v_mesaj);
+    END IF;
+  END inreg_conservare;
+  ---------------------------------------------------------------------------------------------
+  PROCEDURE inreg_schimbdns(v_schema        IN VARCHAR2,
+                            v_id_sucursala  in imob_lista_mf.id_sucursala%type,
+                            v_id_mf         IN NUMBER,
+                            v_codnou        IN VARCHAR2,
+                            v_dnsnou        IN NUMBER,
+                            v_dataschimbare IN DATE,
+                            v_cauza         IN VARCHAR2,
+                            v_id_util       IN NUMBER,
+                            v_fiscala       in number,
+                            v_datadoc       in date,
+                            v_nrdoc         in number) IS
+
+    v_verificareluni number;
+    v_valoare        number;
+    v_valoare_ramasa number;
+    --v_rata            number;
+    v_uzura_calc      number;
+    v_codvechi        varchar2(30);
+    v_dns_ramas_nou   number;
+    v_dns_vechi       number;
+    v_id_tip_operatie number := 8;
+    v_uzura_prec      number;
+    v_data_calcul     date;
+    v_id_operatie_mf  number;
+    i                 number;
+    --v_cauza           varchar2(10);
+    v_data              date;
+    v_cond              varchar2(250);
+    crsMf               pack_types.tip_cursor;
+    item                tip_valori_mf;
+    v_valoare_reziduala number;
+    v_id_tip_iesire     imob_tipuri_iesire.id%type;
+
+  BEGIN
+
+    v_verificareluni := months_between(v_dataschimbare,
+                                       pack_sesiune.getUltimaZi());
+
+    IF v_verificareluni > -1 and v_verificareluni <= 0 THEN
+      -- operatia trebuie sa fie din luna curenta
+
+      v_data := to_date(extract(month from v_dataschimbare) || '/' ||
+                        extract(year from v_dataschimbare),
+                        'MM/YYYY');
+      v_cond := 'n.id_mf = ' || to_char(v_id_mf);
+      i      := 0;
+      for i in 0 .. v_fiscala loop
+        /*        crsMf := pack_imob.valori_calcul(v_schema,
+        v_id_sucursala,
+        v_data,
+        v_data,
+        v_cond,
+        i);*/
+        crsMF := pack_imob.valori_calcul_view(v_id_mf, v_data, i);
+
+        fetch crsMf
+          into item;
+        v_valoare           := item.valoare;
+        v_dns_vechi         := item.dns_luni;
+        v_valoare_ramasa    := item.valoare - item.amort_prec;
+        v_uzura_calc        := item.uzura - 1;
+        v_codvechi          := item.cod_mf;
+        v_valoare_reziduala := item.valoare_reziduala;
+
+        close crsMf;
+
+        -- 27.02.2013 : am pus case in loc de 1 - (v_uzura_calc / v_dns_vechi) pentru cazul
+        --in care aveam v_dns_vechi = 0
+        IF v_dns_vechi = 0 THEN
+            v_dns_ramas_nou := v_dnsnou;
+        ELSE
+            v_dns_ramas_nou :=  (v_dnsnou-nvl(v_uzura_calc,0));
+        END IF;
+
+        IF (v_codvechi <> v_codnou OR v_dns_vechi <> v_dnsnou) and i = 0 THEN
+          --sa intre doar o data
+          pack_imob.add_in_lista_mf(v_schema,
+                                    v_id_mf,
+                                    v_dnsnou,
+                                    v_codnou,
+                                    item.cont,
+                                    item.acont,
+                                    item.id_lucrare,
+                                    item.id_gestiune,
+                                    item.id_sectie,
+                                    item.id_responsabil,
+                                    item.id_sucursala,
+                                    item.nr_inventar,
+                                    v_id_util,
+                                    v_dataschimbare,
+                                    v_dns_ramas_nou,
+                                    item.amort_max_deductibil);
+
+        END IF;
+
+        v_id_operatie_mf := pack_imob.add_operatie_mf(v_id_mf,
+                                                      v_id_tip_operatie,
+                                                      v_valoare,
+                                                      v_valoare_ramasa,
+                                                      v_dns_ramas_nou,
+                                                      v_valoare_reziduala,
+                                                      v_dataschimbare,
+                                                      v_cauza,
+                                                      v_id_util,
+                                                      i,
+                                                      v_datadoc,
+                                                      v_nrdoc,
+                                                      v_id_tip_iesire);
+
+        v_data_calcul := v_dataschimbare;
+        v_uzura_prec  := v_dnsnou - v_dns_ramas_nou;
+
+        pack_imob.adauga_rata(v_schema,
+                              v_id_operatie_mf,
+                              v_id_tip_operatie,
+                              v_id_mf,
+                              v_dns_ramas_nou,
+                              v_data_calcul,
+                              v_valoare,
+                              v_valoare_ramasa,
+                              v_uzura_prec,
+                              i);
+      end loop;
+    ELSE
+      RAISE_APPLICATION_ERROR(-20001,
+                              'Data schimbarii DNS trebuie sa fie din luna curenta!');
+    END IF;
+  END inreg_schimbdns;
+  ---------------------------------------------------------------------------------------------
+  PROCEDURE inreg_gest(v_schema        IN VARCHAR2,
+                       v_id_sucursala  in imob_lista_mf.id_sucursala%type,
+                       v_id_mf         IN NUMBER,
+                       v_tip           IN NUMBER,
+                       v_cauza         IN VARCHAR2,
+                       v_dataschimbare IN DATE,
+                       v_id_util       IN NUMBER,
+                       v_fiscala       in number,
+                       v_datadoc       in date,
+                       v_nrdoc         in number,
+                       v_buncapital    in number,
+                       v_bazatva       in number,
+                       v_idcotaTva     in number,
+                       v_tva           in number,
+                       v_prorataTva    in number,
+                       v_id_tip_iesire in imob_tipuri_iesire.id%type default null) IS
+
+    v_verificareluni  number;
+    v_valoare         number;
+    v_valoare_ramasa  number;
+    v_dns_ramas       number;
+    v_dns             number;
+    v_id_tip_operatie number;
+    --v_amortizare      number;
+    v_id_operatie_mf number;
+    v_mesaj          varchar2(100);
+    v_uzura_prec     number;
+    --v_uzura_rata      number;
+    v_uzura      number;
+    v_amort_prec number;
+    i            number;
+    --v_rata            number;
+    v_data              date;
+    v_cond              varchar2(200);
+    crsMF               PACK_TYPES.tip_cursor;
+    item                tip_valori_mf;
+    v_valoare_reziduala number;
+
+  BEGIN
+    v_verificareluni := months_between(v_dataschimbare,
+                                       pack_sesiune.getUltimaZi());
+
+    IF v_verificareluni > -1 and v_verificareluni <= 0 THEN
+      -- operatia trebuie sa fie din luna curenta
+
+      v_data := to_date(extract(month from v_dataschimbare) || '/' ||
+                        extract(year from v_dataschimbare),
+                        'MM/YYYY');
+      v_cond := 'n.id_mf = ' || to_char(v_id_mf);
+      i      := 0;
+      for i in 0 .. v_fiscala loop
+        /*        crsMf := pack_imob.valori_calcul(v_schema,
+        v_id_sucursala,
+        v_data,
+        v_data,
+        v_cond,
+        i);*/
+        crsMF := pack_imob.valori_calcul_view(v_id_mf, v_data, i);
+
+        fetch crsMf
+          into item;
+
+        v_valoare    := item.valoare;
+        v_dns        := item.dns_luni;
+        v_amort_prec := item.amort_prec;
+        --v_rata       := item.rata;
+        v_uzura             := item.uzura - 1;
+        v_uzura_prec        := item.uzura_prec;
+        v_valoare_reziduala := item.valoare_reziduala;
+        --dbms_output.put_line('valoare ' || v_valoare);
+        close crsMf;
+
+        IF v_tip = 1 THEN
+          -- iesire din gestiune
+          v_id_tip_operatie := 4;
+        ELSE
+          -- intrare in gestiune
+          v_id_tip_operatie := 5;
+          v_uzura           := v_uzura_prec; --(nu stiu dc numar si lunile de iesire)
+        END IF;
+
+        v_valoare_ramasa := v_valoare - v_amort_prec;
+        v_dns_ramas      := v_dns - v_uzura;
+
+        v_id_operatie_mf := pack_imob.add_operatie_mf(v_id_mf,
+                                                      v_id_tip_operatie,
+                                                      v_valoare,
+                                                      v_valoare_ramasa,
+                                                      v_dns_ramas,
+                                                      v_valoare_reziduala,
+                                                      v_dataschimbare,
+                                                      v_cauza,
+                                                      v_id_util,
+                                                      i,
+                                                      v_datadoc,
+                                                      v_nrdoc,
+                                                      v_id_tip_iesire);
+
+        pack_imob.adauga_rata(v_schema,
+                              v_id_operatie_mf,
+                              v_id_tip_operatie,
+                              v_id_mf,
+                              v_dns_ramas,
+                              v_data,
+                              v_valoare,
+                              v_valoare_ramasa,
+                              v_uzura,
+                              i);
+      end loop;
+      if v_buncapital = 1 then
+        if v_tip = 1 then
+          pack_imob.adauga_buncapital(v_id_mf,
+                                      v_nrdoc,
+                                      v_datadoc,
+                                      v_bazaTva,
+                                      0,
+                                      v_idcotaTva,
+                                      0,
+                                      v_id_tip_operatie,
+                                      v_tva,
+                                      v_prorataTva);
+        else
+          pack_imob.adauga_buncapital(v_id_mf,
+                                      v_nrdoc,
+                                      v_datadoc,
+                                      v_bazaTva,
+                                      0,
+                                      v_idcotaTva,
+                                      v_tva,
+                                      v_id_tip_operatie,
+                                      0,
+                                      v_prorataTva);
+        end if;
+      end if;
+    ELSE
+      IF v_tip = 1 THEN
+        v_mesaj := 'Data iesirii din gestiune trebuie sa fie din luna curenta!';
+      ELSE
+        v_mesaj := 'Data intrarii in gestiune trebuie sa fie din luna curenta!';
+      END IF;
+      RAISE_APPLICATION_ERROR(-20001, v_mesaj);
+    END IF;
+  END inreg_gest;
+
+  ---------------------------------------------------------------------------------------------
+  -- SE ADAUGA OPERATIA TRANSFORMARE IN MIJLOC FIX PENTRU IMOBILIZARI IN CURS
+  ---------------------------------------------------------------------------------------------
+  PROCEDURE inreg_transformare_in_mf(v_schema               IN VARCHAR2,
+                                     v_id_mf                IN NUMBER,
+                                     v_id_mf_nou            IN NUMBER,
+                                     v_datamodificare       IN DATE,
+                                     v_nract                IN NUMBER,
+                                     v_dataact              IN DATE,
+                                     v_denumire             IN VARCHAR2,
+                                     v_explicatia           IN VARCHAR2,
+                                     v_valoare              IN NUMBER,
+                                     v_data_pif             IN DATE,
+                                     v_nr_pif               IN NUMBER,
+                                     v_nr_inventar          IN NUMBER,
+                                     v_cod                  IN VARCHAR2,
+                                     v_dns                  IN NUMBER,
+                                     v_uzura                IN NUMBER,
+                                     v_dns_ramas            IN NUMBER,
+                                     v_valoare_ramasa       IN NUMBER,
+                                     v_valoare_retinuta     IN NUMBER,
+                                     v_id_gestiune          IN NUMBER,
+                                     v_id_responsabil       IN NUMBER,
+                                     v_id_sectie            IN NUMBER,
+                                     v_id_lucrare           IN NUMBER,
+                                     v_id_sucursala         IN IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                                     v_id_tip_amortizare    IN NUMBER,
+                                     v_procent              IN NUMBER,
+                                     v_coeficient           IN NUMBER,
+                                     v_id_tip_imobilizare   IN NUMBER,
+                                     v_cont                 IN VARCHAR2,
+                                     v_acont                IN VARCHAR2,
+                                     v_id_util              IN NUMBER,
+                                     v_amort_max_deductibil IN NUMBER,
+                                     v_fiscala              in number,
+                                     v_datadoc              in date,
+                                     v_nrdoc                in number,
+                                     v_id_tip_operatie      in number DEFAULT 3) IS
+
+    v_id_operatie_mf    number := 0;
+    v_id_operatie_nou   number := 0;
+    v_valoare_reziduala number := 0; -- valoare reziduala a unei imobilizari in curs = 0
+    v_id_tip_iesire     imob_tipuri_iesire.id%type;
+
+  BEGIN
+    IF nvl(v_id_mf, 0) = 0 THEN
+      RAISE_APPLICATION_ERROR(-20000,
+                              'Nu este completat id-ul imobilizarii in curs!');
+    END IF;
+
+    UPDATE IMOB_NOM_MF
+       SET DENUMIRE           = v_denumire,
+           EXPLICATIA         = v_explicatia,
+           DATA_ACHIZITIE     = v_dataact,
+           DATA_PIF           = v_data_pif,
+           ID_TIP_AMORTIZARE  = v_id_tip_amortizare,
+           ID_TIP_IMOBILIZARE = v_id_tip_imobilizare,
+           ID_UTIL            = v_id_util,
+           NRACT              = v_nract,
+           NR_PIF             = v_nr_pif
+     WHERE ID_MF = v_id_mf;
+
+    pack_imob.add_in_lista_mf(v_schema,
+                              v_id_mf,
+                              v_dns,
+                              v_cod,
+                              v_cont,
+                              v_acont,
+                              v_id_lucrare,
+                              v_id_gestiune,
+                              v_id_sectie,
+                              v_id_responsabil,
+                              v_id_sucursala,
+                              v_nr_inventar,
+                              v_id_util,
+                              v_datamodificare,
+                              v_dns_ramas,
+                              v_amort_max_deductibil);
+
+    v_id_operatie_mf := pack_imob.add_operatie_mf(v_id_mf,
+                                                  v_id_tip_operatie,
+                                                  v_valoare,
+                                                  v_valoare_ramasa,
+                                                  v_dns_ramas,
+                                                  v_valoare_reziduala,
+                                                  v_datamodificare,
+                                                  v_explicatia,
+                                                  v_id_util,
+                                                  v_fiscala,
+                                                  v_datadoc,
+                                                  v_nrdoc,
+                                                  v_id_tip_iesire);
+
+    pack_imob.adauga_rata(v_schema,
+                          v_id_operatie_mf,
+                          v_id_tip_operatie,
+                          v_id_mf,
+                          v_dns_ramas,
+                          v_datamodificare,
+                          v_valoare,
+                          v_valoare_ramasa,
+                          v_uzura,
+                          v_fiscala);
+
+    -- inregistrez (id_mf_nou, id_operatie_nou, id_imobilizare_curs, id_operatie_curs, valoare)
+    select min(id_operatie_mf)
+      into v_id_operatie_nou
+      from imob_operatii_mf
+     where id_mf = v_id_mf_nou;
+
+    pack_imob.adauga_la_transformare(v_id_mf_nou,
+                                     v_id_operatie_nou,
+                                     v_id_mf,
+                                     v_id_operatie_mf,
+                                     v_valoare_retinuta);
+
+  END inreg_transformare_in_mf;
+
+  ---------------------------------------------------------------------------------------------
+  -- MODIFICARE CU ISTORIC
+  -- schimba_mf: cand se modifica valori din nomenclator/lista/operatie/rata mobilizare (lista, operatie, rata)
+  -- din butonul frm_lista.modificare()
+  -- se sterg vechile operatii, rate si se adauga inregistrari noi
+  ---------------------------------------------------------------------------------------------
+  ---------------------------------------------------------------------------------------------
+
+
+  procedure schimba_mf(v_id_mf                IN NUMBER,
+                       v_nract                IN NUMBER,
+                       v_data_achizitie       IN DATE,
+                       v_denumire             IN VARCHAR2,
+                       v_explicatie_n         IN VARCHAR2,
+                       v_data_pif             IN DATE,
+                       v_nr_pif               IN NUMBER,
+                       v_procent              IN NUMBER,
+                       v_coeficient           IN NUMBER,
+                       v_id_tip_amortizare    IN NUMBER,
+                       v_id_tip_imobilizare   IN NUMBER,
+                       v_id_lista_mf          IN NUMBER,
+                       v_dns_luni             IN NUMBER,
+                       v_Cod_mf               IN VARCHAR2,
+                       v_cont                 IN VARCHAR2,
+                       v_acont                IN VARCHAR2,
+                       v_nr_inventar          IN NUMBER,
+                       v_id_gestiune          IN NUMBER,
+                       v_id_responsabil       IN NUMBER,
+                       v_id_sectie            IN NUMBER,
+                       v_id_lucrare           IN NUMBER,
+                       v_id_sucursala         IN IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                       v_lper_in              in VARCHAR2,
+                       v_lper_fin             in VARCHAR2,
+                       v_id_operatie_mf       IN NUMBER,
+                       v_id_tip_operatie      in NUMBER,
+                       v_valoare              IN NUMBER,
+                       v_valoare_ramasa       IN NUMBER,
+                       v_dns_ramas            in NUMBER,
+                       v_valoare_reziduala    IN NUMBER,
+                       v_data_operatie        in DATE,
+                       v_explicatie_o         in VARCHAR2,
+                       v_uzura_prec           in NUMBER,
+                       v_id_rata              in NUMBER,
+                       v_rper_in              in VARCHAR2,
+                       v_rper_fin             in VARCHAR2,
+                       v_rata                 in NUMBER,
+                       v_cota_an              in NUMBER,
+                       v_cota_luna            in NUMBER,
+                       v_ultima_rata          in NUMBER,
+                       v_data_ultima_rata     in DATE,
+                       v_fiscala              in NUMBER,
+                       v_id_util              IN NUMBER,
+                       v_amort_max_deductibil IN NUMBER,
+                       v_nrdoc                IN IMOB_OPERATII_MF.NRDOC%TYPE DEFAULT NULL,
+                       v_datadoc              in IMOB_OPERATII_MF.DATADOC%TYPE DEFAULT NULL) IS
+
+    tnLuna           number := 0;
+    tnLunaExp        number := 0;
+    tnAn             number := 0;
+    tnAnExp          number := 0;
+    v_amort_prec     number := 0;
+    v_table_operatii varchar2(30);
+    v_table_rate     varchar2(30);
+
+    v_row_op  imob_operatii_mf%ROWTYPE;
+    v_row_opf imobf_operatii_mf%ROWTYPE;
+
+    v_row_rate  imob_calcul_rate%ROWTYPE;
+    v_row_ratef imobf_calcul_rate%ROWTYPE;
+    ldDataOra   date := sysdate;
+    lnIdRata    imob_calcul_rate.id_calcul_rate%type := v_id_rata;
+  begin
+
+    if v_fiscala = 0 then
+      v_table_operatii := 'imob_operatii_mf';
+      v_table_rate     := 'imob_calcul_rate';
+    else
+      v_table_operatii := 'imobf_operatii_mf';
+      v_table_rate     := 'imobf_calcul_rate';
+    end if;
+
+    UPDATE IMOB_NOM_MF
+       SET nract              = v_nract,
+           data_achizitie     = v_data_achizitie,
+           denumire           = v_denumire,
+           explicatia         = v_explicatie_n,
+           data_pif           = v_data_pif,
+           nr_pif             = v_nr_pif,
+           procent            = v_procent,
+           coeficient         = v_coeficient,
+           id_tip_amortizare  = v_id_tip_amortizare,
+           id_tip_imobilizare = v_id_tip_imobilizare
+     WHERE ID_MF = v_id_mf;
+
+    tnLuna    := to_number(substr(v_lper_in, 1, 2));
+    tnAn      := to_number(substr(v_lper_in, 3, 4));
+    tnLunaExp := to_number(substr(v_lper_fin, 1, 2));
+    tnAnExp   := to_number(substr(v_lper_fin, 3, 4));
+    /*    EXECUTE IMMEDIATE 'UPDATE ' || v_schema || '.IMOB_LISTA_MF ' ||
+                    'SET NR_INVENTAR=:1,id_lucrare=:2,id_gestiune=:3,' ||
+                    'id_sectie=:4,id_responsabil=:5,dns_luni=:6,cod_mf=:7,cont=:8,acont=:9,an=:10,luna=:11,an_exp=:12,luna_exp=:13 WHERE ID_LISTA_MF =:14 '
+    USING v_nr_inventar, v_id_lucrare, v_id_gestiune, v_id_sectie, v_id_responsabil, v_dns_luni, v_Cod_mf, v_cont, v_acont, tnAn, tnLuna, tnAnExp, tnLunaExp, v_id_lista_mf;*/
+
+    pack_imob.modifica_lista_mf(v_id_mf,
+                                v_id_lista_mf,
+                                v_dns_luni,
+                                v_Cod_mf,
+                                v_cont,
+                                v_acont,
+                                v_nr_inventar,
+                                v_id_gestiune,
+                                v_id_responsabil,
+                                v_id_sectie,
+                                v_id_lucrare,
+                                v_id_sucursala,
+                                v_id_util,
+                                tnAn,
+                                tnLuna,
+                                tnAnExp,
+                                tnLunaExp,
+                                v_amort_max_deductibil);
+
+    --------------------------------------
+    tnLuna       := to_number(substr(v_rper_in, 1, 2));
+    tnAn         := to_number(substr(v_rper_in, 3, 4));
+    tnLunaExp    := to_number(substr(v_rper_fin, 1, 2));
+    tnAnExp      := to_number(substr(v_rper_fin, 3, 4));
+    v_amort_prec := v_valoare - v_valoare_ramasa;
+
+    -- if v_id_tip_imobilizare <> 3 then
+    -- imobilizarile in curs nu au operatii si rate
+    if v_fiscala = 0 then
+      -- imobilizarile in curs nu transmit informatiile despre rate (nu au rate), dar sunt necesare
+      -- determin id_rata in functie de id_operate
+      if v_id_tip_imobilizare = 3 and nvl(lnIdRata, 0) = 0 then
+        select id_calcul_rate
+          into lnIdRata
+          from imob_calcul_rate a
+         where a.id_operatie_mf = v_id_operatie_mf;
+      end if;
+
+      if nvl(v_id_operatie_mf, 0) = 0 or nvl(lnIdRata, 0) = 0 then
+        RAISE_APPLICATION_ERROR(-20000,
+                                'Nu este completat Id operatie sau Id rata!');
+      end if;
+
+      select *
+        into v_row_op
+        from imob_operatii_mf
+       where id_operatie_mf = v_id_operatie_mf;
+
+      select *
+        into v_row_rate
+        from imob_calcul_rate
+       where id_calcul_rate = lnIdRata;
+
+      UPDATE imob_operatii_mf
+         SET sters         = 1,
+             id_util_sters = v_id_util,
+             dataora_sters = ldDataOra
+       WHERE id_operatie_mf = v_id_operatie_mf;
+
+      v_row_op.valoare           := v_valoare;
+      v_row_op.valoare_ramasa    := v_valoare_ramasa;
+      v_row_op.dns_ramas         := v_dns_ramas;
+      v_row_op.valoare_reziduala := v_valoare_reziduala;
+      v_row_op.data_operatie     := v_data_operatie;
+      v_row_op.explicatia        := v_explicatie_o;
+      v_row_op.id_tip_operatie   := v_id_tip_operatie;
+      v_row_op.id_util           := v_id_util;
+      v_row_op.dataora           := ldDataOra;
+      v_row_op.nrdoc             := NVL(v_nrdoc, v_row_op.nrdoc);
+      v_row_op.datadoc           := NVL(v_datadoc, v_row_op.datadoc);
+
+      insert into imob_operatii_mf
+      values v_row_op
+      returning id_operatie_mf into v_row_op.id_operatie_mf;
+
+      UPDATE imob_calcul_rate
+         SET sters = 1
+       WHERE id_calcul_rate = lnIdRata;
+
+      v_row_rate.rata             := v_rata;
+      v_row_rate.cota_An          := v_cota_an;
+      v_row_rate.cota_luna        := v_cota_luna;
+      v_row_rate.ultima_rata      := v_ultima_rata;
+      v_row_rate.data_ultima_rata := v_data_ultima_rata;
+      v_row_rate.an               := tnAn;
+      v_row_rate.luna             := tnLuna;
+      v_row_rate.an_exp           := tnAnExp;
+      v_row_rate.luna_exp         := tnLunaExp;
+      v_row_rate.uzura_prec       := v_uzura_prec;
+      v_row_rate.amortizare_prec  := v_amort_prec;
+      v_row_rate.id_operatie_mf   := v_row_op.id_operatie_mf;
+
+      insert into imob_calcul_rate
+      values v_row_rate
+      returning id_calcul_rate into v_row_rate.id_calcul_rate;
+
+    else
+      -- imobilizarile in curs nu transmit informatiile despre rate (nu au rate), dar sunt necesare
+      -- determin id_rata in functie de id_operate
+      if v_id_tip_imobilizare = 3 and nvl(lnIdRata, 0) = 0 then
+        begin
+          select id_calcul_rate
+            into lnIdRata
+            from imobf_calcul_rate a
+           where a.id_operatie_mf = v_id_operatie_mf;
+        exception
+          when NO_DATA_FOUND then
+            RAISE_APPLICATION_ERROR(-20000,
+                                    'Nu este completat Id operatie sau Id rata!');
+        end;
+      end if;
+
+      if nvl(v_id_operatie_mf, 0) = 0 or nvl(lnIdRata, 0) = 0 then
+        RAISE_APPLICATION_ERROR(-20000,
+                                'Nu este completat Id operatie sau Id rata!');
+      end if;
+
+      select *
+        into v_row_opf
+        from imobf_operatii_mf
+       where id_operatie_mf = v_id_operatie_mf;
+
+      select *
+        into v_row_ratef
+        from imobf_calcul_rate
+       where id_calcul_rate = lnIdRata;
+
+      UPDATE imobf_operatii_mf
+         SET sters         = 1,
+             id_util_sters = v_id_util,
+             dataora_sters = ldDataOra
+       WHERE id_operatie_mf = v_id_operatie_mf;
+
+      v_row_opf.valoare         := v_valoare;
+      v_row_opf.valoare_ramasa  := v_valoare_ramasa;
+      v_row_opf.dns_ramas       := v_dns_ramas;
+      v_row_opf.data_operatie   := v_data_operatie;
+      v_row_opf.explicatia      := v_explicatie_o;
+      v_row_opf.id_tip_operatie := v_id_tip_operatie;
+
+      insert into imobf_operatii_mf
+      values v_row_opf
+      returning id_operatie_mf into v_row_opf.id_operatie_mf;
+
+      UPDATE imobf_calcul_rate
+         SET sters = 1
+       WHERE id_calcul_rate = lnIdRata;
+
+      v_row_ratef.rata             := v_rata;
+      v_row_ratef.cota_An          := v_cota_an;
+      v_row_ratef.cota_luna        := v_cota_luna;
+      v_row_ratef.ultima_rata      := v_ultima_rata;
+      v_row_ratef.data_ultima_rata := v_data_ultima_rata;
+      v_row_ratef.an               := tnAn;
+      v_row_ratef.luna             := tnLuna;
+      v_row_ratef.an_exp           := tnAnExp;
+      v_row_ratef.luna_exp         := tnLunaExp;
+      v_row_ratef.uzura_prec       := v_uzura_prec;
+      v_row_ratef.amortizare_prec  := v_amort_prec;
+      v_row_ratef.id_operatie_mf   := v_row_opf.id_operatie_mf;
+
+      insert into imobf_calcul_rate
+      values v_row_ratef
+      returning id_calcul_rate into v_row_ratef.id_calcul_rate;
+
+    end if;
+    -- end if;
+
+  end schimba_mf;
+
+  ------------------------------------------------------------------------------------------------
+  procedure sterge_mf(v_id_mf IN NUMBER, v_id_util IN number default null) IS
+  begin
+    for item in (select id_operatie_mf, id_operatie_prec, 0 as fiscala
+                   from imob_operatii_mf
+                  where id_mf = v_id_mf
+                  order by id_operatie_mf desc) loop
+      pack_imob.sterge_operatie_mf(item.id_operatie_mf,
+                                   item.id_operatie_prec,
+                                   item.fiscala);
+    end loop;
+
+    for item in (select id_operatie_mf, id_operatie_prec, 1 as fiscala
+                   from imobf_operatii_mf
+                  where id_mf = v_id_mf
+                  order by id_operatie_mf desc) loop
+      pack_imob.sterge_operatie_mf(item.id_operatie_mf,
+                                   item.id_operatie_prec,
+                                   item.fiscala);
+    end loop;
+
+    UPDATE imob_lista_mf
+       SET sters = 1
+     WHERE id_mf = v_id_mf
+       and sters = 0;
+
+    update imob_nom_mf
+       set sters = 1, dataora_sters = sysdate, id_util_sters = v_id_util
+     where id_mf = v_id_mf;
+
+  end sterge_mf;
+  ------------------------------------------------------------------------------------------------
+  /*  function add_operatie_mf(v_schema              IN VARCHAR2,
+                           v_id_mf               IN NUMBER,
+                           v_id_tip_operatie     IN NUMBER,
+                           v_valoare             IN NUMBER,
+                           v_valoare_ramasa      IN NUMBER,
+                           v_dns_ramas           IN NUMBER,
+                           v_data_operatie       IN DATE,
+                           v_explicatia_operatie IN VARCHAR2,
+                           v_id_util             IN NUMBER,
+                           v_fiscala             in number,
+                           v_datadoc             in date,
+                           v_nrdoc               in number,
+                           v_id_tip_iesire       in imob_tipuri_iesire.id%type default null)
+    return number as
+    -- am adaugat v_valoare_reziduala pentru compatibilitate
+    v_id_operatie_mf    number := 0;
+    v_valoare_reziduala number := 0;
+  begin
+    v_id_operatie_mf := add_operatie_mf(v_id_mf,
+                                        v_id_tip_operatie,
+                                        v_valoare,
+                                        v_valoare_ramasa,
+                                        v_dns_ramas,
+                                        v_valoare_reziduala,
+                                        v_data_operatie,
+                                        v_explicatia_operatie,
+                                        v_id_util,
+                                        v_fiscala,
+                                        v_datadoc,
+                                        v_nrdoc,
+                                        v_id_tip_iesire);
+
+  end add_operatie_mf;*/
+
+  function add_operatie_mf(v_id_mf               IN NUMBER,
+                           v_id_tip_operatie     IN NUMBER,
+                           v_valoare             IN NUMBER,
+                           v_valoare_ramasa      IN NUMBER,
+                           v_dns_ramas           IN NUMBER,
+                           v_valoare_reziduala   IN NUMBER,
+                           v_data_operatie       IN DATE,
+                           v_explicatia_operatie IN VARCHAR2,
+                           v_id_util             IN NUMBER,
+                           v_fiscala             in number,
+                           v_datadoc             in date,
+                           v_nrdoc               in number,
+                           v_id_tip_iesire       in imob_tipuri_iesire.id%type default null)
+    return number as
+
+    v_id_operatie_prec number := 0;
+    v_id_operatie_mf   number := 0;
+    v_view             varchar2(30) := 'imob_vultima_operatie';
+    v_table            varchar2(30) := 'IMOB_OPERATII_MF';
+
+  begin
+    if v_fiscala = 1 then
+      v_view  := 'imobf_vultima_operatie_fiscala';
+      v_table := 'IMOBF_OPERATII_MF';
+    else
+      v_view  := 'imob_vultima_operatie';
+      v_table := 'IMOB_OPERATII_MF';
+    end if;
+    BEGIN
+      Execute immediate 'SELECT id_operatie_mf FROM ' || v_view ||
+                        ' where id_mf = :1'
+        into v_id_operatie_prec
+        using v_id_mf;
+    EXCEPTION
+      WHEN OTHERS THEN
+        v_id_operatie_prec := 0;
+    END;
+
+    EXECUTE IMMEDIATE 'INSERT /*+APPEND*/ INTO ' || v_table ||
+                      '(ID_MF,ID_TIP_OPERATIE,VALOARE,valoare_ramasa,DNS_RAMAS,VALOARE_REZIDUALA,DATA_OPERATIE,EXPLICATIA,ID_UTIL,id_operatie_prec,datadoc,nrdoc, id_tip_iesire) ' ||
+                      'VALUES(:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11,:12,:13) RETURNING ID_OPERATIE_MF INTO :14'
+      USING v_id_mf, v_id_tip_operatie, v_valoare, v_valoare_ramasa, v_dns_ramas, v_valoare_reziduala, v_data_operatie, v_explicatia_operatie, v_id_util, v_id_operatie_prec, v_datadoc, v_nrdoc, v_id_tip_iesire
+      RETURNING INTO v_id_operatie_mf;
+
+    return v_id_operatie_mf;
+
+  end add_operatie_mf;
+  ---------------------------------------------------------------------------------------------
+  procedure add_in_lista_mf(v_schema               IN VARCHAR2,
+                            v_id_mf                IN NUMBER,
+                            v_dns                  IN NUMBER,
+                            v_cod_mf               IN VARCHAR2,
+                            v_cont                 IN VARCHAR2,
+                            v_acont                IN VARCHAR2,
+                            v_id_lucrare           IN NUMBER,
+                            v_id_gestiune          IN NUMBER,
+                            v_id_sectie            IN NUMBER,
+                            v_id_responsabil       IN NUMBER,
+                            v_id_sucursala         IN IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                            v_nr_inventar          IN NUMBER,
+                            v_id_util              IN NUMBER,
+                            v_data_calcul          IN DATE,
+                            v_durata               IN NUMBER,
+                            v_amort_max_deductibil IN NUMBER) IS
+    v_data_exp  date;
+    v_an        number;
+    v_luna      number;
+    v_an_exp    number;
+    v_luna_exp  number;
+    v_data_prec date;
+    v_an_prec   number;
+    v_luna_prec number;
+
+  begin
+
+    v_data_exp  := add_months(v_data_calcul, v_durata);
+    v_an        := extract(year from v_data_calcul);
+    v_luna      := extract(month from v_data_calcul);
+    v_an_exp    := extract(year from v_data_exp);
+    v_luna_exp  := extract(month from v_data_exp);
+    v_data_prec := add_months(v_data_calcul, -1);
+    v_an_prec   := extract(year from v_data_prec);
+    v_luna_prec := extract(month from v_data_prec);
+
+    -- inactivez inregistrarile precedente pt un MF dc sunt facute in aceeasi luna
+    /*    EXECUTE IMMEDIATE 'UPDATE ' || v_schema || '.IMOB_LISTA_MF ' ||
+                    'SET inactiv = 1 ' ||
+                    'WHERE ID_MF=:1 AND AN*12+LUNA =:2 AND STERS=0'
+    USING v_id_mf, v_an * 12 + v_luna;*/
+
+    -- setez data expirare pt precedenta activa
+    UPDATE IMOB_LISTA_MF
+       SET an_exp = v_an_prec, luna_exp = v_luna_prec
+     WHERE ID_MF = v_id_mf
+       and AN_EXP * 12 + LUNA_EXP > v_an * 12 + v_luna
+       AND STERS = 0
+       AND INACTIV = 0;
+
+    -- inserez linie noua
+    INSERT /*+APPEND*/
+    INTO IMOB_LISTA_MF
+      (ID_MF,
+       DNS_LUNI,
+       NR_INVENTAR,
+       COD_MF,
+       CONT,
+       ACONT,
+       ID_LUCRARE,
+       ID_GESTIUNE,
+       ID_SECTIE,
+       ID_RESPONSABIL,
+       ID_SUCURSALA,
+       ID_UTIL,
+       AN,
+       LUNA,
+       AN_EXP,
+       LUNA_EXP,
+       AMORT_MAX_DEDUCTIBIL)
+    VALUES
+      (v_id_mf,
+       v_dns,
+       v_nr_inventar,
+       trim(v_cod_mf),
+       trim(v_cont),
+       trim(v_acont),
+       v_id_lucrare,
+       v_id_gestiune,
+       v_id_sectie,
+       v_id_responsabil,
+       v_id_sucursala,
+       v_id_util,
+       v_an,
+       v_luna,
+       v_an_exp,
+       v_luna_exp,
+       v_amort_max_deductibil);
+
+  end add_in_lista_mf;
+  ------------------------------------------------------------------------------------------
+  procedure adauga_la_transformare(v_id_mf_nou        IN NUMBER,
+                                   v_id_operatie_nou  IN NUMBER,
+                                   v_id_mf_curs       IN NUMBER,
+                                   v_id_operatie_curs IN NUMBER,
+                                   v_valoare          IN NUMBER) IS
+  begin
+
+    INSERT INTO IMOB_TRANSFORMARE_MF
+      (ID_MF_NOU, ID_OPERATIE_NOU, ID_MF_VECHI, ID_OPERATIE_CURS, VALOARE)
+    VALUES
+      (v_id_mf_nou,
+       v_id_operatie_nou,
+       v_id_mf_curs,
+       v_id_operatie_curs,
+       v_valoare);
+
+  end adauga_la_transformare;
+
+  -------------------------------------------------------------------------------------------------------
+  -- se apeleaza din sterge_operatie_mf cand sterg operatia de transformare imobilizare in curs in mijlocul fix
+  -------------------------------------------------------------------------------------------------------
+  procedure undo_in_imobilizare_in_curs(v_id_tip_imobilizare IN NUMBER,
+                                        v_id_operatie        IN NUMBER) IS
+    lnIdUtil         imob_operatii_mf.id_util%type;
+    lnIdOperatieCurs imob_operatii_mf.id_operatie_mf%type;
+  begin
+    lnIdUtil := pack_contafin.GET_IDUTIL();
+
+    IF v_id_tip_imobilizare <> 3 THEN
+      -- sterg operatia de transformare in mijloc fix
+      -- doar daca operatia apartine unei imobilizari corporale/necorporale
+      -- nu si pentru o imobilizare in curs
+      UPDATE IMOB_OPERATII_MF
+         SET STERS = 1, DATAORA_STERS = SYSDATE, ID_UTIL_STERS = lnIdUtil
+       WHERE id_operatie_mf in
+             (SELECT ID_OPERATIE_CURS
+                FROM IMOB_TRANSFORMARE_MF
+               WHERE ID_OPERATIE_NOU = v_id_operatie);
+      DELETE FROM IMOB_TRANSFORMARE_MF
+       WHERE ID_OPERATIE_NOU = v_id_operatie;
+    else
+      DELETE FROM IMOB_TRANSFORMARE_MF
+       WHERE ID_OPERATIE_CURS = v_id_operatie;
+    END IF;
+
+  end undo_in_imobilizare_in_curs;
+  -------------------------------------------------------------------------------------------------------
+  procedure recalculat_expirarea(v_schema           IN VARCHAR2,
+                                 v_id_operatie_prec IN NUMBER,
+                                 v_fiscala          IN NUMBER) is
+
+    v_an_exp         number;
+    v_luna_exp       number;
+    v_dns_ramas      number;
+    v_data           date;
+    v_table_operatii varchar2(30);
+    v_table_rate     varchar2(30);
+
+  begin
+
+    if v_fiscala = 0 then
+      v_table_operatii := 'imob_operatii_mf';
+      v_table_rate     := 'imob_calcul_rate';
+    else
+      v_table_operatii := 'imobf_operatii_mf';
+      v_table_rate     := 'imobf_calcul_rate';
+    end if;
+
+    EXECUTE IMMEDIATE 'SELECT dns_ramas FROM ' || v_schema || '.' ||
+                      v_table_operatii || ' WHERE ID_operatie_mf=:1'
+      INTO v_dns_ramas
+      USING v_id_operatie_prec;
+
+    EXECUTE IMMEDIATE 'SELECT an,luna  FROM ' || v_schema || '.' ||
+                      v_table_rate || ' WHERE ID_operatie_mf=:1'
+      INTO v_an_exp, v_luna_exp
+      USING v_id_operatie_prec;
+
+    v_data     := to_date(to_char(v_an_exp) ||
+                          lpad(to_char(v_luna_exp), 2, 0) || '01',
+                          'yyyymmdd');
+    v_data     := add_months(v_data, v_dns_ramas - 1);
+    v_an_exp   := extract(year from v_data);
+    v_luna_exp := extract(month from v_data);
+
+    EXECUTE IMMEDIATE 'UPDATE ' || v_schema || '.' || v_table_rate ||
+                      'SET an_exp=:1,luna_exp=:2 WHERE ID_operatie_mf =:3'
+      USING v_an_exp, v_luna_exp, v_id_operatie_prec;
+
+  end recalculat_expirarea;
+  ------------------------------------------------------------------------------------------------------
+  FUNCTION get_max_id(v_schema  IN VARCHAR2,
+                      v_tabela  IN VARCHAR2,
+                      v_nume_id IN VARCHAR2) return number is
+    v_id_max NUMBER := 0;
+
+  begin
+
+    EXECUTE IMMEDIATE 'SELECT MAX(' || V_NUME_ID || ') AS ID_MAX FROM  ' ||
+                      V_SCHEMA || '.' || V_TABELA
+      INTO V_ID_MAX;
+    return v_id_max;
+  end get_max_id;
+  -------------------------------------------------------------------------------------------------------
+  procedure CALCUL_SITUATIE_LUNARA(v_datain       in date,
+                                   v_datasf       in date,
+                                   v_cond         in varchar2,
+                                   v_fiscala      in number,
+                                   v_id_sucursala in number,
+                                   crsMF          out PACK_TYPES.tip_cursor) is
+  begin
+
+    pack_imob.CALCUL_SITUATIE_LUNARA2(v_datain,
+                                      v_datasf,
+                                      v_cond,
+                                      v_fiscala,
+                                      v_id_sucursala,
+                                      0,
+                                      crsMF);
+  end;
+  ------------------------------------------------------------------------------------------------------
+  /*  PROCEDURE VIZUALIZARE_LISTA(V_DATAIN       IN DATE,
+                                    V_DATASF       IN DATE,
+                                    V_COND         IN VARCHAR2,
+                                    V_FISCALA      IN NUMBER,
+                                    V_ID_SUCURSALA IN NUMBER,
+                                    V_TIP_SELECTIE IN NUMBER DEFAULT 0,
+                                    CRSMF          OUT PACK_TYPES.TIP_CURSOR) IS
+  CRSMF PACK_TYPES.TIP_CURSOR;
+  BEGIN
+  PACK_IMOB.CALCUL_SITUATIE_LUNARA2(V_DATAIN => :V_DATAIN,
+                                    V_DATASF => :V_DATASF,
+                                    V_COND => :V_COND,
+                                    V_FISCALA => :V_FISCALA,
+                                    V_ID_SUCURSALA => :V_ID_SUCURSALA,
+                                    V_TIP_SELECTIE => :V_TIP_SELECTIE,
+                                    CRSMF => :CRSMF);
+
+  END VIZUALIZARE_LISTA;*/
+
+  procedure CALCUL_SITUATIE_LUNARA2(v_datain       in date,
+                                    v_datasf       in date,
+                                    v_cond         in varchar2,
+                                    v_fiscala      in number,
+                                    v_id_sucursala in number,
+                                    v_tip_selectie in number,
+                                    crsMF          out PACK_TYPES.tip_cursor) is
+
+    -- v_tip_selectie: 0 (default), 1 = se apeleaza selectul din pack_mg_evolutie cu mai putine coloane
+
+    lcSql varchar2(32000);
+    /*    uw_selection          uw_sel_tab := uw_sel_tab();*/
+    lnMf                  number(10) := 0;
+    lnIdMf                number(10) := 0;
+    lnIdLista             number(10) := 0;
+    lnIdOperatie          number(10) := 0;
+    lnIdOperatieAchizitie number(10) := 0;
+    lnIdOperatiePrec      number(10) := 0;
+    lnIdCalcul            number(10) := 0;
+    lnIdListaRezerva      number(10) := 0;
+    lnIdCalculRezerva     number(10) := 0;
+    ignore                number(4);
+    lnDataTest            number(10) := 0;
+    llInserez             number(1) := 0;
+    v_table_operatii      varchar2(40) := 'IMOB_OPERATII_MF';
+    v_table_rata          varchar2(40) := 'IMOB_CALCUL_RATE';
+    v_view_operatii       varchar2(40) := 'IMOB_VOPERATII_MF';
+    v_view_rata           varchar2(40) := 'IMOB_VCALCUL_RATE';
+    lcWhere               varchar2(1000);
+
+    i number(20) := 0;
+  begin
+    DELETE FROM TUW_SEL_TAB;
+
+    if v_id_sucursala is not null then
+      lcWhere := case
+                   when v_cond is not null then
+                    v_cond || ' and l.id_sucursala = ' || v_id_sucursala
+                   else
+                    ' l.id_sucursala = ' || v_id_sucursala
+                 end;
+    else
+      lcWhere := v_cond;
+    end if;
+    if lcWhere is not null then
+      lcWhere := ' where ' || lcWhere;
+    end if;
+
+    if v_fiscala = 1 then
+      v_table_operatii := 'IMOBF_OPERATII_MF';
+      v_table_rata     := 'IMOBF_CALCUL_RATE';
+      v_view_operatii  := 'IMOBF_VOPERATII_MF';
+      v_view_rata      := 'IMOBF_VCALCUL_RATE';
+    end if;
+    lcSql := 'select nvl(n.id_mf, 0) as id_mf,
+                     nvl(l.id_lista_mf, 0) as id_lista_mf,
+                     nvl(o.id_operatie_mf, 0) as id_operatie_mf,
+                     nvl(o.id_operatie_achizitie, 0) as id_operatie_achizitie,
+                     nvl(o.id_operatie_prec, 0) as id_operatie_prec,
+                     nvl(c.id_calcul_rate, 0) as id_calcul_rate,
+                     nvl(s.id_lista_rezerva, 0) as id_lista_rezerva,
+                     nvl(x.id_calcul_rate, 0) as id_calcul_rezerva
+          from (select o1.id_operatie_mf, o1.id_mf, o1.id_operatie_prec, o2.id_operatie_achizitie from (select id_operatie_mf, id_mf, id_operatie_prec from ' ||
+             v_table_operatii || ' where sters = 0) o1 join (select distinct first_value(id_operatie_mf) over(partition by id_mf order by data_operatie desc) as id_operatie_mf,
+                      first_value(id_operatie_mf) over(partition by id_mf order by data_operatie asc) as id_operatie_achizitie
+                 from ' || v_table_operatii || '
+                where extract(month from data_operatie) +
+                      extract(year from data_operatie) * 12 <= :1
+                  and sters = 0
+                  and id_operatie_mf in (select distinct id_operatie_mf
+                                           from ' ||
+             v_table_rata || '
+                                          where sters = 0)) o2 on o1.id_operatie_mf =
+                                                                  o2.id_operatie_mf) o
+          join imob_nom_mf n on o.id_mf = n.id_mf and n.sters = 0
+          left join (select distinct max(id_lista_mf) over(partition by id_mf) as id_lista_mf,id_mf
+                                                                  from imob_lista_mf
+                                                                 where :2 between
+                                                                       (an * 12 + luna) and
+                                                                       (an_exp * 12 +
+                                                                       luna_exp)
+                                                                   and sters = 0) l on o.id_mf = l.id_mf
+          left join (select id_mf, id_lista_mf as id_lista_rezerva from imob_lista_mf where id_lista_mf in (select first_value(id_lista_mf) over (partition by id_mf order by (an*12 + luna) desc) as id_lista_rezerva from imob_lista_mf
+                                                                 where an*12 + luna <= :3 and
+                                                                 (an_exp*12 + luna_exp - an*12 -luna)>=0 and sters=0)) s on s.id_mf = o.id_mf
+          left join (select distinct max(id_calcul_rate) over(partition by id_mf) as id_calcul_rate,id_mf
+                                                                  from ' ||
+             v_table_rata || '
+                                                                 where :4 between
+                                                                       (an * 12 + luna) and
+                                                                       (an_exp * 12 +
+                                                                       luna_exp)
+                                                                   and sters = 0) c on o.id_mf = c.id_mf
+          left join (select distinct min(id_calcul_rate) over(partition by id_operatie_mf) as id_calcul_rate, id_operatie_mf from ' ||
+             v_table_rata ||
+             ' where sters = 0) x on x.id_operatie_mf = o.id_operatie_mf';
+
+    --pinfo(lcSql, 'IMOBILIZARI 1');
+
+    FOR ITEM IN (SELECT data_test
+                   FROM ani_luni
+                  where data_test between v_datain and v_datasf
+                  order by data_test) LOOP
+
+      lnDataTest := extract(month from item.data_test) +
+                    extract(year from item.data_test) * 12;
+
+      /*       execute immediate 'SELECT uw_sel_row(data_test, id_mf, id_lista_mf, id_operatie_mf, id_calcul_rate)
+            BULK COLLECT INTO uw_selection
+            FROM (' || lcSql || ')'
+      using item.data_test,lnDataTest, lnDataTest;*/
+
+      lnMF := dbms_sql.open_cursor;
+      DBMS_SQL.PARSE(lnMf, lcSql, DBMS_SQL.native);
+
+      DBMS_SQL.DEFINE_COLUMN(lnMf, 1, lnIdMf);
+      DBMS_SQL.DEFINE_COLUMN(lnMf, 2, lnIdLista);
+      DBMS_SQL.DEFINE_COLUMN(lnMf, 3, lnIdOperatie);
+      DBMS_SQL.DEFINE_COLUMN(lnMf, 4, lnIdOperatieAchizitie);
+      DBMS_SQL.DEFINE_COLUMN(lnMf, 5, lnIdOperatiePrec);
+      DBMS_SQL.DEFINE_COLUMN(lnMf, 6, lnIdCalcul);
+      DBMS_SQL.DEFINE_COLUMN(lnMf, 7, lnIdListaRezerva);
+      DBMS_SQL.DEFINE_COLUMN(lnMf, 8, lnIdCalculRezerva);
+
+      dbms_sql.bind_variable(lnMf, ':1', lnDataTest);
+      dbms_sql.bind_variable(lnMf, ':2', lnDataTest);
+      dbms_sql.bind_variable(lnMf, ':3', lnDataTest);
+      dbms_sql.bind_variable(lnMf, ':4', lnDataTest);
+
+      ignore := DBMS_SQL.EXECUTE(lnMf);
+      LOOP
+        IF DBMS_SQL.FETCH_ROWS(lnMf) > 0 THEN
+          -- get column values of the row
+          DBMS_SQL.COLUMN_VALUE(lnMf, 1, lnIdMf);
+          DBMS_SQL.COLUMN_VALUE(lnMf, 2, lnIdLista);
+          DBMS_SQL.COLUMN_VALUE(lnMf, 3, lnIdOperatie);
+          DBMS_SQL.COLUMN_VALUE(lnMf, 4, lnIdOperatieAchizitie);
+          DBMS_SQL.COLUMN_VALUE(lnMf, 5, lnIdOperatiePrec);
+          DBMS_SQL.COLUMN_VALUE(lnMf, 6, lnIdCalcul);
+          DBMS_SQL.COLUMN_VALUE(lnMf, 7, lnIdListaRezerva);
+          DBMS_SQL.COLUMN_VALUE(lnMf, 8, lnIdCalculRezerva);
+
+          if lnIdLista = 0 then
+            lnIdLista := lnIdListaRezerva;
+          end if;
+
+          if lnIdCalcul = 0 then
+            --select nvl(id_calcul_rate,0) into lnIdCalcul from imob_calcul_rate where id_operatie_mf = lnIdOperatie ;
+            lnIdCalcul := lnIdCalculRezerva;
+          end if;
+
+          if lnIdCalcul <> 0 then
+            llInserez := 1;
+          else
+            llInserez := 0;
+          end if;
+
+          if llInserez = 1 then
+            I := I + 1;
+            /*            uw_selection.extend;
+            uw_selection(i) := uw_sel_row(item.data_test,
+                                          lnIdMf,
+                                          lnIdLista,
+                                          lnIdOperatie,
+                                          lnIdOperatieAchizitie,
+                                          lnIdCalcul);*/
+            insert into tuw_sel_tab
+              (data_test,
+               id_mf,
+               id_lista_mf,
+               id_operatie_mf,
+               id_operatie_achizitie,
+               id_operatie_prec,
+               id_calcul_rate)
+            values
+              (item.data_test,
+               lnIdMf,
+               lnIdLista,
+               lnIdOperatie,
+               lnIdOperatieAchizitie,
+               lnIdOperatiePrec,
+               lnIdCalcul);
+          end if;
+        else
+          exit;
+        end if; -- DBMS_SQL.FETCH_ROWS(lnMf) > 0
+      end loop;
+
+      dbms_sql.close_cursor(lnMf);
+    end loop;
+    if v_tip_selectie = 0 then
+      -- 04.04.2007
+      -- rata doar daca o.id_tip_operatie <> 4 (ultima operatie nu este iesire din gestiune)
+      lcSql := 'select a.data_test,a.id_mf,a.id_lista_mf,a.id_operatie_mf,a.id_calcul_rate
+    ,n.denumire, n.data_achizitie, n.data_pif,n.explicatia,n.nract,n.nr_pif,n.procent,n.coeficient,n.id_tip_imobilizare,n.tip_imobilizare,n.id_tip_amortizare,n.tip_amortizare
+    ,l.dns_luni,l.cont,l.acont,l.cod_mf,l.id_gestiune,l.gestiune,l.id_lucrare,l.nrord,l.id_responsabil,l.responsabil,l.id_sectie,l.sectie,l.id_sucursala,l.sucursala,l.nr_inventar,lpad(l.luna,2,''0'')|| l.an as lper_in,lpad(l.luna_exp,2,''0'')|| l.an_exp as lper_fin, l.amort_max_deductibil
+    ,o.data_operatie,o.id_tip_operatie,o.denumire as ultima_operatie,o.explicatia as cauza,r.uzura_prec,o.dns_ramas
+    ,(case o.id_tip_operatie when 4 then 1 else 0 end) as iesit_din_gest
+    ,nvl(r.cota_an,0) as cota_an,nvl(r.cota_luna,0) as cota_luna,r.data_ultima_rata as data_expirare,nvl(r.ultima_rata,0) as ultima_rata
+    ,o.valoare, o.valoare_ramasa, o.valoare_reziduala
+    ,(case when a.data_test>= r.data_ultima_rata then (case when a.data_test = r.data_ultima_rata and o.id_tip_operatie <> 4 then r.ultima_rata else 0 end) else (case when a.data_test>=to_date(r.luna || ''/'' || r.an,''MM/YYYY'') and o.id_tip_operatie <> 4 then r.rata else 0 end) end) as rata ' ||
+              --',o.valoare_ramasa - (case when o.id_operatie_mf = r.id_operatie_mf then (r.rata*GREATEST(0,months_between(trunc(least(a.data_test,r.data_ultima_rata),''MM''),to_date(r.luna || ''/'' || r.an,''MM/YYYY''))) + (case when a.data_test >= r.data_ultima_rata then ultima_rata else (case when a.data_test<to_date(r.luna || ''/'' || r.an,''MM/YYYY'') THEN 0 ELSE rata END) end)) else 0 end) as valoare_ramasa_amort ' ||
+              --',o.valoare-o.valoare_ramasa + (case when trunc(o.data_operatie,''MM'') <=  to_date(r.luna || ''/'' || r.an,''MM/YYYY'') then  r.rata*GREATEST(0,months_between(trunc(least(a.data_test,r.data_ultima_rata),''MM''),to_date(r.luna || ''/'' || r.an,''MM/YYYY''))) + (case when a.data_test > r.data_ultima_rata then ultima_rata else 0 end) else 0 end) as amort_prec ' ||
+               ',r.amortizare_prec + r.rata*GREATEST(0,months_between(trunc(least(a.data_test,r.data_ultima_rata),''MM''),to_date(r.luna || ''/'' || r.an,''MM/YYYY''))) + (case when a.data_test > r.data_ultima_rata then r.ultima_rata else 0 end) as amort_prec ' ||
+              --',r.rata*GREATEST(0,months_between(trunc(least(a.data_test,r.data_ultima_rata),''MM''),to_date(r.luna || ''/'' || r.an,''MM/YYYY''))) + (case when a.data_test > r.data_ultima_rata then ultima_rata else 0 end) as amort_prec_rata
+               ',r.uzura_prec + greatest(0,months_between(trunc(least(a.data_test,r.data_ultima_rata),''MM''),to_date(r.luna || ''/'' || r.an,''MM/YYYY'')) + 1) as uzura
+                                                    ,greatest(0,months_between(trunc(least(a.data_test,r.data_ultima_rata),''MM''),to_date(r.luna || ''/'' || r.an,''MM/YYYY'')) + 1) as uzura_rata
+    ,lpad(r.luna,2,''0'')|| r.an as rper_in,lpad(r.luna_exp,2,''0'')|| r.an_exp as rper_fin
+    ,o.valoare_rol,o.valoare_ramasa_rol,r.rata_rol,r.ultima_rata_rol, o2.valoare as valoare_achizitie, o3.valoare as valoare_prec, o.id_tip_iesire, i.tip as tip_iesire,
+    greatest(0, months_between(r.data_ultima_rata,a.data_test)) as durata_ramasa ';
+    else
+      -- pentru apelul din pack_mg_evolutie
+      lcSql := 'select l.cont, o.data_operatie, o.id_tip_iesire,o.valoare ';
+    end if;
+
+    --'from TABLE(cast(:1 as uw_sel_tab)) a ' ||
+    lcSql := lcSql || 'from tuw_sel_tab a ' || 'left join imob_vnom_mf n on a.id_mf = n.id_mf
+    left join imob_vlista_mf l on a.id_lista_mf = l.id_lista_mf
+    left join ' || v_view_operatii || ' o on a.id_operatie_mf = o.id_operatie_mf
+    left join ' || v_view_operatii || ' o2 on a.id_operatie_achizitie = o2.id_operatie_mf
+    left join ' || v_view_operatii || ' o3 on a.id_operatie_prec = o3.id_operatie_mf
+    left join ' || v_view_rata ||
+             ' r on a.id_calcul_rate = r.id_calcul_rate
+    left join imob_tipuri_iesire i on o.id_tip_iesire = i.id ' ||
+             lcWhere;
+
+    --pinfo(lcSql, 'IMOBILIZARI 2');
+
+    open crsMF for lcSql;
+  /*    open crsMF for lcSql
+    using uw_selection;*/
+    DELETE FROM TUW_SEL_TAB;
+
+  end;
+
+  -----------------------------------------------------------------------------------
+  function valori_calcul(v_schema       in varchar2,
+                         v_id_sucursala in IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                         v_datain       in date,
+                         v_datasf       in date,
+                         v_cond         in varchar2,
+                         v_fiscala      in number)
+    return PACK_TYPES.tip_cursor is
+    crsMF PACK_TYPES.tip_cursor;
+  begin
+
+    pack_imob.CALCUL_SITUATIE_LUNARA2(v_datain,
+                                      v_datasf,
+                                      v_cond,
+                                      v_fiscala,
+                                      v_id_sucursala,
+                                      0,
+                                      crsMF);
+
+    return crsMF;
+  end valori_calcul;
+
+  -----------------------------------------------------------------------------------
+  -- folosesc imob_vsituatie_lunara in loc de procedura calcul_situatie_lunara2
+  -----------------------------------------------------------------------------------
+  function valori_calcul_view(v_id_mf   in number,
+                              v_data    in date,
+                              v_fiscala in number)
+    return PACK_TYPES.tip_cursor is
+    crsMF PACK_TYPES.tip_cursor;
+  begin
+
+    pack_imob.setlunacurenta(v_data);
+    if v_fiscala = 0 then
+      open crsMF for
+        select * from imob_vsituatie_lunara where id_mf = v_id_mf;
+    else
+      open crsMF for
+        select * from imobf_vsituatie_lunara where id_mf = v_id_mf;
+    end if;
+
+    return crsMF;
+  end valori_calcul_view;
+
+  -----------------------------------------------------------------------------------
+
+  procedure sterge_operatie_mf(v_id_operatie      IN NUMBER,
+                               v_id_operatie_prec IN NUMBER,
+                               v_fiscala          IN NUMBER) IS
+
+    lnID_Util            act_temp.id_util%Type := 0;
+    LD_DATAORA           DATE;
+    v_ultima_operatie    number;
+    v_dataop             date;
+    v_table_operatii     varchar2(30);
+    v_table_rate         varchar2(30);
+    v_id_tip_operatie    imob_operatii_mf.id_tip_operatie%type;
+    v_id_tip_imobilizare imob_nom_mf.id_tip_imobilizare%type;
+  begin
+
+    if v_fiscala = 0 then
+      v_table_operatii := 'imob_operatii_mf';
+      v_table_rate     := 'imob_calcul_rate';
+    else
+      v_table_operatii := 'imobf_operatii_mf';
+      v_table_rate     := 'imobf_calcul_rate';
+    end if;
+    begin
+      EXECUTE IMMEDIATE 'SELECT max(nvl(id_operatie_mf,0)), max(data_operatie) from ' ||
+                        v_table_operatii ||
+                        ' where id_operatie_prec = :1 and sters = 0 group by id_operatie_prec'
+        into v_ultima_operatie, v_dataop
+        using v_id_operatie;
+    EXCEPTION
+      WHEN OTHERS THEN
+        v_ultima_operatie := 0;
+    end;
+
+    if v_ultima_operatie = 0 or v_ultima_operatie is null then
+      EXECUTE IMMEDIATE 'SELECT max(id_tip_operatie), max(m.id_tip_imobilizare) from ' ||
+                        v_table_operatii ||
+                        ' o join imob_nom_mf m on o.id_mf = m.id_mf where id_operatie_mf = :1'
+        into v_id_tip_operatie, v_id_tip_imobilizare
+        using v_id_operatie;
+
+      LNID_UTIL  := pack_contafin.GET_IDUTIL();
+      LD_DATAORA := pack_contafin.GET_DATAORA();
+
+      EXECUTE IMMEDIATE 'UPDATE ' || v_table_operatii ||
+                        ' SET STERS=1, id_util_sters = :1, dataora_sters = :2 WHERE ID_operatie_mf =: 3'
+        USING lnId_Util, ld_dataora, v_id_operatie;
+
+      EXECUTE IMMEDIATE 'UPDATE ' || v_table_rate ||
+                        ' SET STERS=1 WHERE ID_operatie_mf =: 1'
+        USING v_id_operatie;
+
+      if v_id_operatie_prec <> 0 then
+        EXECUTE IMMEDIATE 'UPDATE ' || v_table_rate ||
+                          ' SET an_exp = extract(year from data_ultima_rata), luna_exp = extract(month from data_ultima_rata) WHERE ID_operatie_mf =: 1'
+          using v_id_operatie_prec;
+      end if;
+
+      -- anulare transformare imobilizare in curs in mijloc fix
+      -- doar daca sterg operatia din imobilizari corporale/necorporale
+      -- nu apelez daca sterg operatia din imobilizari in curs
+      if v_id_tip_operatie = 3 then
+        pack_imob.undo_in_imobilizare_in_curs(v_id_tip_imobilizare,
+                                              v_id_operatie);
+      end if;
+
+    else
+      RAISE_APPLICATION_ERROR(-20000,
+                              '*Nu se poate sterge aceasta operatie. Exista o operatie pe acest MF in data de ' ||
+                              v_dataop || '.*');
+    END IF;
+
+  end sterge_operatie_mf;
+  -----------------------------------------------------------------------------------------------------------------------------
+  procedure modifica_lista_mf(v_id_mf                IN IMOB_LISTA_MF.ID_MF%TYPE,
+                              v_id_lista_mf          IN IMOB_LISTA_MF.ID_LISTA_MF%TYPE,
+                              v_dns_luni             IN IMOB_LISTA_MF.DNS_LUNI%TYPE,
+                              v_Cod_mf               IN IMOB_LISTA_MF.COD_MF%TYPE,
+                              v_cont                 IN IMOB_LISTA_MF.CONT%TYPE,
+                              v_acont                IN IMOB_LISTA_MF.ACONT%TYPE,
+                              v_nr_inventar          IN IMOB_LISTA_MF.NR_INVENTAR%TYPE,
+                              v_id_gestiune          IN IMOB_LISTA_MF.ID_GESTIUNE%TYPE,
+                              v_id_responsabil       IN IMOB_LISTA_MF.ID_RESPONSABIL%TYPE,
+                              v_id_sectie            IN IMOB_LISTA_MF.ID_SECTIE%TYPE,
+                              v_id_lucrare           IN IMOB_LISTA_MF.ID_LUCRARE%TYPE,
+                              v_id_sucursala         IN IMOB_LISTA_MF.ID_SUCURSALA%TYPE,
+                              v_id_util              IN IMOB_LISTA_MF.ID_UTIL%TYPE,
+                              v_an                   IN IMOB_LISTA_MF.AN%TYPE,
+                              v_luna                 IN IMOB_LISTA_MF.LUNA%TYPE,
+                              v_an_exp               IN IMOB_LISTA_MF.AN%TYPE,
+                              v_luna_exp             IN IMOB_LISTA_MF.LUNA%TYPE,
+                              v_amort_max_deductibil in IMOB_LISTA_MF.AMORT_MAX_DEDUCTIBIL%TYPE) is
+
+    lnAnMin      IMOB_LISTA_MF.AN%TYPE;
+    lnLunaMin    IMOB_LISTA_MF.LUNA%TYPE;
+    lnIdListaMax IMOB_LISTA_MF.ID_LISTA_MF%TYPE;
+    lnFoundMin   NUMBER(1) := 1;
+    lnFoundMax   NUMBER(1) := 1;
+
+    lnAn      IMOB_LISTA_MF.AN%TYPE := v_an;
+    lnLuna    IMOB_LISTA_MF.LUNA%TYPE := v_luna;
+    lnAnExp   IMOB_LISTA_MF.AN%TYPE := v_an_exp;
+    lnLunaExp IMOB_LISTA_MF.LUNA%TYPE := v_luna_exp;
+
+    ldDataInc       DATE;
+    ldDataExp       DATE;
+    ldDataExpPerAnt DATE;
+    ldDataIncPerUrm DATE;
+    v_rowcount      number;
+
+  begin
+    -- pinfo('id_mf ' || v_id_mf || ' an ' || v_an || ' luna ' || v_luna ||          ' id_lucrare' || v_id_lucrare,          'modifica_lista_mf');
+
+    -- daca mai exista luna in imob_lista_mf, modific datele pentru luna operatiei
+    MERGE INTO IMOB_LISTA_MF
+    USING DUAL
+    ON (AN = v_an and LUNA = v_luna and ID_MF = v_id_mf)
+    WHEN MATCHED THEN
+      UPDATE
+         SET NR_INVENTAR          = v_nr_inventar,
+             id_lucrare           = v_id_lucrare,
+             id_gestiune          = v_id_gestiune,
+             id_sectie            = v_id_sectie,
+             id_responsabil       = v_id_responsabil,
+             id_sucursala         = v_id_sucursala,
+             dns_luni             = v_dns_luni,
+             cod_mf               = v_Cod_mf,
+             cont                 = v_cont,
+             acont                = v_acont,
+             id_util              = v_id_util,
+             amort_max_deductibil = v_amort_max_deductibil;
+
+    -- DACA EXISTA LUNA OPERATIEI TREBUIE DOAR SA MODIFIC DATELE
+    -- pinfo('SQL%ROWCOUNT ' || SQL%ROWCOUNT, 'modifica_lista_mf');
+    v_rowcount := SQL%ROWCOUNT;
+    IF v_rowcount > 0 THEN
+      GOTO END_PROC;
+    END IF;
+
+    -- ALTFEL, TREBUIE SA MODIFIC DATA DE EXPIRARE PENTRU OPERATIA PRECEDENTA SI, EVENTUAL, DATA DE EXPIRARARE A OPERATIEI
+
+    -- OPERATIA PRECEDENTA
+    -- selectez luna maxima mai mica decat luna operatiei
+    BEGIN
+      select ID_LISTA_MF
+        INTO lnIdListaMax
+        from (SELECT ID_LISTA_MF, AN, LUNA, MAXLUNA
+                FROM (SELECT ID_LISTA_MF,
+                             AN,
+                             LUNA,
+                             (SELECT MAX(AN * 12 + LUNA)
+                                FROM IMOB_LISTA_MF
+                               WHERE ID_MF = v_id_mf
+                                 AND AN * 12 + LUNA < v_an * 12 + v_luna) AS MAXLUNA
+                        FROM IMOB_LISTA_MF
+                       WHERE ID_MF = v_id_mf)
+               where an * 12 + luna = MAXLUNA);
+    EXCEPTION
+      WHEN NO_DATA_FOUND THEN
+        lnFoundMax := 0;
+    END;
+
+    -- daca am gasit operatia precedenta
+    -- modific data de expirare a operatiei precedente cu luna operatiei - 1
+    IF lnFoundMax = 1 THEN
+      ldDataInc       := TO_DATE(LPAD(TO_CHAR(v_an), 4, '0') ||
+                                 LPAD(TO_CHAR(v_luna), 2, '0') || '01',
+                                 'YYYYMMDD');
+      ldDataExpPerAnt := ADD_MONTHS(ldDataInc, -1);
+      UPDATE IMOB_LISTA_MF
+         SET AN_EXP   = EXTRACT(YEAR FROM ldDataExpPerAnt),
+             LUNA_EXP = EXTRACT(MONTH FROM ldDataExpPerAnt)
+       WHERE ID_LISTA_MF = lnIdListaMax;
+    END IF;
+
+    -- OPERATIA URMATOARE
+    -- selectez luna minima mai mare decat luna operatiei
+    BEGIN
+      select an, luna
+        INTO lnAnMin, lnLunaMin
+        from (SELECT ID_LISTA_MF, AN, LUNA, MINLUNA
+                FROM (SELECT ID_LISTA_MF,
+                             AN,
+                             LUNA,
+                             (SELECT MIN(AN * 12 + LUNA)
+                                FROM IMOB_LISTA_MF
+                               WHERE ID_MF = v_id_mf
+                                 AND AN * 12 + LUNA > v_an * 12 + v_luna) AS MINLUNA
+                        FROM IMOB_LISTA_MF
+                       WHERE ID_MF = v_id_mf)
+               WHERE an * 12 + luna = MINLUNA);
+    EXCEPTION
+      WHEN NO_DATA_FOUND THEN
+        lnFoundMin := 0;
+    END;
+
+    -- daca am gasit operatia urmatoare, data de expirare a operatiei devine luna de inceput a operatie urmatoare - 1
+    -- daca nu am gasit - luna expirarii = luna de inceput
+    IF lnFoundMin = 1 THEN
+      ldDataIncPerUrm := TO_DATE(LPAD(TO_CHAR(lnAnMin), 4, '0') ||
+                                 LPAD(TO_CHAR(lnLunaMin), 2, '0') || '01',
+                                 'YYYYMMDD');
+      ldDataExp       := ADD_MONTHS(ldDataIncPerUrm, -1);
+      lnAnExp         := EXTRACT(YEAR FROM ldDataExp);
+      lnLunaExp       := EXTRACT(MONTH FROM ldDataExp);
+    ELSE
+      lnAnExp   := lnAn;
+      lnLunaExp := lnLuna;
+    END IF;
+
+    INSERT INTO IMOB_LISTA_MF
+      (ID_MF,
+       DNS_LUNI,
+       NR_INVENTAR,
+       COD_MF,
+       CONT,
+       ACONT,
+       ID_LUCRARE,
+       ID_GESTIUNE,
+       ID_SECTIE,
+       ID_RESPONSABIL,
+       ID_SUCURSALA,
+       ID_UTIL,
+       AN,
+       LUNA,
+       AN_EXP,
+       LUNA_EXP,
+       AMORT_MAX_DEDUCTIBIL)
+    VALUES
+      (v_id_mf,
+       v_dns_luni,
+       v_nr_inventar,
+       v_cod_mf,
+       v_cont,
+       v_acont,
+       v_id_lucrare,
+       v_id_gestiune,
+       v_id_sectie,
+       v_id_responsabil,
+       v_id_sucursala,
+       v_id_util,
+       lnAn,
+       lnLuna,
+       lnAnExp,
+       lnLunaExp,
+       v_amort_max_deductibil);
+
+    <<END_PROC>>
+    NULL;
+  end modifica_lista_mf;
+  -----------------------------------------------------------------------------------
+  procedure adauga_buncapital(v_id_mf           in imob_bunuricapital.id_mf%type,
+                              v_nrdoc           in imob_bunuricapital.nrdoc%type,
+                              v_datadoc         in imob_bunuricapital.datadoc%type,
+                              v_bazatva         in imob_bunuricapital.bazatva%type,
+                              v_tva             in imob_bunuricapital.tva%type,
+                              v_id_cota_tva     in imob_bunuricapital.id_cota_tva%type,
+                              v_ajustare        in imob_bunuricapital.ajustare%type,
+                              v_id_tip_operatie in imob_bunuricapital.id_tip_operatie%type,
+                              v_tvaDatorat      in imob_bunuricapital.tva_datorat%type,
+                              v_prorataTVA      in imob_bunuricapital.proratatva%type) is
+  begin
+    insert into imob_bunuricapital
+      (id_mf,
+       nrdoc,
+       datadoc,
+       bazatva,
+       tva,
+       ajustare,
+       id_cota_tva,
+       id_util,
+       id_tip_operatie,
+       tva_datorat,
+       prorataTVA)
+    values
+      (v_id_mf,
+       v_nrdoc,
+       v_datadoc,
+       v_bazatva,
+       v_tva,
+       v_ajustare,
+       v_id_cota_tva,
+       pack_sesiune.get_id_util(),
+       v_id_tip_operatie,
+       v_tvadatorat,
+       v_prorataTVA);
+
+  end adauga_buncapital;
+  -----------------------------------------------------------------------------------
+  procedure modifica_buncapital(v_id_mf           in imob_bunuricapital.id_mf%type,
+                                v_nrdoc           in imob_bunuricapital.nrdoc%type,
+                                v_datadoc         in imob_bunuricapital.datadoc%type,
+                                v_bazatva         in imob_bunuricapital.bazatva%type,
+                                v_tva             in imob_bunuricapital.tva%type,
+                                v_id_cota_tva     in imob_bunuricapital.id_cota_tva%type,
+                                v_ajustare        in imob_bunuricapital.ajustare%type,
+                                v_id_tip_operatie in imob_bunuricapital.id_tip_operatie%type,
+                                v_tvaDatorat      in imob_bunuricapital.tva_datorat%type,
+                                v_id_regbc        in imob_bunuricapital.id_regbc%type,
+                                v_prorataTva      in imob_bunuricapital.proratatva%type) is
+  begin
+    update imob_bunuricapital
+       set id_mf           = v_id_mf,
+           nrdoc           = v_nrdoc,
+           datadoc         = v_datadoc,
+           bazatva         = v_bazatva,
+           tva             = v_tva,
+           id_cota_tva     = v_id_cota_tva,
+           ajustare        = v_ajustare,
+           id_tip_operatie = v_id_tip_operatie,
+           tva_Datorat     = v_tvaDatorat,
+           proratatva      = v_prorataTva
+     where id_regbc = v_id_regBc;
+
+  end modifica_buncapital;
+  -------------------------------------------------------------------------------------
+
+  procedure sterge_buncapital(v_id_regbc in imob_bunuricapital.id_regbc%type) is
+  begin
+    update imob_bunuricapital set sters = 1 where id_regbc = v_id_regbc;
+  end sterge_buncapital;
+
+  -------------------------------------------------------------------------------------------
+  /*
+  Caut daca mai exista numarul de inventar
+  */
+
+  FUNCTION verifica_nr_inventar(v_nr_inventar        IN IMOB_LISTA_MF.NR_INVENTAR%TYPE,
+                                v_data               IN DATE,
+                                v_id_tip_imobilizare IN NUMBER DEFAULT 1)
+    RETURN NUMBER IS
+    lnNrDuplicate NUMBER;
+  BEGIN
+    pack_imob.setlunacurenta(v_data);
+
+    SELECT COUNT(*)
+      INTO lnNrDuplicate
+      FROM IMOB_VSITUATIE_LUNARA t
+     WHERE t.id_tip_imobilizare = v_id_tip_imobilizare
+       AND t.nr_inventar = v_nr_inventar;
+
+    RETURN lnNrDuplicate;
+  END verifica_nr_inventar;
+  -------------------------------------------------------------------------------------
+/* begin
+ setlunacurenta(to_date(pack_sesiune.getan() || '/' ||
+                         pack_sesiune.getluna(),
+                         'YYYY/MM'));*/
+
+END pack_imob;
+/
diff --git a/roaimob.PJT b/roaimob.PJT
index 48b453e1608d9b8d4c60f56c0c7a151aefe86f7f..fe042cb32c15055a981fb267dde1182ab9113929 100644
GIT binary patch
delta 2200
zcmZ9Ndr(wW9LK+R_rd}zk7ap_yi^p~MR9!rw{k&2jPVJHO^%YR2`wxxi$dj~f}%B=
zgmz4{M9o)9QPgUW85Oh9(bP0$vN3D4A*UwA4AjKF>w+`-$7kmE`JQvn{oQl!+`DY~
zE$J}v0&b}RjBn9(O7$_`V*Fcb`7@1br$#c>?DwwQ?=2A(Q4^VX5Kp2ZUc@!WhiFMZ
z;!FI9KM5c@5=itUhy;@m5=z2IIEf(rNhBFSqDVA}A+aQm3?ze``@IJzzUR5F;_9N}
zw0d3qqju{wI|h?@GK35z31k>abZT}OzDyALrwuQOLmH!Bm|uoDFL&<Dyo|gVGtD{X
z7{DVpf9{lIam&LP>%4s0P$-Ebrwrku<CGy<{2&{X#ivJxMAc0_V<1M7M23?QB$<pP
zCNheQCS#ma&y0OGS>3pyW99mBpRZ5pysJ|AIBV~v3@xvo)2&8L6fi{(>}FkZUyU8~
zV)`c5t9#TqN?%TIWjz2guF==fvswSEk#U>eOpo!B(XEqViU!*0k%2NM>Sff?f2F_5
zIyp$jM*0nUZjfA!hF}>@4DK>;vNnavXr*g{fCa4eVKPq8we$wocgQ)qAN~1o88^vA
zx{jU`!RE-%^dNd_qzwN!86EU-^fcD9<7M>cE>EY|3>he+(kLT~K{<oHtOq8^SVFI&
zPh)-FdAc<9UZ=jTr}JTqN&>L&3NI(K>vh4gTdX6X#$d*)nt`P!fsUVehJ25&u;!jS
z171$EX#-b5gHc^Tj~2~c5;R>Zv9=`5tcgQzmkI&mTuEAJm>Lgy0+9aS9babMsu-R6
z0rx!5Q`{^`i}3M6&XgGwXXfSP3R_!Jq%*!W?XT^VXY~VIUHM{uk;78%u*|eL3hb6Z
zKX>eh5?f)>f};5a?tE)+9`NM!?9!q<F-NCFNXJB_PKlB-h0rO{5jz9=mMOP5G77Ag
zj0(G@)KL(u6K8cwxG7WT9`}c9yuw~?v%6=MJsx=F$$>@@8L0FRZR;KHhs75Aqy8oo
zI4pmPDS=9ibX?d1l|j;Ov4J-0!w~m9d|;_8v)LUZ7uYLnL!Zhjt>p)d?o8V^k6GoQ
z5q%BzUhE39>_vqwLaSGz!qUgM$9*x;y?B0!HQ!p^Bg}e5AF?6ssU;UWO04@uv0jNt
zXvlMq^|dvZZC%NKD&yVei355iGNiSjZ>daMWz{shWpR;Z$z<`1UJ0!}W8(qh;X@fb
z2Zy8HHB*8&%!P$BEUrg>{c$v-qSPJ5H@IhMFoCCTw^f<;x&!wjv-i171uyX2UnsCv
zSmr%WvU-!KkKA)aMUbKk>FPBtCKZ%Vv)jrnc1Kl*b4!qNB2>B{78sN`sY<Ld@a0%9
z_864w{$sHSE$C3`q*#?o8s*$<RQ!ECmPt(ra5kqZjjC!#67b`2AenDyB_FY#r(rY!
z8T2>l*I8Rf0WZ?m(nCfA-;;Ut4fHp7I)9U5x}a|#3k(<sl+icS+gZ;_0T$D@(!*1M
zTC$YB4XDOA9^fic!(clnq$s=@Swr7R*FFObBkSn9=$BY`k_P%7`mSezHnNG%{X@xf
zz)3T2Mn6nnna(CA0AJ8gx#mw~6IsBw^vk?Iexu0QT$sThobU<jgDd!zptllB4S#lZ
zz$E_l&e3nNKE|ymqj%HaUI!fK>F=fctAM<B0Q0-R33>wE%5AyR$foHN=*3(3oofR4
z8ANe4gBuhzTb<0n$Vo?8Hy!7bcmPxBS>JJs&jat%o9J6EaN%~KpC|AQ{XFYze$q_z
zqx64Rd){W#bQ9M+z&dfbgzNN$T%$c*!bOtk&HXQ8aE-D&Q-YDfYxLc$%~lCH^bdH^
zeAdTGCH(FKd`v&IT*B96g_gTT&t4%x%k!(FAEfVN-Bc@KBmF4-;7SRO)e?5mFVWjs
zZ|C_Q(PB8Rx)$KaxR_n@JwlR(PsDD|@`l@(H_|mW319Jo`#z%O;n;W)K3+*xO}`?N
IBNDUz2LaS92mk;8

delta 2229
zcmZ9N3vf(V9LB%9du6lPWM%UtiHLW?Zb*cXT#vPRwgicIOtqOMH$*qPvAZD|(*{B6
z(UDNS<1q+YEvkdEqvPFrQ%b9?F;OiuYWg5lJfq**FlCb8%>Vb@bIv{YoV({9nsY~(
zP5gm7DgZ-w7@CCoIIS{tv0B`vQEk!)$u--wwcE4;Q4uu}NgLuvG{m2H+XN6D2_!*8
zPuh}TVjv+Tl!TFR5<wzKJJOy+k!TV_I*?e>k;IWsq%-M4x_Y*0yY*V>w>I+E>C@8d
z4c(tlw^p;U8|hAZka&_ndXioq%|_$b3CclF&j@`S5Rf%8e}s8V(TIX<rSUssXI+5B
zTsX#DWFDSnR?dm0_zrq+P*hN8Da<c04>z-qe^F+}Fmpj>Qi)nQbjJ9$XV6*WVxe}(
zIU_NVMADn|AxR{e^d%{zAL;KIaxOJ5Nu4@l=lr?>yXyuvJyZ!=&%8$i<6YGgAE;3i
z3*?0YpR%?+R%0W58eL&s+oHx1`W*T$)-e!qoxYHs!}?#1h`aRd^p5@_nhhfQb_9N=
zM~8^W2o+IFzeb<Nx=)yh74%#5f-tcf%fdx8FnGvd59{Pe5ns_YVSvm!q@9S9bRB&e
z>wDyTx}N?<dlCPTOLPPM%_tGSlPmNv`oI_w`pzP5(g)DfSdZ^6BAUxOnm)Hj7ZEc}
zBC;8{7<|UMb0RZ(6@4V@3!by~v`0;$>sp$g#i;}U3mO3vnNV*C?{s~CAE?odaq)KG
zty93amjRJ4_CD4(rtS3vPfB;_^mb^F(hRg{u)SGO>dVs2QY=<Ju{_|A&0c_Cp8r1(
zg!?Ky<zg4MK_JFh@(M>}X5|*-X69=#++wzj$t}#wR2<(V#&~k<>3?l#-!BmGPAmwM
zOWm@|Ef>gct5d!mq~sZ-i0D~*-{s&}FX!4z`zqB2DN5L&tTITkLRV$4LF$+?H`v!)
z50~t=SZ%VU!YSL`*1N5_0ZzHR!Y=>sQdcD~L~0k6XYloGiz)0`;dD8izP?q;;1DS~
zvZ3{QAZEzU(vs52)(op#KBbh0NO8g@r9MRJD$G~*(8kq7_=XCATv_gLx|2(sm6IZ0
z%PMWI#U@{-d(n<rrK-=1d9-%+hS|>2;-!iyREjmn_4i#5LZ)x<@nyF0HrJH_uZ>?`
zT;fcBZTzY3GTS0$NvIT+Fum~A_C=iIzVWYRy!Bw^T&NTivCR5ns4Pci)hMStqg0+5
zuLxmMWc3#gZXcdK6Tw|^=hu5%3edt_T%0d^pMS#3D8It)i^S!=RvKh*&z+7c!{@%h
zH%RIhuc_b<z71oowhDRh%OtxsdD5CFN|<Db_;IVRhYmSb*C?l>Tz0yvj(HA*Nhc%y
zcJB1fP+9jwdbrjPmI{~KQ8rH5YUF!kS56tF8$l_U&cB-~gK$mg=Q&`K+6J{5B{Tq@
z3u)47RrP6Z)#F4Uk+14Zj^*jiBOn<VLSIPN_2n;|jHNH3ODVuTGLg<l#fE-BICrju
z{xSUoYfCC%qpzg5uzrtQ=%lZq4;ct-AyxEsKsDY;1GbTB1`TXb#J!zO=F>OQlO$ji
zSw#PY{*-mQLBLY_X8IY{e~^#pTxu*I4BQ^do6`@{x0*Q#3$T-Z+S@*ZlgI)N(=YS>
z@XrQ%<^UHN++>4GtQ+S5*Xg^+;<<df1we)xI8TqP<w41%u+hCo#O@D)KkGO-x}KlS
zS$rv`tN@PE<LS$|EYYihzv&iw9c$})AVLI6s~H40012FG76T(2-DG|IC@;3*7l2-N
zj7xkGSVdn?Kf-$CPn@_Pk2Cs1)()Ohz3GSPQ9SC5P24JaGRM5gdNlX<8hr}KXfX?T
zLV9Sq>Qfm63=^<9Q$PZPD*9R0Q{EMjLto2I3t8VP6YyIAKPmL9vssh(b-<T&#~cAk
za|P7UJ@oUekJkvOryr&_&J(bzR=@`OC3*|%6CViJuS0KKWsu8*xsFf3cLyd7pNO-)
k&l|2`zKU+LbN1}e9H8uYmfBqzG*n7cnHrU(s9wGP1AvGv6aWAK

diff --git a/roaimob.PJX b/roaimob.PJX
index f51a8a2ee6acb3600a6204827b866e05b97f69ac..0f91b8bcf8c127c1c60f61d7b31c139e58b52f6d 100644
GIT binary patch
delta 357
zcmdnLf@}W@E*1kRc8-lK+gaEx%uUQK3=NtOv1~uY!gySq4Jcq{VK(_9hvfDZGK~5r
zFag6P$?e|)7+q(xf>anyPS6$G9`=T@TZ_Zg6l93G*<?dS$?Z(yOsR}8A&bd@nv&Z)
zB$#INfs8RXH=N8UD#@#~nE?zG3=K_<rWc-LRM?)c&eULxY!zQLlddq5!1Sm*retLP
z9W;JiKC1i!ARp{hi%FtV(~}CAp2B(C(+ZiY+2Gu56->n}a9>GppIpQA2O+zCT{BZU
mBTTW_bc0r=moT2xc8fNq>Aavo1csUA<Nywd>F*{p1p)w|FJX58

delta 361
zcmdnLf@}W@E*1kRR;i6F+gaF6%?-^=4b7Vmv1~uY!gySq4J=?VnNd`7`wAIGeG`a)
z;pC5#B)5MHV04{5ef|+f>Fr@}7`wGNOiV0H4b039rz<{Tl-$lF&Xmf?ZeU?*Y+zzK
zd4i?X_6`ZA*?g=ZBTXiWO7SXfW&i^PV*_);$s5Jxx96!dH5$XLxX2;7oiCb6R~SiP
zdQ=`$GBW=T8b2-{RsI1QKdFG}DU$x}X@yMHY)AszDwv8{*i6k#O^q!lC+bRVpIpQA
o2U)@Pb<Iraj4&OBNutvYTA5xV_>$W#+L)&EA_+`?H<>9A0H^C`pa1{>