SE_GREDI;("Edicoes de "+Alltrim(Se_Prod->Pdesc));skip_blk(x); 3;33;22;78;x;;
:SKEL
VARIAVEL z_pcod = se_prod->pcod
VARIAVEL w_mensagem = "Sem mais Edicoes"
VARIAVEL w_chave = Str(z_pcod,6)
VARIAVEL w_block = {|| w_chave <> Str(pcod,6) }
COMANDO DEPOIS Z_TITENS = 0
COMANDO DEPOIS #TEXTO_FONTE
DbSeek(Str(z_pcod,6))
WHILE z_pcod=Pcod .and. .not. eof()
   Z_TITENS := Z_TITENS + if(peatual>mqatend.and.mfges=" ",peatual,0)
   dbskip()
ENDDO
#FIM_TEXTO_FONTE
COMANDO DEPOIS z_fgalter = Se_Prod->Pestconsig<>Z_Titens
COMANDO DEPOIS if(z_fgalter,Mensagem("A soma dos saldos das edicoes ("+alltrim(Str(z_titens,6))+") difere do total consignado ("+alltrim(Str(se_prod->PestConsig,6))+")",1),NIL)
COMANDO DEPOIS if(z_fgalter,inkey(0),NIL)
:TBMT
 13;psq_enter();Enter-Aceita Campo;
 80;tb_pesq(D_OB);P-Pesquisa;
 22;tb_insert(D_OB);Ins-Inclui ;
 65;DoGet(d_ob);A-Altera ;
:TBFI
Edicao;pedicao;N;999999;6;N;
Saldo;peatual;N;999999;6;N;
Pr_Espec;PVLUVEN2;N;99999.99;8;S;
Sit;MfgEs;C;!;3;S;
Data;mdata;D;99.99.99;8;S;
Vendida;mqatend;N;999999;7;S;
Devol;MqDevol;N;999999;6;S;
DataDev;MdataDev;D;99.99.99;8;S;
Produto;Pcod;N;999999;6;N;
