CE PLUS - Nota 010471
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 06/08/2010 00:00:00
Data/Hora Última Alteração: 03/03/2011 15:21:24
Descrição da Nota: ANA INFORMA QUE POSSUI REMESSA MESMO APÓS ESTORNO DA REMESSA
Sintoma
Após estornar todas as remessas do processo e acessar a ANA para realizar alguma alteração o
programa não permite exibe mensagem informando que o processo possui remessa.
Solução
Ajustada seleção de remessa para desconciderar as remessas canceladas.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10471 Data: 06/08/2010 Hora: 15:35:32
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10471
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00034
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10040 - 00001 - 8.0 - 00003 - PERMITIR CRIAR A ANA COM FATURA SEM CONTABILIZAÇÃO.
----------------------------------------------------------------------------------------------------
ANA INFORMA QUE POSSUI REMESSA MESMO APÓS ESTORNO DA REMESSA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ANA - REMESSA - RECEBIMENTO - ESTORNO - MODIFICAR - ELIMINAR
/PWS/SAPMZYCI059
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI059F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F01
...
IF sy-subrc EQ 0 AND /pws/zycit041-docnum NE '8888888888'.
MESSAGE i015 WITH text-028.
EXIT.
ELSEIF sy-subrc EQ 0 AND /pws/zycit041-docnum EQ '8888888888'
AND NOT /pws/zycit041-belnr_mr1m IS INITIAL.
MESSAGE i015 WITH text-236.
EXIT.
ELSEIF sy-subrc EQ 0 AND /pws/zycit041-docnum EQ '8888888888'.
SELECT SINGLE * FROM /pws/zycit043
* >> Início da exclusão: FORM VERIFY_CHANGES
WHERE nrseq = /pws/zycit041-nrseq
AND nfglobal = /pws/zycit041-nfglobal.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_CHANGES
WHERE nrseq = /pws/zycit041-nrseq
AND nfglobal = /pws/zycit041-nfglobal
AND cancel NE 'X'.
* << Fim da inclusão
ENDIF.
IF sy-subrc EQ 0 AND /pws/zycit041-docnum = '8888888888'.
CHECK ok_code NE 'BACK' AND
ok_code NE 'LEAV'.
MESSAGE i015 WITH text-028.
ELSE.
v_changed = '1'.
ENDIF.
ENDIF.
ENDIF.
...