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) )' )
COMANDO ANTES Z_SELECT = SELECT()
COMANDO ANTES ABRA("0",R_SIGA,"SE_GRTAM","SE_GRTAM","SE_GRTAM","PTAM")
COMANDO ANTES ABRA("0",R_SIGA,"SE_GRCOR","SE_GRCOR","SE_GRCOR","PCOR")
COMANDO ANTES DbSelectArea(Z_SELECT)
COMANDO DEPOIS SE_GRTAM->(DbCloseArea())
COMANDO DEPOIS SE_GRCOR->(DbCloseArea())
COMANDO DEPOIS Z_TITENS = 0
COMANDO DEPOIS DbSeek(Str(z_pcod,6))
COMANDO DEPOIS znil = DbEval({||Z_TITENS:=Z_TITENS+peatual},,{||z_pcod=pcod})
COMANDO DEPOIS z_fgalter = ( Se_Prod->Peatual<>Z_Titens )
COMANDO DEPOIS if(z_fgalter,Mensagem("A soma dos saldos dos Subitens ("+alltrim(Str(z_titens,6))+") difere do estoque total ("+alltrim(Str(se_prod->Peatual,6))+")",1),NIL)
COMANDO DEPOIS if(z_fgalter,inkey(0),NIL)
:TBMT
 13;Eval(z_Blk13);Enter-Confirma ;
 22;tb_insert(D_OB);Ins-Inclui ;
 65;saldo_great(,d_ob);A-Altera ;
  7;tb_del(D_ob);DEL-DELeta ;
 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;
