Sintoma

Ocorrem problemas em consistencia de datas

Solução

Atualização do sistema de embarque para que as datas apareçam corretamente independente

do fuso horário. Alterado as datas do sistema sy-datum para sy-datlo.

Informações Complementares

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

Nota Número 01437 Data: 26/05/2006 Hora: 16:41:12

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

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

Nota Número              : 01437

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00115

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ALTERAÇÃO DE DATA NO EMBARQUE

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

Palavras Chave:

SY-DATUM - SY-DATLO - DATA DE INICIO

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

Objetos da nota:

REPS /PWS/MZYCI001F01

REPS /PWS/MZYCI001F02

REPS /PWS/MZYCI001O01

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

FORM find_nrseqc.

  DATA:

    v_nrseqc   LIKE /pws/zycit001-nrseq,

    v_count(7) TYPE n,

    v_ano(4).

* >> Início da exclusão: FORM FIND_NRSEQC

  CONCATENATE '%' 'I' sy-datum+2(2) INTO v_ano.

* << Fim da exclusão

* >> Início da inclusão: FORM FIND_NRSEQC

  CONCATENATE '%' 'I' sy-datlo+2(2) INTO v_ano.

* << Fim da inclusão

  SELECT MAX( nrseq ) INTO (v_nrseqc) FROM /pws/zycit001

                                       WHERE nrseq LIKE v_ano.

  v_count = v_nrseqc+0(7) + 1.

* >> Início da exclusão: FORM FIND_NRSEQC

  CONCATENATE v_count+0(7) 'I' sy-datum+2(2) INTO /pws/zycie001-nrseq.

* << Fim da exclusão

* >> Início da inclusão: FORM FIND_NRSEQC

  CONCATENATE v_count+0(7) 'I' sy-datlo+2(2) INTO /pws/zycie001-nrseq.

* << Fim da inclusão

ENDFORM.

FORM carrega_zycbe003.

  READ TABLE it_ekpo_aux WITH KEY ebeln = itab_zycit003-ebeln

                                  ebelp = itab_zycit003-ebelp.

  IF NOT it_ekpo_aux IS INITIAL.

...

...

    ENDLOOP.

  ENDIF.

  SELECT SINGLE * FROM /pws/zycit001 INTO /pws/zycit001 WHERE

         nrseq = /pws/zycie001-nrseq.

  IF sy-subrc NE 0.

* >> Início da exclusão: FORM GRAVA_TABELAS

    /pws/zycie001-dtuserc   = sy-datum.

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVA_TABELAS

    /pws/zycie001-dtuserc   = sy-datlo.

* << Fim da inclusão

    /pws/zycie001-usernamec = sy-uname.

    /pws/zycie001-status_e = 'A'.

  ELSE.

    IF v_tcode EQ '/PWS/ZYCI001_A' .

* >> Início da exclusão: FORM GRAVA_TABELAS

      /pws/zycie001-dtusera   = sy-datum.

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVA_TABELAS

      /pws/zycie001-dtusera   = sy-datlo.

* << Fim da inclusão

      /pws/zycie001-usernamea = sy-uname.

    ENDIF.

  ENDIF.

  IF sy-tcode EQ '/PWS/ZYCI001_C' AND v_salvo NE 'X'.

    /pws/zycie001-status_e = 'A'.

...

...

  IF /pws/zycie001-status NE wa_zycit001-status.

    CLEAR it_zycit255. REFRESH it_zycit255.

    MOVE: sy-mandt           TO it_zycit255-mandt,

          /pws/zycie001-nrseq     TO it_zycit255-nrseq,

          /pws/zycie001-status    TO it_zycit255-status,

* >> Início da exclusão: FORM GRAVA_TABELAS

          sy-datum           TO it_zycit255-data,

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVA_TABELAS

          sy-datlo           TO it_zycit255-data,

* << Fim da inclusão

          sy-uzeit           TO it_zycit255-hora,

          sy-uname           TO it_zycit255-usuario.

    APPEND it_zycit255.

    INSERT INTO /pws/zycit255 VALUES it_zycit255.

  ENDIF.

...

...

  MODIFY itab_zycit125_aux TRANSPORTING nrseq

                       WHERE nrseq = v_nrseq_ant.

  IF ( v_tcode            EQ '/PWS/ZYCI001_C' ) AND

     ( /pws/zycie001-dtuserc   IS INITIAL     ) AND

     ( /pws/zycie001-usernamec IS INITIAL     ).

* >> Início da exclusão: FORM BUSCA_SEQUENCIAL

    MOVE: sy-datum TO /pws/zycie001-dtuserc  ,

* << Fim da exclusão

* >> Início da inclusão: FORM BUSCA_SEQUENCIAL

    MOVE: sy-datlo TO /pws/zycie001-dtuserc  ,

* << Fim da inclusão

          sy-uname TO /pws/zycie001-usernamec.

  ENDIF.

ENDFORM.

FORM verifica_itens.

  DATA:

...

...

                    CHANGING v_nrseq_emp.

  DATA: v_ano_emp LIKE /pws/zycie001-nrseq,

        v_count(6)  TYPE n,

        v_tam       TYPE i,

        v_tam_2     TYPE i.

* >> Início da inclusão: FORM FIND_NRSEQ_EMP

    CONCATENATE p_range '%' 'I' sy-datlo+2(2) INTO v_ano_emp.

* << Fim da inclusão

* >> Início da exclusão: FORM FIND_NRSEQ_EMP

  CONCATENATE p_range '%' 'I' sy-datum+2(2) INTO v_ano_emp.

* << Fim da exclusão

  SELECT MAX( nrseq ) INTO (v_nrseq_emp)

      FROM /pws/zycit001

      WHERE nrseq LIKE v_ano_emp.

  v_tam = strlen( p_range ).

  v_tam_2 = ( 7 - v_tam ).

  v_count(v_tam_2) = v_nrseq_emp+v_tam(v_tam_2) + 1.

* >> Início da exclusão: FORM FIND_NRSEQ_EMP

  CONCATENATE p_range v_count(v_tam_2) 'I' sy-datum+2(2)

* << Fim da exclusão

* >> Início da inclusão: FORM FIND_NRSEQ_EMP

  CONCATENATE p_range v_count(v_tam_2) 'I' sy-datlo+2(2)

* << Fim da inclusão

              INTO v_nrseq_emp.

ENDFORM.

FORM vinculacao_li.

  DATA: v_qtdumest LIKE /pws/zycit003-qtdeumest.

  PERFORM grava_tabelas.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001F02

...

       EXPORTING

            i_montante                 = 1

            i_demoeda                  = p_waers_real

            i_paramoeda                = /pws/zycbt007-waersa

            i_ctmoeda                  = 'M'

* >> Início da exclusão: FORM BUSCA_TAXA_DIA

            i_dtbase                   = sy-datum

* << Fim da exclusão

* >> Início da inclusão: FORM BUSCA_TAXA_DIA

            i_dtbase                   = sy-datlo

* << Fim da inclusão

       IMPORTING

            e_txc                      = p_taxa

       EXCEPTIONS

            i_demoeda_nao_encontrado   = 1

            i_paramoeda_nao_encontrado = 2

...

...

     temp_tabix  LIKE sy-tabix      .

  DATA:BEGIN OF it_temp_03 OCCURS 0.

          INCLUDE STRUCTURE /pws/zycit003.

  DATA:END OF it_temp_03.

  v_nrseq_ant = /pws/zycie001-nrseq.

* >> Início da exclusão: FORM BUSCA_SEQUENCIAL_COPIA

  CONCATENATE '%' 'I' sy-datum+2(2) INTO v_ano.

* << Fim da exclusão

* >> Início da inclusão: FORM BUSCA_SEQUENCIAL_COPIA

    CONCATENATE '%' 'I' sy-datlo+2(2) INTO v_ano.

* << Fim da inclusão

  SELECT MAX( nrseq ) INTO (v_nrseq) FROM /pws/zycit001

                                     WHERE nrseq LIKE v_ano.

  v_count = v_nrseq+0(7) + 1.

  /pws/zycie001-nrseq = v_nrseq.

* >> Início da exclusão: FORM BUSCA_SEQUENCIAL_COPIA

  CONCATENATE v_count 'I' sy-datum+2(2) INTO /pws/zycie001-nrseq.

* << Fim da exclusão

* >> Início da inclusão: FORM BUSCA_SEQUENCIAL_COPIA

  CONCATENATE v_count 'I' sy-datlo+2(2) INTO /pws/zycie001-nrseq.

* << Fim da inclusão

  itab_zycit125_aux-nrseq = /pws/zycie001-nrseq.

  MODIFY itab_zycit125_aux TRANSPORTING nrseq

                       WHERE nrseq = v_nrseq_ant.

  itab_zycit125-nrseq = /pws/zycie001-nrseq.

  MODIFY itab_zycit125 TRANSPORTING nrseq

...

...

    ENDIF.

  ENDLOOP.

  MOVE itab_zycit003[] TO itab_zycit003_aux[] .

  MOVE itab_zycit003[] TO itab_zycit003_aux2[].

  MESSAGE s015 WITH text-180.

* >> Início da exclusão: FORM BUSCA_SEQUENCIAL_COPIA

  MOVE: sy-datum TO /pws/zycie001-dtuserc  ,

* << Fim da exclusão

* >> Início da inclusão: FORM BUSCA_SEQUENCIAL_COPIA

  MOVE: sy-datlo TO /pws/zycie001-dtuserc  ,

* << Fim da inclusão

        sy-uname TO /pws/zycie001-usernamec,

        space    TO /pws/zycie001-dtusera,

        space    TO /pws/zycie001-usernamea.

  v_status_s = 1.

ENDFORM.

...

...

                                                     INTO TABLE itab_li

                                       FOR ALL ENTRIES IN itab_zycit003

                   WHERE /pws/zycit079~ebeln EQ itab_zycit003-ebeln AND

                         /pws/zycit079~ebelp EQ itab_zycit003-ebelp AND

                                       /pws/zycit079~nrseq EQ space AND

* >> Início da exclusão: FORM VERIFICA_LI

                                 /pws/zycit078~dtvencto >= sy-datum AND

* << Fim da exclusão

* >> Início da inclusão: FORM VERIFICA_LI

                                 /pws/zycit078~dtvencto >= sy-datlo AND

* << Fim da inclusão

                                          /pws/zycit078~status EQ 'VAL'.

  ENDIF.

  IF NOT itab_li[] IS INITIAL.

    LOOP AT itab_li.

      SELECT SINGLE * FROM /pws/zycit079

...

...

  ENDIF.

ENDFORM.

FORM selecao_legislacao.

  IF itab_zycit354[] IS INITIAL.

    DATA: v_data(10) TYPE c,

* >> Início da exclusão: FORM SELECAO_LEGISLACAO

         v_datum(10) TYPE c,

* << Fim da exclusão

* >> Início da inclusão: FORM SELECAO_LEGISLACAO

         v_datlo(10) TYPE c,

* << Fim da inclusão

         v_grava     TYPE c.

    CLEAR : dd07t.

* >> Início da exclusão: FORM SELECAO_LEGISLACAO

    CONCATENATE sy-datum+6(2) sy-datum+4(2) sy-datum(4) INTO v_datum.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECAO_LEGISLACAO

    CONCATENATE sy-datlo+6(2) sy-datlo+4(2) sy-datlo(4) INTO v_datum.

* << Fim da inclusão

    IF NOT itab_zycit003[] IS INITIAL.

      SELECT steuc /pws/obrigli FROM t604f

      INTO TABLE itab_t604f

      FOR ALL ENTRIES IN itab_zycit003

      WHERE land1 EQ t001-land1

...

...

      v_exit = 'S'.

      EXIT.

    ENDIF.

    v_criar = 'S'.

    CLEAR: /pws/zycie356.

* >> Início da exclusão: FORM DET_DADOS_LEGAIS

    CONCATENATE '%' 'I' sy-datum+2(2) INTO v_ano.

* << Fim da exclusão

* >> Início da inclusão: FORM DET_DADOS_LEGAIS

        CONCATENATE '%' 'I' sy-datlo+2(2) INTO v_ano.

* << Fim da inclusão

    SELECT MAX( nrseqint )

           INTO (v_nrseqc) FROM /pws/zycit356

           WHERE nrseqint LIKE v_ano.

    v_count = v_nrseqc+0(7) + 1.

* >> Início da exclusão: FORM DET_DADOS_LEGAIS

    CONCATENATE v_count+0(7) 'I' sy-datum+2(2)

* << Fim da exclusão

* >> Início da inclusão: FORM DET_DADOS_LEGAIS

    CONCATENATE v_count+0(7) 'I' sy-datlo+2(2)

* << Fim da inclusão

                INTO /pws/zycie356-nrseqint.

    itab_zycit356-nrseqint  = /pws/zycie356-nrseqint.

    MOVE: /pws/zycie003-nrseq     TO /pws/zycie356-nrseq    ,

          /pws/zycie003-ebeln     TO /pws/zycie356-ebeln    ,

          /pws/zycie003-ebelp     TO /pws/zycie356-ebelp    ,

          /pws/zycie003-waers     TO /pws/zycie356-waers    .

* >> Início da exclusão: FORM DET_DADOS_LEGAIS

    /pws/zycie356-dtuserc   = sy-datum.

* << Fim da exclusão

* >> Início da inclusão: FORM DET_DADOS_LEGAIS

    /pws/zycie356-dtuserc   = sy-datlo.

* << Fim da inclusão

    /pws/zycie356-usernamec = sy-uname.

  ENDIF.

ENDFORM.

FORM observ_dados_legais.

  CLEAR:   itab_tline4.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001O01

...

          FROM lfa1

          WHERE lifnr EQ /pws/zycie001-lifnr.

        v_fornec = lfa1-name1.

      ENDIF.

      IF /pws/zycie001-dtinicio IS INITIAL.

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

        /pws/zycie001-dtinicio = sy-datum.

* << Fim da exclusão

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

        /pws/zycie001-dtinicio = sy-datlo.

* << Fim da inclusão

      ENDIF.

      CLEAR : /pws/zycit120.

      IF NOT /pws/zycie001-modalidade IS INITIAL.

        SELECT SINGLE descricao INTO /pws/zycit120-descricao

               FROM /pws/zycit120

...