* probe_s13_errtext.prg
* Ce numar de eroare VFP are textul "Too many columns." - masurat, nu ghicit.
* Comanda ERROR n genereaza eroarea VFP cu numarul n; TRY/CATCH ii citeste textul.
* Nu atinge Oracle, nu atinge nimic pe disc in afara propriului log.

SET SAFETY OFF
SET TALK OFF

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

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

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