Sintoma

Ocorreu erro no momento do estorno do recebimento do processo de serviço.

Solução

Ajuste na busca dos itens da NF para a função /PWS/ZYCI_TRANSACAO_MBST.

Informações Complementares

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

Nota Número 00775 Data: 02/02/2006 Hora: 10:31:10

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

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

Nota Número              : 00775

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00099

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

OCORREU DUMP NO MOMENTO DO ESTORNO DO RECEBIMENTO DO PROCESSO DE SERVIÇO

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

Palavras Chave:

RECEBIMENTO, PROCESSO DE SERVIÇO, /PWS/ZYCI_TRANSACAO_MBST

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

Objetos da nota:

REPS /PWS/MZYCI003F02

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

... < Perform: REVERSE_DOCUMENTO_FISICO_FBRA >

    ENDIF.

  ENDIF.

ENDFORM.

FORM reverse_documento_fisico_fbra.

  DATA: v_belnr_ant LIKE /pws/zycie006-belnr_p.

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

  data: begin of itab_itens_nf occurs 0.

          include structure /pws/zycit044.

  data: end   of itab_itens_nf.

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

  PERFORM clear_date_batch.

  itab_zycie033-tcode  = 'MBST'.

  itab_zycie033-tabela = '/PWS/ZYCIT006'.

  itab_zycie033-cpochv = /pws/zycie006-nrseq.

  itab_zycie033-bukrs  = /pws/zycie006-bukrs.

...

... < Perform: REVERSE_DOCUMENTO_FISICO_FBRA >

  itab_zycie033-gjahr  = /pws/zycie006-dt_mb01+0(4).

  itab_zycie033-budat  = /pws/zycie006-dt_mb01.

  v_belnr_ant          = /pws/zycie006-mblnr_mb01.

  itab_zycbe033-stgrd  = /pws/zycbt007-percorr.

  APPEND itab_zycie033.

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

  loop at itab_zycit003.

     move : itab_zycit003-ebeln to itab_itens_nf-ebeln,

            itab_zycit003-ebelp to itab_itens_nf-ebelp.

     append itab_itens_nf.

  endloop .

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

  CALL FUNCTION '/PWS/ZYCI_TRANSACAO_MBST'

       EXPORTING

            v_modo          = v_modo_bi

       TABLES

            t_dados         = itab_zycie033

            t_campo         = itab_zycit034

            t_zycit032      = itab_zycit032

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

*            t_itens_nf      = itab_zycit003

            t_itens_nf      = itab_itens_nf

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

       EXCEPTIONS

            campo_em_branco = 1

            OTHERS          = 2.

  IF sy-subrc = 0.

    READ TABLE itab_zycit032 WITH KEY tcode  = 'MBST'

...