SG_GRD_T;("Tamanhos de "+alltrim(SG_rtm->pref)+" "+alltrim(+sg_rtm->pmarcamode)+" "+sg_rtm->ptipo);skip_blk(x);3;38;21;79;xpadrao;;
:SKEL
VARIAVEL W_CHAVE = SG_rt->Pref+sg_rt->ptipo+sg_rtm->pmarcamode
VARIAVEL W_MENSAGEM = "Sem mais "+SG_rtm->Pref+sg_rtm->ptipo+sg_rtm->pmarcamode
VARIAVEL W_BLOCK = { || W_CHAVE <> Pref+ptipo+pmarcamode }
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;;
Marca+Tipo+Modelo;alltrim(Pref)+ptipo+alltrim(pmarcamode);C;@S20;  20;;
