Sintoma

O estono da MR8M não está funcionando quando a MIGO não é gerada. O erro está na função:

/pws/zyci_transação_mr8m.

Solução

inserir a função para obter o ano contábil, no estorno do recebimento (MR8M).

Informações Complementares

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

Nota Número 00367 Data: 29/11/2005 Hora: 16:29:36

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

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

Nota Número              : 00367

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00021

Agrupamento              : 00090

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ERRO AO ESTORNAR A MIRO.

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

Palavras Chave:

MIRO - ANO CONTÁBIL .

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_MR8M

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_MR8M

...

select single * from /pws/zycbt007

                where bukrs eq t_dados-bukrs.

  if t_dados-stgrd = '01'.

    if not /pws/zycbt007-percorr is initial.

      t_dados-stgrd = /pws/zycbt007-percorr.

      write T_DADOS-budat to v_data_est.

    endif.

  elseif t_dados-stgrd = '02'.

    if not /pws/zycbt007-perencer is initial.

      t_dados-stgrd = /pws/zycbt007-perencer.

    endif.

  endif.

*<<Início Inclusão>>                              <--- Nota

    CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

      EXPORTING

        v_bukrs                      = t_dados-bukrs

        v_date                       = t_dados-budat

     IMPORTING

       V_YEAR                       = v_ano

              .

    IF sy-subrc <> 0.

       v_ano = t_dados-budat+0(4).

    ENDIF.

*<<Fim    Inclusão>>                              <--- Nota

* Tela 0300 - Eliminar doc de faturamento

    PERFORM BDC_SCREEN USING 'SAPLMR1M' '0300'.

    if not v_data_est is initial.

    PERFORM BDC_FIELD  USING:

      'G_BUDAT' v_data_est.

    endif.

    PERFORM BDC_FIELD  USING:

           'BDC_OKCODE'       '=CANC',

           'BDC_CURSOR'       'RBKPV-GJAHR',

           'RBKPV-BELNR'      T_DADOS-BELNR,   "N doc de faturamento

...

* Tela 0300 - Eliminar doc de faturamento

    PERFORM BDC_SCREEN USING 'SAPLMR1M' '0300'.

    if not v_data_est is initial.

    PERFORM BDC_FIELD  USING:

      'G_BUDAT' v_data_est.

    endif.

    PERFORM BDC_FIELD  USING:

           'BDC_OKCODE'       '=CANC',

           'BDC_CURSOR'       'RBKPV-GJAHR',

           'RBKPV-BELNR'      T_DADOS-BELNR,   "N doc de faturamento

*<<Início Inclusão>>                              <--- Nota

           'RBKPV-GJAHR'      v_ano        ,   "Período contábil

*           'RBKPV-GJAHR'      T_DADOS-GJAHR,   "Período contábil

*<<Fim    Inclusão>>                              <--- Nota

           'UF05A-STGRD'      T_DADOS-STGRD.   "Motivo do estorno

* Limpa a itab_msg

    REFRESH ITAB_MSG.

    CLEAR ITAB_MSG.

* Definição dos parâmetros p/ a sub-rotina CALL_TRANSACTION

    V_TRANSACAO = 'MR8M'.

    V_UPDATE = 'S'.

    V_MSGID = 'M8'.

    V_MSGNO = '060'.

    "Modo pode vir do programa de batch input.

    IF V_MODO IS INITIAL.

      V_MODE = 'N'.             "N - BACKGROUND      A - FOREGROUND

    ELSE.

      V_MODE = V_MODO.

    ENDIF.

* Executa o Call Transaction e monta as mensagens de retorno

...