SG_GREAT;("Subitens de "+Alltrim(Se_Prod->Pdesc));skip_blk(x); 3;40;14;78;x;;
:SKEL
VARIAVEL z_pcod = se_prod->pcod
VARIAVEL w_mensagem = "Sem mais SubItens"
VARIAVEL w_chave = Str(z_pcod,6)
VARIAVEL w_block = {|| w_chave <> Str(pcod,6) }
:TBMT
:TBFI
Loja;Floja;N;9999;4;N;
Saldo;peatual;N;999999;6;N;
Tamanho;ptam;C;@S4;7;N;
Cor;Pcor;C;@s!10;10;N;

