CE PLUS - Nota 010629
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 28/09/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:02:56
Descrição da Nota: AO SALVAR CRIANDO ANA, RECLAMA DE EXISTÊNCIA DE RECEBIMENTO
Sintoma
Ao salvar criando ANA, reclama de existência de recebimento.
Solução
Ao salvar a ANA, verificar primeiro se o sequencial já foi utilizado e gerar um novo se necessário.
Após isso, verificar se existe Recebimento para um processo com esse número.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10629 Data: 28/09/2010 Hora: 13:34:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10629
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00005
Agrupamento : 00041
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08959 - 00001 - 7.0 - 00010 - ADEQUAÇÕES NO PROGRAMA DA ANA
09072 - 00002 - 8.0 - 00001 - VÁRIOS AJUSTES DE TRATAMENTO E VARIAÇÃO DA ANA - DI ARGENTINA
10040 - 00003 - 8.0 - 00003 - PERMITIR CRIAR A ANA COM FATURA SEM CONTABILIZAÇÃO.
10243 - 00004 - 8.0 - 00003 - TRATAMENTO DO SEQUENCIAL AO CRIAR DUAS ANAS SIMULTANEAMENTE.
10471 - 00005 - 8.0 - 00004 - ANA INFORMA QUE POSSUI REMESSA MESMO APÓS ESTORNO DA REMESSA
----------------------------------------------------------------------------------------------------
AO SALVAR CRIANDO ANA, RECLAMA DE EXISTÊNCIA DE RECEBIMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ANA - SALVAR - MENSAGEM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI059F01
REPS /PWS/MZYCI059F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F01
...
PERFORM refresh_all.
IF sy-tcode <> '/PWS/ZYCI059_C' AND sy-tcode <> '/PWS/ZYCI059_I'.
/pws/zycie085-dtusera = sy-datum.
/pws/zycie085-usernamea = sy-uname.
ELSEIF v_salvo NE 'X'.
* >> Início da exclusão: FORM SAVE_DATA
v_salvo = 'X'.
* << Fim da exclusão
PERFORM fill_nrseq.
IF v_nrseq_ant NE /pws/zycie085-nrseqdi.
MESSAGE i015 WITH text-013 /pws/zycie085-nrseqdi.
* >> Início da inclusão: FORM SAVE_DATA
ENDIF.
PERFORM verifica_nf.
IF v_msg = 'X'.
EXIT.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM SAVE_DATA
v_salvo = 'X'.
* << Fim da inclusão
ENDIF.
MODIFY /pws/zycit085 FROM /pws/zycie085.
...
...
IF sy-tcode NE '/PWS/ZYCI059_E'.
* >> Início da exclusão: FORM VERIFY_CHANGES
SELECT SINGLE * FROM /pws/zycit041 INTO /pws/zycit041 WHERE
nrseq EQ /pws/zycie085-nrseqdi AND
cancel EQ space.
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
WHERE nrseq = /pws/zycit041-nrseq
AND nfglobal = /pws/zycit041-nfglobal
AND cancel NE 'X'.
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.
* << Fim da exclusão
v_changed = '1'.
* >> Início da exclusão: FORM VERIFY_CHANGES
ENDIF.
* << Fim da exclusão
ENDIF.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F03
...
* >> Início da inclusão:
form verifica_nf.
SELECT SINGLE * FROM /pws/zycit041 INTO /pws/zycit041 WHERE
nrseq EQ /pws/zycie085-nrseqdi AND
cancel EQ space.
IF sy-subrc EQ 0 AND /pws/zycit041-docnum NE '8888888888'.
MESSAGE i015 WITH text-028.
v_msg = 'X'.
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.
v_msg = 'X'.
EXIT.
ELSEIF sy-subrc EQ 0 AND /pws/zycit041-docnum EQ '8888888888'.
SELECT SINGLE * FROM /pws/zycit043
WHERE nrseq = /pws/zycit041-nrseq
AND nfglobal = /pws/zycit041-nfglobal
AND cancel NE 'X'.
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.
v_msg = 'X'.
ENDIF.
endform.
* << Fim da inclusão