Sintoma

No momento de fazer a variação cambial na DSI, deu dump.

Solução

Ajuste no form Reclassificação IA para receber a data da tabela quando for faturas parceladas

Informações Complementares

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

Nota Número 03933 Data: 14/06/2007 Hora: 16:56:16

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

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

Nota Número              : 03933

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00170

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

Referência às notas relacionadas:

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

02143  - 00001 - 6.0    - 00024  - AJUSTES DE ANO CONTÁBIL NA VARIAÇÃO CAMBIAL DSI

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

DUMP AO FAZER A VARIAÇÃO CAMBIAL NA DSI

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

Palavras Chave:

ITAB_ZYCIT132-DT_BELNRP, ITAB_ZYCIT006-DT_BELNRP

/PWS/ZYGL_OBTEM_ANO_CONTABIL

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

Objetos da nota:

REPS /PWS/MZYCI058F03

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

Modificações efetuadas em REPS /PWS/MZYCI058F03

...

  LOOP AT itab_zycit006 WHERE belnr_p IS initial AND

                              tpfatura = '01'.

    SELECT * FROM /pws/zycit132 APPENDING TABLE itab_zycit132

      WHERE nrseq = itab_zycit006-nrseq AND

            eliminado = space.

  ENDLOOP.

  LOOP AT itab_zycit132.

    READ TABLE itab_zycit006 WITH KEY nrseq = itab_zycit132-nrseq.

    IF sy-subrc = 0.

      MOVE: itab_zycit132-belnr_p TO itab_zycit006-belnr_p.

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

      MOVE: itab_zycit132-dt_belnrp TO itab_zycit006-dt_belnrp.

* << Fim da inclusão

      APPEND itab_zycit006.

    ENDIF.

  ENDLOOP.

  LOOP AT itab_zycit006 WHERE belnr_p IS initial.

    DELETE itab_zycit006.

  ENDLOOP.

  CLEAR: itab_matuse.

  REFRESH: itab_matuse.

  IF NOT itab_zycit003[] IS INITIAL.

    SELECT ebeln ebelp matnr bwtar j_1bmatuse knttp werks

...

...

      APPEND itab_zycit006_aux.

    ENDLOOP.

  ENDLOOP.

  IF NOT itab_zycit006_aux[] IS INITIAL.

    DATA: v_ano TYPE t001b-frye1,

          v_gjahr TYPE bsis-gjahr.

    READ TABLE itab_zycit006_aux INDEX 1.

    CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

         EXPORTING

              v_bukrs = /pws/zycie085-bukrs

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

              v_date  = itab_zycit006-dt_belnrp

* << Fim da exclusão

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

              v_date  = itab_zycit006_aux-dt_belnrp

* << Fim da inclusão

         IMPORTING

              v_year  = v_ano.

    IF sy-subrc  EQ  0.

      v_gjahr  = v_ano.

    ELSE.

      v_gjahr = itab_zycit006-dtlanc+0(4).

    ENDIF.

    SELECT hkont dmbtr wrbtr belnr buzei FROM bsis

       INTO TABLE itab_bsis

              FOR ALL ENTRIES IN itab_zycit006_aux

...