CE PLUS - Nota 010485
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 11/08/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:13:34
Descrição da Nota: ROTINA MENSAL EXPORTAÇÃO - ESTORNO MENSAL - DUPLICIDADE PROVISÕES
Sintoma
Ao executar a Rotina Mensal de Exportação, onde a mesma esta como Estorno Mensal, a tela de
provisões esta correta, mas ao efetuar as contabilização, esta duplicando alguns registros que já
estavam agrupados.
Solução
Efetuar a verificação do ponto de exit RME002 ativo. Se sim, segue com os append¿s, se não, pula
este trecho.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10485 Data: 11/08/2010 Hora: 10:39:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10485
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00034
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
09009 - 00001 - 8.0 - 00001 - ROTINA MENSAL EXPORTAÇÃO - ESTORNO MENSAL -DUPLICIDADE LP/CP-EXIT
----------------------------------------------------------------------------------------------------
ROTINA MENSAL EXPORTAÇÃO - ESTORNO MENSAL - DUPLICIDADE PROVISÕES
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL EXPORTAÇÃO ESTORNO MENSAL DUPLICIDADE PROVISÕES
/PWS/ZYCBT154 /PWS/ZYCBR003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR003
...
ADD itab_relat-vlmej TO v_vlmej_w.
ADD itab_relat-vlmeir TO v_vlmeir_w.
v_nrseq = itab_relat-nrseqc.
CHECK ( wa_zycbt007-fprovisao NE 'C' AND
/pws/zyglt009-calc_rot_sep NE 'S' AND
/pws/zyglt009-cont_rot_sep NE 'S' ) OR
wa_zycbt007-fprovisao EQ 'C'.
IF wa_zycbt007-fprovisao EQ space.
ADD itab_relat-vlrprov TO v_vlprov.
ADD itab_relat-vlirprov TO v_vlprovir.
* >> Início da inclusão: FORM PROCESSA_ABERTO
READ TABLE itab_zyglt100 WITH KEY zexit = 'RME002'
BINARY SEARCH.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
* << Fim da inclusão
CLEAR v_cont.
LOOP AT itab_relat_aux WHERE nrseqc = wa_itab_relat-nrseqc
AND tpcontab = wa_itab_relat-tpcontab.
v_cont = v_cont + 1.
ENDLOOP.
READ TABLE itab_contabil_aux WITH KEY
nrcorresp = wa_itab_relat-nrseqc
tpcontab = wa_itab_relat-tpcontab.
IF sy-subrc NE 0 AND
NOT itab_relat-vlrprov IS INITIAL AND
wa_itab_relat-nrparcj = v_cont.
MOVE-CORRESPONDING wa_itab_relat TO itab_contabil.
itab_contabil-nrparcp = wa_itab_relat-nrparcp.
itab_contabil-kursf = wa_itab_relat-txc.
itab_contabil-dtcont = s_dtentr.
itab_contabil-vlme = itab_relat-vlrprov.
itab_contabil-vlmeir = itab_relat-vlirprov.
itab_contabil-nrcorresp = wa_itab_relat-nrseqc.
APPEND itab_contabil.
CLEAR itab_contabil.
* >> Início da inclusão: FORM PROCESSA_ABERTO
ENDIF.
* << Fim da inclusão
ENDIF.
ELSE.
IF itab_relat-tpcontab EQ 'C' AND
( itab_relat-nrparcj = '001' OR
itab_relat-nrparcj NE v_nrparcj ).
v_nrparcj = itab_relat-nrparcj.
ADD itab_relat-vlmej TO v_vlmej_w.
ADD itab_relat-vlmeir TO v_vlmeir_w.
ADD itab_relat-vlrprov TO v_vlprov.
ADD itab_relat-vlirprov TO v_vlprovir.
...