Sintoma

NECESSÁRIO CRIAÇÃO DE CAMPO HORA DE CRIAÇÃO E ALTERAÇÃO DA DI

Solução

Criado campo HRUSERC e HRUSERA na tabela /PWS/ZYCIT085 e tabela de retificação

Informações Complementares

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

Nota Número 06459 Data: 25/04/2008 Hora: 14:19:26

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

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

Nota Número              : 06459

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00044

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

Referência às notas relacionadas:

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

01623  - 00001 - 6.0    - 00024  - AJUSTES PARA TRATAMENTOS DE DATAS

03633  - 00002 - 7.0    - 00001  - DESCRIÇÃO DO ÍTEM GENÉRICO NA DI E LI, DETALHE DO ITEM

06440  - 00003 - 7.0    - 00005  - DESENVOLVIMENTO DE FUNCIONALIDADE DE RETIFICAÇÃO DA DI

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

NECESSÁRIO CRIAÇÃO DE CAMPO HORA DE CRIAÇÃO E ALTERAÇÃO DA DI

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

Palavras Chave:

CRIAÇÃO - CAMPO - HORA DE CRIAÇÃO - HORA DE ALTERAÇÃO - DA DI

/PWS/ZYCIT085 - HRUSERC - HRUSERA

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F02

REPS /PWS/MZYCI023F03

REPS /PWS/MZYCI023O01

TABD /PWS/ZYCIE085

TABD /PWS/ZYCIT085

TABD /PWS/ZYCIT491

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

    ENDLOOP.

  ENDIF.

  PERFORM refresh_all.

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

       nrseqdi = /pws/zycie085-nrseqdi.

  IF sy-subrc NE 0.

    PERFORM fill_nrseq.

  ELSE.

    IF sy-tcode <> '/PWS/ZYCI023_C' AND sy-tcode <> '/PWS/ZYCI023_I'.

      /pws/zycie085-dtusera   = sy-datlo.

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

      /pws/zycie085-hrusera   = sy-uzeit.

* << Fim da inclusão

      /pws/zycie085-usernamea = sy-uname.

    ELSEIF v_salvo NE 'X'.

      v_salvo = 'X'.

      PERFORM fill_nrseq.

      MESSAGE i015 WITH text-013 /pws/zycie085-nrseqdi.

    ENDIF.

  ENDIF.

  MODIFY /pws/zycit085 FROM /pws/zycie085.

  DELETE FROM /pws/zycit095 WHERE nrseqdi = /pws/zycie085-nrseqdi.

  MODIFY /pws/zycit095 FROM TABLE itab_zycit095.

...

...

FORM fill_criar.

  v_salvo = 'X'.

  /pws/zycie085-mandt     = sy-mandt.

  /pws/zycie085-dtuserc   = sy-datlo.

  /pws/zycie085-usernamec = sy-uname.

  /pws/zycie085-tpdi      = v_dit.

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

  /pws/zycie085-hruserc = sy-uzeit.

* << Fim da inclusão

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F02

...

      PERFORM: load_blid.

      MOVE-CORRESPONDING /pws/zycie085 TO wa_zycit085.

      MOVE-CORRESPONDING /pws/zycie093 TO /pws/zycie085.

      /pws/zycie085-land        = /pws/zycie093-paispae.

      /pws/zycie085-identify    = wa_zycit085-identify.

      /pws/zycie085-dtuserc     = wa_zycit085-dtuserc.

      /pws/zycie085-dtusera     = wa_zycit085-dtusera.

      /pws/zycie085-usernamec   = wa_zycit085-usernamec.

      /pws/zycie085-usernamea   = wa_zycit085-usernamea.

      /pws/zycie085-tpagente    = '1'.

      IF /pws/zycie093-tpdoccheg EQ '1'

        OR /pws/zycie093-tpdoccheg EQ '2'.

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

      /pws/zycie085-hruserc = wa_zycit085-hruserc.

      /pws/zycie085-hrusera = wa_zycit085-hrusera.

      IF /pws/zycie093-tpdoccheg EQ '1' OR

        /pws/zycie093-tpdoccheg EQ '2'.

* << Fim da inclusão

        /pws/zycie085-urfdesp = /pws/zycie085-urfent.

        PERFORM load_urf.

      ENDIF.

      CLEAR:   itab_zycit014.

      REFRESH: itab_zycit014.

      SELECT * FROM /pws/zycit014 INTO TABLE itab_zycit014

                WHERE nrseq = /pws/zycie085-nrbl.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

FORM fill_desc.

  DATA: v_mat(18)  TYPE c.

  IF /pws/zycie085-dtuserc IS INITIAL AND

      sy-tcode EQ '/PWS/ZYCI023_C' .

    /pws/zycie085-dtuserc = sy-datum .

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

    /pws/zycie085-hruserc = sy-uzeit.

* << Fim da inclusão

  ENDIF.

  CLEAR rtexti. REFRESH rtexti.

  CALL FUNCTION 'READ_TEXT'

       EXPORTING

            client                  = sy-mandt

            id                      = 'ZDSI'

            language                = sy-langu

            name                    = v_txtki

            object                  = '/PWS/CIDDI'

       TABLES

...

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

Modificações efetuadas em REPS /PWS/MZYCI023O01

...

    ENDCASE.

    IMPORT wa_zycie085 FROM MEMORY ID rimc4.

    IF sy-subrc NE 0.

      v_difora = 'X'.

    ENDIF.

    IMPORT /pws/zycie001-nrseq FROM MEMORY ID rimc7.

    IF sy-subrc EQ 0.

      wa_zycie085-tpdi = /pws/zycie085-tpdi.

      MOVE wa_zycie085 TO /pws/zycie085.

      CLEAR: /pws/zycie085-dtuserc,   /pws/zycie085-dtusera,

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

             /pws/zycie085-usernamec, /pws/zycie085-usernamea.

* << Fim da exclusão

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

             /pws/zycie085-usernamec, /pws/zycie085-usernamea,

             /pws/zycie085-hruserc  , /pws/zycie085-hrusera.

* << Fim da inclusão

    ENDIF.

    /pws/zycie085-gewei_l = 'KG '.

    /pws/zycie085-tpimp   = '1'.

    /pws/zycie085-courier = 'N'.

    IF /pws/zycie085-contropcb IS INITIAL.

      /pws/zycie085-contropcb = '1'.

    ENDIF.

    PERFORM findnrseq.

    IF NOT wa_zycie085 IS INITIAL.

      PERFORM: load_para,

...

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

Modificações efetuadas em TABD /PWS/ZYCIE085

*Acrescentado campos no fim da estrutura /PWS/ZYCIE085

Nome campo   Elem.dados    Tab.verif.    N CtDt Comp. Grupo

HRUSERC      UZEIT                         TIMS     6

HRUSERA      UZEIT                         TIMS     6

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

Modificações efetuadas em TABD /PWS/ZYCIT085

*Acrescentado campos no fim da tabela /PWS/ZYCIT085

Nome campo   Chv Elem.dados    Tab.verif.    N CtDt Comp. Grupo

HRUSERC          UZEIT                         TIMS     6

HRUSERA          UZEIT                         TIMS     6

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

Modificações efetuadas em TABD /PWS/ZYCIT491

*Acrescentado campos no fim da tabela /PWS/ZYCIT491

Nome campo   Chv Elem.dados    Tab.verif.    N CtDt Comp. Grupo

HRUSERC          UZEIT                         TIMS     6

HRUSERA          UZEIT                         TIMS     6