Saldo Alocado Errado

Situação:

Quando está com saldo zero no disponível no CE0830 e já verificamos no PD1003A, EQ1007, MOCE050, spp/ftp/spft304.r para o item para corrigir suas alocações.

verificamos no PD1003A

verificamos no EQ1007

verificamos no MOCE050

Se o saldo estiver alocado em Follow-outros, pode desalocar pelo programa MOPD015 Manutenção de Follow-up

verificamos no spp/ftp/spft304.r

Continua sem saldo.

Temos que rodar o qg abaixo para liberar o estoque

FOR EACH saldo-estoq  
   WHERE saldo-estoq.it-codigo = "42082362"
        
     AND saldo-estoq.cod-depos = "vd3"
     AND saldo-estoq.cod-estabel = "99"
     AND saldo-estoq.cod-localiz = "".

    DISP saldo-estoq.it-codigo
         saldo-estoq.cod-estabel
         saldo-estoq.cod-depos 
         saldo-estoq.cod-localiz
         saldo-estoq.qtidade-ini
         saldo-estoq.qtidade-atu 
         saldo-estoq.qt-aloc-ped  // FORMAT "->>>,>>>,>>9.9999" 
         saldo-estoq.qt-aloc-prod 
         saldo-estoq.qt-alocada 
         saldo-estoq.qtidade-fin WITH WIDTH 600.

     //UPDATE saldo-estoq.qt-aloc-ped.
     //UPDATE saldo-estoq.qt-aloc-prod.
     //UPDATE saldo-estoq.qt-alocada.
END.

DEF VAR a AS INT.
DEF VAR n AS INT.

DEFINE TEMP-TABLE tt-item                
    FIELDS tt-cod-estabel LIKE saldo-estoq.cod-estabel 
    FIELDS tt-cod-depos   LIKE saldo-estoq.cod-depos   
    FIELDS tt-cod-localiz LIKE saldo-estoq.cod-localiz 
    FIELDS tt-lote        LIKE saldo-estoq.lote        
    FIELDS tt-cod-refe    LIKE saldo-estoq.cod-ref    
    FIELDS tt-it-codigo   LIKE saldo-estoq.it-codigo
    INDEX idx1              tt-cod-estabel.

/************** IMPORTAÇÃO DOS REGISTROS ****************/
EMPTY TEMP-TABLE tt-item.

INPUT FROM VALUE("g:\cristina\spool\saldosw23.csv")NO-CONVERT.
REPEAT:
    
    CREATE tt-item.
    IMPORT DELIMITER  tt-item NO-ERROR.
    
END.                                                     
INPUT CLOSE. 

FOR EACH saldo-estoq  
   WHERE saldo-estoq.it-codigo = tt-item.tt-it-codigo
     and saldo-estoq.cod-depos = tt-item.tt-cod-depos
     and saldo-estoq.cod-estabel = tt-item.tt-cod-estabel
     AND saldo-estoq.cod-localiz = tt-item.tt-cod-localiz :

    DISP saldo-estoq.it-codigo    
         saldo-estoq.cod-estabel   
         saldo-estoq.cod-depos     
         saldo-estoq.cod-localiz   
         saldo-estoq.qtidade-ini   
         saldo-estoq.qtidade-atu   
         saldo-estoq.qt-aloc-ped  //FORMAT "->>>,>>>,>>9.9999"  
         saldo-estoq.qt-aloc-prod  
         saldo-estoq.qt-alocada    
         saldo-estoq.qtidade-fin WITH WIDTH 600.

     //UPDATE saldo-estoq.qt-aloc-ped.
     //UPDATE saldo-estoq.qt-aloc-prod.
     //UPDATE saldo-estoq.qt-alocada.
END.