CE PLUS - Nota 006380
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 11/04/2008 00:00:00
Data/Hora Última Alteração: 11/03/2010 09:38:31
Descrição da Nota: CODE INSPECTOR
Sintoma
Code inspector
Solução
Code inspector
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06380 Data: 11/04/2008 Hora: 17:52:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06380
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCBA275
FUNC /PWS/ZYCBA276
FUNC /PWS/ZYGL_IMPOSTO
RELE F6DK960029 20080411 173622 PWSCB
REPS /PWS/MZYCA109F01
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB004O01
REPS /PWS/MZYCB005F01
REPS /PWS/MZYCB005O01
REPS /PWS/MZYCB012F01
REPS /PWS/MZYCB013F02
REPS /PWS/MZYCB013I01
REPS /PWS/MZYCB028O01
REPS /PWS/MZYCB030F01
REPS /PWS/MZYCB030I01
REPS /PWS/MZYCB030O01
REPS /PWS/MZYCB033F01
REPS /PWS/MZYCB104F01
REPS /PWS/MZYGL008F01
REPS /PWS/MZYGL013F02
REPS /PWS/MZYGL018F01
REPS /PWS/MZYGL110F01
REPS /PWS/ZYCBR111
REPS /PWS/ZYCBR120
REPS /PWS/ZYCBR122
REPS /PWS/ZYCMR114
REPS /PWS/ZYGLR001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA275
...
ENDIF.
ENDLOOP.
SELECT
NRINVOIC
NRPARCF
GSBERF
SALDO
FROM /pws/zycbt209
INTO TABLE itab_zycbt209
FOR ALL ENTRIES IN itab_invoice
* >> Início da exclusão: FUNCTION /PWS/ZYCBA275
WHERE nrinvoic EQ itab_invoice-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA275
WHERE nrinvoic EQ itab_invoice-nrinvoic. "#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_invoice ASSIGNING <fs_invoice>.
LOOP AT itab_zycbt209 ASSIGNING <fs_zycbt209> WHERE
nrinvoic = <fs_invoice>-nrinvoic AND
nrparcf = <fs_invoice>-nrparcf AND
gsberf = <fs_invoice>-gsberf.
<fs_invoice>-vlsltrans =
<fs_invoice>-vlsltrans + <fs_zycbt209>-saldo.
ENDLOOP.
ENDLOOP.
LOOP AT itab_invoice
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA276
...
ENDLOOP.
UNASSIGN: <fs_shlp>, <fs_fielddescr>.
IF NOT itab_invoice IS INITIAL.
SELECT nrinvoic nrparcf gsberf saldo
FROM /pws/zycbt209
INTO TABLE itab_zycbt209
FOR ALL ENTRIES IN itab_invoice
WHERE
nrinvoic = itab_invoice-nrinvoic AND
nrparcf = itab_invoice-nrparcf AND
* >> Início da exclusão: FUNCTION /PWS/ZYCBA276
gsberf = itab_invoice-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA276
gsberf = itab_invoice-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF NOT itab_zycbt209 IS INITIAL.
DELETE itab_zycbt209 WHERE saldo <= 0.
LOOP AT itab_zycbt209 ASSIGNING <fs_zycbt209>.
COLLECT <fs_zycbt209> INTO itab_liq_and.
ENDLOOP.
FREE itab_zycbt209.
ENDIF.
LOOP AT itab_invoice
ASSIGNING <fs_invoice>
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_IMPOSTO
...
CLEAR t001-land1.
SELECT SINGLE land1 FROM t001
INTO t001-land1
WHERE bukrs = p_bukrs .
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs = p_bukrs .
CLEAR itab_zyglt378. REFRESH itab_zyglt378.
SELECT *
FROM /pws/zyglt378
INTO TABLE itab_zyglt378
* >> Início da exclusão: FUNCTION /PWS/ZYGL_IMPOSTO
WHERE codmod EQ p_cod_mod.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_IMPOSTO
WHERE codmod EQ p_cod_mod. "#EC CI_NOFIRST
* << Fim da inclusão
DELETE itab_zyglt378 WHERE witht IS initial.
DELETE itab_zyglt378 WHERE bukrs NE space AND
bukrs NE p_bukrs.
DELETE itab_zyglt378 WHERE land1 NE space AND
land1 NE t001-land1.
DELETE itab_zyglt378 WHERE regio NE space AND
regio NE p_regio.
SORT itab_zyglt378 BY codmod ASCENDING
cod_desp ASCENDING
witht ASCENDING
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK960029 20080411 173622 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
c_frpagto TYPE /pws/zycbe124-frpagto VALUE 'C'.
STATICS
v_nrseq TYPE /pws/zycbt229-nrseq_remessa.
CHECK /pws/zycbe124-tpoper = c_tpoper AND
/pws/zycbe124-frpagto = c_frpagto.
IF v_nrseq IS INITIAL.
SELECT nrseq_remessa
FROM /pws/zycbt229
UP TO 1 ROWS
INTO v_nrseq
* >> Início da exclusão: FORM VERIFICA_ASSOCIACAO
WHERE nrseq_remessa = /pws/zycbe124-nrseq.
ENDSELECT. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
WHERE nrseq_remessa = /pws/zycbe124-nrseq. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
ENDIF.
IF v_nrseq IS INITIAL.
CLEAR p_associado.
ELSE.
p_associado = 'X'.
ENDIF.
ENDFORM.
FORM calcula_base_calculo USING p_vl_remessa
p_tpimp
p_formula
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
AND gsberf = itab_zycbt006-gsberf.
ENDLOOP.
IF NOT itab_zycbt006[] IS INITIAL.
SELECT *
FROM /pws/zycbt209
INTO TABLE itab_zycbt209
FOR ALL ENTRIES IN itab_zycbt006
WHERE nrinvoic = itab_zycbt006-nrinvoic AND
gsberf = itab_zycbt006-gsberf AND
nrparcf = itab_zycbt006-nrparcf AND
* >> Início da exclusão: FORM SELECIONA_ZYCBT030
nrseqc = itab_zycbt006-nrseqc.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ZYCBT030
nrseqc = itab_zycbt006-nrseqc. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc NE 0.
SELECT *
FROM /pws/zycbt209
INTO TABLE itab_zycbt209
FOR ALL ENTRIES IN itab_zycbt006
WHERE nrinvoic = itab_zycbt006-nrinvoic AND
gsberf = itab_zycbt006-gsberf AND
* >> Início da exclusão: FORM SELECIONA_ZYCBT030
nrparcf = itab_zycbt006-nrparcf .
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ZYCBT030
nrparcf = itab_zycbt006-nrparcf. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
FORM lancamento_provisao.
DATA: v_docto LIKE /pws/zycbt030-belnr,
v_chave LIKE /pws/zycbe033-cpochv.
FREE itab_doc_f02.
LOOP AT itab_zycbt006 WHERE v_status EQ 'I' AND
v_armda NE 'X'.
LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt006-nrinvoic
...
...
LOOP AT itab_zycbt006 WHERE v_status NE 'E'.
CLEAR: itab_selreg,
itab_zycet010,
itab_zycet013.
REFRESH: itab_zycet010,
itab_zycet013.
SELECT SINGLE * FROM /pws/zycbt017
WHERE nrinvoic EQ itab_zycbt006-nrinvoic
AND nrparcf EQ itab_zycbt006-nrparcf.
SELECT SINGLE * FROM /pws/zycbt037
* >> Início da exclusão: FORM LIQUIDA_COMISSAO_AGENTE
WHERE parvw EQ /pws/zycbt017-parvw.
* << Fim da exclusão
* >> Início da inclusão: FORM LIQUIDA_COMISSAO_AGENTE
WHERE parvw EQ /pws/zycbt017-parvw. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc NE 0.
IF /pws/zycbt017-parvw EQ 'AD' OR
/pws/zycbt017-parvw EQ 'DA'.
SELECT SINGLE * FROM /pws/zycbt037
WHERE parvw EQ 'AD' OR
* >> Início da exclusão: FORM LIQUIDA_COMISSAO_AGENTE
parvw EQ 'DA'.
* << Fim da exclusão
* >> Início da inclusão: FORM LIQUIDA_COMISSAO_AGENTE
parvw EQ 'DA'. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDIF.
CHECK /pws/zycbt037-codpad EQ 'G' OR /pws/zycbt037-codpad EQ 'D'.
IF /pws/zycet037-comis_provisao IS INITIAL OR
/pws/zycet037-comis_provisao EQ 0.
SELECT *
INTO TABLE itab_zycet010
FROM /pws/zycet010
WHERE nrseq EQ itab_zycbt006-nrinvoic
AND ( dtpagto IS null
...
...
AND status EQ 'C'.
CLEAR: itab_selreg,
itab_zycet010,
itab_zycet013.
REFRESH: itab_zycet010,
itab_zycet013.
SELECT SINGLE * FROM /pws/zycbt017
WHERE nrinvoic EQ itab_zycbt006-nrinvoic
AND nrparcf EQ itab_zycbt006-nrparcf.
SELECT SINGLE * FROM /pws/zycbt037
* >> Início da exclusão: FORM ESTORNA_COMISSAO
WHERE parvw EQ /pws/zycbt017-parvw.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMISSAO
WHERE parvw EQ /pws/zycbt017-parvw. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc NE 0.
IF /pws/zycbt017-parvw EQ 'AD' OR
/pws/zycbt017-parvw EQ 'DA'.
SELECT SINGLE * FROM /pws/zycbt037
WHERE parvw EQ 'AD' OR
* >> Início da exclusão: FORM ESTORNA_COMISSAO
parvw EQ 'DA'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMISSAO
parvw EQ 'DA'. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDIF.
CHECK /pws/zycbt037-codpad EQ 'G' OR /pws/zycbt037-codpad EQ 'D'.
IF /pws/zycet037-comis_provisao IS INITIAL OR
/pws/zycet037-comis_provisao EQ 0.
SELECT *
INTO TABLE itab_zycet010
FROM /pws/zycet010
WHERE nrseq EQ itab_zycbt006-nrinvoic
AND ( dtpagto NE ' ' OR
...
...
AND status EQ 'C'.
CLEAR: itab_selreg,
itab_zycet010,
itab_zycet013.
REFRESH: itab_zycet010,
itab_zycet013.
SELECT SINGLE * FROM /pws/zycbt017
WHERE nrinvoic EQ itab_zycbt006-nrinvoic
AND nrparcf EQ itab_zycbt006-nrparcf.
SELECT SINGLE * FROM /pws/zycbt037
* >> Início da exclusão: FORM ESTORNA_COMIS_T
WHERE parvw EQ /pws/zycbt017-parvw.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMIS_T
WHERE parvw EQ /pws/zycbt017-parvw. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc NE 0.
IF /pws/zycbt017-parvw EQ 'AD' OR
/pws/zycbt017-parvw EQ 'DA'.
SELECT SINGLE * FROM /pws/zycbt037
WHERE parvw EQ 'AD' OR
* >> Início da exclusão: FORM ESTORNA_COMIS_T
parvw EQ 'DA'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMIS_T
parvw EQ 'DA'. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDIF.
CHECK /pws/zycbt037-codpad EQ 'G' OR /pws/zycbt037-codpad EQ 'D'.
SELECT *
INTO TABLE itab_zycet010
FROM /pws/zycet010
WHERE nrseq EQ itab_zycbt006-nrinvoic
AND ( dtpagto NE ' ' OR
dtpagto NE '00000000' ).
LOOP AT itab_zycet010.
...
...
IF v_cta_bloq = 'S'.
EXIT.
ENDIF.
ENDIF.
IF wa_zycbt007-liq_com_cg NE 'RP'.
SELECT SINGLE * FROM /pws/zycbt017
WHERE nrinvoic = itab_zycbt006-nrinvoic AND
nrparcf = itab_zycbt006-nrparcf AND
gsberf = itab_zycbt006-gsberf.
SELECT SINGLE * FROM /pws/zycbt037
* >> Início da exclusão: FORM VERIF_CONTAS
WHERE parvw EQ /pws/zycbt017-parvw.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_CONTAS
WHERE parvw EQ /pws/zycbt017-parvw. "#EC CI_NOFIRST
* << Fim da inclusão
IF /pws/zycbt037-codpad EQ 'G' OR /pws/zycbt037-codpad EQ 'D'.
SELECT *
INTO TABLE itab_zycet010
FROM /pws/zycet010
WHERE nrseq EQ itab_zycbt006-nrinvoic
AND ( dtpagto IS null
OR dtpagto EQ ' '
OR dtpagto EQ '00000000' ).
IF sy-subrc EQ 0.
LOOP AT itab_zycet010.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
SELECT
bukrs nrinvoic belnr dtincl gsberf nrparcf saldo belnr2 dtbelnr
koart umskz hkont
FROM /pws/zycbt209
INTO TABLE p_itab_zycbt209
FOR ALL ENTRIES IN p_itab_vinculacao
WHERE
nrinvoic EQ p_itab_vinculacao-nrinvoic AND
gsberf EQ p_itab_vinculacao-gsberf AND
nrparcf EQ p_itab_vinculacao-nrparcf AND
* >> Início da exclusão: FORM SELECIONA_LIQUIDACAO_ANDAMENTO
saldo GT 0.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_LIQUIDACAO_ANDAMENTO
saldo GT 0. "#EC CI_NOFIRST
* << Fim da inclusão
ENDFORM.
FORM seleciona_vinculacao
USING
p_itab_vinculacao TYPE t_itab_vinculacao
CHANGING
p_itab_zycbt069 TYPE t_itab_zycbt069.
CHECK
NOT p_itab_vinculacao IS INITIAL AND
( /pws/zycbe001-tpcontr(01) EQ 'P' OR
/pws/zycbe001-tpcontr(01) EQ 'S' ).
...
...
AND gsberf = itab_zycbt005-gsberf
AND sld_exterior GT 0.
IF sy-subrc EQ 0.
SELECT *
FROM /pws/zycbt209
INTO TABLE it_zycbt209
FOR ALL ENTRIES IN it_zycbt226
WHERE nrinvoic = it_zycbt226-nrinvoic
AND nrparcf = it_zycbt226-nrparcf
AND gsberf = it_zycbt226-gsberf
* >> Início da exclusão: FORM SELECAO_FATURAS
AND saldo GT 0.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECAO_FATURAS
AND saldo GT 0. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT *
FROM /pws/zycbt030
INTO TABLE it_zycbt030
FOR ALL ENTRIES IN it_zycbt226
WHERE nrinvoic = it_zycbt226-nrinvoic
AND nrparcf = it_zycbt226-nrparcf
AND gsberf = it_zycbt226-gsberf
AND vlsltrans GT 0.
LOOP AT it_zycbt226.
CLEAR: v_209, v_030.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004O01
...
v_nome_campo,
v_comp.
IF sy-dynnr EQ '0100'.
v_cod_grupo = 'CCO'.
ENDIF.
SELECT campo flag
FROM /pws/zyglt320
INTO TABLE itab_t320
WHERE programa = sy-repid AND
tela = sy-dynnr AND
* >> Início da exclusão: MODULE TRATA_TBCONTROL
cod_grupo = v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_TBCONTROL
cod_grupo = v_cod_grupo. "#EC CI_NOFIRST
* << Fim da inclusão
SORT itab_t320 BY campo.
LOOP AT SCREEN.
itab_nome_campo-nome_campo_tela = screen-name.
APPEND itab_nome_campo.
ENDLOOP.
SORT itab_nome_campo.
LOOP AT itab_t320.
CONCATENATE '.' itab_t320-campo '.' INTO v_comp.
SEARCH itab_nome_campo FOR v_comp STARTING AT 1.
IF sy-subrc EQ 0.
...
...
IF sy-dynnr EQ '0100' .
v_cod_grupo = 'CCO'.
ELSEIF sy-dynnr EQ '0101'.
v_cod_grupo = 'CCR'.
ENDIF.
SELECT campo flag
FROM /pws/zyglt320
INTO TABLE itab_t320
WHERE programa = sy-repid AND
tela = sy-dynnr AND
* >> Início da exclusão: MODULE TRATA_CAMPOS
cod_grupo = v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_CAMPOS
cod_grupo = v_cod_grupo. "#EC CI_NOFIRST
* << Fim da inclusão
SORT itab_t320 BY campo.
LOOP AT SCREEN.
itab_nome_campo-nome_campo_tela = screen-name.
APPEND itab_nome_campo.
ENDLOOP.
SORT itab_nome_campo.
LOOP AT itab_t320.
CONCATENATE '.' itab_t320-campo '.' INTO v_comp.
SEARCH itab_nome_campo FOR v_comp STARTING AT 1.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB005F01
...
CLEAR: v_prazo, v_ok.
READ TABLE itab_zycbt017 INDEX 1.
IF /pws/zycbe017-dtvencto NE itab_zycbt017-dtvencto.
/pws/zycbe017-prazo = /pws/zycbe017-dtbl - /pws/zycbe017-dtvencto.
v_prazo = /pws/zycbe017-prazo.
v_ok = 'X'.
SELECT *
FROM /pws/zycbt005
UP TO 1 ROWS
WHERE nrinvoic EQ itab_zycbt017-nrinvoic AND
* >> Início da exclusão: FORM ALTERA_ITAB_ZYCBT017
nrparcf EQ itab_zycbt017-nrparcf.
ENDSELECT. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_ITAB_ZYCBT017
nrparcf EQ itab_zycbt017-nrparcf. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT *
FROM /pws/zycbt006
UP TO 1 ROWS
WHERE nrinvoic EQ itab_zycbt017-nrinvoic AND
* >> Início da exclusão: FORM ALTERA_ITAB_ZYCBT017
nrparcf EQ itab_zycbt017-nrparcf.
ENDSELECT. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_ITAB_ZYCBT017
nrparcf EQ itab_zycbt017-nrparcf. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE i289 WITH itab_zycbt017-nrinvoic text-086.
ELSE.
MESSAGE i289 WITH itab_zycbt017-nrinvoic text-085.
ENDIF.
ENDIF.
ENDIF.
itab_zycbt017-dtvencto = /pws/zycbe017-dtvencto.
itab_zycbt017-bconegoc = /pws/zycbe017-bconegoc.
itab_zycbt017-dtnegocd = /pws/zycbe017-dtnegocd.
...
...
IF sy-subrc NE 0.
APPEND itab_zycbt045.
ENDIF.
ENDFORM.
FORM carrega_itab_zycbt005.
SELECT *
UP TO 1 ROWS
INTO itab_zycbt005
FROM /pws/zycbt005
WHERE nrinvoic = itab_zycbt017-nrinvoic AND
* >> Início da exclusão: FORM CARREGA_ITAB_ZYCBT005
nrparcf = itab_zycbt017-nrparcf.
ENDSELECT. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_ITAB_ZYCBT005
nrparcf = itab_zycbt017-nrparcf. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
v_ok05 = 'X'.
ENDIF.
ENDFORM.
FORM carrega_itab_zycbt004.
SELECT *
UP TO 1 ROWS
INTO itab_zycbt004
FROM /pws/zycbt004
WHERE nrinvoic = itab_zycbt017-nrinvoic AND
* >> Início da exclusão: FORM CARREGA_ITAB_ZYCBT004
nrparcf = itab_zycbt017-nrparcf.
ENDSELECT. "#EC CI_NOFIELD
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_ITAB_ZYCBT004
nrparcf = itab_zycbt017-nrparcf. "#EC CI_NOFIELD
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0 AND itab_zycbt004-dtpagto EQ '00000000 '.
v_ok04 = 'X'.
ENDIF.
ENDFORM.
FORM carrega_zycbe001.
SELECT *
UP TO 1 ROWS
FROM /pws/zycbt001 INTO /pws/zycbe001
WHERE nrseqc = itab_zycbt005-nrseqc.
ENDSELECT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB005O01
...
tc_contrato-lines = v_lines1.
ENDMODULE.
MODULE texto_descritivo OUTPUT.
CLEAR: v_txtmoeda, v_txtpais, v_txtcom, v_txtbcon.
IF NOT /pws/zycbe017-waers IS INITIAL.
SELECT ltext
UP TO 1 ROWS
INTO (tcurt-ltext)
FROM tcurt
WHERE spras EQ sy-langu AND
* >> Início da exclusão: MODULE TEXTO_DESCRITIVO
waers EQ /pws/zycbe017-waers.
ENDSELECT. "#EC CI_SGLSELECT
* << Fim da exclusão
* >> Início da inclusão: MODULE TEXTO_DESCRITIVO
waers EQ /pws/zycbe017-waers. "#EC CI_SGLSELECT
ENDSELECT.
* << Fim da inclusão
v_txtmoeda = tcurt-ltext.
ENDIF.
IF NOT /pws/zycbe017-land1 IS INITIAL.
SELECT *
UP TO 1 ROWS
FROM t005t
WHERE spras EQ sy-langu AND
land1 EQ /pws/zycbe017-land1.
ENDSELECT.
v_txtpais = t005t-landx.
ENDIF.
IF NOT /pws/zycbe017-parvw IS INITIAL.
SELECT txtdesc
UP TO 1 ROWS
INTO (/pws/zycbt037-txtdesc)
FROM /pws/zycbt037
* >> Início da exclusão: MODULE TEXTO_DESCRITIVO
WHERE parvw EQ /pws/zycbe017-parvw.
ENDSELECT. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: MODULE TEXTO_DESCRITIVO
WHERE parvw EQ /pws/zycbe017-parvw. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
v_txtcom = /pws/zycbt037-txtdesc.
ENDIF.
IF NOT /pws/zycbe017-banco IS INITIAL.
SELECT lifnr name1
UP TO 1 ROWS
INTO (lfa1-lifnr, lfa1-name1)
FROM lfa1
WHERE lifnr EQ /pws/zycbe017-banco.
ENDSELECT.
v_txtbcon = lfa1-name1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012F01
...
ENDIF.
CLEAR wa_zycbt011.
SELECT * FROM /pws/zycbt011
UP TO 1 ROWS
INTO wa_zycbt011
WHERE codeven = v_codevenj
AND codmod = 'E'.
ENDSELECT.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
* >> Início da exclusão: FORM GET_PARAMETERS_F-02
WHERE codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F-02
WHERE codmod = 'E'. "#EC CI_NOFIRST
* << Fim da inclusão
IF /pws/zycbt004-tpcontr = 'A'.
IF wa_zycbt007-fprovisao = ' '.
v_ktosl = 'DSE'.
CLEAR v_codaux1.
IF /pws/zyglt009-provjur_moeda = 'X' AND
/pws/zycbt004-waers = wa_zycbt007-waersa.
CONCATENATE /pws/zycbt004-tpdesp wa_zycbt007-waersa
INTO v_codaux1 SEPARATED BY space.
ELSE.
v_codaux1 = /pws/zycbt004-tpdesp.
...
...
ENDIF.
CLEAR wa_zycbt011.
SELECT * FROM /pws/zycbt011
INTO wa_zycbt011
UP TO 1 ROWS
WHERE codeven = v_codevenj
AND codmod = 'E'.
ENDSELECT.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
* >> Início da exclusão: FORM GET_PARAMETERS_F-02_AUX
WHERE codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F-02_AUX
WHERE codmod = 'E'. "#EC CI_NOFIRST
* << Fim da inclusão
IF wa_zycbt007-fprovisao = ' '.
v_ktosl = 'DSE'.
CLEAR v_codaux1.
IF /pws/zyglt009-provjur_moeda = 'X' AND
/pws/zycbt004-waers = wa_zycbt007-waersa.
CONCATENATE /pws/zycbt004-tpdesp wa_zycbt007-waersa
INTO v_codaux1 SEPARATED BY space.
ELSE.
v_codaux1 = /pws/zycbt004-tpdesp.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB013F02
...
( /pws/zycbe040-dtate IS INITIAL ) AND
( NOT /pws/zycbe040-corret IS INITIAL ) AND
( NOT /pws/zycbe040-bukrs IS INITIAL ).
PERFORM seleciona_3.
ENDIF.
PERFORM processa_dados.
ENDFORM.
FORM seleciona_1.
SELECT * FROM /pws/zycbt001 INTO TABLE itab_zycbt001_aux
WHERE corret EQ /pws/zycbe040-corret AND
* >> Início da exclusão: FORM SELECIONA_1
bukrs EQ /pws/zycbe040-bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_1
bukrs EQ /pws/zycbe040-bukrs. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc <> 0.
v_sel001 = 'N'.
ENDIF.
IF sy-subrc = 0.
LOOP AT itab_zycbt001_aux.
IF itab_zycbt001_aux-fdtlanc EQ 'C'.
IF ( itab_zycbt001_aux-dtcred >= /pws/zycbe040-dtde ) AND
( itab_zycbt001_aux-dtcred <= /pws/zycbe040-dtate ).
APPEND itab_zycbt001_aux TO itab_zycbt001.
ENDIF.
...
...
IF sy-subrc EQ 0.
MOVE lfa1-name1 TO v_corret.
ELSE.
v_corret = ''.
ENDIF.
ENDIF.
ENDFORM.
FORM seleciona_3.
SELECT * FROM /pws/zycbt001 INTO TABLE itab_zycbt001_aux
WHERE corret EQ /pws/zycbe040-corret AND
* >> Início da exclusão: FORM SELECIONA_3
bukrs EQ /pws/zycbe040-bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_3
bukrs EQ /pws/zycbe040-bukrs. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc <> 0.
v_sel001 = 'N'.
ENDIF.
IF sy-subrc = 0.
LOOP AT itab_zycbt001_aux.
APPEND itab_zycbt001_aux TO itab_zycbt001.
ENDLOOP.
ENDIF.
SELECT * FROM /pws/zycbt031 INTO TABLE itab_zycbt031
WHERE corret EQ /pws/zycbe040-corret AND
...
...
ENDIF.
ENDFORM.
FORM processa_dados.
CLEAR v_erro.
IF ( v_sel001 EQ 'N' ) AND ( v_sel031 EQ 'N' ).
MESSAGE s222.
EXIT.
ENDIF.
PERFORM find_nrseq.
LOOP AT itab_zycbt001.
* >> Início da exclusão: FORM PROCESSA_DADOS
SELECT SINGLE * FROM /pws/zycbt041
WHERE nrseqc = itab_zycbt001-nrseqc.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_DADOS
SELECT *
UP TO 1 ROWS
FROM /pws/zycbt041
WHERE nrseqc = itab_zycbt001-nrseqc. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
IF sy-subrc <> 0.
CLEAR itab_zycbt041.
MOVE: v_nseq TO itab_zycbt041-nrseq ,
itab_zycbt001-nrseqc TO itab_zycbt041-nrseqc ,
itab_zycbt001-nrcontr TO itab_zycbt041-nrcontr ,
'E' TO itab_zycbt041-mdcorresp,
text-014 TO itab_zycbt041-tpcontr ,
itab_zycbt001-txcneg TO itab_zycbt041-kursf ,
itab_zycbt001-bconegoc TO itab_zycbt041-compvend ,
itab_zycbt001-waers TO itab_zycbt041-waers ,
...
...
ENDIF.
PERFORM calcula_corretagem_001.
APPEND itab_zycbt041.
ENDIF.
ENDLOOP.
IF v_erro = 'X'.
MESSAGE w222.
EXIT.
ENDIF.
LOOP AT itab_zycbt031.
* >> Início da exclusão: FORM PROCESSA_DADOS
SELECT SINGLE * FROM /pws/zycbt041
WHERE nrseqc = itab_zycbt031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_DADOS
SELECT *
UP TO 1 ROWS
FROM /pws/zycbt041
WHERE nrseqc = itab_zycbt031-nrseq. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
IF sy-subrc <> 0.
CLEAR itab_zycbt041.
MOVE: v_nseq TO itab_zycbt041-nrseq ,
itab_zycbt031-nrseq TO itab_zycbt041-nrseqc ,
itab_zycbt031-nrcorresp TO itab_zycbt041-nrcontr ,
itab_zycbt031-mdcorresp TO itab_zycbt041-mdcorresp,
itab_zycbt031-dtboleto TO itab_zycbt041-dtcambio ,
itab_zycbt031-tipo TO itab_zycbt041-tpcontr ,
itab_zycbt031-bcooper TO itab_zycbt041-compvend ,
itab_zycbt031-waers TO itab_zycbt041-waers ,
...
...
'BLART'
text-005.
itab_zycbe033-blart = itab_zycbt011-blart.
PERFORM verify_null_field USING /pws/zycbe040-vlmitot
'VLMITOT'
text-003.
itab_zycbe033-wrbtr = /pws/zycbe040-vlmitot.
itab_zycbe033-d_gsber = /pws/zycbe040-gsber.
itab_zycbe033-c_gsber = /pws/zycbe040-gsber.
itab_zycbe033-d_kostl = /pws/zycbe040-kostl.
* >> Início da exclusão: FORM FILL_DATE_F63
CALL CUSTOMER-FUNCTION '001'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_63B'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
...
...
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 3.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-63'
tabela = '/PWS/ZYCBT040'
cpochv = /pws/zycbe040-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM FILL_DATE_F63
CALL CUSTOMER-FUNCTION '005'.
* << Fim da exclusão
MESSAGE i057 WITH itab_zycbt032-belnr.
/pws/zycbe040-belnr_p = itab_zycbt032-belnr.
/pws/zycbe040-statusp = 'P'.
SELECT * FROM /pws/zycbt133
INTO TABLE itab_zycbt133
WHERE bukrs = /pws/zycbe040-bukrs.
READ TABLE itab_zycbt133 WITH KEY codmod = 'E'.
IF sy-subrc = 0.
IF itab_zycbt133-vaprov = 'X'.
PERFORM executa_aprovacao.
...
...
DATA: v_belnr_ant LIKE /pws/zycbe040-belnr_p.
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = '/PWS/ZYCBT040'.
itab_zycbe033-cpochv = /pws/zycbe040-nrseq.
itab_zycbe033-belnr = /pws/zycbe040-belnr_p.
itab_zycbe033-bukrs = /pws/zycbe040-bukrs.
itab_zycbe033-budat = v_dtpagtoant.
itab_zycbe033-gjahs = v_dtpagtoant+0(4).
v_belnr_ant = /pws/zycbe040-belnr_p.
itab_zycbe033-stgrd = '01'.
* >> Início da exclusão: FORM ESTORNA_DOC
CALL CUSTOMER-FUNCTION '002'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_FB08'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = '/PWS/ZYCBT040'
cpochv = /pws/zycbe040-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM ESTORNA_DOC
CALL CUSTOMER-FUNCTION '006'.
* << Fim da exclusão
MESSAGE i030 WITH v_belnr_ant.
v_estorno = 'X'.
CLEAR v_dtpagtoant.
/pws/zycbe040-belnr_p = ' '.
/pws/zycbe040-statusp = ' '.
MOVE: /pws/zycbe040-belnr_p TO itab_zycbt040-belnr_p,
/pws/zycbe040-statusp TO itab_zycbt040-statusp.
MODIFY itab_zycbt040 INDEX v_nseq TRANSPORTING belnr_p statusp.
MODIFY /pws/zycbt040 FROM itab_zycbt040.
v_exec_f63 = 'S'.
...
...
PERFORM get_parameters.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FBV0'.
itab_zycbe033-tabela = '/PWS/ZYCBT040'.
itab_zycbe033-cpochv = /pws/zycbe040-nrseq.
itab_zycbe033-belnr = /pws/zycbe040-belnr_p.
itab_zycbe033-bukrs = /pws/zycbe040-bukrs.
itab_zycbe033-bldat = v_dtpagtoant.
itab_zycbe033-bktxt = /pws/zycbt007-bktxt.
itab_zycbe033-xblnr = /pws/zycbe040-nrseq.
* >> Início da exclusão: FORM ESTORNA_DOC_F63P
CALL CUSTOMER-FUNCTION '003'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_FBV0'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FBV0'
tabela = '/PWS/ZYCBT040'
cpochv = /pws/zycbe040-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM ESTORNA_DOC_F63P
CALL CUSTOMER-FUNCTION '007'.
* << Fim da exclusão
MESSAGE i030 WITH v_belnr.
v_estorno = 'X'.
/pws/zycbe040-belnr_p = ' '.
/pws/zycbe040-statusp = ' '.
CLEAR v_dtpagtoant.
MOVE: /pws/zycbe040-belnr_p TO itab_zycbt040-belnr_p,
/pws/zycbe040-statusp TO itab_zycbt040-statusp.
MODIFY itab_zycbt040 INDEX v_nseq TRANSPORTING belnr_p statusp.
MODIFY /pws/zycbt040 FROM itab_zycbt040.
v_exec_f63 = 'S'.
...
...
FORM executa_aprovacao.
PERFORM clear_date_batch.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FBV0'.
itab_zycbe033-tabela = '/PWS/ZYCBT040'.
itab_zycbe033-cpochv = /pws/zycbe040-nrseq.
itab_zycbe033-belnr = /pws/zycbe040-belnr_p.
itab_zycbe033-bukrs = /pws/zycbe040-bukrs.
itab_zycbe033-zlspr = ''.
itab_zycbe033-bldat = /pws/zycbe040-dtpagto.
* >> Início da exclusão: FORM EXECUTA_APROVACAO
CALL CUSTOMER-FUNCTION '004'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
CALL FUNCTION '/PWS/ZYGL_TRANSACAO_FBV0_A'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FBV0'
tabela = '/PWS/ZYCBT040'
cpochv = /pws/zycbe040-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM EXECUTA_APROVACAO
CALL CUSTOMER-FUNCTION '008'.
* << Fim da exclusão
SELECT SINGLE * FROM bkpf
WHERE bukrs EQ itab_zycbe033-bukrs
AND belnr EQ /pws/zycbe040-belnr_p
AND gjahr EQ /pws/zycbe040-dtpagto+0(4)
AND bstat EQ 'V'.
IF sy-subrc EQ 0.
MESSAGE i248.
EXIT.
ENDIF.
/pws/zycbe040-statusp = 'C'.
COMMIT WORK.
MESSAGE i211 WITH /pws/zycbe040-belnr_p.
ENDIF.
ENDIF.
ENDFORM.
FORM modo_exec_batch.
CLEAR: /pws/zycbt039, itab_modo.
REFRESH: itab_modo.
* >> Início da exclusão: FORM MODO_EXEC_BATCH
SELECT * FROM /pws/zycbt039.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_EXEC_BATCH
SELECT * FROM /pws/zycbt039. "#EC CI_NOWHERE
* << Fim da inclusão
itab_modo-selflag = /pws/zycbt039-modo.
itab_modo-varoption = /pws/zycbt039-descr.
APPEND itab_modo.
ENDSELECT.
SORT itab_modo DESCENDING.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-006
textline2 = text-007
titel = text-008
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB013I01
...
WHEN 'IMPRIMIR'.
PERFORM imp_list.
WHEN 'CS'.
PERFORM drill_down_doc.
WHEN 'MODO'.
PERFORM modo_exec_batch.
WHEN 'SPEC'.
IF NOT v_tcodebotao IS INITIAL.
CALL TRANSACTION v_tcodebotao.
ELSE.
* >> Início da exclusão: MODULE USER_COMMAND_0200
CALL CUSTOMER-FUNCTION '009'.
* << Fim da exclusão
ENDIF.
WHEN OTHERS.
ENDCASE.
WHEN OTHERS.
ENDCASE.
CLEAR okcode.
ENDMODULE.
MODULE atualiza_itab INPUT.
itab_zycbt040-nrseq = /pws/zycbe040-nrseq .
itab_zycbt040-dtincl = /pws/zycbe040-dtincl .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB028O01
...
IF SY-DYNNR EQ '0102'.
V_COD_GRUPO = 'CCO'.
ELSEIF SY-DYNNR EQ '0103'.
V_COD_GRUPO = 'CCR'.
ENDIF.
SELECT CAMPO FLAG
FROM /PWS/ZYGLT320
INTO TABLE ITAB_T320
WHERE PROGRAMA = SY-REPID AND
TELA = SY-DYNNR AND
* >> Início da exclusão: MODULE TRATA_CAMPOS
COD_GRUPO = V_COD_GRUPO.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_CAMPOS
COD_GRUPO = V_COD_GRUPO. "#EC CI_NOFIRST
* << Fim da inclusão
SORT ITAB_T320 BY CAMPO.
LOOP AT SCREEN.
ITAB_NOME_CAMPO-NOME_CAMPO_TELA = SCREEN-NAME.
APPEND ITAB_NOME_CAMPO.
ENDLOOP.
SORT ITAB_NOME_CAMPO.
LOOP AT ITAB_T320.
CONCATENATE '.' ITAB_T320-CAMPO '.' INTO V_COMP.
SEARCH ITAB_NOME_CAMPO FOR V_COMP STARTING AT 1.
IF SY-SUBRC EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB030F01
...
FOR ALL ENTRIES IN itab_zycbt096
WHERE vbeln_va = itab_zycbt096-vbeln_va.
DELETE ADJACENT DUPLICATES FROM itab_zycet002
COMPARING nrseq vbeln_va.
ELSE.
SELECT nrseq vbeln_va vbeln_vf posnr docnum
vbeln_vl posnl aupos shkzg vlme
FROM /pws/zycet002
INTO TABLE itab_zycet002
FOR ALL ENTRIES IN itab_zycbt096
* >> Início da exclusão: FORM SELECIONA_DADOS
WHERE vbeln_vl = itab_zycbt096-vbeln_va.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
WHERE vbeln_vl = itab_zycbt096-vbeln_va. "#EC CI_NOFIRST
* << Fim da inclusão
DELETE ADJACENT DUPLICATES FROM itab_zycet002
COMPARING nrseq vbeln_vl.
ENDIF.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycet014
INTO TABLE itab_zycet014
FOR ALL ENTRIES IN itab_zycet002
WHERE nrseq = itab_zycet002-nrseq.
SELECT * FROM /pws/zycet001
INTO TABLE itab_zycet001
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB030I01
...
INTO TABLE itab_zycet002
FOR ALL ENTRIES IN itab_zycbt096
WHERE vbeln_va = itab_zycbt096-vbeln_va.
DELETE ADJACENT DUPLICATES FROM itab_zycet002
COMPARING nrseq vbeln_va.
ELSE.
SELECT nrseq vbeln_va vbeln_vf posnr docnum
vbeln_vl posnl aupos shkzg vlme FROM /pws/zycet002
INTO TABLE itab_zycet002
FOR ALL ENTRIES IN itab_zycbt096
* >> Início da exclusão: MODULE SELECIONA_ZYCET002
WHERE vbeln_vl = itab_zycbt096-vbeln_va.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_ZYCET002
WHERE vbeln_vl = itab_zycbt096-vbeln_va. "#EC CI_NOFIRST
* << Fim da inclusão
DELETE ADJACENT DUPLICATES FROM itab_zycet002
COMPARING nrseq vbeln_vl.
ENDIF.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycet014
INTO TABLE itab_zycet014
FOR ALL ENTRIES IN itab_zycet002
WHERE nrseq = itab_zycet002-nrseq.
SELECT * FROM /pws/zycet001
INTO TABLE itab_zycet001
...
...
INTO TABLE itab_zycbt005
FOR ALL ENTRIES IN itab_nrseq
WHERE nrinvoic EQ itab_nrseq-nrinvoic. "#EC CI_NOFIRST
SELECT * FROM /pws/zycbt006
INTO TABLE itab_zycbt006
FOR ALL ENTRIES IN itab_nrseq
WHERE nrinvoic = itab_nrseq-nrinvoic. "#EC CI_NOFIRST
SELECT * FROM /pws/zycbt209
INTO TABLE itab_zycbt209
FOR ALL ENTRIES IN itab_nrseq
* >> Início da exclusão: MODULE SELECIONA_ZYCET002
WHERE nrinvoic = itab_nrseq-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_ZYCET002
WHERE nrinvoic = itab_nrseq-nrinvoic. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDIF.
ELSEIF NOT itab_zycbt161[] IS INITIAL.
IF v_ordven = 'X' OR v_iteov = 'X'.
SELECT nrseq vbeln_va vbeln_vf posnr docnum
vbeln_vl posnl aupos shkzg vlme FROM /pws/zycet002
INTO TABLE itab_zycet002
FOR ALL ENTRIES IN itab_zycbt161
WHERE vbeln_va = itab_zycbt161-vbeln_va.
ELSE.
SELECT nrseq vbeln_va vbeln_vf posnr docnum
vbeln_vl posnl aupos shkzg vlme FROM /pws/zycet002
INTO TABLE itab_zycet002
FOR ALL ENTRIES IN itab_zycbt161
* >> Início da exclusão: MODULE SELECIONA_ZYCET002
WHERE vbeln_vl = itab_zycbt161-vbeln_va.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_ZYCET002
WHERE vbeln_vl = itab_zycbt161-vbeln_va. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
DELETE ADJACENT DUPLICATES FROM itab_zycet002
COMPARING nrseq vbeln_va.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycet014
INTO TABLE itab_zycet014
FOR ALL ENTRIES IN itab_zycet002
WHERE nrseq = itab_zycet002-nrseq.
SELECT * FROM /pws/zycet001
INTO TABLE itab_zycet001
...
...
INTO TABLE itab_zycbt005
FOR ALL ENTRIES IN itab_nrseq
WHERE nrinvoic EQ itab_nrseq-nrinvoic. "#EC CI_NOFIRST
SELECT * FROM /pws/zycbt006
INTO TABLE itab_zycbt006
FOR ALL ENTRIES IN itab_nrseq
WHERE nrinvoic = itab_nrseq-nrinvoic. "#EC CI_NOFIRST
SELECT * FROM /pws/zycbt209
INTO TABLE itab_zycbt209
FOR ALL ENTRIES IN itab_nrseq
* >> Início da exclusão: MODULE SELECIONA_ZYCET002
WHERE nrinvoic = itab_nrseq-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_ZYCET002
WHERE nrinvoic = itab_nrseq-nrinvoic. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
SORT itab_zycet002 BY nrseq.
SORT: itab_zycet014 BY nrseq,
itab_zycet014_aux BY nrseq.
IF NOT itab_zycet014_aux[] IS INITIAL.
LOOP AT itab_zycet002.
READ TABLE itab_zycet014_aux
WITH KEY nrseq = itab_zycet002-nrseq
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB030O01
...
IF sy-dynnr EQ '0111' .
v_cod_grupo = 'CCO'.
ELSEIF sy-dynnr EQ '0112'.
v_cod_grupo = 'CCR'.
ENDIF.
SELECT campo flag
FROM /pws/zyglt320
INTO TABLE itab_t320
WHERE programa = sy-repid AND
tela = sy-dynnr AND
* >> Início da exclusão: MODULE TRATA_CAMPOS
cod_grupo = v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_CAMPOS
cod_grupo = v_cod_grupo. "#EC CI_NOFIRST
* << Fim da inclusão
SORT itab_t320 BY campo.
LOOP AT SCREEN.
itab_nome_campo-nome_campo_tela = screen-name.
APPEND itab_nome_campo.
ENDLOOP.
SORT itab_nome_campo.
LOOP AT itab_t320.
CONCATENATE '.' itab_t320-campo '.' INTO v_comp.
SEARCH itab_nome_campo FOR v_comp STARTING AT 1.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB033F01
...
IF p_field IS INITIAL.
itab_zycbt034-campo = p_fieldname.
itab_zycbt034-descricao = p_description.
APPEND itab_zycbt034.
ENDIF.
ENDFORM.
FORM command_modo.
DATA: wa_zycbt039 LIKE /pws/zycbt039.
CLEAR: itab_modo.
REFRESH: itab_modo.
* >> Início da exclusão: FORM COMMAND_MODO
SELECT * FROM /pws/zycbt039 INTO wa_zycbt039.
* << Fim da exclusão
* >> Início da inclusão: FORM COMMAND_MODO
SELECT * FROM /pws/zycbt039 INTO wa_zycbt039. "#EC CI_NOWHERE
* << Fim da inclusão
itab_modo-selflag = wa_zycbt039-modo.
itab_modo-varoption = wa_zycbt039-descr.
APPEND itab_modo.
ENDSELECT.
SORT itab_modo DESCENDING.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-036
textline2 = text-037
titel = text-038
...
...
v_saldo_liq LIKE /pws/zycbt219-saldo_liq.
SELECT SINGLE saldo_liq FROM /pws/zycbt219 INTO v_saldo_liq
WHERE bukrs = itab_zycbt219-bukrs AND
nrinvoic = itab_zycbt219-nrinvoic AND
belnr = itab_zycbt219-belnr AND
dtincl = itab_zycbt219-dtincl AND
gsberf = itab_zycbt219-gsberf AND
nrparcf = itab_zycbt219-nrparcf.
SELECT * FROM /pws/zycbt006
UP TO 1 ROWS
* >> Início da exclusão: FORM PROC_ESTORNO
WHERE nrinvoic EQ itab_zycbt219-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM PROC_ESTORNO
WHERE nrinvoic EQ itab_zycbt219-nrinvoic. "#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycbt005
UP TO 1 ROWS
* >> Início da exclusão: FORM PROC_ESTORNO
WHERE nrinvoic EQ itab_zycbt219-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM PROC_ESTORNO
WHERE nrinvoic EQ itab_zycbt219-nrinvoic. "#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
ENDIF.
IF sy-subrc EQ 0.
IF itab_zycbt219-saldo NE itab_zycbt219-vlme AND
v_saldo_liq EQ 0.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCBM'
msgty = 'S'
msgv1 = text-056
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB104F01
...
IF sy-tcode EQ '/PWS/ZYCB104_C'.
CLEAR /pws/zycme003-dtemb.
CLEAR itab_zycmt003.
REFRESH itab_zycmt003.
ENDIF.
ENDFORM.
FORM consiste_dados_banco_agencia.
SELECT bankl UP TO 1 ROWS
FROM lfbk
INTO lfbk-bankl
* >> Início da exclusão: FORM CONSISTE_DADOS_BANCO_AGENCIA
WHERE bankl = itab_zycmt003-bankl.
ENDSELECT. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_DADOS_BANCO_AGENCIA
WHERE bankl = itab_zycmt003-bankl. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
ENDFORM.
FORM seleciona_dados_comissao.
SELECT * FROM /pws/zycmt003
INTO TABLE itab_zycmt003
WHERE nrseq EQ /pws/zycbe117-nrseq.
MOVE: itab_zycmt003[] TO itab_zycmt003_aux[].
READ TABLE itab_zycmt003 INDEX 1.
/pws/zycme003-dtemb = itab_zycmt003-dtemb.
ENDFORM.
FORM lock_record.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL008F01
...
ENDIF.
ELSE.
MESSAGE i000 WITH text-011.
ENDIF.
ENDFORM.
FORM busca_grupo.
IF /pws/zygle309 IS INITIAL.
SELECT * FROM /pws/zyglt313
UP TO 1 ROWS
INTO wa_zyglt313
* >> Início da exclusão: FORM BUSCA_GRUPO
WHERE tcode EQ sy-tcode.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_GRUPO
WHERE tcode EQ sy-tcode. "#EC CI_NOFIRST
* << Fim da inclusão
endselect.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zyglt309 INTO /pws/zygle309
WHERE grupp EQ wa_zyglt313-grupp.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zyglt310
UP TO 1 ROWS
INTO /pws/zygle310
* >> Início da exclusão: FORM BUSCA_GRUPO
WHERE grupp EQ /pws/zygle309-grupp.
endselect. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_GRUPO
WHERE grupp EQ /pws/zygle309-grupp. "#EC CI_NOFIRST
endselect.
* << Fim da inclusão
CLEAR itab_zygle312. REFRESH itab_zygle312.
SELECT * FROM /pws/zyglt312 INTO TABLE itab_zygle312
WHERE grupp EQ /pws/zygle309-grupp.
IF sy-subrc EQ 0.
CLEAR itab_zygle311. REFRESH itab_zygle311.
SELECT * FROM /pws/zyglt311 INTO TABLE itab_zygle311
FOR ALL ENTRIES IN itab_zygle312
WHERE ktosl EQ itab_zygle312-ktosl
AND spras EQ sy-langu.
SORT itab_zygle312 BY ktosl.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL013F02
...
MESSAGE i061 WITH text-035 text-036 text-037.
EXIT.
ENDIF.
LOOP AT itab_zycbt001.
MOVE itab_zycbt001-nrseqc TO v_nrseqc.
WRITE v_nrseqc TO v_nrseqc RIGHT-JUSTIFIED.
OVERLAY v_nrseqc WITH '0000000000'.
SELECT *
FROM /pws/zycbt041
UP TO 1 ROWS
* >> Início da exclusão: FORM PROCESSA_DADOS
WHERE nrseqc = v_nrseqc.
endselect. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_DADOS
WHERE nrseqc = v_nrseqc. "#EC CI_NOFIRST
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
DELETE itab_zycbt001.
ENDIF.
ENDLOOP.
LOOP AT itab_zycbt031.
SELECT *
FROM /pws/zycbt041
UP TO 1 ROWS
* >> Início da exclusão: FORM PROCESSA_DADOS
WHERE nrseqc = itab_zycbt031-nrseq.
endselect. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_DADOS
WHERE nrseqc = itab_zycbt031-nrseq. "#EC CI_NOFIRST
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
DELETE itab_zycbt031.
ENDIF.
ENDLOOP.
LOOP AT itab_zycbt001.
CLEAR itab_zycbt041.
MOVE: sy-mandt TO itab_zycbt041-mandt ,
v_nseq TO itab_zycbt041-nrseq ,
itab_zycbt001-nrseqc TO itab_zycbt041-nrseqc ,
itab_zycbt001-nrcontr TO itab_zycbt041-nrcontr ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL018F01
...
if sy-subrc <> 0.
message a000 with text-002.
endif.
call method g_tree->set_registered_events exporting events = events.
set handler lcl_event_click=>select_item for g_tree.
perform fill_nodes.
endif.
endform.
form fill_nodes.
refresh: node_table.
* >> Início da exclusão: FORM FILL_NODES
select * from /pws/zyglt309 into table itab_zygle309.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_NODES
select * from /pws/zyglt309 into table itab_zygle309. "#EC CI_NOWHERE
* << Fim da inclusão
sort itab_zygle309 by grupp.
if sy-subrc eq 0.
select * from /pws/zyglt310 into table itab_zygle310
for all entries in itab_zygle309
where grupp eq itab_zygle309-grupp
and spras eq sy-langu.
endif.
clear node.
node-node_key = text-006.
node-isfolder = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
GENERATE SUBROUTINE POOL t_prog NAME w_prog.
IF sy-subrc = 0.
PERFORM log IN PROGRAM (w_prog) USING p_dados
p_tabela
CHANGING p_wa_log
IF FOUND.
ENDIF.
ENDFORM.
FORM atualiza_itab_119_108.
SELECT * FROM /pws/zycbt236 INTO /pws/zycbe236
* >> Início da exclusão: FORM ATUALIZA_ITAB_119_108
WHERE nrboleto = /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ITAB_119_108
WHERE nrboleto = /pws/zycbe031-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
CHECK sy-subrc NE 0.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
IF /pws/zycbe031-nrparc NE ' ' AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR111
...
SELECT *
FROM /pws/zycit006
INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_zycbt119
WHERE nrseq EQ itab_zycbt119-nrpagto.
IF NOT itab_zycit006[] IS INITIAL.
SELECT nrbl nrdi
FROM /pws/zycit085
INTO TABLE itab_nrdi
FOR ALL ENTRIES IN itab_zycit006
* >> Início da exclusão: FORM PROCESSAR_PFATUR
WHERE nrbl EQ itab_zycit006-nrseqce.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_PFATUR
WHERE nrbl EQ itab_zycit006-nrseqce. "#EC CI_NOFIELD
* << Fim da inclusão
SELECT *
FROM /pws/zycit093
INTO TABLE itab_zycit093
FOR ALL ENTRIES IN itab_zycit006
WHERE nrseqce EQ itab_zycit006-nrseqce AND
dtemiss IN so_dtemi AND
identify IN so_nbl.
SELECT *
FROM /pws/zycit263
INTO TABLE itab_zycit263
FOR ALL ENTRIES IN itab_zycit006
* >> Início da exclusão: FORM PROCESSAR_PFATUR
WHERE nrseq_pgfat EQ itab_zycit006-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_PFATUR
WHERE nrseq_pgfat EQ itab_zycit006-nrseq_pgfat. "#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycit263[] IS INITIAL.
SELECT *
FROM /pws/zycit003
INTO TABLE itab_zycit003
FOR ALL ENTRIES IN itab_zycit263
WHERE nrseq EQ itab_zycit263-nrseq AND
ebeln EQ itab_zycit263-ebeln AND
ebelp EQ itab_zycit263-ebelp.
ENDIF.
IF NOT itab_zycit093[] IS INITIAL.
...
...
ENDIF.
SORT itab_zycit003 BY nrseq ebeln ebelp ASCENDING.
DELETE ADJACENT DUPLICATES FROM itab_zycit003.
IF NOT itab_zycit003[] IS INITIAL.
SELECT *
FROM /pws/zycit100
INTO TABLE itab_zycit100
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq EQ itab_zycit003-nrseq AND
ebeln EQ itab_zycit003-ebeln AND
* >> Início da exclusão: FORM PROCESSAR_PFATUR
ebelp EQ itab_zycit003-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_PFATUR
ebelp EQ itab_zycit003-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit100[] IS INITIAL.
SELECT *
FROM /pws/zycit085
INTO TABLE itab_zycit085
FOR ALL ENTRIES IN itab_zycit100
WHERE nrseqdi EQ itab_zycit100-nrseqdi AND
dtreg IN so_dtreg AND
identify IN so_ndi.
ENDIF.
...
...
vlme lifnr slpgant codint dtemb dtincl
INTO TABLE itab_zycbt117
FROM /pws/zycbt117
WHERE dtpagto NOT IN ('00000000', ' ') AND
dtpagto IN so_dtpg AND
bukrs IN so_empr AND
lifnr IN so_forn AND
codint IN so_tpmt AND
status NE 'E' AND
dtincl IN so_dtinc AND
* >> Início da exclusão: FORM PROCESSAR_PANTEC
gsber IN so_div.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_PANTEC
gsber IN so_div. "#EC CI_NOFIELD
* << Fim da inclusão
IF NOT itab_zycbt117[] IS INITIAL.
SELECT * FROM /pws/zycmt023
INTO TABLE itab_zycmt023
FOR ALL ENTRIES IN itab_zycbt117
WHERE nrcorresp EQ itab_zycbt117-nrseq AND
* >> Início da exclusão: FORM PROCESSAR_PANTEC
mdcorresp EQ 'IA'.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_PANTEC
mdcorresp EQ 'IA'. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
FOR ALL ENTRIES IN itab_zycbt117
WHERE mdcorresp EQ 'IA' AND
nrchave EQ itab_zycbt117-nrseq.
IF sy-subrc EQ 0 AND NOT itab_zycbt064[] IS INITIAL.
SELECT *
FROM /pws/zycbt134
INTO TABLE itab_zycbt134
...
...
CALL TRANSACTION p_v_transacao USING p_itab_bdc
MODE p_v_mode
UPDATE p_v_update
MESSAGES INTO p_itab_msg.
ENDFORM.
FORM filtra_faturas.
IF NOT so_dtemi[] IS INITIAL.
SELECT *
FROM /pws/zycit093
INTO TABLE itab_zycit093_a
* >> Início da exclusão: FORM FILTRA_FATURAS
WHERE dtemiss IN so_dtemi.
* << Fim da exclusão
* >> Início da inclusão: FORM FILTRA_FATURAS
WHERE dtemiss IN so_dtemi. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
IF NOT so_nbl[] IS INITIAL.
SELECT *
FROM /pws/zycit093
INTO TABLE itab_zycit093_b
* >> Início da exclusão: FORM FILTRA_FATURAS
WHERE identify IN so_nbl.
* << Fim da exclusão
* >> Início da inclusão: FORM FILTRA_FATURAS
WHERE identify IN so_nbl. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
IF NOT so_dtreg[] IS INITIAL.
SELECT *
FROM /pws/zycit085
INTO TABLE itab_zycit085_a
* >> Início da exclusão: FORM FILTRA_FATURAS
WHERE dtreg IN so_dtreg.
* << Fim da exclusão
* >> Início da inclusão: FORM FILTRA_FATURAS
WHERE dtreg IN so_dtreg. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
IF NOT so_ndi[] IS INITIAL.
SELECT *
FROM /pws/zycit085
INTO TABLE itab_zycit085_b
* >> Início da exclusão: FORM FILTRA_FATURAS
WHERE identify IN so_ndi.
* << Fim da exclusão
* >> Início da inclusão: FORM FILTRA_FATURAS
WHERE identify IN so_ndi. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
LOOP AT itab_dados WHERE mdcorresp = 'IP'.
READ TABLE itab_zycbt119 WITH KEY nrseq = itab_dados-nrcorresp.
IF sy-subrc = 0.
READ TABLE itab_zycit006 WITH KEY nrseq = itab_zycbt119-nrpagto.
IF sy-subrc = 0.
IF NOT itab_zycit093_a[] IS INITIAL.
READ TABLE itab_zycit093_a WITH KEY
nrseqce = itab_zycit006-nrseqce
dtemiss = itab_dados-dtemiss.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR120
...
ENDFORM.
FORM processar_pantec.
SELECT nrseq ebeln bukrs dtpagto waers vlme lifnr
INTO TABLE itab_zycbt117
FROM /pws/zycbt117
WHERE bukrs IN so_empr
AND dtpagto IN so_dtpg
AND lifnr IN so_forn
AND status NE 'E'
AND dtpagto NE '00000000'
* >> Início da exclusão: FORM PROCESSAR_PANTEC
AND dtpagto NE ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_PANTEC
AND dtpagto NE ' '. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0.
CLEAR itab_zycbt118.
REFRESH itab_zycbt118.
SELECT * FROM /pws/zycbt118
INTO TABLE itab_zycbt118
FOR ALL ENTRIES IN itab_zycbt117
WHERE nrref EQ itab_zycbt117-nrseq
AND codmodul EQ 'PA'
AND vlme GT 0
AND status NE 'E'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR122
...
START-OF-SELECTION.
PERFORM processar_dados.
FORM processar_dados.
SELECT nrseq tpparc nrparc nremprest dtpagto belnr_p status
belnr_c belnr_cl
INTO TABLE itab_zycbt129
FROM /pws/zycbt129
WHERE dtpagto IN data
AND ( tpparc EQ 'C' OR tpparc EQ 'P' )
AND ( status EQ 'C' OR status EQ 'I' )
* >> Início da exclusão: FORM PROCESSAR_DADOS
AND belnr_cl EQ space.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_DADOS
AND belnr_cl EQ space. "#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt129.
SELECT SINGLE * FROM vbkpf
WHERE belnr EQ itab_zycbt129-belnr_p.
IF sy-subrc EQ 4.
PERFORM executa_f30.
ENDIF.
ENDLOOP.
PERFORM download.
LOOP AT itab_msg.
FORMAT COLOR 3 INTENSIFIED OFF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCMR114
...
WHERE nrseq EQ itab_t119-nrpagto.
IF NOT itab_zycit006[] IS INITIAL.
SELECT * FROM /pws/zycit093
INTO TABLE itab_zycit093
FOR ALL ENTRIES IN itab_zycit006
WHERE nrseqce EQ itab_zycit006-nrseqce.
SELECT * FROM /pws/zycit263
INTO TABLE itab_zycit263
FOR ALL ENTRIES IN itab_zycit006
where nrseq_pgfat EQ itab_zycit006-nrseq_pgfat
* >> Início da exclusão: FORM SELECIONA_DADOS
AND eliminado EQ ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
AND eliminado EQ ' '. "#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycit263[] IS INITIAL.
SELECT * FROM /pws/zycit003
INTO TABLE itab_zycit003
FOR ALL ENTRIES IN itab_zycit263
WHERE nrseq EQ itab_zycit263-nrseq AND
ebeln EQ itab_zycit263-ebeln AND
ebelp EQ itab_zycit263-ebelp.
ENDIF.
IF NOT itab_zycit093[] IS INITIAL.
SELECT * FROM /pws/zycit094
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR001
...
ELSEIF itab_zycit006-tpfatura = '03'.
v_tipo = text-045.
ELSEIF itab_zycit006-tpfatura = '04'.
v_tipo = text-046.
ELSEIF itab_zycit006-tpfatura = '05'.
v_tipo = text-047.
ENDIF.
SELECT *
FROM /pws/zycit085
up to 1 rows
* >> Início da exclusão: FORM SELECIONA_FATURA
WHERE nrbl = itab_zycit006-nrseqce.
endselect."#EC CI_NOFIELD
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_FATURA
WHERE nrbl = itab_zycit006-nrseqce. "#EC CI_NOFIELD
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
MOVE /pws/zycit085-nrdi TO itab_selreg-nrdi.
ENDIF.
ELSE.
v_tipo = text-024.
ENDIF.
ENDIF.
ELSE.
READ TABLE itab_zycit006 WITH KEY nrseq = itab_zycbt119-nrpagto.
IF sy-subrc = 0.
...
...
ELSEIF itab_zycit006-tpfatura = '03'.
v_tipo = text-045.
ELSEIF itab_zycit006-tpfatura = '04'.
v_tipo = text-046.
ELSEIF itab_zycit006-tpfatura = '05'.
v_tipo = text-047.
ENDIF.
SELECT *
FROM /pws/zycit085
up to 1 rows
* >> Início da exclusão: FORM SELECIONA_FATURA
WHERE nrbl = itab_zycit006-nrseqce.
endselect."#EC CI_NOFIELD
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_FATURA
WHERE nrbl = itab_zycit006-nrseqce. "#EC CI_NOFIELD
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
MOVE /pws/zycit085-nrdi TO itab_selreg-nrdi.
ENDIF.
ELSE.
v_tipo = text-024.
ENDIF.
ENDIF.
CLEAR: v_me, v_usd.
READ TABLE itab_zycit006 WITH KEY nrseq = itab_zycbt119-nrpagto.
IF sy-subrc NE 0.
...