CE PLUS - Nota 001918
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 11/08/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:59:56
Descrição da Nota: NO ESTORNO DO RECEBIMENTO ESTÁ GRAVANDO RESUMO DE DOCTOS ERRADO.
Sintoma
O usuário estornou este documento no CE mas quando ele tenta recepcionar a NF novamente ele não
consegue porque o documento aparece na tela Alterar NF de remessa como recepcionado. Só que ele já
está cancelado.
Solução
Gravar resumo de documentos somente se houver atualização.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01918 Data: 11/08/2006 Hora: 09:35:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01918
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00126
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01700 - 00001 - 6.0 - 00024 - QUANDO OCORRE ERRO NO RECEBIMENTO E NÃO É ESTORNADO NÃO PERMITE C
----------------------------------------------------------------------------------------------------
NO ESTORNO DO RECEBIMENTO ESTÁ GRAVANDO RESUMO DE DOCTOS ERRADO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ESTORNO - RECEBIMENTO - DOCUMENTOS - RESUMO DE DOCUMENTOS - CAIR CONEXÃO
ERRO NO RELATÓRIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
REPS /PWS/MZYCI017F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
ENDIF.
ENDIF.
ENDIF.
PERFORM fill_date_j1b3_saida.
ELSE.
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
IF NOT wa_nf-belnr_mr1m IS INITIAL AND
* << Fim da inclusão
* >> Início da exclusão: FORM EXECUTA_BATCH_INPUT
IF wa_nf-belnr_f_51 IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
NOT wa_nf-mblnr_mb01 IS INITIAL AND
wa_nf-belnr_f_51 IS INITIAL AND
* << Fim da inclusão
wa_nf-belnr_f_02 IS INITIAL AND
wa_nf-belnrf02seg IS INITIAL.
CLEAR itab_itemdata.
REFRESH itab_itemdata.
SELECT SINGLE * FROM t001 WHERE bukrs = wa_nf-bukrs.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
it_zycit270-dtestorno = sy-datlo.
APPEND it_zycit270.
ENDIF.
ENDFORM.
FORM atualiza_historico.
* >> Início da inclusão: FORM ATUALIZA_HISTORICO
READ TABLE it_zycit270 WITH KEY
belnr = wa_nf-belnr_mr1m.
IF sy-subrc EQ 0.
DELETE it_zycit270 WHERE belnr EQ it_zycit270-belnr.
ENDIF.
READ TABLE it_zycit270 WITH KEY
belnr = wa_nf-mblnr_mb01.
IF sy-subrc EQ 0.
DELETE it_zycit270 WHERE belnr EQ it_zycit270-belnr.
ENDIF.
READ TABLE it_zycit270 WITH KEY
belnr = wa_nf-belnr_f_51.
IF sy-subrc EQ 0.
DELETE it_zycit270 WHERE belnr EQ it_zycit270-belnr.
ENDIF.
READ TABLE it_zycit270 WITH KEY
belnr = wa_nf-belnr_f_02.
IF sy-subrc EQ 0.
DELETE it_zycit270 WHERE belnr EQ it_zycit270-belnr.
ENDIF.
READ TABLE it_zycit270 WITH KEY
belnr = wa_nf-belnrf02seg.
IF sy-subrc EQ 0.
DELETE it_zycit270 WHERE belnr EQ it_zycit270-belnr.
ENDIF.
READ TABLE it_zycit270 WITH KEY
belnr = wa_nf-belnrf02fre.
IF sy-subrc EQ 0.
DELETE it_zycit270 WHERE belnr EQ it_zycit270-belnr.
ENDIF.
* << Fim da inclusão
LOOP AT it_zycit270.
INSERT INTO /pws/zycit270 VALUES it_zycit270.
ENDLOOP.
CLEAR it_zycit270. REFRESH it_zycit270.
ENDFORM.
...