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/ZYGL_TRANSACAO_F_51K, verificando a parametrização de data do

usuário.

Informações Complementares

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

Nota Número 04823 Data: 26/09/2007 Hora: 10:40:00

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

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

Nota Número              : 04823

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00014

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

COMPLEMENTO DO BOLETO - F-51 DATA EM FORMATO AMERICANO

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

Palavras Chave:

COMPLEMENTO DO BOLETO - F-51 DATA EM FORMATO AMERICANO

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

Objetos da nota:

FUNC /PWS/ZYGL_TRANSACAO_F_51K

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

Modificações efetuadas em FUNC /PWS/ZYGL_TRANSACAO_F_51K

FUNCTION /pws/zygl_transacao_f_51k.

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

 TABLES: USR01.

* << Fim da inclusão

  DATA:

    v_cont(2) TYPE n,

    v_tabix   LIKE sy-tabix,

    v_campo(15),

    v_bldat(10),

    v_budat(10),

    v_wrbtr(16),

    v_dmbtr(16),

    v_residuo(15),

    v_kursf(9),

...

...

        wa_zycbt089 LIKE /pws/zycbt089.

  CLEAR v_xpos1.

  SELECT * FROM t041t INTO TABLE itab_t041t

       WHERE spras = sy-langu.

  READ TABLE itab_t041t WITH KEY auglv = 'UMBUCHNG'.

  v_xpos1 = sy-tabix.

  SHIFT v_xpos1 LEFT DELETING LEADING '0'.

  CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos_comp.

  LOOP AT t_dados.

    CHECK t_dados-tcode = 'F-51'.

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

    CLEAR usr01-datfm.

    SELECT SINGLE datfm FROM usr01 INTO usr01-datfm

                  WHERE bname = sy-uname.

* << Fim da inclusão

    IF ( t_dados-bukrs = space ).

      t_campo-mandt = t_dados-mandt.

      t_campo-campo = 'BKPF-BUKRS'.

      t_campo-descricao = text-021.

      APPEND t_campo.

      RAISE campo_em_branco.

    ENDIF.

    IF ( t_dados-d_newko = space ).

      t_campo-mandt = t_dados-mandt.

      t_campo-campo = 'RF05A-NEWKO'.

...

...

    PERFORM check_periodo USING    v_koart

                                   v_monat

                                   v_bukrs

                                   v_gjahr

                          CHANGING v_budat

                                   v_ok.

    IF v_budat+8(1) EQ ' '.

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

      MOVE v_budat+4(4) TO v_gjahr.

    ELSE.

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

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

* << Fim da inclusão

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

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

  ELSE.

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

  ENDIF.

* << Fim da inclusão

      MOVE v_budat+6(4) TO v_gjahr.

    ENDIF.

    PERFORM bdc_screen USING 'SAPMF05A' '0122'.

    PERFORM bdc_field USING:

...