CE PLUS - Nota 004777
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 20/09/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 17:01:06
Descrição da Nota: COMPLEMENTO DO BOLETO
Sintoma
Quando se cria uma despesa de juros do tipo "Competência", quando salva o complemento do boleto
desta despesa, o programa está provisionando um novo documento e realizando a saída de pagamento
desta segunda provisão deixando a primeira em aberto.
Solução
Alterado include /PWS/MZYCB110F01, Forms reverse_document_fbv0_ed, contabiliza_ed_vinc_f02,
contabiliza_ed, verificando se o documento é de Compentência e não permitindo a recontabilização do
mesmo.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04777 Data: 20/09/2007 Hora: 15:59:32
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04777
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00013
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
/pws/zycbe031-belnr_p = wa_despesa-belnr.
/pws/zycbe031-statusp = 'C'.
itab_zycbt031_tc-belnr_p = wa_despesa-belnr.
MODIFY itab_zycbt031_tc TRANSPORTING belnr_p
WHERE nrseq = /pws/zycbe031-nrseq.
EXIT.
ENDIF.
IF /pws/zycbe031-statusp EQ 'I' OR /pws/zycbe031-statusp IS INITIAL.
/pws/zycbe031-statusp = 'I'.
IF /pws/zycbe031-frgzu = '2'.
* >> Início da inclusão: FORM CONTABILIZA_ED
IF WA_DESPESA-FRPAGTO NE 'C'.
* << Fim da inclusão
PERFORM fill_date_f-63ouf-02_ed.
ENDIF.
* >> Início da inclusão: FORM CONTABILIZA_ED
ENDIF.
* << Fim da inclusão
ELSEIF /pws/zycbe031-statusp EQ 'P' AND v_est_aprov EQ 'N'.
IF wa_despesa-frpagto = 'C'.
IF /pws/zycbe031-frgzu = '2'.
PERFORM reverse_document_fbv0_ed.
ENDIF.
...
...
/pws/zycbe031-taxair NE wa_zycbt031-taxair OR
/pws/zycbe031-dtcredir NE wa_zycbt031-dtcredir.
PERFORM estorna_ir.
ENDIF.
IF /pws/zycbe031-bcooper NE wa_zycbt031-bcooper OR
/pws/zycbe031-kursf NE wa_zycbt031-kursf OR
/pws/zycbe031-dtcredpr NE wa_zycbt031-dtcredpr.
PERFORM estorna_aprov.
ENDIF.
ELSE.
* >> Início da inclusão: FORM CONTABILIZA_ED
IF WA_DESPESA-FRPAGTO NE 'C'.
* << Fim da inclusão
PERFORM estorna_aprov.
* >> Início da inclusão: FORM CONTABILIZA_ED
ENDIF.
* << Fim da inclusão
ENDIF.
IF /pws/zycbe031-statusp NE 'C'.
IF erro_bi IS INITIAL AND
( /pws/zycbe031-statusp = 'I' OR /pws/zycbe031-statusp = ' ' ).
PERFORM limpa_status_liberacao.
MODIFY /pws/zycbt031 FROM /pws/zycbe031.
...
...
WHERE nrseqd = wa_despesa-cpochv+0(8)
AND nrseq = wa_despesa-cpochv+8(8)
AND tpdesp = wa_despesa-cpochv+16(3)
AND dtincl = wa_despesa-cpochv+19(8).
ENDIF.
MODIFY /pws/zycbt031 FROM /pws/zycbe031.
PERFORM reverse_document_fbv0_ir.
PERFORM clear_date_batch.
IF ok_code NE 'DEL'.
IF /pws/zycbe031-frgzu = '2'.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FBV0_ED
IF WA_DESPESA-FRPAGTO NE 'C'.
* << Fim da inclusão
PERFORM fill_date_f-63ouf-02_ed.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FBV0_ED
ENDIF.
* << Fim da inclusão
ELSE.
wa_zycbt031-statusp = 'C'.
wa_despesa-statusp = 'C'.
/pws/zycbe031-statusp = 'C'.
...
...
APPEND itab_boleto.
ENDLOOP.
CLEAR: v_tipo2, v_taxa_dia, itab_zycbt086, itab_boleto.
ENDFORM.
FORM contabiliza_ed_vinc_f02.
PERFORM verifica_estrategia_liberacao.
PERFORM selecionar_ed.
IF /pws/zycbe031-statusp EQ 'I' OR /pws/zycbe031-statusp IS INITIAL.
/pws/zycbe031-statusp = 'I'.
IF /pws/zycbe031-frgzu = '2'.
* >> Início da inclusão: FORM CONTABILIZA_ED_VINC_F02
IF WA_DESPESA-FRPAGTO NE 'C'.
* << Fim da inclusão
PERFORM fill_date_f-63ouf-02_ed.
* >> Início da inclusão: FORM CONTABILIZA_ED_VINC_F02
ENDIF.
* << Fim da inclusão
ENDIF.
ELSEIF /pws/zycbe031-statusp EQ 'P'.
PERFORM reverse_document_fbv0_ed.
IF erro_bi IS INITIAL AND
( /pws/zycbe031-statusp = 'I' OR /pws/zycbe031-statusp = ' ' ).
PERFORM limpa_status_liberacao.
...