Sintoma

Problemas ao gravar data do sistema.

Solução

Atualização dos campos data do sistema no BL para tratar corretamente o fuso horário.

Alterado as datas do sistema sy-datum para sy-datlo

Informações Complementares

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

Nota Número 01398 Data: 24/05/2006 Hora: 11:10:00

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

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

Nota Número              : 01398

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

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

AJUSTES SY-DATUM / SY-DATLO

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

Palavras Chave:

DATA LANÇAMENTO - SY-DATUM - SY-DATLO

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

Objetos da nota:

DYNP /PWS/SAPMZYCI002                        0101

DYNP /PWS/SAPMZYCI002                        0105

REPS /PWS/MZYCI002F02

REPS /PWS/MZYCI002I01

REPS /PWS/MZYCI002O01

REPS /PWS/MZYCI002OO

REPS /PWS/MZYCI002TOP

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

Modificações efetuadas em REPS /PWS/MZYCI002F02

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( nrseqce ) INTO (v_nrseqc) FROM /pws/zycit093

                                               WHERE nrseqce 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/zycie093-nrseqce.

* << Fim da exclusão

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

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

* << Fim da inclusão

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

     ( /pws/zycie093-dtuserc   IS INITIAL     ) AND

     ( /pws/zycie093-usernamec IS INITIAL     ).

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

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

* << Fim da exclusão

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

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

* << Fim da inclusão

          sy-uname TO /pws/zycie093-usernamec.

  ENDIF.

ENDFORM.

FORM grava_tabelas.

  DATA: v_existe VALUE 'N',

        wa_zycit001 LIKE /pws/zycit001.

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

         nrseqce = /pws/zycie093-nrseqce.

  IF sy-subrc NE 0.

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

    /pws/zycie093-dtuserc   = sy-datum.

* << Fim da exclusão

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

    /pws/zycie093-dtuserc   = sy-datlo.

* << Fim da inclusão

    /pws/zycie093-usernamec = sy-uname.

  ELSE.

    IF v_tcode EQ '/PWS/ZYCI002_A'.

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

      /pws/zycie093-dtusera   = sy-datum.

* << Fim da exclusão

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

      /pws/zycie093-dtusera   = sy-datlo.

* << Fim da inclusão

      /pws/zycie093-usernamea = sy-uname.

    ENDIF.

  ENDIF.

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

    INSERT INTO /pws/zycit093 VALUES /pws/zycie093.

...

...

    PERFORM salvar_texto.

    MESSAGE s017 WITH /pws/zycie093-nrseqce.

    IF ( v_tcode EQ '/PWS/ZYCI002_C' OR

         v_tcode EQ '/PWS/ZYCI002_A' ).

      MOVE: itab_zycit094s[] TO itab_zycit094a[],

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

            /pws/zycie093         TO wa_zycie093     ,

* << Fim da exclusão

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

              /pws/zycie093    TO wa_zycie093,

* << Fim da inclusão

            itab_zycit014[]  TO itab_zycit014a[],

            itab_zycit055[]  TO itab_zycit055a[].

    ENDIF.

  ELSE.

    MESSAGE i015 WITH text-016.

...

...

  IF v_status EQ 1 AND /pws/zycie093-flagtransp EQ 'N'.

    CLEAR: /pws/zycie093-transp.

  ENDIF.

  IF v_status EQ 1.

    IF /pws/zycie093-dtlanc IS INITIAL.

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

      MOVE: sy-datum TO /pws/zycie093-dtlanc.

* << Fim da exclusão

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

      MOVE: sy-datlo TO /pws/zycie093-dtlanc.

* << Fim da inclusão

    ENDIF.

  ENDIF.

ENDFORM.

FORM trata_botao_mall.

  IF ( ts_bl-activetab EQ 'FC_COMP' ).

...

...

      v_nrseqce   LIKE /pws/zycit093-nrseqce,

      v_nrseq_ant LIKE /pws/zycit093-nrseqce,

      v_count(7) TYPE n,

      v_ano(4).

  v_nrseq_ant = /pws/zycie093-nrseqce.

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

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

* << Fim da exclusão

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

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

* << Fim da inclusão

  SELECT MAX( nrseqce ) INTO (v_nrseqce) FROM /pws/zycit093

                                     WHERE nrseqce LIKE v_ano.

  v_count = v_nrseqce+0(7) + 1.

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

  CONCATENATE v_count 'I' sy-datum+2(2) INTO /pws/zycie093-nrseqce.

* << Fim da exclusão

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

  CONCATENATE v_count 'I' sy-datlo+2(2) INTO /pws/zycie093-nrseqce.

* << Fim da inclusão

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

     ( /pws/zycie093-dtuserc   IS INITIAL     ) AND

     ( /pws/zycie093-usernamec IS INITIAL     ).

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

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

* << Fim da exclusão

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

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

* << Fim da inclusão

          sy-uname TO /pws/zycie093-usernamec.

  ENDIF.

  READ TABLE itab_zycit094s WITH KEY nrseqce = v_nrseq_ant.

  IF sy-subrc = 0.

    MOVE /pws/zycie093-nrseqce TO itab_zycit094s-nrseqce.

...

...

               itab_zycit014_da-quant   to itab_zycit014-quant  .

        append itab_zycit014.

     endloop.

  endif.

endform.

* >> Início da inclusão:

FORM free_time.

  SELECT codarmad codagente free_time FROM /pws/zycet133

   INTO TABLE itab_zycet133

    WHERE codarmad  = /pws/zycie093-armador

      AND codagente = /pws/zycie093-agente.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI002I01

...

  ENDIF.

  CLEAR : /pws/zycie055-perarmaz.

  CLEAR: v_int, v_mod.

  IF NOT /pws/zycie055-dtentrada IS INITIAL.

    IF /pws/zycie055-dtsaidaarm IS INITIAL.

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

      v_periodo = sy-datum - /pws/zycie055-dtentrada.

* << Fim da exclusão

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

      v_periodo = sy-datlo - /pws/zycie055-dtentrada.

* << Fim da inclusão

      IF NOT /pws/zycie055-armazen IS INITIAL.

        SELECT SINGLE *

        FROM /pws/zycit394

        WHERE armazen EQ /pws/zycie055-armazen.

        IF sy-subrc EQ 0.

...

...

                                          ID 'ACTVT' FIELD '01'.

      IF sy-subrc NE 0.

        MESSAGE e083(f5) WITH /pws/zycie093-bukrs.

      ENDIF.

    ENDIF.

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

    IF /pws/zycie093-paispad = 'BR'.

      IF screen-name EQ '105'.

        screen-invisible = 0.

        MODIFY SCREEN.

      ENDIF.

    ENDIF.

* << Fim da inclusão

  ELSEIF sy-tcode EQ '/PWS/ZYCI002_R'.

    AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS'

                                        DUMMY

                                        ID 'ACTVT' FIELD '02'.

    IF sy-subrc NE 0.

...

...

                                          ID 'ACTVT' FIELD '02'.

      IF sy-subrc NE 0.

        MESSAGE e083(f5) WITH /pws/zycie093-bukrs.

      ENDIF.

    ENDIF.

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

    IF /pws/zycie093-paispad = 'BR'.

      IF screen-name EQ '105'.

        screen-invisible = 0.

        MODIFY SCREEN.

      ENDIF.

    ENDIF.

* << Fim da inclusão

  ELSEIF sy-tcode EQ '/PWS/ZYCI002_E'.

    AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS'

                                        DUMMY

                                        ID 'ACTVT' FIELD '03'.

    IF sy-subrc NE 0.

...

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

Modificações efetuadas em REPS /PWS/MZYCI002O01

...

  /pws/zycie055-perarmaz    = itab_zycit055-perarmaz.

  /pws/zycie055-armazen     = itab_zycit055-armazen.

  /pws/zycie055-pesobruto   = itab_zycit055-pesobruto.

  /pws/zycie055-dtforzoso   = itab_zycit055-dtforzoso.

  /pws/zycie055-gewei       = itab_zycit055-gewei.

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

  SELECT SINGLE free_time FROM /pws/zycet133

   INTO v_freetime

    WHERE codarmad  = /pws/zycie093-armador

      AND codagente = /pws/zycie093-agente.

* << Fim da exclusão

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

  IF NOT itab_zycit055-nrcontainer IS INITIAL.

    IF v_nrcontainer <> itab_zycit055-nrcontainer.

    ENDIF.

  ENDIF.

  IF NOT /pws/zycie055 IS INITIAL.

    CLEAR itab_zycet133.

    READ TABLE itab_zycet133

        WITH KEY codarmad = /pws/zycie093-armador

                 codagente = /pws/zycie093-agente.

    IF sy-subrc = 0.

      v_freetime = itab_zycet133-free_time.

    ENDIF.

  ENDIF.

  v_nrcontainer = itab_zycit055-nrcontainer.

* << Fim da inclusão

  marc3                = itab_zycit055-marc.

  tabctrl1-lines = tabctrl1-lines + 13.

ENDMODULE.

MODULE trata_tabctrl1 OUTPUT.

  READ TABLE itab_zycit055 INDEX 1.

...

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

Modificações efetuadas em REPS /PWS/MZYCI002OO

...

  endmethod.

endclass.

module status_custom_0050 output.

perform status_custom.

endmodule.

* >> Início da inclusão:

module carrega_freetime output.

perform free_time.

endmodule.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI002TOP

...

        INCLUDE STRUCTURE /pws/zycit093.

DATA: END OF itab_zycit093s.

DATA: BEGIN OF itab_zycit001 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit001.

DATA: END OF itab_zycit001.

* >> Início da inclusão:

DATA: BEGIN OF itab_zycet133 OCCURS 0,

      codarmad  TYPE /pws/zycet133-codarmad,

      codagente TYPE /pws/zycet133-codagente,

      free_time TYPE /pws/zycet133-free_time.

DATA: END OF itab_zycet133.

* << Fim da inclusão

DATA: BEGIN OF itab_zycit117 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit117.

DATA: END OF itab_zycit117.

DATA: BEGIN OF itab_zycit094s OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie094.

...

...

      v_id-texto       LIKE thead-tdid           ,

      v_numchave       LIKE thead-tdname         ,

      v_status         TYPE i VALUE 1            ,

      v_status_s       TYPE i VALUE 1            ,

      v_msg_ficta1(50) TYPE c VALUE space        ,

* >> Início da exclusão:

      v_freetime       like /pws/zycet133-free_time,

* << Fim da exclusão

* >> Início da inclusão:

      v_freetime       TYPE /pws/zycet133-free_time,

      v_freetime_aux   TYPE /pws/zycet133-free_time,

      v_nrcontainer    TYPE /pws/zycit055-nrcontainer,

* << Fim da inclusão

      v_msg_ficta2(50) TYPE c VALUE space        ,

      marc(1)          TYPE c VALUE space        ,

      marc2(1)         TYPE c VALUE space        ,

      marc3(1)         TYPE c VALUE space        ,

      v_txtdisp(30)    TYPE c VALUE space        ,

...

...

      v_answer                            ,

      text(100)                           ,

      nextline    TYPE i                  ,

      v_posi(40)                          ,

      v_copy      TYPE c                  ,

* >> Início da exclusão:

      v_dtemiss .

* << Fim da exclusão

* >> Início da inclusão:

      v_dtemiss,

      v_tabix.

* << Fim da inclusão

data:  gv_subscreen_0050   TYPE sy-dynnr VALUE '0051',

       gv_subscreen_0100_1 TYPE sy-dynnr,

       gv_subscreen_0300_2 TYPE sy-dynnr.

CONSTANTS: BEGIN OF gc_subscreen,

             prog     TYPE sy-dynnr VALUE '0100',

...