CE PLUS - Nota 002867
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Dados Adicionais
Data/Hora da Publicação: 11/01/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 10:17:06
Descrição da Nota: DECLARAÇÃO DE WORK AREA NO INCLUDE X DO PROGRAMA DE DADOS ADICIONAIS
Sintoma
Inviabilidade de manipulação, por programa específico, dos objetos da pasta Dados Próprios do
programa Dados Adicionais.
Solução
Deslocada a declaração da wa_tabstrip do include /pws/mzyce038TOP para o include /pws/mzyce038x01.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02867 Data: 11/01/2007 Hora: 17:53:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02867
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00148
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00613 - 00001 - 6.0 - 00022 - INCLUSÃO DE EXIT NOS DADOS ADICIONAIS
02262 - 00002 - 6.0 - 00025 - COMPARTILHAMENTO DE OBJETOS EM INCLUDE X
----------------------------------------------------------------------------------------------------
DECLARAÇÃO DE WORK AREA NO INCLUDE X DO PROGRAMA DE DADOS ADICIONAIS
----------------------------------------------------------------------------------------------------
Palavras Chave:
DECLARAÇÃO; COMPARTILHAMENTO; INCLUDE; DADOS; ADICIONAIS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE038TOP
REPS /PWS/MZYCE038X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE038TOP
...
wa_cols TYPE cxtab_column,
wa_zycet047 LIKE itab_zycet047,
wa_zycet049 LIKE itab_zycet049,
wa_zycet056 LIKE itab_zycet056,
wa_zycet225 LIKE itab_zycet225,
wa_zycet008 LIKE itab_zycet008,
wa_thead4 LIKE thead,
wa_thead5 LIKE thead,
wa_zycet262 LIKE /pws/zycet262,
wa_t005 LIKE t005.
* >> Início da exclusão:
DATA: BEGIN OF wa_tabstrip,
bt001,
bt002,
bt003,
bt004,
bt005,
bt006,
bt007,
bt008,
bt009,
bt010,
bt011,
bt012,
bt013,
END OF wa_tabstrip.
* << Fim da exclusão
DATA: okcode LIKE sy-ucomm,
pressed_tab LIKE sy-ucomm VALUE 'FC_ADIC',
dynpronr(4) TYPE c VALUE '0102',
v_tabix LIKE sy-tabix,
v_subrc1 TYPE c,
v_subrc3 TYPE c,
v_modify TYPE c,
v_msg(25) TYPE c,
v_vlme LIKE /pws/zycet008-vlme_f,
v_campo(50),
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE038X01
...
INCLUDE STRUCTURE /pws/zycet002.
DATA: mark(1).
DATA: icoblo TYPE icons-text.
DATA: icotp TYPE icons-text.
DATA: icoapr TYPE icons-text.
DATA: END OF itab_zycet002_102.
DATA: BEGIN OF itab_zycet108 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet108.
DATA: mark.
DATA: END OF itab_zycet108.
* >> Início da inclusão:
DATA: BEGIN OF wa_tabstrip,
bt001,
bt002,
bt003,
bt004,
bt005,
bt006,
bt007,
bt008,
bt009,
bt010,
bt011,
bt012,
bt013,
END OF wa_tabstrip.
* << Fim da inclusão