Sintoma

O programa de explosão não está trazendo todos os insumos da lista técnica.

Solução

Ajustado programa para levar como ultimo nivel da lista os insumos que possuirem lista técnica

vazia.

Informações Complementares

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

Nota Número 02820 Data: 05/01/2007 Hora: 14:30:31

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

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

Nota Número              : 02820

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

TRAZER OS ITENS QUE POSSUEM LISTA TECNICA VAZIA

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

Palavras Chave:

EXPLOSÃO - LISTA - TÉCNNICA - ITEM - VAZIA

/PWS/ZYCIR106

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

Objetos da nota:

REPS /PWS/ZYCIR106

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

Modificações efetuadas em REPS /PWS/ZYCIR106

...

                               v_dtval.

    ELSE.

      PERFORM f_explosao USING i_mat-werks

                               wa_zycit321-capid2

                               wa_zycit321-stlan2

                               v_dtval.

    ENDIF.

    v_stlal = '01'.

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

      IF v_tipo EQ space AND sy-subrc EQ 5 OR

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

         v_tipo EQ space AND sy-subrc EQ 7.

* << Fim da exclusão

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

         v_tipo EQ space AND sy-subrc EQ 7 OR

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

* << Fim da inclusão

        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.

        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

...