CE PLUS - Nota 001000
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 09/03/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 13:35:50
Descrição da Nota: CRIADA EXIT NO USER COMMAND DA TELA 200 DO ATO CONCESSÓRIO
Sintoma
Criada exit no user command da tela 200 do ato concessório.
Exit: ATO001
Solução
Criada exit no user command da tela 200 do ato concessório.
Exit: ATO001
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01000 Data: 09/03/2006 Hora: 15:06:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01000
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00022
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
CRIADA EXIT NO USER COMMAND DA TELA 200 DO ATO CONCESSÓRIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO001 - ATO CONCESSÓRIO - USER COMMAND -
/PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040F03
REPS /PWS/MZYCI040I01
REPS /PWS/MZYCI040PRES
REPS /PWS/MZYCI040TOP
REPS /PWS/MZYCI040TOP2
REPS /PWS/MZYCI040X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
( ( ( itab_zycit245_acum-netpr + itab_zycit245_acum-vl_frete )
* itab_zycit245_acum-pctseg ) / 100 ) * itab_zycit245_acum-qtd_tot.
SELECT steuc UP TO 1 ROWS
FROM t604f
INTO itab_zycit245_acum-j_1bnbm
* >> Início da exclusão: FORM ACUMULA_ITEM_LISTA_TECNICA_TG2
WHERE steuc EQ '9999.
99.99'.
* << Fim da exclusão
* >> Início da inclusão: FORM ACUMULA_ITEM_LISTA_TECNICA_TG2
WHERE steuc EQ '9999.99.99'.
* << Fim da inclusão
ENDSELECT.
MODIFY itab_zycit245_acum INDEX 1.
ENDIF.
itab_zycit245[] = itab_zycit245_acum[].
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F03
...
read table itab_zycit245_rp with key nritem = itab_zycit245-nritem.
itab_zycit245 = itab_zycit245_rp.
modify itab_zycit245.
ENDloop..
ENDFORM.
* >> Início da inclusão:
FORM verifica_exit USING p_modulo
p_func
p_exit.
CLEAR itab_zyglt100.
REFRESH itab_zyglt100.
SELECT * FROM /pws/zyglt100 INTO TABLE itab_zyglt100
WHERE codmod EQ p_modulo
AND func EQ p_func
AND zexit EQ p_exit.
* << Fim da inclusão
* >> Início da exclusão:
.
* << Fim da exclusão
* >> Início da inclusão:
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
MODIFY itab_sdocompi INDEX tc_res-current_line.
ENDIF.
ENDMODULE.
MODULE user_command_0200 INPUT.
CALL METHOD cl_gui_cfw=>dispatch.
* >> Início da inclusão: MODULE USER_COMMAND_0200
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI040'
'ATO001'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'ATO001' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa)
USING sy-ucomm
CHANGING e_subrc
IF FOUND .
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
CASE ok_code2.
WHEN 'BACK'.
PERFORM check_button_back2.
WHEN 'FS_CABEC2'.
pressed_tab_2a = ok_code2.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040PRES
...
'LCL_DC_PRES->SET_OBJ_VALUES' 'W'.
exit.
endif.
APPEND OBJ_COPY TO DATA.
CLEAR OBJMODES.
* >> Início da exclusão:
DO ATTRIB_COUNT TIMES. SINGLE_OFFSET-OFFSET = SY-INDEX - 1.
* << Fim da exclusão
* >> Início da inclusão:
DO attrib_count TIMES.
single_offset-offset = sy-index - 1.
* << Fim da inclusão
OBJMODES+SINGLE_OFFSET-OFFSET(1) = INS_MODE.
ENDDO.
APPEND OBJMODES TO MODES.
IF NEW_MODE <> IF_DC_ACCESS=>CO_MODE_INIT.
DISTRIBUTED = GFW_FALSE.
...
...
RETVAL = CL_GFW=>E_DC_MODE.
GFW_WRITE RETVAL
'LCL_DC_PRES->Set_Obj_Values' 'W'.
EXIT.
ENDIF.
* >> Início da exclusão:
DO ATTRIB_COUNT TIMES. SINGLE_OFFSET-OFFSET = SY-INDEX - 1.
* << Fim da exclusão
* >> Início da inclusão:
DO attrib_count TIMES.
single_offset-offset = sy-index - 1.
* << Fim da inclusão
ASSIGN COMPONENT SY-INDEX OF STRUCTURE SINGLE_DATA TO
<LCL_DC_PRES_KEY>.
ASSIGN COMPONENT SY-INDEX OF STRUCTURE OBJ TO
<LCL_DC_PRES_ATTRIB>.
IF <LCL_DC_PRES_KEY> <>
...
...
INSERT OBJ_COPY INTO DATA INDEX KEY_IDX.
IF SY-SUBRC <> 0.
RETVAL = CL_GFW=>E_DC_INT_TAB.
ENDIF.
CLEAR OBJMODES.
* >> Início da exclusão:
DO ATTRIB_COUNT TIMES. SINGLE_OFFSET-OFFSET = SY-INDEX - 1.
* << Fim da exclusão
* >> Início da inclusão:
DO attrib_count TIMES.
single_offset-offset = sy-index - 1.
* << Fim da inclusão
OBJMODES+SINGLE_OFFSET-OFFSET(1) = INS_MODE.
ENDDO.
INSERT OBJMODES INTO MODES INDEX KEY_IDX.
IF SY-SUBRC <> 0.
RETVAL = CL_GFW=>E_DC_INT_TAB.
...
...
else.
<LCL_DC_PRES_ATTRIB> = FIELD_VALUE.
endif.
APPEND SINGLE_DATA TO DATA.
CLEAR OBJMODES.
* >> Início da exclusão:
DO ATTRIB_COUNT TIMES. SINGLE_OFFSET-OFFSET = SY-INDEX - 1.
* << Fim da exclusão
* >> Início da inclusão:
DO attrib_count TIMES.
single_offset-offset = sy-index - 1.
* << Fim da inclusão
OBJMODES+SINGLE_OFFSET-OFFSET(1) = INS_MODE.
ENDDO.
APPEND OBJMODES TO MODES.
IF NEW_MODE <> IF_DC_ACCESS=>CO_MODE_INIT.
DISTRIBUTED = GFW_FALSE.
...
...
INSERT SINGLE_DATA INTO DATA INDEX KEY_IDX.
IF SY-SUBRC <> 0.
RETVAL = CL_GFW=>E_DC_INT_TAB.
ENDIF.
CLEAR OBJMODES.
* >> Início da exclusão:
DO ATTRIB_COUNT TIMES. SINGLE_OFFSET-OFFSET = SY-INDEX - 1.
* << Fim da exclusão
* >> Início da inclusão:
DO attrib_count TIMES.
single_offset-offset = sy-index - 1.
* << Fim da inclusão
OBJMODES+SINGLE_OFFSET-OFFSET(1) = INS_MODE.
ENDDO.
INSERT OBJMODES INTO MODES INDEX KEY_IDX.
IF SY-SUBRC <> 0.
RETVAL = CL_GFW=>E_DC_INT_TAB.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040TOP
PROGRAM /pws/sapmzyci040 MESSAGE-ID /pws/zycim.
* >> Início da inclusão:
INCLUDE /pws/mzyci040x01.
* << Fim da inclusão
INCLUDE /pws/mzyci040top2.
INCLUDE /pws/mzyci040top3.
TABLES: mara ,
bsak ,
mast ,
...
...
INCLUDE STRUCTURE /pws/zycie246.
DATA: END OF it_di.
DATA: BEGIN OF itab_botoes OCCURS 0.
DATA: bname(20) TYPE c.
DATA: END OF itab_botoes.
* >> Início da inclusão:
DATA: BEGIN OF itab_zyglt100 OCCURS 10.
INCLUDE STRUCTURE /pws/zyglt100.
DATA: END OF itab_zyglt100.
DATA: e_subrc VALUE '0'.
* << Fim da inclusão
DATA: BEGIN OF itab_forms OCCURS 0.
INCLUDE STRUCTURE /pws/zycet067.
DATA: v_mark(1) TYPE c.
DATA: END OF itab_forms.
DATA: BEGIN OF itab_mess_un OCCURS 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040TOP2
...
/pws/zycie085 ,
/pws/zycet116 ,
/pws/zycet118 ,
/pws/zycet183 ,
/pws/zycet184 ,
* >> Início da exclusão:
/pws/zycie244 ,
/pws/zycit244 ,
* << Fim da exclusão
/pws/zycie245 ,
/pws/zycie245c,
/pws/zycie245d,
/pws/zycit245 ,
/pws/zycie246 ,
...
----------------------------------------------------------------------------------------------------
* Criar este include.
Modificações efetuadas em REPS /PWS/MZYCI040X01
* >> Início da inclusão:
TABLES: /pws/zycie244,
/pws/zycit244.
* << Fim da inclusão