Sintoma

As Rotinas Mensais não efetuavam o estorno da tranferência de Longo para Curto Prazo quando do

lançamento em período fechado e exercício anterior.

Solução

Foi efetuado um desenvolvimento para que os programas considerem os períodos fechados e exercícios

anteriores para estorno do documento contábil

Informações Complementares

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

Nota Número 10908 Data: 20/01/2011 Hora: 13:46:13

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

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

Nota Número              : 10908

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00006

Agrupamento              : 00055

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

Referência às notas relacionadas:

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

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

Texto Rápido:

ROTINA MENSAL - TRANSFERÊNCIA L/C

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

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO - ROTINA MENSAL IMPORTAÇÃO -

ROTINA MENSAL FINANCEIRO - ESTORNO TRANSFERÊNCIA L/C

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

Objetos da nota:

REPS /PWS/ZYGLR030

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

Modificações efetuadas em REPS /PWS/ZYGLR030

...

      v_ok(1)      type c,

      v_dir        type rlgrap-filename,

      v_dir2       type rlgrap-filename,

      v_dir3       type rlgrap-filename,

      v_monat      type t001b-frpe1,

      v_ano        type t009b-bdatj,

      i_belnr      type bkpf-belnr,

      i_bukrs      type bkpf-bukrs,

      i_gjahr      type bkpf-gjahr,

      v_modo_bi.

* >> Início da inclusão:

data: v_gjahs type /pws/zycbe033-gjahs.

* << Fim da inclusão

initialization.

start-of-selection.

  import s_bukrs    from memory id '200'.

  import s_dtentr   from memory id '201'.

  import s_codint   from memory id '202'.

  import s_nrseq    from memory id '203'.

  import s_nrseqc   from memory id '203'.

  import v_programa from memory id '204'.

  import s_rbrela   from memory id '205'.

  if v_programa eq '/PWS/ZYCBR112'.

...

...

  itab_zycbe033-tabela = '/PWS/ZYCBT154'.

  itab_zycbe033-cpochv = i_final-nrcorresp.

  itab_zycbe033-belnr  = i_final-belnr_pr.

  itab_zycbe033-bukrs  = i_final-bukrs.

  itab_zycbe033-budat  = i_final-dtcont.

  perform lancamento.

  append itab_zycbe033.

  call function '/PWS/ZYCB_TRANSACAO_FB08'

       exporting

            v_modo          = v_modo_bi

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

            v_gjahs         = v_gjahs

* << Fim da inclusão

       tables

            t_dados         = itab_zycbe033

            t_campo         = itab_zycbt034

            t_zycbt032      = itab_zycbt032

       exceptions

            campo_em_branco = 1

            others          = 2.

  if sy-subrc = 0.

    read table itab_zycbt032 with key tcode  = 'FB08'

                                      tabela = '/PWS/ZYCBT154'

...

...

endform.

form limpa_bath.

  clear:

    itab_zycbt034,

    itab_zycbe033,

    itab_zycbt032.

  refresh:

    itab_zycbt034,

    itab_zycbe033,

    itab_zycbt032.

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

  clear v_gjahs.

* << Fim da inclusão

endform.

form lancamento.

  perform determina_periodo using itab_zycbe033-budat

                           changing v_monat.

  perform determina_ano using itab_zycbe033-budat

                              itab_zycbe033-bukrs

                     changing v_ano.

  perform period_refresh.

  call function 'FI_PERIOD_CHECK'

       exporting

...

...

            i_gjahr          = v_ano

            i_koart          = '+'

            i_monat          = v_monat

       exceptions

            error_period     = 1

            error_period_acc = 2

            others           = 3.

  if sy-subrc = 0.

    itab_zycbe033-stgrd = '01'.

  else.

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

    v_gjahs = v_ano.

* << Fim da inclusão

    itab_zycbe033-stgrd = '02'.

    itab_zycbe033-budat = sy-datum.

  endif.

endform.

form determina_periodo using value(p_budat) changing p_monat."#EC *

    data: v_periodo2 type bkpf-monat.

    call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

         exporting

              v_bukrs                = itab_zycbe033-bukrs

              v_date                 = p_budat

...

...

      itab_zycbe033-tabela = '/PWS/ZYCBT154'.

      itab_zycbe033-cpochv = i_final-nrcorresp.

      itab_zycbe033-belnr  = itab_zycbt154-belnr_cl.

      itab_zycbe033-bukrs  = i_final-bukrs.

      itab_zycbe033-budat  = i_final-dtcont.

      perform lancamento.

      append itab_zycbe033.

      call function '/PWS/ZYCB_TRANSACAO_FB08'

           exporting

                v_modo          = v_modo_bi

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

                v_gjahs         = v_gjahs

* << Fim da inclusão

           tables

                t_dados         = itab_zycbe033

                t_campo         = itab_zycbt034

                t_zycbt032      = itab_zycbt032

           exceptions

                campo_em_branco = 1

                others          = 2.

      if sy-subrc = 0.

        read table itab_zycbt032 with key tcode  = 'FB08'

                                          tabela = '/PWS/ZYCBT154'

...

...

      itab_zycbe033-tabela = '/PWS/ZYCBT154'.

      itab_zycbe033-cpochv = i_final-nrcorresp.

      itab_zycbe033-belnr  = itab_zycbt154-belnr_pr.

      itab_zycbe033-bukrs  = i_final-bukrs.

      itab_zycbe033-budat  = i_final-dtcont.

      perform lancamento.

      append itab_zycbe033.

      call function '/PWS/ZYCB_TRANSACAO_FB08'

           exporting

                v_modo          = v_modo_bi

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

                v_gjahs         = v_gjahs

* << Fim da inclusão

           tables

                t_dados         = itab_zycbe033

                t_campo         = itab_zycbt034

                t_zycbt032      = itab_zycbt032

           exceptions

                campo_em_branco = 1

                others          = 2.

      if sy-subrc = 0.

        read table itab_zycbt032 with key tcode  = 'FB08'

                                          tabela = '/PWS/ZYCBT154'

...