//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1;7;15;16;70;Item da Grade;;;;;
:SKEL
COMANDO ANTES M_GRADE = IF(X_OPERACAO=1,SE_GRGRA->GRADE,GRADE)
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 4;Grade....:;C;6;grade;@S6;.f.;;;;;; 0; 0;;;
 1; 4; 4;Tamanho..:;C;4;ptam;@s!4;;PSQ_BROW;SE_GRTAM;SE_GRTAM;N;S;0;0;;;
 1; 5; 4;Cor......:;C;10;pcor;@s!10;;PSQ_BROW;SE_GRCOR;SE_GRCOR;N;S;0;0;;;
 1; 7; 4;Itens....:;N;4;pitens;9999;;lastkey()=5.or.m_pitens>0;;;N;; 0; 0;;;
