VARIAVEL zBlkCGC = _createblock('xcgc:=strtran(xcgc,"."),xcgc:=strtran(xcgc,"/"),xcgc:=strtran(xcgc,"-"),xcgc:=strtran(xcgc," "),padl(xcgc,14,"0")' , {'xcgc'} ) 
 
INCLUDE GERAL.LST 
 
COMANDO ANTES zFileGenexis = Fcreate(s_arq_prn) 
 
COMANDO DURANTE znil = if(znprod<=1, FWRITE(zFileGenexis, "HVENDA001"+dtos(date())+chr(13)+chr(10) ), 0) 
COMANDO DURANTE znil = if(znprod<=1, FWRITE(zFileGenexis, "I"+ padr("08401713000179",18," ") +chr(13)+chr(10) ), 0) 
 
COMANDO DURANTE zcnpjfab = padr( eval(zBlkCGC, sccpfab->cp_cgc), 18, ' ')
COMANDO DURANTE zstr = "V"+zcnpjfab + "1" + padr("08401713000179",18," ") + " 58038281" 
COMANDO DURANTE zstr = zstr + "0"+z4QuantVenda + z4prdCodBarras+" " + z4ValorVenda 
COMANDO DURANTE zstr = zstr + dtos(mdata) +"00"+ z4NumPedido 
COMANDO DURANTE zstr = zstr + "NUMEROLOTE   "+"20990100" 
COMANDO DURANTE zstr = zstr + "3" + pad(z3crm, 8) + z3uf + padl(z3cep,9)
 
 
COMANDO DURANTE FWRITE(zFileGenexis,zstr +chr(13)+chr(10) )
 
COMANDO DEPOIS FWRITE(zFileGenexis,"T" ) 
COMANDO DEPOIS FCLOSE(zFileGenexis) 
