SF_CODOP;Tecle Enter sobre as CFOPs Desejadas;sys_tbbrow; 8;20;20;72;psq_brow;;
:SKEL
variavel wVarAux2 := {|| StrTran(codop,".") }
:TBMT
 13;Qbe_Select("SET", D_OB);Enter-Seleciona ;
 80;tb_pesq(d_ob);P-Pesquisa ;
 22;tb_insert(D_OB);Ins-Inclui ;
 84;tb_locate(D_oB);T-Trecho ;
 76;tb_locate(D_oB);L-Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ; 
:TBFI
*;if(Qbe_Select(),"*","");P;X;1;;
Cfop;codop;C;9.999;5;S;
Descricao;Descop;C;@s50;30;S;
C.Ent;CFOP_ENTR;C;9999;7;S;
CstIcm;CST_ICMS;C;XXXXXX;6;S;
CstPis;CST_PIS;C;999;6;S;
Icms;CRED_ICMS;C;!;4;S;
PIS;CRED_PIS;C;!;3;S;
IPI;CRED_IPI;C;!;3;S;
G.Dup;CRED_CONT;C;!;5;S;