CE PLUS - Nota 012019
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 14/03/2012 10:20:54
Data/Hora Última Alteração: 14/03/2012 10:20:54
Descrição da Nota: EMBARQUE - GRANEL - QUANTIDADE DESEMBARCADA - PESO LIQUIDO DESEMBARCADA
Sintoma
Mesmo sendo granel preenchi apenas a coluna de quantidade desembarcada, deixando em branco a coluna
peso líquido desembarcado.
Não foi possível salvar o embarque por se tratar de granel e os dois campos devem estar
preenchidos. Porém, como o embarque tem três itens, a mensagem apareceu três vezes. Talvez fosse
melhor indicar quais pedido/item estão incorretos uma telinha.
Solução
Exibir todos os erros numa única vez, numa telinha.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12019 Data: 08/03/2012 Hora: 16:05:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12019
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00010
Agrupamento : 00107
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05925 - 00001 - 7.0 - 00004 - AO CRIAR EMBARQUE GRANEL OCORRE FALHA NO RATEIO POR PESO
07157 - 00002 - 7.0 - 00006 - MENSAGEM CONFIGURAVEL "VERIFICAR PEDIDO PASTA CONFIRMAÇÕES"
08741 - 00003 - 7.0 - 00010 - NO EMBARQUE VERIFICAR SE O FORNECEDOR É NACIONAL
08902 - 00004 - 7.0 - 00010 - IMPLEMENTAÇÃO PARA FECHAR CAMPOS APÓS VINCULAR LI NO EMBARQUE
10535 - 00005 - 8.0 - 00004 - TRATAMENTO DE ADMISSÃO TEMPORÁRIA E CONSUMO NO EMBARQUE
10886 - 00006 - 8.0 - 00006 - TRATAMENTO PARA UTILIZAR LI COM GRANEL
11867 - 00007 - 8.0 - 00010 - NÃO OBEDECE PARAMETROS DA TABELA /PWS/ZYGLT217
----------------------------------------------------------------------------------------------------
EMBARQUE - GRANEL - QUANTIDADE DESEMBARCADA - PESO LIQUIDO DESEMBARCADA
----------------------------------------------------------------------------------------------------
Palavras Chave:
/PWS/SAPMZYCI001 - PROCESSO DE EMBARQUE - GRANEL
QUANTIDADE DESEMBARCADA - PESO LIQUIDO DESEMBARCADA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI001X01
REPT /PWS/SAPMZYCI001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
FORM grava_tabelas CHANGING p_abort.
* >> Início da inclusão: FORM GRAVA_TABELAS
DATA: lv_message.
* << Fim da inclusão
...
...
ENDIF.
IF itab_zycit442-codreg EQ '04'.
IF /pws/zycie001-regime NE '16' AND
/pws/zycie001-regime NE '04'.
MESSAGE s015 WITH text-444.
v_sair = 'X'.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
* >> Início da inclusão: FORM GRAVA_TABELAS
CALL FUNCTION 'MESSAGES_INITIALIZE'.
* << Fim da inclusão
LOOP AT itab_zycit003.
IF ( NOT itab_zycit003-qtd_itend IS INITIAL AND
itab_zycit003-ntgewd IS INITIAL ) OR
( itab_zycit003-qtd_itend IS INITIAL AND
NOT itab_zycit003-ntgewd IS INITIAL ).
v_sair = 'X'.
* >> Início da exclusão: FORM GRAVA_TABELAS
MESSAGE i015 WITH text-465 text-466.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
lv_message = 'X'.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
exception_if_not_active = ' '
msgty = 'E'
msgv1 = itab_zycit003-ebeln
msgv2 = itab_zycit003-ebelp
msgv3 = text-531
txtnr = '015'
zeile = '01'.
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit003-nrseqli IS INITIAL.
SELECT SINGLE * FROM /pws/zycit079
WHERE nrseqli EQ itab_zycit003-nrseqli
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
IF itab_zycit003-qtd_itend IS INITIAL.
IF /pws/zycit079-qtd_iten < itab_zycit003-qtd_iten.
v_sair = 'X'.
MESSAGE i015 WITH text-496 text-497.
...
...
MESSAGE i015 WITH text-496 text-497.
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycie001-regime EQ '12'.
IF itab_zycit003-adm_temp EQ 'X' .
v_adm_temp = 'X'.
ENDIF.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM GRAVA_TABELAS
IF lv_message EQ 'X'.
CALL FUNCTION 'MESSAGES_SHOW'
EXPORTING
object = '/PWS/SAPMZYCI001'
i_amodal_window = ' '.
CALL FUNCTION 'MESSAGES_INITIALIZE'.
ENDIF.
* << Fim da inclusão
IF /pws/zycie001-regime EQ '12'
AND v_adm_temp NE 'X'.
MESSAGE i015 WITH text-514 text-515.
EXIT .
ENDIF.
IF v_sair = 'X'.
EXIT.
ENDIF.
v_nrseqerro = space.
CLEAR: itab_zycit008.
...
...
itab_itens-wepos EQ 'X' AND
itab_itens-elikz NE 'X'.
v_confirm = 'X'.
ENDIF.
PERFORM converte USING itab_itens-matnr
itab_itens-meins
' '
itab_itens-j_1bnbm
CHANGING itab_zycit003-qtd_iten
itab_zycit003-meinsest .
* >> Início da exclusão: FORM SELECIONAR_ITENS
IF v_erro = 'X' .
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS
IF v_error = 'X' .
* << Fim da inclusão
DELETE itab_itens .
ENDIF.
ENDLOOP.
IF v_confirm = 'X'.
SELECT SINGLE * FROM /pws/zyglt217
WHERE arbgb EQ '/PWS/ZYCIM'
AND msgnr EQ '142'.
IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.
MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '142'.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
ENDIF.
WHEN 4.
SELECT SINGLE * FROM /pws/zyglt217
WHERE arbgb EQ '/PWS/ZYCIM'
AND msgnr EQ '137'.
IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.
itab_msgncm-msgtp = /pws/zyglt217-msgtp .
itab_msgncm-j_1bnbm = p_j1bnbm.
itab_msgncm-number = '137'.
IF /pws/zyglt217-msgtp EQ 'E'.
* >> Início da exclusão: FORM CONVERTE
v_erro = 'X' .
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE
v_error = 'X' .
* << Fim da inclusão
ENDIF.
COLLECT itab_msgncm.
ENDIF.
ENDCASE.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001X01
...
* >> Início da inclusão:
DATA: v_error.
* << Fim da inclusão
DATA: END OF COMMON PART a.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI001
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: EN
Símbolo: 530
Texto: (7 caracteres)
"Company"
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 531
Texto: (47 caracteres)
"Inform fields amount and net weigth Discharged."
Comprimento máximo: 49
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 531
Texto: (49 caracteres)
"Informar os campos Qtd. e Peso Liq. Desembarcada."
Comprimento máximo: 49
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 531
Texto: (47 caracteres)
"Informar campos Cant. e Peso Neto Desembarcada."
Comprimento máximo: 49