SF_CODOP;Codigos de Operacoes Fiscais;sys_tbbrow;11;0;21;79;psq_brow;;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)
:TBFI
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;
Descricao Anterior;descop0;C;@s28;28;S;
