para gerar a tal grrf.re, serve ate para banco

[tonyx]

******** vai sem o sinal na ultima linha ******

USE &GR_40
SORT ON PIS TO &ARQUIVO2 FOR MARCA = '*'
CLOSE
*-----
USE &GERA_GR
ZAP
APPE FROM &GR_00 FOR RECNO() = 1
APPE FROM &GR_10 FOR RECNO() = 1
DBCOMMIT()
APPE FROM &ARQUIVO2
DBCOMMIT()
*------------- FIM MOVIMENTOS --------
SELE 1 && GERA_GR
APPE BLANK
REPL LINHA1 WITH LIN_FIM1
REPL LINHA2 WITH LIN_FIM2
DBCOMMIT()
CLOSE
*
*======================== exclusivo para breal ============
parte1:= 'C:\FOLHA\PARTE1.TXT'
parte2:= 'C:\FOLHA\PARTE2.TXT'
parte3:= ARQ_TXT
erase(parte1)
erase(parte2)
erase(parte3)
use &GERA_GR
reg_fim:= reccount()
go bott
txt_fim:= LINHA1 + LINHA2
copy to &parte1 sdf for recno() < reg_fim
close
tst:= memowrit(parte2,txt_fim)
run copy &parte1+&parte2 &parte3 > nul
*========================================
@ LIN+03,COL+1 SAY SPACE(TAM)
MOSTRA(LIN+03,COL+1,'JA ESTA OK')
*-----------
RETURN