SE_LOTE2;(w_mensagem+"de Lotes de "+Alltrim(Se_Prod->Pdesc));sys_tbbrow; 5;13;21;77;se_lprod;;
:TBMT
 13;Dp_DoGet(D_oB);Enter-Altera ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 67;tb_locate(D_OB);C-Continua Busca;
 84;tb_locate(D_OB);T-Busca_Trecho ;
 76;tb_locate(D_OB);L-Busca_Iniciais ;
:TBFI
CxaSai;Mqfech;N;999999;6;S;
UndSai;MQUANT;N;999999;6;S;
Lote ;PLOTE;C;@S10; 10;N;
Vencto;if(mfges="V","*"," ")+Substr(Dtoc(DATA_VENC),4);C;x99.99;6;N;
AreaFechada;Str(Int(resto/if(se_prod->pitens>0,se_prod->pitens,1)),4)+"cx "+Str(resto-if(se_prod->pitens>0,se_prod->pitens,1)*Int(resto/if(se_prod->pitens>0,se_prod->pitens,1)),4)+"un";C;@s12;12;N;
Unids;resto;N;999999;6;N;
Emb;se_prod->pitens;N;9999;4;N;
DataEnt ;MDATA;D;;  8;N;
Cod;PCOD;N;9999;  4;N;
