Page Comparison

Alterar o tipo de controle estoque para os item anexo. DE (2-Controle Total),PARA (4-Débito Direto)

Após a aprovação do Araújo - Setor Fiscal, Marcelo - Diretor de TI e Fábo Pelaio - Coord de Sistemas, executar o Qg abaixo:

R:\ESP2\qgp\altera controle estoque item.p

DEF TEMP-TABLE tt-item

    FIELD it-cod   LIKE item.it-codigo

    FIELD tp-contr LIKE item.tipo-contr.

INPUT FROM I:\Leopoldo\Alterar_Controle_Estoque_Grupo30_TI.csv.

REPEAT:

    CREATE tt-item.

    IMPORT DELIMITER ";" tt-item.it-cod.

END.

INPUT CLOSE.

FIND FIRST tt-item WHERE tt-item.it-cod = '' NO-ERROR.

IF AVAIL tt-item  THEN DELETE tt-item. //SEMPRE QUE CRIAMOS UMA TEMPORÁRIA ELE GRAVA UM REGISTRO EM BRANCO, ESSE BLOCO É PRA ELIMINAR ESSE REGISTOR BRANCO DA TEMPORÁRIA

FOR EACH tt-item:

    FIND FIRST ITEM WHERE ITEM.it-codigo = tt-item.it-cod  NO-ERROR.

    IF AVAIL ITEM THEN DO:

       FIND FIRST movto-estoq WHERE movto-estoq.it-codigo = tt-item.it-cod NO-LOCK NO-ERROR.

       IF NOT AVAIL movto-estoq  THEN DO:

          ASSIGN tt-item.tp-contr  = ITEM.tipo-contr.

          IF ITEM.tipo-contr <> 4 THEN ASSIGN ITEM.tipo-contr = 4.

        END.

    END.   

END.       

OUTPUT TO I:\Leopoldo\Alterar_Controle_Estoque_Grupo30_TI_alterado.csv.

FOR EACH tt-item:

    EXPORT DELIMITER ";" tt-item.

END.

OUTPUT CLOSE.

Será alterado o tipo de controle estoque para o solicitado