SE_GRGP;Produtos da Grade;skip_blk(x); 3;36;22;78;x;;
:SKEL
VARIAVEL Z_grade = se_grgra->grade
VARIAVEL w_mensagem = "Sem mais Produtos da Grade"
VARIAVEL w_chave = z_grade
VARIAVEL w_block = {|| w_chave <> grade }
*COMANDO ANTES Z_SELECT = SELECT()
*COMANDO ANTES ABRA("0",R_SIGA,"SE_GRTAM","SE_GRTAM","SE_GRTAM","PTAM")
*COMANDO ANTES ABRA("0",R_SIGA,"SE_GRCOR","SE_GRCOR","SE_GRCOR","PCOR")
*COMANDO ANTES DbSelectArea(Z_SELECT)
*COMANDO DEPOIS SE_GRTAM->(DbCloseArea())
*COMANDO DEPOIS SE_GRCOR->(DbCloseArea())
:TBMT
 22;tb_insert(D_OB);Ins-Inclui ;
 65;tb_update(D_OB);A-Altera ;
  7;tb_del(D_ob);DEL-DELeta ;
 73;lst_alias(D_OB);I-Imprime ;
:TBFI
Produto;Pcod;N;999999;6;N;
Descricao;Pcod;C;@S4;7;N;
Grade;Grade;C;@S6;6;N;
