79 lines
2.4 KiB
Plaintext
79 lines
2.4 KiB
Plaintext
* 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
|