Sintoma

Ajuste no estorno do recebimento para ao lançar a F-51 para compensar os documento do estorno da

miro utilizar o tipo de documento parametrizado para o evento 006M.

Solução

Ajuste no estorno do recebimento para ao lançar a F-51 para compensar os documento do estorno da

miro utilizar o tipo de documento parametrizado para o evento 006M.

Informações Complementares

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

Nota Número 07998 Data: 03/02/2009 Hora: 11:47:34

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

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

Nota Número              : 07998

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00084

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

Referência às notas relacionadas:

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

02072  - 00001 - 6.0    - 00024  - RECEBIMENTO VISIVEL APRESENTA ERRO NA FB-02

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

COMPENSAÇÃO DOCUMENTO DO ESTORNO DA MIRO

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

Palavras Chave:

EVENTO - 006M - ESTORNO - MIRO - F51 DOCUMENTO - COMPENSAÇÃO

/PWS/SAPMZYCI017

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

Objetos da nota:

REPS /PWS/MZYCI017F02

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

Modificações efetuadas em REPS /PWS/MZYCI017F02

...

       OTHERS                 = 7.

  IF sy-subrc  EQ  0.

    v_gjahr  = v_ano.

  ELSE.

    v_gjahr = sy-datlo+0(4).

  ENDIF.

  SELECT SINGLE * FROM rbkp WHERE belnr = wa_nf-belnr_mr1m

                               AND gjahr = v_gjahr.

  CLEAR wa_zycbt011.

  SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011

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

        WHERE codeven = '006IC'

* << Fim da exclusão

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

        WHERE codeven = '006M'

* << Fim da inclusão

          AND codmod  = 'D'.

  v_belnr_miro = rbkp-stblg.

  itab_zycbe033-mandt = sy-mandt.

  itab_zycbe033-tcode = 'F-51'.

  itab_zycbe033-tabela = '/PWS/ZYCIT044'.

  itab_zycbe033-cpochv = /pws/zycie001-nrseq.

  itab_zycbe033-bldat = sy-datlo.

  itab_zycbe033-d_valut = sy-datlo.

  itab_zycbe033-budat = sy-datlo.

  itab_zycbe033-bktxt = wa_zycbt007-bktxt.

...