CE PLUS - Nota 008035
Módulo: DRAWBACK
Funcionalidade: Parâmetros
Data/Hora da Publicação: 10/02/2009 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:36:22
Descrição da Nota: PROGRAMA DE GERENCIAMENTO DOS PARAMETROS GERAIS DO DRAWBACK
Sintoma
Desenvolvimento do Programa de gerenciamento dos parametros gerais do Drawback
Solução
Desenvolvimento do Programa de gerenciamento dos parametros gerais do Drawback
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08035 Data: 10/02/2009 Hora: 15:27:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08035
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00085
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08034 - 00001 - 7.0 - 00008 - APROPRIAÇÃO MULTIPLA / PARCIAL
----------------------------------------------------------------------------------------------------
PROGRAMA DE GERENCIAMENTO DOS PARAMETROS GERAIS DO DRAWBACK
----------------------------------------------------------------------------------------------------
Palavras Chave:
PROGRAMA DE GERENCIAMENTO DOS PARAMETROS GERAIS DO DRAWBACK
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOCU DE/PWS/ZYCIL433
DOCU DE/PWS/ZYCIL809
DOCU DE/PWS/ZYCIL812
DOCU DE/PWS/ZYCIL817
DOCU DE/PWS/ZYCIL822
DOCU DE/PWS/ZYCIL823
DOCU DE/PWS/ZYCIL834
DOCU DE/PWS/ZYCIL835
DOCU DE/PWS/ZYCIL839
DOCU DE/PWS/ZYCIL840
DOCU DE/PWS/ZYCIL843
DOCU DE/PWS/ZYCIL856
DOCU DE/PWS/ZYGLL1070
REPS /PWS/MZYCI081F01
REPS /PWS/MZYCI081I01
REPS /PWS/MZYCI081O01
REPS /PWS/MZYCI081TOP
REPS /PWS/SAPMZYCI081
SHI3 /PWS/ZYCID
SHI6 /PWS/ZYCID
TABU TMENU01
TABU TMENU01R
TABU TMENU01T
TRAN /PWS/ZYCI081
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI081F01
* >> Início da inclusão:
FORM pergunta USING p_titulo
p_pergunta
CHANGING p_resposta.
CLEAR: p_resposta.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = p_titulo
text_question = p_pergunta
text_button_1 = text-001
text_button_2 = text-002
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = p_resposta
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
ENDFORM.
FORM grava_dados.
/pws/zycit321-usernamec = sy-uname.
/pws/zycit321-dtuserc = sy-datlo.
MODIFY /pws/zycit321 FROM /pws/zycit321.
IF sy-subrc EQ 0.
MESSAGE i039 WITH text-004.
wa_zycit321 = /pws/zycit321.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI081I01
* >> Início da inclusão:
MODULE user_command_0100 INPUT.
CASE v_okcode.
WHEN 'SAVE'.
PERFORM grava_dados.
WHEN 'EXIT'.
IF /pws/zycit321 NE wa_zycit321.
PERFORM pergunta USING text-001
text-009
CHANGING v_resposta.
IF v_resposta EQ '1'.
PERFORM grava_dados.
ENDIF.
IF v_resposta NE 'A'.
LEAVE PROGRAM.
ENDIF.
ELSE.
LEAVE PROGRAM.
ENDIF.
ENDCASE.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI081O01
* >> Início da inclusão:
MODULE status_0100 OUTPUT.
SET PF-STATUS 'ST0100'.
SET TITLEBAR '0100'.
IF /pws/zycit321 IS INITIAL.
SELECT SINGLE * FROM /pws/zycit321
INTO wa_zycit321. "#EC CI_NOWHERE
SELECT SINGLE * FROM /pws/zycit321. "#EC CI_NOWHERE
ENDIF.
ENDMODULE.
MODULE status_0101 OUTPUT.
ENDMODULE.
MODULE set_screen_0101 OUTPUT.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCIT321-C_COMUM' AND
/pws/zycit321-ltopc EQ 1.
CLEAR /pws/zycit321-c_comum.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIT321-APR_PARC' AND
/pws/zycit321-apr_mult EQ space.
CLEAR /pws/zycit321-apr_parc.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI081TOP
* >> Início da inclusão:
PROGRAM /pws/sapmzyci081 MESSAGE-ID /pws/zycim.
TABLES: /pws/zycit321.
CONTROLS: ts_controle TYPE TABSTRIP .
DATA: wa_zycit321 TYPE /pws/zycit321.
DATA: v_tela(4) TYPE c VALUE '0101' ,
v_okcode TYPE sy-ucomm ,
v_resposta TYPE c .
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI081
* >> Início da inclusão:
INCLUDE /PWS/MZYCI081TOP.
INCLUDE /PWS/MZYCI081O01.
INCLUDE /PWS/MZYCI081I01.
INCLUDE /PWS/MZYCI081F01.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHI3 /PWS/ZYCID
Entrada de Notas Fiscais (Mercado Interno)
Relatórios
Comprovação Drawback Intermediário-Importação / Comercial Exportadora
Parâmetros
* >> Início da inclusão: ( Utilizar transação /PWS/ZYCI081)
Paramêtros Gerais
* << Fim da inclusão
Modalidades / Tipos de Drawback
Controle de Áreas de Negócios x Centros Produtivos
* >> Início da exclusão:
Gerais
* << Fim da exclusão
Lista Técnica Materiais a Exportar
Gerenciamento de Lista Técnica por Agrupamento
Dados do Industrial-Exportador ( DB Interm-Import )
Tipo de Ordem de Venda
Tipo de Fornecimento
Tipo de Faturamento
Multas e Juros na Nacionalização
Insumos Alternativos / Avanço Tecnológico
Perdas por Material X Insumo
Tipos de Lançamentos
CFOP (Vendas Trading Company)
Clientes (Vendas Trading Company)
Códigos de enquadramento DB Isenção
Validade Materiais Drawback
Cadastro de Procuradores
Cadastro de Engenheiros
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCI081
* Criação da transação /PWS/ZYCI081
**********************DOWNLOAD DO PROGRAMA**********************************************************
###%%%$$$###PROGRAMA:/PWS/SAPMZYCI081 M X X
/PWS/ZYCI
*-----------------------------------------------------------------------
* Procwork Software
* Módulo : CI
* Descrição : CI - Controle de Área de Negócio x Centro Produtivo
*-----------------------------------------------------------------------
* Nome Data Descrição
*-----------------------------------------------------------------------
INCLUDE /PWS/MZYCI081TOP.
INCLUDE /PWS/MZYCI081O01.
INCLUDE /PWS/MZYCI081I01.
INCLUDE /PWS/MZYCI081F01.
###%%%$$$###PROGRAMA:/PWS/MZYCI081F01 I X
/PWS/ZYCI
*----------------------------------------------------------------------*
***INCLUDE /PWS/MZYCI067F01 .
*----------------------------------------------------------------------*
FORM pergunta USING p_titulo
p_pergunta
CHANGING p_resposta.
CLEAR: p_resposta.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = p_titulo
text_question = p_pergunta
text_button_1 = text-001
text_button_2 = text-002
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = p_resposta
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " pergunta
*&---------------------------------------------------------------------*
*& Form grava_dados
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM grava_dados.
/pws/zycit321-usernamec = sy-uname.
/pws/zycit321-dtuserc = sy-datlo.
MODIFY /pws/zycit321 FROM /pws/zycit321.
IF sy-subrc EQ 0.
MESSAGE i039 WITH text-004.
wa_zycit321 = /pws/zycit321.
ENDIF.
ENDFORM. " grava_dados
###%%%$$$###PROGRAMA:/PWS/MZYCI081I01 I X
/PWS/ZYCI
*----------------------------------------------------------------------*
***INCLUDE /PWS/MZYCI067I01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module user_command_0100 INPUT
*&---------------------------------------------------------------------*
* Comando do usuário
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
CASE v_okcode.
WHEN 'SAVE'.
PERFORM grava_dados.
WHEN 'EXIT'.
IF /pws/zycit321 NE wa_zycit321.
PERFORM pergunta USING text-001
text-009
CHANGING v_resposta.
IF v_resposta EQ '1'.
PERFORM grava_dados.
ENDIF.
IF v_resposta NE 'A'.
LEAVE PROGRAM.
ENDIF.
ELSE.
LEAVE PROGRAM.
ENDIF.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module preenche_dados INPUT
*&---------------------------------------------------------------------*
* Preenche as Areas de Negócio
*----------------------------------------------------------------------*
###%%%$$$###PROGRAMA:/PWS/MZYCI081O01 I X
/PWS/ZYCI
*&---------------------------------------------------------------------*
*& Module status_0100 OUTPUT
*&---------------------------------------------------------------------*
* Status da tela 0100
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'ST0100'.
SET TITLEBAR '0100'.
IF /pws/zycit321 IS INITIAL.
SELECT SINGLE * FROM /pws/zycit321
INTO wa_zycit321. "#EC CI_NOWHERE
SELECT SINGLE * FROM /pws/zycit321. "#EC CI_NOWHERE
ENDIF.
ENDMODULE. " status_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module status_0101 OUTPUT
*&---------------------------------------------------------------------*
* Status da tela 0101
*----------------------------------------------------------------------*
MODULE status_0101 OUTPUT.
ENDMODULE. " status_0101 OUTPUT
*&---------------------------------------------------------------------*
*& Module set_screen_0101 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE set_screen_0101 OUTPUT.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCIT321-C_COMUM' AND
/pws/zycit321-ltopc EQ 1.
CLEAR /pws/zycit321-c_comum.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIT321-APR_PARC' AND
/pws/zycit321-apr_mult EQ space.
CLEAR /pws/zycit321-apr_parc.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDMODULE. " set_screen_0101 OUTPUT
###%%%$$$###PROGRAMA:/PWS/MZYCI081TOP I X
/PWS/ZYCI
*&---------------------------------------------------------------------*
*& Include /PWS/MZYCI067TOP *
*& *
*&---------------------------------------------------------------------*
PROGRAM /pws/sapmzyci081 MESSAGE-ID /pws/zycim.
*Tabela
TABLES: /pws/zycit321.
*Controles de tela
CONTROLS: ts_controle TYPE TABSTRIP .
DATA: wa_zycit321 TYPE /pws/zycit321.
*Variaveis
DATA: v_tela(4) TYPE c VALUE '0101' ,
v_okcode TYPE sy-ucomm ,
v_resposta TYPE c .
###%%%$$$###TEXTOS DO PROGRAMA
I001 Sim
I002 Não
I004 Registro gravado.
I009 Deseja salvar as alterações antes de sair?
*
R Parametros Gerais Drawback
/PWS/MZYCI081F01 PInclude /PWS/MZYCI067F01
/PWS/MZYCI081I01 PInclude /PWS/MZYCI067I01
/PWS/MZYCI081O01 PInclude /PWS/MZYCI067O01
/PWS/MZYCI081TOP PInclude /PWS/MZYCI067TOP
###%%%$$$###ADM
000001 000005 000001
###%%%$$$###STAT
ST0100 D000001 000001 0001Tela Principal
###%%%$$$###FUNT
BACK 001 S
Voltar
DELE 001 SICON_DELETE
@11@Eliminar Item Selecionado
ENTE 001 SICON_OKAY
@0V@Executar
EXIT 001 S
Voltar
EXIT 002 S
Encerrar
EXIT 003 SICON_CANCEL
@0W@Cancelar
LEAV 001 S
Encerrar
NOVO 001 SICON_CREATE
@0Y@Novo
SAVE 001 SICON_SYSTEM_SAVE
@2L@Gravar
SELE 001 SICON_EXECUTE_OBJECT
@15@Selecionar
###%%%$$$###PFK
000001 00ENTE 001
000001 03EXIT 001
000001 11SAVE 001
000001 12EXIT 003
000001 13ENTE 001
000001 14DELE 001
000001 15EXIT 002
###%%%$$$###STAF
ST0100 BACK
ST0100 DELE
ST0100 ENTE
ST0100 EXIT
ST0100 LEAV
ST0100 SAVE
ST0100 SELE
###%%%$$$###ATRT
A000001 D Tela Principal
P000001 D Tela Principal
B000001 0001D Tela Principal
###%%%$$$###TITT
0100 Parametros Drawback
###%%%$$$###SCREEN0100Tela Principal 46C
/PWS/SAPMZYCI081 0100 0100 27 10419235 0 0 27 120 0 G P
20090205153919
###%%%$$$###D021
TS_CONTROLE
001B083000I0000 680102J650101
0D0F
TS_CONTROLE_TAB1
0000000000P3000 110101I650101 CHAR102TS_CONTROLE_CO
0000Parametros_Gerais
TS_CONTROLE_TAB1
TS_CONTROLE_SCO
001800F000B3000 660303I650000 103
0303
TS_CONTROLE_CO
001800F000B3000 660303I650000 104
0A03
V_OKCODE
0000801000 0000 14FF01O000000 CHAR
0000____________________
###%%%$$$###D022
PROCESS BEFORE OUTPUT.
MODULE status_0100.
CALL SUBSCREEN ts_controle_co INCLUDING '/PWS/SAPMZYCI081' v_tela.
PROCESS AFTER INPUT.
CALL SUBSCREEN ts_controle_co.
MODULE user_command_0100.
###%%%$$$###D023
###%%%$$$###SCREEN0101Subtela Parametros 46C
/PWS/SAPMZYCI081 0101I0000 23 95 19235 0 0 23 96 0 G P
20090206100054
###%%%$$$###D021
GERAIS
000B000000R3000 340102 000000 CHAR101
0000Gerais_____________________________________________
ATO
0005000000R3000 290138 000000 CHAR102
0000Ato_Concessório_________________________
/PWS/ZYCIT321-LTOPC
0000300001 3000 0F0304 000000 CHAR
20000Lista_Técnica__
X
/PWS/ZYCIT321-LTOPC
001CA00081 4008 010317 000000 CHAR
C0100_
XDL
/PWS/ZYCIT321-NCM
0000300004 3000 0F033B 000000 CHAR
20000Code_controle__
X
/PWS/ZYCIT321-NCM
0000A00084 4008 10034B 000000 CHAR
C1000________________
X
/PWS/ZYCIT321-C_COMUM
0000300001 3000 120404 000000 CHAR
20000Controle_(Mat/NCM)
X
/PWS/ZYCIT321-C_COMUM
001CA00081 4008 010417 000000 CHAR
C0100_
XDL
/PWS/ZYCIT321-DIAS
0000300000 3000 0F043B 000000 CHAR
20000Nº_Dias_alerta_
X
/PWS/ZYCIT321-DIAS
0000B00080 4000 10044B 000000 DEC
P0400________________
/PWS/ZYCIT321-VIABILIDADE
0000300000 3000 110504 000000 CHAR
20000Ind_p/_Cálc_Viab_
X
/PWS/ZYCIT321-VIABILIDADE
0000B00090 4000 1C0517 000000 DEC
P0D05___________________________V
/PWS/ZYCIT321-LOTE
0000300001 3000 0F0604 000000 CHAR
20000Contr._Lote____
X
/PWS/ZYCIT321-LOTE
001CA00081 4008 010617 000000 CHAR
C0100_
XDL
COMPOSICAO
0006000000R3000 290638 000000 CHAR103
0000Composoção_de_Isenção___________________
/PWS/ZYCIT321-DTCONV
0000300001 3000 0F083A 000000 CHAR
20000Data_conversão_
X
/PWS/ZYCIT321-DTCONV
0011A00081 4008 01084A 000000 CHAR
C0100_
XDL
/PWS/ZYCIT321-UT_IMP
0000A00081C0008 010904 000000 CHAR105
C0100_
X
/PWS/ZYCIT321-UT_IMP
0000300001C3000 120906 000000 CHAR105
20000Util._Mod._Import.
X
/PWS/ZYCIT321-IT_GE
0000A00081C0008 010A3A 000000 CHAR107
C0100_
X
/PWS/ZYCIT321-IT_GE
0000300001C3000 120A3C 000000 CHAR107
20000Cod._Genérico_Mat.
X
APROPRIACAO
000C000000R3000 340C02 000000 CHAR108
0000Apropriação________________________________________
FORECAST
0005000000R3000 290C38 000000 CHAR109
0000Forecast________________________________
/PWS/ZYCIT321-PERCENT
0000300001 3000 140E04 000000 CHAR
20000Percentual_apropria.
X
/PWS/ZYCIT321-PERCENT
0019A00081 4008 010E19 000000 CHAR
C0100_
XDL
/PWS/ZYCIT321-UFENT
0000300004 3000 0A0E3A 000000 CHAR
20000UF_Entrada
X
/PWS/ZYCIT321-UFENT
0000A00084 4008 030E4A 000000 CHAR
C0300___
X
/PWS/ZYCIT321-APR_GEN
0000300001 3000 0F0F04 000000 CHAR
20000Método_Apr_int_
X
/PWS/ZYCIT321-APR_GEN
0019A00081 4008 010F19 000000 CHAR
C0100_
XDL
/PWS/ZYCIT321-APR_MULT
0000300001 3000 141104 000000 CHAR
20000Apropriação_Multipla
X
/PWS/ZYCIT321-APR_MULT
0019A00081 4008 011119 000000 CHAR
C0100_
XDL
0007000000R3000 291138 000000 CHAR110
0000________________________________________
/PWS/ZYCIT321-APR_PARC
0000300001 3000 131204 000000 CHAR
20000Apropriação_Parcial
X
/PWS/ZYCIT321-APR_PARC
0019A00081 4008 011219 000000 CHAR
C0100_
XDL
/PWS/ZYCIT321-MANDT
0000300000 3000 0F133A 000000 CHAR
20000Mandante_______
X
/PWS/ZYCIT321-MANDT
0000A00080 7000 03134F 000000 CLNT
C0300___
/PWS/ZYCIT321-DIA_ANT
0000300000 3000 111404 000000 CHAR
20000n°_dias_Ant/Venc.
X
/PWS/ZYCIT321-DIA_ANT
0000A00080 4000 051419 000000 DEC
P0400_.___
/PWS/ZYCIT321-USERNAMEC
0000300000 3000 12143A 000000 CHAR
20000Usuário/a_________
X
/PWS/ZYCIT321-USERNAMEC
0000A00080 7000 0C144F 000000 CHAR
C0C00____________
/PWS/ZYCIT321-DTUSERC
0000300000 3000 04153A 000000 CHAR
00000Data
X
/PWS/ZYCIT321-DTUSERC
0000B00080 7008 0C154F 000000 DATS
D0800____________
X
/PWS/ZYCIT321-APR_IMP
0000A00081C0008 011604 000000 CHAR112
C0100_
X
/PWS/ZYCIT321-APR_IMP
0000300001C3000 141606 000000 CHAR112
20000Apr_Imp_Genérico____
X
0000801000 0000 14FF01O000000 CHAR
0000____________________
###%%%$$$###D022
PROCESS BEFORE OUTPUT.
MODULE status_0101.
MODULE set_screen_0101.
PROCESS AFTER INPUT.
###%%%$$$###D023
###%%%$$$###D023
###%%%$$$###D023