CE PLUS - Nota 005601

Módulo: DOC. EXPORTAÇÃO

Funcionalidade: Parâmetros

Data/Hora da Publicação: 10/01/2008 00:00:00

Data/Hora Última Alteração: 22/02/2011 11:23:42

Descrição da Nota: AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA PARÂMETROS BLOBAIS

Sintoma

Programa com instruções obsoletas ou que apresentam erros/alertas ao executar a verificação ampliada

do programa ou o Code Inspector.

 

 

 

Solução

Implementação de ajustes no código do programa de forma a eliminar os erros e alertas encontrados na

verificação ampliada e ao executar o Code Inspector.

 

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

ENVIO PARA O CÂMBIO INCORRETO DE ACORDO COM PARÂMETRO OCULTO

Informações Complementares

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

Nota Número 05601 Data: 10/01/2008 Hora: 13:20:10

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

 

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

Nota Número              : 05601

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00029

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

Referência às notas relacionadas:

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

 

02174  - 00001 - 6.0    - 00025  - ENVIO PARA O CÂMBIO INCORRETO DE ACORDO COM PARÂMETRO OCULTO

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

AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA PARÂMETROS BLOBAIS

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

Palavras Chave:

CÓDIGO, CODE INSPECTOR, MENSAGENS, VERIFICAÇÃO, PARÂMETROS

GLOBAIS, EMBARQUE

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

Objetos da nota:

REPS /PWS/MZYCE312F01

REPS /PWS/MZYCE312I01

REPS /PWS/MZYCE312TOP

 

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

Modificações efetuadas em REPS /PWS/MZYCE312F01

 

...

  ENDIF.

ENDFORM.

FORM salvar_registros.

  DATA v_name LIKE /pws/zycet312-username.

  CLEAR v_name.

  PERFORM buscar_usuario_rede CHANGING v_name.

  /pws/zycet312-username    = v_name.

  /pws/zycet312-usernamec   = sy-uname.

  /pws/zycet312-dtuserc     = sy-datum.

  /pws/zycet312-hruserc     = sy-uzeit.

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

  UPDATE /pws/zycet312 SET loc_emb     = /pws/zycet312-loc_emb

* << Fim da exclusão

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

  UPDATE /pws/zycet312 SET

         loc_emb     = /pws/zycet312-loc_emb

* << Fim da inclusão

                           tp_emb      = /pws/zycet312-tp_emb

                           emb_consig  = /pws/zycet312-emb_consig

                           tp_emb_temp = /pws/zycet312-tp_emb_temp

                           wrbtr_dse   = /pws/zycet312-wrbtr_dse

                           waers_dse   = /pws/zycet312-waers_dse

                           kurst_dse   = /pws/zycet312-kurst_dse

                           transporte  = /pws/zycet312-transporte

                           bot_espec   = /pws/zycet312-bot_espec

                           part_lote   = /pws/zycet312-part_lote

                           rateio_aut  = /pws/zycet312-rateio_aut

                           username    = /pws/zycet312-username

                           usernamec   = /pws/zycet312-usernamec

                           dtuserc     = /pws/zycet312-dtuserc

                           hruserc     = /pws/zycet312-hruserc

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

                           tpcalc      = /pws/zycet312-tpcalc.

* << Fim da exclusão

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

         tpcalc      = /pws/zycet312-tpcalc.            "#EC CI_NOWHERE

* << Fim da inclusão

  IF sy-subrc NE 0.

    INSERT /pws/zycet312 FROM /pws/zycet312.

  ENDIF.

  DELETE FROM /pws/zycet316 CLIENT SPECIFIED WHERE mandt = sy-mandt.

  MODIFY /pws/zycet316 FROM TABLE itab_zycet316.

  DELETE FROM /pws/zycet317 CLIENT SPECIFIED WHERE mandt = sy-mandt.

  MODIFY /pws/zycet317 FROM TABLE itab_zycet317.

  COMMIT WORK.

  IF sy-subrc EQ 0.

    /pws/zycet312-username  = v_name.

...

 

...

  CALL FUNCTION 'POPUP_GET_VALUES'

       EXPORTING

            popup_title     = text-010

       IMPORTING

            returncode      = v_answer

       TABLES

            fields          = itab_campos

       EXCEPTIONS

            error_in_fields = 1

            OTHERS          = 2.

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

  CHECK sy-subrc IS INITIAL.

* << Fim da inclusão

  IF v_answer IS INITIAL.

    READ TABLE itab_campos INDEX 1 TRANSPORTING value.

    p_empresa = itab_campos-value.

    PERFORM selecionar_parametros.

  ELSE.

    CLEAR p_empresa.

    reg_emp-activetab = 'PAR_GER'.

  ENDIF.

ENDFORM.

FORM trancar_tabela.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCE312I01

 

...

  ENDIF.

  DELETE ADJACENT DUPLICATES FROM itab_zycet316 COMPARING uname loc_emb.

ENDMODULE.

MODULE modificar_zycet317 INPUT.

  MODIFY itab_zycet317 INDEX tc_emb-current_line.

  IF sy-subrc NE 0.

    APPEND itab_zycet317.

  ENDIF.

  DELETE ADJACENT DUPLICATES FROM itab_zycet317 COMPARING uname tp_emb.

ENDMODULE.

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

MODULE modificar_zycet318 INPUT.

ENDMODULE.

MODULE modificar_zycet319 INPUT.

ENDMODULE.

* << Fim da exclusão

MODULE user_command_exit INPUT.

  DATA v_answer TYPE c.

  CASE okcode.

    WHEN 'BACK'.

      IF ( wa_zycet312     NE /pws/zycet312      OR

         /pws/zycet037     NE wa_zycet037        OR

         itab_zycet316[]   NE itab_zycet316m[]   OR

         itab_zycet317[]   NE itab_zycet317m[] ) AND

         v_save            IS INITIAL.

        CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCE312TOP

 

PROGRAM  /pws/sapmzyce312 MESSAGE-ID /pws/zycem.

TABLES: /pws/zycet037,

        /pws/zycet312,

        /pws/zycet316,

        t001.

* >> Início da exclusão:

CONTROLS: reg_emp TYPE TABSTRIP,

* << Fim da exclusão

* >> Início da inclusão:

CONTROLS: reg_emp TYPE TABSTRIP,                            "#EC NEEDED

* << Fim da inclusão

          tc_loc  TYPE TABLEVIEW USING SCREEN '0103',

* >> Início da exclusão:

          tc_emb  TYPE TABLEVIEW USING SCREEN '0103',

          tc_con  TYPE TABLEVIEW USING SCREEN '0103',

          tc_embt TYPE TABLEVIEW USING SCREEN '0103'.

* << Fim da exclusão

* >> Início da inclusão:

          tc_emb  TYPE TABLEVIEW USING SCREEN '0103'.

* << Fim da inclusão

DATA: BEGIN OF itab_zycet316 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet316.

DATA:  marc TYPE flag,

      END OF itab_zycet316.

DATA: BEGIN OF itab_zycet317 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet317.

DATA:  marc TYPE flag,

      END OF itab_zycet317.

* >> Início da exclusão:

DATA: itab_zycet316m LIKE itab_zycet316 OCCURS 0 WITH HEADER LINE,

      itab_zycet317m LIKE itab_zycet317 OCCURS 0 WITH HEADER LINE.

* << Fim da exclusão

* >> Início da inclusão:

DATA: itab_zycet316m LIKE itab_zycet316 OCCURS 0,

      itab_zycet317m LIKE itab_zycet317 OCCURS 0.

* << Fim da inclusão

DATA: wa_zycet037  LIKE /pws/zycet037.

DATA: wa_zycet312 LIKE /pws/zycet312.

DATA: okcode         LIKE sy-ucomm,

      v_controle     TYPE flag,

      v_tab          LIKE sy-ucomm,

      v_trancar      TYPE flag,

      v_ins          TYPE flag,

      v_del          TYPE flag,

      v_save         TYPE flag,

      e_empresa(4)       TYPE c ,

...