VARIAVEL ZLAB = 436

INCLUDE GERAL.LST 
 
COMANDO ANTES zFileGenexis = Fcreate(s_arq_prn) 
 
COMANDO DURANTE zstr = "D67" + pad(z3crm, 9) + z3uf + pad( z3cpf, 14) + pad( Z3Nome, 50) 
COMANDO DURANTE zstr = zstr + Z4data_mm + Z4data_aaaa + Z4prdCodBarras + Z4QuantVenda + right(Z4ValorVenda,9) 
 
COMANDO DURANTE FWRITE(zFileGenexis,zstr +chr(13)+chr(10) ) 
 
COMANDO DEPOIS FCLOSE(zFileGenexis) 