CE PLUS - Nota 004776
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 20/09/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 10:52:21
Descrição da Nota: EXIBIR NÚMERO DE PEDIDO DE COMPRA E ITEM NAS INCONSISTÊNCIA DO EMBARQUE
Sintoma
Quando o Embarque é do tipo 'D' (Embarque por Pedido de Compra), caso sejam encontradas
inconsistências, as mensagens exibidas no pop-up não exibem o número do Pedido de Compra / Item
inconsistente.
Solução
Para Embarque por Pedido de Compra, exibir mensagem com Pedido de Compra / Item de Pedido de Compra.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04776 Data: 20/09/2007 Hora: 15:17:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04776
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00013
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04603 - 00001 - 7.0 - 00002 - MENSAGEM DE CONSISTÊNCIA DE ITEM AO INCLUIR UMA ORDEM NO EMBARQUE
----------------------------------------------------------------------------------------------------
EXIBIR NÚMERO DE PEDIDO DE COMPRA E ITEM NAS INCONSISTÊNCIA DO EMBARQUE
----------------------------------------------------------------------------------------------------
Palavras Chave:
PEDIDO, COMPRA, ITEM, CONSISTÊNCIA, EMBARQUE, MENSAGEM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
txtnr = 241
zeile = 'PARVW_ERR'.
IF p_excluir EQ 'X'.
DELETE itab_zycet002.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
CLEAR v_kunnr.
LOOP AT itab_zycet002.
* >> Início da inclusão: FORM CONSISTENCIA_ITENS
IF /pws/zycee001-tipo_emb EQ 'D'.
v_vbeln = itab_zycet002-ebeln.
v_posnr = itab_zycet002-ebelp.
ELSE.
v_vbeln = itab_zycet002-vbeln_va.
v_posnr = itab_zycet002-aupos.
ENDIF.
* << Fim da inclusão
IF NOT itab_zycet002-kunag IS INITIAL.
IF v_kunnr IS INITIAL.
v_kunnr = itab_zycet002-kunag.
ENDIF.
IF itab_zycet002-kunag NE v_kunnr.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = v_msgtp
msgv1 = text-558
* >> Início da exclusão: FORM CONSISTENCIA_ITENS
msgv2 = itab_zycet002-vbeln_va
msgv3 = itab_zycet002-aupos
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTENCIA_ITENS
msgv2 = v_vbeln
msgv3 = v_posnr
* << Fim da inclusão
txtnr = 241
zeile = 'PARVW_ERR'.
IF p_excluir EQ 'X'.
itab_zycet002-mark = 'X'.
MODIFY itab_zycet002.
ENDIF.
ENDIF.
ENDIF.
IF itab_zycet037-alt_cond NE '1'.
IF itab_zycet002-devolucao IS INITIAL AND
...
...
NOT itab_zycet002-zterm IS INITIAL.
IF v_zterm IS INITIAL.
v_zterm = itab_zycet002-zterm.
ENDIF.
IF itab_zycet002-zterm NE v_zterm.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = v_msgtp
msgv1 = text-559
* >> Início da exclusão: FORM CONSISTENCIA_ITENS
msgv2 = itab_zycet002-vbeln_va
msgv3 = itab_zycet002-aupos
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTENCIA_ITENS
msgv2 = v_vbeln
msgv3 = v_posnr
* << Fim da inclusão
txtnr = 241
zeile = 'ZTERM_ERR'.
IF p_excluir EQ 'X'.
itab_zycet002-mark = 'X'.
MODIFY itab_zycet002.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF NOT itab_zycet002-bukrs IS INITIAL.
IF v_bukrs IS INITIAL.
v_bukrs = itab_zycet002-bukrs.
ENDIF.
IF v_bukrs NE itab_zycet002-bukrs.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = v_msgtp
msgv1 = text-560
* >> Início da exclusão: FORM CONSISTENCIA_ITENS
msgv2 = itab_zycet002-vbeln_va
msgv3 = itab_zycet002-aupos
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTENCIA_ITENS
msgv2 = v_vbeln
msgv3 = v_posnr
* << Fim da inclusão
txtnr = 241
zeile = 'BUKRS_ERR'.
IF p_excluir EQ 'X'.
itab_zycet002-mark = 'X'.
MODIFY itab_zycet002.
ENDIF.
ENDIF.
ENDIF.
IF itab_zycet037-alt_incoterm NE '1'.
IF NOT itab_zycet002-inco1 IS INITIAL.
IF v_inco1 IS INITIAL.
v_inco1 = itab_zycet002-inco1.
ENDIF.
IF itab_zycet002-inco1 NE v_inco1.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = v_msgtp
msgv1 = text-561
* >> Início da exclusão: FORM CONSISTENCIA_ITENS
msgv2 = itab_zycet002-vbeln_va
msgv3 = itab_zycet002-aupos
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTENCIA_ITENS
msgv2 = v_vbeln
msgv3 = v_posnr
* << Fim da inclusão
txtnr = 241
zeile = 'INCO1_ERR'.
IF p_excluir EQ 'X'.
itab_zycet002-mark = 'X'.
MODIFY itab_zycet002.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF NOT itab_zycet002-waers IS INITIAL.
IF v_waers IS INITIAL.
v_waers = itab_zycet002-waers.
ENDIF.
IF itab_zycet002-waers NE v_waers.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = v_msgtp
msgv1 = text-562
* >> Início da exclusão: FORM CONSISTENCIA_ITENS
msgv2 = itab_zycet002-vbeln_va
msgv3 = itab_zycet002-aupos
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTENCIA_ITENS
msgv2 = v_vbeln
msgv3 = v_posnr
* << Fim da inclusão
txtnr = 241
zeile = 'WAERS_ERR'.
IF p_excluir EQ 'X'.
itab_zycet002-mark = 'X'.
MODIFY itab_zycet002.
ENDIF.
ENDIF.
ENDIF.
IF NOT itab_zycet002-vtweg IS INITIAL.
IF v_vtweg IS INITIAL.
v_vtweg = itab_zycet002-vtweg.
ENDIF.
IF itab_zycet002-vtweg NE v_vtweg.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = v_msgtp
msgv1 = text-563
* >> Início da exclusão: FORM CONSISTENCIA_ITENS
msgv2 = itab_zycet002-vbeln_va
msgv3 = itab_zycet002-aupos
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTENCIA_ITENS
msgv2 = v_vbeln
msgv3 = v_posnr
* << Fim da inclusão
txtnr = 241
zeile = 'VTWEG_ERR'.
IF p_excluir EQ 'X'.
itab_zycet002-mark = 'X'.
MODIFY itab_zycet002.
ENDIF.
ENDIF.
ENDIF.
IF NOT itab_zycet002-vkorg IS INITIAL.
IF v_vkorg IS INITIAL.
v_vkorg = itab_zycet002-vkorg.
ENDIF.
IF itab_zycet002-vkorg NE v_vkorg.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = v_msgtp
msgv1 = text-564
* >> Início da exclusão: FORM CONSISTENCIA_ITENS
msgv2 = itab_zycet002-vbeln_va
msgv3 = itab_zycet002-aupos
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTENCIA_ITENS
msgv2 = v_vbeln
msgv3 = v_posnr
* << Fim da inclusão
txtnr = 241
zeile = 'VKORG_ERR'.
IF p_excluir EQ 'X'.
itab_zycet002-mark = 'X'.
MODIFY itab_zycet002.
ENDIF.
ENDIF.
ENDIF.
IF itab_zycet037-centro_dif = 0.
IF itab_zycet002-werks NE /pws/zycee001-werks.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = v_msgtp
msgv1 = text-565
* >> Início da exclusão: FORM CONSISTENCIA_ITENS
msgv2 = itab_zycet002-vbeln_va
msgv3 = itab_zycet002-aupos
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTENCIA_ITENS
msgv2 = v_vbeln
msgv3 = v_posnr
* << Fim da inclusão
txtnr = 241
zeile = 'WERKS_ERR'.
IF p_excluir EQ 'X'.
itab_zycet002-mark = 'X'.
MODIFY itab_zycet002.
ENDIF.
ENDIF.
IF itab_zycet002-gsber NE /pws/zycee001-gsber.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = v_msgtp
msgv1 = text-566
* >> Início da exclusão: FORM CONSISTENCIA_ITENS
msgv2 = itab_zycet002-vbeln_va
msgv3 = itab_zycet002-aupos
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTENCIA_ITENS
msgv2 = v_vbeln
msgv3 = v_posnr
* << Fim da inclusão
txtnr = 241
zeile = 'GSBER_ERR'.
IF p_excluir EQ 'X'.
itab_zycet002-mark = 'X'.
MODIFY itab_zycet002.
ENDIF.
ENDIF.
ELSE.
IF itab_zycet002-werks NE /pws/zycee001-werks.
wa_limpa-werks = 'X'.
...