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, "Relatorio de Conferencia GENEXIS em "+dtos(date())+chr(13)+chr(10) ), 0) 
COMANDO DURANTE znil = if(znprod<=1, FWRITE(zFileGenexis, "CNPJ               Pedido     Data    CRM   UF       CEP     CodBarras  Quant Produto"+chr(13)+chr(10) ), 0) 
COMANDO DURANTE znil = if(znprod<=1, FWRITE(zFileGenexis, repl("-",132) +chr(13)+chr(10) ), 0) 
 
COMANDO DURANTE zcnpjfab = padr( eval(zBlkCGC, sccpfab->cp_cgc), 18, ' ') 
COMANDO DURANTE zstr = zcnpjfab +" "+z4NumPedido+" "+ dtoc(mdata)+" "+pad(z3crm, 8)+" "+z3uf +" "+ padl(z3cep,9) 
COMANDO DURANTE zstr = zstr + " "+z4prdCodBarras+" "+Str(Mquant,6)+" "+Z4pdesc 
COMANDO DURANTE FWRITE(zFileGenexis,zstr +chr(13)+chr(10) ) 
 
COMANDO DEPOIS FWRITE(zFileGenexis,"T" ) 
COMANDO DEPOIS FCLOSE(zFileGenexis) 
 