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.
7.0
Produto:
Nota
Descrição
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
...