Sintoma

a geraçao do boleto apos despesa , a data é gravada incorretamente quando a configuração da data é

alterada para AAAA/MM/DD

Solução

o programa deve verificar a configuração da data para gravá-la corretamente

Informações Complementares

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

Nota Número 07197 Data: 26/08/2008 Hora: 11:36:26

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

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

Nota Número              : 07197

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00062

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

Referência às notas relacionadas:

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

04823  - 00002 - 7.0    - 00003  - COMPLEMENTO DO BOLETO - F-51 DATA EM FORMATO AMERICANO

06077  - 00001 - 7.0    - 00004  - DESPESAS DE EXPORTAÇÃO

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

NA GERAÇAO DO BOLETO APOS DESPESA , A DATA É GRAVADA INCORRETAMENTE

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

Palavras Chave:

PROCESSAR BOLETO DESPESA TEM DATA GRAVADA INCORRETAMENTE QDO AAAA/MM/DD

QUANDO A CONFIGURAÇÃO DA DATA É ALTERADA PARA AAAA/MM/DD

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

Objetos da nota:

FUNC /PWS/ZYGL_TRANSACAO_F_02

FUNC /PWS/ZYGL_TRANSACAO_F_51K

REPS /PWS/LZYGLGF2TOP

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

Modificações efetuadas em FUNC /PWS/ZYGL_TRANSACAO_F_02

...

    PERFORM check_periodo USING    v_koart

                                   v_monat

                                   v_bukrs

                                   v_gjahr

                          CHANGING v_data_lanc_char

                                   v_ok.

    IF sy-ucomm = 'SAVE'.

      sy-ucomm = 'PROC'.

    ENDIF.

    FREE: MEMORY ID '0156'.

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

    SELECT SINGLE datfm FROM usr01 INTO usr01-datfm

                  WHERE bname = sy-uname.

    CASE usr01-datfm .

      WHEN '1' or '2' or '3' .

* << Fim da inclusão

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

                v_data_lanc_char+0(2)

           INTO v_datalanc.

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

      WHEN '4' OR '5' OR '6' .

        CONCATENATE v_data_lanc_char(4) v_data_lanc_char+5(2)

                    v_data_lanc_char+8(2) INTO v_datalanc.

    ENDCASE.

* << Fim da inclusão

    EXPORT v_datalanc TO MEMORY ID '0156'.

...

...

    READ TABLE itab_oculto WITH KEY campo = 'COBL-WERKS' chave = 'D'.

    IF sy-subrc <> 0.

      IF NOT t_dados-werks IS INITIAL.

        PERFORM bdc_field  USING 'COBL-WERKS' t_dados-werks.

      ENDIF.

    ENDIF.

    PERFORM bdc_field USING 'BDC_OKCODE' '=ENTE'.

    CLEAR v_emprsa.

    CALL CUSTOMER-FUNCTION '001'

         IMPORTING

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

              v_processa = v_emprsa."#EC *

* << Fim da exclusão

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

              v_processa = v_emprsa.                        "#EC *

* << Fim da inclusão

    IF v_emprsa = 'X'.

      PERFORM bdc_screen USING 'SAPLKEAK' v_tela.

      PERFORM bdc_field USING 'BDC_OKCODE' 'WEIT'.

    ENDIF.

    WRITE: t_dados-c_valut TO v_data_val_char.

    PERFORM bdc_screen USING 'SAPMF05A' v_tela.

    IF NOT t_dados-dmbtr IS INITIAL AND

           t_dados-waers NE /pws/zycbt007-waersb.

      WRITE : t_dados-dmbtr TO v_dmbtr CURRENCY t_dados-waersb.

      PERFORM bdc_field  USING:

...

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

Modificações efetuadas em FUNC /PWS/ZYGL_TRANSACAO_F_51K

FUNCTION /pws/zygl_transacao_f_51k.

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

  TABLES: usr01.

* << Fim da exclusã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),

...

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

Modificações efetuadas em REPS /PWS/LZYGLGF2TOP

...

        /pws/zycbt007,

        /pws/zycbt009,

        j_1bam,

        /pws/zycet036,

        /pws/zycet037,

        tbsl,

        tstcp,

        t019,

        t020,

        ska1,

* >> Início da inclusão:

        usr01,

* << Fim da inclusão

        bseg.

TYPES: BEGIN OF msg_struc,

        tcode LIKE bdcmsgcoll-tcode,

        dyname LIKE bdcmsgcoll-dyname,

        dynumb LIKE bdcmsgcoll-dynumb,

        msgtyp LIKE bdcmsgcoll-msgtyp,

        msgspra LIKE bdcmsgcoll-msgspra,

        msgid LIKE bdcmsgcoll-msgid,

        msgnr LIKE bdcmsgcoll-msgnr,

        msgv1 LIKE balm-msgv1,

...