Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Parâmetros
Data/Hora da Publicação: 13/02/2008 00:00:00
Data/Hora Última Alteração: 05/03/2010 09:25:14
Descrição da Nota: DIÁLOGO DE ATUALIZAÇÃO PARA A CADASTRO DE PASTAS DOS DADOS ADICIONAIS
Sintoma
(A) Existiam colunas não usadas na tabela /PWS/ZYCET259;
(B) O programa de edição da tabela /PWS/ZYCET259 era obsoleto;
(C) A tabela /PWS/ZYCET259 era utilizada incorretamente no programa de vinculação do transporte.
Solução
A tabela /PWS/ZYCET259 teve sua estrutura atualizada e o programa /PWS/SAPMZYCE259 foi eliminado, em
favor de um diálogo de atualização gerado pelo sistema (SM30).
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05907 Data: 13/02/2008 Hora: 07:28:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05907
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00034
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DIÁLOGO DE ATUALIZAÇÃO PARA A CADASTRO DE PASTAS DOS DADOS ADICIONAIS
----------------------------------------------------------------------------------------------------
Palavras Chave:
DIÁLOGO DE ATAULIZAÇÃO /PWS/ZYCET259 PASTAS DADOS ADICIONAIS
----------------------------------------------------------------------------------------------------
Objetos da nota:
ENQU /PWS/EZYCET259
FUGR /PWS/ZYCEGF1
REPS /PWS/MZYCE103F01
REPS /PWS/MZYCE103O01
REPS /PWS/MZYCE103TOP
PROG /PWS/SAPMZYCET259
REPT /PWS/SAPMZYCE103
TABD /PWS/ZYCET259
TABL /PWS/ZYCEE259
TABT /PWS/ZYCET259
TOBJ /PWS/ZYCET259S
TRAN /PWS/ZYCET259
----------------------------------------------------------------------------------------------------
Modificações efetuadas em ENQU /PWS/EZYCET259
O objeto de bloqueio foi eliminado.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUGR /PWS/ZYCEGF1
Fazer as seguintes alterações na tela 259 do grupo de funções, APÓS A GERAÇÃO DO NOVO DIÁLOGO DE
ATUALIZAÇÃO DA TABELA /PWS/ZYCET259.
(a) Aumentar o comprimento visível do campo /PWS/ZYCET259-TELA para 51 colunas;
(b) Definir o campo /PWS/ZYCET259-TELA como "obrigatório";
(c) Aumentar a largura do tabel control TCTRL_/PWS/ZYCET259 para 55 colunas.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE103F01
...
DATA: v_nrseq LIKE /pws/zycet106-nrseqno.
DATA: v_count(7) TYPE n.
DATA: v_ano(4).
CONCATENATE '%' 'N' sy-datum+2(2) INTO v_ano.
SELECT MAX( nrseqno ) INTO (v_nrseq) FROM /pws/zycet106 WHERE
nrseqno LIKE v_ano.
v_count = v_nrseq+0(7) + 1.
CONCATENATE v_count 'N' sy-datum+2(2) INTO /pws/zycee106-nrseqno.
ENDFORM.
FORM load_parameters.
* >> Início da exclusão: FORM LOAD_PARAMETERS
SELECT * FROM /pws/zycet259 INTO TABLE itab_zycet259
WHERE programa = sy-repid.
* << Fim da exclusão
SELECT * FROM /pws/zyglt320 INTO TABLE itab_zyglt320
WHERE modulo EQ text-001
AND programa EQ sy-repid.
PERFORM load_status.
IF itstatus2[] IS INITIAL.
MOVE 'FC_MAR' TO itstatus2-fcode.
APPEND itstatus2.
MOVE 'FC_DEL' TO itstatus2-fcode.
APPEND itstatus2.
MOVE 'FC_DES' TO itstatus2-fcode.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE103O01
...
MODIFY SCREEN.
ENDIF.
ELSEIF screen-name EQ 'TAB_SIE' OR
screen-name EQ 'TAB_EMB'.
screen-invisible = '1'.
MODIFY SCREEN.
ELSEIF screen-name EQ 'TAB_SIN'.
screen-invisible = '0'.
MODIFY SCREEN.
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN_1000
IF NOT itab_zycet259[] IS INITIAL.
READ TABLE itab_zycet259 WITH KEY tela = text-903
programa = sy-repid.
IF sy-subrc NE 0.
LOOP AT SCREEN.
IF screen-name = 'TAB_INS'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
* << Fim da exclusão
DESCRIBE TABLE itab_zycet105_nome LINES v_line.
IF screen-name = '/PWS/ZYCEE106-BUKRS'.
IF NOT /pws/zycee106-bukrs IS INITIAL AND
NOT wa_zycee106-bukrs IS INITIAL AND
( NOT itab_zycet105_tela[] IS INITIAL OR
v_line EQ 1 OR
sy-tcode EQ '/PWS/ZYCE103_A' ).
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE103TOP
...
nrseqno LIKE /pws/zycee046-nrseqno,
END OF it046.
DATA: BEGIN OF it207 OCCURS 0.
INCLUDE STRUCTURE /pws/zycee207.
DATA: mark,
END OF it207.
DATA: BEGIN OF it217 OCCURS 0.
INCLUDE STRUCTURE /pws/zycee217.
DATA: mark,
END OF it217.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet259 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet259.
DATA: END OF itab_zycet259.
* << Fim da exclusão
DATA: BEGIN OF itab_zyglt320 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt320.
DATA: END OF itab_zyglt320.
DATA: BEGIN OF it103 OCCURS 0.
INCLUDE STRUCTURE /pws/zycee103.
DATA: END OF it103.
DATA: BEGIN OF itcomp OCCURS 10,
ebeln LIKE /pws/zycee135-ebeln,
ebelp LIKE /pws/zycee135-ebelp,
etenr LIKE /pws/zycee135-etenr,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em PROG /PWS/SAPMZYCET259
-Excluir o programa, bem como os seus includes (/PWS/MZYCET259TOP, /PWS/MZYCET259O01,
/PWS/MZYCET259I01 e /PWS/MZYCET259F010)
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE103
-Excluír símbolo de texto 903.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET259
-Alterar a classe de entrega da tabela para "C" (Tab.customizing, atualização só por cliente,
s/import.SAP)
-Excluir a seguintes colunas
PROGRAMA
USERNAMEC
DTUSERC
HRUSERC
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCEE259
-A estrutura /PWS/ZYCEE259 foi eliminada.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABT /PWS/ZYCET259
Alterar as opções técnicas da tabela:
-Novo "tipo de dados": APPL2 (Organização e customizing)
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCET259S
Gerar novamente o diálogo de atualização para a tabela /PWS/ZYCET259 (transação SE54)
-Grupo de funções: /PWS/ZYCEGF1
-Categoria de atualização: Nível único
-Tela de síntese: 259
-Rotina de registro: Rotina de registro standard
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCET259
Recriar a transação /PWS/ZYCET259 como "transação de parâmetros".
-Transação: SM30
-Omitir 1ª tela: SIM
-Herdar características GUI?: SIM
-Lista de parâmetros:
Nome Valor
---------------------------
VIEWNAME /PWS/ZYCET259
SHOW X