Sintoma

Ao fazer o encerramento de custo com determinada empresa e centro, o

sistema leva para o centro a informação referente a outro  centro.

Solução

Limpar dados antes de executar a MR22.

Informações Complementares

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

Nota Número 00652 Data: 13/01/2006 Hora: 08:49:28

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

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

Nota Número              : 00652

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00096

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AO FAZER ENCERRAMENTO, LEVA DADOS DA EMPRESA ERRADA.

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

Palavras Chave:

ENCERRAMENTO DE CUSTO - ENCERRAMENTO - EMPRESA - CENTRO

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_MR22

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_MR22

* Busca os dados da tabela t_dados.

loop at t_dados.

  check t_dados-tcode = 'MR22'.

  read table t_zycit031 index 1.

*MODIFY T_DADOS.

  write t_dados-budat to v_budat.

* Tela 0100 - Debito/Credito Material (1ª. tela).

  perform bdc_screen using 'SAPRCKM_MR22' '0201'.

*<<Início alteração>>                                         <-- Nota

*  if t_dados-werks is initial.

*    perform bdc_field  using:

*         'MR21HEAD-BUKRS'   t_dados-bukrs,

**         'MR21HEAD-WERKS'   t_dados-werks,

*         'MR21HEAD-XBLNR'   t_dados-xblnr,

*         'MR21HEAD-BKTXT'   t_dados-bktxt,

*         'MR21HEAD-BUDAT'   v_budat,

*         'BDC_OKCODE'       '=ENTR'.

*  else.

*<<Fim    alteração>>                                         <-- Nota

    perform bdc_field  using:

         'MR21HEAD-BUKRS'   t_dados-bukrs,

         'MR21HEAD-WERKS'   t_dados-werks,

         'MR21HEAD-XBLNR'   t_dados-xblnr,

         'MR21HEAD-BKTXT'   t_dados-bktxt,

         'MR21HEAD-BUDAT'   v_budat,

         'BDC_OKCODE'       '=ENTR'.

*<<Início alteração>>                                         <-- Nota

*  endif.

*<<Fim    alteração>>                                         <-- Nota

  perform bdc_screen using 'SAPRCKM_MR22' '0201'.

  perform bdc_field  using 'BDC_OKCODE'       '=ENTR'.

* Tela 0250 - Debito/Credito Material Processando Item (2ª. tela).

  v_srows = sy-srows - 13.

*  IF V_SROWS < 23.

*     V_SROWS = 23.

*  ENDIF.

*  V_SROWS = V_SROWS - 10.

  loop at t_zycit031.