Sintoma

Ao executar a rotina mensal de exportação, é gerado relatório com valores à provisionar, mas a

contabilização não é gerada.

Solução

Enviar o valor a provisionar para tabela interna, para que gere a contabilização da provisão.

Informações Complementares

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

Nota Número 05063 Data: 23/10/2007 Hora: 17:38:24

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

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

Nota Número              : 05063

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00018

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

Referência às notas relacionadas:

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

01054  - 00001 - 6.0    - 00023  - ROTINA MENSAL COM TRANSFERÊNCIA DE LONGO PARA CURTO, GERAVA F-30

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

03474  - 00003 - 7.0    - 00001  - ROTINA MENSAL EXPORTAÇÃO - PROVISÃO COMISSÃO DUPLICADA

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

03898  - 00005 - 7.0    - 00001  - ROTINA MENSAL - TRANSFERÊNCIA DE LONGO PARA CURTO PRAZO

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

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

ROTINA MENSAL EXPORTAÇÃO - NÃO GERA CONTABILIZAÇÃO

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

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO NÃO GERA CONTABILIZAÇÃO

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

Objetos da nota:

REPS /PWS/ZYCBI003

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

Modificações efetuadas em REPS /PWS/ZYCBI003

...

                    gsber tpcontr d_newko c_newko bco vlrprov.

  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)

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

                    value(p_impr)

* << Fim da inclusão

              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.

  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.

    CLEAR itab_contabil.

  ELSE.

    itab_contabil-nrcorresp = wa_itab_relat-nrseqc.

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

    IF NOT p_impr IS INITIAL.

      itab_contabil-vlrprov   = itab_contabil-vlme.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  IF ( /pws/zyglt009-calc_rot_sep EQ 'S'   OR

       /pws/zyglt009-cont_rot_sep EQ 'S' ) AND

     wa_zycbt007-fprovisao      = 'C'.

    itab_contabil-subtotal = 'X'.

  ENDIF.

  APPEND itab_contabil.

  CLEAR v_vlrjprov.

  v_vlrjprov = itab_contabil-vlme.

  CLEAR itab_contabil.

...

...

    IF  ( wa_itab_relat-tpcontab  NE 'T' OR

        ( wa_itab_relat-tpcontab  EQ 'T' AND

             itab_relat-tpcontab  EQ 'T' AND

          wa_itab_relat-nrparcj   GT 0 ) ) AND

  ( NOT ( wa_itab_relat-tpcontab  EQ 'C'       AND

          wa_itab_relat-nrparcj   EQ v_nrparcj ) OR

        ( wa_itab_relat-nrparcj   EQ v_nrparcj AND

          wa_itab_relat-tpcontab  EQ 'C'       AND

             itab_relat-tpcontab  EQ 'T' ) ).

      PERFORM preenche_itab_contabil USING p_v_vlmej

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

                                           p_impr

* << Fim da inclusão

                                  CHANGING v_vlrjprov.

    ENDIF.

    ULINE.

    FORMAT COLOR 2 INVERSE OFF INTENSIFIED ON.

    IF wa_itab_relat-tpcontab EQ 'C'.

      IF wa_zycbt007-fprovisao EQ 'C'.

        WRITE: sy-vline, text-128, text-130, wa_itab_relat-nrparcj,

               text-131.

      ELSE.

        WRITE: sy-vline, text-128, text-132.

...