CE PLUS - Nota 005602
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 10/01/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:27:56
Descrição da Nota: PADRONIZAÇÃO - CODE INSPECTOR
Sintoma
Padronização - Code Inspector - DSI
Solução
Padronização - Code Inspector - DSI
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05602 Data: 10/01/2008 Hora: 13:37:07
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05602
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00031
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PADRONIZAÇÃO - CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
PADRONIZAÇÃO - CODE INSPECTOR - DSI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI058F01
REPS /PWS/MZYCI058F02
REPS /PWS/MZYCI058F03
REPS /PWS/MZYCI058I01
REPS /PWS/MZYCI058O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F01
...
codigo = itab_zycit019-codigo AND
( baseicms EQ 'X' OR baseii EQ 'X' ) AND
land1 = t001-land1.
ENDIF.
ENDIF.
IF NOT itab_zycit020[] IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit039 INTO TABLE itab_zycit039
FOR ALL ENTRIES IN itab_zycit020 WHERE
codigo = itab_zycit020-codigo AND
* >> Início da exclusão: FORM LOADING_ALL
land1 = t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM LOADING_ALL
land1 = 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.
...
...
AND branch = /pws/zycie085-j_1bbranch.
SELECT SINGLE region FROM adrc INTO v_icms_regio
WHERE addrnumber = j_1bbranch-adrnr.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit062
WHERE regio = v_icms_regio.
ENDIF.
IF itab_zycit031[] IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit031 INTO TABLE itab_zycit031
* >> Início da exclusão: FORM FILL_ITABIT
WHERE land1 = t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABIT
WHERE land1 = 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.
CLEAR itab_zycit100_temp.
REFRESH itab_zycit100_temp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F02
...
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
...
...
CHANGING p_text.
CLEAR p_text.
SELECT SINGLE descricao FROM /pws/zycit167 INTO p_text
WHERE ntimp = p_natureza AND
tipo = p_imposto AND
codreg = p_codreg.
IF sy-subrc NE 0.
SELECT SINGLE descricao FROM /pws/zycit167 INTO p_text
WHERE
tipo = p_imposto AND
* >> Início da exclusão: FORM LOAD_REGT
codreg = p_codreg.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_REGT
codreg = p_codreg. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF sy-subrc NE 0 AND NOT /pws/zycie100a-codregtri IS INITIAL
AND NOT /pws/zycie100a-codregtriipi IS INITIAL.
MESSAGE e015 WITH text-152.
ENDIF.
IF p_imposto = '1'.
READ TABLE itab_zycit107 WITH KEY land1 = /pws/zycie080-landa.
IF sy-subrc EQ 0.
IF NOT itab_zycit107-aladi IS INITIAL.
MESSAGE s015 WITH text-042.
...
...
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.
PERFORM trata_decimais USING /pws/zycie093-waersfre
v_fretc.
s_frvr_d2 = s_frvr = v_fretc * /pws/zycie085-ukursfre.
ENDFORM.
FORM load_sgvl.
s_stvr = /pws/zycie085-vlseg * /pws/zycie085-ukursseg.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F03
...
IF sy-subrc NE 0.
SELECT * FROM /pws/zycit020 INTO TABLE itab_zycit020 WHERE
regio = space AND ( baseicms EQ 'X' OR baseii EQ 'X' ).
ENDIF.
IF NOT itab_zycit020[] IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit019 INTO TABLE itab_zycit019
FOR ALL ENTRIES IN itab_zycit020
WHERE codigo EQ itab_zycit020-codigo AND
regio EQ v_region AND
* >> Início da exclusão: FORM FILL_DESP
land1 = t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESP
land1 = t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF sy-subrc NE 0.
IF NOT itab_zycit020[] IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit019 INTO TABLE itab_zycit019
FOR ALL ENTRIES IN itab_zycit020 WHERE
codigo EQ itab_zycit020-codigo AND
regio = space AND
land1 = t001-land1.
ENDIF.
ENDIF.
IF sy-subrc NE 0.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit019
INTO TABLE itab_zycit019
* >> Início da exclusão: FORM FILL_DESP
WHERE land1 = t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESP
WHERE land1 = t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit020[] IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit039 INTO TABLE itab_zycit039
FOR ALL ENTRIES IN itab_zycit020
WHERE codigo = itab_zycit020-codigo AND
* >> Início da exclusão: FORM FILL_DESP
land1 = t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESP
land1 = 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.
...
...
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-nrdi 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
IF sy-dynnr EQ '0440'.
LOOP AT itab_itc.
itab_itc-mark = p_mark.
MODIFY itab_itc TRANSPORTING mark.
ENDLOOP.
ELSEIF sy-dynnr EQ '0360'.
LOOP AT it_adir.
it_adir-mark = p_mark.
MODIFY it_adir TRANSPORTING mark.
ENDLOOP.
...
...
steuc = /pws/zycie118-steuc AND
atributo = /pws/zycie118-atributo AND
especificacao = /pws/zycie118-especificacao.
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
...
...
itab_zycit114-nrseqdi = /pws/zycie085-nrseqdi.
itab_zycit114-adicao = it_alist-adicao.
itab_zycit114-destaque = local_it_109-codncm.
APPEND itab_zycit114.
ENDLOOP.
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
...
...
itab_it-codregtripiscofi = '1'.
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
...
...
DATA: BEGIN OF itab_zycit006_aux OCCURS 0 .
INCLUDE STRUCTURE /pws/zycit006.
DATA: hkont LIKE bsis-hkont.
DATA: END OF itab_zycit006_aux.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT SINGLE * FROM /pws/zycit031
WHERE codmod = 'D'
AND inco1 = itab_zycit001-inco1
AND land1 EQ t001-land1.
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.
...
...
EXIT.
ENDIF.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie085-bukrs.
SELECT SINGLE * FROM /pws/zycit000 WHERE land1 = t001-land1.
CHECK NOT /pws/zycit000-flag_reclass IS INITIAL.
CHECK NOT /pws/zycie085-dtreg IS INITIAL AND
NOT /pws/zycie085-nrdi 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.
...
...
ENDLOOP.
IF NOT itab_zycit006_aux[] IS INITIAL.
DATA: v_ano TYPE t001b-frye1,
v_gjahr TYPE bsis-gjahr.
READ TABLE itab_zycit006_aux INDEX 1.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = /pws/zycie085-bukrs
v_date = itab_zycit006_aux-dt_belnrp
IMPORTING
* >> Início da exclusão: FORM RECLASSIFICACAO_IA
v_year = v_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICACAO_IA
v_year = v_ano
EXCEPTIONS
VARIANTE_DE_EXERCICIO = 1
DATA_NAO_ENCONTRADA = 2
EMPRESA_NAO_ENCONTRADA = 3
PERIOD_IN_NOT_VALID = 4
PERIOD_NOT_ASSIGNED = 5
VERSION_UNDEFINED = 6
OTHERS = 7.
* << Fim da inclusão
IF sy-subrc EQ 0.
v_gjahr = v_ano.
ELSE.
v_gjahr = itab_zycit006-dtlanc+0(4).
ENDIF.
SELECT hkont dmbtr wrbtr belnr buzei FROM bsis
INTO TABLE itab_bsis
FOR ALL ENTRIES IN itab_zycit006_aux
WHERE bukrs EQ /pws/zycie085-bukrs AND
hkont EQ itab_zycit006_aux-hkont AND
...
...
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
DATA: BEGIN OF itab_zycbt117 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt117.
DATA: END OF itab_zycbt117.
COMMIT WORK.
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 i015 WITH text-206 text-207.
...
...
ENDLOOP.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-225.
ENDIF.
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycbt117
INTO TABLE itab_zycbt117
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln = itab_zycit003-ebeln
AND slpgant > 0
* >> Início da exclusão: FORM SALVA_FATURA
AND status NE 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_FATURA
AND status NE 'E'. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-224.
ENDIF.
ENDIF.
ELSE.
SELECT SINGLE belnr_p FROM /pws/zycit006
INTO v_belnr_p
WHERE nrseq EQ /pws/zycie006-nrseq.
IF v_belnr_p IS INITIAL.
MESSAGE i015 WITH text-206 text-207.
ELSE.
MESSAGE i015 WITH text-225.
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycbt117
INTO TABLE itab_zycbt117
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln = itab_zycit003-ebeln
AND slpgant > 0
* >> Início da exclusão: FORM SALVA_FATURA
AND status NE 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_FATURA
AND status NE 'E'. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-224.
ENDIF.
ENDIF.
ENDIF.
itab_zycit006-belnr_p = v_belnr_p.
MODIFY itab_zycit006.
ENDIF.
ENDIF.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058I01
...
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' OR '0230'.
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 * FROM ekko INTO ekko
WHERE ebeln = v_ebeln.
IF sy-subrc EQ 0.
v_ebeln = v_conteudo.
IF ekko-bstyp = 'L'.
SET PARAMETER ID 'VRT' FIELD v_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME33'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_DRILL_DOWN
CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_DRILL_DOWN
CALL TRANSACTION 'ME33' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME33'.
ENDIF.
ELSE.
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.
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.
CLEAR sy-ucomm.
ENDMODULE.
MODULE load_banc INPUT.
IF /pws/zycie095a-lifnr IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058O01
...
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
MODULE verif_nf OUTPUT.
CLEAR : itab_zycit041, itab_zycit042, v_nf041.
REFRESH: itab_zycit041, itab_zycit042.
READ TABLE itab_zycit001 INDEX 1.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit042 INTO TABLE itab_zycit042
* >> Início da exclusão: MODULE VERIF_NF
WHERE nrseq EQ itab_zycit001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIF_NF
WHERE nrseq EQ itab_zycit001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycit042[] IS INITIAL.
SELECT * FROM /pws/zycit041 INTO TABLE itab_zycit041
FOR ALL ENTRIES IN itab_zycit042
WHERE nrseq EQ itab_zycit042-nrseqnf.
ENDIF.
LOOP AT itab_zycit041.
IF itab_zycit041-cancel EQ 'X'.
DELETE itab_zycit041.
ENDIF.
ENDLOOP.
...