CE PLUS - Nota 001272
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 03/05/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:23:18
Descrição da Nota: ACRESCENTAR A MENSAGEM NA TELA DE EMBARQUE " IMPOSSÍVEL EXCLUIR ÍTEM
Sintoma
Acrescentar a mensagem na tela do embarque " Impossível excluir ítem , O embarque já possui BL" ,
quando o usuário tentar excluir algum ítem do embarque que já possua outros documentos emitidos.
Porém se zerar a quantidade de embarque e clicar em salvar o item não deve desaparecer e não deve
deixar salvar com a quantidade embarcada zerada.
Solução
Inseridas mensagens:
"Não permitido salvar este Embarque."
"Existem itens com Qtd.Embarque zero."
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01272 Data: 03/05/2006 Hora: 17:00:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01272
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00112
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ACRESCENTAR A MENSAGEM NA TELA DE EMBARQUE " IMPOSSÍVEL EXCLUIR ÍTEM
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGEM - TELA - EMBARQUE - BL - EMITIDOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001I01
REPS /PWS/MZYCI001TOP
REPT /PWS/SAPMZYCI001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM grava_tabelas.
* >> Início da exclusão: FORM GRAVA_TABELAS
DATA: v_lino TYPE i,
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
DATA: v_lino TYPE i,
v_existe VALUE 'N',
v_exit,
v_msg(30).
* << Fim da inclusão
v_existe VALUE 'N',
v_exit,
v_msg(30).
* >> Início da exclusão: FORM GRAVA_TABELAS
CLEAR v_exit.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
CLEAR: v_exit, v_sair.
* << Fim da inclusão
CALL CUSTOMER-FUNCTION '001'
EXPORTING
/pws/zycie001 = /pws/zycie001
IMPORTING
v_erro = v_exit
...
...
sy-uname TO it_zycit255-usuario.
APPEND it_zycit255.
INSERT INTO /pws/zycit255 VALUES it_zycit255.
ENDIF.
MOVE /pws/zycie001 TO wa_zycit001.
* >> Início da exclusão: FORM GRAVA_TABELAS
MODIFY /pws/zycit003 FROM TABLE itab_zycit003.
* << Fim da exclusão
MODIFY /pws/zycit125 FROM TABLE itab_zycit125.
LOOP AT itab_zycit125_aux.
READ TABLE itab_zycit125 WITH KEY
lifnr = itab_zycit125_aux-lifnr.
IF sy-subrc NE 0.
...
...
AND lifnr = itab_zycit125_aux-lifnr.
ENDIF.
ENDLOOP.
CLEAR itab_zycit003_del. FREE itab_zycit003_del.
LOOP AT itab_zycit003.
* >> Início da inclusão: FORM GRAVA_TABELAS
IF itab_zycit003-qtd_iten EQ 0.
MESSAGE w015 WITH text-260 text-261.
v_sair = 'X'.
exit.
else.
* << Fim da inclusão
CLEAR /pws/zycit013.
MOVE-CORRESPONDING itab_zycit003 TO /pws/zycit013.
MODIFY /pws/zycit013.
* >> Início da exclusão: FORM GRAVA_TABELAS
IF itab_zycit003-qtd_iten EQ 0.
DELETE itab_zycit003 INDEX sy-tabix.
DELETE FROM /pws/zycit003 WHERE nrseq = itab_zycit003-nrseq
AND ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp.
DELETE FROM /pws/zycit036 WHERE nrseq = /pws/zycie001-nrseq
AND ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
MODIFY /pws/zycit003 FROM TABLE itab_zycit003.
* << Fim da inclusão
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM GRAVA_TABELAS
if not v_sair is initial.
exit.
endif.
* << Fim da inclusão
LOOP AT itab_zycit003_aux2.
CLEAR itab_zycit003.
READ TABLE itab_zycit003
WITH KEY ebeln = itab_zycit003_aux2-ebeln
ebelp = itab_zycit003_aux2-ebelp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001I01
...
endloop.
endif.
WHEN 'SAVE'.
PERFORM atualiza_itens.
PERFORM grava_tabelas.
* >> Início da inclusão: MODULE USER_COMMAND_0050
if not v_sair is initial.
exit.
endif.
* << Fim da inclusão
IF /pws/zycie001-nrseq IS INITIAL.
EXIT.
ENDIF.
PERFORM log_mensagens.
LOOP AT itab_zycit125 WHERE lifnr EQ space.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001TOP
...
modul(30) TYPE c VALUE '/PWS/SAPMZYCI001',
dynpronr(4) TYPE c VALUE '0106' ,
v_um LIKE /pws/zycit374-meins,
v_retorno(30) ,
v_di,
* >> Início da inclusão:
v_sair type c,
* << Fim da inclusão
v_agrup LIKE /pws/zycit395-agrupamento,
v_flag_1(10) TYPE c,
v_flag_2(10) TYPE c,
v_flag_3(10) TYPE c,
v_flag_4(10) TYPE c,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 260
Texto: (35 caracteres)
"Não permitido salvar este Embarque."
Comprimento máximo: 75
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 261
Texto: (36 caracteres)
"Existem itens com Qtd.Embarque zero."
Comprimento máximo: 37