* test_s3b_dupa_ui.prg
* UI VIZIBIL: capturi "DUPA" pe frm_facturare_articole2 (COMUN\clase\ofacturare.vc2), dupa
* aplatizarea chenarelor (BorderWidth=0 pe containere, confirmata in binar). Copie a
* test_s3b_referinta_ui.prg cu ACELASI mediu / aceiasi 4 pasi / aceleasi etichete de pas, dar cu
* iesirile in fisiere separate (nu suprascrie referinta) ca sa poata fi comparate una langa alta.
*
* Rulare: powershell -ExecutionPolicy Bypass -File test_s3b_dupa_ui.ps1   (timeout >= 300s)
* Log:    facturare_unificat\test_s5_stare_ui_log.txt ; capturi in screenshots_stare_27_08\ ;
*         geometrie in out\geom_stare_27_08_<eticheta>.tsv

SET SAFETY OFF
SET TALK OFF
SET NOTIFY OFF
PUBLIC gcUILog, gcSyncDir, gnFail, gnPass
gcUILog = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\test_s5_stare_ui_log.txt"
gcSyncDir = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\uisync_stare_27_08\"
STRTOFILE("START " + TTOC(DATETIME()) + CHR(13) + CHR(10), gcUILog)
gnFail = 0
gnPass = 0
PUBLIC gcRaport
gcRaport = ""
ON ERROR DO AfErr WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
ON SHUTDOWN QUIT

IF !DIRECTORY("D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out")
	MD "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out"
ENDIF

DO "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\test_init_env_auto_roafacturare.prg" WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT'
IF TYPE('gnHandle') <> 'N' OR gnHandle <= 0
	DO AfLog WITH "FAIL: conexiune Oracle esuata"
	DO Final
ENDIF
SET PROCEDURE TO "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\mock_amessagebox.prg", "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\ui_harness.prg" ADDITIVE
PUBLIC gcMockUltimMesaj, gnMockUltimTip
gcMockUltimMesaj = ""
gnMockUltimTip = 0
DO AfLog WITH "ENV OK, gnAn=" + TRANSFORM(gnAn) + " gnLuna=" + TRANSFORM(gnLuna)
IF !actualizeaza_optiuni_program()
	DO AfLog WITH "FAIL: actualizeaza_optiuni_program()"
	DO Final
ENDIF
gnScadereStoc = 0
* seriile de facturi (tipdoc 5) si de incasare (3/16/26) sunt pe utilizator in MARIUSM_AUTO
gnIdUtil = 8
goExecutor.oExecuta([begin pack_sesiune.set_Id_Util(?gnIdUtil); end;])
DO AfLog WITH "gnScadereStoc=" + TRANSFORM(gnScadereStoc)

* gridextras.vcx e referit din ofacturare.vcx cu cale relativa, rezolvabila doar din exe/IDE
SET CLASSLIB TO "D:\ROA\ROAFACTURARE\COMUN\utile\gridextras\gridextras.vcx" ADDITIVE
SET PATH TO "D:\ROA\ROAFACTURARE\COMUN\utile\gridextras" ADDITIVE
* grd_factura.cCodMat.cboCodmat e declarat AS combosql OF cautare.vcx, dar clasa e in _cb_base.vcx
SET CLASSLIB TO "D:\ROA\ROAFACTURARE\COMUN\clase\_cb_base.vcx" ADDITIVE

IF USED('crscursuri')
	USE IN crscursuri
ENDIF
CREATE CURSOR crscursuri (curs N(12,4), nume_val C(10), multiplicator N(6))
DO creeaza_facturacrs WITH 'crsfactura'
SELECT *, CAST(NULL AS C(100)) AS gestiune FROM crsfactura INTO CURSOR crsfact_tmp READWRITE
USE IN crsfactura
SELECT * FROM crsfact_tmp INTO CURSOR crsfactura READWRITE
USE IN crsfact_tmp

* cboTipFactura (RowSourceType=3) citeste cursorul local saft_tip_facturi ca pe un tabel -
* fara el deschis explicit, Createobject('frm_facturare_articole2') da "File 'saft_tip_facturi.dbf' does not exist"
IF !USED('saft_tip_facturi')
	update_saft_tip_facturi()
ENDIF

PRIVATE poDate, poGeneratorNumere, loForm, lcTsv, lcRaportFile
lcRaportFile = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\geom_stare_27_08_raport.txt"

* document nou: poDate.incasat ramane 0 la construire - identic Scenariul A din test_s3b_incasare_nealocare.prg
poDate = CREATEOBJECT("oDateFactura", 25000, 1)
poDate.nIdTipDoc = 5
poDate.totalctva = 1000
DO AfLog WITH "poDate.tip=" + TRANSFORM(poDate.tip) + " poDate.eProforma=" + TRANSFORM(poDate.eProforma) + " poDate.incasat=" + TRANSFORM(poDate.incasat)
poGeneratorNumere = CREATEOBJECT("oGeneratorNumere")
poGeneratorNumere.ResetNumere()
DO ProbaSerii WITH poDate.nIdTipDoc
poDate.rezultat_serii = poGeneratorNumere.creeaza_cursor_serii(poDate.nIdTipDoc)

loForm = CREATEOBJECT('frm_facturare_articole2')
DO Assert WITH VARTYPE(loForm) = 'O', "Createobject frm_facturare_articole2"
IF VARTYPE(loForm) <> 'O'
	DO Final
ENDIF
DO Assert WITH ObjExists(loForm, 'opt_incasat'), "opt_incasat prezent (poDate.tip intre 1 si 4, deci grupul de incasare exista)"

loForm.WindowType = 0
loForm.Show()
loForm.WindowState = 2
DOEVENTS FORCE

* pas0: stare initiala dupa Createobject - ambele acordeoane plaite (lalte_date_deschis=.F., lincasare_deschis=.F. by design)
DO AfLog WITH "PAS0 stare initiala: lalte_date_deschis=" + TRANSFORM(loForm.lalte_date_deschis) + " lincasare_deschis=" + TRANSFORM(loForm.lincasare_deschis)
lcTsv = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\geom_stare_27_08_stare_initiala.tsv"
DO DumpSiAnalizeaza WITH loForm, "stare initiala (ambele plaite)", lcTsv
DO DumpGrilaRecursiv WITH loForm, "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\geom_grila_stare_27_08_stare_initiala.tsv"
DO HarnessStep WITH 0, 'stare_initiala', 6

* pas1: Alte date deschis - caseta se seteaza INAINTE de comutare (metoda citeste caseta)
loForm.chk_alte_date.Value = 1
loForm.do_comuta_alte_date()
DOEVENTS FORCE
DO AfLog WITH "PAS1 alte date deschis: lalte_date_deschis=" + TRANSFORM(loForm.lalte_date_deschis) + " lincasare_deschis=" + TRANSFORM(loForm.lincasare_deschis)
lcTsv = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\geom_stare_27_08_alte_date.tsv"
DO DumpSiAnalizeaza WITH loForm, "Alte date deschis", lcTsv
DO DumpGrilaRecursiv WITH loForm, "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\geom_grila_stare_27_08_alte_date.tsv"
DO HarnessStep WITH 1, 'alte_date_deschis', 6

* pas2: Alte date inchis la loc, Incasare deschis
* bifarea casetei aloca o chitanta reala in MARIUSM_AUTO - vezi curatenia de dinainte de Release
loForm.chk_alte_date.Value = 0
loForm.do_comuta_alte_date()
loForm.chk_incasare.Value = 1
loForm.do_comuta_incasare()
DOEVENTS FORCE
DO AfLog WITH "PAS2 incasare deschis: lalte_date_deschis=" + TRANSFORM(loForm.lalte_date_deschis) + " lincasare_deschis=" + TRANSFORM(loForm.lincasare_deschis)
lcTsv = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\geom_stare_27_08_incasare.tsv"
DO DumpSiAnalizeaza WITH loForm, "Incasare deschis", lcTsv
DO DumpGrilaRecursiv WITH loForm, "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\geom_grila_stare_27_08_incasare.tsv"
DO HarnessStep WITH 2, 'incasare_deschis', 6

* pas3: Alte date deschis din nou - ambele deschise simultan
loForm.chk_alte_date.Value = 1
loForm.do_comuta_alte_date()
DOEVENTS FORCE
DO AfLog WITH "PAS3 ambele deschise: lalte_date_deschis=" + TRANSFORM(loForm.lalte_date_deschis) + " lincasare_deschis=" + TRANSFORM(loForm.lincasare_deschis)
lcTsv = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\geom_stare_27_08_ambele.tsv"
DO DumpSiAnalizeaza WITH loForm, "Ambele deschise", lcTsv
DO DumpGrilaRecursiv WITH loForm, "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\geom_grila_stare_27_08_ambele.tsv"
DO HarnessStep WITH 3, 'ambele_deschise', 6

STRTOFILE(gcRaport, lcRaportFile)
DO AfLog WITH "Raport geometrie scris in " + lcRaportFile

* curatenie obligatorie: bifarea casetei la pasul 2 a alocat o chitanta reala in MARIUSM_AUTO,
* iar debifarea ruleaza ramura "fara incasare", care dezaloca 16/3/26
loForm.chk_incasare.Value = 0
loForm.do_comuta_incasare()
DO Assert WITH loForm.nmod_incasare() = 1, "dupa curatenie: nmod_incasare()=1 (fara incasare)"
loForm.Release()
RELEASE loForm

DO Final

*----------------------------------------------------------------------------------------
PROCEDURE DumpSiAnalizeaza
	* Parcurge Thisform.Objects (top-level, fara recursie in containere) - dupa S7 NU mai vede cele
	* 30 de controale mutate in ct_document/ct_contabilitate/ct_livrare/ct_incasare; harta completa
	* e cea scrisa de DumpGrilaRecursiv. Scrie .tsv cu
	* Name/Class/Left/Top/Width/Height/Visible pentru fiecare obiect cu geometrie, apoi
	* calculeaza suprapuneri (2D), iesire din zona utila a formularului si perechi lipite
	* (<4px) pe orizontala/verticala, doar intre controale Visible=.T. Adauga sectiunea la gcRaport.
	LPARAMETERS toForm, tcEticheta, tcTsvPath
	LOCAL i, j, loO, lcOut, lnN, lnCount, llVis
	LOCAL ARRAY laN[400], laC[400], laL[400], laT[400], laW[400], laH[400], laV[400]
	lnN = 0
	lcOut = "Name" + CHR(9) + "Class" + CHR(9) + "Left" + CHR(9) + "Top" + CHR(9) + "Width" + CHR(9) + "Height" + CHR(9) + "Visible" + CHR(13) + CHR(10)
	lnCount = toForm.Objects.Count
	FOR i = 1 TO lnCount
		loO = toForm.Objects(i)
		IF TYPE('loO.Left') = 'N' AND TYPE('loO.Top') = 'N' AND TYPE('loO.Width') = 'N' AND TYPE('loO.Height') = 'N' AND lnN < 400
			llVis = IIF(TYPE('loO.Visible') = 'L', loO.Visible, .T.)
			lnN = lnN + 1
			laN[lnN] = loO.Name
			laC[lnN] = loO.Class
			laL[lnN] = loO.Left
			laT[lnN] = loO.Top
			laW[lnN] = loO.Width
			laH[lnN] = loO.Height
			laV[lnN] = llVis
			lcOut = lcOut + loO.Name + CHR(9) + loO.Class + CHR(9) + TRANSFORM(loO.Left) + CHR(9) + TRANSFORM(loO.Top) + CHR(9) + TRANSFORM(loO.Width) + CHR(9) + TRANSFORM(loO.Height) + CHR(9) + TRANSFORM(llVis) + CHR(13) + CHR(10)
		ENDIF
	ENDFOR
	STRTOFILE(lcOut, tcTsvPath)
	DO AfLog WITH "GEOMETRIE [" + tcEticheta + "]: " + TRANSFORM(lnN) + " controale cu geometrie din " + TRANSFORM(lnCount) + " obiecte totale -> " + tcTsvPath

	LOCAL lnAL, lnAT, lnAR, lnAB, lnBL, lnBT, lnBR, lnBB, lnOvX, lnOvY, lnGap
	LOCAL lcSectiune
	lcSectiune = "=== " + tcEticheta + " (forma " + TRANSFORM(toForm.Width) + "x" + TRANSFORM(toForm.Height) + ") ===" + CHR(13) + CHR(10)
	FOR i = 1 TO lnN
		IF !laV[i]
			LOOP
		ENDIF
		lnAL = laL[i]
		lnAT = laT[i]
		lnAR = laL[i] + laW[i]
		lnAB = laT[i] + laH[i]
		IF lnAL < 0 OR lnAT < 0 OR lnAR > toForm.Width OR lnAB > toForm.Height
			lcSectiune = lcSectiune + "IESIT: " + laN[i] + " (" + laC[i] + ") Left=" + TRANSFORM(lnAL) + " Top=" + TRANSFORM(lnAT) + " Right=" + TRANSFORM(lnAR) + " Bottom=" + TRANSFORM(lnAB) + CHR(13) + CHR(10)
		ENDIF
		FOR j = i + 1 TO lnN
			IF !laV[j]
				LOOP
			ENDIF
			lnBL = laL[j]
			lnBT = laT[j]
			lnBR = laL[j] + laW[j]
			lnBB = laT[j] + laH[j]
			lnOvX = MIN(lnAR, lnBR) - MAX(lnAL, lnBL)
			lnOvY = MIN(lnAB, lnBB) - MAX(lnAT, lnBT)
			IF lnOvX > 0 AND lnOvY > 0
				lcSectiune = lcSectiune + "SUPRAPUNERE: " + laN[i] + " (" + laC[i] + ") x " + laN[j] + " (" + laC[j] + ")  " + TRANSFORM(lnOvX) + "x" + TRANSFORM(lnOvY) + "px" + CHR(13) + CHR(10)
			ELSE
				IF lnOvY > 0 AND lnOvX <= 0 AND -lnOvX < 4
					lnGap = -lnOvX
					lcSectiune = lcSectiune + "LIPIT-ORIZ: " + laN[i] + " - " + laN[j] + "  gap=" + TRANSFORM(lnGap) + "px" + CHR(13) + CHR(10)
				ENDIF
				IF lnOvX > 0 AND lnOvY <= 0 AND -lnOvY < 4
					lnGap = -lnOvY
					lcSectiune = lcSectiune + "LIPIT-VERT: " + laN[i] + " - " + laN[j] + "  gap=" + TRANSFORM(lnGap) + "px" + CHR(13) + CHR(10)
				ENDIF
			ENDIF
		ENDFOR
	ENDFOR
	gcRaport = gcRaport + lcSectiune + CHR(13) + CHR(10)
ENDPROC

PROCEDURE DumpGrilaRecursiv
	* Harta de geometrie recursiva: coboara in .Objects pe oricate niveluri (containere compozite
	* clb_tx_simplu / ct_clb_cautare / etc.), scrie Name ca traseu punctat de la formular
	* (Ct_clb_agent.clb_tx_cautare.Lb_simplu1), plus AbsLeft/AbsTop absolute fata de formular
	* si Caption/Value taiat la 40 caractere - necesare ca sa se detecteze suprapunerile si
	* textele taiate din interiorul containerelor, invizibile in harta plata geom_dupa_*.tsv.
	LPARAMETERS toForm, tcTsvPath
	LOCAL lcOut
	lcOut = "Name" + CHR(9) + "Class" + CHR(9) + "Left" + CHR(9) + "Top" + CHR(9) + "Width" + CHR(9) + "Height" + CHR(9) + "Visible" + CHR(9) + "AbsLeft" + CHR(9) + "AbsTop" + CHR(9) + "Caption" + CHR(13) + CHR(10)
	lcOut = lcOut + ColectGrila(toForm, "", 0, 0, 0, .T.)
	STRTOFILE(lcOut, tcTsvPath)
	DO AfLog WITH "GEOMETRIE-GRILA: scris " + tcTsvPath
ENDPROC

FUNCTION ColectGrila
	* Recursie pe .Objects (nu PEMSTATUS) - garda Type('loO.Left')='N' fiindca nu orice membru
	* are geometrie (separatoare, columns de grid etc. nu ajung aici, gridurile nu au .Objects).
	* coloana Visible e vizibilitatea EFECTIVA (proprie AND a parintelui) - un copil dintr-un
	* container ascuns are Visible propriu .T. dar nu se deseneaza.
	LPARAMETERS toContainer, tcPrefix, tnParentAbsLeft, tnParentAbsTop, tnDepth, tlParentVisEff
	LOCAL i, loO, lcName, lnAbsL, lnAbsT, lcCaption, llVisEff, lcVisTxt, lcOut
	IF tnDepth > 15
		RETURN ""
	ENDIF
	lcOut = ""
	FOR i = 1 TO toContainer.Objects.Count
		loO = toContainer.Objects(i)
		IF TYPE('loO.Left') = 'N' AND TYPE('loO.Top') = 'N' AND TYPE('loO.Width') = 'N' AND TYPE('loO.Height') = 'N'
			lcName = IIF(EMPTY(tcPrefix), loO.Name, tcPrefix + "." + loO.Name)
			lnAbsL = tnParentAbsLeft + loO.Left
			lnAbsT = tnParentAbsTop + loO.Top
			lcCaption = ""
			IF TYPE('loO.Caption') = 'C'
				lcCaption = loO.Caption
			ELSE
				IF TYPE('loO.Value') = 'C'
					lcCaption = loO.Value
				ENDIF
			ENDIF
			lcCaption = STRTRAN(lcCaption, CHR(9), " ")
			lcCaption = LEFT(lcCaption, 40)
			llVisEff = IIF(TYPE('loO.Visible') = 'L', loO.Visible, .T.) AND tlParentVisEff
			lcVisTxt = TRANSFORM(llVisEff)
			lcOut = lcOut + lcName + CHR(9) + loO.Class + CHR(9) + TRANSFORM(loO.Left) + CHR(9) + TRANSFORM(loO.Top) + CHR(9) + TRANSFORM(loO.Width) + CHR(9) + TRANSFORM(loO.Height) + CHR(9) + lcVisTxt + CHR(9) + TRANSFORM(lnAbsL) + CHR(9) + TRANSFORM(lnAbsT) + CHR(9) + lcCaption + CHR(13) + CHR(10)
			IF TYPE('loO.Objects.Count') = 'N'
				lcOut = lcOut + ColectGrila(loO, lcName, lnAbsL, lnAbsT, tnDepth + 1, llVisEff)
			ENDIF
		ENDIF
	ENDFOR
	RETURN lcOut
ENDFUNC

PROCEDURE ProbaSerii
	* apel direct al procedurii Oracle din creeaza_cursor_serii: logheaza eroarea reala (goExecutor
	* ar deschide amessagebox modal, care agata rularea headless) si incalzeste starea pachetului
	LPARAMETERS tnIdTipDoc
	LOCAL lnOk, laErr[1], i, lcSql
	PRIVATE pnIdTipDoc, pnRezultat
	pnIdTipDoc = tnIdTipDoc
	pnRezultat = 0
	lcSql = "{call " + gcS + ".pack_serii_numere.verifica_cursor_serii(?pnIdTipDoc,?gnIdUtil,?gnIdSucursala,?@pnRezultat)}"
	FOR i = 1 TO 3
		lnOk = SQLEXEC(gnHandle, lcSql, "crsprobaserii")
		IF lnOk > 0
			DO AfLog WITH "proba serii OK la incercarea " + TRANSFORM(i) + ", pnRezultat=" + TRANSFORM(pnRezultat) + " randuri=" + TRANSFORM(RECCOUNT("crsprobaserii"))
			USE IN (SELECT("crsprobaserii"))
			EXIT
		ELSE
			AERROR(laErr)
			DO AfLog WITH "proba serii ESEC la incercarea " + TRANSFORM(i) + ": " + TRANSFORM(laErr[1]) + " / " + TRANSFORM(laErr[2]) + " / " + TRANSFORM(laErr[5])
		ENDIF
	ENDFOR
ENDPROC

FUNCTION ObjExists
	* Cautare RECURSIVA: dupa S7 controalele de sub grila nu mai sunt in Thisform.Objects, ci in
	* containerele lor - o cautare plata ar raporta tacut "lipseste".
	LPARAMETERS toContainer, tcName
	LOCAL i, loO
	FOR i = 1 TO toContainer.Objects.Count
		loO = toContainer.Objects(i)
		IF UPPER(loO.Name) == UPPER(tcName)
			RETURN .T.
		ENDIF
		IF TYPE('loO.Objects.Count') = 'N'
			IF ObjExists(loO, tcName)
				RETURN .T.
			ENDIF
		ENDIF
	ENDFOR
	RETURN .F.
ENDFUNC

PROCEDURE Assert
	LPARAMETERS tlCond, tcMsg
	IF tlCond
		gnPass = gnPass + 1
		DO AfLog WITH "PASS: " + tcMsg
	ELSE
		gnFail = gnFail + 1
		DO AfLog WITH "FAIL: " + tcMsg
	ENDIF
ENDPROC

PROCEDURE AfLog
	LPARAMETERS tcMsg
	STRTOFILE(tcMsg + CHR(13) + CHR(10), gcUILog, 1)
ENDPROC

PROCEDURE AfErr
	LPARAMETERS tnErr, tcMsg, tcProg, tnLine
	gnFail = gnFail + 1
	DO AfLog WITH "ERROR " + TRANSFORM(tnErr) + " [" + tcProg + ":" + TRANSFORM(tnLine) + "] " + tcMsg
ENDPROC

PROCEDURE Final
	DO AfLog WITH "TOTAL pass=" + TRANSFORM(gnPass) + " fail=" + TRANSFORM(gnFail)
	DO AfLog WITH "END " + TTOC(DATETIME())
	DO HarnessDone WITH 'done'
	QUIT
ENDPROC