Sintoma

Ao executar a rotina mensal de exportação, estorno mensal, onde a exit RME002 esta ativa, permitindo

provisionar por contrato, no ACC gera a f-02 e duas vezes a f-30, gerando erro. No PT não gera f-02

e gera corretamente f-30.

Solução

Ajustes para prever se o registro de juros esta para ser provisionado. Se não estiver, inclui e

provisiona. Ajustes para não duplicar registros de transferência LP/CP.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 09009 Data: 15/09/2009 Hora: 17:12:25

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 09009

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00001

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

01309  - 00001 - 6.0    - 00023  - ROTINA MENSAL EXPORTAÇÃO CONTABILIZAÇÃO SEPARADA DE ACC E ACE = S

01890  - 00002 - 6.0    - 00024  - ROTINA MENSAL EXPORTAÇÃO DOCUMENTO PROVISÃO

03756  - 00003 - 7.0    - 00001  - ROTINA MENSAL EXPORTAÇÃO - DUPLICIDADE PROVISÃO COMISSÃO

04518  - 00004 - 7.0    - 00002  - ROTINA MENSAL EXPORTAÇÃO - DUPLICIDADE TRANSFERÊNCIA LP CP

05294  - 00005 - 7.0    - 00003  - ROTINA MENSAL EXPORTAÇÃO - PONTO DE EXIT RME001

----------------------------------------------------------------------------------------------------

ROTINA MENSAL EXPORTAÇÃO - ESTORNO MENSAL -DUPLICIDADE LP/CP-EXIT RME002

----------------------------------------------------------------------------------------------------

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO ESTORNO MENSAL DUPLICIDADE LP/CP EXIT RME002

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/ZYCBI003

REPS /PWS/ZYCBI003X

REPS /PWS/ZYCBR003

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCBI003

...

ENDFORM.

FORM preenche_itab_contabil

              USING value(p_vlmej)

                    value(p_impr)

              CHANGING value(v_vlrjprov).

  IF wa_itab_relat-tpcontab = 'T' AND p_vlmej IS INITIAL.

    EXIT.

  ENDIF.

  MOVE-CORRESPONDING wa_itab_relat TO itab_contabil.

  itab_contabil-vlmetransf = wa_itab_relat-vlmetransf.

* >> Início da inclusão: FORM PREENCHE_ITAB_CONTABIL

  if wa_itab_relat-tpcontr(1) = 'P' or

     wa_itab_relat-tpcontr(1) = 'S'.

* << Fim da inclusão

  itab_contabil-nrparcp    = wa_itab_relat-nrparcj.

* >> Início da inclusão: FORM PREENCHE_ITAB_CONTABIL

  endif.

* << Fim da inclusão

  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.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCBI003X

...

        c_sgtxtir    LIKE /pws/zycbe033-c_sgtxt,

        blartir      LIKE /pws/zycbe033-blart,

        subtotal     TYPE c,

        nrparcj      TYPE /pws/zycbt002-nrparc,

      END OF itab_contabil.

DATA: itab_zycbt032 type /pws/zycbt032 OCCURS 0 WITH HEADER LINE,

      itab_zycbe033 type /pws/zycbe033 OCCURS 0 WITH HEADER LINE,

      itab_zycbt034 type /pws/zycbt034 OCCURS 0 WITH HEADER LINE,

      itab_zycbt036 type /pws/zycbt036 OCCURS 0 WITH HEADER LINE,

      itab_zyglt321 type /pws/zyglt321 OCCURS 0 WITH HEADER LINE.

* >> Início da inclusão:

data: v_cont type /pws/zycbt002-nrparc.

* << Fim da inclusão

DATA: v_modo_bi.

data: end of common part.

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCBR003

...

        v_ftpj     like itab_relat-ftpj,

        v_tpcontab like itab_relat-tpcontab.

  itab_relat_aux[] = itab_relat[].

  if wa_zycbt007-fprovisao eq 'C'.

    delete itab_relat

        where tpcontab eq 'C' and

              vlrprov  is initial.

  endif.

  loop at itab_relat.

    v_tabix = sy-tabix.

* >> Início da inclusão: FORM PROCESSA_ABERTO

    itab_contabil_aux[] = itab_contabil[].

* << Fim da inclusão

    select name1

           up to 1 rows

           into (lfa1-name1)

           from lfa1

           where lifnr = itab_relat-bco.

    endselect.

    if sy-subrc eq 0.

      itab_relat-descbanc = lfa1-name1.

    else.

      clear itab_relat-descbanc.

...

...

      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

        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.

        endif.

* << Fim da inclusão

      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.

          if not itab_relat-vlrprov is initial.

...