CE PLUS - Nota 001380
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 22/05/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:38:39
Descrição da Nota: NOS PROCESSOS DE SERVIÇO, ONDE FAZEMOS O RECEBIMENTO PELA TRANSAÇÃO
Sintoma
Nos processos de Serviço, onde fazemos o recebimento pela transação da Fatura, se ocorrer algum erro
no batch input da MIGO, a tabela /PWS/ZYCIT006 mantém preenchido o nº do documento da MIRO, porém
neste momento não aparece na tela. Quando saimos da tela e entramos novamente o documento que foi
estornado da MIRO aparece na tela.
Solução
Ajustes na chamada do perform salvar_dados.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01380 Data: 22/05/2006 Hora: 09:14:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01380
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00114
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NOS PROCESSOS DE SERVIÇO, ONDE FAZEMOS O RECEBIMENTO PELA TRANSAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
SERVIÇO - RECEBIMENTO - FATURA - BATCH INPUT
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003O01
REPS /PWS/ZYCIR012
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
IF v_servico IS INITIAL.
PERFORM reverse_document_mbst.
ENDIF.
PERFORM reverse_document_mr8m.
ENDIF.
* >> Início da inclusão: FORM EXECUTA_RECEBIMENTO
perform salvar_dados.
* << Fim da inclusão
ELSE.
IF v_servico IS INITIAL.
PERFORM reverse_document_mbst.
ENDIF.
PERFORM reverse_document_mr8m.
ENDIF.
* >> Início da inclusão: FORM EXECUTA_RECEBIMENTO
perform salvar_dados.
* << Fim da inclusão
ELSE.
/pws/zycie006-lfsnr = v_lfsnr_old.
ENDIF.
ELSE.
/pws/zycie006-lfsnr = v_lfsnr_old.
...
...
READ TABLE itab_zycbt032 WITH KEY tcode = v_trans
tabela = '/PWS/ZYCIT006'
cpochv = /pws/zycie006-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM FILL_DATE_F_51
MESSAGE s057 WITH itab_zycbt032-belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51
message i057 with itab_zycbt032-belnr.
* << Fim da inclusão
/pws/zycie006-statusp_f_51 = 'C'.
/pws/zycie006-belnr_f_51 = itab_zycbt032-belnr.
/pws/zycie006-dt_f_51 = sy-datum.
MODIFY /pws/zycit006 FROM /pws/zycie006.
v_f_51_ok = 'S'.
...
...
PERFORM: reverse_documento_fatura_mr8m,
historico_recebimento USING /pws/zycie006-belnr_mr1m
'MIRO'.
ENDIF.
MODIFY /pws/zycit006 FROM /pws/zycie006.
* >> Início da inclusão: FORM ESTORNA_DOCUMENTOS
commit work and wait.
* << Fim da inclusão
ENDFORM.
FORM reverse_documento_contab_fbra.
DATA: v_belnr_ant LIKE /pws/zycie006-belnr_p.
PERFORM clear_date_batch.
MOVE: /pws/zycie006-nrseq TO v_cpochv_fb08,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
itab_pf_status-fcode = 'FABR'.
APPEND itab_pf_status.
itab_pf_status-fcode = 'DET'.
APPEND itab_pf_status.
ENDIF.
* >> Início da exclusão: MODULE STATUS_0100
IF ( /pws/zycie006-tpfatura NE '11'
AND ( /pws/zycie006-tpfatura EQ '04' AND
/pws/zycie006-vinserv EQ 'X' ) )
OR ( /pws/zycie006-tpfatura EQ '01' ).
* << Fim da exclusão
itab_pf_status-fcode = 'REC'.
APPEND itab_pf_status.
itab_pf_status-fcode = 'ESTOR'.
APPEND itab_pf_status.
* >> Início da exclusão: MODULE STATUS_0100
ENDIF.
* << Fim da exclusão
IF /pws/zycie006-tpfatura NE '02' .
itab_pf_status-fcode = 'FRETECLP'.
APPEND itab_pf_status.
ELSE.
IF t001-land1 NE 'CL'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR012
...
ENDIF.
ENDLOOP.
v_impri = 'N'.
READ TABLE itab_imp WITH KEY nrseq = itab_zycit043-nrseq.
READ TABLE itab_aux WITH KEY nrseq = itab_zycit043-nrseq.
* >> Início da inclusão: FORM MOVE_DADOS_ALV_GRID
clear: v_impr.
* << Fim da inclusão
IF NOT wa_zycit000-fldocanc IS INITIAL.
IF NOT itab_zycit270[] IS INITIAL.
LOOP AT itab_zycit270 WHERE programa = text-082.
ENDLOOP.
IF sy-subrc EQ 0.
...