SF_CODOP;Codigos de Operacoes Fiscais;sys_tbbrow;11;0;21;79;padrao;;eval(z_blkPpo);
:SKEL
VARIAVEL Z_XTELA = SAVESCREEN(3,0,10,79)
VARIAVEL z_xblk =            "Z_COR := SetColor('R/W'),"
VARIAVEL z_xblk = z_xblk + "Scroll(3,0,9,79,0),DispBox(3,0,10,79),"
VARIAVEL z_xblk = z_xblk + 'DevPos(4,2), DevOut(codop+" "+descop),'
VARIAVEL z_xblk = z_xblk + 'DevPos(5,2), DevOut("Detalhamento: "+desc1),'
VARIAVEL z_xblk = z_xblk + 'DevPos(6,2), DevOut("              "+desc2),'
VARIAVEL z_xblk = z_xblk + 'DevPos(7,2), DevOut("              "+desc3),'
VARIAVEL z_xblk = z_xblk + 'DevPos(8,2), DevOut("              "+desc4),'
VARIAVEL z_xblk = z_xblk + "SetColor(Z_COR),descop"
VARIAVEL z_blkPpo = _CreateBlock( z_xblk )
VARIAVEL z_xblk = ""
COMANDO DEPOIS Z_NIL = RESTSCREEN(3,0,10,79,Z_XTELA)
// VARIAVEL z_xblk = z_xblk + 'DevPos(4,2), DevOut("Antigo: "+codop0+"  "+descop0),'
// Descricao Anterior;descop0;C;@s28;28;S;
// Antigo;codop0;C;9.99;6;S;
:TBMT
 22;tb_insert(D_OB);Ins-Inclui ;
 13;doget(D_ob);Enter-Edita ;
 32;tb_cons();Barra-Exibe ;
 65;tb_update(D_OB);A-Altera ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao;
 67;tb_locate(D_OB);C-Continua_Busca ;
 84;tb_locate(D_OB);T-Busca_Trecho ;
 76;tb_locate(D_OB);L-Busca_Iniciais ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ; 
:TBFI
Cfop;codop;C;9.999;5;S;
Descricao;Descop;C;@s50;40;S;
C.Ent;CFOP_ENTR;C;9X999;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;
GeraDupRec;CRED_CONT;C;!;10;S;
Ajusta_Estoq;Ajusta_Est;C;!;12;S;
Detalhes;Desc1;C;@s60;60;S;
 ;Desc2;C;@s60;60;S;
 ;Desc3;C;@s60;60;S;
 ;Desc4;C;@s60;60;S;
