CE PLUS - Nota 007247
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DA
Data/Hora da Publicação: 03/09/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:46:08
Descrição da Nota: CONFIRMAÇÃO DE INCLUSÃO DE LOTE AUTOMATICO APARECE 2 VEZES
Sintoma
após utilizar a inclusão do lote automatico na DA se presionar a tecla enter o programa exibe
novamente a confirmação para o procedimento e caso o usuario de OK o programa duplica os registro
automaticos.
Solução
Limpara variavel que recebe o camando do usuario após o processamento dos comandos de entrada.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07247 Data: 03/09/2008 Hora: 14:58:53
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07247
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00063
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03361 - 00001 - 7.0 - 00001 - MATERIAIS DIFERENTES NA DA
----------------------------------------------------------------------------------------------------
CONFIRMAÇÃO DE INCLUSÃO DE LOTE AUTOMATICO APARECE 2 VEZES
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXBIBE - CONFIRMAÇÃO - DUAS - VEZES - INCLUSÃO - LOTE - AUTOMATICO
/PWS/SAPMZYCI070
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI070I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070I01
...
v_salvo IS INITIAL.
MESSAGE i015 WITH text-515.
ELSE.
PERFORM retorna_saldo.
ENDIF.
WHEN 'RESUMO'.
PERFORM resumo.
ENDCASE.
ENDIF.
PERFORM atualiza_qtd_po.
* >> Início da exclusão: MODULE USER_COMMAND_0050
CLEAR: sy-ucomm, r_okcode.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0050
CLEAR: sy-ucomm, r_okcode, okcode.
* << Fim da inclusão
ENDMODULE.
MODULE load_urf INPUT.
IF /pws/zycie442-urfdesp IS INITIAL.
CLEAR: s_urf, /pws/zycie442-recalf, s_recalf, /pws/zycie442-setor,
s_setor.
ELSE.
PERFORM load_urf.
ENDIF.
v_msg1 = 'X'.
ENDMODULE.
...
...
FROM /pws/zycit094
INTO wa_zycit094
WHERE nrseqce EQ /pws/zycie442-nrbl.
SELECT SINGLE *
FROM /pws/zycit001
INTO wa_zycit001
WHERE nrseq = wa_zycit094-nrseq.
ENDIF.
ENDMODULE.
MODULE carrega_dados INPUT.
* >> Início da exclusão: MODULE CARREGA_DADOS
READ TABLE /pws/zycit001
WITH KEY /pws/zycit094-nrseq.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_DADOS
IF /pws/zycit001-nrseq NE /pws/zycit094-nrseq.
SELECT SINGLE * FROM /pws/zycit001
WHERE nrseq = /pws/zycit094-nrseq.
ENDIF.
* << Fim da inclusão
IF /pws/zycie442-identify IS INITIAL.
MOVE: /pws/zycit001-embarca TO /pws/zycie442-identify.
ENDIF.
IF /pws/zycie442-bukrs IS INITIAL.
MOVE /pws/zycit001-bukrs TO /pws/zycie442-bukrs.
ENDIF.
IF /pws/zycie442-j_1bbranch IS INITIAL.
MOVE /pws/zycit001-j_1bbranch TO /pws/zycie442-j_1bbranch.
ENDIF.
ENDMODULE.
...