CE PLUS - Nota 006281
Módulo: DRAWBACK
Funcionalidade: Parâmetros
Data/Hora da Publicação: 31/03/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:19:02
Descrição da Nota: TRATATIVA PARA LISTA TÉCNICA POR AGRUPAMENTO.
Sintoma
Criada tratativa para lista técnica por agrupamento no programa de Dados do industrial exportador.
Solução
Nova tratativa para lista técnica por agrupamento no programa de Dados do industrial exportador.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06281 Data: 31/03/2008 Hora: 07:54:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06281
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00040
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05264 - 00001 - 7.0 - 00003 - CODE INSPECTOR
----------------------------------------------------------------------------------------------------
TRATATIVA PARA LISTA TÉCNICA POR AGRUPAMENTO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DADOS DO INDUSTRIAL EXPORTADOR DRAWBACK INTERMEDIARIO IMPORTAÇÃO
LISTA TÉCNICA POR AGRUPAMENTO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCI065
DYNP /PWS/SAPMZYCI065 0100
DYNP /PWS/SAPMZYCI065 0103
REPS /PWS/MZYCI065F01
REPS /PWS/MZYCI065I01
REPS /PWS/MZYCI065O01
REPS /PWS/MZYCI065TOP
REPT /PWS/SAPMZYCI065
TABD /PWS/ZYCIE369
TABD /PWS/ZYCIT369
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI065
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI065 0100
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0100
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
call subscreen ss_cadastro
including g_ts_cadastro-prog g_ts_cadastro-subscreen.
PROCESS AFTER INPUT.
call subscreen ss_cadastro.
* >> Início da exclusão:
MODULE USER_COMMAND_0100.
* << Fim da exclusão
* >> Início da inclusão:
MODULE: user_command_0100,
exit_command AT EXIT-COMMAND .
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI065 0103
MODIFICAR OKCODE ""
INCLUIR CAMPO TEXTO "/PWS/ZYCIE369-AGRUP" em tbl.contr./tabstr.
Altura 11
Comprimento Visível 3
Linha 1
Coluna 4
Formato CHAR
Grupo 1 GRP
Grupo 2 CL
Linhas mínimas 3
Texto ___
Código função
INCLUIR TEXTO "/PWS/ZYCIE369-AGRUP" em tbl.contr./tabstr.
Altura 11
Comprimento Visível 15
Linha 1
Coluna 4
Formato CHAR
Texto Agrupamento
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE369-MATNR" em tbl.contr./tabstr.
Grupo 1 MAT
Grupo 2 CL
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE369-MEINS" em tbl.contr./tabstr.
Coluna 10
MODIFICAR TEXTO "/PWS/ZYCIE369-MEINS" em tbl.contr./tabstr.
Coluna 10
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE369-MENGE" em tbl.contr./tabstr.
Comprimento Visível 30
Coluna 9
Campo referência /PWS/ZYCIE369-MEINS
Texto ___.___.___.___.___.___,_____V
MODIFICAR TEXTO "/PWS/ZYCIE369-MENGE" em tbl.contr./tabstr.
Coluna 9
INCLUIR CAMPO TEXTO "/PWS/ZYCIE369-MVGR1" em tbl.contr./tabstr.
Altura 11
Comprimento Visível 3
Linha 1
Coluna 5
Formato CHAR
Grupo 1 GRP
Grupo 2 CL
Linhas mínimas 3
Texto ___
Código função
INCLUIR TEXTO "/PWS/ZYCIE369-MVGR1" em tbl.contr./tabstr.
Altura 11
Comprimento Visível 17
Linha 1
Coluna 5
Formato CHAR
Texto Grupo de Material
INCLUIR CAMPO TEXTO "/PWS/ZYCIE369-STEUC" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 16
Linha 1
Coluna 6
Formato CHAR
Grupo 1 GRP
Grupo 2 CL
Linhas mínimas 16
Texto ________________
Código função
INCLUIR TEXTO "/PWS/ZYCIE369-STEUC" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 15
Linha 1
Coluna 6
Formato CHAR
Texto Code controle
INCLUIR CAMPO TEXTO "/PWS/ZYCIE369-STLAL" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 2
Linha 1
Coluna 8
Formato CHAR
Grupo 1 GRP
Grupo 2 CL
Linhas mínimas 2
Texto __
INCLUIR TEXTO "/PWS/ZYCIE369-STLAL" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 14
Linha 1
Coluna 8
Formato CHAR
Texto Lt.Alternativa
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE369-VIGEN_FIM" em tbl.contr./tabstr.
Coluna 12
MODIFICAR TEXTO "/PWS/ZYCIE369-VIGEN_FIM" em tbl.contr./tabstr.
Coluna 12
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE369-VIGEN_INICIO" em tbl.contr./tabstr.
Coluna 11
MODIFICAR TEXTO "/PWS/ZYCIE369-VIGEN_INICIO" em tbl.contr./tabstr.
Coluna 11
INCLUIR CAMPO TEXTO "/PWS/ZYCIE369-WERKS" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 4
Linha 1
Coluna 7
Formato CHAR
Grupo 1 GRP
Grupo 2 CL
Linhas mínimas 4
Texto ____
Código função
INCLUIR TEXTO "/PWS/ZYCIE369-WERKS" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 15
Linha 1
Coluna 7
Formato CHAR
Texto Centro
MODIFICAR CAIXA DE VERIFICAÇÃO "MARK" em tbl.contr./tabstr.
Texto
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0103
PROCESS BEFORE OUTPUT.
MODULE STATUS_0103.
loop at itab_zycit369 with control tc_pi.
module: trata_estrutura369.
endloop.
PROCESS AFTER INPUT.
loop at itab_zycit369.
chain.
* >> Início da exclusão:
field: /PWS/ZYCIE369-MATNR.
* << Fim da exclusão
* >> Início da inclusão:
FIELD: /pws/zycie369-matnr,
/pws/zycie369-agrup,
/pws/zycie369-werks,
/pws/zycie369-stlal,
/pws/zycie369-steuc,
/pws/zycie369-mvgr1.
* << Fim da inclusão
module insere_linha_Pi on chain-request.
endchain.
* >> Início da exclusão:
module: preenche_itab369.
* << Fim da exclusão
* >> Início da inclusão:
CHAIN.
FIELD: /pws/zycie369-menge,
/pws/zycie369-meins,
/pws/zycie369-vigen_inicio,
/pws/zycie369-vigen_fim,
mark.
MODULE: preenche_itab369 ON CHAIN-REQUEST.
ENDCHAIN.
* << Fim da inclusão
endloop.
* >> Início da exclusão:
MODULE USER_COMMAND_sub.
* << Fim da exclusão
* >> Início da inclusão:
MODULE user_command_sub
.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI065F01
...
ENDLOOP.
itab_zycit368_ini[] = itab_zycit368_aux[].
ENDIF.
ENDIF.
IF v_cancel IS INITIAL.
g_ts_cadastro-subscreen = '0102'.
ts_princ-activetab = 'FC_PA'.
ENDIF.
ENDFORM.
FORM dados_iniciais.
* >> Início da inclusão: FORM DADOS_INICIAIS
IF /pws/zycit321 IS INITIAL.
SELECT SINGLE * FROM /pws/zycit321. "#EC CI_NOWHERE
ENDIF.
* << Fim da inclusão
IF itab_zycit368[] IS INITIAL.
* >> Início da exclusão: FORM DADOS_INICIAIS
SELECT * FROM /pws/zycit368 INTO TABLE itab_zycit368."#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_INICIAIS
SELECT * FROM /pws/zycit368
INTO TABLE itab_zycit368. "#EC CI_NOWHERE
* << Fim da inclusão
IF NOT itab_zycit368[] IS INITIAL.
SELECT kunnr name1 stcd1 FROM kna1 INTO TABLE itab_kna1
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI065I01
...
CASE okcode.
WHEN 'FC_IND'.
g_ts_cadastro-subscreen = '0101'.
ts_princ-activetab = 'FC_IND'.
WHEN 'FC_PA'.
PERFORM seleciona_pa.
WHEN 'FC_PI'.
PERFORM seleciona_pi.
WHEN 'SAVE'.
PERFORM salva_dados.
* >> Início da exclusão: MODULE USER_COMMAND_0100
WHEN 'BACK' OR 'EXIT'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
WHEN 'BACK'.
* << Fim da inclusão
CLEAR: v_cancel.
IF NOT v_modif2 IS INITIAL OR NOT v_modif2 IS INITIAL.
PERFORM modificado.
ENDIF.
IF v_cancel IS INITIAL.
LEAVE PROGRAM.
ENDIF.
ENDCASE.
ENDMODULE.
MODULE preenche_itab_kna1 INPUT.
...
...
MOVE itab_kna1-kunnr TO /pws/zycie368-kunnr.
READ TABLE itab_zycit368_aux WITH KEY nrseq = /pws/zycie368-nrseq.
IF sy-subrc EQ 0 .
CLEAR /pws/zycie368.
ENDIF.
ENDMODULE.
MODULE insere_linha_pi INPUT.
READ TABLE itab_zycit368_aux WITH KEY mark = 'X'.
MOVE: itab_zycit368_aux-kunnr TO /pws/zycie369-kunnr,
itab_zycit368_aux-nrseq TO /pws/zycie369-nrseq.
* >> Início da inclusão: MODULE INSERE_LINHA_PI
IF /pws/zycit321-ltopc EQ '1'.
SELECT SINGLE * FROM /pws/zycit420
WHERE agrup EQ /pws/zycie369-agrup
AND mvgr1 EQ /pws/zycie369-mvgr1.
IF sy-subrc NE 0.
MESSAGE e015 WITH text-008.
ENDIF.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit421
WHERE agrup EQ /pws/zycie369-agrup
AND werks EQ /pws/zycie369-werks
AND stlal EQ /pws/zycie369-stlal.
IF sy-subrc NE 0.
MESSAGE e015 WITH text-009.
ELSE.
SELECT SINGLE * FROM /pws/zycit423
WHERE mvgr1 EQ /pws/zycie369-mvgr1
AND ncm EQ /pws/zycie369-steuc.
IF sy-subrc NE 0.
MESSAGE e015 WITH text-010 /pws/zycie369-mvgr1.
ENDIF.
ENDIF.
ENDIF.
READ TABLE itab_zycit369 WITH KEY agrup = /pws/zycie369-agrup
mvgr1 = /pws/zycie369-mvgr1
werks = /pws/zycie369-werks
steuc = /pws/zycie369-steuc
stlal = /pws/zycie369-stlal.
IF sy-subrc EQ 0 .
CLEAR /pws/zycie369.
ENDIF.
ELSE.
* << Fim da inclusão
READ TABLE itab_zycit369 WITH KEY matnr = /pws/zycie369-matnr.
IF sy-subrc EQ 0 .
* >> Início da exclusão: MODULE INSERE_LINHA_PI
CLEAR /pws/zycie368.
* << Fim da exclusão
* >> Início da inclusão: MODULE INSERE_LINHA_PI
CLEAR /pws/zycie369.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDMODULE.
MODULE preenche_itab369 INPUT.
* >> Início da exclusão: MODULE PREENCHE_ITAB369
IF NOT /pws/zycie369-matnr IS INITIAL.
READ TABLE itab_zycit369 WITH KEY matnr = /pws/zycie369-matnr.
* << Fim da exclusão
* >> Início da inclusão: MODULE PREENCHE_ITAB369
DATA: v_linha TYPE i.
IF /pws/zycie369-nrseq IS INITIAL .
EXIT.
ENDIF.
v_linha = tc_pi-current_line + tc_pi-top_line - 1.
READ TABLE itab_zycit369 INDEX v_linha.
* << Fim da inclusão
IF sy-subrc NE 0.
CLEAR itab_zycit369.
itab_zycit369 = /pws/zycie369.
itab_zycit369-mark = mark.
APPEND itab_zycit369.
ELSE.
CLEAR itab_zycit369.
itab_zycit369 = /pws/zycie369.
itab_zycit369-mark = mark.
* >> Início da exclusão: MODULE PREENCHE_ITAB369
MODIFY itab_zycit369 INDEX tc_pi-current_line .
* << Fim da exclusão
* >> Início da inclusão: MODULE PREENCHE_ITAB369
MODIFY itab_zycit369 INDEX v_linha.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: MODULE PREENCHE_ITAB369
ENDIF.
* << Fim da exclusão
ENDMODULE.
MODULE user_command_sub INPUT.
DATA: v_resp.
CASE okcode.
WHEN 'DELE'.
CASE ts_princ-activetab.
WHEN 'FC_IND'.
READ TABLE itab_kna1 WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
PERFORM confirma CHANGING v_resp.
IF v_resp EQ '1'.
DELETE itab_kna1 WHERE mark EQ 'X'.
DELETE itab_zycit368 WHERE kunnr EQ itab_kna1-kunnr.
DELETE itab_zycit368_aux WHERE kunnr EQ itab_kna1-kunnr.
DELETE FROM /pws/zycit368 WHERE
* >> Início da exclusão: MODULE USER_COMMAND_SUB
kunnr EQ itab_kna1-kunnr."#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_SUB
kunnr EQ itab_kna1-kunnr. "#EC CI_NOFIRST
* << Fim da inclusão
DELETE FROM /pws/zycit369 WHERE
* >> Início da exclusão: MODULE USER_COMMAND_SUB
kunnr EQ itab_kna1-kunnr."#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_SUB
kunnr EQ itab_kna1-kunnr. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDIF.
WHEN 'FC_PA'.
...
...
ENDIF.
WHEN 'FC_PI'.
READ TABLE itab_zycit369 WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
PERFORM confirma CHANGING v_resp.
IF v_resp EQ '1'.
loop at itab_zycit369 where mark eq 'X'.
DELETE FROM /pws/zycit369 WHERE
kunnr EQ itab_zycit369-kunnr
and nrseq EQ itab_zycit369-nrseq
* >> Início da exclusão: MODULE USER_COMMAND_SUB
and matnr EQ itab_zycit369-matnr.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_SUB
AND matnr EQ itab_zycit369-matnr
AND agrup EQ itab_zycit369-agrup
AND mvgr1 EQ itab_zycit369-mvgr1
AND steuc EQ itab_zycit369-steuc
AND werks EQ itab_zycit369-werks
AND stlal EQ itab_zycit369-stlal .
* << Fim da inclusão
endloop.
DELETE itab_zycit369 WHERE
mark EQ 'X'.
ENDIF.
ENDIF.
ENDCASE.
commit work.
perform salva_dados.
ENDCASE.
ENDMODULE.
* >> Início da inclusão:
MODULE exit_command INPUT.
LEAVE PROGRAM.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI065O01
...
kna1-stcd1 = itab_kna1-stcd1.
mark = itab_kna1-mark .
endmodule.
module preenche_zycit368 output.
/pws/zycie368 = itab_zycit368_aux.
mark = itab_zycit368_aux-mark.
endmodule.
module trata_estrutura369 output.
/pws/zycie369 = itab_zycit369.
mark = itab_zycit369-mark.
* >> Início da inclusão: MODULE TRATA_ESTRUTURA369
IF NOT /pws/zycie369 IS INITIAL.
LOOP AT SCREEN.
IF screen-group2 EQ 'CL'.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
* << Fim da inclusão
endmodule.
module STATUS_0101 output.
describe table itab_kna1 lines v_linhas.
tc_ind-lines = v_linhas + 10.
endmodule.
module STATUS_0102 output.
describe table itab_zycit368_aux lines v_linhas.
tc_pa-lines = v_linhas + 10 .
endmodule.
module STATUS_0103 output.
* >> Início da exclusão: MODULE STATUS_0103
describe table itab_zycit368_aux lines v_linhas.
tc_pi-lines = v_linhas + 10 .
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0103
DATA: wa_cols TYPE cxtab_column.
DESCRIBE TABLE itab_zycit369 LINES v_linhas.
tc_pi-lines = v_linhas + 21 .
LOOP AT tc_pi-cols INTO wa_cols.
IF /pws/zycit321-ltopc EQ '1'.
IF wa_cols-screen-group1 EQ 'MAT'.
wa_cols-invisible = 1.
wa_cols-screen-active = 0.
ELSE.
wa_cols-invisible = 0.
ENDIF.
ELSE.
IF wa_cols-screen-group1 EQ 'GRP'.
wa_cols-invisible = 1.
wa_cols-screen-active = 0.
ELSE.
wa_cols-invisible = 0.
ENDIF.
ENDIF.
MODIFY tc_pi-cols FROM wa_cols.
ENDLOOP.
* << Fim da inclusão
endmodule.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI065TOP
...
controls: ts_princ TYPE TABSTRIP ,
tc_ind TYPE TABLEVIEW USING SCREEN '0101',
tc_pa TYPE TABLEVIEW USING SCREEN '0102',
tc_pi TYPE TABLEVIEW USING SCREEN '0103'.
tables: /pws/zycit368,
/pws/zycie368,
/pws/zycit369,
/pws/zycit321,
/pws/zycit420,
/pws/zycit421,
* >> Início da inclusão:
/pws/zycit423,
* << Fim da inclusão
/pws/zycie369,
kna1.
data: begin of g_ts_cadastro,
subscreen like sy-dynnr,
prog like sy-repid value '/PWS/SAPMZYCI065',
pressed_tab like sy-ucomm value 'TC_IND',
end of g_ts_cadastro.
data: ok_code like sy-ucomm.
data: begin of itab_kna1 occurs 0.
data: kunnr like kna1-kunnr,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI065
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 010
Texto: (43 caracteres)
"NCM não cadastrado para o grupo de material"
Comprimento máximo: 50
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE369
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT369