CE PLUS - Nota 012445
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 17/08/2012 00:00:00
Data/Hora Última Alteração: 20/09/2012 13:33:19
Descrição da Nota: ERRO NA CRIAÇÃO DA NFR COM DOIS ITENS IGUAIS
Sintoma
Ao criar uma NFR com dois itens iguais, o programa está criando 2 NFR's (uma para cada item).
Ao estornar as NFR's, a primeira é estornada normalmente e a segunda o programa emite uma mensagem
dizendo que a NFR já foi estornada no SAP e será estornada apenas no PWCE. Após o estorno
conseguimos criar apenas uma NFR.
Solução
Gerar somente um sequencial.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12445 Data: 17/08/2012 Hora: 16:50:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12445
Categoria : Consultoria
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00001
Agrupamento : 00125
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12386 - 00001 - 9.0 - 00001 - AO SALVAR DUAS NF REMESSA AO MESMO TEMPO, GRAVA O MESMO NÚMERO.
----------------------------------------------------------------------------------------------------
ERRO NA CRIAÇÃO DA NFR COM DOIS ITENS IGUAIS
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA FISCAL - NOTA FISCAL DE REMESSA -
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
v_modo = v_modo_bi
TABLES
t_dados = it_zycee005
t_itens = it_zycee007
t_campos = it_zycet004
t_zycet005 = it_zycet005
t_message = it_zycee006
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
PERFORM find_nrseqc_nfr.
* << Fim da inclusão
LOOP AT itab_zycit044.
PERFORM atualiza_dados_nota_r.
ENDLOOP.
LOOP AT it_erro.
MESSAGE i015 WITH it_erro-msg+0(50)
it_erro-msg+50(50).
ENDLOOP.
CLEAR: it_erro[].
REFRESH: it_erro[].
ELSE.
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
PERFORM find_nrseqc_nfr.
* << Fim da inclusão
LOOP AT itab_zycit044.
PERFORM atualiza_dados_nota_r.
ENDLOOP.
LOOP AT it_erro.
MESSAGE i015 WITH it_erro-msg+0(50)
it_erro-msg+50(50).
ENDLOOP.
CLEAR: it_erro[].
REFRESH: it_erro[].
ENDIF.
ELSE.
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
PERFORM find_nrseqc_nfr.
* << Fim da inclusão
LOOP AT itab_zycit044.
PERFORM atualiza_dados_nota_r.
ENDLOOP.
LOOP AT it_erro.
MESSAGE i015 WITH it_erro-msg+0(50)
it_erro-msg+50(50).
ENDLOOP.
CLEAR: it_erro[].
REFRESH: it_erro[].
ENDIF.
...
...
CLEAR /pws/zycie043-cancel.
CLEAR: /pws/zycie043-belnr_mr1m, /pws/zycie043-mblnr_mb01,
/pws/zycie043-belnr_f_51,
/pws/zycie043-belnr_f_02, /pws/zycie043-statusp_mr1m,
/pws/zycie043-statusp_mb01, /pws/zycie043-statusp_f_51,
/pws/zycie043-statusp_f_02, /pws/zycie043-dt_mr1m,
/pws/zycie043-dt_mb01, /pws/zycie043-dt_f_51,
/pws/zycie043-dt_f_02,
/pws/zycie043-belnrf02seg, /pws/zycie043-dt_f02seg,
/pws/zycie043-belnrf02fre, /pws/zycie043-dt_f02fre.
* >> Início da exclusão: FORM ATUALIZA_DADOS_NOTA_R
PERFORM find_nrseqc_nfr.
* << Fim da exclusão
MODIFY /pws/zycit043 FROM /pws/zycie043.
MOVE-CORRESPONDING /pws/zycie043 TO /pws/zycit043.
PERFORM carrega_log USING '/PWS/ZYCIT043' 'I'
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
itab_zycit044-nfremessa = /pws/zycie043-nfremessa.
MODIFY itab_zycit044 TRANSPORTING nfremessa docnum
nfnum series subser
WHERE nrseqnf = itab_zycit044-nrseqnf
AND nrseq = itab_zycit044-nrseq
AND nfglobal = itab_zycit044-nfglobal
...