OUTROARQ SE_PROD SEIP_DC6 Pdic6 
VARIAVEL LST_TP = 999 
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 
 
VARIAVEL ZNPROD = 0 
 
COMANDO ANTES SetPrc( 0,0) 
COMANDO ANTES zFileGenexis = Fcreate(s_arq_prn) 
FILTRO FCONFIRMAD="S" .and. fdataemi>=z_de.and.fdataemi<=z_ate
COMANDO DURANTE zAaaaMmDd = dtos(fdataemi) 
COMANDO DURANTE zDdMmAaaa = right(zAaaaMmDd,2) +"/"+ SubStr( zAaaaMmDd,5,2) +"/"+ Left(zAaaaMmDd,4) 
COMANDO DURANTE znil = Se_Prod->( DbSeek(vb_fpop->Pdic6) ) 
COMANDO DURANTE zQuant = MqAtend * se_prod->pqtdaplic 
COMANDO DURANTE zValSubsidio = MqAtend * pSubsidio 
 
COMANDO DURANTE zstr = autoriza+";"+strzero(fnum,6)+";"+zDdMmAaaa+";"+StrZero(pdic6,13)+";"+StrZero(zQuant,2)+";"+ltrim(Str(zValSubsidio*100,10)) 
COMANDO DURANTE FWRITE(zFileGenexis,zstr +chr(13)+chr(10) ) 
COMANDO DEPOIS FCLOSE(zFileGenexis) 
 