Sintoma

O programa não abre o documento contábil quando o usuario clica 2 vezes.

Solução

Programa ajustado para que a busca do exercicio do documento seja feita de modo correto.

Informações Complementares

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

Nota Número 06910 Data: 03/07/2008 Hora: 13:42:01

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

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

Nota Número              : 06910

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00054

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

Referência às notas relacionadas:

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

05839  - 00001 - 7.0    - 00004  - VERIFICAÇÃO AMPLIADA E CODE INSPECTOR EM PROGRAMAS DE CAMBIO

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

FATURA - DRILL-DOWN DO DOCUMENTO CONTÁBIL

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

Palavras Chave:

FATURA - DRILL-DOWN DO DOCUMENTO CONTÁBIL

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

Objetos da nota:

REPS /PWS/MZYCB106I01

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

Modificações efetuadas em REPS /PWS/MZYCB106I01

...

MODULE consiste_texto INPUT.

ENDMODULE.

MODULE consiste_percentual INPUT.

  IF /pws/zycbe119-percomis GT 100.

    MESSAGE i159.

    /pws/zycbe119-percomis = space.

  ENDIF.

ENDMODULE.

MODULE visualiza_documento INPUT.

  DATA: v_data LIKE sy-datum.

* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO

  DATA: v_year TYPE T009B-BDATJ.

* << Fim da inclusão

  CASE ok_code.

    WHEN 'CS'.

      GET CURSOR FIELD v_campo VALUE v_valor.

      IF v_campo EQ '/PWS/ZYCBE119-BELNR_P'.

        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

             EXPORTING

                  input  = v_valor

             IMPORTING

                  output = i_belnr

             EXCEPTIONS

...

...

                 AND   belnr_rfat  = i_belnr. "#EC CI_NOFIRST

          ENDSELECT.

          IF sy-subrc = 0 AND NOT /pws/zycbt131-dtassoc IS INITIAL.

            v_data = /pws/zycbt131-dtassoc.

          ELSE.

            v_data = /pws/zycbe108-bldat.

          ENDIF.

        ENDIF.

        SET PARAMETER ID 'BUK' FIELD /pws/zycbe119-bukrs.

        SET PARAMETER ID 'BLN' FIELD i_belnr.

* >> Início da exclusão: MODULE VISUALIZA_DOCUMENTO

        SET PARAMETER ID 'GJR' FIELD v_data(4).

* << Fim da exclusão

* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO

        CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

             EXPORTING

                  v_bukrs                = /pws/zycbe119-bukrs

                  v_date                 = v_data

             IMPORTING

                  v_year                 = v_year

             EXCEPTIONS

                  variante_de_exercicio  = 1

                  data_nao_encontrada    = 2

                  empresa_nao_encontrada = 3

                  period_in_not_valid    = 4

                  period_not_assigned    = 5

                  version_undefined      = 6

                  OTHERS                 = 7.

        SET PARAMETER ID 'GJR' FIELD v_year.

* << Fim da inclusão

        AUTHORITY-CHECK OBJECT 'S_TCODE'

             ID 'TCD'  FIELD 'FB03'.

        IF sy-subrc EQ 0.

          CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

        ELSE.

          MESSAGE e261(sf) WITH 'FB03'.

        ENDIF.

      ENDIF.

      IF v_campo EQ '/PWS/ZYCBE108-BELNR_CO'.

        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

             EXPORTING

                  input  = v_valor

             IMPORTING

                  output = i_belnr

             EXCEPTIONS

            OTHERS        = 0.

        IF /pws/zycbe108-bldat NE ' ' AND

           /pws/zycbe108-bldat NE '00000000'.

* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO

            CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

                 EXPORTING

                      v_bukrs                = /pws/zycbe119-bukrs

                      v_date                 = /pws/zycbe108-bldat

                 IMPORTING

                      v_year                 = v_year

                 EXCEPTIONS

                      variante_de_exercicio  = 1

                      data_nao_encontrada    = 2

                      empresa_nao_encontrada = 3

                      period_in_not_valid    = 4

                      period_not_assigned    = 5

                      version_undefined      = 6

                      OTHERS                 = 7.

* << Fim da inclusão

          SELECT SINGLE * FROM bkpf

            WHERE bukrs = wa_zycbt119-bukrs

              AND belnr = i_belnr

* >> Início da exclusão: MODULE VISUALIZA_DOCUMENTO

               AND gjahr = /pws/zycbe108-bldat(4).

* << Fim da exclusão

* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO

               AND gjahr = v_year.

* << Fim da inclusão

        ELSE.

* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO

            CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

                 EXPORTING

                      v_bukrs                = /pws/zycbe119-bukrs

                      v_date                 = wa_zycbt119-dtincl

                 IMPORTING

                      v_year                 = v_year

                 EXCEPTIONS

                      variante_de_exercicio  = 1

                      data_nao_encontrada    = 2

                      empresa_nao_encontrada = 3

                      period_in_not_valid    = 4

                      period_not_assigned    = 5

                      version_undefined      = 6

                      OTHERS                 = 7.

* << Fim da inclusão

          SELECT SINGLE * FROM bkpf

            WHERE bukrs = wa_zycbt119-bukrs

              AND belnr = i_belnr

* >> Início da exclusão: MODULE VISUALIZA_DOCUMENTO

              AND gjahr = wa_zycbt119-dtincl(4).

* << Fim da exclusão

* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO

              AND gjahr = v_year.

* << Fim da inclusão

        ENDIF.

        IF sy-subrc EQ 0.

          SET PARAMETER ID 'BUK' FIELD wa_zycbt119-bukrs.

          SET PARAMETER ID 'BLN' FIELD i_belnr.

          IF /pws/zycbe108-bldat NE ' ' AND

             /pws/zycbe108-bldat NE '00000000'.

* >> Início da exclusão: MODULE VISUALIZA_DOCUMENTO

            SET PARAMETER ID 'GJR' FIELD /pws/zycbe108-bldat.

* << Fim da exclusão

* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO

            SET PARAMETER ID 'GJR' FIELD v_year.

* << Fim da inclusão

          ELSE.

* >> Início da exclusão: MODULE VISUALIZA_DOCUMENTO

            SET PARAMETER ID 'GJR' FIELD wa_zycbt119-dtincl(4).

* << Fim da exclusão

* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO

            SET PARAMETER ID 'GJR' FIELD v_year.

* << Fim da inclusão

          ENDIF.

          AUTHORITY-CHECK OBJECT 'S_TCODE'

              ID 'TCD'  FIELD 'FB03'.

...

...

        ENDIF.

      ENDIF.

      IF v_campo EQ '/PWS/ZYCBE119-BELNR51'.

        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

             EXPORTING

                  input  = v_valor

             IMPORTING

                  output = i_belnr

             EXCEPTIONS

            OTHERS        = 0.

* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO

            CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

                 EXPORTING

                      v_bukrs                = /pws/zycbe119-bukrs

                      v_date                 = wa_zycbt119-dtpagto

                 IMPORTING

                      v_year                 = v_year

                 EXCEPTIONS

                      variante_de_exercicio  = 1

                      data_nao_encontrada    = 2

                      empresa_nao_encontrada = 3

                      period_in_not_valid    = 4

                      period_not_assigned    = 5

                      version_undefined      = 6

                      OTHERS                 = 7.

* << Fim da inclusão

        SELECT SINGLE * FROM bkpf

          WHERE bukrs = /pws/zycbe119-bukrs

            AND belnr = i_belnr

* >> Início da exclusão: MODULE VISUALIZA_DOCUMENTO

             AND gjahr = wa_zycbt119-dtpagto(4).

* << Fim da exclusão

* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO

             AND gjahr = v_year.

* << Fim da inclusão

        IF sy-subrc EQ 0.

          SET PARAMETER ID 'BUK' FIELD /pws/zycbe119-bukrs.

          SET PARAMETER ID 'BLN' FIELD i_belnr.

* >> Início da exclusão: MODULE VISUALIZA_DOCUMENTO

          SET PARAMETER ID 'GJR' FIELD wa_zycbt119-dtpagto.

* << Fim da exclusão

* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO

            SET PARAMETER ID 'GJR' FIELD v_year.

* << Fim da inclusão

          AUTHORITY-CHECK OBJECT 'S_TCODE'

              ID 'TCD'  FIELD 'FB03'.

          IF sy-subrc EQ 0.

            CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

          ELSE.

            MESSAGE e261(sf) WITH 'FB03'.

          ENDIF.

        ENDIF.

      ENDIF.

      IF ( v_campo EQ '/PWS/ZYCBE119-NRSEQ2' ) AND

...