VB_PRECO;Tabelas Promocionais;sys_tbbrow; 5;10;20;75;padrao;;
:SKEL
variavel znil := load_prprom()

VARIAVEL z_BlkZap = #TEXTO_FONTE
   Private wTabGp:=if(pgpreco$"SG","G",if(pgpreco="F","F","P")), zTabProm:="VB_PR"+StrZero(RECNO(),2)+wTabGp, zAlias:='SE_PROM'+wTabGp
   if SIMNAO(24,0,"Confirma Limpar Tabela ? "," Sim "," Nao ",1,80)
      xDbCreateFromStr(r_siga+zTabProm, zAlias )
      Alert("A tabela "+zTabProm+" foi Zerada !",,"B/W")
   endif
#FIM_TEXTO_FONTE

//VARIAVEL z_BlkDel = #TEXTO_FONTE
//   if SIMNAO(24,0,"Confirma Apagar Tabela ? "," Sim "," Nao ",1,80)
//      Z_CodTab:=RECNO()
//      zTabProm:='VB_PR'+StrZero(Z_CodTab,2)+if(vb_preco->pgpreco='S','G','P'),"
//      xfErase(r_siga+zTabProm +".dbf" )
//      Alert("A tabela "+zTabProm+" foi Apagada !",,"B/W")
//   endif
//#FIM_TEXTO_FONTE
//7;Eval(z_BlkDel);DEL-DELeta ;

:TBMT
 13;Load_PrProm(,"BROW_SEPROM");Enter-Produtos ;
 90;Eval(z_BlkZap);Z-Limpa_Tabela ;
 32;doget(d_oB);Barra-Altera ;
 65;tb_update(D_OB);A-Altera ;
 22;tb_insert(D_OB);Ins-Inclui ;
 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;
:TBFI
Tabela;cr_tabela;N;99999;5;S;
Gp/P/F;PGPRECO;C;X;  6;;
Descricao;PDESC;C;@S35; 34;;