*!* test izolat: verifica daca VFP accepta un camp de cursor numit "_modificat"
SET SAFETY OFF
SET TALK OFF

LOCAL lcLog
lcLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\test_nume_coloana_modificat.log'
IF FILE(m.lcLog)
	DELETE FILE (m.lcLog)
ENDIF

ON ERROR DO logeaza WITH 'EROARE: ' + Message() + ' (linia ' + Transform(Lineno()) + ')'

CREATE CURSOR tprobA (id_vanzare_det I, _modificat L)
APPEND BLANK
REPLACE _modificat WITH .T.
STRTOFILE('tprobA OK, _modificat=' + Transform(tprobA._modificat) + CHR(13) + CHR(10), m.lcLog, 1)
USE IN tprobA

CREATE CURSOR tprobB (id_vanzare_det I, lmodificat L)
APPEND BLANK
REPLACE lmodificat WITH .T.
STRTOFILE('tprobB OK, lmodificat=' + Transform(tprobB.lmodificat) + CHR(13) + CHR(10), m.lcLog, 1)
USE IN tprobB

STRTOFILE('TERMINAT' + CHR(13) + CHR(10), m.lcLog, 1)
QUIT

PROCEDURE logeaza
	LPARAMETERS tcMesaj
	STRTOFILE(m.tcMesaj + CHR(13) + CHR(10), 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\test_nume_coloana_modificat.log', 1)
	RETURN
ENDPROC