CE PLUS - Nota 005613
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 11/01/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:29:10
Descrição da Nota: PADRONIZAÇÃO CODE INSPECTOR
Sintoma
Padronização Code Inspector LI
Solução
Padronização Code Inspector LI
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05613 Data: 11/01/2008 Hora: 11:47:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05613
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00030
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PADRONIZAÇÃO CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
PADRONIZAÇÃO CODE INSPECTOR LI
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI020 0950
RELE F6DK956657 20080111 114054 PWSCI
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020O01
REPT /PWS/SAPMZYCI020
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0950
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
AND ebelp = itab_itens-ebelp.
SELECT a~ebeln a~ebelp
c~gsber
INTO TABLE itab_divisao2
FROM ( ( ekpo AS a INNER JOIN mara AS b
ON a~matnr = b~matnr )
INNER JOIN t134h AS c ON b~spart = c~spart )
FOR ALL ENTRIES IN itab_itens
WHERE a~ebeln = itab_itens-ebeln
AND a~ebelp = itab_itens-ebelp
* >> Início da exclusão: FORM SELECIONAR_ITENS
AND c~bwkey = /pws/zycie001-werks.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS
AND c~bwkey = /pws/zycie001-werks. "#EC CI_BUFFJOIN
* << Fim da inclusão
SELECT a~ebeln a~ebelp
b~mtart
INTO TABLE itab_tpmat
FROM ( ekpo AS a INNER JOIN mara AS b
ON a~matnr = b~matnr )
FOR ALL ENTRIES IN itab_itens
WHERE a~ebeln = itab_itens-ebeln
AND a~ebelp = itab_itens-ebelp.
ENDIF.
IF NOT itab_itens[] IS INITIAL.
...
...
IF /pws/zycie078-tpli EQ 'S'.
IF /pws/zycie078-classific EQ '2'.
CLEAR: /pws/zycie078-steuc1,
wa_zycit078-steuc1.
ENDIF.
ENDIF.
IF /pws/zycie078-zum IS INITIAL.
SELECT SINGLE /pws/zum
FROM t604f
INTO (/pws/zycie078-zum)
* >> Início da exclusão: FORM SAVE
WHERE steuc EQ /pws/zycie078-steuc1.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE
WHERE steuc EQ /pws/zycie078-steuc1. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF v_tcode EQ '/PWS/ZYCI020_C' OR
v_tcode EQ '/PWS/ZYCI020_P' OR
v_tcode EQ '/PWS/ZYCI020_I'.
PERFORM verifica_nrseq_gravado.
ENDIF.
SET PARAMETER ID '/PWS/ZYCIP078' FIELD /pws/zycie078-nrseqli.
IF v_tcode EQ '/PWS/ZYCI020_A' OR
v_tcode EQ '/PWS/ZYCI020_N' OR
v_tcode EQ '/PWS/ZYCI020_G'.
...
...
salva_anu ,
salva_anu2 ,
salva_v_esp ,
save_txt ,
save_txt_2 ,
save_pexpam ,
save_drawback,
atual_item .
IF okcode = 'CANCEL'.
UPDATE /pws/zycit079 SET numli = space
* >> Início da exclusão: FORM SAVE
WHERE numli = /pws/zycie078-nrseqli.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE
WHERE numli = /pws/zycie078-nrseqli. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
MODIFY /pws/zycit085 FROM /pws/zycie085.
MESSAGE s017 WITH /pws/zycie078-nrseqli.
COMMIT WORK.
CASE v_tcode.
WHEN '/PWS/ZYCI020_C'.
v_tcode = '/PWS/ZYCI020_A'.
WHEN '/PWS/ZYCI020_P'.
v_tcode = '/PWS/ZYCI020_N'.
WHEN '/PWS/ZYCI020_I'.
...
...
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc EQ 0.
CALL FUNCTION 'DELETE_TEXT'
EXPORTING
id = 'ZTLI'
language = sy-langu
name = v_txtki
* >> Início da exclusão: FORM SALVA_ITEM
object = '/PWS/ITLI'.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_ITEM
object = '/PWS/ITLI'
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2.
* << Fim da inclusão
IF sy-subrc EQ 0.
COMMIT WORK.
ENDIF.
ENDIF.
ENDLOOP.
IF /pws/zycie078-status EQ 'CAN' OR
/pws/zycie078-status EQ 'INA'.
CLEAR /pws/zycit092-slqtde.
LOOP AT it_zycit079.
/pws/zycit092-slqtde = it_zycit079-slqtde
...
...
IF sy-subrc = 0.
v_esp = rtexti-tdline.
ELSE.
CLEAR: v_esp.
ENDIF.
ELSE.
CLEAR wa_thead.
ENDIF.
ENDFORM.
FORM preenche_thead USING p_wa_thead LIKE wa_thead
* >> Início da exclusão: FORM PREENCHE_THEAD
value(p_tdid).
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_THEAD
p_tdid.
* << Fim da inclusão
p_wa_thead-tdobject = '/PWS/ITLI'.
p_wa_thead-tdname = v_txtki.
p_wa_thead-tdid = 'ZTLI'.
p_wa_thead-tdspras = sy-langu.
p_wa_thead-tdlinesize = 132.
ENDFORM.
FORM salva_v_esp.
PERFORM preenche_thead USING wa_thead 'CE01'.
IF NOT it_zycit079[] IS INITIAL.
IF NOT rtexti[] IS INITIAL.
...
...
kopos = itab_komv-kopos.
IF sy-subrc EQ 0.
IF itab_komp-loevm_ko EQ 'X'.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie078-bukrs.
SELECT SINGLE * FROM /pws/zycit031
* >> Início da exclusão: FORM VERIFICA_ITENS
WHERE inco1 = /pws/zycie078-inco1
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ITENS
WHERE codmod = 'D'
AND inco1 = /pws/zycie078-inco1
* << Fim da inclusão
AND land1 EQ t001-land1.
wa_zycit078-inco1 = /pws/zycie078-inco1.
SELECT * FROM /pws/zycit030
INTO TABLE itab_zycit030
WHERE codigo = /pws/zycit031-inco1_ci
AND land1 = t001-land1
AND bukrs = /pws/zycie078-bukrs.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI020'
'PLI002'.
...
...
ENDIF.
ENDIF.
ENDIF.
IF NOT itab_itens_aux[] IS INITIAL.
SELECT * FROM ekpo INTO TABLE it_ekpo
FOR ALL ENTRIES IN itab_itens_aux
WHERE ebeln = itab_itens_aux-ebeln.
ENDIF.
SELECT * FROM /pws/zycit287
INTO TABLE it_zycit287
* >> Início da exclusão: FORM VERIFICA_ITENS
WHERE codigo = /pws/zycit031-inco1_ci.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ITENS
WHERE codmod = 'D'
AND codigo = /pws/zycit031-inco1_ci.
* << Fim da inclusão
LOOP AT it_zycit079.
CLEAR itab_itens_aux.
READ TABLE itab_itens_aux WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
IF sy-subrc EQ 0.
PERFORM load_pttext USING itab_itens_aux-matnr
itab_itens_aux-spras.
MOVE: itab_itens_aux-txz01 TO it_zycit079-descr,
itab_itens_aux-netpr TO it_zycit079-netpr,
itab_itens_aux-bednr TO it_zycit079-bednr,
...
...
INTO (v_descr4)
WHERE land1 EQ /pws/zycie078-lando
AND spras EQ sy-langu.
ENDIF.
ENDFORM.
FORM load_ncmdesc.
IF NOT /pws/zycie078-steuc1 IS INITIAL.
SELECT SINGLE text1
FROM t604n
INTO /pws/zycit181-descricao
* >> Início da exclusão: FORM LOAD_NCMDESC
WHERE steuc EQ /pws/zycie078-steuc1.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_NCMDESC
WHERE steuc EQ /pws/zycie078-steuc1. "#EC CI_GENBUFF
* << Fim da inclusão
SELECT SINGLE /pws/zum
FROM t604f
INTO /pws/zycie078-zum
* >> Início da exclusão: FORM LOAD_NCMDESC
WHERE steuc EQ /pws/zycie078-steuc1.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_NCMDESC
WHERE steuc EQ /pws/zycie078-steuc1. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
...
...
INTO (v_desctipimp)
WHERE domname EQ '/PWS/ZYCID056'
AND ddlanguage EQ sy-langu
AND domvalue_l EQ /pws/zycie078-tpimp.
ENDFORM.
FORM load_regtri.
IF NOT /pws/zycie078-codregtri IS INITIAL.
SELECT SINGLE descricao
FROM /pws/zycit167
INTO v_descregtri
* >> Início da exclusão: FORM LOAD_REGTRI
WHERE codreg = /pws/zycie078-codregtri.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_REGTRI
WHERE codreg = /pws/zycie078-codregtri. "#EC CI_NOFIRST
* << Fim da inclusão
ELSE.
CLEAR v_descregtri.
ENDIF.
ENDFORM.
FORM load_funleg.
SELECT * FROM /pws/zycit177
INTO TABLE it_zycit177
WHERE origem EQ /pws/zycie078-tpli
AND tpni EQ /pws/zycie078-tpni
AND regime EQ /pws/zycie078-codregtri.
...
...
IF v_lin_177 EQ 1.
READ TABLE it_zycit177 INDEX 1.
/pws/zycie078-codfunleg = it_zycit177-codigo.
ENDIF.
IF NOT /pws/zycie078-codfunleg IS INITIAL.
SELECT SINGLE descr
FROM /pws/zycit177
INTO v_descfunleg
WHERE regime = /pws/zycie078-codregtri
AND codigo = /pws/zycie078-codfunleg
* >> Início da exclusão: FORM LOAD_FUNLEG
AND tpni = /pws/zycie078-tpni.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_FUNLEG
AND tpni = /pws/zycie078-tpni. "#EC CI_NOFIRST
* << Fim da inclusão
ELSE.
CLEAR v_descfunleg.
ENDIF.
ENDFORM.
FORM load_motivo.
IF NOT /pws/zycie078-motivo IS INITIAL.
SELECT SINGLE descricao
FROM /pws/zycit141
INTO v_descmotivo
WHERE codfunleg = /pws/zycie078-codfunleg
...
...
AND ddlanguage EQ sy-langu.
ELSE.
MOVE space TO v_descr7.
ENDIF.
ENDFORM.
FORM load_descregfun.
IF NOT /pws/zycie078-codfunleg IS INITIAL.
SELECT SINGLE descr
FROM /pws/zycit177
INTO v_descr8
* >> Início da exclusão: FORM LOAD_DESCREGFUN
WHERE codigo = /pws/zycie078-codfunleg.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_DESCREGFUN
WHERE codigo = /pws/zycie078-codfunleg. "#EC CI_NOFIRST
* << Fim da inclusão
ELSE.
MOVE space TO v_descr8.
ENDIF.
ENDFORM.
FORM load_descmpgto.
IF NOT /pws/zycie078-mdpgto IS INITIAL.
SELECT SINGLE descricao
FROM /pws/zycit193
INTO v_descr9
WHERE codmodpag = /pws/zycie078-mdpgto.
...
...
AND ddlanguage EQ sy-langu.
ELSE.
v_descr18 = space.
ENDIF.
ENDFORM.
FORM load_descncm.
IF NOT /pws/zycie078-steuc1 IS INITIAL.
SELECT SINGLE text1
FROM t604n
INTO v_descr_ncm
* >> Início da exclusão: FORM LOAD_DESCNCM
WHERE steuc EQ /pws/zycie078-steuc1.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_DESCNCM
WHERE steuc EQ /pws/zycie078-steuc1. "#EC CI_GENBUFF
* << Fim da inclusão
ELSE.
MOVE space TO v_descr_ncm.
ENDIF.
ENDFORM.
FORM load_cond_merc.
IF NOT /pws/zycie078-condmerc IS INITIAL.
SELECT SINGLE ddtext
FROM dd07t
INTO (v_descr19)
WHERE domname EQ '/PWS/ZYCID078'
...
...
IF /pws/zycie078-status NE 'VIN'.
IF /pws/zycie078-tpli EQ 'N'.
MESSAGE i015 WITH text-161.
ELSEIF /pws/zycie078-tpli EQ 'S'.
MESSAGE i015 WITH text-201.
ENDIF.
EXIT.
ENDIF.
SELECT SINGLE * FROM /pws/zycit100
INTO /pws/zycit100
* >> Início da exclusão: FORM DESVIN_LI
WHERE nrseq = /pws/zycit001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM DESVIN_LI
WHERE nrseq = /pws/zycit001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc = 0.
SELECT SINGLE * FROM /pws/zycit085
INTO /pws/zycit085
WHERE nrseqdi = /pws/zycit100-nrseqdi.
ENDIF.
IF sy-subrc NE 0.
LOOP AT it_zycit079.
IF /pws/zycie078-tpli EQ 'N'.
UPDATE /pws/zycit003 SET nrseqli = space
nrli = space
...
...
ENDIF.
ENDLOOP.
ENDFORM.
FORM verifica_vinculacao.
IF /pws/zycie078-status EQ 'VIN'.
SELECT SINGLE * FROM /pws/zycit001
INTO wa_zycit001
WHERE nrseq EQ /pws/zycie078-nrseq.
CLEAR v_bl.
SELECT SINGLE * FROM /pws/zycit094
* >> Início da exclusão: FORM VERIFICA_VINCULACAO
WHERE nrseq EQ wa_zycit001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_VINCULACAO
WHERE nrseq EQ wa_zycit001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc NE 0.
v_bl = 1.
ENDIF.
CLEAR v_fat.
READ TABLE itab_zycit263 WITH KEY
nrseq_pgfat = it_zycit003_aux-nrseq_pgfat .
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit006
WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat
* >> Início da exclusão: FORM VERIFICA_VINCULACAO
AND nrseq_pgfat NE space.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_VINCULACAO
AND nrseq_pgfat NE space. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
IF sy-subrc NE 0.
v_fat = '1'.
ENDIF.
CLEAR v_di.
SELECT SINGLE * FROM /pws/zycit100
WHERE nrseq EQ wa_zycit001-nrseq
AND ebeln EQ it_zycit079-ebeln
* >> Início da exclusão: FORM VERIFICA_VINCULACAO
AND ebelp EQ it_zycit079-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_VINCULACAO
AND ebelp EQ it_zycit079-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc NE 0.
v_di = 1.
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_vltotal_local_emb.
DATA:
v_existe_bl ,
v_ebelp LIKE konv-kposn,
v_vlmerc LIKE /pws/zycit003-netpr.
...
...
CLEAR: it_log ,
it_vincula ,
it_zycit003_aux,
wa_zycit001 .
REFRESH: it_log ,
it_vincula ,
it_zycit003_aux.
IF /pws/zycie078-tpli EQ 'N'.
SELECT * FROM /pws/zycit003
INTO TABLE it_zycit003_aux
* >> Início da exclusão: FORM VERIFICACAO_SUB
WHERE nrseqli EQ wa_zycit078_aux2-nrseqli.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICACAO_SUB
WHERE nrseqli EQ wa_zycit078_aux2-nrseqli."#EC CI_NOFIELD
* << Fim da inclusão
ELSEIF /pws/zycie078-tpli EQ 'S'.
SELECT * FROM /pws/zycit003
INTO TABLE it_zycit003_aux
* >> Início da exclusão: FORM VERIFICACAO_SUB
WHERE nrseqlsi EQ wa_zycit078_aux2-nrseqli.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICACAO_SUB
WHERE nrseqlsi EQ wa_zycit078_aux2-nrseqli."#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
...
...
MOVE: it_zycit079-ebeln TO it_log-ebeln,
it_zycit079-ebelp TO it_log-ebelp,
wa_zycit001-nrseq TO it_log-nrseq,
v_descrlog TO it_log-descr.
APPEND it_log.
ENDIF.
ENDIF.
CLEAR: v_descrlog.
CLEAR v_bl.
SELECT SINGLE * FROM /pws/zycit094
* >> Início da exclusão: FORM VERIFICACAO_SUB
WHERE nrseq EQ wa_zycit001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICACAO_SUB
WHERE nrseq EQ wa_zycit001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit093
WHERE nrseqce EQ /pws/zycit094-nrseqce.
IF sy-subrc EQ 0.
IF /pws/zycie078-land1 NE /pws/zycit093-paispae.
MOVE: it_zycit079-ebeln TO it_log-ebeln,
it_zycit079-ebelp TO it_log-ebelp,
wa_zycit001-nrseq TO it_log-nrseq,
text-126 TO it_log-descr.
APPEND it_log.
ENDIF.
ENDIF.
ELSE.
v_bl = 1.
ENDIF.
CLEAR v_fat.
SELECT SINGLE * FROM /pws/zycit006
WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat
* >> Início da exclusão: FORM VERIFICACAO_SUB
AND nrseq_pgfat NE space.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICACAO_SUB
AND nrseq_pgfat NE space. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
CLEAR: v_descrlog.
IF it_zycit079-ntgew NE it_zycit003_aux-ntgew.
CONCATENATE text-127 it_zycit079-ebeln text-121
it_zycit079-ebelp text-128 INTO v_descrlog
SEPARATED BY space.
MOVE: it_zycit079-ebeln TO it_log-ebeln,
it_zycit079-ebelp TO it_log-ebelp,
wa_zycit001-nrseq TO it_log-nrseq,
v_descrlog TO it_log-descr.
...
...
APPEND it_log.
ENDIF.
ENDIF.
ELSE.
v_fat = '1'.
ENDIF.
CLEAR v_di.
SELECT SINGLE * FROM /pws/zycit100
WHERE nrseq EQ wa_zycit001-nrseq
AND ebeln EQ it_zycit079-ebeln
* >> Início da exclusão: FORM VERIFICACAO_SUB
AND ebelp EQ it_zycit079-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICACAO_SUB
AND ebelp EQ it_zycit079-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit085
WHERE nrseqdi EQ /pws/zycit100-nrseqdi.
SELECT * FROM /pws/zycit114
INTO TABLE it_zycit114
WHERE nrseqdi EQ /pws/zycit100-nrseqdi
AND adicao EQ /pws/zycit100-adicao.
CLEAR v_id.
READ TABLE it_zycit003_aux
WITH KEY ebeln = /pws/zycit100-ebeln
...
...
ENDIF.
DATA:BEGIN OF it_zycit003_sub OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA:END OF it_zycit003_sub.
IF NOT v_exit IS INITIAL.
EXIT.
ENDIF.
IF /pws/zycie078-tpli EQ 'N'.
SELECT * FROM /pws/zycit003
INTO TABLE it_zycit003_sub
* >> Início da exclusão: FORM VERIFICACAO_SUB
WHERE nrseqli EQ wa_zycit078_aux2-nrseqli.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICACAO_SUB
WHERE nrseqli EQ wa_zycit078_aux2-nrseqli."#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
LOOP AT it_zycit003_sub.
it_zycit003_sub-nrseqli = /pws/zycie078-nrseqli.
MOVE: /pws/zycie078-nrli TO it_zycit003_sub-nrli,
'X' TO it_zycit003_sub-nrlisub.
MODIFY it_zycit003_sub.
ENDLOOP.
MODIFY /pws/zycit003 FROM TABLE it_zycit003_sub.
ENDIF.
ELSEIF /pws/zycie078-tpli EQ 'S'.
SELECT * FROM /pws/zycit003
INTO TABLE it_zycit003_sub
* >> Início da exclusão: FORM VERIFICACAO_SUB
WHERE nrseqlsi EQ wa_zycit078_aux2-nrseqli.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICACAO_SUB
WHERE nrseqlsi EQ wa_zycit078_aux2-nrseqli. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
LOOP AT it_zycit003_sub.
it_zycit003_sub-nrseqlsi = /pws/zycie078-nrseqli.
MOVE: /pws/zycie078-nrli TO it_zycit003_sub-nrlsi,
'X' TO it_zycit003_sub-nrlsisub.
MODIFY it_zycit003_sub.
ENDLOOP.
MODIFY /pws/zycit003 FROM TABLE it_zycit003_sub.
ENDIF.
ENDIF.
COMMIT WORK.
ENDIF.
ENDFORM.
FORM verifica_di CHANGING p_erro.
IF NOT /pws/zycie078-nrseq IS INITIAL.
SELECT SINGLE * FROM /pws/zycit100
* >> Início da exclusão: FORM VERIFICA_DI
WHERE nrseq EQ /pws/zycie078-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DI
WHERE nrseq EQ /pws/zycie078-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit085
WHERE nrseqdi EQ /pws/zycit100-nrseqdi.
IF NOT /pws/zycit085-nrdi IS INITIAL.
p_erro = 1.
ELSE.
MOVE space TO p_erro.
ENDIF.
ENDIF.
ENDIF.
...
...
it_zycit245-vinculado = it_zycit245-vinculado +
/pws/zycie078-qtdest.
ENDIF.
MODIFY it_zycit245 TRANSPORTING sdocomp_i vinculado vlvinc
WHERE codcomp = itab_itens_aux-matnr.
MOVE it_zycit079[] TO it_zycit079_aux4[].
ENDIF.
ELSE.
MESSAGE i015 WITH text-388 it_zycit079-ebeln
it_zycit079-ebelp text-389.
* >> Início da exclusão: FORM VERIFICA_SALDO_DRAWBACK
EXIT.
* << Fim da exclusão
CLEAR: /pws/zycie078-nrseqd,
/pws/zycie078-reg_drawback.
* >> Início da inclusão: FORM VERIFICA_SALDO_DRAWBACK
EXIT.
* << Fim da inclusão
ENDIF.
ENDIF.
ELSEIF /pws/zycie078-drawback EQ '2'.
READ TABLE itab_itens_aux WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
...
...
/pws/zycie078-qtdest.
it_zycit245-vlvinc = it_zycit245-vlvinc +
v_vlfobli.
ENDIF.
MODIFY it_zycit245 TRANSPORTING sdocomp_i vinculado vlvinc
WHERE codcomp = itab_itens_aux-matnr.
MOVE it_zycit079[] TO it_zycit079_aux4[].
ELSE.
MESSAGE i015 WITH text-388 it_zycit079-ebeln
it_zycit079-ebelp text-389.
* >> Início da exclusão: FORM VERIFICA_SALDO_DRAWBACK
EXIT.
* << Fim da exclusão
CLEAR: /pws/zycie078-nrseqd,
/pws/zycie078-reg_drawback.
* >> Início da inclusão: FORM VERIFICA_SALDO_DRAWBACK
EXIT.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
EXIT.
ENDLOOP.
...
...
ENDLOOP.
ENDIF.
ENDFORM.
FORM comm_cli.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE078-NRSEQ'.
SELECT SINGLE * FROM /pws/zycit001
WHERE nrseq = v_valor.
IF sy-subrc EQ 0.
SET PARAMETER ID '/PWS/ZYCIP001' FIELD /pws/zycit001-nrseq.
* >> Início da exclusão: FORM COMM_CLI
CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_CLI
CALL TRANSACTION '/PWS/ZYCI001_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
ELSE.
MESSAGE s015 WITH text-183.
ENDIF.
ENDFORM.
FORM mask2_field.
DATA: v_str2 TYPE i,
v_nrdrawback_aux(13).
CLEAR: v_str2,
v_nrdrawback_aux.
...
...
IF /pws/zycie078-tpli EQ 'S'.
IF /pws/zycie078-classific EQ '2'.
CLEAR: /pws/zycie078-steuc1,
wa_zycit078-steuc1.
ENDIF.
ENDIF.
IF /pws/zycie078-zum IS INITIAL.
SELECT SINGLE /pws/zum
FROM t604f
INTO (/pws/zycie078-zum)
* >> Início da exclusão: FORM SAVEPLI
WHERE steuc EQ /pws/zycie078-steuc1.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVEPLI
WHERE steuc EQ /pws/zycie078-steuc1. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF v_tcode EQ '/PWS/ZYCI020_C' OR
v_tcode EQ '/PWS/ZYCI020_P' OR
v_tcode EQ '/PWS/ZYCI020_I'.
PERFORM verifica_nrseq_gravado.
ENDIF.
SET PARAMETER ID '/PWS/ZYCIP078' FIELD /pws/zycie078-nrseqli.
IF v_tcode EQ '/PWS/ZYCI020_A' OR
v_tcode EQ '/PWS/ZYCI020_N' OR
v_tcode EQ '/PWS/ZYCI020_G'.
...
...
USING /pws/zycie078.
IF v_exit = 'S'.
EXIT.
ENDIF.
PERFORM: salva_item ,
save_txt ,
save_pexpam ,
save_drawback.
IF okcode = 'CANCEL'.
UPDATE /pws/zycit079 SET numli = space
* >> Início da exclusão: FORM SAVEPLI
WHERE numli = /pws/zycie078-nrseqli.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVEPLI
WHERE numli = /pws/zycie078-nrseqli. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
MESSAGE s017 WITH /pws/zycie078-nrseqli.
* >> Início da exclusão: FORM SAVEPLI
MESSAGE s017.
* << Fim da exclusão
COMMIT WORK.
CASE v_tcode.
WHEN '/PWS/ZYCI020_C'.
v_tcode = '/PWS/ZYCI020_A'.
WHEN '/PWS/ZYCI020_P'.
v_tcode = '/PWS/ZYCI020_N'.
WHEN '/PWS/ZYCI020_I'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
FORM load_umest.
MOVE: space TO v_descr26,
space TO v_descr27.
IF NOT /pws/zycie078-zum IS INITIAL.
SELECT SINGLE descr FROM /pws/zyglt204 INTO v_descr27
* >> Início da exclusão: FORM LOAD_UMEST
WHERE zum EQ /pws/zycie078-zum.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_UMEST
WHERE zum EQ /pws/zycie078-zum. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM procura_adicao.
DATA: v_adicao LIKE /pws/zycit100-adicao.
CLEAR: v_adicao.
IF NOT it_zycit003_aux[] IS INITIAL.
SELECT * FROM /pws/zycit100
INTO TABLE it_zycit100
FOR ALL ENTRIES IN it_zycit003_aux
WHERE nrseq EQ /pws/zycie078-nrseq
AND ebeln EQ it_zycit003_aux-ebeln
* >> Início da exclusão: FORM PROCURA_ADICAO
AND ebelp EQ it_zycit003_aux-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCURA_ADICAO
AND ebelp EQ it_zycit003_aux-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF /pws/zycie078-tpli EQ 'N'.
IF sy-subrc EQ 0.
SORT it_zycit100 BY adicao.
LOOP AT it_zycit100.
CLEAR: it_adicao.
READ TABLE it_zycit003_aux WITH KEY nrseq = /pws/zycie078-nrseq
ebeln = it_zycit100-ebeln
ebelp = it_zycit100-ebelp.
IF it_zycit003_aux-nrseqli IS INITIAL.
...
...
v_descrlog TO it_log-descr.
APPEND it_log.
ENDIF.
ENDIF.
CLEAR: v_descrlog.
/pws/zycie078-qtdest = it_zycit003_aux-qtdeumest +
/pws/zycie078-qtdest.
CLEAR: v_descrlog.
CLEAR v_bl.
SELECT SINGLE * FROM /pws/zycit094
* >> Início da exclusão: FORM VINCULACAO
WHERE nrseq EQ wa_zycit001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULACAO
WHERE nrseq EQ wa_zycit001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit093
WHERE nrseqce EQ /pws/zycit094-nrseqce.
IF sy-subrc EQ 0.
IF /pws/zycie078-land1 IS INITIAL.
MOVE /pws/zycit093-paispae TO /pws/zycie078-land1.
ENDIF.
IF /pws/zycie078-land1 NE /pws/zycit093-paispae.
MOVE: it_zycit079-ebeln TO it_log-ebeln,
it_zycit079-ebelp TO it_log-ebelp,
...
...
text-126 TO it_log-descr.
APPEND it_log.
ENDIF.
ENDIF.
ELSE.
v_bl = 1.
ENDIF.
CLEAR v_fat.
SELECT SINGLE * FROM /pws/zycit006
WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat
* >> Início da exclusão: FORM VINCULACAO
AND nrseq_pgfat NE space.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULACAO
AND nrseq_pgfat NE space. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
CLEAR: v_descrlog.
MOVE it_zycit003_aux-ntgew TO it_zycit079-ntgew.
IF it_zycit079-ntgew NE it_zycit003_aux-ntgew.
CONCATENATE text-127 it_zycit079-ebeln text-121
it_zycit079-ebelp text-128 INTO v_descrlog
SEPARATED BY space.
MOVE: it_zycit079-ebeln TO it_log-ebeln,
it_zycit079-ebelp TO it_log-ebelp,
wa_zycit001-nrseq TO it_log-nrseq,
...
...
APPEND it_log.
ENDIF.
ENDIF.
ELSE.
v_fat = '1'.
ENDIF.
CLEAR v_di.
SELECT SINGLE * FROM /pws/zycit100
WHERE nrseq EQ wa_zycit001-nrseq
AND ebeln EQ it_zycit079-ebeln
* >> Início da exclusão: FORM VINCULACAO
AND ebelp EQ it_zycit079-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULACAO
AND ebelp EQ it_zycit079-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit085
WHERE nrseqdi EQ /pws/zycit100-nrseqdi.
SELECT * FROM /pws/zycit114
INTO TABLE it_zycit114
WHERE nrseqdi EQ /pws/zycit100-nrseqdi
AND adicao EQ /pws/zycit100-adicao.
CLEAR v_id.
MOVE: /pws/zycit100-nrseqdi TO /pws/zycie078-nrseqdi,
/pws/zycit100-nrseqdi TO v_id ,
...
...
ELSEIF v_resp_save EQ 'A'.
EXIT.
ENDIF.
SELECT SINGLE * FROM /pws/zycet079 INTO wa_report_cliente
WHERE codmod = 'D'
AND func = 'LI'.
EXPORT /pws/zycie078-tpli TO MEMORY ID '037R01'.
IF NOT wa_report_cliente-transacao IS INITIAL.
IF wa_report_cliente-transacao EQ text-192.
SUBMIT /pws/zycir037 WITH p_nrseq = /pws/zycie078-nrseqli
* >> Início da exclusão: FORM COMM_EXTLI
AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_EXTLI
AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ELSE.
SUBMIT (wa_report_cliente-transacao)
* >> Início da exclusão: FORM COMM_EXTLI
WITH p_nrseq = /pws/zycie078-nrseqli AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_EXTLI
WITH p_nrseq = /pws/zycie078-nrseqli
AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ENDIF.
...
...
MOVE it_zycit079-steuc1 TO it_ncm-ncm.
MOVE it_zycit079-lifnr TO it_ncm-lifnr.
MOVE it_zycit079-codsufra TO it_ncm-codsufra.
APPEND it_ncm.
ENDLOOP.
SORT it_ncm.
DELETE ADJACENT DUPLICATES FROM it_ncm COMPARING ALL FIELDS.
DESCRIBE TABLE it_zycit079 LINES v_lin079.
DESCRIBE TABLE it_ncm LINES v_linncm.
IF v_linncm NE 1.
* >> Início da exclusão: FORM SAVE_NOVOREG
IF v_lin079 GT 1 .
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_NOVOREG
IF v_lin079 GT 1 . "#EC PORTABLE
* << Fim da inclusão
SORT it_zycit079 BY steuc1 lifnr codsufra.
MOVE it_zycit079[] TO it_zycit079_ncm2[].
READ TABLE it_zycit079_ncm2 INDEX 1.
IF sy-subrc EQ 0.
v_steuc1 = it_zycit079_ncm2-steuc1.
v_lifnr = it_zycit079_ncm2-lifnr.
v_codsufra = it_zycit079_ncm2-codsufra.
ENDIF.
LOOP AT it_zycit079_ncm2.
v_tabix = sy-tabix.
...
...
CLEAR: itab_zycit104, itab_zycit257.
FREE: itab_zycit104, itab_zycit257.
ENDIF.
ENDFORM.
FORM submit_report_cliente.
IF itab_report_cliente-programa = text-192.
PERFORM comm_extli.
ELSEIF itab_report_cliente-programa = text-193.
EXPORT /pws/zycie078-tpli TO MEMORY ID '029R01'.
SUBMIT /pws/zycir029 WITH p_nrseq = /pws/zycie078-nrseqli
* >> Início da exclusão: FORM SUBMIT_REPORT_CLIENTE
AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM SUBMIT_REPORT_CLIENTE
AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM chama_func_cliente.
DATA: v_resposta TYPE c.
DATA: wa_temp LIKE itab_report_cliente.
READ TABLE itab_report_cliente INDEX v_cur.
MOVE 'X' TO itab_report_cliente-v_mark.
MOVE itab_report_cliente TO wa_temp.
MODIFY itab_report_cliente FROM wa_temp
TRANSPORTING v_mark
...
...
i_nrseq = /pws/zycie078-nrseqli
EXCEPTIONS
OTHERS = 1.
ENDFORM.
FORM relatorio_lsi.
SELECT SINGLE * FROM /pws/zycet079 INTO wa_report_cliente2
WHERE codmod = 'D'
AND func = 'LI'.
EXPORT /pws/zycie078-tpli TO MEMORY ID '029R01'.
SUBMIT /pws/zycir029 WITH p_nrseq = /pws/zycie078-nrseqli
* >> Início da exclusão: FORM RELATORIO_LSI
AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM RELATORIO_LSI
AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ENDFORM.
FORM send.
IF wa_zycit136-stasis = text-300.
MESSAGE s061 WITH text-305 text-307 text-306.
EXIT.
ENDIF.
IF wa_zycit136-stasis = text-302.
MESSAGE s061 WITH text-305 text-307 text-306.
EXIT.
ENDIF.
...
...
commandline = v_param
program = v_string_ex
EXCEPTIONS
frontend_error = 1
no_batch = 2
prog_not_found = 3
illegal_option = 4
gui_refuse_execute = 5
OTHERS = 6.
IF sy-dynnr EQ '0500' AND /pws/zycie078-transm EQ 'S'.
* >> Início da exclusão: FORM SEND
CALL TRANSACTION '/PWS/ZYCIR132'.
* << Fim da exclusão
* >> Início da inclusão: FORM SEND
CALL TRANSACTION '/PWS/ZYCIR132'. "#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
ENDIF.
WHEN OTHERS.
CALL FUNCTION 'GUI_GET_FILE_INFO'
EXPORTING
fname = v_string_ex
IMPORTING
file_size = v_tam
EXCEPTIONS
fileinfo_error = 1
...
...
commandline = v_param
program = v_string_ex
EXCEPTIONS
frontend_error = 1
no_batch = 2
prog_not_found = 3
illegal_option = 4
gui_refuse_execute = 5
OTHERS = 6.
IF sy-dynnr EQ '0500' AND /pws/zycie078-transm EQ 'S'.
* >> Início da exclusão: FORM SEND
CALL TRANSACTION '/PWS/ZYCIR132'.
* << Fim da exclusão
* >> Início da inclusão: FORM SEND
CALL TRANSACTION '/PWS/ZYCIR132'. "#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
ENDIF.
ENDCASE.
ENDFORM.
FORM verify_transm.
IF wa_zycit136-stasis = text-300.
MESSAGE s061 WITH text-305 text-307 text-306.
EXIT.
ENDIF.
IF wa_zycit136-stasis = text-302.
...
...
IF sy-subrc NE 0.
MESSAGE s015 WITH text-165.
EXIT.
ENDIF.
ELSEIF v_resp_save EQ 'A'.
EXIT.
ENDIF.
EXPORT /pws/zycie078-tpli TO MEMORY ID '037R01'.
EXPORT v_tcode TO MEMORY ID '037R01B'.
SUBMIT /pws/zycir037 WITH p_nrseq = /pws/zycie078-nrseqli
* >> Início da exclusão: FORM COMM_EXTPLI
AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_EXTPLI
AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ENDFORM.
FORM load_descri_suframa.
DATA: v_spras LIKE ekko-spras.
CLEAR v_esp.
CLEAR rtexti.
REFRESH rtexti.
CLEAR v_txtki.
CONCATENATE /pws/zycie079a-nrseqli /pws/zycie079a-ebeln
/pws/zycie079a-ebelp INTO v_txtki.
IF NOT /pws/zycie078-aplicpli EQ '2'.
...
...
limpa_tabncm .
ENDIF.
ENDIF.
ENDFORM.
FORM gera_nrforn.
DATA: v_nrforn LIKE /pws/zycit080-nrforn,
v_forn(1),
v_seq(1).
CLEAR: it_zycit080, v_forn, v_exit.
REFRESH: it_zycit080.
* >> Início da exclusão: FORM GERA_NRFORN
SELECT MAX( nrforn ) INTO (v_nrforn) FROM /pws/zycit080.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NRFORN
SELECT MAX( nrforn ) INTO (v_nrforn)
FROM /pws/zycit080. "#EC CI_NOWHERE
* << Fim da inclusão
IF v_nrforn <= 32766.
v_nrforn = v_nrforn + 1.
ELSE.
MESSAGE e015 WITH text-220 text-221.
v_exit = 'S'.
EXIT.
ENDIF.
SELECT lifnr nrforn FROM /pws/zycit080
INTO TABLE it_zycit080
* >> Início da exclusão: FORM GERA_NRFORN
WHERE lifnr = /pws/zycie080-lifnr.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NRFORN
WHERE lifnr = /pws/zycie080-lifnr. "#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT it_zycit080.
IF it_zycit080-lifnr EQ /pws/zycie080-lifnr AND
* >> Início da exclusão: FORM GERA_NRFORN
NOT it_zycit080-nrforn IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NRFORN
NOT it_zycit080-nrforn IS INITIAL. "#EC CI_NOFIRST
* << Fim da inclusão
CLEAR v_nrforn.
MOVE: it_zycit080-nrforn TO v_nrforn.
ENDIF.
ENDLOOP.
MOVE: v_nrforn TO /pws/zycie080-nrforn.
ENDFORM.
FORM load_v_esp.
PERFORM fill_desc.
IF v_esp IS INITIAL.
PERFORM load_descri_suframa.
...
...
FORM load_descaladi2.
IF NOT it_zycit079-aladi IS INITIAL.
SELECT SINGLE descricao
FROM /pws/zycet168
INTO v_descr13
WHERE codaladi = it_zycit079-aladi.
ELSE.
MOVE space TO v_descr13.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
FORM pega_descricao_dominio USING value(p_campo)
value(p_valor)
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
FORM pega_descricao_dominio USING p_campo
p_valor
* << Fim da inclusão
CHANGING v_retorno.
DATA: wa_dd03l LIKE dd03l.
DATA: BEGIN OF itab_dd07t OCCURS 5.
INCLUDE STRUCTURE dd07t.
DATA: END OF itab_dd07t.
DATA: tablename LIKE dd03l-tabname,
fieldname LIKE dd03l-fieldname.
SPLIT p_campo AT '-' INTO tablename fieldname.
IF sy-subrc NE 0.
EXIT.
...
...
space TO /pws/zycie078-digito .
ENDFORM.
FORM vincula_ato.
DATA: v_nrseqd_v LIKE /pws/zycit244-nrseqd.
REFRESH itab_zycit376.
DELETE it_zycit079 WHERE qtd_iten <= 0.
IF NOT it_zycit079[] IS INITIAL.
SELECT * FROM /pws/zycit376 INTO TABLE itab_zycit376
FOR ALL ENTRIES IN it_zycit079
WHERE ebeln EQ it_zycit079-ebeln
* >> Início da exclusão: FORM VINCULA_ATO
AND ebelp EQ it_zycit079-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULA_ATO
AND ebelp EQ it_zycit079-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
READ TABLE itab_zycit376 INDEX 1.
IF sy-subrc EQ 0.
CLEAR v_nvinc.
v_nrseqd_v = itab_zycit376-nrseqd.
LOOP AT it_zycit079.
READ TABLE itab_zycit376 WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp
nrseqd = v_nrseqd_v.
IF sy-subrc NE 0.
v_nvinc = 'X'.
...
...
/pws/zycie078-nrseqd = itab_zycit376-nrseqd.
/pws/zycie078-reg_drawback = itab_zycit376-nratoc.
/pws/zycie078-modalidade = /pws/zycit244-modalidade.
/pws/zycie078-tipodb = /pws/zycit244-tipo.
/pws/zycie078-codagsecex = /pws/zycit244-codagencia.
/pws/zycie078-digito = /pws/zycit244-digito.
/pws/zycie078-codfunleg = '16'.
IF /pws/zycie078-codagsecex IS INITIAL.
SELECT SINGLE codagencia digito FROM /pws/zycit172
INTO (/pws/zycie078-codagsecex, /pws/zycie078-digito)
* >> Início da exclusão: FORM VINCULA_ATO
WHERE descricao = /pws/zycit244-praca.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULA_ATO
WHERE descricao = /pws/zycit244-praca. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
IF /pws/zycie078-modalidade EQ 'I'.
/pws/zycie078-codregtri = '3'.
ELSEIF /pws/zycie078-modalidade EQ 'S'.
/pws/zycie078-codregtri = '5'.
ENDIF.
MESSAGE s015 WITH text-441.
LOOP AT it_zycit079.
READ TABLE itab_zycit376 WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp
...
...
DATA: v_conv1 TYPE /pws/zycit245-qtd_ncm,
v_conv2 TYPE /pws/zycit245-qtd_ncm.
CLEAR: v_um_rez, v_um_ren, v_codpais, v_cod_umncm, v_umncm,
v_um_rez2, v_um_ren2.
CLEAR v_cod_umncm.
SELECT SINGLE a~steuc INTO v_j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ p_matnr
AND a~steuc NE space
* >> Início da exclusão: FORM CONVERTE_UM_NCM
AND b~land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
AND b~land1 EQ t001-land1. "#EC CI_BUFFJOIN
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE land1 /pws/zum
FROM t604f INTO (v_codpais, v_cod_umncm)
* >> Início da exclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
WHERE steuc = v_j_1bnbm. "#EC CI_GENBUFF
* << Fim da inclusão
ENDIF.
IF NOT v_cod_umncm IS INITIAL.
* >> Início da exclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE msehi
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE msehi "#EC CI_NOFIELD
* << Fim da inclusão
FROM /pws/zyglt204 INTO (v_umncm)
WHERE zum = v_cod_umncm.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-436 text-437 v_j_1bnbm.
CLEAR p_qtd.
EXIT.
ENDIF.
v_conv1 = 1.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE_OLD'
EXPORTING
...
...
DATA: END OF itab_zycit079_util.
SELECT ebeln ebelp menge bstyp FROM ekpo
INTO TABLE itab_ekpo
FOR ALL ENTRIES IN it_zycit092
WHERE ebeln EQ it_zycit092-ebeln
AND ebelp EQ it_zycit092-ebelp.
SELECT * FROM /pws/zycit079
INTO TABLE itab_zycit079_util
FOR ALL ENTRIES IN it_zycit092
WHERE ebeln EQ it_zycit092-ebeln
* >> Início da exclusão: FORM CARREGA_SALDO
AND ebelp EQ it_zycit092-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_SALDO
AND ebelp EQ it_zycit092-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
LOOP AT it_zycit092.
CLEAR: itab_ekpo, itab_zycit079_util.
READ TABLE itab_ekpo WITH KEY ebeln = it_zycit092-ebeln
ebelp = it_zycit092-ebelp.
IF sy-subrc EQ 0.
CLEAR v_qtdemb.
LOOP AT itab_zycit079_util WHERE ebeln EQ it_zycit092-ebeln
AND ebelp EQ it_zycit092-ebelp.
v_qtdemb = v_qtdemb + itab_zycit079_util-qtd_iten.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
/pws/zycie079-zum TO it_zycit079-zum ,
/pws/zycie079-codsufra TO it_zycit079-codsufra ,
mark TO it_zycit079-mark .
it_zycit079-nrseqli = /pws/zycie078-nrseqli.
it_zycit079-slqtde = /pws/zycie092-slqtde.
IF NOT /pws/zycie079-steuc1 IS INITIAL.
SELECT SINGLE text1
FROM t604n
INTO /pws/zycit181-descricao
WHERE steuc EQ /pws/zycie079-steuc1
* >> Início da exclusão: MODULE ALTERA_IT_ZYCIT079_400
AND spras EQ sy-langu .
* << Fim da exclusão
* >> Início da inclusão: MODULE ALTERA_IT_ZYCIT079_400
AND spras EQ sy-langu . "#EC CI_GENBUFF
* << Fim da inclusão
IF sy-subrc NE 0.
MOVE space TO /pws/zycit181-descricao.
ENDIF.
ELSE.
MOVE space TO /pws/zycit181-descricao.
ENDIF.
IF it_zycit079-ncm IS INITIAL.
it_zycit079-ncm = it_zycit079-steuc1.
ENDIF.
IF sy-dynnr EQ '0403'.
...
...
SELECT SINGLE * FROM ekko
INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
i_ebeln = v_valor.
IF ekko-bstyp = 'L'.
SET PARAMETER ID 'VRT' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME33'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0109
CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0109
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 i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME23N'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0109
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0109
CALL TRANSACTION 'ME23N'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME23N'.
ENDIF.
ENDIF.
ENDIF.
ELSE.
MESSAGE s015 WITH text-051.
ENDIF.
WHEN 'ENTE'.
v_subrc = 1.
IF /pws/zycie078-nrseqd IS INITIAL.
LOOP AT it_zycit079.
SELECT SINGLE * FROM /pws/zycit376 INTO itab_zycit376
WHERE ebeln = it_zycit079-ebeln
AND ebelp = it_zycit079-ebeln
* >> Início da exclusão: MODULE USER_COMMAND_0109
AND nrseqd NE space.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0109
AND nrseqd NE space. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
v_subrc = sy-subrc.
EXIT.
ENDIF.
ENDLOOP.
IF v_subrc EQ 0 AND NOT /pws/zycit000-flagdraw IS INITIAL.
MESSAGE s015 WITH text-401 text-402.
ENDIF.
ENDIF.
ENDCASE.
...
...
SELECT SINGLE * FROM ekko
INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
i_ebeln = v_valor.
IF ekko-bstyp = 'L'.
SET PARAMETER ID 'VRT' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME33'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0502
CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0502
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 i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME23N'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0502
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0502
CALL TRANSACTION 'ME23N'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME23N'.
ENDIF.
ENDIF.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE079-NUMLI'.
SET PARAMETER ID '/PWS/ZYCIP078' FIELD v_valor.
* >> Início da exclusão: MODULE USER_COMMAND_0502
CALL TRANSACTION '/PWS/ZYCI020_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0502
CALL TRANSACTION '/PWS/ZYCI020_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE s015 WITH text-051.
ENDIF.
ENDCASE.
ENDMODULE.
MODULE user_command_0002 INPUT.
CLEAR v_matnr.
WRITE /pws/zycie078-nrseqli TO /pws/zycie078-nrseqli RIGHT-JUSTIFIED.
OVERLAY /pws/zycie078-nrseqli WITH '0000000000'.
CASE okcode.
...
...
WHERE ebeln EQ it_zycit079-ebeln
AND ebelp EQ it_zycit079-ebelp
AND nrseqli EQ /pws/zycie078-nrseqli
AND tpli EQ 'N'.
MOVE it_anu2[] TO it_anu2_aux[].
ENDIF.
IF NOT /pws/zycie078-numpexpam IS INITIAL.
SELECT * UP TO 1 ROWS FROM /pws/zycit197
INTO wa_zycit197
WHERE nrproc EQ /pws/zycie078-numpexpam
* >> Início da exclusão: MODULE USER_COMMAND_0002
AND anoproc EQ /pws/zycie078-anopexpam.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0002
AND anoproc EQ /pws/zycie078-anopexpam."#EC CI_NOFIELD
* << Fim da inclusão
ENDSELECT.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit199
INTO TABLE it_zycit199
WHERE nrseqp EQ wa_zycit197-nrseqp
AND item EQ /pws/zycie078-item
AND matmodelo EQ /pws/zycie078-modelo.
SELECT * FROM /pws/zycit203
INTO TABLE it_zycit203
WHERE nrseqp EQ wa_zycit197-nrseqp
...
...
SELECT SINGLE * FROM ekko
INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
i_ebeln = v_valor.
IF ekko-bstyp = 'L'.
SET PARAMETER ID 'VRT' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME33'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_403
CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_403
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 i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME23N'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_403
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_403
CALL TRANSACTION 'ME23N'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME23N'.
ENDIF.
ENDIF.
ENDIF.
ELSE.
MESSAGE s015 WITH text-051.
ENDIF.
ENDCASE.
ENDMODULE.
...
...
ENDIF.
ENDIF.
ENDMODULE.
MODULE get_pexpam INPUT.
IF /pws/zycie078-numpexpam EQ space.
EXIT.
ENDIF.
SELECT SINGLE * FROM /pws/zycit197
INTO wa_zycit197
WHERE nrproc EQ /pws/zycie078-numpexpam
* >> Início da exclusão: MODULE GET_PEXPAM
AND anoproc EQ /pws/zycie078-anopexpam.
* << Fim da exclusão
* >> Início da inclusão: MODULE GET_PEXPAM
AND anoproc EQ /pws/zycie078-anopexpam. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc NE 0.
MESSAGE e015 WITH text-147.
EXIT.
ENDIF.
SELECT * FROM /pws/zycit199
INTO TABLE it_zycit199
WHERE nrseqp EQ wa_zycit197-nrseqp
AND ( orgmat EQ 'E' OR orgmat EQ 'P' )
AND matmodelo EQ /pws/zycie078-modelo
AND item EQ /pws/zycie078-item.
...
...
MODULE modify_line INPUT.
IF NOT itab_report_cliente-v_mark IS INITIAL.
MOVE tc_doc-current_line TO v_cur.
CLEAR itab_report_cliente-v_mark.
ENDIF.
MODIFY itab_report_cliente INDEX tc_doc-current_line.
ENDMODULE.
MODULE get_drawback INPUT.
IF it_zycit079[] IS INITIAL.
MESSAGE e015 WITH text-392 text-393.
* >> Início da inclusão: MODULE GET_DRAWBACK
CLEAR: /pws/zycie078-nrseqd.
* << Fim da inclusão
EXIT.
* >> Início da exclusão: MODULE GET_DRAWBACK
CLEAR: /pws/zycie078-nrseqd.
* << Fim da exclusão
ELSE.
CLEAR /pws/zycie078-reg_drawback.
IF /pws/zycie078-status EQ 'VIN'.
MESSAGE s015 WITH text-212 text-213.
/pws/zycie078-nrseqd = v_nrseqd.
EXIT.
...
...
ENDMODULE.
MODULE user_command_0106 INPUT.
CASE okcode.
WHEN 'CLI'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE078-NRSEQD'.
SELECT SINGLE * FROM /pws/zycit244
WHERE nrseqd = v_valor.
IF sy-subrc EQ 0.
SET PARAMETER ID '/PWS/ZYCIP435' FIELD /pws/zycit244-nrseqd.
* >> Início da exclusão: MODULE USER_COMMAND_0106
CALL TRANSACTION '/PWS/ZYCI040_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0106
CALL TRANSACTION '/PWS/ZYCI040_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
ELSE.
MESSAGE s015 WITH text-203.
ENDIF.
ENDCASE.
ENDMODULE.
MODULE clear_campos_lsi INPUT.
CLEAR: /pws/zycie078-codregtri ,
/pws/zycie078-codfunleg ,
/pws/zycie078-motivofunleg,
...
...
SELECT SINGLE * FROM ekpo
WHERE ebeln EQ /pws/zycie079a-ebeln
AND ebelp EQ /pws/zycie079a-ebelp.
IF /pws/zycie079a-lifnr IS INITIAL.
/pws/zycie079a-lifnr = ekpo-mfrnr.
ENDIF.
ENDIF.
ENDMODULE.
MODULE incr_sufra INPUT.
SELECT SINGLE * FROM /pws/zycit242
* >> Início da exclusão: MODULE INCR_SUFRA
WHERE plant EQ /pws/zycie078-j_1bbranch.
* << Fim da exclusão
* >> Início da inclusão: MODULE INCR_SUFRA
WHERE plant EQ /pws/zycie078-j_1bbranch. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
/pws/zycie078-inscsufr = /pws/zycit242-inscsufra.
ELSE.
MESSAGE w061 WITH text-325.
ENDIF.
ENDMODULE.
MODULE user_command_0111 INPUT.
CASE okcode.
WHEN 'BACK' OR 'LEAVE'.
LEAVE TO SCREEN 0.
...
...
IF it_vinculato-sdofob_ac < it_vinculato-vlfob_li.
MESSAGE s015 WITH text-403 text-405.
EXIT.
ENDIF.
IF it_vinculato-sdocompt < it_vinculato-qtd_iten AND
it_vinculato-tipo NE 'G'.
MESSAGE s015 WITH text-404 text-405.
EXIT.
ENDIF.
SELECT * FROM /pws/zycit172 INTO TABLE it_zycit172
* >> Início da exclusão: MODULE USER_COMMAND_0810
WHERE descricao = it_zycit244-praca.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0810
WHERE descricao = it_zycit244-praca. "#EC CI_NOFIELD
* << Fim da inclusão
LOOP AT it_vinculato WHERE marc EQ 'X'
AND icon NE '@0A\QSTATUS COM ERRO@'.
READ TABLE it_zycit172.
READ TABLE it_zycit079 WITH KEY ebelp = it_vinculato-ebelp
ebeln = it_vinculato-ebeln.
IF sy-subrc EQ 0.
READ TABLE it_zycit244_aux WITH KEY nrseqd = it_vinculato-nrseqd.
/pws/zycie078-codfunleg = '16'.
IF it_zycit244_aux-modalidade = 'I'.
/pws/zycie078-codregtri = '2'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
CHECK sy-ucomm NE 'DKTD'.
IF flag_emp IS INITIAL.
GET PARAMETER ID 'BUK' FIELD v_emp.
flag_emp = 'X'.
ENDIF.
IF v_tcode EQ '/PWS/ZYCI020_C' OR
v_tcode EQ '/PWS/ZYCI020_P'.
CLEAR v_linhas.
GET PARAMETER ID 'BUK' FIELD /pws/zycie078-bukrs.
IF /pws/zycie078-bukrs IS INITIAL.
* >> Início da exclusão: MODULE LOAD_DATA
SELECT COUNT( * ) INTO v_linhas FROM /pws/zycbt007.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
SELECT COUNT( * ) INTO v_linhas FROM /pws/zycbt007."#EC CI_BYPASS
* << Fim da inclusão
IF NOT v_linhas >= 2.
SELECT SINGLE bukrs
FROM /pws/zycbt007
INTO /pws/zycie078-bukrs.
wa_zycit078-bukrs = /pws/zycie078-bukrs.
ENDIF.
ENDIF.
ENDIF.
SET PARAMETER ID 'BUK' FIELD v_emp.
IF /pws/zycit000 IS INITIAL.
...
...
ENDMODULE.
MODULE carrega_zycie079 OUTPUT.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079.
MOVE: it_zycit079-mark TO mark,
it_zycit079-slqtde TO /pws/zycie092-slqtde.
IF NOT /pws/zycie079-steuc1 IS INITIAL.
SELECT SINGLE text1
FROM t604n
INTO /pws/zycit181-descricao
WHERE steuc EQ /pws/zycie079-steuc1
* >> Início da exclusão: MODULE CARREGA_ZYCIE079
AND spras EQ sy-langu .
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_ZYCIE079
AND spras EQ sy-langu . "#EC CI_GENBUFF
* << Fim da inclusão
IF sy-subrc NE 0.
MOVE space TO /pws/zycit181-descricao.
ENDIF.
ELSE.
MOVE space TO /pws/zycit181-descricao.
ENDIF.
CLEAR: itab_zycit376.
READ TABLE itab_zycit376 WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
/pws/zycie376-nrseqd = itab_zycit376-nrseqd.
...
...
ENDMODULE.
MODULE carrega_zycie079_400 OUTPUT.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079.
MOVE: it_zycit079-mark TO mark,
it_zycit079-slqtde TO /pws/zycie092-slqtde.
IF NOT /pws/zycie079-steuc1 IS INITIAL.
SELECT SINGLE text1
FROM t604n
INTO /pws/zycit181-descricao
WHERE steuc EQ /pws/zycie079-steuc1
* >> Início da exclusão: MODULE CARREGA_ZYCIE079_400
AND spras EQ sy-langu .
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_ZYCIE079_400
AND spras EQ sy-langu . "#EC CI_GENBUFF
* << Fim da inclusão
IF sy-subrc NE 0.
MOVE space TO /pws/zycit181-descricao.
ENDIF.
ELSE.
MOVE space TO /pws/zycit181-descricao.
ENDIF.
IF sy-dynnr EQ '0502'.
READ TABLE it_ekpo WITH KEY ebeln = /pws/zycie079-ebeln
ebelp = /pws/zycie079-ebelp.
IF
...
...
MODULE load_data_pli OUTPUT.
SET PARAMETER ID 'LND' FIELD ' '.
SET PARAMETER ID 'FWS' FIELD ' '.
IF flag_emp IS INITIAL.
GET PARAMETER ID 'BUK' FIELD v_emp.
flag_emp = 'X'.
ENDIF.
IF v_tcode EQ '/PWS/ZYCI020_I'.
CLEAR v_linhas.
IF /pws/zycie078-bukrs IS INITIAL.
* >> Início da exclusão: MODULE LOAD_DATA_PLI
SELECT COUNT( * ) INTO v_linhas FROM /pws/zycbt007.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_PLI
SELECT COUNT( * ) INTO v_linhas FROM /pws/zycbt007."#EC CI_BYPASS
* << Fim da inclusão
IF NOT v_linhas >= 2.
SELECT SINGLE bukrs
FROM /pws/zycbt007
INTO /pws/zycie078-bukrs.
wa_zycit078-bukrs = /pws/zycie078-bukrs.
ENDIF.
ENDIF.
ENDIF.
SET PARAMETER ID 'BUK' FIELD v_emp.
IF /pws/zycit274 IS INITIAL.
...
...
REFRESH itab_report_cliente.
IF t615t-spras IS INITIAL.
MOVE sy-langu TO t615t-spras.
ENDIF.
t001-spras = t615t-spras.
SELECT SINGLE sptxt FROM t002t INTO (v_s_idioma)
WHERE spras = t615t-spras
AND sprsl = t615t-spras.
IF sy-tcode(8) EQ '/PWS/ZYCI020_'.
SELECT * FROM /pws/zycet067 INTO TABLE itab_report_cliente
* >> Início da exclusão: MODULE LOAD_DATA_0003
WHERE progreq = 'LI'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_0003
WHERE progreq = 'LI'. "#EC CI_NOFIELD
* << Fim da inclusão
ELSE.
SELECT * FROM /pws/zycet067 INTO TABLE itab_report_cliente
* >> Início da exclusão: MODULE LOAD_DATA_0003
WHERE progreq = 'LSI'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_0003
WHERE progreq = 'LSI'. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
ENDMODULE.
...
...
MOVE: it_vinculato-ebeln TO v_ebeln_vin,
it_vinculato-ebelp TO v_ebelp_vin,
it_vinculato-nrseqd TO v_nrseqd_vin,
it_vinculato-nratoc TO v_nratoc_vin,
it_vinculato-dtatoc TO v_dtatoc_vin,
it_vinculato-sdofob_ac TO v_sdofob_vin,
it_vinculato-vlfob_li TO v_fobli_vin,
it_vinculato-descmodal_ac TO v_modal_vin,
it_vinculato-desctipo_ac TO v_tpdraw_vin,
it_vinculato-icon TO v_icon_vin.
* >> Início da exclusão: MODULE CARREGA_IT_VINCULATO
IF it_vinculato-desctipo_ac NE 'Genérico'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_IT_VINCULATO
IF it_vinculato-desctipo_ac NE text-446.
* << Fim da inclusão
MOVE: it_vinculato-sdocompt TO v_sdocomp_t_vin,
it_vinculato-qtd_iten TO v_qtd_iten_vin .
ENDIF.
ENDMODULE.
MODULE status_0810 OUTPUT.
SET PF-STATUS '0810'.
SET TITLEBAR '0810'.
LOOP AT it_vinculato WHERE tipo NE 'G'.
EXIT.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI020
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 446
Texto: (8 caracteres)
"Genérico"
Comprimento máximo: 8