outroarq se_prod seip_c pcod 
VARIAVEL LST_TP = 58 

comando duranteaf zpcod = pcod 
comando duranteaf se_prod->(DbSeek(zpcod)) 

filtro peatbal+Mquant-Mqatend>0 
filtro se_prod->pfgcontrol="8"
 
comando durante zpdesc = se_prod->pregms+" "+se_prod->pdesc 
comando durante zsaldo = peatbal+Mquant-Mqatend 
comando durante zdtvenc = Substr(Dtoc(DATA_VENC),4,3)+Str(Year(Data_Venc),4) 
 
CRelacao de Lotes Disponiveis [chr(15)] 
C============================================================================ 
CCod   Reg.M.S. Descricao                       Lote   Sal.Lote     Est.Atual 
C============================================================================ 
D[PCOD 99999] [ZPDESC @s40] [plote][zsaldo 999999][se_prod->peatual] 