VARIAVEL LST_TP = 999 
COMANDO ANTES SetPrc( 0,0) 

COMANDO ANTES znil = Set(24,"") 
COMANDO ANTES zFileMTfisFor = Fcreate(s_arq_prn) 

FILTRO cgc_ok(cp_cgc) 

COMANDO DURANTE zstr = Ltrim(Str(Recno(),6))+"|"
COMANDO DURANTE zstr = zstr+ "J"+"|"
COMANDO DURANTE zstr = zstr+ "S"+"|"
COMANDO DURANTE zstr = zstr+ alltrim(cp_nome)+"|"
COMANDO DURANTE zstr = zstr+ alltrim(cp_fantasi)+"|"
COMANDO DURANTE zstr = zstr+ alltrim(cp_cgc)+"|"
COMANDO DURANTE zstr = zstr+ alltrim(cp_insc_es)+"|"
COMANDO DURANTE zstr = zstr+ alltrim(cp_rua)+"|"
COMANDO DURANTE zstr = zstr+ "0"+"|"
COMANDO DURANTE zstr = zstr+ alltrim(cp_bairro)+"|"
COMANDO DURANTE zstr = zstr+ alltrim(cp_cep)+"|"
COMANDO DURANTE zstr = zstr+ "0"+"|"
COMANDO DURANTE zstr = zstr+ upper(alltrim(cp_uf)) 

COMANDO DURANTE FWRITE(zFileMTfisFor,zstr +chr(13)+chr(10) )
 
COMANDO DEPOIS FCLOSE(zFileMTfisFor) 

