SE_LOTE2;("Ajuste de Lotes "+If(w_mensagem="AjPrat","na Prateleira","Fechados")+" de "+Alltrim(Se_Prod->Pdesc));sys_tbbrow; 5;08;21;77;se_lprod;;
:TBMT
 13;Dp_DoGet(D_oB,"AJUSTE");Enter-Altera ;
 22;tb_insert(D_OB,"SE_LOTE2");Ins-Inclui ;
 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 ;
 79;tb_index(D_OB);O-Ordena ;
:TBFI
CxaFec;MQFECH;N;999999;6;S;
UndLot;MQUANT;N;999999;6;S;
Lote ;PLOTE;C;@S10; 10;S;
*;if(mfges="V","*"," ");C;!;1;N;
DataVenc;DATA_VENC;D;99.99.99;9;S;
DataEnt ;MDATA;D;;  8;N;
S;cr_situaca;C;!;1;N;
QOrig;resto;N;999999;6;N;
CxFech Orig;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;
Cod;PCOD;N;9999;  4;N;
