CE PLUS - Nota 004544
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 28/08/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:08:34
Descrição da Nota: AJUSTADO O ESTORNO DA FATURA PARCELADA CONTABILIZADA PELA MIRO.
Sintoma
Ao estornar uma fatura parcelada não flega a tabela /pws/zycit006 com estornada e desaparece uma das
parcelas.
Solução
Corrigir atualizações nas tabelas internas durante o extorno.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04544 Data: 28/08/2007 Hora: 11:06:11
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04544
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00010
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04362 - 00001 - 7.0 - 00002 - AJUSTES NO LANÇAMENTO DAS DESPESAS NA MIRO
----------------------------------------------------------------------------------------------------
AJUSTADO O ESTORNO DA FATURA PARCELADA CONTABILIZADA PELA MIRO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - PARCELADA - EXTORNO - AMERICA - LATINA - /PWS/ZYCIT477
/PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
ELSE.
READ TABLE itab_zycit032 WITH KEY tcode = 'MR8M'
tabela = '/PWS/ZYCIT006'
cpochv = /pws/zycie006-nrseq
tpmsg = 'S'.
ENDIF.
IF sy-subrc EQ 0.
PERFORM fill_date_f_51_docs_miro.
MESSAGE i030 WITH v_belnr_ant.
IF v_parcela = 'X'.
* >> Início da exclusão: FORM ESTORN_MIRO_LA
CLEAR: itab_zycit132.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORN_MIRO_LA
CLEAR: itab_zycit132-miro, itab_zycit132-status.
itab_zycit132-status = 'X'.
* << Fim da inclusão
MODIFY itab_zycit132 TRANSPORTING miro status
WHERE belnr_mr1m EQ /pws/zycie006-belnr_mr1m.
ENDIF.
PERFORM clear_date_batch.
CLEAR v_mr1m_ok.
ELSE.
v_erro = 'X'.
ENDIF.
ENDIF.
ELSEIF e_subrc EQ '8'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
itab_pf_status-fcode = 'DET'.
APPEND itab_pf_status.
ENDIF.
IF /pws/zycie006-tpfatura NE '11'
AND /pws/zycie006-tpfatura NE '12'.
itab_pf_status-fcode = 'REC'.
APPEND itab_pf_status.
itab_pf_status-fcode = 'ESTOR'.
APPEND itab_pf_status.
ENDIF.
* >> Início da exclusão: MODULE STATUS_0100
IF itab_zycit132[] IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0100
IF itab_zycit132[] IS INITIAL or
NOT /pws/zycit477 IS INITIAL.
* << Fim da inclusão
itab_pf_status-fcode = 'RENE'.
APPEND itab_pf_status.
ENDIF.
IF /pws/zycie006-tpfatura NE '02' AND
/pws/zycie006-tpfatura NE '03' AND
/pws/zycie006-tpfatura NE '04'.
itab_pf_status-fcode = 'VISUA'.
APPEND itab_pf_status.
ENDIF.
IF /pws/zycie006-tpfatura NE '02' .
...