SE_GREAT;("Tamanhos e Cores de "+Alltrim(Se_Prod->Pdesc));sys_tbbrow; 3;36;12;78;x;;
:SKEL
VARIAVEL z_Blk13 = _CreateBlock( 'm_ptam:=se_great->ptam, m_pcor:=se_great->pcor, MyKeyb( chr(27) )' )
:TBMT
 13;Eval(z_Blk13);Enter-Confirma ;
 84;tb_locate(D_oB);T-Trecho ;
:TBFI
Saldo;peatual;N;999999;6;N;
Tamanho;ptam;C;@S4;7;N;
Cor;Pcor;C;@s!10;10;N;
Produto;Pcod;N;999999;6;N;
