TV_IGN;Principios Ativos;skip_blk(x); 8; 3;20;72;bulas;;
:SKEL
VARIAVEL w_classe   = "Q"
VARIAVEL w_mensagem = "Sem mais Principios Ativos"
VARIAVEL w_chave    = w_classe
VARIAVEL w_block    = {|| w_chave <> classe }
VARIAVEL Z_NIL      = ABRA ("1",r_siga,"TV_ign","TV_ign", "tv_cign", "classe+str(codigo,4)", "tv_dign", "classe+descricao")
//Priva w_mensagem,w_chave,w_block, substr("GIQ",arquivo-9,1), w_grp_desc
//    if arquivo=10
//       w_mensagem = "Sem mais Grupos Farmacologicos"
//       w_grp_desc = "Grupos Farmacologicos"
//    elseif arquivo=11
//       w_grp_desc = "Indicacoes Terapeuticas"
//    elseif arquivo=12
//       w_mensagem = "Sem mais Nomes QuĦmicos"
//       w_grp_desc = "Principios Ativos"
//    endif
//    TELAHELP = "TV_ign"
//    ABRA ("1",r_siga,"TV_ign","TV_ign", "tv_cign", "classe+str(codigo,4)", "tv_dign", "classe+descricao")
//    x_cadastro = "TV_IGN"
:TBMT
 13;tv_explbula("TV_PIGNC");Enter-Produtos ;
 80;tb_pesq(d_ob);P-Pesquisa ;
 84;tb_locate(d_ob);T-Trecho ;
 67;tb_locate(d_ob);C-Continua_Pesquisa ;
:TBFI
Cod;CODIGO;N;9999;4;N;
Principio Ativo;DESCRICAO;C;@s60;60;;
