Sintoma

VERIFICAÇÃO AMPLIADA nos programas Embarque e Recebimento

Solução

Melhoria de código em correções de erros de verificação ampliada

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 08373 Data: 06/05/2009 Hora: 13:41:51

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 08373

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00009

Agrupamento              : 00097

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

VERIFICAÇÃO AMPLIADA NOS PROGRAMAS EMBARQUE E RECEBIMENTO

----------------------------------------------------------------------------------------------------

Palavras Chave:

VERIFICAÇÃO - AMPLIADA - EMBARQUE - RECEBIMENTO

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI001F01

REPS /PWS/MZYCI017F02

REPS /PWS/MZYCI020F02

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

        IF NOT itab_zycit003_init-qtd_itend IS INITIAL.

          itab_zycit003-slqtde = itab_zycit003_init-qtd_itend -

                                 itab_zycit003-qtd_iten.

        ELSE.

          itab_zycit003-slqtde = itab_zycit003_init-qtd_iten -

                                 itab_zycit003-qtd_iten.

        ENDIF.

        MODIFY itab_zycit003.

      ENDLOOP.

      EXIT.

* >> Início da exclusão: FORM RECUPERANDO_ITENS

      CLEAR: v_rec.

* << Fim da exclusão

    ENDIF.

    PERFORM carrega_saldo.

    PERFORM lock_pedido.

  ENDIF.

  LOOP AT itab_zycit003.

    IF /pws/zycie001-regime NE '16' AND /pws/zycie001-regime NE '13'.

      READ TABLE itab_zycit013 WITH KEY ebeln = itab_zycit003-ebeln

                                        ebelp = itab_zycit003-ebelp.

      MOVE: itab_zycit013-slqtde TO itab_zycit003-slqtde,

            itab_zycit013-menge  TO itab_zycit003-menge,

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI017F02

...

        FOR ALL ENTRIES IN itab_zycit003

        WHERE nrseqli EQ itab_zycit003-nrseqli.

    SELECT * FROM /pws/zycit376 INTO TABLE itab_zycit376

      FOR ALL ENTRIES IN itab_zycit003

      WHERE ebeln EQ itab_zycit003-ebeln

        AND ebelp EQ itab_zycit003-ebelp

        AND nrseqd NE space.                            "#EC CI_NOFIRST

    SELECT * FROM /pws/zycit245 INTO TABLE itab_zycit245

        FOR ALL ENTRIES IN itab_zycit003

        WHERE nrseqd EQ itab_zycit003-nrseqd

* >> Início da exclusão: FORM ADICIONA_SALDO_ATO

          AND nritem < 90000.

* << Fim da exclusão

* >> Início da inclusão: FORM ADICIONA_SALDO_ATO

          AND nritem < 90000. "#EC PORTABLE

* << Fim da inclusão

    SELECT * FROM /pws/zycit079 INTO TABLE itab_zycit079

        FOR ALL ENTRIES IN itab_zycit003

        WHERE nrseqli EQ itab_zycit003-nrseqli

          AND ebeln EQ itab_zycit003-ebeln

          AND ebelp EQ itab_zycit003-ebelp.

    SELECT * FROM ekpo INTO TABLE itab_ekpo2

      FOR ALL ENTRIES IN itab_zycit003

        WHERE ebeln EQ itab_zycit003-ebeln

          AND ebelp EQ itab_zycit003-ebelp.

  ENDIF.

...

...

      SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003

             FOR ALL ENTRIES IN itab_itens_nf

             WHERE nrseq = itab_itens_nf-nrseq

               AND ebeln = itab_itens_nf-ebeln

               AND ebelp = itab_itens_nf-ebelp.

    ENDIF.

    IF NOT itab_zycit003[] IS INITIAL.

      SELECT * FROM /pws/zycit245 INTO TABLE itab_zycit245d

          FOR ALL ENTRIES IN itab_zycit003

          WHERE nrseqd EQ itab_zycit003-nrseqd

* >> Início da exclusão: FORM ESTORNA_SALDO_ATO

            AND nritem < 90000.

* << Fim da exclusão

* >> Início da inclusão: FORM ESTORNA_SALDO_ATO

            AND nritem < 90000. "#EC PORTABLE

* << Fim da inclusão

      SELECT * FROM /pws/zycit079 INTO TABLE itab_zycit079

          FOR ALL ENTRIES IN itab_zycit003

          WHERE nrseqli EQ itab_zycit003-nrseqli

            AND ebeln EQ itab_zycit003-ebeln

            AND ebelp EQ itab_zycit003-ebelp.

      SELECT * FROM ekpo INTO TABLE itab_ekpo2

        FOR ALL ENTRIES IN itab_zycit003

          WHERE ebeln EQ itab_zycit003-ebeln

            AND ebelp EQ itab_zycit003-ebelp.

    ENDIF.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

    SELECT SINGLE * FROM /pws/zycbt007

            WHERE bukrs EQ space.

  ENDIF.

  SELECT * FROM /pws/zycit244 INTO TABLE it_zycit244

         WHERE status  EQ 'D'

           AND ( tipo  EQ 'C' OR tipo EQ 'G' OR tipo EQ 'N' )

           AND vcto_vg >= sy-datlo.                     "#EC CI_NOFIELD

  SELECT * FROM /pws/zycit245 INTO TABLE it_zycit245

         FOR ALL ENTRIES IN it_zycit244

         WHERE nrseqd EQ it_zycit244-nrseqd

* >> Início da exclusão: FORM VINCULAR_ATOC

           AND nritem < 90000.

* << Fim da exclusão

* >> Início da inclusão: FORM VINCULAR_ATOC

           AND nritem < 90000. "#EC PORTABLE

* << Fim da inclusão

  IF /pws/zycit321-c_comum NE 'X'.

    SELECT * FROM /pws/zycit433

   INTO TABLE itab_zycit433                             "#EC CI_NOFIELD

          WHERE dtde  <= sy-datlo

            AND dtate >= sy-datlo.

  ENDIF.

  SELECT * FROM ekpo INTO TABLE it_ekpo

      FOR ALL ENTRIES IN it_zycit079

      WHERE ebeln EQ it_zycit079-ebeln

        AND ebelp EQ it_zycit079-ebelp.

...