sync SVN r18227

utile/Teste/grid_albit/probe_env.prg

@@ -1,78 +0,0 @@
-* 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