CE PLUS - Nota 005643
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 15/01/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:27:06
Descrição da Nota: PADRONIZAÇÃO - CODE INSPECTOR DI
Sintoma
Padronização - Code Inspector DI
Solução
Padronização - Code Inspector DI
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05643 Data: 15/01/2008 Hora: 14:13:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05643
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 DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
PADRONIZAÇÃO - CODE INSPECTOR DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCI070
MERG F6DK956728 20080115 112200 PWSCI
MERG F6DK956740 20080115 110146 PWSCI
RELE F6DK956757 20080115 140905 PWSCI
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F02
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI023OO
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
SELECT MAX( nrseqdi ) INTO (v_nrseqc) FROM /pws/zycit085
WHERE nrseqdi LIKE v_ano.
v_count = v_nrseqc+0(7) + 1.
CONCATENATE v_count+0(7) 'I' sy-datlo+2(2) INTO /pws/zycie085-nrseqdi.
ENDFORM.
FORM save_data.
IF v_required EQ '1'.
CHECK NOT /pws/zycie085-dttax IS INITIAL.
ENDIF.
IF NOT /pws/zycie085-dttax IS INITIAL AND NOT v_nottax IS INITIAL.
* >> Início da exclusão: FORM SAVE_DATA
MESSAGE i039 WITH text-231 text-232.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_DATA
MESSAGE i013 WITH text-231 text-232.
* << Fim da inclusão
EXIT.
ENDIF.
PERFORM verifica_nrdi.
IF v_dit = 'N'.
PERFORM: taxa_converte USING /pws/zycie085-waersfob
/pws/zycie085-dttax
CHANGING /pws/zycie085-ukursfob.
PERFORM: taxa_converte USING /pws/zycie085-waersfre
/pws/zycie085-dttax
CHANGING /pws/zycie085-ukursfre.
...
...
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 = t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM LOADING_ALL
AND 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.
...
...
ebeln = itab_zycit003-ebeln AND
ebelp = itab_zycit003-ebelp AND
eliminado = space.
SELECT * FROM /pws/zycit078 INTO TABLE itab_zycit078
FOR ALL ENTRIES IN itab_zycit003 WHERE
nrseqli = itab_zycit003-nrseqli.
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.
SELECT * FROM /pws/zycit374
INTO TABLE itab_zycit374
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq = itab_zycit003-nrseq.
ENDIF.
...
...
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 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/MZYCI023F02
...
WHERE nrseqce = /pws/zycie093-nrseqce.
IF NOT /pws/zycie001-nrseq IS INITIAL.
SELECT SINGLE * FROM /pws/zycit001 INTO wa_zycit001
WHERE nrseq = /pws/zycie001-nrseq.
ELSE.
SELECT SINGLE * FROM /pws/zycit001 INTO wa_zycit001
WHERE nrseq = wa_zycit094-nrseq.
ENDIF.
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
...
...
FORM load_regt USING p_codreg p_natureza p_imposto
CHANGING p_text.
CLEAR p_text.
IF v_region IS INITIAL.
PERFORM find_region.
ENDIF.
SELECT SINGLE descricao FROM /pws/zycit167 INTO p_text
WHERE
tipo = p_imposto AND
codreg = p_codreg AND
* >> Início da exclusão: FORM LOAD_REGT
regio = v_region .
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_REGT
regio = v_region . "#EC CI_NOFIRST
* << Fim da inclusão
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
IF sy-subrc NE 0 AND NOT /pws/zycie100a-codregtri IS INITIAL
AND NOT /pws/zycie100a-codregtriipi IS INITIAL.
v_msg = 'X'.
MESSAGE i015 WITH text-152.
EXIT.
ENDIF.
ENDIF.
IF p_imposto = '1'.
READ TABLE itab_zycit107 WITH KEY land1 = /pws/zycie080-landa.
IF sy-subrc EQ 0.
...
...
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.
IF v_dit = 'N'.
v_fretc = /pws/zycie093-prepaid + /pws/zycie093-collect -
/pws/zycie093-ternacion.
ELSE.
v_fretc = /pws/zycie093-prepaid + /pws/zycie093-collect -
/pws/zycie093-ternacion.
ENDIF.
s_frvr_d2 = s_frvr = v_fretc * /pws/zycie085-ukursfre.
...
...
add_stdinf = 'X'
IMPORTING
result = s_icon.
ELSE.
CLEAR: s_icon.
ENDIF.
ENDFORM.
FORM verifica_bl CHANGING p_bl1.
CLEAR p_bl1.
SELECT SINGLE * FROM /pws/zycit085
* >> Início da exclusão: FORM VERIFICA_BL
WHERE nrbl EQ /pws/zycie085-nrbl.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_BL
WHERE nrbl EQ /pws/zycie085-nrbl. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
p_bl1 = '1'.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
DATA: itab_matuse_aux3 LIKE itab_matuse_aux OCCURS 0 WITH HEADER LINE.
MOVE itab_matuse_aux[] TO itab_matuse_aux3[].
SORT itab_matuse_aux3 BY hkont.
DELETE ADJACENT DUPLICATES FROM itab_matuse_aux3 COMPARING hkont.
LOOP AT itab_zycit006.
IF NOT itab_matuse_aux3[] IS INITIAL.
LOOP AT itab_matuse_aux3.
UNPACK itab_zycit006-belnr_p TO itab_zycit006-belnr_p.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = /pws/zycie085-bukrs
v_date = itab_zycit006-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_aux1
WHERE bukrs EQ /pws/zycie085-bukrs AND
hkont EQ itab_matuse_aux3-hkont AND
...
...
IF sy-subrc = 0.
itab_zycbt036-mandt = sy-mandt.
itab_zycbt036-tcode = 'F-51'.
itab_zycbt036-tabela = '/PWS/ZYCIT044'.
itab_zycbt036-cpochv = /pws/zycie085-nrseqdi.
itab_zycbt036-dtdocto = wa_zycit006-dtlanc.
UNPACK wa_bsis-belnr TO wa_bsis-belnr.
itab_zycbt036-belnr = wa_bsis-belnr.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = /pws/zycie085-bukrs
v_date = wa_zycit006-dt_belnrp
IMPORTING
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
v_year = v_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
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 = wa_zycit006+0(4).
ENDIF.
SELECT SINGLE awkey FROM bkpf INTO itab_zycbt036-awkey
WHERE belnr = wa_bsis-belnr
AND bukrs = wa_zycit006-bukrs
AND gjahr = v_gjahr.
APPEND itab_zycbt036.
...
...
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_nrdi.
IF NOT t001-land1 EQ 'CL' AND NOT t001-land1 EQ 'AR'.
v_tam_nrdi = strlen( /pws/zycie085-nrdi ).
* >> Início da exclusão: FORM VERIFICA_NRDI
IF v_tam_nrdi > 10.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRDI
IF v_tam_nrdi > 10. "#EC PORTABLE
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zyglt217
WHERE arbgb EQ '/PWS/ZYCIM'
AND msgnr EQ '127'.
IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.
MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '127'.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM existe_li.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
ENDIF.
ENDLOOP.
ENDFORM.
FORM seleciona_fund_legal USING p_campo
p_campo1
CHANGING p_texto p_campo2.
DATA: v_descr LIKE /pws/zycit177-descr.
SELECT SINGLE descr
FROM /pws/zycit177 INTO v_descr
WHERE codigo = p_campo
* >> Início da exclusão: FORM SELECIONA_FUND_LEGAL
AND regime = p_campo1.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_FUND_LEGAL
AND regime = p_campo1. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
p_texto = v_descr.
ELSE.
CLEAR: v_descr, p_campo2.
MESSAGE e015 WITH text-238.
ENDIF.
ENDFORM.
FORM load_piscofins.
READ TABLE itab_it WITH KEY adicao = /pws/zycie116-adicao_sisc.
wa_it-advalicms = itab_it-advalicms.
...
...
itab_it-cof_devido = a_cofdevi.
itab_it-cof_recolher = t_cofins.
ENDFORM.
FORM seleciona_fund_legal_pc USING p_campo
p_campo1
CHANGING p_texto p_campo2.
DATA: v_descr LIKE /pws/zycit471-descr.
SELECT SINGLE descr
FROM /pws/zycit471 INTO v_descr
WHERE codigo = p_campo
* >> Início da exclusão: FORM SELECIONA_FUND_LEGAL_PC
AND regime = p_campo1.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_FUND_LEGAL_PC
AND regime = p_campo1. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
p_texto = v_descr.
ELSE.
CLEAR: v_descr, p_campo2.
MESSAGE e015 WITH text-238.
ENDIF.
ENDFORM.
FORM load_especdes_aux.
CLEAR: a_espde.
SELECT SINGLE descricao FROM /pws/zycit195 INTO a_espde WHERE
...
...
/pws/zycie085-courier NE 'S'.
screen-input = '0'.
CLEAR: /pws/zycie085-cnpjdecl.
ELSEIF ( screen-group2 EQ 'MM' AND
/pws/zycie085-mdadicao EQ 'S' ) OR
( screen-name EQ '/PWS/ZYCIE085-SETOR' AND
/pws/zycie085-recalf IS INITIAL ).
screen-input = '0'.
ELSEIF screen-name EQ '/PWS/ZYCIE085-URFDESP'.
SELECT * FROM /pws/zyglt369
* >> Início da exclusão: FORM SET_SCREEN_0131
INTO TABLE itab_zyglt369.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0131
INTO TABLE itab_zyglt369. "#EC CI_NOWHERE
* << Fim da inclusão
IF sy-subrc EQ 0.
screen-required = '1'.
ELSE.
screen-required = '0'.
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-group3 EQ 'FD'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
WHEN 'BC'.
CALL METHOD html_control->go_back.
WHEN 'CLOSE'.
PERFORM set_the_flag.
WHEN 'AVAN'.
CALL METHOD html_control->go_forward.
WHEN 'DRAFT'.
v_seqdi = /pws/zycie085-nrseqdi.
SET PARAMETER ID '/PWS/ZYCIP085' FIELD v_seqdi.
EXPORT v_seqdi TO MEMORY ID 'V_REL'.
* >> Início da exclusão: MODULE USER_COMMAND_0050
SUBMIT /pws/zycir331 AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0050
SUBMIT /pws/zycir331 AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
WHEN 'BACK'.
v_comm = sy-ucomm.
IF sy-tcode EQ '/PWS/ZYCI023_C' OR
sy-tcode EQ '/PWS/ZYCI023_A'.
IF sy-tcode EQ '/PWS/ZYCI023_C'.
IF /pws/zycie085-moddesps IS INITIAL OR
v_required EQ '0'.
PERFORM delete_text.
LEAVE PROGRAM.
ENDIF.
...
...
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.
SHIFT v_ebeln RIGHT DELETING TRAILING space.
OVERLAY v_ebeln WITH v_zeros.
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.
SET PARAMETER ID 'BUK' FIELD /pws/zycie085-bukrs.
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.
SET PARAMETER ID 'BUK' FIELD /pws/zycie085-bukrs.
...
...
ELSEIF v_valor = '/PWS/ZYCIE085-BELNR_1_F05'.
SET PARAMETER ID 'GJR' FIELD /pws/zycie085-budat_1(04).
ELSEIF v_valor = '/PWS/ZYCIE085-BELNR_2_F05'.
SET PARAMETER ID 'GJR' FIELD /pws/zycie085-budat_2(04).
ELSEIF v_valor = '/PWS/ZYCIE085-BELNR_3_F05'.
SET PARAMETER ID 'GJR' FIELD /pws/zycie085-budat_3(04).
ENDIF.
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/MZYCI023O01
...
ENDIF.
ENDIF.
ENDMODULE.
MODULE verif_nf OUTPUT.
DATA: itab_zycit042 LIKE /pws/zycit042 OCCURS 0 WITH HEADER LINE.
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023OO
...
CLEAR edaction.
CLEAR edframe.
CLEAR edgetdata.
CLEAR edpostdataline.
edaction = action.
edframe = frame.
edgetdata = getdata.
postdata_tab = postdata.
IF NOT edgetdata IS INITIAL.
AUTHORITY-CHECK OBJECT 'S_TCODE'
* >> Início da exclusão:
ID 'TCD' FIELD edgetdata.
* << Fim da exclusão
* >> Início da inclusão:
ID 'TCD' FIELD edgetdata(40).
* << Fim da inclusão
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.
...