* probe_s13_errtext2.prg
* Continuarea sweep-ului de numere de eroare VFP (prima rulare s-a oprit in jurul lui 224).
* Scrie un heartbeat cu numarul curent, ca sa se vada exact unde moare.

SET SAFETY OFF
SET TALK OFF

LOCAL lcLog, lcBeat, lnI, loEx, lcMsg, lcBuf
lcLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\probe_s13_errtext2_log_' + ;
	STRTRAN(STRTRAN(STRTRAN(TTOC(DATETIME()), '/', ''), ':', ''), ' ', '_') + '.txt'
lcBeat = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\probe_s13_errtext2_beat.txt'
STRTOFILE('start ' + TRANSFORM(DATETIME()) + ' MARCA=S13-ERRTEXT2' + CHR(13) + CHR(10), lcLog)

lcBuf = ''
FOR lnI = 224 TO 2500
	STRTOFILE(TRANSFORM(lnI), lcBeat)
	lcMsg = ''
	TRY
		ERROR lnI
	CATCH TO loEx
		lcMsg = loEx.Message
	ENDTRY
	IF 'COLUMN' $ UPPER(lcMsg) OR 'TOO MANY' $ UPPER(lcMsg)
		lcBuf = lcBuf + TRANSFORM(lnI) + ' -> [' + lcMsg + ']' + CHR(13) + CHR(10)
	ENDIF
	IF MOD(lnI, 100) = 0
		STRTOFILE('... ajuns la ' + TRANSFORM(lnI) + CHR(13) + CHR(10) + lcBuf, lcLog, 1)
		lcBuf = ''
	ENDIF
ENDFOR

STRTOFILE(lcBuf + 'end ' + TRANSFORM(DATETIME()) + CHR(13) + CHR(10), lcLog, 1)
QUIT