CE PLUS - Nota 005604
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 10/01/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:27:16
Descrição da Nota: PADRONIZAÇÃO - CODE INSPECTOR
Sintoma
Padronização - Code Inspector - ANA
Solução
Padronização - Code Inspector - ANA
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05604 Data: 10/01/2008 Hora: 15:07:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05604
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
PADRONIZAÇÃO - CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
PADRONIZAÇÃO - CODE INSPECTOR - ANA
----------------------------------------------------------------------------------------------------
Objetos da nota:
RELE F6DK956622 20080110 150141 PWSCI
RELE F6DK956623 20080110 150147 PWSCI
REPS /PWS/MZYCI059F01
REPS /PWS/MZYCI059F02
REPS /PWS/MZYCI059F03
REPS /PWS/MZYCI059I01
REPS /PWS/MZYCI059OO
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F01
...
a_ipidevi = ( /pws/zycie100a-unit_valor * /pws/zycie100a-unit_qtde ).
ENDIF.
IF /pws/zycie100a-reduzidaipi <= /pws/zycie003-advalipi AND
NOT /pws/zycie100a-reduzidaipi IS INITIAL.
a_ipidevi = ( ( ( /pws/zycie003-advalipi -
/pws/zycie100a-reduzidaipi ) / 100 ) * t_ipibas ).
ENDIF.
itab_it-vlipi = a_ipidevi.
CLEAR t_ipirec.
CLEAR v_subrc.
* >> Início da exclusão: FORM LOAD_IIPI
CALL CUSTOMER-FUNCTION '001'
EXPORTING
/pws/zycie100a = /pws/zycie100a
a_ipidevi = a_ipidevi
p_tipo = p_tipo
/pws/zycie085 = /pws/zycie085
v_dit = 'N'
v_trecho = '1'
t_ivadu = t_ivadu
t_iirec = t_iirec
t_ivdesp = t_ivdesp
/pws/zycie003 = /pws/zycie003
IMPORTING
v_subrc = v_subrc
CHANGING
t_ipirec = t_ipirec
a_ipitreco = a_ipitreco
a_ipitdevi = a_ipitdevi
s_wipireco = s_wipireco
s_wiidevi = s_wiidevi
s_wipidevi = s_wipidevi
t_icmsbs_d2 = t_icmsbs_d2
t_icmsbs = t_icmsbs
a_iicalc = a_iicalc.
* << Fim da exclusão
IF v_subrc NE 'X'.
IF '15' NA /pws/zycie100a-codregtriipi.
t_ipirec = a_ipidevi.
IF p_tipo = 'A'.
a_ipitreco = a_ipitreco + t_ipirec.
a_ipitdevi = a_ipitdevi + a_ipidevi.
ELSE.
IF /pws/zycie100a-codregtri NE '3'
AND /pws/zycie100a-codregtri NE '5'.
s_wipireco = s_wipireco + t_ipirec.
...
...
ENDIF.
ENDIF.
IF NOT itab_zycit020[] IS INITIAL.
SELECT SINGLE land1
FROM t001
INTO t001-land1
WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit039 INTO TABLE itab_zycit039
FOR ALL ENTRIES IN itab_zycit020 WHERE
codigo = itab_zycit020-codigo
* >> Início da exclusão: FORM LOADING_ALL
AND land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM LOADING_ALL
AND land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
LOOP AT itab_zycit049.
READ TABLE itab_zycit019 WITH KEY
tpdesp = itab_zycit049-tpdesp.
IF sy-subrc EQ 0.
itab_zycit049-tipo = itab_zycit019-tipo.
itab_zycit049-coddesp = itab_zycit019-coddesp.
READ TABLE itab_zycit020 WITH KEY
codigo = itab_zycit019-codigo.
IF sy-subrc EQ 0.
...
...
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263
FOR ALL ENTRIES IN itab_zycit003 WHERE
nrseq = itab_zycit003-nrseq AND
ebeln = itab_zycit003-ebeln AND
ebelp = itab_zycit003-ebelp AND
eliminado = space.
ENDIF.
IF NOT itab_zycit263[] IS INITIAL.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_zycit263 WHERE
* >> Início da exclusão: FORM FILL_ITABIT
nrseq_pgfat = itab_zycit263-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABIT
nrseq_pgfat = itab_zycit263-nrseq_pgfat. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit001 INTO TABLE itab_zycit001
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq = itab_zycit003-nrseq.
SELECT * FROM /pws/zycit107 INTO TABLE itab_zycit107
FOR ALL ENTRIES IN itab_zycit003
WHERE land1 = itab_zycit003-porigem.
ENDIF.
* >> Início da exclusão: FORM FILL_ITABIT
SELECT * FROM /pws/zycit122 INTO TABLE itab_zycit122.
SELECT * FROM /pws/zycit123 INTO TABLE itab_zycit123.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABIT
SELECT * FROM /pws/zycit122 INTO TABLE itab_zycit122. "#EC CI_NOWHERE
SELECT * FROM /pws/zycit123 INTO TABLE itab_zycit123. "#EC CI_NOWHERE
* << Fim da inclusão
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM ekpo INTO TABLE itab_ekpo
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp.
ENDIF.
SELECT * FROM /pws/zycit229 INTO TABLE itab_zycit229
WHERE codeven = 'DI'.
IF itab_zycit086[] IS INITIAL.
PERFORM fill_instdesp.
...
...
SELECT SINGLE region FROM adrc INTO v_icms_regio
WHERE addrnumber = j_1bbranch-adrnr.
IF sy-subrc EQ 0.
SELECT SINGLE flag_icms base FROM /pws/zycit062
INTO (v_icms_especial,v_base_esp) WHERE
regio = v_icms_regio.
ENDIF.
IF itab_zycit031[] IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit031 INTO TABLE itab_zycit031
* >> Início da exclusão: FORM FILL_ITABIT
WHERE land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABIT
WHERE land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
READ TABLE itab_zycit031 WITH KEY inco1 = itab_zycit001-inco1.
IF sy-subrc EQ 0.
s_inco1_ci = itab_zycit031-inco1_ci.
ELSE.
CLEAR: s_inco1_ci.
MESSAGE i015 WITH text-039 wa_it-inco1.
ENDIF.
IF /pws/zycie085-codreg EQ '03' AND /pws/zycie085-tpdi EQ 'N'.
LOOP AT itab_it.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F02
...
FORM load_con.
DATA: wa_zycit001 LIKE /pws/zycit001,
wa_zycit094 LIKE /pws/zycit094.
CLEAR: s_cont, wa_zycit001, wa_zycit094.
SELECT SINGLE nrseq FROM /pws/zycit094 INTO wa_zycit094-nrseq
WHERE nrseqce = /pws/zycie093-nrseqce.
SELECT SINGLE * FROM /pws/zycit001 INTO wa_zycit001
WHERE nrseq = wa_zycit094-nrseq.
SELECT SINGLE descr FROM /pws/zycit117 INTO s_cont WHERE
meiotransp = wa_zycit001-meioemba AND
* >> Início da exclusão: FORM LOAD_CON
tpconh = wa_zycit001-tpdecl.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_CON
tpconh = wa_zycit001-tpdecl. "#EC CI_NOFIRST
* << Fim da inclusão
CLEAR: wa_zycit001, wa_zycit094.
ENDFORM.
FORM load_uti.
PERFORM texto_dominio USING '/PWS/ZYCID050'
/pws/zycie093-utilizacao
CHANGING s_conu.
ENDFORM.
FORM load_mod.
CLEAR: s_mod.
SELECT SINGLE descricao FROM /pws/zycit025 INTO s_mod WHERE
...
...
AND ebelp = /pws/zycie100a-ebelp
AND adicao = /pws/zycie100a-adicao.
COMMIT WORK.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM load_fund USING p_codfun.
CLEAR t_fundes.
SELECT SINGLE descr FROM /pws/zycit177 INTO t_fundes
* >> Início da exclusão: FORM LOAD_FUND
WHERE codigo = p_codfun.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_FUND
WHERE codigo = p_codfun. "#EC CI_NOFIRST
* << Fim da inclusão
ENDFORM.
FORM load_frvl.
v_fretc = /pws/zycie093-prepaid + /pws/zycie093-collect -
/pws/zycie093-ternacion.
s_frvr_d2 = s_frvr = v_fretc * /pws/zycie085-ukursfre.
ENDFORM.
FORM load_sgvl.
s_stvr_d2 = s_stvr = /pws/zycie085-vlseg * /pws/zycie085-ukursseg.
ENDFORM.
FORM texto_dominio USING p_dominio
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F03
...
codigo EQ itab_zycit020-codigo AND
regio EQ space AND
land1 EQ t001-land1.
ENDIF.
ENDIF.
IF sy-subrc NE 0.
SELECT SINGLE land1 FROM t001 INTO t001-land1
WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit019
INTO TABLE itab_zycit019
* >> Início da exclusão: FORM FILL_DESP
WHERE land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESP
WHERE land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit020[] IS INITIAL.
SELECT SINGLE land1
FROM t001
INTO t001-land1
WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit039 INTO TABLE itab_zycit039
FOR ALL ENTRIES IN itab_zycit020
WHERE codigo = itab_zycit020-codigo
* >> Início da exclusão: FORM FILL_DESP
AND land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESP
AND land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF itab_zycit049[] IS INITIAL.
LOOP AT itab_zycit019.
READ TABLE itab_zycit049 WITH KEY
tpdesp = itab_zycit019-tpdesp.
v_sub = sy-subrc.
v_idx = sy-tabix.
CLEAR: itab_zycit049.
READ TABLE itab_zycit020 WITH KEY
codigo = itab_zycit019-codigo.
...
...
ENDIF.
DELETE itab_zycit049 WHERE tpdesp = '001'.
DELETE itab_zycit049 WHERE tpdesp = '002'.
DELETE itab_zycit049 WHERE tpdesp = '003'.
ENDFORM.
FORM load_instdesp.
CLEAR: s_iddes.
SELECT SINGLE descricao FROM /pws/zycit166 INTO s_iddes WHERE
codinst = /pws/zycie086-tipo.
ENDFORM.
* >> Início da exclusão: FORM FILL_BDC
FORM fill_bdc USING value(par1) value(par2) value(par3).
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_BDC
FORM fill_bdc USING par1 par2 par3.
* << Fim da inclusão
CLEAR itab_bdc.
IF par1 IS INITIAL.
itab_bdc-fnam = par2.
itab_bdc-fval = par3.
ELSE.
itab_bdc-program = par2.
itab_bdc-dynpro = par3.
itab_bdc-dynbegin = 'X'.
ENDIF.
APPEND itab_bdc.
...
...
REFRESH: itab_bdc.
PERFORM fill_bdc USING: 'X' '/PWS/SAPMZYCI003' '0002',
' ' 'BDC_CURSOR' '/PWS/ZYCIE006-NRFAT',
' ' 'BDC_OKCODE' '=EXEC',
' ' '/PWS/ZYCIE006-NRFAT' p_nrfat,
'X' '/PWS/SAPMZYCI003' '0003',
' ' 'BDC_CURSOR' '/PWS/ZYCIE006-NRSEQ(01)',
' ' 'BDC_OKCODE' '=SELE'.
CALL TRANSACTION '/PWS/ZYCI003_E' USING itab_bdc
MODE 'E'
* >> Início da exclusão: FORM CALL_FATURA
UPDATE 'S'.
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_FATURA
UPDATE 'S'. "#EC CI_CALLTA
* << Fim da inclusão
ENDFORM.
FORM clean_banco.
CLEAR: itab_zycit095, s_pgnom, s_pgbks, s_pgbkl, s_pgbkn, s_pgage,
s_pgcc, s_pgban, /pws/zycie095a-lifnr.
REFRESH: itab_zycit095.
ENDFORM.
FORM fill_entrega.
CLEAR: s_ekadd, s_ekaed, wa_adrc.
SELECT SINGLE adrnr aedat FROM ekpo INTO (s_ekadd , s_ekaed) WHERE
ebeln = itab_it-ebeln AND
...
...
SELECT SINGLE * FROM adrc INTO wa_adrc WHERE
addrnumber = s_ekadd.
IF sy-subrc EQ 0.
CONCATENATE wa_adrc-street '-' wa_adrc-house_num1 '-'
wa_adrc-city1 '-' wa_adrc-region
INTO itab_it-entrega SEPARATED BY space.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM COMM_SELECT
FORM comm_select USING value(p_mark).
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_SELECT
FORM comm_select USING p_mark.
* << Fim da inclusão
LOOP AT itab_it.
itab_it-mark = p_mark.
MODIFY itab_it TRANSPORTING mark.
ENDLOOP.
ENDFORM.
FORM comm_send.
IF /pws/zycie085-nana IS INITIAL AND
/pws/zycie085-dtreg IS INITIAL.
IF /pws/zycie085-dtuserc IS INITIAL.
MESSAGE i015 WITH text-046.
...
...
IF v_dele IS INITIAL.
PERFORM data_dele.
ELSE.
MESSAGE i015 WITH text-212.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM COMM_RELA
FORM comm_rela USING value(p_report).
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_RELA
FORM comm_rela USING p_report.
* << Fim da inclusão
PERFORM verify_changes.
IF v_changed EQ '1'.
PERFORM save_data.
ENDIF.
CASE p_report.
WHEN 'A'.
SUBMIT /pws/zycir033 WITH pa_nrseq = /pws/zycie085-nrseqdi AND
* >> Início da exclusão: FORM COMM_RELA
RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_RELA
RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
WHEN 'B'.
SUBMIT /pws/zycir030 WITH pa_nrseq = /pws/zycie085-nrseqdi AND
* >> Início da exclusão: FORM COMM_RELA
RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_RELA
RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ENDCASE.
ENDFORM.
...
...
REFRESH: itab_itc.
MOVE: itab_it TO wa_itb.
LOOP AT itab_it WHERE seq NE v_ip.
itab_itc-nrseq = itab_it-nrseq.
itab_itc-ebeln = itab_it-ebeln.
itab_itc-ebelp = itab_it-ebelp.
APPEND itab_itc.
ENDLOOP.
MOVE: wa_itb TO itab_it.
ENDFORM.
* >> Início da exclusão: FORM FILL_MARK
FORM fill_mark USING value(p_mark).
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_MARK
FORM fill_mark USING p_mark.
* << Fim da inclusão
LOOP AT itab_itc.
itab_itc-mark = p_mark.
MODIFY itab_itc TRANSPORTING mark.
ENDLOOP.
ENDFORM.
FORM verify_inco CHANGING p_inco.
CLEAR: p_inco.
IF ( s_inco1 = 'EXW' AND wa_zycit1223-exw = 'X' ) OR
( s_inco1 = 'FCA' AND wa_zycit1223-fca = 'X' ) OR
( s_inco1 = 'FOB' AND wa_zycit1223-fob = 'X' ) OR
...
...
itab_zycit086-instrucao = itab_zycit006a-nrfat.
APPEND itab_zycit086.
ENDLOOP.
ENDFORM.
FORM call_li USING p_li.
SET PARAMETER ID '/PWS/ZYCIP078' FIELD p_li.
IF v_acto EQ 'A' AND /pws/zycie085-dtreg IS INITIAL.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD '/PWS/ZYCI020_A'.
IF sy-subrc EQ 0.
CALL TRANSACTION '/PWS/ZYCI020_A' AND
* >> Início da exclusão: FORM CALL_LI
SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_LI
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e095(/pws/zycim) WITH '/PWS/ZYCI020_A'.
ENDIF.
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD '/PWS/ZYCI020_E'.
IF sy-subrc EQ 0.
CALL TRANSACTION '/PWS/ZYCI020_E' AND
* >> Início da exclusão: FORM CALL_LI
SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_LI
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e095(/pws/zycim) WITH '/PWS/ZYCI020_E'.
ENDIF.
ENDIF.
ENDFORM.
FORM comm_repl.
IF NOT s_ometv IS INITIAL OR
NOT s_oregt IS INITIAL OR
NOT s_oregp IS INITIAL OR
NOT s_ofund IS INITIAL OR
...
...
IF sy-tabix = 1.
CONTINUE.
ELSE.
rtexti-tdformat = '='.
MODIFY rtexti INDEX sy-tabix.
ENDIF.
ENDLOOP.
ENDFORM.
FORM verifica_li.
SELECT * INTO TABLE itab_gforn
* >> Início da exclusão: FORM VERIFICA_LI
FROM /pws/zycit235.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_LI
FROM /pws/zycit235. "#EC CI_NOWHERE
* << Fim da inclusão
IF NOT itab_gforn[] IS INITIAL.
SELECT lifnr ktokk INTO TABLE itab_lfa1
FROM lfa1
FOR ALL ENTRIES IN itab_gforn
* >> Início da exclusão: FORM VERIFICA_LI
WHERE ktokk EQ itab_gforn-ktokk.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_LI
WHERE ktokk EQ itab_gforn-ktokk. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
SELECT * INTO TABLE itab_gped
* >> Início da exclusão: FORM VERIFICA_LI
FROM /pws/zycit236.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_LI
FROM /pws/zycit236. "#EC CI_NOWHERE
* << Fim da inclusão
IF NOT itab_gped[] IS INITIAL.
SELECT ebeln bsart
INTO TABLE itab_ekko
FROM ekko
FOR ALL ENTRIES IN itab_gped
* >> Início da exclusão: FORM VERIFICA_LI
WHERE bsart = itab_gped-bsart.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_LI
WHERE bsart = itab_gped-bsart. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
IF NOT itab_ekpo[] IS INITIAL.
SELECT * FROM /pws/zycit234
INTO TABLE itab_zycit234
FOR ALL ENTRIES IN itab_ekpo
WHERE matnr EQ itab_ekpo-matnr.
ENDIF.
IF NOT itab_ekpo[] IS INITIAL.
SELECT steuc /pws/obrigli FROM t604f
INTO TABLE itab_t604f
FOR ALL ENTRIES IN itab_ekpo
* >> Início da exclusão: FORM VERIFICA_LI
WHERE steuc EQ itab_ekpo-j_1bnbm .
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_LI
WHERE steuc EQ itab_ekpo-j_1bnbm . "#EC CI_SGLSELECT
* << Fim da inclusão
ENDIF.
IF NOT itab_ekpo[] IS INITIAL.
SELECT /pws/zycit079~nrseqli /pws/zycit079~ebeln /pws/zycit079~ebelp
/pws/zycit078~steuc1 /pws/zycit078~dtdef /pws/zycit078~dtvencto
/pws/zycit078~nrseqdi
/pws/zycit079~menge
FROM ( /pws/zycit078 INNER JOIN /pws/zycit079
ON /pws/zycit078~nrseqli = /pws/zycit079~nrseqli )
INTO TABLE itab_li
FOR ALL ENTRIES IN itab_ekpo
...
...
MOVE 1 TO itab_it-codregtriipi.
ENDIF.
ENDFORM.
FORM relatorio.
SELECT * FROM /pws/zycet079 INTO TABLE itab_report_cliente
WHERE codmod EQ 'D'
AND func EQ 'DSI'.
READ TABLE itab_report_cliente.
IF itab_report_cliente-transacao IS INITIAL.
SUBMIT /pws/zycir030
* >> Início da exclusão: FORM RELATORIO
WITH pa_nrseq = /pws/zycie085-nrseqdi AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM RELATORIO
WITH pa_nrseq = /pws/zycie085-nrseqdi AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ELSE.
SUBMIT (itab_report_cliente-transacao)
* >> Início da exclusão: FORM RELATORIO
WITH pa_nrseq = /pws/zycie085-nrseqdi AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM RELATORIO
WITH pa_nrseq = /pws/zycie085-nrseqdi AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM comm_adm.
READ TABLE itab_zycit001 WITH KEY regime = '02'.
IF sy-subrc = 0.
SELECT * FROM /pws/zycit269 INTO TABLE itab_zycit269
* >> Início da exclusão: FORM COMM_ADM
WHERE nrseqdi = /pws/zycie085-nrseqdi.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_ADM
WHERE nrseqdi = /pws/zycie085-nrseqdi. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc NE 0.
REFRESH itab_zycit269.
CLEAR itab_zycit269.
LOOP AT itab_zycit001.
LOOP AT itab_zycit003.
itab_zycit269-nrseqdi = /pws/zycie085-nrseqdi.
itab_zycit269-nrseq = itab_zycit003-nrseq.
itab_zycit269-qtd_iten = itab_zycit269-qtd_iten +
itab_zycit003-qtd_iten.
itab_zycit269-saldo = itab_zycit269-saldo +
...
...
name = 3
object = 4
OTHERS = 5.
ENDIF.
ENDLOOP.
ENDFORM.
FORM load_um USING p_meins
CHANGING p_desc.
CLEAR: p_desc.
SELECT SINGLE descr FROM /pws/zyglt204 INTO p_desc
* >> Início da exclusão: FORM LOAD_UM
WHERE zum = p_meins.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_UM
WHERE zum = p_meins. "#EC CI_NOFIELD
* << Fim da inclusão
ENDFORM.
FORM verify_hist.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
WHERE nrseqdi = wa_zycit136-nrseq.
IF NOT itab_zycit100[] IS INITIAL.
SELECT * FROM /pws/zycit085 INTO TABLE itab_zycit085a
FOR ALL ENTRIES IN itab_zycit100
WHERE nrseqdi = itab_zycit100-nrseqdi.
SELECT * FROM /pws/zycit001 INTO TABLE itab_zycit001
FOR ALL ENTRIES IN itab_zycit100
...
...
s_fbvr_s_d = /pws/zycie085-vlfob * /pws/zycie085-ukursfob / v_usd.
ENDIF.
v_tcfr = s_fbvr_s_d.
ENDFORM.
FORM reclassificacao_ia.
CLEAR: itab_matuse_aux, itab_matuse_aux2, itab_bsis, itab_bsis_aux,
itab_di.
REFRESH: itab_matuse_aux, itab_matuse_aux2, itab_bsis, itab_bsis_aux,
itab_di.
SELECT SINGLE * FROM /pws/zycit042 INTO /pws/zycit042
* >> Início da exclusão: FORM RECLASSIFICACAO_IA
WHERE nrseq EQ /pws/zycie003-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICACAO_IA
WHERE nrseq EQ /pws/zycie003-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit041 INTO /pws/zycit041
WHERE nrseq EQ /pws/zycit042-nrseqnf AND
( belnr_mr1m NE space OR
mblnr_mb01 NE space OR
belnr_f_51 NE space OR
belnr_f_02 NE space OR
belnrf02fre NE space ).
ENDIF.
IF sy-subrc EQ 0.
...
...
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie001-bukrs.
SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.
CHECK NOT /pws/zycit000-flag_reclass IS INITIAL.
CHECK /pws/zycit000-provseg IS INITIAL.
CHECK /pws/zycit000-provfre IS INITIAL.
CHECK NOT /pws/zycie085-dtreg IS INITIAL AND
NOT /pws/zycie085-nana IS INITIAL.
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit094 INTO TABLE itab_zycit094
FOR ALL ENTRIES IN itab_zycit003
* >> Início da exclusão: FORM RECLASSIFICACAO_IA
WHERE nrseq = itab_zycit003-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICACAO_IA
WHERE nrseq = itab_zycit003-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
READ TABLE itab_zycit094 INDEX 1.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
WHERE nrseqce = itab_zycit094-nrseqce AND
* >> Início da exclusão: FORM RECLASSIFICACAO_IA
eliminado = space.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICACAO_IA
eliminado = space. "#EC CI_NOFIELD
* << Fim da inclusão
REFRESH itab_zycit132. CLEAR itab_zycit132.
LOOP AT itab_zycit006 WHERE belnr_p IS initial AND
tpfatura = '01'.
SELECT * FROM /pws/zycit132 APPENDING TABLE itab_zycit132
WHERE nrseq = itab_zycit006-nrseq AND
eliminado = space.
ENDLOOP.
LOOP AT itab_zycit132.
READ TABLE itab_zycit006 WITH KEY nrseq = itab_zycit132-nrseq.
IF sy-subrc = 0.
...
...
IF sy-subrc EQ 0.
MOVE: itab_zycbt013-descr TO itab_contas-d_sgtxt.
ENDIF.
READ TABLE itab_zycbt013 WITH KEY cpor3 = 'ZUONR'.
IF sy-subrc EQ 0.
MOVE: itab_zycbt013-descr TO itab_contas-d_zuonr.
ENDIF.
APPEND itab_contas.
CLEAR itab_contas.
ENDFORM.
* >> Início da exclusão: FORM VERIFY_NULL_FIELD
FORM verify_null_field USING value(p_field)
value(p_fieldname)
value(p_description).
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_NULL_FIELD
FORM verify_null_field USING p_field
p_fieldname
p_description.
* << Fim da inclusão
IF p_field IS INITIAL.
itab_zycbt034-campo = p_fieldname.
itab_zycbt034-descricao = p_description.
APPEND itab_zycbt034.
ENDIF.
ENDFORM.
FORM modo_batch_input.
SELECT * FROM /pws/zycbt039
* >> Início da exclusão: FORM MODO_BATCH_INPUT
INTO CORRESPONDING FIELDS OF TABLE itab_modo.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
INTO CORRESPONDING FIELDS OF TABLE itab_modo. "#EC CI_NOWHERE
* << Fim da inclusão
SORT itab_modo DESCENDING.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-154
textline2 = text-155
titel = text-156
IMPORTING
answer = v_modo_bi
TABLES
t_spopli = itab_modo
...
...
ENDFORM.
FORM salva_fatura.
DATA: v_belnr_p LIKE /pws/zycie006-belnr_p,
itab_132 LIKE /pws/zycie132 OCCURS 10 WITH HEADER LINE.
LOOP AT itab_zycit006.
MOVE itab_zycit006 TO /pws/zycie006.
FREE: itab_bdc, itab_msg.
REFRESH: itab_bdc, itab_msg.
IF /pws/zycie006 IS INITIAL.
READ TABLE itab_zycit263 INDEX 1.
* >> Início da exclusão: FORM SALVA_FATURA
SELECT SINGLE * FROM /pws/zycit006
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_FATURA
SELECT SINGLE * FROM /pws/zycit006 "#EC CI_NOFIELD
* << Fim da inclusão
INTO /pws/zycie006
WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat.
ENDIF.
IF /pws/zycie006-frpagto EQ 'P' AND /pws/zycie006-belnr_p IS INITIAL.
CLEAR itab_bdc.
itab_bdc-program = '/PWS/SAPMZYCI003'.
itab_bdc-dynpro = '0002'.
itab_bdc-dynbegin = 'X'.
APPEND itab_bdc.
CLEAR itab_bdc.
...
...
CLEAR itab_bdc.
itab_bdc-fnam = 'BDC_OKCODE'.
itab_bdc-fval = '=SAVE'.
APPEND itab_bdc.
IF v_modo IS INITIAL.
v_modo = 'N'.
ENDIF.
CALL TRANSACTION '/PWS/ZYCI003_A' USING itab_bdc
MODE v_modo
UPDATE 'S'
* >> Início da exclusão: FORM SALVA_FATURA
MESSAGES INTO itab_msg.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_FATURA
MESSAGES INTO itab_msg. "#EC CI_CALLTA
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit132
INTO TABLE itab_132
WHERE nrseq EQ /pws/zycie006-nrseq.
IF sy-subrc EQ 0.
LOOP AT itab_132 WHERE belnr_p IS initial.
MESSAGE w015 WITH text-206 text-207.
EXIT.
ENDLOOP.
ELSE.
...
...
COLLECT itab_zycit403t.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM find_nrseqc.
DATA:
v_nfglobal LIKE /pws/zycit041-nfglobal,
v_count(6) TYPE n.
* >> Início da exclusão: FORM FIND_NRSEQC
SELECT MAX( nfglobal ) INTO (v_nfglobal) FROM /pws/zycit041.
* << Fim da exclusão
* >> Início da inclusão: FORM FIND_NRSEQC
SELECT MAX( nfglobal ) INTO (v_nfglobal)
FROM /pws/zycit041. "#EC CI_NOWHERE
* << Fim da inclusão
v_count = v_nfglobal+0(6) + 1.
MOVE v_count TO /pws/zycit041-nfglobal.
ENDFORM.
FORM load_fbvl2.
IF NOT v_usd IS INITIAL.
s_fbvr = ( /pws/zycie085-vlfob * /pws/zycie085-ukursfob ) / v_usd.
ENDIF.
ENDFORM.
FORM load_coll2.
IF NOT v_usd IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059I01
...
IF v_valor = '/PWS/ZYCIE085-NRBL' AND
NOT /pws/zycie085-nrbl IS INITIAL.
v_nrbl = /pws/zycie085-nrbl.
EXPORT v_nrbl TO MEMORY ID rimc2.
IF sy-subrc EQ 0.
IF v_acto EQ 'A' AND /pws/zycie085-dtreg IS INITIAL.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD '/PWS/ZYCI002_A'.
IF sy-subrc EQ 0.
CALL TRANSACTION '/PWS/ZYCI002_A' AND
* >> Início da exclusão: MODULE USER_COMMAND_DRILL_DOWN
SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_DRILL_DOWN
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e095(/pws/zycim) WITH '/PWS/ZYCI002_A'.
ENDIF.
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD '/PWS/ZYCI002_E'.
IF sy-subrc EQ 0.
CALL TRANSACTION '/PWS/ZYCI002_E' AND
* >> Início da exclusão: MODULE USER_COMMAND_DRILL_DOWN
SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_DRILL_DOWN
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e095(/pws/zycim) WITH '/PWS/ZYCI002_E'.
ENDIF.
ENDIF.
PERFORM load_bl.
ENDIF.
ENDIF.
WHEN '0150'.
IF v_valor = '/PWS/ZYCIE003-NRSEQ' AND
NOT v_conteudo IS INITIAL.
IF v_acto = 'A'.
PERFORM save_data.
ENDIF.
SET PARAMETER ID '/PWS/ZYCIP001' FIELD v_conteudo.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD '/PWS/ZYCI001_E'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_DRILL_DOWN
CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_DRILL_DOWN
CALL TRANSACTION '/PWS/ZYCI001_E' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e095(/pws/zycim) WITH '/PWS/ZYCI001_E'.
ENDIF.
PERFORM update_item.
IF itab_it[] NE itab_ita[].
PERFORM calc_itab.
ENDIF.
ELSEIF v_valor EQ '/PWS/ZYCIE003-EBELN'.
v_ebeln = v_conteudo.
SELECT SINGLE ebeln FROM ekko INTO ekko
WHERE ebeln = v_ebeln.
IF sy-subrc EQ 0.
v_ebeln = v_conteudo.
SET PARAMETER ID 'BES' FIELD v_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME23N'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_DRILL_DOWN
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_DRILL_DOWN
CALL TRANSACTION 'ME23N' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME23N'.
ENDIF.
ENDIF.
ENDIF.
WHEN '0450'.
IF ( v_valor = '/PWS/ZYCIE085-BELNR_0' OR
v_valor = '/PWS/ZYCIE085-BELNR_1' OR
v_valor = '/PWS/ZYCIE085-BELNR_2' OR
v_valor = '/PWS/ZYCIE085-BELNR_3' ) AND
NOT v_conteudo IS INITIAL.
SET PARAMETER ID 'BLN' FIELD v_conteudo.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'FB03'.
IF sy-subrc = 0.
* >> Início da exclusão: MODULE USER_COMMAND_DRILL_DOWN
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_DRILL_DOWN
CALL TRANSACTION 'FB03' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'FB03'.
ENDIF.
ELSEIF ( v_valor = '/PWS/ZYCIE085-BELNR_0_F05' OR
v_valor = '/PWS/ZYCIE085-BELNR_1_F05' OR
v_valor = '/PWS/ZYCIE085-BELNR_2_F05' OR
v_valor = '/PWS/ZYCIE085-BELNR_3_F05' )
AND NOT v_conteudo IS INITIAL.
SET PARAMETER ID 'BLN' FIELD v_conteudo.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'FB03'.
IF sy-subrc = 0.
* >> Início da exclusão: MODULE USER_COMMAND_DRILL_DOWN
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_DRILL_DOWN
CALL TRANSACTION 'FB03' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'FB03'.
ENDIF.
ENDIF.
ENDCASE.
ENDCASE.
ENDMODULE.
MODULE load_banc INPUT.
IF /pws/zycie095a-lifnr IS INITIAL.
PERFORM clean_banco.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059OO
DATA: html_control TYPE REF TO cl_gui_html_viewer,
my_container TYPE REF TO cl_gui_custom_container,
fcode LIKE sy-ucomm,
myevent_tab TYPE cntl_simple_events,
myevent TYPE cntl_simple_event,
edurl(2048) ,
alignment TYPE i.
DATA: edframe(255),
edaction(256),
* >> Início da exclusão:
edgetdata(2048),
* << Fim da exclusão
* >> Início da inclusão:
edgetdata(40),
* << Fim da inclusão
edpostdataline(1024),
postdata_tab TYPE cnht_post_data_tab,
edquery_table TYPE cnht_query_table,
v_tam TYPE i.
CLASS cl_myevent_handler DEFINITION.
PUBLIC SECTION.
data: doc_url(80).
METHODS: on_sapevent
FOR EVENT sapevent OF cl_gui_html_viewer
IMPORTING action frame getdata postdata query_table.
...
...
edaction = action.
edframe = frame.
edgetdata = getdata.
postdata_tab = postdata.
IF NOT edgetdata IS INITIAL.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD edgetdata.
IF sy-subrc NE 0.
MESSAGE i122 WITH edgetdata.
ELSE.
* >> Início da exclusão:
CALL TRANSACTION edgetdata.
* << Fim da exclusão
* >> Início da inclusão:
CALL TRANSACTION edgetdata. "#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
ENDIF.
IF NOT edaction IS INITIAL and not edaction = 'WEBRFC'.
CALL METHOD html_control->load_html_document
EXPORTING
document_id = edaction
IMPORTING
assigned_url = doc_url
EXCEPTIONS
OTHERS = 1.
...