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 8a5c0ba..d4e471d 100644
Binary files a/Clase/oimobilizari.vct and b/Clase/oimobilizari.vct differ
diff --git a/Clase/oimobilizari.vcx b/Clase/oimobilizari.vcx
index 0e08bd6..8caa5e9 100644
Binary files a/Clase/oimobilizari.vcx and b/Clase/oimobilizari.vcx differ
diff --git a/Rapoarte/jurnal.FRT b/Rapoarte/jurnal.FRT
index 30e48cf..e9abf70 100644
Binary files a/Rapoarte/jurnal.FRT and b/Rapoarte/jurnal.FRT differ
diff --git a/Rapoarte/jurnal.frx b/Rapoarte/jurnal.frx
index 73ea7c0..366e3aa 100644
Binary files a/Rapoarte/jurnal.frx and b/Rapoarte/jurnal.frx differ
diff --git a/Rapoarte/listmfcota.FRT b/Rapoarte/listmfcota.FRT
index 05557da..963a84c 100644
Binary files a/Rapoarte/listmfcota.FRT and b/Rapoarte/listmfcota.FRT differ
diff --git a/Rapoarte/listmfcota.frx b/Rapoarte/listmfcota.frx
index 45313f5..b7bca5a 100644
Binary files a/Rapoarte/listmfcota.frx and b/Rapoarte/listmfcota.frx differ
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 48b453e..fe042cb 100644
Binary files a/roaimob.PJT and b/roaimob.PJT differ
diff --git a/roaimob.PJX b/roaimob.PJX
index f51a8a2..0f91b8b 100644
Binary files a/roaimob.PJX and b/roaimob.PJX differ