Sintoma

O programa não está considerando as exportações com o código de enquadramento 81501 (PROEX).

Solução

Atualização da seleção das exportações para considerar o código de enquadramento 81501.

Informações Complementares

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

Nota Número 06259 Data: 26/03/2008 Hora: 15:55:31

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

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

Nota Número              : 06259

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

SELEÇÃO DAS EXPORTAÇÕES CÓDIGO DE ENQUADRAMENTO 81501 PROEX

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

Palavras Chave:

DRAWBACK COMPOSIÇÃO ISENÇÃO SELEÇÃO DAS EXPORTAÇÕES

CÓDIGO DE ENQUADRAMENTO 81501 PROEX

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

Objetos da nota:

DYNP /PWS/SAPMZYCI064                        0301

REPS /PWS/MZYCI064F03

REPS /PWS/MZYCI064X01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI064                        0301

MODIFICAR TEXTO "/PWS/ZYCIE258-WERKS"

Comprimento Visível      6

Texto                    Centro

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

Modificações efetuadas em REPS /PWS/MZYCI064F03

...

                ON c~nrseq    EQ d~nrseqexp

               AND c~vbeln_va EQ d~vbeln_va

               AND c~vbeln_vl EQ d~vbeln_vl

               AND c~posnl    EQ d~posnl

             WHERE a~dtincl >= p_dtexp1 AND

                   a~dtincl <= p_dtexp2 AND

                   b~nrato  EQ space    AND

                   c~bukrs  EQ /pws/zycie258-bukrs AND

                   b~matnr  IN p_matnr.

      DELETE itab_re_final WHERE nrseqexp NE space.

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

      SELECT * FROM /pws/zycet130 INTO TABLE itab_zycet130

               WHERE codenq = '80000'

                  OR codenq = '80116'.

* << Fim da exclusão

      IF NOT itab_re_final[] IS INITIAL.

        IF /pws/zycie258-tipo EQ 'C'.

          SELECT * FROM /pws/zycit259

          INTO TABLE itab_zycit259                      "#EC CI_NOFIRST

                   FOR ALL ENTRIES IN itab_re_final

                   WHERE nrseqre EQ itab_re_final-nrseqre.

        ELSEIF /pws/zycie258-tipo EQ 'F'.

          SELECT * FROM /pws/zycit259

          INTO TABLE itab_zycit259                      "#EC CI_NOFIRST

                   FOR ALL ENTRIES IN itab_re_final

                   WHERE nrseqre EQ itab_re_final-nrseqre

                     AND lifnr EQ /pws/zycie258-lifnr.

        ENDIF.

      ENDIF.

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

      IF NOT itab_zycet130[] IS INITIAL.

* << Fim da exclusão

        IF NOT itab_re_final[] IS INITIAL.

          LOOP AT itab_re_final.

            v_tabix = sy-tabix.

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

            READ TABLE itab_zycet130

            WITH KEY codenq = itab_re_final-codenq1.

            IF sy-subrc NE 0 .

              DELETE itab_re_final INDEX v_tabix.

* << Fim da exclusão

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

          IF itab_re_final-codenq1 NE '80000' AND

             itab_re_final-codenq1 NE '80116' AND

             itab_re_final-codenq1 NE '81501'.

            DELETE itab_re_final.

* << Fim da inclusão

              PERFORM preenche_itab_msg_erro USING itab_re_final-matnr

                                                  itab_re_final-nrseqre

                                                   itab_re_final-nrre

                                                   space

                                                   text-259

                                                   '@AG@'.

            ENDIF.

            READ TABLE itab_zycit259

            WITH KEY nrseqre  = itab_re_final-nrseqre

                     vbeln_va = itab_re_final-vbeln_va

                     vbeln_vl = itab_re_final-vbeln_vl

                     posnl    = itab_re_final-posnl.

            IF sy-subrc EQ 0.

              DELETE itab_re_final INDEX v_tabix.

            ENDIF.

          ENDLOOP.

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

        ENDIF.

* << Fim da exclusão

      ENDIF.

      IF NOT itab_re_final[] IS INITIAL.

        IF /pws/zycit321-ltopc NE '1'.

          SELECT * FROM /pws/zycit281 INTO TABLE itab_zycit281

                 FOR ALL ENTRIES IN itab_re_final

                 WHERE matnr EQ itab_re_final-matnr.

          LOOP AT itab_zycit281.

            READ TABLE itab_zycit434 WITH KEY

                                     werks = itab_zycit281-werks.

            IF sy-subrc NE 0 AND

...

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

Modificações efetuadas em REPS /PWS/MZYCI064X01

...

DATA: marcd_l(1) TYPE c.

DATA: END OF itab_det_exp_final.

DATA: itab_zycit423 TYPE /pws/zycit423 OCCURS 0 WITH HEADER LINE,

      itab_zycit422 TYPE /pws/zycit422 OCCURS 0 WITH HEADER LINE,

      itab_zycit421 TYPE /pws/zycit421 OCCURS 0 WITH HEADER LINE,

      itab_mvke     TYPE mvke OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_names OCCURS 0,

        werks TYPE /pws/zycit434-werks,

        name1 TYPE /pws/zycit434-name1.

DATA: END OF itab_names.

* >> Início da exclusão:

DATA : BEGIN OF itab_zycet130 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet130.

DATA : END   OF itab_zycet130.

* << Fim da exclusão

DATA: BEGIN OF itab_zycit259 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit259.

DATA: END OF itab_zycit259.

DATA: BEGIN OF itab_zycit281 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit281.

DATA: END OF itab_zycit281.

DATA: BEGIN OF itab_mess_un OCCURS 0.

DATA: meins LIKE /pws/zycit245-meins,

      matnr LIKE /pws/zycit003-matnr.

DATA: END OF itab_mess_un.

...