CE PLUS - Nota 005562
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 04/01/2008 00:00:00
Data/Hora Última Alteração: 03/02/2010 17:00:05
Descrição da Nota: FALHA NO RECEBIMENTO NA FATURA DE SERVIÇO
Sintoma
Falha no Recebimento de Faturas de Serviço na Futura
Solução
Atualização do programa de fatura para efetuar o recebimento de faturas de serviço com pagamento à
vista e parcelado corretamente.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05562 Data: 04/01/2008 Hora: 15:24:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05562
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00028
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
FALHA NO RECEBIMENTO NA FATURA DE SERVIÇO
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA DE SERVIÇO - RECEBIMENTO - SERIVIÇO
MENSAGEM:"AINDA NÃO FOI EFETUADA A CONTABILIZAÇÃO"
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
FORM rotina_de_contabilizacao.
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
DATA: v_nrseqori LIKE /pws/zycie036-nrseqori.
* << Fim da inclusão
DATA v_par.
CLEAR v_congela.
IF /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11'.
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
SELECT MAX( nrseqori ) INTO (v_nrseqori) FROM /pws/zycit036
WHERE nrseq EQ itab_zycit003-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp
AND origem EQ 'FAT'.
* << Fim da inclusão
DATA: itab_zycit036_rec LIKE /pws/zycit036 OCCURS 0 WITH HEADER LINE.
SELECT * FROM /pws/zycit036
INTO TABLE itab_zycit036_rec
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq EQ itab_zycit003-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp
* >> Início da exclusão: FORM ROTINA_DE_CONTABILIZACAO
AND congelamov EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
AND nrseqori EQ v_nrseqori.
* << Fim da inclusão
IF sy-subrc = 0.
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
IF NOT itab_zycit036_rec-congelamov IS INITIAL.
* << Fim da inclusão
MOVE 'X' TO v_congela.
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
LOOP AT itab_zycit003.
itab_zycit031-tcode = itab_zycie033-tcode.
itab_zycit031-tabela = itab_zycie033-tabela.
itab_zycit031-cpochv = itab_zycie033-cpochv.
itab_zycit031-ebeln = itab_zycit003-ebeln.
itab_zycit031-ebelp = itab_zycit003-ebelp.
itab_zycit031-wrbtr = itab_zycit003-total.
itab_zycit031-menge = itab_zycit003-qtd_iten.
itab_zycit031-meins = itab_zycit003-meins.
itab_zycit031-mwskz = itab_zycie033-mwskz.
* >> Início da inclusão: FORM FILL_DATE_MR1M
IF NOT /pws/zycie006-belnr_p IS INITIAL.
* << Fim da inclusão
SELECT SINGLE * FROM bkpf WHERE
bukrs = /pws/zycie006-bukrs AND
belnr = /pws/zycie006-belnr_p AND
* >> Início da inclusão: FORM FILL_DATE_MR1M
gjahr = /pws/zycie006-dtlanc(4).
itab_zycit031-wrbtr = itab_zycit031-wrbtr * bkpf-kursf.
ELSE.
SELECT SINGLE * FROM bkpf WHERE
bukrs = /pws/zycie006-bukrs AND
belnr = itab_zycit132-belnr_p AND
* << Fim da inclusão
gjahr = /pws/zycie006-dtlanc(4).
itab_zycit031-wrbtr = itab_zycit031-wrbtr * bkpf-kursf.
* >> Início da inclusão: FORM FILL_DATE_MR1M
ENDIF.
* << Fim da inclusão
APPEND itab_zycit031.
itab_zycie033-rmwwr = itab_zycit031-wrbtr + itab_zycie033-rmwwr.
itab_zycie033-waers = /pws/zycbt007-waersb.
ENDLOOP.
APPEND itab_zycie033.
...
...
ELSE.
IF NOT /pws/zycie006-mblnr_mb01 IS INITIAL
AND /pws/zycit001-status_e NE 'E'.
PERFORM: reverse_documento_fisico_fbra,
historico_recebimento USING /pws/zycie006-mblnr_mb01
'MIGO'.
ENDIF.
ENDIF.
MODIFY /pws/zycit006 FROM /pws/zycie006.
COMMIT WORK AND WAIT.
* >> Início da inclusão: FORM ESTORNA_DOCUMENTOS
UPDATE /PWS/ZYCIT036 SET CONGELAMOV = ''
WHERE NRSEQ = /pws/zycie001-nrseq
AND NRSEQORI = /pws/zycie006-nrseq
AND ORIGEM = 'FAT'.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
WHEN 'IMPR'.
MOVE itab_zycit003-nrseq TO /pws/zycie003-nrseq.
EXPORT /pws/zycie003-nrseq TO MEMORY ID '001'.
EXPORT /pws/zycie006-nrseq TO MEMORY ID '002'.
SUBMIT /pws/zycir051 AND RETURN.
WHEN 'ENTE'.
PERFORM trata_ente.
WHEN 'CAMB'.
CALL SCREEN 0112 STARTING AT 5 5 ENDING AT 65 20.
WHEN 'REC'.
* >> Início da exclusão: MODULE USER_COMMAND_0100
IF NOT /pws/zycie006-belnr_p IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
IF NOT /pws/zycie006-belnr_p IS INITIAL OR
NOT ITAB_ZYCIT132-BELNR_P IS INITIAL.
* << Fim da inclusão
PERFORM executa_recebimento.
CLEAR v_modo_bi.
ELSE.
MESSAGE i013 WITH text-133.
ENDIF.
WHEN 'ESTOR'.
PERFORM estorna_documentos.
WHEN 'VISUA'.
v_visualiza = 'X'.
PERFORM visualiza_rateio.
...