prod_t1;('Associacao com '+alltrim(xml_mov->xprod)) ;sys_tbbrow; 5;10;20;75;pseprod;;
:TBMT
 13;XmlMov_VinculaPrd();Enter-Associa ;
 22;InsertProdByXml("EDIT_AND_EXIT");Ins-Inclui ; 
 65;tb_update(D_Ob);A-Altera ;
 32;tb_cons();Barra-Exibe ;
 65;tb_update(D_OB);A-Altera ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_oB);T-Trecho ;
 76;tb_locate(D_oB);L-Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 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 ;
:TBFI
Descricao;PDESC;C;@s30; 30;;
CodBarras;PDIC6;N;9999999999999; 13;;
Cod;PCOD;N;99999; 5;;
Cf;pCategoria;C;XXX; 3;;
