CE PLUS - Nota 000490
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 19/12/2005 00:00:00
Data/Hora Última Alteração: 18/02/2011 11:38:55
Descrição da Nota: ROTINA MENSAL O DOCUMENTO CONTÁBIL RELATIVO AO MÊS
Sintoma
Ao rodar a rotina mensal não é buscado nada no relatório contábil e também não é efetuado o estorno
do documento.
Solução
O programa passou a exibir o relatório contábil e a estornar o documento contábil.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00490 Data: 19/12/2005 Hora: 11:47:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00490
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00093
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ROTINA MENSAL O DOCUMENTO CONTÁBIL RELATIVO AO MÊS
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL ESTORNO DOCUMENTO MÊS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBI113
REPS /PWS/ZYCBR113
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI113
...
PERFORM processa_subtotal_waers USING v_vlmej_w
v_vlmeir_w
v_vlrprov_w.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM PROCESSA_DADOS_CONTABIL
IF sy-subrc NE 0 AND
wa_zycbt007-fprovisao IS INITIAL.
PERFORM processa_subtotal_waers USING v_vlmej_w
v_vlmeir_w
v_vlrprov_w.
ENDIF.
* << Fim da inclusão
IF itab_contabil[] IS INITIAL.
MESSAGE e061(/pws/zycbm) WITH text-064.
EXIT.
ENDIF.
IF wa_zycbt007-fprovisao = 'C'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR113
...
value(p_dtinicio) TYPE d
value(p_dtfim) TYPE d.
CLEAR itab_zycbt129j.
LOOP AT itab_zycbt129j WHERE nrseq = itab_zycbt128-nrseq.
IF wa_zycbt007-fprovisao <> 'C'.
* >> Início da exclusão: FORM PROCESSA_PERIODO_J
CHECK ( itab_zycbt129j-dtpagto IS INITIAL ).
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_PERIODO_J
CHECK itab_zycbt129j-dtpagto IS INITIAL.
* << Fim da inclusão
ENDIF.
IF itab_zycbt129p-dtinicio => itab_zycbt129j-dtinicio AND
( itab_zycbt129p-dtfinal <= itab_zycbt129j-dtfinal OR
p_dtfim <= itab_zycbt129j-dtfinal ).
IF itab_zycbt129p-nrparc = '001'.
...