CE PLUS - Nota 002070
Módulo: DRAWBACK
Funcionalidade: Composição
Data/Hora da Publicação: 08/09/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 14:33:11
Descrição da Nota: PADRONIZAÇÃO DOS CAMPOS NA COMPOSICAO DE ISENÇÃO
Sintoma
Os programas de Composição de Isenção, Ato Concessório e Forecast possuem dados de cabeçalho
distintos. Com isso, faz-se necessário ajustarmos os três programas a fim de padronizarmos estes
dados.
Solução
Foram padronizados os campos bukrs, werks, codagrup, ekorg e centro imp/exp. na tela 301 do programa
/PWS/SAPMZYCIT064
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02070 Data: 08/09/2006 Hora: 11:08:41
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02070
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00129
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PADRONIZAÇÃO DOS CAMPOS NA COMPOSICAO DE ISENÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
/PWS/SAPMZYCI064, COMPOSIÇÃO DE ISENÇÃO, TELA 301, BUKRS, WERKS,
/PWS/ZYCIT395-CODAGRUP, EKORG, CENTRO IMP/EXP
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI064 0301
REPS /PWS/MZYCI064F03
REPS /PWS/MZYCI064O01
REPS /PWS/MZYCI064TOP
REPS /PWS/MZYCI064TOP3
----------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
/PWS/ZYCIE258-BUKRS
Texto 4 5 16 16 1 CHAR X F
/PWS/ZYCIE258-BUKRS
I/O 4 22 4 4 1 CHAR X Ent Off
BUK
Entr.obrig., Chave externa, Botão EntrsPoss.stand.
*Novo:
/PWS/ZYCIE258-BUKRS
Texto 5 5 16 16 1 CHAR X F
/PWS/ZYCIE258-BUKRS
I/O 5 22 4 4 1 CHAR X Ent Off
BUK
Entr.obrig., Chave externa, Botão EntrsPoss.stand.
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
V_NEMP3
I/O 4 33 35 32 1 CHAR Off S.Sd
Dest, PossRol
*Novo:
V_NEMP3
I/O 5 33 35 32 1 CHAR Off S.Sd
Dest, PossRol
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da exclusão:
/PWS/ZYCIE258-EKGRP
Texto 5 5 16 16 1 CHAR X F
Chave externa
/PWS/ZYCIE258-EKGRP
I/O 5 22 3 3 1 CHAR X Ent Off
EKG
Chave externa, Botão EntrsPoss.stand.
* << Fim da exclusão.
*---------------------------------------------------------------------------------------------------
* >> Início da exclusão:
V_NGRPCPRA3
I/O 5 33 35 32 1 CHAR Off S.Sd
Dest, PossRol
* << Fim da exclusão.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
/PWS/ZYCIE258-EKORG
Texto 6 5 16 16 1 CHAR X F
Chave externa
/PWS/ZYCIE258-EKORG
I/O 6 22 4 4 1 CHAR X Ent Off
EKO
Chave externa, Botão EntrsPoss.stand.
*Novo:
/PWS/ZYCIE258-EKORG
Texto 8 5 16 16 1 CHAR X F
Chave externa
/PWS/ZYCIE258-EKORG
I/O 8 22 4 4 1 CHAR X Ent Off
EKO
Entr.obrig., Chave externa, Botão EntrsPoss.stand.
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
V_NORGCPRA3
I/O 6 33 35 32 1 CHAR Off S.Sd
Dest, PossRol
*Novo:
V_NORGCPRA3
I/O 8 33 35 32 1 CHAR Off S.Sd
Dest, PossRol
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
/PWS/ZYCIE258-WERKS
Texto 7 5 16 16 1 CHAR X F
Chave externa
/PWS/ZYCIE258-WERKS
I/O 7 22 4 4 1 CHAR X Ent Off
WRK
Entr.obrig., Chave externa, Botão EntrsPoss.stand.
*Novo:
/PWS/ZYCIE258-WERKS
Texto 6 5 16 16 1 CHAR X F
Chave externa
/PWS/ZYCIE258-WERKS
I/O 6 22 4 4 1 CHAR X Ent Off
WRK
Entr.obrig., Chave externa, Botão EntrsPoss.stand.
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
BT_302_01
Push 7 27 4 2 1 CHAR
ADDCENTRO
Ícn.=ICON_INSERT_ROW
*Novo:
BT_302_01
Push 6 27 4 2 1 CHAR
ADDCENTRO
Ícn.=ICON_ENTER_MORE
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
V_NCENTRO3
I/O 7 33 35 32 1 CHAR Off S.Sd
Dest, PossRol
*Novo:
V_NCENTRO3
I/O 6 33 35 32 1 CHAR Off S.Sd
Dest, PossRol
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da inclusão:
V_TXTCENT_EI
I/O 7 33 32 32 1 CHAR Off S.Sd
Dest, PossRol
* << Fim da inclusão.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
/PWS/ZYCIE258-CODAGRUP
Texto 8 5 15 15 1 CHAR X F
Chave externa
/PWS/ZYCIE258-CODAGRUP
I/O 8 22 3 3 1 CHAR X Ent Off
Chave externa, Botão EntrsPoss.stand.
*Novo:
/PWS/ZYCIE258-CODAGRUP
Texto 9 5 15 15 1 CHAR X F
Chave externa
/PWS/ZYCIE258-CODAGRUP
I/O 9 22 4 4 1 CHAR X X Ent Off
Chave externa, Botão EntrsPoss.stand.
* << Fim da inclusão.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
V_NDIVISAO3
I/O 8 33 35 32 1 CHAR Off S.Sd
Dest, PossRol
*Novo:
V_NDIVISAO3
I/O 9 33 35 32 1 CHAR Off S.Sd
Dest, PossRol
* << Fim da inclusão.
*---------------------------------------------------------------------------------------------------
* >> Início da exclusão:
/PWS/ZYCIE258-AREA
Texto 9 5 16 16 1 CHAR X F
/PWS/ZYCIE258-AREA
I/O 9 22 10 10 1 CHAR X Ent Off
* << Fim da exclusão.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
V_CENT_EI
Texto 10 5 16 16 1 CHAR
V_CENT_EI
I/O 10 22 4 4 1 CHAR Off
NEX
*Novo:
V_CENT_EI
Texto 7 5 16 16 1 CHAR
V_CENT_EI
I/O 7 22 4 4 1 CHAR Off
NEX
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
BT_302_02
Push 10 27 4 2 1 CHAR
EXBCE
Ícn.=ICON_INSERT_ROW
*Novo:
BT_302_02
Push 7 27 4 2 1 CHAR
EXBCE
Ícn.=ICON_ENTER_MORE
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
/PWS/ZYCIE258-LIFNR
Texto 11 5 16 16 1 CHAR X F
/PWS/ZYCIE258-LIFNR
I/O 11 22 10 10 1 CHAR X Ent Off
LIF
Entr.obrig., Chave externa, Botão EntrsPoss.stand.
Saída de conversão=ALPHA
*Novo:
/PWS/ZYCIE258-LIFNR
Texto 10 5 16 16 1 CHAR X F
/PWS/ZYCIE258-LIFNR
I/O 10 22 10 10 1 CHAR X Ent Off
LIF
Entr.obrig., Chave externa, Botão EntrsPoss.stand.
Saída de conversão=ALPHA
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
V_NLIFNR3
I/O 11 33 36 32 1 CHAR Off S.Sd
Dest, PossRol
*Novo:
V_NLIFNR3
I/O 10 33 36 32 1 CHAR Off S.Sd
Dest, PossRol
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
/PWS/ZYCIE258-DESCRICAO
Texto 14 4 17 17 1 CHAR X F
/PWS/ZYCIE258-DESCRICAO
I/O 14 22 61 43 1 CHAR X X Ent Off
PossRol
*Novo:
/PWS/ZYCIE258-DESCRICAO
Texto 15 4 17 17 1 CHAR X F
/PWS/ZYCIE258-DESCRICAO
I/O 15 22 61 43 1 CHAR X X Ent Off
PossRol
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
/PWS/ZYCIE258-DTCOMP
Texto 15 4 17 17 1 CHAR X F
/PWS/ZYCIE258-DTCOMP
I/O 15 22 10 10 1 DATS X Off
NEX
Dest, Botão EntrsPoss.stand.
*Novo:
/PWS/ZYCIE258-DTCOMP
Texto 16 4 17 17 1 CHAR X F
/PWS/ZYCIE258-DTCOMP
I/O 16 22 10 10 1 DATS X Off
NEX
Dest, Botão EntrsPoss.stand.
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
/PWS/ZYCIE258-N_USER
Texto 16 4 17 17 1 CHAR X F
/PWS/ZYCIE258-N_USER
I/O 16 22 12 12 1 CHAR X Off
NEX
Dest
*Novo:
/PWS/ZYCIE258-N_USER
Texto 17 4 17 17 1 CHAR X F
/PWS/ZYCIE258-N_USER
I/O 17 22 12 12 1 CHAR X Off
NEX
Dest
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
/PWS/ZYCIE258-DTAPROV
Texto 17 4 17 17 1 CHAR X F
/PWS/ZYCIE258-DTAPROV
I/O 17 22 10 10 1 DATS X Off
NEX
Dest, Botão EntrsPoss.stand.
*Novo:
/PWS/ZYCIE258-DTAPROV
Texto 18 4 17 17 1 CHAR X F
/PWS/ZYCIE258-DTAPROV
I/O 18 22 10 10 1 DATS X Off
NEX
Dest, Botão EntrsPoss.stand.
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
/PWS/ZYCIE258-APROVADO
Check 18 4 1 1 1 CHAR X Off
NEX
Botão EntrsPoss.stand.
/PWS/ZYCIE258-APROVADO
Check 18 6 8 8 1 CHAR X 3
NEX
*Novo:
/PWS/ZYCIE258-APROVADO
Check 19 4 1 1 1 CHAR X Off
NEX
Botão EntrsPoss.stand.
/PWS/ZYCIE258-APROVADO
Check 19 6 8 8 1 CHAR X 3
* << Fim da modificação.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064F03
...
clear: v_ngrpcpra3.
if not /pws/zycie258-ekgrp is initial.
select eknam up to 1 rows from t024 into v_ngrpcpra3
where ekgrp eq /pws/zycie258-ekgrp.
endselect.
endif.
* >> Início da inclusão: MODULE LOAD__TEXTS3 OUTPUT.
if v_cent_ei ne space.
select single name1 from t001w into v_txtcent_ei
where werks eq v_cent_ei.
endif.
* << Fim da inclusão.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064TOP
...
v_umncm like /pws/zyglt204-zum , " UM. Estatistica
* v_qtd_ncm like /pws/zycit247-qtd_ncm. " Total Qtd. NCM.
v_um_basica like mara-meins , " UM. Básica
v_um_rez like marm-umrez , " Contador p/ Conversão
* >> Início da exclusão:
v_um_ren LIKE marm-umren . " Contador p/ Conversão
* << Fim da exclusão.
* >> Início da inclusão:
v_um_ren LIKE marm-umren , " Contador p/ Conversão
v_txtcent_ei(35) TYPE c .
* << Fim da inclusão.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064TOP3
...
v_tipires_0303 like /pws/zycie260d-i_vlipi ," 0303
v_tbenef_0303 like /pws/zycie260d-t_benef ," 0303
v_errolog3(135) type c ," 0313
v_tabix like sy-tabix ,
* >> Início da exclusão:
v_cent_ei TYPE /pws/zycit260-werks .
* << Fim da exclusão.
* >> Início da inclusão:
v_cent_ei TYPE /pws/zycit260-werks ,
V_DESC_AGR(35) TYPE c ,
V_NCENT(35) TYPE c .
* << Fim da inclusão.
...
...