CE PLUS - Nota 013175

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Embarque

Data/Hora da Publicação: 15/08/2013 00:00:00

Data/Hora Última Alteração: 19/08/2013 17:23:40

Descrição da Nota: ERRO AO VINCULAR LI AO EMBARQUE

Sintoma

Erro ao vincular LI ao embarque, Fabricante difrente entre LI e Fatura.

 

 

Solução

Atualizado programa para consistir o fabricante da LI com o fabricante da Fatura na vinculação da Li

de LI do embarque.

 

Versões Tratadas

9.0


Pré-Requisitos

Produto:

Nota

Descrição

VERIFICAR SE O PROCESSO ESTÁ SENDO ALTERADO POR ALGUM USUÁRIO E BLOQUEAR

LEVAR DADOS DE CÂMBIO E FABRICANTE AO VINCULAR LI OU CRIAR FATURA

Informações Complementares

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

Nota Número 13175 Data: 15/08/2013 Hora: 11:06:07

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

 

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

Nota Número              : 13175

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 9.0

Pacote                   : 00005

Agrupamento              : 00161

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

Referência às notas relacionadas:

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

 

12783  - 00001 - 9.0    - 00003  - LEVAR DADOS DE CÂMBIO E FABRICANTE AO VINCULAR LI OU CRIAR FATURA

13153  - 00002 - 9.0    - 00005  - VERIFICAR SE O PROCESSO ESTÁ SENDO ALTERADO POR ALGUM USUÁRIO E B

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

ERRO AO VINCULAR LI AO EMBARQUE

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

Palavras Chave:

FABRICANTE PEDIDO/ITEM DIFEREM ENTRE LI E FATURA

 

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

Objetos da nota:

REPS /PWS/MZYCI001F01

 

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

 

...

 

FORM vinculacao_li.

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

  DATA: vl_lifnr TYPE /pws/zycit080-lifnr.

* << Fim da inclusão

...

 

...

            MOVE v_descrlog TO itab_log-descr.

            itab_log-pos = v_pos.

            APPEND itab_log.

          ENDIF.

        ENDIF.

        CLEAR: v_descrlog.

        SELECT SINGLE lifnr INTO v_lifnrfabr

         FROM /pws/zycit080

              WHERE nrseqli EQ itab_zycit078-nrseqli

              AND tipoforn EQ 'F'.

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

        IF /pws/zycit006-fabricante EQ '2'.

          CLEAR: vl_lifnr.

          SELECT SINGLE lifnr INTO vl_lifnr

                   FROM /pws/zycit080

                        WHERE nrseqli EQ /pws/zycit006-nrseq

                        AND ebeln EQ itab_zycit003-ebeln

                        AND ebelp EQ itab_zycit003-ebelp.

          IF v_lifnrfabr NE vl_lifnr.

            CONCATENATE text-540 itab_zycit003-ebeln text-081

                        itab_zycit003-ebelp text-091

             INTO v_descrlog  SEPARATED BY space.

            MOVE: itab_zycit003-ebeln   TO itab_log-ebeln  ,

                  itab_zycit003-ebelp   TO itab_log-ebelp  ,

                  itab_zycit078-nrseqli TO itab_log-nrseqli,

                  v_descrlog            TO itab_log-descr  .

            v_pos = v_pos + 1.

            itab_log-pos = v_pos.

            APPEND itab_log.

          ENDIF.

        ELSE.

* << Fim da inclusão

        IF v_lifnrfabr NE /pws/zycit006-lifnrfabr.

          CONCATENATE text-540 itab_zycit003-ebeln text-081

                      itab_zycit003-ebelp text-091

           INTO v_descrlog  SEPARATED BY space.

          MOVE: itab_zycit003-ebeln   TO itab_log-ebeln  ,

                itab_zycit003-ebelp   TO itab_log-ebelp  ,

                itab_zycit078-nrseqli TO itab_log-nrseqli,

                v_descrlog            TO itab_log-descr  .

          v_pos = v_pos + 1.

          itab_log-pos = v_pos.

          APPEND itab_log.

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

          ENDIF.

* << Fim da inclusão

        ENDIF.

      ENDIF.

      CLEAR: v_descrlog.

      IF NOT itab_zycit003-qtd_itend IS INITIAL.

        IF itab_zycit079-ntgew NE itab_zycit003-ntgewd.

          IF /pws/zycit006 IS INITIAL.

            CONCATENATE text-087 itab_zycit003-ebeln text-081

                        itab_zycit003-ebelp text-082

             INTO v_descrlog  SEPARATED BY space.

          ELSE .

...