Sintoma

Ao utilizar formato americano (MM/DD/AAAA) alguns erros ocorrem durante a execução do BI da Rotina

de Pagamento, como o período assumir o valor do dia da data.

Solução

Alterações realizadas na include /PWS/ZYCM_TRANSACAO_F_43C, verificando a parametrização de data do

usuário.

Informações Complementares

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

Nota Número 04814 Data: 25/09/2007 Hora: 10:38:50

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

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

Nota Número              : 04814

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00013

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

Referência às notas relacionadas:

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

03860  - 00001 - 7.0    - 00001  - COMPLEMENTO DO BOLETO - DTCREDPR - PERIODO FECHADO

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

COMPLEMENTO DO BOLETO

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

Palavras Chave:

COMPLEMENTO DO BOLETO - DATA EM FORMATO AMERICANO

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

Objetos da nota:

FUNC /PWS/ZYCM_TRANSACAO_F_43C

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

Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_43C

...

    v_ulsk1              LIKE t042-ulsk1,

    v_ulsk2              LIKE t042-ulsk2,

    v_umsks              LIKE t074u-umsks,

    v_ok(1)              VALUE 'N',

    v_umskz              TYPE /pws/zycbe033-umskz,

    v_newbs              TYPE /pws/zycbe033-newbs,

    v_agkon              TYPE skb1-saknr,

    t_telas              TYPE rpy_dyfatc OCCURS 0 WITH HEADER LINE,

    v_programa(40)       TYPE c VALUE 'SAPMF05A'.

  LOOP AT t_dados.

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

    CLEAR usr01-datfm.

    SELECT SINGLE datfm FROM usr01 INTO usr01-datfm

                  WHERE bname = sy-uname.

* << Fim da inclusão

    CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

         EXPORTING

              v_bukrs = t_dados-bukrs

              v_date  = t_dados-budat

         IMPORTING

              v_year  = v_date.

    CHECK t_dados-tcode = 'F-43'.

    IF t_dados-newbs1 EQ '31'.

      SELECT SINGLE akont

           FROM lfb1

...

...

    v_monat = t_dados-budat+4(2).

    v_gjahr = v_date.

    v_koart = 'K'.

    v_data_lanc_char_ant = v_data_lanc_char.

    PERFORM check_periodo USING v_koart

                                v_monat

                                v_bukrs

                                v_gjahr

                       CHANGING v_data_lanc_char

                                v_ok.

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

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

* << Fim da inclusão

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

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

    MOVE v_data_lanc_char+6(4) TO v_gjahr.

* << Fim da exclusão

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

    ELSE.

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

    ENDIF.

    v_gjahr   = v_data_lanc_char+6(4).

* << Fim da inclusão

  t_dados-budat(4)   = v_data_lanc_char+6(4).

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

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

* << Fim da inclusão

  t_dados-budat+4(2) = v_data_lanc_char+3(2).

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

  t_dados-budat+6(2) = v_data_lanc_char(2).

* << Fim da exclusão

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

    t_dados-budat+6(2) = v_data_lanc_char+0(2).

  ELSE.

    t_dados-budat+4(2) = v_data_lanc_char(2).

    t_dados-budat+6(2) = v_data_lanc_char+3(2).

  ENDIF.

* << Fim da inclusão

    PERFORM bdc_screen USING 'SAPMF05A' '0100'.

    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,

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

           'BKPF-WAERS'  t_dados-waers,

           'BKPF-BRNCH'  t_dados-brnch,

           'BKPF-KURSF'  v_kursf,

...