Sintoma

Em clientes que possuem listas técnicas com muito insumos o programa exige que todas as unidades de

medida estatistica sejam cadastradas mesmo para os produtos que não são utilizados no drawback.

Solução

Atualização da explosão da lista técnica para utilizar apenas os insumos cadastrados para uso no

Drawback.

Informações Complementares

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

Nota Número 07576 Data: 14/11/2008 Hora: 14:14:45

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

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

Nota Número              : 07576

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00073

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

Referência às notas relacionadas:

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

01787  - 00001 - 6.0    - 00024  - IGUALANDO UNIDADE DE MEDIDA POR ITEM

02820  - 00002 - 6.0    - 00026  - TRAZER OS ITENS QUE POSSUEM LISTA TECNICA VAZIA

04265  - 00003 - 7.0    - 00002  - EXPLOSÃO DA LISTA TÉCNICA MULTINÍVEL

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

UTILIZAÇÃO DOS INSUMOS DA TABELA /PWS/ZYCIT322

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

Palavras Chave:

INSUMOS CONVERSÃO NCM /PWS/ZYCIT322

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

Objetos da nota:

REPS /PWS/ZYCIR106

TABD /PWS/ZYCIT322

TABU TMENU01

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

Modificações efetuadas em REPS /PWS/ZYCIR106

...

      so_data    LIKE sy-datum                ,

      idmemory1  LIKE indx-srtfd VALUE 'ITMAT',

      idmemory2  LIKE indx-srtfd VALUE 'ITINS'.

START-OF-SELECTION.

  SELECT SINGLE * FROM /pws/zycit321 INTO wa_zycit321.

  IF sy-subrc NE 0.

    FREE MEMORY ID idmemory2.

  ELSE.

    IMPORT it_materiais FROM MEMORY ID idmemory1.

    IF sy-subrc EQ 0.

* >> Início da inclusão:

    SELECT * FROM /pws/zycit322 INTO TABLE itab_zycit322."#EC CI_NOWHERE

* << Fim da inclusão

      SELECT matnr mtart INTO TABLE i_mara FROM mara

             FOR ALL ENTRIES IN it_materiais

             WHERE matnr EQ it_materiais-matnr.

      so_data = dtval = sy-datum.

      LOOP AT i_mara.

        READ TABLE it_materiais WITH KEY matnr = i_mara-matnr.

        SELECT SINGLE * FROM t001w

          WHERE werks EQ it_materiais-werks.

        wa_zycit321-capid1 = wa_zycit321-capid2 =

                    it_materiais-capid.

...

...

    ENDIF.

    IF sy-subrc NE 0 OR i_stb[] IS INITIAL.

      IF v_tipo EQ space AND sy-subrc EQ 5 OR

         v_tipo EQ space AND sy-subrc EQ 7 OR

         ( i_stb[] IS INITIAL AND sy-subrc EQ 0 ).

        i_final-produto  = v_item.

        i_final-insumo = i_mat-matnr.

        i_final-centro   = i_mat-werks.

        i_final-qtunit   = i_mat-qtde.

        i_final-meins    = i_mat-meins.

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

        IF NOT itab_zycit322[] IS INITIAL.

          READ TABLE itab_zycit322 WITH KEY matnr = i_final-insumo.

          IF sy-subrc EQ 0.

* << Fim da inclusão

        SELECT SINGLE a~steuc INTO i_final-ncm

               FROM ( marc AS a INNER JOIN t001w AS b ON"#EC CI_BUFFJOIN

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

                          a~werks EQ b~werks )

                   WHERE a~matnr EQ i_final-produto

                     AND a~steuc NE space

                     AND b~land1 EQ t001w-land1.

            PERFORM carrega_umncm_real USING i_final-insumo

                                    CHANGING i_final-meins

                                             i_final-qtunit.

            IF NOT i_final-qtunit IS INITIAL.

              COLLECT i_final.

            ENDIF.

          ENDIF.

        ELSE.

          SELECT SINGLE a~steuc INTO i_final-ncm

             FROM ( marc AS a INNER JOIN t001w AS b ON "#EC CI_BUFFJOIN

* << Fim da inclusão

                      a~werks EQ b~werks )

               WHERE a~matnr EQ i_final-produto

                 AND a~steuc NE space

                 AND b~land1 EQ t001w-land1.

        PERFORM carrega_umncm_real USING i_final-insumo

                                CHANGING i_final-meins

                                         i_final-qtunit.

        IF NOT i_final-qtunit IS INITIAL.

          COLLECT i_final.

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

          ENDIF.

* << Fim da inclusão

        ENDIF.

      ENDIF.

    ELSE.

      IF NOT i_mat-meins IS INITIAL.

        PERFORM converte_unidades USING v_selpool-matnr

                                        v_selpool-bmein

                                        i_mat-meins

                               CHANGING v_selpool-bmeng.

      ENDIF.

    ENDIF.

...

...

        CONTINUE.

      ELSE.

        IF i_stb-mtart EQ v_tipo OR

          ( i_stb-rekrs EQ 'X' AND

            wa_zycit321-recursivo EQ ' ' ).

          i_final-produto  = v_item.

          i_final-insumo = i_stb-idnrk.

          i_final-centro   = i_stb-werks.

          i_final-qtunit   = v_quant.

          i_final-meins    = i_stb-meins.

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

          IF NOT itab_zycit322[] IS INITIAL.

            READ TABLE itab_zycit322 WITH KEY matnr = i_final-insumo.

            IF sy-subrc EQ 0.

              SELECT SINGLE a~steuc INTO i_final-ncm

                     FROM ( marc AS a INNER JOIN t001w AS b ON

                            a~werks EQ b~werks )

                     WHERE a~matnr EQ i_final-produto

                       AND a~steuc NE space

                    AND b~land1 EQ t001w-land1.        "#EC CI_BUFFJOIN

              PERFORM carrega_umncm_real USING i_final-insumo

                                      CHANGING i_final-meins

                                               i_final-qtunit.

              IF NOT i_final-qtunit IS INITIAL.

                COLLECT i_final.

              ENDIF.

            ENDIF.

          ELSE.

* << Fim da inclusão

          SELECT SINGLE a~steuc INTO i_final-ncm

                 FROM ( marc AS a INNER JOIN t001w AS b ON

                        a~werks EQ b~werks )

                 WHERE a~matnr EQ i_final-produto

                   AND a~steuc NE space

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

                   AND b~land1 EQ t001w-land1.         "#EC CI_BUFFJOIN

* << Fim da exclusão

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

                     AND b~land1 EQ t001w-land1.       "#EC CI_BUFFJOIN

* << Fim da inclusão

          PERFORM carrega_umncm_real USING i_final-insumo

                                  CHANGING i_final-meins

                                           i_final-qtunit.

          IF NOT i_final-qtunit IS INITIAL.

            COLLECT i_final.

          ENDIF.

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

          ENDIF.

* << Fim da inclusão

          IF v_prim_nivel = 'N'.

...

...

          ENDLOOP.

          IF NOT itab_t415s IS INITIAL.

            i_mat-stlal = itab_list-stlal.

            APPEND i_mat.

          ELSE.

            i_final-produto  = v_item.

            i_final-insumo = i_stb-idnrk.

            i_final-centro   = i_stb-werks.

            i_final-qtunit   = v_quant.

            i_final-meins    = i_stb-meins.

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

            IF NOT itab_zycit322[] IS INITIAL.

              READ TABLE itab_zycit322 WITH KEY matnr = i_final-insumo.

              IF sy-subrc EQ 0.

                SELECT SINGLE a~steuc INTO i_final-ncm

                       FROM ( marc AS a INNER JOIN t001w AS b ON

                              a~werks EQ b~werks )

                       WHERE a~matnr EQ i_final-produto

                         AND a~steuc NE space

                         AND b~land1 EQ t001w-land1.   "#EC CI_BUFFJOIN

                PERFORM carrega_umncm_real USING i_final-insumo

                                        CHANGING i_final-meins

                                                 i_final-qtunit.

                IF NOT i_final-qtunit IS INITIAL.

                  COLLECT i_final.

                ENDIF.

              ENDIF.

            ELSE.

* << Fim da inclusão

            SELECT SINGLE a~steuc INTO i_final-ncm

                   FROM ( marc AS a INNER JOIN t001w AS b ON

                          a~werks EQ b~werks )

                   WHERE a~matnr EQ i_final-produto

                     AND a~steuc NE space

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

                     AND b~land1 EQ t001w-land1.       "#EC CI_BUFFJOIN

* << Fim da exclusão

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

                       AND b~land1 EQ t001w-land1.     "#EC CI_BUFFJOIN

* << Fim da inclusão

            PERFORM carrega_umncm_real USING i_final-insumo

                                    CHANGING i_final-meins

                                             i_final-qtunit.

            IF NOT i_final-qtunit IS INITIAL.

              COLLECT i_final.

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

              ENDIF.

* << Fim da inclusão

            ENDIF.

          ENDIF.

...

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

Modificações efetuadas em TABD /PWS/ZYCIT322

*Alteração da descrição breve da tabela:

De:   CI - Validade Materiais Drawback Genérico

Para: CI - Validade Materiais Drawback

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

Modificações efetuadas em TABU TMENU01 /PWS/ZYCID

CI - Drawback

Forecast ( Planejamento de vendas )

Composição de Drawback Isenção

Ato Concessório

Apropriação de Exportação

Vinculação de Importação

Siscomex

Entrada de Notas Fiscais (Mercado Interno)

Relatórios

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)

             Códigos de enquadramento DB Isenção

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

             Validade Materiais Drawback

* << Fim da inclusão

             Cadastro de Procuradores

             Cadastro de Engenheiros

Outras funcionalidades

* Transação /PWS/ZYCIT322