CE PLUS - Nota 004518
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 24/08/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:17:25
Descrição da Nota: ROTINA MENSAL EXPORTAÇÃO - DUPLICIDADE TRANSFERÊNCIA LP CP
Sintoma
Ao efetuar a rotina mensal para um contrato que tenha transferência de LP/CP, esta duplicando a
contabilização ou o valor da transferência.
Solução
Não deixar criar registro duplicado na itab_contabil, na duplicação do lançamento de transferência
de LP para CP.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04518 Data: 24/08/2007 Hora: 17:10:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04518
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00009
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00742 - 00001 - 6.0 - 00022 - ROTINA MENSAL VALOR DA DIFERENÇA A PROVISIONAR
00760 - 00002 - 6.0 - 00022 - ROTINA MENSAL EXPORTAÇÃO - MENSAGEM EMPRESA NÃO ENCONTRADA
01054 - 00003 - 6.0 - 00023 - ROTINA MENSAL COM TRANSFERÊNCIA DE LONGO PARA CURTO, GERAVA F-30
03942 - 00004 - 7.0 - 00002 - ROTINA MENSAL EXPORTAÇÃO - TAXAS
04010 - 00005 - 7.0 - 00002 - ROTINA MENSAL - CONTABILIZAÇÃO DE PARCELAS DE COMISSÃO
04473 - 00006 - 7.0 - 00002 - ROTINA MENSAL - CONTABILIZAÇÕES
----------------------------------------------------------------------------------------------------
ROTINA MENSAL EXPORTAÇÃO - DUPLICIDADE TRANSFERÊNCIA LP CP
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL EXPORTAÇÃO DUPLICIDADE TRANSFERÊNCIA LP CP
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBI003
REPS /PWS/ZYCBR003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI003
...
ELSE.
SORT itab_relat BY tpcontab bukrs waers gsber
tpcontr d_newko c_newko bco.
ENDIF.
PERFORM processa_aberto.
PERFORM processa_encerrado.
ENDFORM.
FORM preenche_itab_contabil
USING value(p_vlmej)
CHANGING value(v_vlrjprov).
* >> Início da inclusão: FORM PREENCHE_ITAB_CONTABIL
IF wa_itab_relat-tpcontab = 'T' AND p_vlmej IS INITIAL.
EXIT.
ENDIF.
* << Fim da inclusão
MOVE-CORRESPONDING wa_itab_relat TO itab_contabil.
itab_contabil-vlmetransf = wa_itab_relat-vlmetransf.
itab_contabil-nrparcp = wa_itab_relat-nrparcj.
itab_contabil-kursf = wa_itab_relat-txc.
itab_contabil-dtcont = s_dtentr.
itab_contabil-vlme = p_vlmej.
IF wa_zycbt007-fprovisao = space.
itab_contabil-nrcorresp = wa_itab_relat-nrseqc.
itab_contabil-vlrprov = itab_contabil-vlme.
APPEND itab_contabil.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR003
...
itab_contabil-vlmetransf = wa_itab_relat-vlmetransf.
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.
IF wa_zycbt007-fprovisao <> space.
itab_contabil-nrcorresp = wa_itab_relat-nrseqc.
ENDIF.
APPEND itab_contabil.
CLEAR itab_contabil.
* >> Início da exclusão: FORM PROCESSA_ABERTO
PERFORM processa_subtotal_waers USING v_vlmej_w v_vlmeir_w ' '.
* << Fim da exclusão
ENDIF.
v_bukrs = itab_relat-bukrs.
v_waers = itab_relat-waers.
v_gsber = itab_relat-gsber.
v_tpcontr = itab_relat-tpcontr.
v_d_newko = itab_relat-d_newko.
v_c_newko = itab_relat-c_newko.
v_bco = itab_relat-bco.
v_ftpj = itab_relat-ftpj.
v_nrseq = itab_relat-nrseqc.
...