* test_splitter_ef.prg
* Splitter sub grila de facturi la importul eFactura (frm_import_efactura, COMUN\clase\anaf_efactura.vc2):
* Sfsplitterv1 = sfsplitterv_panou (sfsplitter.vcx), T7 tragere simulata cu MouseMove.
* Sfsplitterv1 intre grdFacturi si _shape3, pozitia salvata in settings.ini [efactura] import_splitter_top.
* T1 fara cheie in ini: layout de design neschimbat. T2 MoveSplitterToPosition muta panoul si grila de
* linii, fara sa schimbe marginea de jos a grilei de linii. T3 clamp la limitele 100px/60px. T4 persistenta
* (Destroy scrie doar daca s-a schimbat, Show restaureaza, forma neschimbata nu rescrie fisierul). T5
* compatibilitate cu pozitioneazalistasubimport() dupa mutare. T6 calea REALA a meniului
* (CREATEOBJECT + Show(1) modal, ca in import_efactura.prg) - la deschidere, restaurarea rula in Show()
* inainte ca maximizarea sa aduca grdDetaliiFacturi la inaltimea reala, deci clamp-ul MoveSplitterToPosition
* o taia prematur; muta acum in Resize (o singura data, dupa maximizare).
* gcGeneralIniFile redirectat pe un .ini temporar - nu atinge settings.ini real.
*
* Rulare: vfp9.exe -A -T "D:\ROA\ROACONT\COMUN\utile\Teste\efactura_import\test_splitter_ef.prg"
* Iesire in D:\ROA\ROACONT\COMUN\utile\Teste\efactura_import\test_splitter_ef_log.txt

SET SAFETY OFF
SET TALK OFF
SET DELETED ON
SET EXACT ON
SET CENTURY ON
SET DATE DMY
SET NULLDISPLAY TO ''
CLOSE DATABASES

PUBLIC gcUILog, gnPass, gnFail, gcTempIni
gcUILog = "D:\ROA\ROACONT\COMUN\utile\Teste\efactura_import\test_splitter_ef_log.txt"
gcTempIni = "D:\ROA\ROACONT\COMUN\utile\Teste\efactura_import\test_splitter_ef_temp.ini"
gnPass = 0
gnFail = 0
IF FILE(gcTempIni)
	DELETE FILE (gcTempIni)
ENDIF
STRTOFILE("START " + TTOC(DATETIME()) + CHR(13) + CHR(10), gcUILog)

ON ERROR DO PrErrLocal WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
ON SHUTDOWN QUIT

TRY
	SET PROCEDURE TO 'D:\ROA\ROACONT\COMUN\utile\Teste\mock_amessagebox.prg' ADDITIVE
	DO "D:\ROA\ROACONT\COMUN\utile\Teste\test_init_env_auto.prg" WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT'
	IF gnHandle <= 0
		DO PrLogLocal WITH 'FAIL: conectare Oracle esuata (gnHandle=' + TRANSFORM(gnHandle) + ')'
		QUIT
	ENDIF
	SET PROCEDURE TO import_efactura.prg ADDITIVE
	SET PROCEDURE TO recunoastere_articol_ef.prg ADDITIVE
	SET PROCEDURE TO coada_contabilizare_ef.prg ADDITIVE
	gcGeneralIniFile = m.gcTempIni
	DO PrLogLocal WITH 'mediu initializat, gnHandle=' + TRANSFORM(gnHandle) + ' gcGeneralIniFile=' + m.gcGeneralIniFile

	*-- crsFacturi/crsDetaliiFacturi si cursoarele ajutatoare cerute de Init, copie din test_pozitie_lista_ef.prg
	TEXT TO lcSchemaFacturi NOSHOW
ales N(1), id N(20), id_fact N(20), data_act D, data_scad D, numar_act C(30), xfurnizor C(200), xclient C(200), partener C(200), id_incarcare C(36), id_descarcare c(36) null, tip_mesaj_raspuns C(50) null,mesaj_raspuns C(250) null, data_raspuns D null, trimis N(1) null, data_trimis T null, cod_fiscal C(30) null, cod_fiscal_emitent C(30) null, cod_fiscal_beneficiar C(30) null, detalii M null, total_fara_tva N(16,4), total_tva N(16,4), total_tva_ron N(16,4), total_cu_tva N(16,4), discount_fara_tva N(16,4), taxe_fara_tva N(16,4), valoare_fara_tva N(16,4), total_de_plata N(16,4), nume_valuta C(5), test N(1) null, jtotctva N(16,4) null, descriere M null, detalii_plata M null, diferenta N(16,4) null, procesat N(1), SerieActRoa V(10)  Null, NrActRoa N(14) Null, IdPartRoa N(10) Null, PartenerRoa V(100) null, codFiscalROA V(20), idValutaROA N(5) null,numeValutaROA V(5) null, cursROA N(16,6) null,Cont c(4) Null,ACont c(4) Null,TVAIncasare N(1),Fdoc V(20) null,Id_Fdoc N(5) Null,Nrord V(100) null,Id_Lucrare I Null,Contract V(100) Null,Id_Ctr I Null,Sectie V(100) null,Id_Sectie I Null,dst_chlt V(100) null, Id_venchelt I NUll, nresp V(100) null, Id_responsabil I NUll , completat N(1), completatdet N(1), creditnote N(1), explicatiaROA V(100) null, explicatia4ROA V(100) null, explicatia5ROA V(100) null, eligibil_lot N(1), motiv_lot V(120), eroare_lot N(1), de_completat V(80), gest c(1), part_inactiv N(1)
	ENDTEXT

	IF USED('crsFacturi')
		USE IN crsFacturi
	ENDIF
	CREATE CURSOR crsFacturi (&lcSchemaFacturi)
	INSERT INTO crsFacturi (ales, id, id_fact, data_act, numar_act, xfurnizor, partener, cod_fiscal, ;
		total_cu_tva, nume_valuta, procesat, completat, completatdet, creditnote, detalii, ;
		eligibil_lot, motiv_lot, eroare_lot, de_completat, gest) ;
		VALUES (0, 1, 0, DATE(), 'TEST-SPL-1', 'FIXTURA SPLITTER 1', 'FIXTURA SPLITTER 1', 'RO99970001', ;
		100, 'RON', 0, 0, 0, 0, 'x', 1, '', 0, '1 cont', '')

	TEXT TO lcSchemaDetalii NOSHOW
distribuie N(1), id_tip N(10) null, id_articol N(20) null, id_gestiune N(20) null, cont C(4) null, acont C(4) null, sursa_cont V(10) null, id  N(20), id_efactura N(20), nr N(5), articol V(250), descriere V(250), detalii M, cantitate N(18,6), um V(20), um_iso V(50), um_roa V(50), pret N(20,6), proctva N(7,2), tiptva V(2), valoarefaratva N(20,6), discountfaratva N(20,6), in_stoc N(1), articol_roa V(250), codmat_roa V(50), codbare V(50), codclient V(100), codfurnizor V(100), codcpv V(50), codnc8 V(50), nume_gestiune V(50), cgest V(20), tva N(20,6), pretv N(20,6), tvav N(20,6), pretvtva N(20,6), explicatia V(100), explicatia4 V(100), explicatia5 V(100)
	ENDTEXT
	IF USED('crsDetaliiFacturi')
		USE IN crsDetaliiFacturi
	ENDIF
	CREATE CURSOR crsDetaliiFacturi (&lcSchemaDetalii)
	* rand mut pe id_efactura=1, ca actualizeaza_grid2 sa gaseasca detaliile deja in cursor (fara poFacturiDetalii/Oracle)
	INSERT INTO crsDetaliiFacturi (id, id_efactura, nr, articol) VALUES (100, 1, 1, 'FIXTURA')

	CREATE CURSOR cTipArticoleP (id I, in_stoc N(1), tip V(50), cont V(4), ordine I)
	INSERT INTO cTipArticoleP (id, tip, cont, in_stoc, ordine) VALUES (0, 'Nedefinit','', 0, 0)
	SELECT cTipArticoleP
	GO TOP IN cTipArticoleP
	INDEX ON ordine TAG ordine

	CREATE CURSOR cTipArticoleE (id I, in_stoc N(1), tip V(50), cont V(4), ordine I)
	INSERT INTO cTipArticoleE (id, tip, cont, in_stoc, ordine) VALUES (0, 'Nedefinit','', 0, 0)
	SELECT cTipArticoleE
	GO TOP IN cTipArticoleE
	INDEX ON ordine TAG ordine

	SELECT id, tip, cont, in_stoc, ordine FROM cTipArticoleP ORDER BY ordine INTO CURSOR cTip
	SELECT cTip
	INDEX ON id TAG id

	goExecutor.oExecuta([select distinct nume_gestiune,cgest,id_gestiune,nr_pag,cont from vgest_gestiuni_util where inactiv = 0 and id_util = ] + ALLTRIM(STR(m.gnIdUtil)), 'cGestiuni')
	SELECT cGestiuni
	APPEND BLANK
	INDEX ON id_gestiune TAG id_gest
	SELECT CAST(ALLTRIM(nume_gestiune) + '-' + ALLTRIM(NVL(cgest, '')) AS V(50)) AS nume_gestiune, id_gestiune FROM cGestiuni ORDER BY nume_gestiune INTO CURSOR cGestiuni2

	goExecutor.oExecuta("select cod_um_iso, um_iso from syn_vnom_um_iso", 'cUMISO')
	SELECT cUMISO
	INDEX ON cod_um_iso TAG cod_um_iso

	goExecutor.oExecuta("select id, um, cod_um_iso, um_iso from vnom_um", 'cUM')
	SELECT cUM
	INDEX ON id TAG id

	LOCAL loForm, lnTopInitial, lnTopMutat
	SELECT crsFacturi
	GO TOP

	*=== T1: fara cheie in ini -> layout de design neschimbat dupa Show ===
	loForm = CREATEOBJECT('frm_import_efactura', .T.)
	loForm.WindowType = 0
	DO PrTest WITH 'formular instantiat', TYPE('loForm') == 'O'
	loForm.Show()
	lnTopInitial = loForm.Sfsplitterv1.Top
	DO PrTest WITH 'T1 grdFacturi.Height = 292 (design)', loForm.grdFacturi.Height = 292, 'obtinut=' + TRANSFORM(loForm.grdFacturi.Height)
	DO PrTest WITH 'T1 _shape3.Top = 369 (design)', loForm._shape3.Top = 369, 'obtinut=' + TRANSFORM(loForm._shape3.Top)
	DO PrTest WITH 'T1 splitter.Top = 364 (design)', lnTopInitial = 364, 'obtinut=' + TRANSFORM(lnTopInitial)

	*=== T2: MoveSplitterToPosition(Top+100) -> muta panoul, pastreaza marginea de jos a grilei de linii ===
	LOCAL lnShapeTop0, lnPartTop0, lnDetTop0, lnDetBottom0
	lnShapeTop0 = loForm._shape3.Top
	lnPartTop0 = loForm.txtPartener.Top
	lnDetTop0 = loForm.grdDetaliiFacturi.Top
	lnDetBottom0 = lnDetTop0 + loForm.grdDetaliiFacturi.Height
	loForm.Sfsplitterv1.MoveSplitterToPosition(lnTopInitial + 100)
	DO PrTest WITH 'T2 grdFacturi.Height +100', loForm.grdFacturi.Height = 392, 'obtinut=' + TRANSFORM(loForm.grdFacturi.Height)
	DO PrTest WITH 'T2 _shape3.Top +100', loForm._shape3.Top = lnShapeTop0 + 100, 'obtinut=' + TRANSFORM(loForm._shape3.Top)
	DO PrTest WITH 'T2 txtPartener.Top +100', loForm.txtPartener.Top = lnPartTop0 + 100, 'obtinut=' + TRANSFORM(loForm.txtPartener.Top)
	DO PrTest WITH 'T2 grdDetaliiFacturi.Top +100', loForm.grdDetaliiFacturi.Top = lnDetTop0 + 100, 'obtinut=' + TRANSFORM(loForm.grdDetaliiFacturi.Top)
	DO PrTest WITH 'T2 marginea de jos a grdDetaliiFacturi neschimbata', loForm.grdDetaliiFacturi.Top + loForm.grdDetaliiFacturi.Height = lnDetBottom0, 'obtinut=' + TRANSFORM(loForm.grdDetaliiFacturi.Top + loForm.grdDetaliiFacturi.Height)

	*=== T7: tragere simulata cu MouseMove (coordonate relative la forma, ca in VFP), fara sa atinga Anchor ===
	LOCAL lnAnchorSpl, lnTopSpl
	lnAnchorSpl = loForm.Sfsplitterv1.Anchor
	lnTopSpl = loForm.Sfsplitterv1.Top
	loForm.Sfsplitterv1.MouseMove(1, 0, 50, m.lnTopSpl - 30)
	DO PrTest WITH 'T7 MouseMove sus 30: splitter.Top -30', loForm.Sfsplitterv1.Top = m.lnTopSpl - 30, 'obtinut=' + TRANSFORM(loForm.Sfsplitterv1.Top)
	DO PrTest WITH 'T7 grdFacturi.Height -30', loForm.grdFacturi.Height = 362, 'obtinut=' + TRANSFORM(loForm.grdFacturi.Height)
	loForm.Sfsplitterv1.MouseMove(1, 0, 50, m.lnTopSpl)
	DO PrTest WITH 'T7 MouseMove jos 30: revine', loForm.Sfsplitterv1.Top = m.lnTopSpl, 'obtinut=' + TRANSFORM(loForm.Sfsplitterv1.Top)
	DO PrTest WITH 'T7 Anchor splitter neschimbat', loForm.Sfsplitterv1.Anchor = m.lnAnchorSpl
	DO PrTest WITH 'T7 subclasa sfsplitterv_panou, nu override pe forma', LOWER(loForm.Sfsplitterv1.Class) == 'sfsplitterv_panou' AND !PEMSTATUS(loForm, 'lSplitterRestaurat', 5)

	*=== T3: clamp la limite ===
	loForm.Sfsplitterv1.MoveSplitterToPosition(9999)
	DO PrTest WITH 'T3 clamp sus: grdDetaliiFacturi.Height = 60', loForm.grdDetaliiFacturi.Height = 60, 'obtinut=' + TRANSFORM(loForm.grdDetaliiFacturi.Height)
	loForm.Sfsplitterv1.MoveSplitterToPosition(0)
	DO PrTest WITH 'T3 clamp jos: grdFacturi.Height = 100', loForm.grdFacturi.Height = 100, 'obtinut=' + TRANSFORM(loForm.grdFacturi.Height)

	*=== T5: pozitioneazalistasubimport() dupa mutare -> grdFacturi.Height revine la valoarea mutata ===
	LOCAL lnHeightMutat
	lnHeightMutat = loForm.grdFacturi.Height
	loForm.pozitioneazalistasubimport()
	DO PrTest WITH 'T5 grdFacturi.Height revine la valoarea mutata', loForm.grdFacturi.Height = lnHeightMutat, 'asteptat=' + TRANSFORM(lnHeightMutat) + ' obtinut=' + TRANSFORM(loForm.grdFacturi.Height)

	*=== T4: persistenta ===
	lnTopMutat = loForm.Sfsplitterv1.Top
	loForm.Release()
	DO PrTest WITH 'T4 fisierul ini a fost creat la Release (pozitie schimbata)', FILE(gcTempIni)
	LOCAL lnCitit
	lnCitit = VAL(NVL(getini(m.gcTempIni, 'efactura', 'import_splitter_top'), ''))
	DO PrTest WITH 'T4 cheia import_splitter_top scrisa cu pozitia mutata', m.lnCitit = m.lnTopMutat, 'asteptat=' + TRANSFORM(lnTopMutat) + ' citit=' + TRANSFORM(lnCitit)

	SELECT crsFacturi
	GO TOP
	LOCAL loForm2
	loForm2 = CREATEOBJECT('frm_import_efactura', .T.)
	loForm2.WindowType = 0
	loForm2.Show()
	DO PrTest WITH 'T4 forma noua reia pozitia salvata', loForm2.Sfsplitterv1.Top = m.lnTopMutat, 'asteptat=' + TRANSFORM(lnTopMutat) + ' obtinut=' + TRANSFORM(loForm2.Sfsplitterv1.Top)

	LOCAL lcIniDupaRestaurare
	lcIniDupaRestaurare = FILETOSTR(m.gcTempIni)
	loForm2.Release()
	DO PrTest WITH 'T4 forma deschisa/inchisa fara mutare nu rescrie ini-ul', FILETOSTR(m.gcTempIni) == m.lcIniDupaRestaurare

	*=== T6: calea reala (CREATEOBJECT + Show(1) modal) - pica pe codul vechi (clamp calculat pe inaltimea dinainte de maximizare) ===
	LOCAL lnPozT6
	lnPozT6 = 480
	=setini(m.gcTempIni, "efactura", "import_splitter_top", TRANSFORM(m.lnPozT6))
	PUBLIC goFormT6, gnPozCapturataT6
	gnPozCapturataT6 = -1
	SELECT crsFacturi
	GO TOP
	goFormT6 = CREATEOBJECT('frm_import_efactura', .T.)
	LOCAL loTmrT6
	loTmrT6 = CREATEOBJECT('tmrCaptureazaT6')
	loTmrT6.Enabled = .T.
	goFormT6.Show(1)
	DO PrTest WITH 'T6 calea reala: Sfsplitterv1.Top restaurat dupa Show(1) modal', gnPozCapturataT6 = m.lnPozT6, 'asteptat=' + TRANSFORM(lnPozT6) + ' obtinut=' + TRANSFORM(gnPozCapturataT6)
	RELEASE goFormT6, gnPozCapturataT6

	*=== T8: dupa deschiderea maximizata cu pozitie salvata, grila de sus ajunge exact la splitter; mutare in sus pana aproape de minim nu da eroare ===
	=setini(m.gcTempIni, "efactura", "import_splitter_top", "670")
	PUBLIC goFormT8, gcRezT8
	gcRezT8 = ""
	SELECT crsFacturi
	GO TOP
	goFormT8 = CREATEOBJECT("frm_import_efactura", .T.)
	LOCAL loTmrT8
	loTmrT8 = CREATEOBJECT("tmrCaptureazaT8")
	loTmrT8.Enabled = .T.
	goFormT8.Show(1)
	DO PrLogLocal WITH "  T8 geometrie: " + gcRezT8
	DO PrTest WITH "T8 grdFacturi.Top+Height = Sfsplitterv1.Top", LEFT(gcRezT8, 6) == "GAP=0 ", gcRezT8
	DO PrTest WITH "T8 mutare in sus pana aproape de minim fara eroare", "ERR=0" $ gcRezT8, gcRezT8
	RELEASE goFormT8, gcRezT8

	IF USED('crsFacturi')
		USE IN crsFacturi
	ENDIF
	IF USED('crsDetaliiFacturi')
		USE IN crsDetaliiFacturi
	ENDIF
	IF FILE(gcTempIni)
		DELETE FILE (gcTempIni)
	ENDIF
	DO PrTest WITH 'cleanup: crsFacturi/crsDetaliiFacturi inchise, ini temporar sters', !USED('crsFacturi') AND !USED('crsDetaliiFacturi') AND !FILE(gcTempIni)

	LOCAL loFH, lnCol0, lnSty0
	loFH = CREATEOBJECT('Form')
	loFH.NewObject('splH', 'sfsplitterv_panou', 'D:\ROA\ROACONT\COMUN\clase\sfsplitter.vcx')
	lnCol0 = loFH.splH.BackColor
	lnSty0 = loFH.splH.BackStyle
	DO PrTest WITH 'T9 stare initiala 200,215,230 si BackStyle 1', lnCol0 = RGB(200,215,230) AND lnSty0 = 1
	loFH.splH.MouseEnter()
	DO PrTest WITH 'T9 MouseEnter: BackColor albastru, BackStyle 1', loFH.splH.BackColor = RGB(0,120,215) AND loFH.splH.BackStyle = 1
	loFH.splH.MouseLeave()
	DO PrTest WITH 'T9 MouseLeave: valorile initiale', loFH.splH.BackColor = lnCol0 AND loFH.splH.BackStyle = lnSty0
	loFH.Release()

	DO PrLogLocal WITH 'REZULTAT FINAL: PASS=' + TRANSFORM(gnPass) + ' FAIL=' + TRANSFORM(gnFail)
	DO PrLogLocal WITH 'TOTAL: test terminat fara exceptie'
CATCH TO loEx
	DO PrLogLocal WITH 'EXCEPTIE: ' + loEx.Message + ' (' + TRANSFORM(loEx.LineNo) + ') ' + loEx.Procedure
	TRY
		IF USED('crsFacturi')
			USE IN crsFacturi
		ENDIF
		IF USED('crsDetaliiFacturi')
			USE IN crsDetaliiFacturi
		ENDIF
		IF FILE(gcTempIni)
			DELETE FILE (gcTempIni)
		ENDIF
	CATCH
	ENDTRY
ENDTRY

QUIT

**********************************************************
PROCEDURE PrTest
	LPARAMETERS tcEticheta, tlOk, tcDetalii
	IF tlOk
		gnPass = gnPass + 1
	ELSE
		gnFail = gnFail + 1
	ENDIF
	DO PrLogLocal WITH '  ' + tcEticheta + ': ' + IIF(tlOk, 'OK', 'FAIL') + IIF(EMPTY(NVL(m.tcDetalii,'')), '', ' (' + m.tcDetalii + ')')
ENDPROC

**********************************************************
PROCEDURE PrLogLocal
	LPARAMETERS tcMsg
	LOCAL lcL
	SET SAFETY OFF
	lcL = IIF(FILE(gcUILog), FILETOSTR(gcUILog), '')
	STRTOFILE(lcL + TRANSFORM(tcMsg) + CHR(13) + CHR(10), gcUILog)
ENDPROC

**********************************************************
* mock_amessagebox.prg cere HarnessLog (definit normal in ui_harness.prg, neincarcat aici)
PROCEDURE HarnessLog
	LPARAMETERS tcMsg
	DO PrLogLocal WITH tcMsg
ENDPROC

**********************************************************
PROCEDURE PrErrLocal
	LPARAMETERS tnError, tcMessage, tcProgram, tnLineNo
	DO PrLogLocal WITH 'EROARE ' + TRANSFORM(tnError) + ' ' + TRANSFORM(tcMessage) + ' in ' + TRANSFORM(tcProgram) + ' linia ' + TRANSFORM(tnLineNo)
ENDPROC

**********************************************************
* T6: goFormT6.Show(1) e modal (blocheaza pana la Release) - captureaza Sfsplitterv1.Top dupa
* ce maximizarea reala s-a aplicat, apoi inchide forma ca testul sa poata continua.
DEFINE CLASS tmrCaptureazaT6 AS Timer
	Interval = 300
	Enabled = .F.
	PROCEDURE Timer
		This.Enabled = .F.
		IF TYPE('goFormT6') = 'O'
			gnPozCapturataT6 = goFormT6.Sfsplitterv1.Top
			goFormT6.Release()
		ENDIF
	ENDPROC
ENDDEFINE

**********************************************************
* T8: captureaza geometria dupa maximizare si incearca o mutare in sus (MouseMove) pana aproape de minim
DEFINE CLASS tmrCaptureazaT8 AS Timer
	Interval = 300
	Enabled = .F.
	PROCEDURE Timer
		This.Enabled = .F.
		LOCAL lnErr, lnGap, lnTop
		IF TYPE('goFormT8') = 'O'
			WITH goFormT8
				lnGap = .Sfsplitterv1.Top - (.grdFacturi.Top + .grdFacturi.Height)
				gcRezT8 = "GAP=" + TRANSFORM(lnGap) + " grdF.Top=" + TRANSFORM(.grdFacturi.Top) + " grdF.H=" + TRANSFORM(.grdFacturi.Height) + ;
					" spl.Top=" + TRANSFORM(.Sfsplitterv1.Top) + " det.Top=" + TRANSFORM(.grdDetaliiFacturi.Top) + " det.H=" + TRANSFORM(.grdDetaliiFacturi.Height) + " "
				lnErr = 0
				TRY
					lnTop = .grdFacturi.Top + 100 + 5
					.Sfsplitterv1.MouseMove(1, 0, 50, lnTop)
				CATCH
					lnErr = 1
				ENDTRY
				gcRezT8 = gcRezT8 + "ERR=" + TRANSFORM(lnErr) + " spl.Top dupa=" + TRANSFORM(.Sfsplitterv1.Top) + " grdF.H dupa=" + TRANSFORM(.grdFacturi.Height)
				.Release()
			ENDWITH
		ENDIF
	ENDPROC
ENDDEFINE