Sintoma

Estão sendo exibidas faturas que não pertencem ao embarque.

Solução

Eliminar da tabela /pws/zycit263 os registros com o campo nrseq_pgfat em branco.

Informações Complementares

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

Nota Número 03364 Data: 30/03/2007 Hora: 15:37:04

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

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

Nota Número              : 03364

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00160

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

03089  - 00001 - 6.0    - 00026  - SISTEMA ESTÁ SE PERDENDO E SELECIONANDO FATURAS ELIMINADAS NO EMB

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

ELIMINA REGISTROS /PWS/ZYCIT263 QUE POSSUAM NRSEQ_PGFAT EM BRANCO

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

Palavras Chave:

FATURA - MERCADORIA - OUTROS - EMBARQUES - PERTENCE

/PWS/SAPMZYCI001

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

Objetos da nota:

REPS /PWS/MZYCI001F01

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

           nrseq = itab_zycit003-nrseq AND

           ebeln = itab_zycit003-ebeln AND

           ebelp = itab_zycit003-ebelp AND

           eliminado = space.

    IF NOT itab_zycit263[] IS INITIAL.

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

      SELECT SINGLE * FROM /pws/zycit094

         WHERE nrseq = /pws/zycie001-nrseq.

      IF sy-subrc = 0.

        SELECT  * FROM /pws/zycit006 INTO TABLE itab_zycit006

        where nrseqce = /pws/zycit094-nrseqce and

              eliminado ne 'X' and

              tpfatura eq '01' and

              frpagto ne 'A' and

              belnr_p eq space and

              nrseq_pgfat = space.

        IF sy-subrc = 0.

          read table itab_zycit006 index 1.

          SELECT SINGLE * FROM /pws/zycit132

            WHERE nrseq = itab_zycit006-nrseq AND

               eliminado NE 'X' .

          if sy-subrc ne 0.

            loop at itab_zycit006.

            itab_zycit006-eliminado = 'X'.

            MODIFY itab_zycit006 .

            endloop.

            MODIFY /pws/zycit006 FROM TABLE itab_zycit006.

          endif.

        ENDIF.

      ENDIF.

      REFRESH itab_zycit006. CLEAR itab_zycit006.

* << Fim da inclusão

      SELECT * FROM /pws/zycit006

        INTO TABLE itab_zycit006

        FOR ALL ENTRIES IN itab_zycit263

        WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat.

      LOOP AT itab_zycit263.

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

        IF itab_zycit263-nrseq_pgfat IS INITIAL.

          DELETE FROM /pws/zycit263

              WHERE nrseq EQ itab_zycit263-nrseq

                AND ebeln EQ itab_zycit263-ebeln

                AND ebelp EQ itab_zycit263-ebelp

                AND nrseq_pgfat EQ itab_zycit263-nrseq_pgfat.

          DELETE itab_zycit263.

          CONTINUE.

        ENDIF.

* << Fim da inclusão

        v_tabix = sy-tabix.

        READ TABLE itab_zycit006 WITH KEY

             nrseq_pgfat = itab_zycit263-nrseq_pgfat

             eliminado   = space.

        IF sy-subrc NE 0.

          UPDATE /pws/zycit263 SET  eliminado        = 'X'

                    WHERE nrseq     = itab_zycit263-nrseq

                    AND ebeln       = itab_zycit263-ebeln

                    AND ebelp       = itab_zycit263-ebelp

                    AND nrseq_pgfat = itab_zycit263-nrseq_pgfat.

...