SE_GRGTX;Grades Padroes;sys_tbbrow; 8;30;18;75;padrao;;
:SKEL
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
Unids;pitens;N;9999;5;N;
Tamanho;ptam;C;@S4;7;N;
Cor;Pcor;C;@s!10;10;N;
Grade;Grade;C;@S6;6;N;
