ALIAS SE_LOTES
VARIAVEL LST_TP = 58 
VARIAVEL ZPMS = ""
VARIAVEL ZPREGMS = ""
comando antes dbgotop() 

COMANDO ANTES FERASE( R_SIGA+"TMP\TEMP00051"+ORDBAGEXT() )
COMANDO ANTES FERASE( R_SIGA+"TMP\TEMP00052"+ORDBAGEXT() )
COMANDO ANTES FERASE( R_SIGA+"TMP\TEMP00053"+ORDBAGEXT() )

*COMANDO ANTES SE_LOTES->(DBCLOSEAREA())
COMANDO ANTES ABRA("0RO",R_SIGA,"TABELA","TABELA","temp0051","MED_BARRA")
COMANDO ANTES ABRA("0RO",R_SIGA,"se_prod","seip_dic","temp0052","pCOD")
COMANDO ANTES ABRA("0RO",R_SIGA,"SE_LOTES","SE_LOTES","temp0053","pCOD")

filtro peatbal+Mquant-Mqatend>0 

comando durante zpcod = pCOD
comando durante se_prod->(DbSeek(zpcod))
comando durante zpregms  = StrTran( se_prod->pregms, "-") 
comando durante zpregms  = StrTran( zpregms, ".") 
comando durante zpdesc = se_prod->pdesc
comando durante zsaldo = peatbal+Mquant-Mqatend
comando durante zdtvenc = Substr(Dtoc(DATA_VENC),4,3)+Str(Year(Data_Venc),4)

comando durante zpbarra = se_prod->pdic6
comando durante TABELA -> (DbSeek(zpbarra))
comando durante ZPMS = TABELA->MED_REGIMS

*COMANDO DURANTE ZNIL = IF(ZPMS<>ZPREGMS, SE_PROD->(PUT_VAR("PREGMS",ZPMS),"")

CRelacao de Lotes Errados Disponiveis [chr(15)]
C=======================================================================================
CCod   M.S. TAB M.S.PROD Descricao                            Lote   Sal.Lote  Est.Atual
C=======================================================================================
*D99999 XXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXX 999999 999999
D[pCOD 99999] [ZPMS @s15] [zpregms @s15] [ZPDESC @s25] [plote][zsaldo 999999][se_prod->peatual]