CE PLUS - Nota 002062
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 06/09/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 14:24:29
Descrição da Nota: PADRONIZAÇÃO DOS CAMPOS NO ATO CONCESSORIO
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 201 do programa
/PWS/SAPMZYCIT040
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02062 Data: 06/09/2006 Hora: 10:48:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02062
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00129
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01012 - 00001 - 6.0 - 00022 - VINCULAÇÃO FORECAST E TRESFERENCIA DE SALDO DO ATO CONCESSÓRIO
01159 - 00002 - 6.0 - 00023 - DESENVOLVIMENTO PARA TRANSMISSÃO DOS DADOS DO ATO PARA O SISCOMEX
----------------------------------------------------------------------------------------------------
PADRONIZAÇÃO DOS CAMPOS NO ATO CONCESSORIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
/PWS/SAPMZYCI040, ATO CONCESSÓRIO, TELA 201, BUKRS, WERKS, CODAGRUP,
EKORG, CENTRO IMP/EXP
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI040 0201
REPS /PWS/MZYCI040F01
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040I01
REPS /PWS/MZYCI040O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0201
* >> Início da modificação:
*Antigo:
/PWS/ZYCIE244-BUKRS
I/O 4 20 4 4 1 CHAR X Ent Off
BUK
Entr.obrig., Chave externa, Botão EntrsPoss.stand.
*Novo:
/PWS/ZYCIE244-BUKRS
I/O 4 20 4 4 1 CHAR X Ent Off
BUK
Chave externa, Botão EntrsPoss.stand.
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
/PWS/ZYCIE244-EKORG
Texto 5 3 15 15 1 CHAR X F
Chave externa
/PWS/ZYCIE244-EKORG
I/O 5 20 4 4 1 CHAR X Ent Off
EKO
Entr.obrig., Chave externa, Botão EntrsPoss.stand.
*Novo:
/PWS/ZYCIE244-EKORG
Texto 8 3 15 15 1 CHAR X F
Chave externa
/PWS/ZYCIE244-EKORG
I/O 8 20 4 4 1 CHAR X Ent Off
EKO
Chave externa, Botão EntrsPoss.stand.
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
V_NORGCPRA2
I/O 5 25 51 20 1 CHAR Off
NEX
PossRol
*Novo:
V_NORGCPRA2
I/O 8 29 51 16 1 CHAR Off
NEX
PossRol
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
/PWS/ZYCIE244-WERKS
Texto 6 3 16 16 1 CHAR X F
Chave externa
/PWS/ZYCIE244-WERKS
I/O 6 20 4 4 1 CHAR X Ent Off
WRK
Entr.obrig., Chave externa, Botão EntrsPoss.stand.
*Novo:
/PWS/ZYCIE244-WERKS
Texto 5 3 16 16 1 CHAR X F
Chave externa
/PWS/ZYCIE244-WERKS
I/O 5 20 4 4 1 CHAR X Ent Off
WRK
Chave externa, Botão EntrsPoss.stand.
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
BTN2
Push 6 25 7 3 1 CHAR
BTN2
Ícn.=ICON_ENTER_MORE
*Novo:
BTN2
Push 5 25 7 3 1 CHAR
BTN2
Ícn.=ICON_ENTER_MORE
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
V_NCENTRO2
I/O 6 29 39 16 1 CHAR Off
NEX
PossRol
*Novo:
V_NCENTRO2
I/O 5 29 39 16 1 CHAR Off
NEX
PossRol
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
V_CEN_IE
Texto 7 3 14 14 1 CHAR
*Novo:
V_CEN_IE
Texto 6 3 14 14 1 CHAR
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da exclusão:
/PWS/ZYCIE244-CODAGRUP
Texto 8 3 7 7 1 CHAR X F
* << Fim da exclusão.
* >> Início da inclusão:
/PWS/ZYCIT395-CODAGRUP
Texto 7 3 15 15 1 CHAR X F
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
V_WERKS_EI
I/O 7 20 4 4 1 CHAR Off
NEX
*Novo:
V_WERKS_EI
I/O 6 20 4 4 1 CHAR Off
NEX
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
BTN201_01
Push 7 25 39 3 1 CHAR
CEN_EI
Ícn.=ICON_ENTER_MORE
*Novo:
BTN201_01
Push 6 25 39 3 1 CHAR
CEN_EI
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
V_TXTCENT_EI
I/O 7 29 39 16 1 CHAR Off
NEX
PossRol
*Novo:
V_TXTCENT_EI
I/O 6 29 39 16 1 CHAR Off
NEX
PossRol
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
/PWS/ZYCIE244-CODAGRUP
I/O 8 20 3 3 1 CHAR X Ent Off
Chave externa, Botão EntrsPoss.stand.
*Novo:
/PWS/ZYCIE244-CODAGRUP
I/O 7 20 4 4 1 CHAR X X Ent Off
Chave externa, Botão EntrsPoss.stand.
* << Fim da modificação.
*---------------------------------------------------------------------------------------------------
* >> Início da modificação:
*Antigo:
V_DESC_AGR
I/O 8 25 35 20 1 CHAR Off
NEX
PossRol
*Novo:
V_DESC_AGR
I/O 7 29 16 16 1 CHAR Off
NEX
PossRol
* << Fim da modificação.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
if screen-name eq '/PWS/ZYCIE244-NRFORECAST'.
if /pws/zycie244-modalidade ne 'S'.
* >> Início da exclusão: FORM CHECK_FIELD_0201
screen-input = 0.
* << Fim da exclusão:
* >> Início da inclusão:
screen-input = 1.
* << Fim da inclusão:
screen-invisible = 1.
modify screen.
else.
if /pws/zycie244-tipo eq 'C'.
if /pws/zycie244-bukrs is initial.
* >> Início da exclusão: FORM CHECK_FIELD_0201
screen-input = 0.
* << Fim da exclusão:
* >> Início da inclusão:
screen-input = 1.
* << Fim da inclusão:
else.
screen-input = v_status2.
endif.
screen-invisible = 0.
modify screen.
else.
* >> Início da exclusão: FORM CHECK_FIELD_0201
screen-input = 0.
* << Fim da exclusão:
* >> Início da inclusão:
screen-input = 1.
* << Fim da inclusão.
screen-invisible = 1.
modify screen.
endif.
endif.
endif.
...
if not /pws/zycie244-nrforecast is initial.
...
elseif screen-name eq '/PWS/ZYCIE244-EKORG'.
screen-input = 0.
modify screen.
* >> Início da exclusão: FORM CHECK_FIELD_0201
endif.
* << Fim da exclusão:
* >> Início da inclusão:
elseif screen-name eq '/PWS/ZYCIE244-CODAGRUP'.
screen-input = 0.
modify screen.
endif.
* << Fim da inclusão.
endif.
...
if not /pws/zycie244-nrcompos is initial.
...
elseif screen-name eq '/PWS/ZYCIE244-EKORG'.
screen-input = 0.
modify screen.
* >> Início da exclusão: FORM CHECK_FIELD_0201
endif.
* << Fim da exclusão
* >> Início da inclusão:
elseif screen-name eq '/PWS/ZYCIE244-CODAGRUP'.
screen-input = 0.
modify screen.
endif.
* << Fim da inclusão.
endif.
...
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE2 CHANGING V_ERRO2
...
endif.
if /pws/zycie244-bukrs is initial
or /pws/zycie244-werks is initial.
message e015 with text-313.
exit.
endif.
* << Fim da inclusão.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
MOVE: wa_zycit2382-modalidade TO /pws/zycie244-modalidade,
wa_zycit2382-tipo TO /pws/zycie244-tipo ,
wa_zycit2382-tipoemp TO /pws/zycie244-tipoemp ,
wa_zycit2382-oper_ind TO /pws/zycie244-oper_ind ,
wa_zycit2382-bukrs TO /pws/zycie244-bukrs ,
wa_zycit2382-werks TO /pws/zycie244-werks ,
wa_zycit2382-ekorg TO /pws/zycie244-ekorg ,
wa_zycit2382-importacao TO /pws/zycie244-importacao,
* >> Início da exclusão: MODULE TRATA_FORECAST INPUT
wa_zycit2382-variacaocb TO /pws/zycie244-variacaocb.
* << Fim da exclusão.
* >> Início da inclusão: MODULE TRATA_FORECAST INPUT
wa_zycit2382-variacaocb TO /pws/zycie244-variacaocb,
wa_zycit2382-codagrup TO /pws/zycie244-codagrup.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie244-bukrs.
* << Fim da inclusão.
...
if wa_zycit2582-aprovado ne 'X'.
message e061 with text-126 text-127.
clear /pws/zycie244-nrcompos.
exit.
endif.
* >> Início da exclusão: MODULE TRATA_COMPOSICAO INPUT
MOVE: wa_zycit2582-modalidade TO /pws/zycie244-modalidade,
* << Fim da exclusão.
* >> Início da inclusão: MODULE TRATA_COMPOSICAO INPUT
MOVE: wa_zycit2582-bukrs TO /pws/zycie244-bukrs ,
wa_zycit2582-codagrup TO /pws/zycie244-codagrup ,
wa_zycit2582-modalidade TO /pws/zycie244-modalidade,
* << Fim da inclusão.
wa_zycit2582-tipo TO /pws/zycie244-tipo ,
* >> Início da inclusão: MODULE TRATA_COMPOSICAO INPUT
wa_zycit2582-tipo2 TO /pws/zycie244-tipo2 ,
* << Fim da inclusão.
wa_zycit2582-werks TO /pws/zycie244-werks ,
wa_zycit2582-ekorg TO /pws/zycie244-ekorg ,
wa_zycit2582-importacao TO /pws/zycie244-importacao.
* >> Início da inclusão: MODULE TRATA_COMPOSICAO INPUT
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie244-bukrs.
* << Fim da inclusão.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01