Sintoma

Ao executar a rotina mensal financeiro, não esta enviando a chave de referência na F-51 de

transferência LP/CP.

Solução

Considerar o ano fiscal da empresa na função /PWS/OBTEM_ANO_CONTABIL, assim busca o AWKEY com as

chaves da tabela BKPF corretas.

Informações Complementares

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

Nota Número 07850 Data: 29/12/2008 Hora: 17:56:10

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

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

Nota Número              : 07850

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00079

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ROTINA MENSAL FINANCEIRO - ANO FISCAL - AWKEY - TRANSFERENCIA LP/CP

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

Palavras Chave:

ROTINA MENSAL FINANCEIRO ANO FISCAL AWKEY TRANSFERENCIA LP/CP

F-51

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

Objetos da nota:

REPS /PWS/ZYCBI113

REPS /PWS/ZYCBR113

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

Modificações efetuadas em REPS /PWS/ZYCBI113

...

      MESSAGE i061(/pws/zycbm) WITH text-061 text-062.

    ELSEIF itab_zycbt034[] IS INITIAL.

      PERFORM executa_trans_f_02.

    ENDIF.

  ENDLOOP.

  LOOP AT itab_contabil WHERE aux <> 'X' AND tpcontab = 'T'.

    PERFORM clearing_transferencia.

  ENDLOOP.

ENDFORM.

FORM lancamento_estorno.

* >> Início da exclusão: FORM LANCAMENTO_ESTORNO

  DATA: v_monat LIKE t001b-frpe1,

        v_ano   LIKE  t009b-bdatj.

* << Fim da exclusão

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

  DATA: v_monat LIKE t001b-frpe1.

* << Fim da inclusão

  itab_zycbe033-tcode = 'FB08'.

  itab_zycbe033-tabela = '/PWS/ZYCBT154'.

  CONCATENATE itab_zycbt154-codmodul itab_zycbt154-tpcontr

              itab_zycbt154-bco      itab_zycbt154-dtcont

              itab_zycbt154-bukrs    itab_zycbt154-gsber

              itab_zycbt154-waers    itab_zycbt154-d_newko

              itab_zycbt154-c_newko

              INTO itab_zycbe033-cpochv.

  itab_zycbe033-belnr  = itab_zycbt154-belnr_pr.

  itab_zycbe033-bukrs  = itab_zycbt154-bukrs.

* >> Início da exclusão: FORM LANCAMENTO_ESTORNO

  itab_zycbe033-gjahs  = itab_zycbt154-dtcont+0(4).

* << Fim da exclusão

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

  PERFORM determina_ano USING itab_zycbt154-dtcont

                              itab_zycbe033-bukrs

                     CHANGING itab_zycbe033-gjahs.

* << Fim da inclusão

  itab_zycbe033-bldat  = s_dtentr.

  PERFORM define_data_lancamento.

  PERFORM determina_periodo USING itab_zycbe033-budat

                                  itab_zycbe033-bukrs

                         CHANGING v_monat.

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

  CLEAR v_ano.

* << Fim da inclusão

  PERFORM determina_ano USING itab_zycbe033-budat

                              itab_zycbe033-bukrs

                     CHANGING v_ano.

  CALL FUNCTION 'FI_PERIOD_CHECK'

       EXPORTING

            i_bukrs          = itab_zycbe033-bukrs

            i_gjahr          = v_ano

* >> Início da exclusão: FORM LANCAMENTO_ESTORNO

            i_koart          = 'S'

* << Fim da exclusão

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

            i_koart          = '+'

* << Fim da inclusão

            i_monat          = v_monat

       EXCEPTIONS

            error_period     = 1

            error_period_acc = 2

            OTHERS           = 3.

  IF sy-subrc = 0.

    IF itab_zycbt154-dtcont EQ s_dtentr.

      itab_zycbe033-stgrd = '01'.

      itab_zycbe033-budat = s_dtentr.

    ELSEIF itab_zycbt154-dtcont GT s_dtentr.

...

...

    itab_zycbe033-d_valut = itab_contabil-dtfpar.

    itab_zycbe033-c_valut = itab_contabil-dtfpar.

  ENDIF.

  READ TABLE itab_zycbt129p WITH KEY nrseq  = itab_contabil-nrcorresp

                                     nrparc = itab_contabil-nrparcp.

  IF sy-subrc = 0.

    itab_zycbt036-tcode  = text-114.

    itab_zycbt036-tabela = text-115.

    itab_zycbt036-cpochv = itab_contabil-nrcorresp.

    itab_zycbt036-belnr  = itab_zycbt129p-belnr_lp.

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

    CLEAR v_ano.

    PERFORM determina_ano USING itab_zycbt128-dtdesem

                                itab_zycbt128-bukrs

                       CHANGING v_ano.

* << Fim da inclusão

    SELECT SINGLE awkey FROM bkpf

                        INTO itab_zycbt036-awkey

                        WHERE belnr EQ itab_zycbt129p-belnr_lp

                          AND bukrs EQ itab_zycbt128-bukrs

* >> Início da exclusão: FORM CLEARING_TRANSFERENCIA

                          AND gjahr EQ itab_zycbt128-dtdesem(4).

* << Fim da exclusão

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

                          AND gjahr EQ v_ano.

* << Fim da inclusão

    APPEND itab_zycbt036.

  ENDIF.

  itab_zycbe033-d_newko = itab_contabil-d_newko.

  itab_zycbe033-c_newko = itab_contabil-c_newko.

  itab_zycbe033-xblnr   = itab_contabil-nrcorresp.

  itab_zycbe033-d_zuonr = itab_contabil-nrcorresp.

  itab_zycbe033-c_zuonr = itab_contabil-nrcorresp.

  itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.

  itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.

  PERFORM verify_null_field USING itab_contabil-bukrs

...

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

Modificações efetuadas em REPS /PWS/ZYCBR113

...

        v_vlmejc(16),

        v_totju     LIKE /pws/zycbt154-vlme,

        v_totir     LIKE /pws/zycbt154-vlme,

        v_totc      LIKE /pws/zycbt154-vlme,

        v_totpju    LIKE /pws/zycbt154-vlme,

        v_totpir    LIKE /pws/zycbt154-vlme,

        v_totpc     LIKE /pws/zycbt154-vlme,

        v_nrdias(8) TYPE n,

        v_msg(150) TYPE c,

        v_quebra(1) TYPE c.

* >> Início da inclusão:

DATA: v_ano   LIKE  t009b-bdatj.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.

PARAMETERS: s_bukrs  LIKE /pws/zycbt128-bukrs OBLIGATORY,

               s_dtentr LIKE sy-datum,

               s_dtlanc LIKE sy-datum.

SELECT-OPTIONS s_tpemp FOR /pws/zycbe128-tpemprest.

SELECT-OPTIONS: s_nrseq FOR /pws/zycbt128-nrseq

                            MATCHCODE OBJECT /pws/zycba154.

Parameters: p_agrup as checkbox.

SELECTION-SCREEN END OF BLOCK a1.

SELECTION-SCREEN BEGIN OF BLOCK a2 WITH FRAME TITLE text-046.

...

...

  ELSE.

    SELECT * FROM /pws/zycbt154

             INTO TABLE itab_zycbt154

             WHERE codmod    = 'F'

               AND bukrs  EQ s_bukrs

               AND codmodul <> 'T'

               AND nrcorresp = ' '.

  ENDIF.

ENDFORM.

FORM transacao_estorno.

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

  CLEAR v_ano.

  PERFORM determina_ano USING itab_zycbt154-dtcont

                              itab_zycbt154-bukrs

                     CHANGING v_ano.

* << Fim da inclusão

  CALL FUNCTION '/PWS/ZYCA_TRANSACAO_FB08'

       EXPORTING

            v_modo          = v_modo_bi

* >> Início da exclusão: FORM TRANSACAO_ESTORNO

            v_gjahs         = itab_zycbt154-dtcont(4)

* << Fim da exclusão

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

            v_gjahs         = v_ano

* << Fim da inclusão

       TABLES

...