CE PLUS - Nota 002231
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 09/10/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 14:15:00
Descrição da Nota: TRATAMENTO PARA FECHAR OS CAMPOS PARA SITUAÇÃO "EM ANÁLISE"
Sintoma
No programa não havia tratamento para caso a situação estivesse "Em Análise", no ato concessório no
período de espera do deferimento as informações não fossem alteradas.
Solução
Foi criado no programa tratativa para quando a situação estiver 'Em Análise' todos os campos fechem,
tanto para inclusão quanto para mofificação.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02231 Data: 09/10/2006 Hora: 08:36:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02231
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00134
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
TRATAMENTO PARA FECHAR OS CAMPOS PARA SITUAÇÃO "EM ANÁLISE"
----------------------------------------------------------------------------------------------------
Palavras Chave:
TELA 201, TELA 206, SITUAÇÃO, EM ANÁLISE, EXPORTAÇÕES, IMPORTAÇÕES
TELA 203, TELA 210, /PWS/ZYCIE244, /PWS/ZYCIE247, /PWS/ZYCIE245,
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI040 0201
DYNP /PWS/SAPMZYCI040 0212
DYNP /PWS/SAPMZYCI040 0239
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040O01
REPS /PWS/MZYCI040TOP3
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0201
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0212
*Modificação:
*Antigo:
BT_ADITIVO
Push 20 1 23 21 1 CHAR
T_ADITIVO
Ícn.=ICON_OUTBOX
OK
*Novo:
BT_ADITIVO
Push 20 1 23 21 1 CHAR
T_ADITIVO
Invisível
Ícn.=ICON_OUTBOX
OK
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0239
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
WHEN '/PWS/ZYCIE244-KUNNR'.
IF NOT /pws/zycie244-kunnr IS INITIAL.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELD_0201
ENDCASE.
IF /pws/zycie244-status = 'A'.
IF screen-name = '/PWS/ZYCIE244-PRACA'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-VCTO_FN'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-NRFORECAST'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-NRCOMPOS'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-BUKRS'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-WERKS'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-CODAGRUP'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-EKORG'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-LIFNR'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-KUNNR'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-MODALIDADE'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-TIPO2'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-TIPOEMP'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM CHECK_FIELD_0201
ENDCASE.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0201
IF screen-name = '/PWS/ZYCIE244-OPER_IND'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-IMPORTACAO'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-CICMS'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-NRATOC'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-name = '/PWS/ZYCIE244-DTATOC'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF screen-name = 'V_DIAS'.
IF /pws/zycie244-vcto_fn EQ '00000000'.
screen-input = 0.
screen-invisible = 1.
ELSE.
IF /pws/zycie244-status = 'A'.
screen-input = 0.
screen-invisible = 0.
ELSE.
screen-input = 1.
screen-invisible = 0.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
IF screen-group2 EQ 'CLI' AND /pws/zycie244-tipo EQ 'N'.
screen-invisible = '0'.
MODIFY SCREEN.
ELSEIF screen-group2 EQ 'CLI'.
screen-invisible = '1'.
...
...
ENDLOOP.
IF /pws/zycie244-tipo EQ 'G'.
tc_cimp2-lines = 1.
ELSE.
tc_cimp2-lines = tc_cimp2-lines + 7.
* >> Início da inclusão: FORM CHECK_FIELD_0203
ENDIF.
IF /pws/zycie244-status = 'A'.
LOOP AT tc_cimp2-cols INTO wa_imp.
wa_imp-screen-input = 0.
MODIFY tc_cimp2-cols FROM wa_imp.
ENDLOOP.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM trata_enter_0206.
DATA: v_meins LIKE mara-meins ,
v_gewei LIKE mara-gewei ,
...
...
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELD_0206
IF /pws/zycie244-status = 'A'.
LOOP AT tc_mexp2-cols INTO wa_exp.
wa_exp-screen-input = 0.
MODIFY tc_mexp2-cols FROM wa_exp.
ENDLOOP.
ENDIF.
* << Fim da inclusão
tc_mexp2-lines = tc_mexp2-lines + 7.
ENDFORM.
FORM check_field_0204.
LOOP AT tc_realizi-cols INTO wa_cols2.
IF /pws/zycit321-lote EQ space.
...
...
IF screen-name EQ 'V_DESCR_0210'.
screen-invisible = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELD_0210
ENDLOOP.
IF /pws/zycie244-status = 'A'.
LOOP AT tc_nacion-cols INTO wa_cols2.
wa_cols2-screen-input = 0.
MODIFY tc_nacion-cols FROM wa_cols2.
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: FORM CHECK_FIELD_0210
ENDIF.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
...
IF screen-name EQ '/PWS/ZYCIE247-PCTCOMIS'.
IF /pws/zycie244-modalidade EQ 'S' AND /pws/zycie244-nrforecast IS
INITIAL.
READ TABLE itab_zycit247 INDEX tc_mexp2-current_line.
IF sy-subrc EQ 0.
* >> Início da inclusão: MODULE TRATA_SCREEN_0206
IF /pws/zycie244-status <> 'A'.
* << Fim da inclusão
IF itab_zycit247-vl_comis IS INITIAL.
screen-input = v_status2.
MODIFY SCREEN.
ELSE.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE TRATA_SCREEN_0206
ENDIF.
* << Fim da inclusão
IF screen-name EQ '/PWS/ZYCIE247-VL_COMIS'.
IF /pws/zycie244-modalidade EQ 'S' AND /pws/zycie244-nrforecast IS
INITIAL.
READ TABLE itab_zycit247 INDEX tc_mexp2-current_line.
IF sy-subrc EQ 0.
* >> Início da inclusão: MODULE TRATA_SCREEN_0206
IF /pws/zycie244-status <> 'A'.
* << Fim da inclusão
IF itab_zycit247-pctcomis IS INITIAL.
screen-input = v_status2.
MODIFY SCREEN.
ELSE.
screen-input = 0.
MODIFY SCREEN.
* >> Início da inclusão: MODULE TRATA_SCREEN_0206
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE247-WERKS'.
...
...
NOT /pws/zycie247-qtd_ncm IS INITIAL.
screen-input = 0.
ENDIF.
IF /pws/zycit321-c_comum EQ 'X'.
screen-input = 1.
* >> Início da inclusão: MODULE TRATA_SCREEN_0206
ENDIF.
MODIFY SCREEN.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE TRATA_SCREEN_0206
IF /pws/zycie244-status = 'A'
AND screen-name = '/PWS/ZYCIE247-QTD_NCM'.
screen-input = 0.
* << Fim da inclusão
MODIFY SCREEN.
ENDIF.
ENDLOOP.
IF /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F' AND
/pws/zycit321-c_comum NE 'X'.
...
...
ENDIF.
ENDIF.
ENDIF.
LOOP AT SCREEN.
IF screen-name EQ 'TEXT201_01'
* >> Início da exclusão: MODULE APURA_TOTAIS_0201
OR screen-name EQ 'TEXT201_02'
OR screen-name EQ 'V_DIAS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE APURA_TOTAIS_0201
OR screen-name EQ 'TEXT201_02'.
* << Fim da inclusão
IF /pws/zycie244-vcto_fn EQ '00000000'.
screen-input = 0.
screen-invisible = 1.
ELSE.
screen-input = 1.
...
...
screen-input = '0'.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
DESCRIBE TABLE itab_zycit279_ap_aux LINES tc_transf-lines.
* >> Início da inclusão: MODULE STATUS_0239
IF /pws/zycie244-status = 'A'.
LOOP AT SCREEN.
CASE screen-name.
WHEN '/PWS/ZYCIE245-TRANSF'.
screen-input = 0.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
LOOP AT tc_transf-cols INTO wa_cols2.
wa_cols2-screen-input = 0.
MODIFY tc_transf-cols FROM wa_cols2.
ENDLOOP.
ENDIF.
* << Fim da inclusão
ENDMODULE.
MODULE preenche_inf_export OUTPUT.
/pws/zycie246 = itab_zycit246_inf.
ENDMODULE.
MODULE status_0241 OUTPUT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040TOP3
...
.
DATA : END OF itab_zycit434.
DATA: wa_zycit258 LIKE /pws/zycie258 ,
wa_itab_det_exp LIKE itab_det_exp ,
wa_cols3 TYPE cxtab_column ,
* >> Início da inclusão:
wa_imp TYPE cxtab_column ,
wa_exp TYPE cxtab_column ,
* << Fim da inclusão
wa_itab_di_final LIKE itab_di_final.