Sintoma

O programa está permitindo vincular pedidos de materiais que não possuem unidade de medida NCM

cadastrada.

Solução

Incluida consistencia que verifica se o NCM possue unidade de medida NCM cadastrada.

Informações Complementares

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

Nota Número 05529 Data: 27/12/2007 Hora: 14:03:22

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

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

Nota Número              : 05529

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

O PROGRAMA ESTÁ PERMITINDO VINCULAR PEDIDO SEM A UNIDADE DE MEDIDA NCM

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

Palavras Chave:

VINCULAÇÃO PEDIDO IMPORTAÇÃO DRAWBACK

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

Objetos da nota:

REPS /PWS/MZYCI068F01

REPS /PWS/MZYCI068I01

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

Modificações efetuadas em REPS /PWS/MZYCI068F01

...

  itab_zycit376[] = itab_zycit376_t[].

  DELETE itab_zycit376 WHERE marc NE 'X'.

  LOOP AT itab_zycit376.

    READ TABLE itab_ekpo WITH KEY ebeln = itab_zycit376-ebeln

                                  ebelp = itab_zycit376-ebelp.

    itab_zycit376-qtd_apro = itab_zycit376-qtd_iten.

    PERFORM converte_um_ncm  USING itab_zycit376-matnr

                          CHANGING itab_zycit376-meins

                                   itab_ekpo-werks

                                   itab_zycit376-qtd_apro.

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

    IF itab_zycit376-qtd_iten IS INITIAL or

* << Fim da inclusão

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

    IF itab_zycit376-qtd_iten IS INITIAL.

* << Fim da exclusão

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

       itab_zycit376-qtd_apro is initial.

* << Fim da inclusão

      DELETE itab_zycit376.

      CONTINUE.

    ENDIF.

    IF /pws/zycit321-apr_imp IS INITIAL.

      /pws/zycie376 = itab_zycit376.

    ENDIF.

    MODIFY itab_zycit376.

    v_qtd_tot = v_qtd_tot + itab_zycit376-qtd_apro.

    v_vlfob = v_vlfob + itab_zycit376-vlfob.

  ENDLOOP.

...

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

Modificações efetuadas em REPS /PWS/MZYCI068I01

MODULE user_command_0100 INPUT.

  CASE ok_code.

    WHEN 'VINC'.

      READ TABLE itab_zycit376_t WITH KEY marc = 'X'.

      IF sy-subrc EQ 0.

        PERFORM vic_ped.

* >> Início da inclusão: MODULE USER_COMMAND_0100

        IF NOT itab_zycit376[] IS INITIAL.

* << Fim da inclusão

        PERFORM move_atos.

        tc_atos-top_line = 1.

        CALL SCREEN 0200.

* >> Início da inclusão: MODULE USER_COMMAND_0100

        ELSE.

          MESSAGE i015 WITH text-005.

        ENDIF.

* << Fim da inclusão

      ENDIF.

    WHEN 'NVINC'.

...