SE_GRGTC;Itens da Grade;skip_blk(x); 3;36;22;78;x;;
:SKEL
VARIAVEL Z_grade = se_Grgra->grade
VARIAVEL w_mensagem = "Sem mais Itens 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())
COMANDO DEPOIS Z_TITENS = 0
COMANDO DEPOIS #TEXTO_FONTE
#TRACEON
DbSeek(z_grade)
WHILE Z_GRADE=GRADE .and. .not. eof()
   Z_TITENS := Z_TITENS + pitens
   dbskip()
ENDDO
#FIM_TEXTO_FONTE
COMANDO DEPOIS z_fgalter = Se_GrGra->Pitens<>Z_Titens
COMANDO DEPOIS if(z_fgalter,Se_GrGra->(RegLock()),NIL)
COMANDO DEPOIS if(z_fgalter,Se_GrGra->(Put_Var('PITENS',Z_TITENS)),NIL)
COMANDO DEPOIS if(z_fgalter,Se_GrGra->(DbCommitAll()),NIL)
COMANDO DEPOIS if(z_fgalter,Se_GrGra->(DbUnlock()),NIL)
COMANDO DEPOIS if(z_fgalter,__KeyBoard(Chr(27)+Chr(13)),NIL)
: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;
