SE_LOTES;Lotes do Produto;skip_blk(x); 5;24;21;75;se_lprod;;
:TBMT
13;dp_ltalt(se_prod->pcod,d_ob);Enter-Usados/Nao_Usados ;
 22;tb_insert(D_OB,"SE_LOTE2");Ins-Inclui ;
:TBFI
Lote ;PLOTE;C;@S10; 10;N;
Vencto;if(mfges="V","*"," ")+Subst(Dtoc(DATA_VENC),4);C;x99.99;6;N;
CxDisponiveis;Str( Int((mquant-resto)/se_prod->pitens) ,4)+"c +"+Str((mquant-resto)-se_prod->pitens*Int((mquant-resto)/se_prod->pitens),4)+"un";C;@s12;12;N;
EstLot;MQUANT;N;999999;  6;N;
S;cr_situaca;C;!;1;N;
Cod ;PCOD;N;9999;  4;N;
DataEnt ;MDATA;D;;  8;N;
