CE PLUS - Nota 008696
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 11/08/2014 09:16:23
Data/Hora Última Alteração: 11/08/2014 09:16:23
Descrição da Nota: TRATAMENTO PARA PREENCHIMENTO AUTOMÁTICO DE NÍVEL NVE
Sintoma
Tratamento para preenchimento automático de nível NVE
Solução
Desenvolver conforme especificacao.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08696 Data: 17/07/2009 Hora: 14:56:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08696
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00106
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07414 - 00001 - 7.0 - 00007 - ESTÁ RATEANDO A DESPESA ANTIDUMPING POR ITENS SEM O ANTIDUMP.
07474 - 00002 - 7.0 - 00007 - NÃO ATUALIZA A PASTA DESPESAS APÓS ALTERAR ANTIDUMPING
07507 - 00003 - 7.0 - 00007 - AO ATUALIZAR DADOS LEVA VALOR DE ANTIDUMP PARA ITENS SEM O SERVIÇ
07524 - 00004 - 7.0 - 00007 - QUEBRA DE ADIÇÕES CONSIDERA QUANTIDADES DE ANTIDUMP DIFERENTES
07685 - 00005 - 7.0 - 00007 - NA ADIÇÃO DA DI, NÃO CARREGA DADOS DO NÍVEL NVE
----------------------------------------------------------------------------------------------------
TRATAMENTO PARA PREENCHIMENTO AUTOMÁTICO DE NÍVEL NVE
----------------------------------------------------------------------------------------------------
Palavras Chave:
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI001 0400
DYNP /PWS/SAPMZYCI001 0405
DYNP /PWS/SAPMZYCI023 0323
TABL /PWS/ZYCIT501
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI001I01
REPS /PWS/MZYCI001O01
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023F05
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI023X01
REPT /PWS/SAPMZYCI023
SHI3 /PWS/ZYCI
TABD /PWS/ZYCIT003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT003
*Incluir ao final da tabela
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCIT003
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
NIVEL_NVE /PWS/ZYCIL271
ATRIBUTO_NVE /PWS/ZYCIL348
ESPECIF_NVE /PWS/ZYCIL349
DESC_NVE /PWS/ZYCIL165
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI001 0400
*Criada nova aba em tabstrip
INCLUIR ÁREA DE SUB-TELA "SS_DETAL5" em tbl.contr./tabstr.
Altura 18
Comprimento Visível 117
Linha 9
Coluna 4
Linhas mínimas 3
Colunas mínimas 3
INCLUIR BOTÃO "TAB_5" em tbl.contr./tabstr.
Comprimento Visível 15
Linha 1
Coluna 5
Formato CHAR
Campo referência SS_DETAL5
Grupo 1 GR1
Texto . 5 .
Código função FC_5
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0400
process before output.
MODULE STATUS_0400.
call subscreen : ss_detal1 including syst-cprog '0401',
ss_detal2 including syst-cprog '0402',
ss_detal3 including syst-cprog '0403',
* >> Início da exclusão:
ss_detal4 including syst-cprog '0404'.
* << Fim da exclusão
* >> Início da inclusão:
ss_detal4 including syst-cprog '0404',
ss_detal5 including syst-cprog '0405'.
* << Fim da inclusão
process after input.
call subscreen : ss_detal1,
ss_detal2,
ss_detal3,
* >> Início da exclusão:
ss_detal4.
* << Fim da exclusão
* >> Início da inclusão:
ss_detal4,
ss_detal5.
* << Fim da inclusão
MODULE : atualiza_tab_item,
USER_COMMAND_0400,
USER_COMMAND_EXIT AT EXIT-COMMAND.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI001 0405
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0323
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE118-NIVEL" em tbl.contr./tabstr.
Grupo 1
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
*De:
- /PWS/ZYCIE118-NIVEL
I/O 1 1 1 22 1 CHAR X Off
AC
Botão EntrsPoss.temp, Drop-down, Caixa listagem, Elem.TC, Col.fixa TC
*Para:
- /PWS/ZYCIE118-NIVEL
I/O 1 1 1 22 1 CHAR X Off
Botão EntrsPoss.temp, Drop-down, Caixa listagem, Elem.TC, Col.fixa TC
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE118-ATRIBUTO" em tbl.contr./tabstr.
Grupo 1
Código função
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
*De:
- /PWS/ZYCIE118-ATRIBUTO
I/O 1 2 2 2 1 CHAR X Off
AC
Elem.TC, Col.fixa TC
*Para:
- /PWS/ZYCIE118-ATRIBUTO
I/O 1 2 2 2 1 CHAR X Off
Elem.TC, Col.fixa TC
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE118-ESPECIFICACAO" em tbl.contr./tabstr
Grupo 1
Código função
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
*De:
- /PWS/ZYCIE118-ESPECIFICACAO
I/O 1 3 4 5 1 CHAR X Off
AC
Elem.TC, Col.fixa TC
*Para:
- /PWS/ZYCIE118-ESPECIFICACAO
I/O 1 3 4 5 1 CHAR X Off
Elem.TC, Col.fixa TC
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0323
process before output.
module: set_screen_padrao,
screen_lines.
loop at itab_zycit118b with control tc_anom.
module: set_screen_lines,
fill_struct118.
endloop.
process after input.
loop at itab_zycit118b.
* >> Início da inclusão:
field: /PWS/ZYCIE118-ATRIBUTO module verifica_nve on request.
* << Fim da inclusão
module modi_data118.
endloop.
module: verify_tables.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIT501
*Criada Tabela /PWS/ZYCIT501
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCIT501
DESCRIÇÃO BREVE: CI - SISCOMEX - Parâmetro Preenchimento Automático NVE
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela Transparente
CLASSE DE ENTREGA: A
(X) - ATUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: CATEG COMP. CASAS TAB.VERIF.: TAB.REF.: CPO.RE
MANDT MANDT X X CLNT 3 0 T000
MATNR MATNR X X CHAR 18 0 MARA
STEUC STEUC X X CHAR 16 0
ATRIBUTO /PWS/ZYCIL348 X X CHAR 2 0
ESPECIFICACAO /PWS/ZYCIL349 X X CHAR 4 0
NIVEL /PWS/ZYCIL271 CHAR 1 0
DESCRICAO /PWS/ZYCIL165 CHAR 120 0
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0
CATEGOR. TAMANHO: 0
(X) - AR. BUFFER NÃO PERMITIDO
*Gerar Visão de atualização de tabela
MODIFICAR VISÃO DA TABELA /PWS/ZYCIT501
INDICAÇÕES TÉCNICAS PARA DIÁLOGO
GRUPO DE AUTORIZAÇÃO: /PWS/ZYCE
OBJETO AUTORIZAÇÃO: S_TABU_DIS
GRUPO DE FUNÇÕES: /PWS/ZYCIT501
CL. DESENVOLVIMENTO: /PWS/ZYCI
TELAS DE ATUALIZAÇÃO
CTG. ATUALIZAÇÃO: (x) - NÍVEL ÚNICO
Nº TELA AUTORIZAÇÃO: TELA SÍNTESE: 501
TELA INDIVIDUAL: 0
INDICAÇÕES PARA TRASNPORTE DE DADOS DE DIÁLOGO
ROTINA DE REGISTRO: (x) - ROTINA REG. STANDARD
*Criar transação para atualização de parâmetro
CÓDIGO DE TRANSAÇÃO: /PWS/ZYCIT501
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: CI - Parâm.Autom.NVE
OBJETO DE EXECUÇÃO
(x) - TRANSAÇÃO C/ PARÂMETROS (TRANSAÇÃO DE PARÂMETROS)
TEXTO DA TRANSAÇÃO: CI - Parâm.Autom.NVE
VALOR PROPOSTO PARA
(x) - TRANSAÇÃO SM30 (x) - OMITIR 1ºTELA
CLASSIFICAÇÃO
(x) - HERDAR CARACTERÍSTICAS GUI
CLASSIFICAÇÃO DE TRANSAÇÃO:
(x) - TRANSAÇÃO PROFESSIONAL USER
CAPACIDADE GUI:
(x) SAP GUI PARA HTML
(x) SAP GUI PARA JAVA
(x) SAP GUI PARA WINDOWS
VALORES PROPOSTOS
NOME DO CAMPO DA TELA VALOR
UPDATE X
VIEWNAME /pws/zycit501
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
IF itab_zycit003-j_1bnbm IS INITIAL.
IF t001-land1 EQ 'BR'.
SELECT SINGLE steuc FROM marc INTO itab_zycit003-j_1bnbm
WHERE matnr = itab_zycit003-matnr.
ELSE.
SELECT SINGLE steuc FROM marc INTO itab_zycit003-j_1bnbm
WHERE matnr = itab_zycit003-matnr
AND werks = ekpo-werks.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SELECIONAR_ITENS
PERFORM carrega_nve USING ITAB_ITENS-MATNR
itab_zycit003-j_1bnbm
CHANGING ITAB_ZYCIT003-NIVEL_NVE
ITAB_ZYCIT003-ATRIBUTO_NVE
ITAB_ZYCIT003-ESPECIF_NVE
itab_zycit003-desc_nve .
* << Fim da inclusão
APPEND itab_zycit003.
ENDIF.
ENDLOOP.
IF sy-tcode NE '/PWS/ZYCI001_E'.
LOOP AT itab_zycit003.
CLEAR v_tabix.
v_tabix = sy-tabix.
CALL FUNCTION '/PWS/ZYCI_ENQUEUE_ZYCIT013'
EXPORTING
ebeln = itab_zycit003-ebeln
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
* >> Início da inclusão:
FORM carrega_nve USING p_matnr
p_ncm
CHANGING p_nivel_nve
p_atributo_nve
p_especif_nve
p_descr.
SELECT SINGLE atributo especificacao nivel descricao
FROM /pws/zycit501
INTO (p_atributo_nve , p_especif_nve , p_nivel_nve , p_descr)
WHERE matnr EQ p_matnr
AND steuc EQ p_ncm.
IF sy-subrc NE 0.
SELECT SINGLE atributo nivel descricao
FROM /pws/zycit195
INTO (p_atributo_nve , p_nivel_nve , p_descr)
WHERE steuc EQ p_ncm.
IF sy-subrc EQ 0.
SELECT SINGLE especificacao FROM /pws/zycit196
INTO p_especif_nve
WHERE steuc EQ p_ncm
AND atributo EQ p_atributo_nve.
ENDIF.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001I01
...
MODULE user_command INPUT.
CASE sy-dynnr .
WHEN '0003'.
PERFORM user_command_0003.
* >> Início da inclusão: MODULE USER_COMMAND
when '0405' .
if /pws/zycie003-atributo_nve is initial.
clear :
/pws/zycie003-desc_nve .
endif.
* << Fim da inclusão
WHEN OTHERS.
PERFORM user_command_0113.
ENDCASE.
ENDMODULE.
...
...
* >> Início da inclusão:
MODULE seta_matchcode INPUT.
DATA: itab_zycit501 TYPE /pws/zycit501 OCCURS 0 WITH HEADER LINE,
itab_zycit195 TYPE /pws/zycit195 OCCURS 0 WITH HEADER LINE,
itab_zycit196 TYPE /pws/zycit196 OCCURS 0 WITH HEADER LINE.
DATA: cucol LIKE sy-cucol ,
curow LIKE sy-curow .
DATA : selected_index TYPE sy-tabix.
DATA: value(248),
v_tam2 TYPE i.
DATA: BEGIN OF f_tab OCCURS 10.
INCLUDE STRUCTURE help_value.
DATA: END OF f_tab,
BEGIN OF v_tab OCCURS 200,
value(40) TYPE c,
END OF v_tab.
CLEAR : f_tab, v_tab, itab_zycit501, itab_zycit195, itab_zycit196 .
REFRESH: f_tab, v_tab, itab_zycit501, itab_zycit195, itab_zycit196 .
IF NOT /pws/zycie003-nivel_nve IS INITIAL.
SELECT * FROM /pws/zycit501 INTO TABLE itab_zycit501
WHERE matnr EQ /pws/zycie003-matnr
AND steuc EQ /pws/zycie003-j_1bnbm
AND nivel EQ /pws/zycie003-nivel_nve.
ELSE.
SELECT * FROM /pws/zycit501 INTO TABLE itab_zycit501
WHERE matnr EQ /pws/zycie003-matnr
AND steuc EQ /pws/zycie003-j_1bnbm.
ENDIF.
IF sy-subrc EQ 0.
LOOP AT itab_zycit501.
IF sy-subrc = 0.
MOVE itab_zycit501-nivel TO v_tab-value.
APPEND v_tab.
MOVE itab_zycit501-atributo TO v_tab-value.
APPEND v_tab.
MOVE itab_zycit501-especificacao TO v_tab-value.
APPEND v_tab.
MOVE itab_zycit501-descricao TO v_tab-value.
APPEND v_tab.
ELSE.
MOVE space TO v_tab-value.
APPEND v_tab.
ENDIF.
ENDLOOP.
MOVE: '/PWS/ZYCIT501' TO f_tab-tabname ,
'NIVEL' TO f_tab-fieldname ,
'X' TO f_tab-selectflag.
APPEND f_tab.
CLEAR f_tab.
MOVE: '/PWS/ZYCIT501' TO f_tab-tabname ,
'ATRIBUTO' TO f_tab-fieldname.
APPEND f_tab.
MOVE: '/PWS/ZYCIT501' TO f_tab-tabname ,
'ESPECIFICACAO' TO f_tab-fieldname .
APPEND f_tab.
MOVE: '/PWS/ZYCIT501' TO f_tab-tabname ,
'DESCRICAO' TO f_tab-fieldname .
APPEND f_tab.
CALL FUNCTION 'F4TOOL_F4FUNCTION_BRIDGE'
EXPORTING
cucol = cucol
curow = curow
display_only = ' '
no_conversion = ' '
tabname = '/PWS/ZYCIT501'
fieldname = 'DESCRICAO'
window_title = space
IMPORTING
selected_value = value
selected_index = selected_index
TABLES
value_tab = v_tab
fields_tab = f_tab.
IF sy-subrc EQ 0.
READ TABLE itab_zycit501 INDEX selected_index.
IF sy-subrc EQ 0.
/pws/zycie003-atributo_nve = itab_zycit501-atributo.
/pws/zycie003-especif_nve = itab_zycit501-especificacao.
/pws/zycie003-nivel_nve = itab_zycit501-nivel.
/pws/zycie003-desc_nve = itab_zycit501-descricao.
ENDIF.
ENDIF.
ELSE.
IF NOT /pws/zycie003-nivel_nve IS INITIAL.
SELECT * FROM /pws/zycit195 INTO TABLE itab_zycit195
WHERE steuc EQ /pws/zycie003-j_1bnbm
AND nivel EQ /pws/zycie003-nivel_nve.
ELSE.
SELECT * FROM /pws/zycit195 INTO TABLE itab_zycit195
WHERE steuc EQ /pws/zycie003-j_1bnbm.
ENDIF.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit196 INTO TABLE itab_zycit196
FOR ALL ENTRIES IN itab_zycit195
WHERE steuc EQ itab_zycit195-steuc.
LOOP AT itab_zycit195.
READ TABLE itab_zycit196 WITH KEY steuc = itab_zycit195-steuc
atributo = itab_zycit195-atributo.
IF sy-subrc = 0.
MOVE itab_zycit195-nivel TO v_tab-value.
APPEND v_tab.
MOVE itab_zycit195-atributo TO v_tab-value.
APPEND v_tab.
MOVE itab_zycit195-descricao TO v_tab-value.
APPEND v_tab.
MOVE itab_zycit196-especificacao TO v_tab-value.
APPEND v_tab.
ELSE.
MOVE space TO v_tab-value.
APPEND v_tab.
ENDIF.
ENDLOOP.
MOVE: '/PWS/ZYCIT195' TO f_tab-tabname ,
'NIVEL' TO f_tab-fieldname .
APPEND f_tab.
CLEAR f_tab.
MOVE: '/PWS/ZYCIT195' TO f_tab-tabname ,
'ATRIBUTO' TO f_tab-fieldname,
'X' TO f_tab-selectflag.
APPEND f_tab.
MOVE: '/PWS/ZYCIT196' TO f_tab-tabname ,
'ESPECIFICACAO' TO f_tab-fieldname .
APPEND f_tab.
MOVE: '/PWS/ZYCIT195' TO f_tab-tabname ,
'DESCRICAO' TO f_tab-fieldname .
APPEND f_tab.
CALL FUNCTION 'F4TOOL_F4FUNCTION_BRIDGE'
EXPORTING
cucol = cucol
curow = curow
display_only = ' '
no_conversion = ' '
tabname = '/PWS/ZYCIT195'
fieldname = 'ATRIBUTO_NVE'
window_title = space
IMPORTING
selected_value = value
selected_index = selected_index
TABLES
value_tab = v_tab
fields_tab = f_tab.
IF sy-subrc EQ 0.
READ TABLE itab_zycit195 INDEX selected_index.
IF sy-subrc EQ 0 .
READ TABLE itab_zycit196 WITH KEY steuc = itab_zycit195-steuc
atributo = itab_zycit195-atributo.
IF sy-subrc EQ 0.
/pws/zycie003-atributo_nve = itab_zycit196-atributo.
/pws/zycie003-especif_nve = itab_zycit196-especificacao.
/pws/zycie003-nivel_nve = itab_zycit195-nivel.
/pws/zycie003-desc_nve = itab_zycit195-descricao.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001O01
...
MODULE altera_tela4 OUTPUT.
IF v_tcode = '/PWS/ZYCI001_E'.
LOOP AT SCREEN.
screen-input = 0.
MODIFY SCREEN.
ENDLOOP.
* >> Início da inclusão: MODULE ALTERA_TELA4
ELSE.
IF sy-dynnr EQ '0405' AND v_di NE space.
LOOP AT SCREEN.
screen-input = 0.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
ELSEIF itab_it_aux-meinsantid NE itab_itb-meinsantid .
PERFORM adic_next.
ELSEIF itab_it_aux-codcambial NE itab_itb-codcambial .
PERFORM adic_next.
ELSEIF itab_it_aux-inco_item NE itab_itb-inco_item .
PERFORM adic_next.
ELSEIF itab_it_aux-paisfab NE itab_itb-paisfab .
PERFORM adic_next.
ELSEIF itab_it_aux-tp_certif NE itab_itb-tp_certif .
PERFORM adic_next.
* >> Início da inclusão: FORM ADIC_LIST
ELSEIF itab_it_aux-atributo_nve EQ itab_itb-atributo_nve
AND NOT v_cont EQ 1
and not itab_it_aux-atributo_nve is initial.
PERFORM adic_next.
* << Fim da inclusão
ELSE.
IF itab_zycit001-flag_adicao EQ 'X'.
PERFORM adic_next.
ENDIF.
ENDIF.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI023'
'DI013'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DI013' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF v_flag_quebra IS INITIAL AND v_cont > 80.
PERFORM adic_next.
ENDIF.
itab_it-adicao = itab_it_aux-adicao = v_adic.
* >> Início da inclusão: FORM ADIC_LIST
READ TABLE itab_zycit003 WITH KEY nrseq = itab_it_aux-nrseq
ebeln = itab_it_aux-ebeln
ebelp = itab_it_aux-ebelp.
IF sy-subrc EQ 0.
IF NOT itab_zycit003-nivel_nve IS INITIAL.
READ TABLE itab_zycit118
WITH KEY steuc = itab_zycit003-j_1bnbm
nivel = itab_zycit003-nivel_nve
atributo = itab_zycit003-atributo_nve
adicao = v_adic.
IF sy-subrc NE 0.
CLEAR: itab_zycit118.
itab_zycit118-nrseqdi = /pws/zycie085-nrseqdi .
itab_zycit118-adicao = v_adic .
itab_zycit118-steuc = itab_zycit003-j_1bnbm .
itab_zycit118-nivel = itab_zycit003-nivel_nve .
itab_zycit118-atributo = itab_zycit003-atributo_nve.
itab_zycit118-especificacao = itab_zycit003-especif_nve .
APPEND itab_zycit118.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
MODIFY itab_it TRANSPORTING adicao
WHERE ebeln EQ itab_it_aux-ebeln
AND ebelp EQ itab_it_aux-ebelp.
MODIFY itab_it_aux INDEX v_tabix TRANSPORTING adicao.
it_adi-adicao = v_adic.
it_adi-nrseqdi = /pws/zycie085-nrseqdi.
it_adi-nrseq = itab_it_aux-nrseq .
it_adi-ebeln = itab_it_aux-ebeln .
it_adi-ebelp = itab_it_aux-ebelp .
it_adi-nrseqli = itab_it_aux-nrseqli .
...
...
ebeln = itab_it_aux-ebeln
ebelp = itab_it_aux-ebelp.
IF sy-subrc = 0.
MOVE itab_it_aux-adicao TO itab_zycit100_temp-adicao.
MODIFY itab_zycit100_temp TRANSPORTING adicao WHERE
nrseq = itab_it_aux-nrseq AND
ebeln = itab_it_aux-ebeln AND
ebelp = itab_it_aux-ebelp.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM ADIC_LIST
MOVE: it_adi[] TO it_alist[],
it_adi[] TO it_adia[].
DELETE ADJACENT DUPLICATES FROM it_alist COMPARING adicao.
* << Fim da inclusão
SORT itab_it_aux BY adicao ebeln ebelp.
READ TABLE itab_it_aux INDEX 1.
v_adic = itab_it_aux-adicao.
CLEAR v_cont .
LOOP AT itab_it_aux.
v_tabix = sy-tabix.
IF v_adic = itab_it_aux-adicao.
itab_it_aux-item_adi_sisc = v_cont + 1 .
ELSE.
CLEAR v_cont.
...
...
ebelp = itab_itb-ebelp.
APPEND itab_zycit485 TO itab_mercosul.
ENDLOOP.
ENDLOOP.
READ TABLE rtextx INDEX 1.
a_espe2 = rtextx-tdline.
LOOP AT itab_zycit114 WHERE adicao = wa_it-adicao.
APPEND itab_zycit114 TO itab_zycit114b.
ENDLOOP.
LOOP AT itab_zycit118 WHERE adicao = wa_it-adicao.
* >> Início da inclusão: FORM ADIC_LOAD
IF NOT itab_zycit118-nivel IS INITIAL.
* << Fim da inclusão
itab_zycit118-steuc = wa_it-j_1bnbm.
APPEND itab_zycit118 TO itab_zycit118b.
* >> Início da inclusão: FORM ADIC_LOAD
ENDIF.
* << Fim da inclusão
ENDLOOP.
IF itab_zycit118b[] IS INITIAL.
DATA: v_steu TYPE /pws/zycit003-j_1bnbm.
v_steu = wa_it-j_1bnbm.
REPLACE '.' WITH '0' INTO v_steu.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
zterm meinsest pproc nrseqli aplicacao
condmerc inco1 codmat cacl codfunleg
acordo acordorate reduzida percreduz notatipi
reduzidaipi unit_valor unit_meins unit_reccapac unit_rectipo
waersbem dttaxbem antidrate extarif_al tipo_al
orgemiss_al numero_al anoemiss_al ii_extarif ii_tipo
ii_orgemiss ii_numero ii_anoemiss ipi_extarif ipi_tipo
ipi_orgemiss ipi_numero ipi_anoemiss ad_extarif ad_tipo
ad_orgemiss ad_numero ad_anoemiss aladi tribipi
advalicms vlantid meinsantid qtdeantid
* >> Início da exclusão: FORM DATA_SORT
inco_item.
* << Fim da exclusão
* >> Início da inclusão: FORM DATA_SORT
inco_item atributo_nve.
* << Fim da inclusão
...
...
FORM load_especdes.
CLEAR: a_espde.
* >> Início da inclusão: FORM LOAD_ESPECDES
SELECT SINGLE descricao FROM /pws/zycit501 INTO a_espde WHERE
steuc = /pws/zycie118-steuc AND
atributo = /pws/zycie118-atributo AND
nivel = /pws/zycie118-nivel AND
especificacao = /pws/zycie118-especificacao.
IF sy-subrc NE 0 .
* << Fim da inclusão
SELECT SINGLE descricao FROM /pws/zycit196 INTO a_espde WHERE
steuc = /pws/zycie118-steuc AND
atributo = /pws/zycie118-atributo AND
nivel = /pws/zycie118-nivel AND
especificacao = /pws/zycie118-especificacao.
* >> Início da inclusão: FORM LOAD_ESPECDES
ENDIF.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
FORM load_especdes_aux.
CLEAR: a_espde.
* >> Início da inclusão: FORM LOAD_ESPECDES_AUX
SELECT SINGLE descricao FROM /pws/zycit501 INTO a_espde WHERE
steuc = /pws/zycie118-steuc AND
atributo = /pws/zycie118-atributo AND
nivel = /pws/zycie118-nivel .
IF sy-subrc NE 0 .
* << Fim da inclusão
SELECT SINGLE descricao FROM /pws/zycit195 INTO a_espde WHERE
steuc = /pws/zycie118-steuc AND
nivel = /pws/zycie118-nivel AND
atributo = /pws/zycie118-atributo.
* >> Início da inclusão: FORM LOAD_ESPECDES_AUX
ENDIF.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
FORM load_especdes2.
CLEAR: a_espde.
* >> Início da inclusão: FORM LOAD_ESPECDES2
SELECT SINGLE descricao FROM /pws/zycit501 INTO a_espde WHERE
steuc = /pws/zycie118-steuc AND
nivel = /pws/zycie118-nivel .
IF sy-subrc NE 0 .
* << Fim da inclusão
SELECT SINGLE atributo especificacao descricao FROM /pws/zycit196
INTO (/pws/zycie118-atributo, /pws/zycie118-especificacao, a_espde)
WHERE steuc = /pws/zycie118-steuc AND
nivel = /pws/zycie118-nivel.
* >> Início da inclusão: FORM LOAD_ESPECDES2
ENDIF.
* << Fim da inclusão
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
* >> Início da inclusão:
MODULE verifica_nve INPUT.
DATA: v_atributo TYPE /pws/zycie118-atributo.
MOVE itab_zycit118b[] TO itab_zycit118_aux[].
v_atributo = /pws/zycie118-atributo.
LOOP AT itab_zycit118_aux WHERE atributo = v_atributo.
IF tc_anom-current_line NE sy-tabix.
clear: /pws/zycie118-nivel, /pws/zycie118-atributo,
/pws/zycie118-especificacao.
message i015 with text-259.
ENDIF.
ENDLOOP.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
MODULE fill_struct118 OUTPUT.
itab_zycit118b-steuc = wa_it-j_1bnbm.
MOVE itab_zycit118b TO /pws/zycie118.
* >> Início da inclusão: MODULE FILL_STRUCT118
IF NOT /pws/zycie118-atributo IS INITIAL.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_itb-ebeln
ebelp = itab_itb-ebelp.
IF sy-subrc EQ 0 AND NOT
itab_zycit003-atributo_nve IS INITIAL.
a_espde = itab_zycit003-desc_nve.
ELSE.
* << Fim da inclusão
IF NOT /pws/zycie118-especificacao IS INITIAL AND
NOT /pws/zycie118-nivel IS INITIAL AND
NOT /pws/zycie118-atributo IS INITIAL.
PERFORM load_especdes.
ELSEIF NOT /pws/zycie118-nivel IS INITIAL AND
NOT /pws/zycie118-atributo IS INITIAL.
PERFORM load_especdes_aux.
ELSEIF NOT /pws/zycie118-nivel IS INITIAL AND
/pws/zycie118-atributo IS INITIAL AND
/pws/zycie118-especificacao IS INITIAL.
PERFORM load_especdes2.
* >> Início da inclusão: MODULE FILL_STRUCT118
ENDIF.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDMODULE.
...
...
ENDCASE.
IF sy-dynnr = '0435' OR
sy-dynnr = '0433' OR
sy-dynnr = '0132'.
IF sy-tcode EQ '/PWS/ZYCI023_E'
OR v_nf041 EQ 'S'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
* >> Início da inclusão: MODULE SET_SCREEN_PADRAO
IF sy-dynnr EQ '0323'.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_itb-ebeln
ebelp = itab_itb-ebelp.
IF sy-subrc EQ 0 .
IF NOT itab_zycit003-atributo_nve IS INITIAL.
LOOP AT tc_anom-cols INTO v_cols.
v_cols-screen-input = 0.
MODIFY tc_anom-cols FROM v_cols.
ENDLOOP.
ELSE.
IF NOT v_acto EQ 'E' AND NOT v_nf041 EQ 'S'.
LOOP AT tc_anom-cols INTO v_cols.
v_cols-screen-input = 1.
MODIFY tc_anom-cols FROM v_cols.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
IF sy-dynnr = '0141'.
IF itab_zycit001-meioemba EQ 'PS'.
LOOP AT tc_pag-cols INTO v_cols.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
codcambial LIKE /pws/zycie006-codcambial,
inco_item LIKE /pws/zycit001-inco1,
paisfab LIKE /pws/zycit003-paisfab,
vlreal_dest LIKE /pws/zycie003-vlreal,
ntgewd LIKE /pws/zycie003-ntgewd,
mark,
matnr LIKE /pws/zycie003-matnr,
matnr_item LIKE /pws/zycie003-matnr,
qtd_itenc3 TYPE /pws/zycit263-qtd_iten,
qtd_itendc3 TYPE /pws/zycit263-qtd_iten,
* >> Início da inclusão:
nivel_nve TYPE /pws/zycie003-nivel_nve,
atributo_nve TYPE /pws/zycie003-atributo_nve,
especif_nve TYPE /pws/zycie003-especif_nve ,
* << Fim da inclusão
END OF itab_it.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI023
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 259
Texto: (36 caracteres)
"Não é permitido atributos repetidos."
Comprimento máximo: 36
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_DENOM
Texto: (17 caracteres)
"Descrição"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_EBN
Texto: (14 caracteres)
"Pedido"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_EBP
Texto: (12 caracteres)
"Item"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_LIF
Texto: (18 caracteres)
"Fornecedor"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_MATN
Texto: (16 caracteres)
"Material"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_NCM
Texto: (11 caracteres)
"NCM"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_QTD
Texto: (18 caracteres)
"Quantidade"
Referência ao Dictionary: NÃO
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHI3 /PWS/ZYCI
*Acrescentada transação em menu
CÓDIGO DE TRANSAÇÃO: /PWS/ZYCIT501
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: Preenchimento Automático NVE
OBJETO DE EXECUÇÃO
(x) - TRANSAÇÃO C/ PARÂMETROS (TRANSAÇÃO DE PARÂMETROS)
TEXTO DA TRANSAÇÃO: Preenchimento Automático NVE
VALOR PROPOSTO PARA
(x) - TRANSAÇÃO SM30 (x) - OMITIR 1ºTELA
CLASSIFICAÇÃO
(x) - HERDAR CARACTERÍSTICAS GUI
CAPACIDADE GUI:
(x) SAP GUI PARA HTML
(x) SAP GUI PARA JAVA
(x) SAP GUI PARA WINDOWS
VALORES PROPOSTOS
NOME DO CAMPO DA TELA VALOR
UPDATE X
VIEWNAME /PWS/ZYCIT501