SE_LOTES;("Lotes de ("+ltrim(str(se_prod->pcod,6))+")-"+alltrim(se_prod->pdesc));skip_blk(x); 5;20;21;75;se_lprod;;
:SKEL
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 }
COMANDO ANTES  DBSETORDER(2)
COMANDO DEPOIS DBSETORDER(1)
:TBMT
 22;Sngpc_Mnt(d_ob, "ADD", "SE_LOTES");Ins-Inclui ;
 13;Sngpc_Mnt(d_ob, "UPD", "SE_LOTES");Enter-Altera ;
  7;Sngpc_Mnt(d_ob, "DEL", "SE_LOTES");DEL-DELeta ;
:TBFI
Lote ;PLOTE;C;@S10; 10;N;
Vencto;DATA_VENC;D;;8;N;
Disponiveis;peatbal+MQUANT-mqatend;N;999999;  6;N;
DtCad;PdataCad;D;;8;N;
DtUltEnt;MDATA;D;;  8;N;
Vendidos;mqatend;N;999999;  6;N;
EstLot;MQUANT;N;999999;  6;N;
*;cr_situaca;C;!;1;N;
Cod ;PCOD;N;9999;  4;N;
