Sintoma

Ao vincular o embarque na li e vincular apenas um item deste embarque, emite erro de ncm diferente.

Solução

Trazer somente o item selecionado.

Informações Complementares

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

Nota Número 11416 Data: 30/08/2011 Hora: 10:14:17

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

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

Nota Número              : 11416

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00008

Agrupamento              : 00084

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

Referência às notas relacionadas:

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

09176  - 00001 - 8.0    - 00001  - NA LI NÃO ESTA VALIDANDO O IMPORTADOR AO VINCULAR O PEDIDO

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

AO VINCULAR UM ITEM APENAS DO EMBARQUE, EMITE ERRO DE NCM DIFERENTE

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

Palavras Chave:

VINCULAÇÃO - LI - ITENS EMBARQUE - NCM DIFERENTE

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

Objetos da nota:

REPS /PWS/MZYCI020F01

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

...

  ELSEIF NOT /pws/zycie078-nrseq IS INITIAL.

    SELECT * FROM /pws/zycit003

           INTO TABLE it_zycit003

           WHERE nrseq   IN so_nrseq

             AND nrseqli EQ space.

    IF NOT it_zycit003[] IS INITIAL.

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

      if not so_ebeln[] is initial.

* << Fim da inclusão

      SELECT ekko~bukrs ekko~waers ekko~lifnr ekko~aedat

             ekko~inco1 ekko~ebeln ekpo~ebelp

             ekpo~matnr ekpo~werks ekpo~bednr ekpo~menge

             ekpo~ktmng ekpo~bstyp

             ekpo~meins ekpo~ntgew ekpo~gewei ekpo~netpr ekpo~txz01

             ekpo~uebto ekpo~uebtk ekpo~j_1bnbm

             FROM ( ekpo INNER JOIN ekko ON ekpo~ebeln = ekko~ebeln )

        INTO TABLE itab_itens

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

          where

            ekko~ebeln     in so_ebeln

            and ekpo~ebelp in so_ebelp

            and ekko~bukrs eq pa_bukrs

            and ekpo~j_1bnbm in so_ncm

            and ekpo~bstyp in itab_bstyp

            and ekko~waers in so_waers

            and ekko~inco1 in so_inco1

            and ekpo~bednr in so_bednr

            and ekko~aedat in so_aedat

            and ekpo~elikz ne 'X'

            and ekpo~loekz ne 'L'.

      else.

        select ekko~bukrs ekko~waers ekko~lifnr ekko~aedat

        ekko~inco1 ekko~ebeln ekpo~ebelp

        ekpo~matnr ekpo~werks ekpo~bednr ekpo~menge

        ekpo~ktmng ekpo~bstyp

        ekpo~meins ekpo~ntgew ekpo~gewei ekpo~netpr ekpo~txz01

        ekpo~uebto ekpo~uebtk ekpo~j_1bnbm

        from ( ekpo inner join ekko on ekpo~ebeln = ekko~ebeln )

   into table itab_itens

* << Fim da inclusão

        FOR ALL ENTRIES IN it_zycit003

        WHERE

          ekko~ebeln EQ it_zycit003-ebeln

          AND ekpo~ebelp EQ it_zycit003-ebelp

          AND ekko~bukrs EQ pa_bukrs

          AND ekpo~j_1bnbm IN so_ncm

          AND ekpo~bstyp IN itab_bstyp

          AND ekko~waers IN so_waers

          AND ekko~inco1 IN so_inco1

          AND ekpo~bednr IN so_bednr

          AND ekko~aedat IN so_aedat

          AND ekpo~elikz NE 'X'

          AND ekpo~loekz NE 'L'.

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

      endif.

* << Fim da inclusão

    ENDIF.

  ELSE.

    SELECT ekko~bukrs ekko~waers ekko~lifnr ekko~aedat

           ekko~inco1 ekko~ebeln ekpo~ebelp

           ekpo~matnr ekpo~werks ekpo~bednr ekpo~menge

           ekpo~ktmng ekpo~bstyp

           ekpo~meins ekpo~ntgew ekpo~gewei ekpo~netpr ekpo~txz01

           ekpo~uebto ekpo~uebtk ekpo~j_1bnbm

           FROM ( ekpo INNER JOIN ekko ON ekpo~ebeln = ekko~ebeln )

      INTO TABLE itab_itens

...