* probe_env.prg - sonda READ-ONLY: structura vact_tot, un cont cu config_cont_ireg, si test tact minimal.
* Rulare: vfp9.exe -A -T "probe_env.prg"

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

PUBLIC gcLog
gcLog = "D:\ROA\ROACONT\COMUN\utile\Teste\grid_albit\probe_env_log.txt"
STRTOFILE("START " + TTOC(DATETIME()) + CHR(13) + CHR(10), gcLog)

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

TRY
	DO "D:\ROA\ROACONT\COMUN\utile\Teste\test_init_env_auto.prg" WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT', 2026, 9
	IF gnHandle <= 0
		DO PrL WITH 'FAIL conectare, gnHandle=' + TRANSFORM(gnHandle)
		QUIT
	ENDIF
	DO PrL WITH 'conectat gnHandle=' + TRANSFORM(gnHandle) + ' gcS=' + gcS + ' gnAn=' + TRANSFORM(gnAn) + ' gnLuna=' + TRANSFORM(gnLuna)

	LOCAL llSucces
	llSucces = goExecutor.oExecuta("select * from vact_tot where 1=2", "v_act")
	DO PrL WITH 'vact_tot 1=2: succes=' + TRANSFORM(llSucces)
	IF llSucces
		LOCAL laF[1], lnI, lcCols
		lnI = AFIELDS(laF, 'v_act')
		lcCols = ''
		FOR lnI = 1 TO ALEN(laF,1)
			lcCols = lcCols + laF[lnI,1] + '(' + laF[lnI,2] + ') '
		ENDFOR
		DO PrL WITH 'vact_tot campuri (' + TRANSFORM(ALEN(laF,1)) + '): ' + lcCols
		USE IN v_act
	ENDIF

	llSucces = goExecutor.oExecuta("select cont, count(*) as ncc from config_cont_ireg group by cont order by cont", "cCfg")
	IF llSucces
		DO PrL WITH 'config_cont_ireg conturi: reccount=' + TRANSFORM(RECCOUNT('cCfg'))
		SELECT cCfg
		SCAN
			DO PrL WITH '  cont=[' + TRANSFORM(cont) + ']'
		ENDSCAN
		USE IN cCfg
	ELSE
		DO PrL WITH 'FAIL config_cont_ireg: ' + goExecutor.cEroare
	ENDIF

	llSucces = goExecutor.oExecuta("select count(*) as n from coresp_tip_cont where cont = '4111'", "cCorp")
	IF llSucces
		DO PrL WITH 'coresp_tip_cont cont=4111: n=' + TRANSFORM(cCorp.n)
		USE IN cCorp
	ENDIF

	DO PrL WITH 'DONE ' + TTOC(DATETIME())
CATCH TO loEx
	DO PrL WITH 'EXCEPTIE ' + loEx.Message + ' (' + TRANSFORM(loEx.LineNo) + ') ' + loEx.Procedure
ENDTRY

QUIT

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

PROCEDURE PrE
	LPARAMETERS tnError, tcMessage, tcProgram, tnLineNo
	DO PrL WITH 'EROARE ' + TRANSFORM(tnError) + ' ' + TRANSFORM(tcMessage) + ' in ' + TRANSFORM(tcProgram) + ' linia ' + TRANSFORM(tnLineNo)
ENDPROC