SE_LOTES;("Lotes de ("+ltrim(str(se_prod->pcod,6))+")-"+alltrim(se_prod->pdesc));skip_blk(x); 5;20;21;75;se_lprod;;
//Vencto;Subst(Dtoc(DATA_VENC),4);C;99.99.99;8;N;
:SKEL
VARIAVEL zzOper = "VENDAS"
VARIAVEL w_chave    = str(se_prod->pcod,6)+"A"
VARIAVEL w_mensagem = "Sem mais Lotes"
VARIAVEL w_block  = {|| w_chave <> str(pcod,6)+cr_situaca }
VARIAVEL Z_BlkRet =  _CreateBlock('__KeyBoard(chr(27)+alltrim(plote))')
//COMANDO ANTES  OrdSetFocus(2)
//COMANDO DEPOIS OrdSetFocus(1)
:TBMT
 13;Eval(Z_BlkRet);Enter-Confirma ;
 22;Sngpc_Mnt(d_ob, "ADD");Ins-Inclui ;
:TBFI
Sit;CR_SITUACA;C;;3;S;
Lote ;PLOTE;C;@S10; 10;N;
Disponiveis;peatbal+MQUANT-mqatend;N;999999;  6;N;
Vencto;DATA_VENC;D;;  8;N;
DtUltMov;MDATA;D;;  8;N;
Saidas;mqatend;N;999999;  6;N;
Entradas;MQUANT;N;999999;  6;N;
Cod ;PCOD;N;99999;  5N;
DtCad;PdataCad;D;;8;N;

