SE_GREAT;("Subitens de "+Alltrim(Se_Prod->Pdesc));skip_blk(x); 3;36;22;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) }
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,MyInkey(0),NIL)
*COMANDO DEPOIS if(z_fgalter,MyKeyb(Chr(27)+Chr(13)),NIL)
:TBMT
 22;tb_insert(D_OB);Ins-Inclui ;
 65;saldo_great(,d_ob);A-Altera ;
  7;tb_del(D_ob);DEL-DELeta ;
 73;lst_alias(D_OB);I-Imprime ;
: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;
