CE PLUS - Nota 007785
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 16/12/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:17:11
Descrição da Nota: AJUSTE NA VERIFICAÇÃO DE BOLETO PARA FATURA DE SERVIÇO
Sintoma
Ajustada verificação de boleto para Fatura de Serviço.
Solução
Ajustada verificação de boleto para Fatura de Serviço.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07785 Data: 16/12/2008 Hora: 11:09:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07785
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00077
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06319 - 00001 - 7.0 - 00005 - ERRO AO LANÇAR ANO CONTÁBIL NA MIRO
07302 - 00002 - 7.0 - 00006 - AJUSTE DO ESTORNO DA FATURA DE SEGURO APÓS RECEBIMENTO
07383 - 00003 - 7.0 - 00007 - AJUSTE PARA ESTORNO DE FATURA COM VINCULAÇÃO NO CAMBIO
----------------------------------------------------------------------------------------------------
AJUSTE NA VERIFICAÇÃO DE BOLETO PARA FATURA DE SERVIÇO
----------------------------------------------------------------------------------------------------
Palavras Chave:
BOLETO - VERIFICAÇÃO - FATURA - SERVIÇO
/PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
FORM gravar_cambio.
DATA wa_zycbt119 LIKE /pws/zycbt119.
PERFORM verifica_ano_contabil USING /pws/zycie006-dtincl
CHANGING v_ano .
* >> Início da inclusão: FORM GRAVAR_CAMBIO
IF /pws/zycie006-tpfatura EQ '11'.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt064
* >> Início da inclusão: FORM GRAVAR_CAMBIO
WHERE nrchave = /pws/zycie006-nrseqre
AND mdcorresp = 'CP'.
ELSE.
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da inclusão
WHERE nrchave = /pws/zycie006-nrseq_pgfat
AND mdcorresp = 'IP'.
* >> Início da inclusão: FORM GRAVAR_CAMBIO
ENDIF.
* << Fim da inclusão
IF sy-subrc EQ 0.
EXIT.
ENDIF.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie006-bukrs.
SELECT SINGLE *
FROM /pws/zycit000
WHERE land1 EQ t001-land1.
CLEAR /pws/zycbt131.
IF v_parcela EQ 'X'.
IF NOT itab_zycit132-nrseq_pgfat IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
MODIFY itab_zycit132.
ELSEIF NOT /pws/zycbt108-belnr_lq IS INITIAL
AND NOT /pws/zycbt108-belnr_as IS INITIAL.
MESSAGE i039 WITH text-110.
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
ELSE.
IF itab_zycit132[] IS INITIAL.
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
IF /pws/zycie006-tpfatura EQ '11'.
* << Fim da inclusão
SELECT SINGLE *
FROM /pws/zycbt108
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
WHERE nrseq_pgfat EQ /pws/zycie006-nrseqre. "#EC CI_NOFIRST
ELSE.
SELECT SINGLE *
FROM /pws/zycbt108
* << Fim da inclusão
WHERE nrseq_pgfat EQ /pws/zycie006-nrseq_pgfat. "#EC CI_NOFIRST
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
ENDIF.
* << Fim da inclusão
IF sy-subrc EQ 0 AND
( NOT /pws/zycbt108-belnr_lq IS INITIAL AND
NOT /pws/zycbt108-belnr_as IS INITIAL ).
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
IF /pws/zycie006-tpfatura EQ '11'.
SELECT SINGLE * FROM /pws/zycbt131 WHERE
nrseq_pgfat EQ /pws/zycie006-nrseqre. "#EC CI_NOFIRST
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt064
WHERE nrchave = /pws/zycie006-nrseqre
AND mdcorresp = 'CP'.
ENDIF.
ELSE.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt131 WHERE
nrseq_pgfat EQ /pws/zycie006-nrseq_pgfat. "#EC CI_NOFIRST
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt064 WHERE
nrchave EQ /pws/zycie006-nrseq_pgfat AND
mdcorresp EQ 'IP'.
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
ENDIF.
* << Fim da inclusão
ENDIF.
...
...
FROM bseg
INTO TABLE itab_bseg
WHERE belnr EQ /pws/zycie006-belnr_p
AND gjahr EQ v_ano
AND bukrs EQ /pws/zycie006-bukrs.
PERFORM fill_date_f-43_pag_antecipado TABLES itab_bseg.
PERFORM fill_date_f_51_pag_antecipado TABLES itab_bseg.
ENDIF.
ELSEIF NOT itab_zycit132[] IS INITIAL.
LOOP AT itab_zycit132.
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
IF /pws/zycie006-tpfatura EQ '11'.
SELECT SINGLE *
FROM /pws/zycbt108
WHERE nrseq_pgfat EQ itab_zycit132-nrseqre. "#EC CI_NOFIRST
ELSE.
* << Fim da inclusão
SELECT SINGLE *
FROM /pws/zycbt108
WHERE nrseq_pgfat EQ
* >> Início da exclusão: FORM ESTORNO_PAG_ANTECIPADO
itab_zycit132-nrseq_pgfat. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
itab_zycit132-nrseq_pgfat. "#EC CI_NOFIRST
ENDIF.
* << Fim da inclusão
IF sy-subrc EQ 0 AND
( NOT /pws/zycbt108-belnr_lq IS INITIAL AND
NOT /pws/zycbt108-belnr_as IS INITIAL ).
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
IF /pws/zycie006-tpfatura EQ '11'.
SELECT SINGLE * FROM /pws/zycbt131 WHERE
nrseq_pgfat EQ itab_zycit132-nrseqre. "#EC CI_NOFIRST
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt064 WHERE
nrchave EQ itab_zycit132-nrseqre AND
mdcorresp EQ 'CP'.
ENDIF.
ELSE.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt131 WHERE
* >> Início da exclusão: FORM ESTORNO_PAG_ANTECIPADO
nrseq_pgfat EQ itab_zycit132-nrseq_pgfat. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
nrseq_pgfat EQ itab_zycit132-nrseq_pgfat. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt064 WHERE
nrchave EQ itab_zycit132-nrseq_pgfat AND
mdcorresp EQ 'IP'.
ENDIF.
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
ENDIF.
* << Fim da inclusão
IF sy-subrc EQ 0.
v_stop = 'X' .
CONTINUE.
ENDIF.
v_pag_antecipado = 'X'.
CLEAR v_ano.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = /pws/zycie006-bukrs
v_date = itab_zycit132-dt_belnrp
...
...
itab_zycit132-nrfat = /pws/zycie006-nrfat.
itab_zycit132-nrparc = itab_t052s-ratnr.
itab_zycit132-zterm = itab_t052s-ratzt.
itab_zycit132-dtbase = /pws/zycie006-dtbase.
APPEND itab_zycit132.
ENDLOOP.
ENDIF.
v_total006 = /pws/zycie006-vltotal.
ENDFORM.
FORM verifica_boleto.
* >> Início da inclusão: FORM VERIFICA_BOLETO
IF /pws/zycie006-tpfatura EQ '11'.
SELECT SINGLE * FROM /pws/zycbt131 WHERE
nrseq_pgfat EQ /pws/zycie006-nrseqre.
ELSE.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt131 WHERE
nrseq_pgfat EQ /pws/zycie006-nrseq_pgfat.
* >> Início da inclusão: FORM VERIFICA_BOLETO
ENDIF.
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE s015 WITH text-110.
v_stop = 'X' .
* >> Início da inclusão: FORM VERIFICA_BOLETO
ELSE.
IF /pws/zycie006-tpfatura EQ '11'.
SELECT SINGLE * FROM /pws/zycbt064
WHERE nrchave = /pws/zycie006-nrseqre
AND mdcorresp = 'CP'.
* << Fim da inclusão
ELSE.
SELECT SINGLE * FROM /pws/zycbt064 WHERE
nrchave EQ /pws/zycie006-nrseq_pgfat AND
mdcorresp EQ 'IP'.
* >> Início da inclusão: FORM VERIFICA_BOLETO
ENDIF.
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE s015 WITH text-110.
v_stop = 'X' .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
/pws/zycie006-zterm IS INITIAL AND
/pws/zycie006-frpagto IS INITIAL AND
/pws/zycie006-waers IS INITIAL.
IMPORT /pws/zycie006-nrfat
/pws/zycie006-tpfatura
/pws/zycie006-zterm
/pws/zycie006-frpagto
/pws/zycie006-waers
FROM MEMORY ID 'IP003A'.
ENDIF.
* >> Início da inclusão: MODULE LOAD_DATA
IF /pws/zycie006-tpfatura EQ '11'.
IF NOT /pws/zycie006-nrseqre IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt064
WHERE nrchave = /pws/zycie006-nrseqre
AND mdcorresp = 'CP'.
IF sy-subrc = 0.
IF v_existe_bol IS INITIAL.
MESSAGE i015 WITH text-110.
ENDIF.
v_existe_bol = 'X'.
ELSE.
CLEAR v_existe_bol.
ENDIF.
ENDIF.
ELSE.
* << Fim da inclusão
IF NOT /pws/zycie006-nrseq_pgfat IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt064
WHERE nrchave = /pws/zycie006-nrseq_pgfat
AND mdcorresp = 'IP'.
IF sy-subrc = 0.
IF v_existe_bol IS INITIAL.
MESSAGE i015 WITH text-110.
ENDIF.
v_existe_bol = 'X'.
ELSE.
CLEAR v_existe_bol.
* >> Início da inclusão: MODULE LOAD_DATA
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
IF /pws/zycit001-nrseq NE /pws/zycie001-nrseq.
SELECT SINGLE * FROM /pws/zycit001
WHERE nrseq = /pws/zycie001-nrseq. "#EC CI_NOFIRST
ENDIF.
IF v_prof = 'X' AND /pws/zycie006-dtincl IS INITIAL.
/pws/zycie006-dtincl = /pws/zycit001-dt_recorigem.
ENDIF.
SELECT SINGLE * FROM /pws/zycit024
...
...
READ TABLE itab_zyglt100 WITH KEY zexit = 'FAT003' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa).
ENDIF.
ENDIF.
ENDMODULE.
MODULE verifica_boleto OUTPUT.
CLEAR v_existe_bol.
* >> Início da inclusão: MODULE VERIFICA_BOLETO
IF /pws/zycie006-tpfatura EQ '11'.
IF NOT /pws/zycie006-nrseqre IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt064
WHERE nrchave = /pws/zycie006-nrseqre.
IF sy-subrc = 0.
v_existe_bol = 'X'.
ENDIF.
ENDIF.
ELSE.
* << Fim da inclusão
IF NOT /pws/zycie006-nrseq_pgfat IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt064
WHERE nrchave = /pws/zycie006-nrseq_pgfat.
IF sy-subrc = 0.
v_existe_bol = 'X'.
* >> Início da inclusão: MODULE VERIFICA_BOLETO
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
...