VARIAVEL LST_TP = 999 
VARIAVEL TOTUNI = 0 
VARIAVEL ZNPROD = 0 
VARIAVEL Z_dE=CTOD( "01. "+SUBSTR(DTOC(S_DATUAL),4) ) 
VARIAVEL Z_ATE=S_DATUAL 
VARIAVEL ZLINHA = ""
 
T6,10,18,60,Parametros 
T3,2,Data Inicial....:,5,Z_De,99.99.9999 
T4,2,Data Final......:,6,Z_ATE,99.99.9999 
 
COMANDO ANTES SetPrc(0,0) 
COMANDO ANTES DbGoBottom() 

COMANDO ANTES znil = Set(24,"") 

FILTRO fdataemi>=z_de.and.fdataemi<=z_ate
COMANDO ANTES zFileGenexis = Fcreate(s_arq_prn) 
COMANDO DURANTE zAaaaMmDd = Dtos( fdataemi ) 
COMANDO DURANTE zDdMmAaaa = right(zAaaaMmDd,2)+"/"+Substr(zAaaaMmDd,5,2)+"/"+left(zAaaaMmDd,4)
COMANDO DURANTE zstr = str(autoriza,15)+";"
COMANDO DURANTE zstr = zstr+ StrZero(fnum,6)+";"
COMANDO DURANTE zstr = zstr+ zDdMmAaaa+";"
COMANDO DURANTE zstr = zstr+ StrZero(pdic6,13)+";"
COMANDO DURANTE zstr = zstr+ StrZero(mqatend*pposologia,10)+";"
COMANDO DURANTE zstr = zstr+ StrZero(mqatend*psubsidio*100,10)+";"
 
COMANDO DURANTE FWRITE(zFileGenexis,zstr +chr(13)+chr(10) )
 
COMANDO DEPOIS FCLOSE(zFileGenexis) 

