Sintoma

O programa de composição não trás os insumos da lista técnica que sejam nacionais de acordo com o

cadastro do material.

O programa não busca DI¿s que utilizaram drawback isenção.

Solução

Remover a verificação de procedencia do material e ajustar o programa para trazer DI¿s nas quais

foram utilizados atos concessório do tipo isenção.

Informações Complementares

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

Nota Número 01396 Data: 24/05/2006 Hora: 09:56:09

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

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

Nota Número              : 01396

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

TRAZER TODOS OS INSUMOS DA LISTA TÉCNICA PARA A COMPOSIÇÃO.

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

Palavras Chave:

COMPOSIÇÃO - INSUMOS - MERCADO - INTERNO - /PWS/SAPMZYCI064

SELEÇÃO - DI - ISENÇÃO

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

Objetos da nota:

REPS /PWS/MZYCI064F03

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

Modificações efetuadas em REPS /PWS/MZYCI064F03

...

                               vbeln_vf = itab_det_exp-vbeln_vf

                               posnr    = itab_det_exp-posnr.

      IF sy-subrc NE 0.

        LOOP AT i_final.

          READ TABLE itab_mbew WITH KEY matnr = i_final-insumo.

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

          IF itab_mbew-mtorg NE '0'.

* << Fim da exclusão

            CLEAR itab_comp_vinc_final.

            MOVE:

             /pws/zycie258-nrseqd   TO itab_comp_vinc_final-nrseqd ,

              itab_det_exp-codmat   TO itab_comp_vinc_final-codmat ,

              itab_det_exp-nrseqre  TO itab_comp_vinc_final-nrseqre,

...

...

            itab_comp_vinc_final-qtd_total =

              itab_comp_vinc_final-qtd_iten * itab_det_exp-qtd_iten.

            itab_comp_vinc_final-qtd_stotal =

                                     itab_comp_vinc_final-qtd_total.

            COLLECT itab_comp_vinc_final.

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

          ENDIF.

* << Fim da exclusão

        ENDLOOP.

      ENDIF.

     SORT itab_comp_vinc_final BY nrseqre nrseq vbeln_va vbeln_vf posnr

                                                         codmat codcomp.

    ENDIF.

...

...

        v_vlreali LIKE /pws/zycit100-vlfob,

        v_fator_conv LIKE /pws/zycit100-vlfob.

  DATA: BEGIN OF itab_insumo_di OCCURS 0.

  DATA: matnr LIKE  mara-matnr.

  DATA: END OF itab_insumo_di.

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

  DATA: itab_zycit003_t2 TYPE /pws/zycit003 OCCURS 0 WITH HEADER LINE,

        itab_zycit244 TYPE /pws/zycit244 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  IF /pws/zycie258-tipo NE 'I'.

  ENDIF.

  DATA: itab_ekpo_sort     LIKE ekpo          OCCURS 0 WITH HEADER LINE.

  DATA: itab_comp_sort3 LIKE itab_comp_vinc_final

                                      OCCURS 0 WITH HEADER LINE.

...

...

      APPEND itab_insumo_di.

    ENDIF.

  ENDLOOP.

  SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003

      FOR ALL ENTRIES IN itab_insumo_di

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

         WHERE nrseqd     EQ space

           AND matnr      EQ itab_insumo_di-matnr

           AND nrdrawback EQ space.

* << Fim da exclusão

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

         WHERE

               matnr      EQ itab_insumo_di-matnr.

  IF NOT itab_zycit003[] IS INITIAL.

    itab_zycit003_t2[] = itab_zycit003[].

    DELETE itab_zycit003_t2 WHERE nrseqd EQ space.

    SORT itab_zycit003_t2 BY nrseqd.

    DELETE ADJACENT DUPLICATES FROM itab_zycit003_t2 COMPARING nrseqd.

    IF NOT itab_zycit003_t2[] IS INITIAL.

      SELECT * FROM /pws/zycit244 INTO TABLE itab_zycit244

          FOR ALL ENTRIES IN itab_zycit003_t2

          WHERE nrseqd EQ itab_zycit003_t2-nrseqd

            AND modalidade EQ 'S'.

      LOOP AT itab_zycit244.

        DELETE itab_zycit003 WHERE nrseqd EQ itab_zycit244-nrseqd.

      ENDLOOP.

    ENDIF.

  ENDIF.

* << Fim da inclusão

  IF NOT itab_zycit003[] IS INITIAL.

    SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100

           FOR ALL ENTRIES IN itab_zycit003

           WHERE nrseq EQ itab_zycit003-nrseq

             AND ebeln EQ itab_zycit003-ebeln

...