//pag;l1;c1;l2;c2;desc;borda;preget;posget;preinc;posinc
 1;7;15;16;70;("Edicao de "+Alltrim(Se_Prod->Pdesc));;;Eval(Z_BlkExist);;
:SKEL
VARIAVEL z_Blk = "Z_Found:=DbSeek(Str(m_pcod,6)+Str(m_pedicao,5)+' '),"
VARIAVEL z_Blk = z_Blk + "if(z_found,Mensagem('Edicao ja esta cadastrada...Informe outra...',1),.t.),"
VARIAVEL z_Blk = z_Blk + "if(z_found,inkey(0),.t.),"
VARIAVEL z_Blk = z_Blk + "!z_found"
VARIAVEL z_BlkExist = _CreateBlock( z_Blk )
COMANDO ANTES M_pcod = IF(X_OPERACAO=1,SE_Prod->pcod,pcod)
COMANDO DEPOIS RegLock()
COMANDO DEPOIS PUT_VAR("Mdata",Date())
:TFIE
//pag;l;c;desc;tipo;tam;campo;pict;when;valid;dbname;objcons;chave?;seek?;le;ce;cexib;pictexib
 1; 2; 4;Produto..:;N;6;pcod;999999;.f.;;;;;; 0; 0;;;
 1; 4; 4;Edicao...:;N;5;pedicao;99999;;lastkey()=5.or.m_pedicao>0;
 1; 6; 4;Saldo....:;N;6;peatual;999999;;lastkey()=5.or.m_peatual>0;;;N;; 0; 0;;;
