Sintoma

Ao fazer a Associação de Pagamento Antecipado a uma determinada Fatura, o programa exibe mensagem

informando que o periodo "26", não existe. Este erro acontece, por que no Batch input, na Transação

F-51, no Campo Periodo, o programa considera o periodo 26, por que a data de lançamento está no

Formato MM/DD/AAAA.

Solução

Análise e ajustes efetuados nas funções de BI para verificar o período contábil corretamente,

indepentende do formato de saída da data na tela.

Informações Complementares

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

Nota Número 00798 Data: 03/02/2006 Hora: 11:10:13

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

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

Nota Número              : 00798

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00099

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ASSOCIAÇÃO - TRATAMENTO PARA A DATA CONFORME PARAMETRIZAÇÃO POR USUÁRIO

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

Palavras Chave:

ASSOCIAÇÃO TRATAMENTO DATA PARAMETRIZAÇÃO USUÁRIO

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

Objetos da nota:

FUNC /PWS/ZYCM_TRANSACAO_FB08

FUNC /PWS/ZYCM_TRANSACAO_F_51N

FUNC /PWS/ZYCM_TRANSACAO_F_51O

REPS /PWS/LZYCMGF2TOP

REPS /PWS/SAPLZYCMGF2

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

Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_FB08

...

      ELSE.

        WRITE: t_dados-budat TO v_data_lanc_char.

      ENDIF.

      PERFORM bdc_field  USING:

            'BSIS-BUDAT'  v_data_lanc_char,

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

            'BSIS-MONAT'  v_data_lanc_char+3(2).

* << Fim da exclusão

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

            'BSIS-MONAT'  t_dados-budat+4(2).

* << Fim da inclusão

    ENDIF.

    REFRESH itab_msg.

    CLEAR itab_msg.

    v_transacao = 'FB08'.

    v_update = 'S'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_51N

...

                                   v_bukrs

                                   v_gjahr

                          CHANGING v_data_lanc_char

                                   v_ok.

    IF v_data_lanc_char NE v_dtlanc_char.

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

      SELECT SINGLE datfm FROM usr01 into usr01-datfm

                    WHERE bname = sy-uname.

      IF usr01-datfm = 1 or sy-subrc ne 0.

* << Fim da inclusão

      CONCATENATE v_data_lanc_char+6(4) v_data_lanc_char+3(2)

                  v_data_lanc_char(2) INTO t_dados-budat.

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

      ELSE.

        CONCATENATE v_data_lanc_char+6(4) v_data_lanc_char(2)

                    v_data_lanc_char+3(2) INTO t_dados-budat.

      ENDIF.

* << Fim da inclusão

      MODIFY t_dados.

    ENDIF.

* >> Início da exclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_51N

    CONCATENATE '0' v_data_lanc_char+3(2) INTO v_monat.

    MOVE v_data_lanc_char+6(4) TO v_gjahr.

* << Fim da exclusão

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

    MOVE t_dados-budat(4) TO v_gjahr.

* << Fim da inclusão

    PERFORM bdc_screen USING 'SAPMF05A' '0122'.

    PERFORM bdc_field  USING:

           'BKPF-BLDAT'  v_data_doc_char,

           'BKPF-BLART'  t_dados-blart,

           'BKPF-BUKRS'  t_dados-bukrs,

           'BKPF-BUDAT'  v_data_lanc_char,

* >> Início da exclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_51N

           'BKPF-MONAT'  v_data_lanc_char+3(2),

* << Fim da exclusão

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

           'BKPF-MONAT'  t_dados-budat+4(2),

* << Fim da inclusão

           'BKPF-WAERS'  t_dados-waers,

           'BKPF-KURSF'  v_kursf,

           'BKPF-WWERT'  v_data_conv_char,

           'BKPF-BVORG'  t_dados-bvorg,

           'BKPF-BKTXT'  t_dados-bktxt,

...

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

Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_51O

...

                          CHANGING v_budat

                                   v_ok.

    CONCATENATE '0' v_budat+3(2) INTO v_monat.

    MOVE v_budat+6(4) TO v_gjahr.

    IF v_budat NE v_budat_ant.

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

      SELECT SINGLE datfm FROM usr01 INTO usr01-datfm

                    WHERE bname = sy-uname.

      IF usr01-datfm = 1 OR sy-subrc NE 0.

* << Fim da inclusão

      CONCATENATE v_budat+6(4) v_budat+3(2) v_budat(2)

                  INTO t_dados-budat.

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

      ELSE.

        CONCATENATE v_budat+6(4) v_budat(2) v_budat+3(2)

                    INTO t_dados-budat.

      ENDIF.

* << Fim da inclusão

    ENDIF.

    PERFORM bdc_screen USING 'SAPMF05A' '0122'.

    PERFORM bdc_field USING:

            'BKPF-BLDAT'  v_bldat,

            'BKPF-BLART'  t_dados-blart,

            'BKPF-BUKRS'  v_bukrs,

            'BKPF-BUDAT'  v_budat,

* >> Início da exclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_51O

            'BKPF-MONAT'  v_budat+3(2),

* << Fim da exclusão

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

            'BKPF-MONAT'  t_dados-budat+4(2),

* << Fim da inclusão

            'BKPF-WAERS'  t_dados-waers,

            'BKPF-KURSF'  v_kursf,

            'BKPF-BKTXT'  t_dados-bktxt,

            'RF05A-AUGTX' t_dados-augtx,

            'BDC_OKCODE'  '=SL'.

...

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

Modificações efetuadas em REPS /PWS/LZYCMGF2TOP

FUNCTION-POOL /pws/zycmgf2.

* >> Início da inclusão:

INCLUDE /pws/lzycmgf2x01.

* << Fim da inclusão

TABLES: skb1,

        lfbw,

        lfa1,

        lfb1,

        knb1,

...

...

        /pws/zycit094,

        /pws/zycit031,

        /pws/zycbt009,

        j_1bam,

        /pws/zycet036,

* >> Início da exclusão:

        /pws/zycet037.

* << Fim da exclusão

* >> Início da inclusão:

        /pws/zycet037,

        usr01.

* << Fim da inclusão

TYPES: BEGIN OF msg_struc,

        tcode LIKE bdcmsgcoll-tcode,

        dyname LIKE bdcmsgcoll-dyname,

        dynumb LIKE bdcmsgcoll-dynumb,

        msgtyp LIKE bdcmsgcoll-msgtyp,

...

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

Modificações efetuadas em REPS /PWS/SAPLZYCMGF2

  INCLUDE /PWS/LZYCMGF2TOP.

* >> Início da exclusão:

  INCLUDE /PWS/LZYCMGF2X01.

* << Fim da exclusão

  INCLUDE /PWS/LZYCMGF2UXX.

INCLUDE /PWS/LZYCMGF2F01.