Sintoma

Estava trazendo o Exercício incorreto na 'FB03'.

Solução

Desenvolvimento para buscar o Exercício baseado no Ano Contábil.

Informações Complementares

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

Nota Número 08691 Data: 16/07/2009 Hora: 16:40:39

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

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

Nota Número              : 08691

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00105

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

BUSCAR EXERCÍCIO PRESTAÇÃO DE CONTAS

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

Palavras Chave:

BUSCAR EXERCÍCIO PRESTAÇÃO DE CONTAS

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

Objetos da nota:

REPS /PWS/MZYCE013F01

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

Modificações efetuadas em REPS /PWS/MZYCE013F01

...

      CALL TRANSACTION '/PWS/ZYCE003_E' AND SKIP FIRST SCREEN.

    ENDIF.

  ELSEIF v_field = '/PWS/ZYCEE033-DOCFAT'    OR

         v_field = '/PWS/ZYCEE033-DOCOMPROV' OR

         v_field = '/PWS/ZYCEE033-DOCNUM_1'.

    IF NOT v_value IS INITIAL.

      i_belnr = v_value.

      i_bukrs = /pws/zycee033-bukrs.

      GET CURSOR FIELD v_field VALUE v_belnr_bkpf.

      UNPACK v_belnr_bkpf TO v_belnr_bkpf.

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

      SELECT SINGLE gjahr FROM bkpf INTO i_gjahr

        WHERE bukrs = /pws/zycee033-bukrs

        AND   belnr = v_belnr_bkpf

        AND   gjahr = /pws/zycee033-dtlanc(4).

      IF sy-subrc NE 0 OR i_gjahr IS INITIAL.

* << Fim da exclusão

        CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

             EXPORTING

                  v_bukrs = /pws/zycee033-bukrs

                  v_date  = /pws/zycee033-dtacerto

             IMPORTING

                  v_year  = i_gjahr.

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

      ENDIF.

* << Fim da exclusão

      SET PARAMETER ID 'BUK' FIELD i_bukrs.

...

...

      IF v_authority = 'S'.

        CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

      ENDIF.

    ENDIF.

  ELSEIF v_field = '/PWS/ZYCEE033-DOCOMP' .

    IF NOT v_value IS INITIAL.

      i_belnr = v_value.

      i_bukrs = /pws/zycee033-bukrs.

      GET CURSOR FIELD v_field VALUE v_belnr_bkpf.

      UNPACK v_belnr_bkpf TO v_belnr_bkpf.

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

      SELECT SINGLE gjahr FROM bkpf INTO i_gjahr

        WHERE bukrs = /pws/zycee033-bukrs

        AND   belnr = v_belnr_bkpf

        AND   gjahr = /pws/zycee033-budat(4).

      IF sy-subrc NE 0 OR i_gjahr IS INITIAL.

* << Fim da exclusão

        CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

             EXPORTING

                  v_bukrs = /pws/zycee033-bukrs

                  v_date  = /pws/zycee033-budat

             IMPORTING

                  v_year  = i_gjahr.

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

      ENDIF.

* << Fim da exclusão

      SET PARAMETER ID 'BUK' FIELD i_bukrs.

...