Sintoma

- Não existe a opção de escolher quais códigos de enquadramento podem ser utilizados pela composição

de isenção.

- A composição não está selecionando os processo de exportação em que o RE foi criado antes do

faturamento.

Solução

Atualização da seleção das exportações na composição de isenção.

Informações Complementares

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

Nota Número 07516 Data: 31/10/2008 Hora: 16:02:36

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

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

Nota Número              : 07516

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00071

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

Referência às notas relacionadas:

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

02656  - 00001 - 6.0    - 00025  - COMPOSIÇÃO TRAS ITENS DE EXPORTAÇÃO DUPLICADOS

06282  - 00002 - 7.0    - 00005  - LOG DE ERRO (EXCEL)

06855  - 00003 - 7.0    - 00006  - CONTROLE DE CICLO PRODUTIVO (DIAS PARA PRODUÇÃO)

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

CÓDIGO DE ENQUADRAMENTO

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

Palavras Chave:

DRAWBACK ISENÇÃO ENQUADRAMENTO

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

Objetos da nota:

DYNP /PWS/SAPMZYCI064                        0600

REPS /PWS/MZYCI064F03

SHI3 /PWS/ZYCID

TABL /PWS/ZYCIT498

TOBJ /PWS/ZYCIT498S

TRAN /PWS/ZYCIT498

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

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

* Alteração do texto:

*De  : RE com código de enquadramento diferente 80000 / 80116

*Para: RE com código de enquadramento não permitido

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

Modificações efetuadas em REPS /PWS/MZYCI064F03

...

    SELECT eknam UP TO 1 ROWS FROM t024 INTO v_ngrpcpra3

       WHERE ekgrp EQ /pws/zycie258-ekgrp.

    ENDSELECT.

  ENDIF.

  IF v_cent_ei NE space.

    SELECT SINGLE name1 FROM t001w INTO v_txtcent_ei

       WHERE werks EQ v_cent_ei.

  ENDIF.

ENDMODULE.

FORM selecionar_exportacoes3.

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

  DATA:BEGIN OF itab_zycit498 OCCURS 0.

          INCLUDE STRUCTURE /pws/zycit498.

  DATA: END OF itab_zycit498.

* << Fim da inclusão

  DATA: BEGIN OF itab_log OCCURS 0,

          matnr    TYPE /pws/zycet118-matnr   ,

          nrseqre  TYPE /pws/zycet116-nrseqre ,

          nrre     TYPE /pws/zycet116-nrre    ,

          nrseq    TYPE /pws/zycet001-nrseq   ,

          dtemb    TYPE /pws/zycet001-dtemb   ,

          log1(50) TYPE c                     ,

          log2(50) TYPE c                     ,

          log3(50) TYPE c                     ,

          log4(50) TYPE c                     ,

...

...

             a~codenq2 a~codenq3 a~codenq4 a~codenq5

             b~matnr b~vbeln_va c~vbeln_vf c~posnr b~vbeln_vl b~posnl

             b~gewei b~ntgew b~brgew b~waers

             b~vfob  b~vlagente  b~netpr b~seqagrupado b~codnrseq

             d~nrseqexp c~werks c~steuc c~vkorg_auft c~vtweg_auft

             INTO TABLE itab_re_final

             FROM ( /pws/zycet116 AS a INNER JOIN /pws/zycet118 AS b

             ON a~nrseqre EQ b~nrseqre

             INNER JOIN /pws/zycet002 AS c

              ON b~vbeln_va EQ c~vbeln_va

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

             AND b~vbeln_vf EQ c~vbeln_vf

             AND b~posnr    EQ c~posnr

* << Fim da exclusão

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

             AND b~vbeln_vl EQ c~vbeln_vl

             AND b~posnl    EQ c~posnl

* << Fim da inclusão

             AND b~posnl    EQ c~posnl )

               LEFT OUTER JOIN /pws/zycit282 AS d      "#EC CI_BUFFJOIN

                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

                 ( c~staprop EQ space OR

                   c~staprop EQ 'E' ) AND

                   b~matnr  IN p_matnr.

      DELETE itab_re_final WHERE nrseqexp NE space.

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

      SELECT * FROM /pws/zycit498

      INTO TABLE itab_zycit498.                         "#EC CI_NOWHERE

* << Fim da inclusão

      IF NOT itab_re_final[] IS INITIAL.

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

           /pws/zycie258-tipo EQ 'N'.

          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.

      IF NOT itab_re_final[] IS INITIAL.

        LOOP AT itab_re_final.

          v_tabix = sy-tabix.

* >> Início da exclusã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'.

* << Fim da exclusão

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

          IF itab_re_final-codenq1 NE space.

            READ TABLE itab_zycit498 WITH KEY

                                         codenq = itab_re_final-codenq1.

            IF sy-subrc NE 0.

* << Fim da inclusão

            DELETE itab_re_final.

            PERFORM preenche_itab_msg_erro USING itab_re_final-matnr

                                                itab_re_final-nrseqre

                                                 itab_re_final-nrre

                                                 space

                                                 text-259

                                                 '@AG@'.

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

              CONTINUE.

* << Fim da inclusão

          ENDIF.

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

          IF itab_re_final-codenq2 NE '80000' AND

             itab_re_final-codenq2 NE '80116' AND

             itab_re_final-codenq2 NE '81501' AND

             NOT itab_re_final-codenq3 IS INITIAL.

* << Fim da exclusão

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

          ENDIF.

          IF itab_re_final-codenq2 NE space.

            READ TABLE itab_zycit498 WITH KEY

                                         codenq = itab_re_final-codenq2.

            IF sy-subrc NE 0.

* << Fim da inclusão

            DELETE itab_re_final.

            PERFORM preenche_itab_msg_erro USING itab_re_final-matnr

                                                itab_re_final-nrseqre

                                                 itab_re_final-nrre

                                                 space

                                                 text-259

                                                 '@AG@'.

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

              CONTINUE.

            ENDIF.

* << Fim da inclusão

          ENDIF.

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

          IF itab_re_final-codenq3 NE '80000' AND

             itab_re_final-codenq3 NE '80116' AND

             itab_re_final-codenq3 NE '81501' AND

             NOT itab_re_final-codenq3 IS INITIAL.

* << Fim da exclusão

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

          IF itab_re_final-codenq3 NE space.

            READ TABLE itab_zycit498 WITH KEY

                                         codenq = itab_re_final-codenq3.

            IF sy-subrc NE 0.

* << Fim da inclusão

            DELETE itab_re_final.

            PERFORM preenche_itab_msg_erro USING itab_re_final-matnr

                                                itab_re_final-nrseqre

                                                 itab_re_final-nrre

                                                 space

                                                 text-259

                                                 '@AG@'.

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

              CONTINUE.

* << Fim da inclusão

          ENDIF.

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

          IF itab_re_final-codenq4 NE '80000' AND

             itab_re_final-codenq4 NE '80116' AND

             itab_re_final-codenq4 NE '81501' AND

             NOT itab_re_final-codenq4 IS INITIAL.

* << Fim da exclusão

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

          ENDIF.

          IF itab_re_final-codenq4 NE space.

            READ TABLE itab_zycit498 WITH KEY

                                         codenq = itab_re_final-codenq4.

            IF sy-subrc NE 0.

* << Fim da inclusão

            DELETE itab_re_final.

            PERFORM preenche_itab_msg_erro USING itab_re_final-matnr

                                                itab_re_final-nrseqre

                                                 itab_re_final-nrre

                                                 space

                                                 text-259

                                                 '@AG@'.

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

              CONTINUE.

            ENDIF.

* << Fim da inclusão

          ENDIF.

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

          IF itab_re_final-codenq5 NE '80000' AND

             itab_re_final-codenq5 NE '80116' AND

             itab_re_final-codenq5 NE '81501' AND

             NOT itab_re_final-codenq5 IS INITIAL.

* << Fim da exclusão

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

          IF itab_re_final-codenq5 NE space.

            READ TABLE itab_zycit498 WITH KEY

                                         codenq = itab_re_final-codenq5.

            IF sy-subrc NE 0.

* << Fim da inclusão

            DELETE itab_re_final.

            PERFORM preenche_itab_msg_erro USING itab_re_final-matnr

                                                itab_re_final-nrseqre

                                                 itab_re_final-nrre

                                                 space

                                                 text-259

                                                 '@AG@'.

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

              CONTINUE.

            ENDIF.

* << Fim da inclusão

          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.

            UPDATE /pws/zycet002 SET staprop = 'I'

                WHERE nrseq = itab_det_exp_final-nrseq

                  AND vbeln_va = itab_det_exp_final-vbeln_va

...

...

                itab_zycit281-stlal     TO itab_det_exp_final-stlal   ,

                itab_zycit281-stlan     TO itab_det_exp_final-stlan   ,

                itab_re_final-matnr     TO itab_det_exp_final-codmat  ,

                itab_re_final-vbeln_va  TO itab_det_exp_final-vbeln_va,

                itab_re_final-vbeln_vf  TO itab_det_exp_final-vbeln_vf,

                itab_re_final-posnr     TO itab_det_exp_final-posnr   ,

                itab_zycet002-vbeln_vl  TO itab_det_exp_final-vbeln_vl,

                itab_zycet002-posnl     TO itab_det_exp_final-posnl   ,

                itab_zycet002-werks     TO itab_det_exp_final-werks_e ,

                itab_zycet002-steuc     TO itab_det_exp_final-j_1bnbm ,

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

               itab_zycet002-vbeln_vl  TO itab_det_exp_final-fornec    ,

               itab_zycet002-posnl     TO itab_det_exp_final-it_fornec ,

* << Fim da exclusão

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

                itab_zycet002-vbeln_vl  TO itab_det_exp_final-fornec  ,

                itab_zycet002-posnl     TO itab_det_exp_final-it_fornec,

* << Fim da inclusão

                itab_j_1bnfdoc-nfnum    TO itab_det_exp_final-nfnum   ,

                itab_j_1bnfdoc-series   TO itab_det_exp_final-serie   ,

                itab_j_1bnfdoc-docdat   TO itab_det_exp_final-dtnf    ,

                itab_re_final-nrseqre   TO itab_det_exp_final-nrseqre ,

                itab_re_final-dtincl    TO itab_det_exp_final-dtre    ,

                itab_zycet001-nrseq     TO itab_det_exp_final-nrseq   ,

                itab_zycet001-dtemb     TO itab_det_exp_final-dtemb   ,

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

                itab_zycet001-dtaverb   TO itab_det_exp_final-dtaverb ,

* << Fim da exclusão

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

                itab_zycet003-dtaverb   TO itab_det_exp_final-dtaverb ,

* << Fim da inclusão

                itab_re_final-gewei     TO itab_det_exp_final-gewei   ,

                itab_re_final-ntgew     TO itab_det_exp_final-ntgew   ,

                itab_zycet002-brgew     TO itab_det_exp_final-brgew   ,

                itab_zycet002-vlfrete_r TO itab_det_exp_final-vlfre   ,

                itab_zycet002-vrkme     TO itab_det_exp_final-meins   ,

                itab_zycet002-fkimg     TO itab_det_exp_final-qtd_iten,

                itab_re_final-waers     TO itab_det_exp_final-waersfob,

                itab_re_final-waers     TO itab_det_exp_final-waerscif,

                itab_re_final-vfob      TO itab_det_exp_final-vlfob   ,

                itab_re_final-waers     TO itab_det_exp_final-waersemb,

...

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

Modificações efetuadas em MENU /PWS/ZYCID

...

   Comprovação Drawback Intermediário-Importação / Comercial Exportadora

   Parâmetros

           Modalidades / Tipos de Drawback

           Controle de Áreas de Negócios x Centros Produtivos

           Gerais

           Lista Técnica Materiais a Exportar

           Gerenciamento de Lista Técnica por Agrupamento

           Dados do Industrial-Exportador ( DB Interm-Import )

           Tipo de Ordem de Venda

           Tipo de Fornecimento

           Tipo de Faturamento

           Multas e Juros na Nacionalização

           Insumos Alternativos / Avanço Tecnológico

           Perdas por Material X Insumo

           Tipos de Lançamentos

           CFOP (Vendas Trading Company)

           Clientes (Vendas Trading Company)

* >> Início da inclusão: Menu /PWS/ZYCID

           Códigos de enquadramento DB Isenção

* << Fim da inclusão

           Cadastro de Procuradores

           Cadastro de Engenheiros

   Outras funcionalidades

   Outras Funcionalidades

* Transação /PWS/ZYCIT498

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

Modificações efetuadas em TABL /PWS/ZYCIT498

*Criar tabela /PWS/ZYCIT498

Classe desenvolvimento /PWS/ZYCI

Idioma original        PT

Categoria de tabela    Tabela transparente

Classe de entrega      A

Campos       CHV      Tp campo          Tabela verificação       Tabela valores

MANDT       X        MANDT      /PWS/ZYCET130       T000

CODENQ       X       /PWS/ZYCEL139      /PWS/ZYCET130

DESCENQ        /PWS/ZYCEL231

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

Modificações efetuadas em TOBJ /PWS/ZYCIT498S

Gerar atualização de tabela:

Grupo de autorização ZYCE   pw.CE - Grp. Autor.

Objeto autorização   S_TABU_DIS

Grupo de funções     /PWS/ZYCIGF1

Cl.desenvolvimento   /PWS/ZYCI

Ctg.atualização

Tela de síntese      498

Tela individual      0

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

Modificações efetuadas em TRAN /PWS/ZYCIT498

Criar transação /PWS/ZYCIT498

Texto da transação:    Códigos de enquadramento DB Isenção

Transação: SM30      Omitir 1º tela

Capacidade GUI

X SAP GUI para HTML

X SAP GUI para JAVA

X SAP GUI para Windows

Valores propostos:

Mone do campo da tela        Valor

VIEWNAME               /PWS/ZYCIT498

SHOW                      X