CE PLUS - Nota 004603

Módulo: DOC. EXPORTAÇÃO

Funcionalidade: Embarque

Data/Hora da Publicação: 03/09/2007 00:00:00

Data/Hora Última Alteração: 22/02/2011 10:51:51

Descrição da Nota: MENSAGEM DE CONSISTÊNCIA DE ITEM AO INCLUIR UMA ORDEM NO EMBARQUE

Sintoma

Quando uma ordem/item é incluída em um Embarque, caso haja remessas para a mesma ordem/item

incluídas em outro Embarque, uma mensagem de aviso é exibida, identificando que a ordem/item também

pertencem a outro Embarque.

 

 

Solução

Ajuste na mensagem de aviso emitida.

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

SELEÇÃO DE DOCUMENTO DE VENDAS QUANDO EMBARQUE POR PEDIDO DE COMPRA

Informações Complementares

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

Nota Número 04603 Data: 03/09/2007 Hora: 13:47:21

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

 

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

Nota Número              : 04603

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00012

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

Referência às notas relacionadas:

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

 

04447  - 00001 - 7.0    - 00002  - SELEÇÃO DE DOCUMENTO DE VENDAS QUANDO EMBARQUE POR PEDIDO DE COMP

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

MENSAGEM DE CONSISTÊNCIA DE ITEM AO INCLUIR UMA ORDEM NO EMBARQUE

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

Palavras Chave:

MENSAGEM, ITEM, EMBARQUE, ORDEM, CONSISTÊNCIA

 

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

Objetos da nota:

DOCU NA/PWS/ZYCEM290

DOCU NA/PWS/ZYCEM291

MESS /PWS/ZYCEM290

MESS /PWS/ZYCEM291

REPS /PWS/MZYCE003F01

 

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

Modificações efetuadas em MESS /PWS/ZYCEM290

 

CRIAR mensagem 290 na classe de mensagens /PWS/ZYCEM.

 

Mensagem   Txt. Breve mensagem                                Auto-explicat.

290        Ordem &1 item &2 também pertence ao Embarque &3.   X

 

 

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

Modificações efetuadas em MESS /PWS/ZYCEM291

 

CRIAR mensagem 291 na classe de mensagens /PWS/ZYCEM.

 

Mensagem   Txt. Breve mensagem                                Auto-explicat.

291        Pedido &1 item &2 também pertence ao Embarque &3.  X

 

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

Modificações efetuadas em REPS /PWS/MZYCE003F01

 

...

                 ebeln    = itab_zycet002-ebeln

                 ebelp    = itab_zycet002-ebelp.

      IF sy-subrc IS INITIAL.

        IF itab_zycet002-vbeln_va IS INITIAL.

          CALL FUNCTION 'MESSAGE_STORE'

               EXPORTING

                    arbgb = '/PWS/ZYCEM'

                    msgty = v_msgtp

                    msgv1 = itab_zycet002-ebeln

                    msgv2 = itab_zycet002-ebelp

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

                    msgv3 = itab_zycet002-vbeln_vl

                    msgv4 = itab_zycet002_existe-nrseq

                    txtnr = 077

* << Fim da exclusão

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

                    msgv3 = itab_zycet002_existe-nrseq

                    txtnr = 291

* << Fim da inclusão

                    zeile = 'NRSEQ_ERR'.

        ELSE.

          CALL FUNCTION 'MESSAGE_STORE'

               EXPORTING

                    arbgb = '/PWS/ZYCEM'

                    msgty = v_msgtp

                    msgv1 = itab_zycet002-vbeln_va

                    msgv2 = itab_zycet002-aupos

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

                    msgv3 = itab_zycet002-vbeln_vl

                    msgv4 = itab_zycet002_existe-nrseq

                    txtnr = 077

* << Fim da exclusão

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

                    msgv3 = itab_zycet002_existe-nrseq

                    txtnr = 290

* << Fim da inclusão

                    zeile = 'NRSEQ_ERR'.

        ENDIF.

      ENDIF.

    ENDIF.

  ENDLOOP.

  IF NOT v_cabec IS INITIAL.

    PERFORM cabecalho_dados_organizacao USING v_cabec.

  ENDIF.

  SORT itab_zycet002 BY novo     ASCENDING

                        vbeln_va

...