SG_GRD_T;("Tamanhos Mais Vendidos de "+alltrim(SG_t->ptipo));skip_blk(x);3;38;21;79;xpadrao;;
:SKEL
VARIAVEL W_CHAVE = SG_t->Ptipo
VARIAVEL W_MENSAGEM = "Sem mais "+SG_t->Ptipo
VARIAVEL W_BLOCK = { || W_CHAVE <> Ptipo }
COMANDO ANTES Z_NIL = DbSetFilter({|| 100*mquant/Mqatend>=0.2},"100*mquant/Mqatend>=0.2")
COMANDO ANTES DbGoTop()
:TBFI
Quant x Amostra;Str(mquant,6)+" / "+str(Mqatend,6);C;@S15;15;;
Tamanho;padc(tamanho,7);C;9999999;7;;
 %;100*mquant/Mqatend;N;@E 999.99%;7;;
Tipo;PTIPO;C;@S5;  5;;
