Sintoma

O sistema não está gravando o histórico de estornos sobre a variação cambial no resumo de

documentos.

Solução

Atualizado o programa para verificar o matuse.

Informações Complementares

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

Nota Número 02727 Data: 18/12/2006 Hora: 16:53:59

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

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

Nota Número              : 02727

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00144

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

Referência às notas relacionadas:

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

02183  - 00002 - 6.0    - 00025  - TRATAMENTO DE EXIT NA DI

02239  - 00001 - 6.0    - 00025  - TRATAMENTO PARA MOTIVO DE ESTORNO DA FB08 NA DI

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

RESUMO DOCUMENTOS, VARIAÇÃO CAMBIA DESCRIÇÃO ERRADA

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

Palavras Chave:

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F03

REPS /PWS/MZYCI023TOP

REPS /PWS/MZYCI023X01

REPS /PWS/ZYCIR012

REPT /PWS/SAPMZYCI023

REPT /PWS/ZYCIR012

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

    ENDIF.

  ENDLOOP.

ENDFORM.

FORM deleta_variacao.

  IF /pws/zycbt007 IS INITIAL.

    SELECT SINGLE *

      FROM /pws/zycbt007

      WHERE bukrs EQ /pws/zycie085-bukrs.

  ENDIF.

  IF NOT /pws/zycie085-belnr_0 IS INITIAL.

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

    v_text = text-208.

* << Fim da exclusão

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

    v_text = text-209.

* << Fim da inclusão

    PERFORM executa_fbra USING /pws/zycie085-belnr_0

                               /pws/zycie085-budat_0.

    PERFORM executa_fb08 USING /pws/zycie085-belnr_0

                               /pws/zycie085-budat_0.

  ENDIF.

  IF NOT /pws/zycie085-belnr_1 IS INITIAL AND

     /pws/zycie085-belnr_1 NE /pws/zycie085-belnr_0.

    v_text = text-209.

    PERFORM executa_fbra USING /pws/zycie085-belnr_1

                               /pws/zycie085-budat_1.

    PERFORM executa_fb08 USING /pws/zycie085-belnr_1

                               /pws/zycie085-budat_1.

  ENDIF.

  IF NOT /pws/zycie085-belnr_2 IS INITIAL AND

     ( /pws/zycie085-belnr_2 NE /pws/zycie085-belnr_0 OR

     /pws/zycie085-belnr_2 NE /pws/zycie085-belnr_1 ).

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

    v_text = text-210.

* << Fim da exclusão

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

    v_text = text-209.

* << Fim da inclusão

    PERFORM executa_fbra USING /pws/zycie085-belnr_2

                               /pws/zycie085-budat_2.

    PERFORM executa_fb08 USING /pws/zycie085-belnr_2

                               /pws/zycie085-budat_2.

  ENDIF.

  IF NOT /pws/zycie085-belnr_3 IS INITIAL AND

     ( /pws/zycie085-belnr_3 NE /pws/zycie085-belnr_0 OR

     /pws/zycie085-belnr_3 NE /pws/zycie085-belnr_1 OR

     /pws/zycie085-belnr_3 NE /pws/zycie085-belnr_2 ).

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

    v_text = text-211.

* << Fim da exclusão

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

    v_text = text-209.

* << Fim da inclusão

    PERFORM executa_fbra USING /pws/zycie085-belnr_3

                               /pws/zycie085-budat_3.

    PERFORM executa_fb08 USING /pws/zycie085-belnr_3

                               /pws/zycie085-budat_3.

  ENDIF.

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

  PERFORM atualiza_historico.

* << Fim da exclusão

  IF NOT /pws/zycie085-belnr_0_f05 IS INITIAL.

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

    v_text = text-208.

* << Fim da exclusão

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

    v_text = text-241.

* << Fim da inclusão

    PERFORM executa_fb08 USING /pws/zycie085-belnr_0_f05

 /pws/zycie085-budat_0.

  ENDIF.

  IF NOT /pws/zycie085-belnr_1_f05 IS INITIAL.

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

    v_text = text-208.

* << Fim da exclusão

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

    v_text = text-241.

* << Fim da inclusão

    PERFORM executa_fb08 USING /pws/zycie085-belnr_1_f05

 /pws/zycie085-budat_1.

  ENDIF.

  IF NOT /pws/zycie085-belnr_2_f05 IS INITIAL.

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

    v_text = text-208.

* << Fim da exclusão

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

    v_text = text-241.

* << Fim da inclusão

    PERFORM executa_fb08 USING /pws/zycie085-belnr_2_f05

 /pws/zycie085-budat_2.

  ENDIF.

  IF NOT /pws/zycie085-belnr_3_f05 IS INITIAL.

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

    v_text = text-208.

* << Fim da exclusão

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

    v_text = text-241.

* << Fim da inclusão

    PERFORM executa_fb08 USING /pws/zycie085-belnr_3_f05

 /pws/zycie085-budat_3.

  ENDIF.

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

  PERFORM atualiza_historico.

* << Fim da inclusão

ENDFORM.

FORM executa_fb08 USING  p_belnr

                         p_budat.

  DATA:  v_belnr_ant LIKE /pws/zycie085-belnr_0.

...

...

    IF sy-subrc EQ 0.

      MESSAGE i030 WITH v_belnr_ant.

    ENDIF.

    PERFORM preenche_hist_contabil USING v_belnr_ant

                                         p_budat(4).

  ENDIF.

ENDFORM.

FORM preenche_hist_contabil USING  p_belnr

                                   p_data.

  DATA: v_embarca LIKE /pws/zycit001-embarca.

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

  CLEAR it_zycit270.

* << Fim da inclusão

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

  CLEAR it_zycit270. REFRESH it_zycit270.

* << Fim da exclusão

  SELECT SINGLE embarca FROM /pws/zycit001 INTO v_embarca

           WHERE nrseq = /pws/zycie100a-nrseq.

  it_zycit270-mandt     =  sy-mandt.

  it_zycit270-belnr     =  p_belnr.

  it_zycit270-bukrs     =  /pws/zycie085-bukrs.

  it_zycit270-gjahr     =  p_data.

  it_zycit270-programa  =  sy-repid.

  it_zycit270-nrseq     =  /pws/zycie100a-nrseqdi.

  it_zycit270-embarca   =  v_embarca.

  it_zycit270-compl     =  v_text.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023TOP

...

      wrbtr    LIKE bsis-wrbtr       ,

      belnr    LIKE bsis-belnr       ,

      buzei    LIKE bsis-buzei       ,

      tpfatura LIKE /pws/zycit006-tpfatura.

DATA: END OF itab_bsis_aux1.

DATA wa_zycbt011    LIKE /pws/zycbt011.

DATA:

        vl_variacao LIKE /pws/zycit085-vlfob,

        v_rec_ia    TYPE i,

        v_rec_ia_1  TYPE i,

* >> Início da exclusão:

        v_text(14)  TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

        v_text(20) TYPE c,

* << Fim da inclusão

        v_datum     LIKE sy-datum,

        v_blart    LIKE /pws/zycbt011-blart,

        v_desp_acr LIKE /pws/zycit049-vldp,

        v_desp_brl LIKE /pws/zycit049-vldp,

        v_evento   LIKE /pws/zyglt321-codeven,

        v_required,

        v_salvo.

DATA: v_ano TYPE t001b-frye1,

      v_gjahr TYPE bsis-gjahr.

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

Modificações efetuadas em REPS /PWS/MZYCI023X01

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

Modificações efetuadas em REPS /PWS/ZYCIR012

...

            itab_zycit085-nrseqdi  TO itab_imp_rel-nrseq ,

            itab_zycit085-identify TO itab_imp_rel-embarca,

            text-092               TO itab_imp_rel-origem.

      APPEND itab_imp_rel.

    ENDIF.

    IF NOT itab_zycit085-belnr_0_f05 IS INITIAL.

      CLEAR: itab_imp_rel.

      v_nritem = v_nritem + 1.

      MOVE: v_nritem               TO itab_imp_rel-nrlin ,

            itab_zycit085-belnr_0_f05 TO itab_imp_rel-nrdoc ,

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

            text-101               TO itab_imp_rel-tpdoc ,

* << Fim da exclusão

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

            text-127               TO itab_imp_rel-tpdoc ,

* << Fim da inclusão

            text-103               TO itab_imp_rel-idrill,

            itab_zycit085-nrseqdi  TO itab_imp_rel-nrseq ,

            itab_zycit085-identify TO itab_imp_rel-embarca,

            text-092               TO itab_imp_rel-origem.

      APPEND itab_imp_rel.

    ENDIF.

    IF NOT itab_zycit085-belnr_1_f05 IS INITIAL.

      CLEAR: itab_imp_rel.

      v_nritem = v_nritem + 1.

      MOVE: v_nritem               TO itab_imp_rel-nrlin ,

...

...

          CLEAR: itab_imp_rel.

          MOVE: v_nritem TO itab_imp_rel-nrlin,

                text-090 TO itab_imp_rel-ordoc.

          APPEND itab_imp_rel.

          v_impri = 'S'.

        ENDIF.

      ENDLOOP.

    ENDIF.

  ENDIF.

  LOOP AT itab_zycit270 WHERE programa = text-100 AND

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

                                compl  = text-096.

* << Fim da exclusão

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

                                compl  = text-102.

* << Fim da inclusão

    v_nritem = v_nritem + 1.

    CLEAR itab_imp_rel.

    MOVE: v_nritem                TO itab_imp_rel-nrlin ,

          itab_zycit270-belnr     TO itab_imp_rel-nrdoc ,

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

          text-096                TO itab_imp_rel-tpdoc ,

          text-091                TO itab_imp_rel-idrill,

          itab_zycit270-nrseq     TO itab_imp_rel-nrseq ,

          itab_zycit270-embarca   TO itab_imp_rel-embarca,

          text-092                TO itab_imp_rel-origem,

          'X'                     TO itab_imp_rel-cancelado .

    APPEND itab_imp_rel.

  ENDLOOP.

* << Fim da exclusão

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

          text-094                TO itab_imp_rel-idrill,

          text-102                to itab_imp_rel-tpdoc,

* << Fim da inclusão

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

  LOOP AT itab_zycit270 WHERE programa = text-100 AND

                                compl  = text-097.

    v_nritem = v_nritem + 1.

    CLEAR itab_imp_rel.

    MOVE: v_nritem                TO itab_imp_rel-nrlin ,

          itab_zycit270-belnr     TO itab_imp_rel-nrdoc ,

          text-097                TO itab_imp_rel-tpdoc ,

          text-093                TO itab_imp_rel-idrill,

* << Fim da exclusão

          itab_zycit270-nrseq     TO itab_imp_rel-nrseq ,

          itab_zycit270-embarca   TO itab_imp_rel-embarca,

          text-092                TO itab_imp_rel-origem,

          'X'                     TO itab_imp_rel-cancelado .

    APPEND itab_imp_rel.

  ENDLOOP.

  LOOP AT itab_zycit270 WHERE programa = text-100 AND

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

                                compl  = text-098.

* << Fim da exclusão

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

                                compl  = text-101.

* << Fim da inclusão

    v_nritem = v_nritem + 1.

    CLEAR itab_imp_rel.

    MOVE: v_nritem                TO itab_imp_rel-nrlin ,

          itab_zycit270-belnr     TO itab_imp_rel-nrdoc ,

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

          text-098                TO itab_imp_rel-tpdoc ,

* << Fim da exclusão

          text-094                TO itab_imp_rel-idrill,

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

          text-101                to itab_imp_rel-tpdoc,

* << Fim da inclusão

          itab_zycit270-nrseq     TO itab_imp_rel-nrseq ,

          itab_zycit270-embarca   TO itab_imp_rel-embarca,

          text-092                TO itab_imp_rel-origem,

          'X'                     TO itab_imp_rel-cancelado .

    APPEND itab_imp_rel.

  ENDLOOP.

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

  LOOP AT itab_zycit270 WHERE programa = text-100 AND

                                compl  = text-099.

    v_nritem = v_nritem + 1.

    CLEAR itab_imp_rel.

    MOVE: v_nritem                TO itab_imp_rel-nrlin ,

          itab_zycit270-belnr     TO itab_imp_rel-nrdoc ,

          text-099                TO itab_imp_rel-tpdoc ,

          text-094                TO itab_imp_rel-idrill,

          itab_zycit270-nrseq     TO itab_imp_rel-nrseq ,

          itab_zycit270-embarca   TO itab_imp_rel-embarca,

          text-092                TO itab_imp_rel-origem,

          'X'                     TO itab_imp_rel-cancelado .

    APPEND itab_imp_rel.

  ENDLOOP.

* << Fim da exclusão

  v_impri = 'N'.

  CLEAR v_imp.

  LOOP AT itab_zycit026.

    IF NOT itab_zycit026-docfat IS INITIAL.

      IF v_impri = 'N'.

        v_nritem = v_nritem + 1.

        CLEAR: itab_imp_rel.

        MOVE: v_nritem TO itab_imp_rel-nrlin,

              text-011 TO itab_imp_rel-ordoc.

        APPEND itab_imp_rel.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI023

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 209

Texto: (11 caracteres)

"Compensação"

Comprimento máximo: 15

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 241

Texto: (16 caracteres)

"Variação Cambial"

Comprimento máximo: 16

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

Modificações efetuadas em REPT /PWS/ZYCIR012

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 097

Texto: (15 caracteres)

"Industrializado"

Comprimento máximo: 16

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 101

Texto: (16 caracteres)

"Variação Cambial"

Comprimento máximo: 20

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 127

Texto: (19 caracteres)

"Var.Cambial-Revenda"

Comprimento máximo: 19