Sintoma

Quando alterado o fornecedor de um financiamento com o periodo fechado, o programa faz o batch input

de maneira incorreta.

Solução

Ajustado para pegar a data do dia quando o periodo esta fechado.

Informações Complementares

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

Nota Número 06002 Data: 22/02/2008 Hora: 12:46:59

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

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

Nota Número              : 06002

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00035

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

Referência às notas relacionadas:

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

02252  - 00001 - 6.0    - 00025  - FINANCIAMENTO - PAGE DOWN/PAGE UP - MAPEAMENTO BATCH-INPUT

05836  - 00002 - 7.0    - 00004  - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA PROGRAMA CAMBIO

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

FINANCIAMENTO - ANO CONTABIL - LANÇAMENTO DE ESTORNO

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

Palavras Chave:

FINANCIAMENTO - ANO CONTABIL - LANÇAMENTO DE ESTORNO

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

Objetos da nota:

FUNC /PWS/ZYCM_TRANSACAO_FB08

REPS /PWS/MZYCM101I01

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

Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_FB08

...

    SELECT SINGLE * FROM /pws/zycbt007

                    WHERE bukrs EQ t_dados-bukrs.

    IF t_dados-stgrd = '01'.

      IF NOT /pws/zycbt007-percorr IS INITIAL.

        t_dados-stgrd = /pws/zycbt007-percorr.

      ENDIF.

    ELSEIF t_dados-stgrd = '02'.

      IF NOT /pws/zycbt007-perencer IS INITIAL.

        t_dados-stgrd = /pws/zycbt007-perencer.

      ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_FB08

      t_dados-budat = sy-datum.

* << Fim da inclusão

    ENDIF.

    IF v_gjahs IS INITIAL.

      PERFORM bdc_screen USING 'SAPMF05A' '0105'.

      PERFORM bdc_field  USING:

             'RF05A-BELNS' t_dados-belnr,

             'RF05A-GJAHS' v_date,

             'BKPF-BUKRS'  t_dados-bukrs,

             'UF05A-STGRD' t_dados-stgrd,

             'BDC_OKCODE'  '=BU'.

    ELSE.

...

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

Modificações efetuadas em REPS /PWS/MZYCM101I01

...

              FROM /pws/zycbt154

                up to 1 rows

              INTO /pws/zycbt154-dtcont

             WHERE codmod EQ 'I'

             AND codmodul EQ 'T'

            AND nrcorresp EQ /pws/zycbe112-nrseq

             AND belnr_cl EQ v_valor.

            endselect.

            i_gjahr = /pws/zycbt154-dtcont(4).

          ELSE.

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

            i_gjahr = wa_zycbt112-dtdesem(4).

* << Fim da exclusão

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

            i_gjahr = wa_zycbt112-dtcont(4).

* << Fim da inclusão

          ENDIF.

        ENDIF.

        SET PARAMETER ID 'BUK' FIELD i_bukrs.

        SET PARAMETER ID 'BLN' FIELD i_belnr.

        SET PARAMETER ID 'GJR' FIELD i_gjahr.

        AUTHORITY-CHECK OBJECT 'S_TCODE'

            ID 'TCD'  FIELD 'FB03'.

        IF sy-subrc EQ 0.

          CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

        ELSE.

...