X;Dicionario de Codigos;sys_tbbrow; 5; 0;20;79;SEPRODDI;;
:SKEL
VARIAVEL Z_blk = { |x_pcod| SE_DIC0->( DbSeek(x_pcod) ), SE_DIC0->Pdesc}
VARIAVEL Z_blkx = { |x_pcod| SE_DIC0->( DbGoto(x_pcod) ), SE_DIC0->Pdesc}
COMANDO ANTES Z_NIL = ABRA("0RO",R_SIGA,"SE_DIC0","SE_DIC0","SE_DIC0","PCPRODFORN")
COMANDO DEPOIS Z_NIL = SE_DIC0->( DBCLOSEAREA() )
:TBMT
 13;doget(D_ob);Enter-Edita ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
:TBFI
Cod;PCOD;N;9999; 4;N;
Descricao;PDESC;C;@S24;24;N;
CHAB;PCPRODFORN;N;9999;4;S;
Desc_HAB;Eval(z_blk,pcprodforn);P;@S35;35;N;
Descg_HAB;Eval(z_blkx,recn());P;@S35;35;N;
HAB;SE_dIC0->PCPRODFORN;N;9999;4;N;
Frac;pitens;N;9999;4;S;
CodBarras-Ean;PDIC6;N;9999999999999; 13;S;
DIC5;PDIC5;N;99999999;  8;S;
