comun/docs/depanare_testare_vfp.md

# Depanare si testare VFP fara IDE (headless)

Metoda folosita la depanarea erorii "Property CNRCRT is not found" (ROACONT 2.11.61,
15.07.2026) - reutilizabila pentru orice bug runtime VFP. Complementara cu
`flux-editare-vfp-text.md` (editare .vcx/.scx pe text) si `cautare_vcx_vct.md` (cautare).

## 0. Reguli de lucru

Vezi `reguli_lucru.md` (diff ca fisier + aprobare inainte de write-back, comentarii
max o linie, modificari minime).

## Fisiere de testare (foloseste-le la orice depanare/testare viitoare)

- `COMUN\utile\Teste\test_init_env_auto.prg` - initializare completa de mediu FARA
  interactiune (parametri: host, schema, parola; implicit CENTRAL / MARIUSM_AUTO).
  Echivalentul headless al `COMUN\programe\test_init_env.prg` (care ramane varianta
  interactiva, cu INPUTBOX si meniu de lansare formulare).
- `COMUN\utile\Teste\test_repro_cnrcrt_footer.prg` - exemplu complet de harness:
  init mediu -> replicare flux (cursoarele din modificanote) -> instantiere forma reala ->
  executie pas cu pas cu logare -> verdict OK/BUG. Copiaza-i structura pentru bug-uri noi.
- `COMUN\utile\Teste\test_repro_import_nota.prg` - harness instantiere import_nota
  (ROAGEST) fara Oracle: cursori dummy + goExecutor dummy; parametrul LPARAMETERS
  incarca o copie de clasa din scratchpad in loc de cea reala (bisectie A/B).
- `COMUN\utile\Teste\teste_roacont.prg` si `COMUN\utile\Teste\test.prg` - teste ad hoc istorice.
- Mediu de test standard: server `CENTRAL`, schema `MARIUSM_AUTO`, parola schemei
  `ROMFASTSOFT`; utilizator de aplicatie "MARIUS M" / parola "123" (unde e nevoie de login).

## 1. Citirea log-ului aplicatiei (log.txt in radacina proiectului)

`ErrorHandler` (roacont.prg) scrie pentru fiecare eroare: `nErrror`, `cMethod`,
`line` (0 daca exe-ul e compilat fara debug info) si stack-ul complet.

Semantica ON ERROR (esentiala la interpretare):
- Dupa ce handlerul face RETURN, executia CONTINUA de la linia urmatoare din metoda
  care a crapat. O singura cauza produce deci CASCADE de erori.
- Tipar clasic: eroare pe linia `WITH <expr>` => urmatoarele linii `.prop = ...` dau
  1940 "Expression is not valid outside of WITH/ENDWITH", apoi `ENDWITH` da
  1939 "WITH/ENDWITH mismatch". PRIMA eroare din secventa e cea reala; restul e zgomot.
- Erorile din interiorul TRY/CATCH nu ajung in log (inghitite). Un CATCH gol poate
  ascunde ani de zile un defect latent, care "explodeaza" cand codul din jur se repara
  (exact cazul typo-ului oMinHeaderHeight din cusfonthandler).
- In stack, liniile "ON..." sunt dispatch-uri (ON ERROR / READ EVENTS), nu metode reale.

## 2. Rulare headless a scripturilor VFP

Sablonul unui script de diagnostic (vezi `utile\Teste\test_repro_cnrcrt_footer.prg`):
- logare in fisier cu STRTOFILE (nu WAIT WINDOW / debugger - nu exista consola);
- `ON ERROR DO <handler> WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()` care logheaza
  si continua - mimeaza comportamentul ErrorHandler din aplicatie;
- `QUIT` obligatoriu la final (altfel ramane vfp9.exe agatat);
- lansare din PowerShell cu timeout:
  `$p = Start-Process 'C:\Program Files (x86)\Microsoft Visual FoxPro 9\vfp9.exe' -ArgumentList '-A','-T','"D:\...\script.prg" PARAM' -PassThru; $p.WaitForExit(120000); if (!$p.HasExited) { $p.Kill() }`
- `-A` ignora config, `-T` fara ecran de start; parametrul dupa .prg ajunge in LPARAMETERS.
- LINENO() din handler e relativ la inceputul metodei (utile pentru localizare in .vc2:
  linia din metoda = linia raportata + linia PROCEDURE din .vc2).

Precautii: nu rula cu VFP IDE sau exe-ul aplicatiei deschis (lock pe binare);
sterge .fxp-ul vechi de langa .prg daca ai editat scriptul intre rulari.

## 3. Mediu complet cu Oracle, fara interactiune

`utile\Teste\test_init_env_auto.prg` = varianta neinteractiva a
`programe\test_init_env.prg` (fara INPUTBOX/xmenu): primeste host/schema/parola ca
parametri, seteaza PATH/CLASSLIB/PROCEDURE ca roacont.prg, instantiaza
goConn/goExecutor/goApp/goLog, incarca goFirma/goCalendar/optiuni si pachetele de
sesiune Oracle. Dupa apel poti instantia forme reale (`CREATEOBJECT('frm_xxx', ...)`)
si apela metodele lor punctual, cu cursoarele pregatite ca in fluxul real.

Pentru forme care se deschid modal (Show(1) blocheaza), nu apela Show: replica in
script doar liniile relevante din Show (attach, calcule) si logheaza starea intre ele.

## 4. Bisectia versiunilor de clase (regresii)

Cand un bug apare "de azi", compara comportamentul cu clasa veche fara a atinge SVN:
1. `git show <rev_vechi>:clase/fisier.vcx > temp\fisier.vcx` (+ .vct identic);
2. convertit la text pentru diff: `vcx2txt.ps1 -Source temp\fisier.vcx -CacheRoot temp\txt`;
3. in scriptul de test, `SET CLASSLIB TO temp\fisier.vcx ADDITIVE` (varianta veche)
   vs. cea din COMUN (varianta noua) - A/B pe acelasi flux;
4. cand difera rezultatul, cauza e in diff-ul acelei clase (sau intr-un defect latent
   pe care noul cod il activeaza - vezi capcanele de mai jos).

Varianta pe backup-uri de runda (fara git): copiaza `*.vc2.pre_rundaN.bak` din cache
intr-un folder temp ca `ointroduceri.vc2`, regenereaza binarul direct cu
`FoxBin2Prg.EXE "<temp>\fisier.vc2" "" "" "" 1 0 1` (pune `..\include\foxpro.h` langa,
altfel .ERR), apoi in harness incarca DOAR copia (nu ADDITIVE peste cea reala -
rezolvarea intre doua classlib-uri cu aceeasi clasa nu e garantata => fals negativ).
Bisectie in interiorul unei runde: neutralizeaza valori IN LOC (ControlSource ->
camp simplu, sterge linii de proprietate din mijlocul blocului) - NU sterge
obiecte/coloane din ADD OBJECT (strica structura: "Cannot add this object to a Grid").

## 5. Capcane VFP descoperite (de verificat la bug-uri asemanatoare)

- `SELECT ... INTO CURSOR` NU mosteneste indecsii cursorului sursa. Orice
  `Seek(..., 'cursor', 'tag')` pe copie crapa. `update_jtva_coloane` creeaza
  `INDEX ON id_jtva_coloana TAG id_jtva`; daca ii copiezi rezultatul, recreeaza indexul.
- Un grid isi pierde TOATE coloanele (ColumnCount devine 0, fara nicio eroare in log)
  daca un ControlSource crapa la re-evaluare in timp ce coloanele sunt atinse
  programatic (ex. FontName/FontSize per coloana in cusfonthandler.ApplyFontToGrid,
  la Init-ul formei prin _frmbase.SetFont). Simptome tipice in aval:
  `_grdfooter.attachtogrid` copiaza 0 coloane, apoi `calctotal` da
  "Property <cColWithLabel> is not found" la `Getpem(This, This.cColWithLabel)`.
- ControlSource-uri cu campuri inexistente in RecordSource sunt tolerate la afisare,
  dar orice expresie care ARUNCA eroare la evaluare (Seek pe tag lipsa, functie
  nedefinita) declanseaza comportamentul de mai sus.
- Fix-ul unui typo intr-o clasa partajata poate activa defecte latente in aval
  (codul care nu rulase niciodata incepe sa ruleze). La regresii dupa fix-uri
  "inofensive" in COMUN, cauta defectul latent, nu doar diff-ul.
- **Coloana de grid cu ControlSource EXPRESIE (nu camp) cere `Bound = .F.`**.
  Fara el: eroare 9 "Data type mismatch" la CREATEOBJECT-ul formei (faza de
  constructie, raportata la linia apelanta, Details gol). Caz: import_nota.GridArt
  Column7/8/9 cu `round(...)` (ROAGEST 16.07.2026); model corect: Grid1.cTaxCode
  (`Bound = .F.` + expresie, functional de ani).

## 6. Capcane la SCRIEREA scriptului de test (nu ale bug-ului investigat)

Descoperite depanand harness-ul pentru "Data type mismatch" la `CREATEOBJECT('IMPORT_nota',...)`
(ROAGEST, 16.07.2026) - de verificat oricand un script de test nou pare "agatat".

- **`DEFINE CLASS ... ENDDEFINE` NU poate sta la mijlocul programului principal.**
  Daca il pui intre alte instructiuni de top-level (ex. clasa dummy pentru un
  `goExecutor` de test, definita devreme "ca sa fie la indemana"), VFP compileaza
  gresit: TOATE liniile de DUPA `ENDDEFINE` dau "Statement is not in a procedure"
  (vezi `<script>.ERR` generat la compilare). Simptom in productie: `vfp9.exe`
  pare agatat la nesfarsit - CPU ~0, nicio fereastra de dialog vizibila (verificat
  si prin enumerare Win32 a ferestrelor procesului), pentru ca de fapt a rulat
  doar liniile de dinaintea `DEFINE CLASS` si s-a oprit silentios dupa eroarea de
  compilare, fara sa ajunga la `QUIT`. Fix: muta orice `DEFINE CLASS` auxiliar
  (dummy executor, helpere) la FINALUL fisierului, dupa `QUIT`, langa celelalte
  `PROCEDURE` - e locul standard pentru cod suport intr-un script de test.
- **Diagnostic rapid compilare vs blocaj real**: cand un script "nu se termina",
  verifica INTAI daca a aparut `<script>.ERR` langa `.prg` (log de compilare,
  vezi si `roagest.ERR`/`log.txt` in radacina proiectului) - inseamna ca s-a
  oprit la compilare, nu ca ruleaza/asteapta ceva. Daca nu exista `.ERR`, verifica
  CPU-ul procesului (`Get-Process | select CPU`): ~0 dupa cateva secunde inseamna
  ca asteapta un dialog modal (foloseste enumerarea Win32 de ferestre de mai jos
  ca sa confirmi), nu ca proceseaza ceva lent.
- **Enumerare ferestre Win32 pentru un proces "agatat"** (utila cand nu esti sigur
  daca exista un dialog modal ascuns): `Add-Type` cu `EnumWindows`/`GetWindowText`/
  `GetWindowThreadProcessId` din `user32.dll`, filtrat pe PID-ul lui `vfp9.exe`.
  Daca vezi doar fereastra principala + "Command", nu e dialog - cauta alta cauza
  (vezi punctul de mai sus).
- **`STRTOFILE` inainte de `SET SAFETY OFF` = dialog modal "Overwrite?"** daca
  fisierul de log exista deja (sub `-A`, SAFETY porneste ON). Pune `SET SAFETY OFF`
  PRIMA linie sau sterge log-ul inainte de fiecare rulare.
- **`-A -T` sunt obligatorii impreuna** la lansare headless (`-A` ignora config.fpw,
  `-T` sare peste splash screen-ul de start) - fara `-T` procesul ramane agatat pe
  ecranul de intampinare, identic ca simptom cu o eroare de compilare (CPU ~0,
  fara log). Confirma mereu care e cauza inainte de a schimba scriptul.
- **`goExecutor`/alte dependinte "dummy"**: `CREATEOBJECT('Custom')` + `AddProperty()`
  poate adauga doar PROPRIETATI, nu METODE. Daca clasa testata apeleaza
  `goExecutor.oExecute(...)`/`oExecuta(...)`, dummy-ul trebuie sa fie o clasa
  proprie (`DEFINE CLASS dummyexecutor AS Custom` cu `PROCEDURE oExecute`/
  `oExecuta` reale), nu un `Custom` cu proprietati adaugate.
- **Erorile de instantiere (`CREATEOBJECT`) raportate la linia CREATEOBJECT, nu la
  `.Init`**: cand `ON ERROR`/`CATCH` arata `Procedure` = scriptul apelant (nu
  `NUMECLASA.INIT`), inseamna ca eroarea vine din evaluarea proprietatilor/
  obiectelor din DEFINITIA clasei (`ADD OBJECT ... WITH RowSource = ...`,
  `ControlSource` de coloana grid evaluat ca expresie, etc.) - controale native
  VFP (ex. combobox cu `RowSourceType=6` Fields) isi rezolva bind-ul la
  CONSTRUCTIE, inainte sa apuce sa ruleze `PROCEDURE Init` a formei. Cand
  reproduci un astfel de bug cu un mediu minimal, o "Alias is not found" pe un
  cursor pe care nu l-ai deschis tu confirma mecanismul (faza de instantiere),
  chiar daca nu e mesajul EXACT din bug-ul original.

## 7. Studiu de caz: "Property CNRCRT is not found" (15.07.2026)

Lant complet: `frm_import_extrase_banca.modificanote` copia `crsJTVATemp` fara index
(defect latent) -> coloana `cExplicatieTVA` din `frm_modific2024.grdRulaje` face
`Seek(trul.id_jtva_coloana,'crsJtvaTemp','id_jtva')` in ControlSource -> fix-ul
typo-ului `oMinHeaderHeight`->`nMinHeaderHeight` in `cusfonthandler` (r17869) a facut
ca ApplyFontToGrid sa atinga coloanele la Init -> grid-ul a ramas cu 0 coloane ->
footer-ul a crapat in calctotal. Fix: `INDEX ON id_jtva_coloana TAG id_jtva` dupa
SELECT INTO in modificanote. Repro/regresie: `utile\Teste\test_repro_cnrcrt_footer.prg`
(mod FARAINDEX reproduce bug-ul, mod CUINDEX valideaza fix-ul).