CE PLUS - Nota 006093
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 03/03/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:55:10
Descrição da Nota: CB - 444548 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
Sintoma
CB - 444548 - Code Inspector e Verificação Ampliada
Solução
CB - 444548 - Code Inspector e Verificação Ampliada
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06093 Data: 03/03/2008 Hora: 16:11:06
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06093
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00004
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
CB - 444548 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
----------------------------------------------------------------------------------------------------
Palavras Chave:
CB - 444548 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
----------------------------------------------------------------------------------------------------
Objetos da nota:
RELE F6DK958780 20080303 155743 PWSCB
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB004O01
REPS /PWS/MZYCB004TOP
REPT /PWS/SAPMZYCB004
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK958780 20080303 155743 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
AND v_armda NE 'X'.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-30'
tabela = '/PWS/ZYCBT006'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
itab_zycbt006-status = 'C'.
CLEAR itab_zycbt006-belnr.
UPDATE /pws/zycbt005 SET: belnr = itab_zycbt032-belnr
dtbelnr = itab_zycbe033-budat
* >> Início da exclusão: FORM LANCAMENTO_COMPENSACAO_ACE
WHERE belnr = itab_zycbt006-belnr5.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO_ACE
WHERE belnr = itab_zycbt006-belnr5. "#EC CI_NOFIELD
* << Fim da inclusão
itab_zycbt006-belnr5 = itab_zycbt032-belnr.
MODIFY itab_zycbt006.
itab_zycbt005-belnr = itab_zycbt032-belnr.
itab_zycbt005-dtbelnr = itab_zycbe033-budat.
MODIFY itab_zycbt005 TRANSPORTING belnr dtbelnr
WHERE nrinvoic = itab_zycbt006-nrinvoic
AND nrparcf = itab_zycbt006-nrparcf
AND gsberf = itab_zycbt006-gsberf.
IF /pws/zycbe005-tpcontr(1) = 'P' OR
/pws/zycbe005-tpcontr(1) = 'S'.
...
...
itab_zycbe033-wrbtr = itab_aux-valor.
ENDIF.
ENDFORM.
FORM seleciona_dados.
IF NOT itab_zycbt006[] IS INITIAL.
SELECT * FROM /pws/zycbt006
INTO TABLE itab_zycbt006_pagos
FOR ALL ENTRIES IN itab_zycbt006
WHERE nrinvoic = itab_zycbt006-nrinvoic AND
nrparcf = itab_zycbt006-nrparcf AND
* >> Início da exclusão: FORM SELECIONA_DADOS
gsberf = itab_zycbt006-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
gsberf = itab_zycbt006-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT * FROM /pws/zycbt017
INTO TABLE itab_zycbt017
FOR ALL ENTRIES IN itab_zycbt006
WHERE nrinvoic = itab_zycbt006-nrinvoic AND
nrparcf = itab_zycbt006-nrparcf AND
gsberf = itab_zycbt006-gsberf.
SELECT * FROM /pws/zycbt069
INTO TABLE itab_zycbt069
FOR ALL ENTRIES IN itab_zycbt006
WHERE nrinvoic = itab_zycbt006-nrinvoic
AND nrparcf = itab_zycbt006-nrparcf
AND dtvincul = itab_zycbt006-dtvincul
* >> Início da exclusão: FORM SELECIONA_DADOS
AND dtvencto = itab_zycbt006-dtvencto.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
AND dtvencto = itab_zycbt006-dtvencto. "#EC CI_NOFIRST
* << Fim da inclusão
IF itab_zycbt045[] IS INITIAL.
SELECT * FROM /pws/zycbt045
INTO TABLE itab_zycbt045
FOR ALL ENTRIES IN itab_zycbt006
WHERE nrinvoic = itab_zycbt006-nrinvoic
AND gsberf = itab_zycbt006-gsberf
AND nrparcf = itab_zycbt006-nrparcf.
ENDIF.
SELECT * FROM /pws/zycbt225
INTO TABLE itab_zycbt225
FOR ALL ENTRIES IN itab_zycbt006
WHERE nrinvoic = itab_zycbt006-nrinvoic
AND nrparcf = itab_zycbt006-nrparcf
* >> Início da exclusão: FORM SELECIONA_DADOS
AND gsberf = itab_zycbt006-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
AND gsberf = itab_zycbt006-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT * FROM /pws/zycbt226
INTO TABLE itab_zycbt226
FOR ALL ENTRIES IN itab_zycbt006
WHERE nrinvoic = itab_zycbt006-nrinvoic
AND nrparcf = itab_zycbt006-nrparcf
AND gsberf = itab_zycbt006-gsberf.
IF sy-subrc EQ 0 AND sy-tcode EQ c_transacao_c.
DELETE itab_zycbt226 WHERE sld_exterior EQ 0.
ENDIF.
ENDIF.
...
...
INTO v_wrbtr
FROM bsis
WHERE bukrs = itab_zycbe033-bukrs AND
gjahr = v_year AND
belnr = itab_zycbe033-belnr AND
hkont = itab_zycbe033-d_newko AND
shkzg = 'H'.
IF v_wrbtr EQ itab_zycbe033-wrbtr.
v_vinc_tot = 'X'.
ENDIF.
* >> Início da exclusão: FORM FILL_DATE6_F30_ACE
CONCATENATE 'Des.' itab_zycbt006-nrinvoic
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_ACE
CONCATENATE text-232 itab_zycbt006-nrinvoic
* << Fim da inclusão
INTO itab_zycbt036-zuonr
SEPARATED BY space.
IF itab_zycbt006-tpcontr(1) CA 'CE'.
itab_zycbt036-belnr = itab_zycbe033-belnr.
CLEAR v_year.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = itab_zycbt006-bukrs
v_date = itab_zycbe033-dtdocto
IMPORTING
...
...
MODIFY itab_zycbt005 INDEX v_index.
ENDFORM.
FORM determina_fator USING p_parafator
p_defator.
SELECT SINGLE ffact tfact
FROM tcurf
INTO (p_parafator,
p_defator)
WHERE fcurr = itab_zycbt005-waers
AND tcurr = itab_zycbt005-waers_c
* >> Início da exclusão: FORM DETERMINA_FATOR
AND gdatu >= sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_FATOR
AND gdatu >= sy-datum."#EC PORTABLE
* << Fim da inclusão
ENDFORM.
FORM valida_taxa_parametro.
CLEAR: v_taxa_vazia.
CLEAR itab_zycbe033-kursf.
PERFORM verifica_data2 USING /pws/zycbt089-tx_desm_cli
itab_zycbt006-dtpagto.
IF NOT v_databl IS INITIAL.
PERFORM define_cambio USING v_databl
itab_zycbt006-waers
wa_zycbt007-waersb
...
...
AND belnr = itab_zycbe033-belnr
AND gjahr = v_year.
itab_zycbe033-dtdocto = bkpf-budat.
CONCATENATE 'Des.' itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
INTO itab_zycbe033-c_zuonr
SEPARATED BY space.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-residuo = itab_zycbe033-wrbtr.
* >> Início da exclusão: FORM FILL_DATE6_F30_LIQUID_3
CONCATENATE 'Desm.' itab_zycbt006-nrinvoic
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID_3
CONCATENATE text-233 itab_zycbt006-nrinvoic
* << Fim da inclusão
INTO itab_zycbt036-zuonr
SEPARATED BY space.
APPEND itab_zycbt036.
itab_doctos-tcode = itab_zycbe033-tcode.
itab_doctos-tabela = itab_zycbe033-tabela.
itab_doctos-cpochv = itab_zycbe033-cpochv.
itab_doctos-belnr = itab_zycbe033-belnr.
itab_doctos-dtdocto = itab_zycbe033-dtdocto.
APPEND itab_doctos.
LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt006-nrinvoic AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
ENDIF.
itab_zycbt006-v_vldif_arb = itab_zycbt006-v_vldif *
itab_zycbt005-parid.
v_slpagar001 = v_slpagar001 + itab_zycbt006-v_vldif_arb.
MODIFY itab_zycbt006.
CLEAR itab_recurso_aux.
READ TABLE itab_recurso_aux
WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf
nrparcf = itab_zycbt006-nrparcf.
* >> Início da exclusão: FORM ATUALIZA_TABELAS_TRANSP2
IF itab_recurso_aux-descorigem EQ v_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2
IF itab_recurso_aux-descorigem EQ text-253.
* << Fim da inclusão
MOVE 'X' TO /pws/zycbt006-tpfatura_or.
MODIFY /pws/zycbt006.
* >> Início da exclusão: FORM ATUALIZA_TABELAS_TRANSP2
ELSEIF itab_recurso_aux-descorigem EQ v_liquidacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2
ELSEIF itab_recurso_aux-descorigem EQ text-254.
* << Fim da inclusão
MOVE 'X' TO /pws/zycbt006-tpfatura_or.
MODIFY /pws/zycbt006.
* >> Início da exclusão: FORM ATUALIZA_TABELAS_TRANSP2
ELSEIF itab_recurso_aux-descorigem EQ v_liquidacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2
ELSEIF itab_recurso_aux-descorigem EQ text-255.
* << Fim da inclusão
MOVE 'X' TO /pws/zycbt006-tpfatura_or.
MODIFY /pws/zycbt006.
ENDIF.
ENDIF.
ENDLOOP.
UPDATE /pws/zycbt001
SET slpagar = slpagar - v_slpagar001
WHERE nrseqc EQ itab_zycbt006-nrseqc.
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
MODIFY /pws/zycbt209 FROM TABLE itab_zycbt209.
...
...
nrparcf = itab_zycbt006-nrparcf.
CLEAR: v_flag_la, wa_recurso_aux.
IF itab_zycbt209-saldo NE 0.
IF itab_zycbt209-saldo LE v_slliq.
itab_zycbt209-baixa = 'X'.
itab_zycbt209-vlbaixa = itab_zycbt209-saldo.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = itab_zycbt006-nrinvoic AND
gsberf = itab_zycbt006-gsberf AND
nrparcf = itab_zycbt006-nrparcf.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
IF wa_recurso_aux-descorigem EQ v_liquidacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
IF wa_recurso_aux-descorigem EQ text-254.
* << Fim da inclusão
PERFORM desmembra_liq_and.
IF sy-subrc EQ 0.
v_slliq = v_slliq - itab_zycbt209-saldo.
MODIFY itab_zycbt209.
ELSE.
v_subrc = 4.
ENDIF.
ENDIF.
v_flag_la = 'X'.
ENDLOOP.
...
...
ENDIF.
ENDIF.
ELSE.
itab_zycbt209-baixa = 'X'.
itab_zycbt209-vlbaixa = v_slliq.
CLEAR v_flag_la.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = itab_zycbt006-nrinvoic AND
gsberf = itab_zycbt006-gsberf AND
nrparcf = itab_zycbt006-nrparcf.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
IF wa_recurso_aux-descorigem EQ v_liquidacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
IF wa_recurso_aux-descorigem EQ text-254.
* << Fim da inclusão
PERFORM desmembra_liq_and.
IF sy-subrc EQ 0.
CLEAR v_slliq.
MODIFY itab_zycbt209.
ELSE.
v_subrc = 4.
ENDIF.
ENDIF.
v_flag_la = 'X'.
ENDLOOP.
...
...
ELSE.
itab_zycbt030-v_belnr = belnr_.
ENDIF.
MODIFY itab_zycbt030.
ENDIF.
CLEAR: v_flag_la, wa_recurso_aux.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = itab_zycbt006-nrinvoic AND
gsberf = itab_zycbt006-gsberf AND
nrparcf = itab_zycbt006-nrparcf.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
IF wa_recurso_aux-descorigem EQ v_liquidacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
IF wa_recurso_aux-descorigem EQ text-255.
* << Fim da inclusão
PERFORM desmembra_cliente.
IF sy-subrc EQ 0.
v_slliq = v_slliq - itab_zycbt030-vlsltrans.
ELSE.
v_flag_la = 'X'.
v_subrc = 4.
EXIT.
ENDIF.
ENDIF.
v_flag_la = 'X'.
...
...
CLEAR: v_flag_la, wa_recurso_aux.
LOOP AT itab_zycbt226 ASSIGNING <fs_zycbt226>
WHERE nrinvoic EQ itab_zycbt006-nrinvoic
AND nrparcf EQ itab_zycbt006-nrparcf
AND gsberf EQ itab_zycbt006-gsberf.
IF <fs_zycbt226>-sld_exterior LE v_slliq.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = itab_zycbt006-nrinvoic AND
gsberf = itab_zycbt006-gsberf AND
nrparcf = itab_zycbt006-nrparcf.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
IF wa_recurso_aux-descorigem EQ v_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
IF wa_recurso_aux-descorigem EQ text-253.
* << Fim da inclusão
IF v_slliq > 0.
PERFORM desm_conta_corrente
USING
v_slliq.
IF ( sy-subrc EQ 0 AND NOT itab_zycbt032-belnr IS INITIAL )
OR /pws/zyglt009-comp_aut_cc IS INITIAL.
v_slliq = v_slliq - <fs_zycbt226>-sld_exterior.
PERFORM atualiza_zycbt231 USING <fs_zycbt226>-sld_exterior.
CLEAR <fs_zycbt226>-sld_exterior.
PERFORM atualiza_tabelas.
...
...
ELSEIF sy-subrc NE 0.
v_subrc = 4.
EXIT.
ENDIF.
ENDIF.
ELSE.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = itab_zycbt006-nrinvoic AND
gsberf = itab_zycbt006-gsberf AND
nrparcf = itab_zycbt006-nrparcf.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
IF wa_recurso_aux-descorigem EQ v_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
IF wa_recurso_aux-descorigem EQ text-253.
* << Fim da inclusão
IF v_slliq > 0.
PERFORM desm_conta_corrente
USING
v_slliq.
IF ( sy-subrc EQ 0 AND NOT itab_zycbt032-belnr IS INITIAL )
OR /pws/zyglt009-comp_aut_cc IS INITIAL.
<fs_zycbt226>-sld_exterior =
<fs_zycbt226>-sld_exterior - v_slliq.
PERFORM atualiza_zycbt231 USING v_slliq.
CLEAR v_slliq.
...
...
ENDIF.
itab_zycbt030-budat = itab_zycbt006-dtpagto.
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
READ TABLE itab_recurso_aux
WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf
nrparcf = itab_zycbt006-nrparcf
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
descorigem = v_liquidacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
descorigem = text-255.
* << Fim da inclusão
IF sy-subrc EQ 0.
itab_zycbt030-vlsltrans = itab_zycbt030-vlsltrans -
itab_recurso_aux-vl_total_saldo.
ELSE.
IF itab_zycbt030-v_duplica NE 'X'.
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq - itab_zycbt030-v_kwert.
ENDIF.
IF /pws/zycbe001-desc_receb IS INITIAL.
itab_zycbt030-vlsltrans =
...
...
itab_zycbe033-kursf.
ENDIF.
IF /pws/zycbt089-tx_desm_cli EQ 'VIATRANS' AND
itab_zycbe033-kursf IS INITIAL.
MESSAGE i061 WITH text-215 itab_zycbt030-nrinvoic text-216 text-217.
PERFORM verify_null_field USING itab_zycbe033-kursf
'KURSF'
text-051.
ENDIF.
PERFORM valor_baixar_f28.
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
IF wa_recurso_aux-descorigem EQ v_liquidacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
IF wa_recurso_aux-descorigem EQ text-255.
* << Fim da inclusão
IF itab_zycbt030-vlsltrans >= v_slliq_30.
wa_recurso_aux-vl_total_saldo = v_slliq_30.
ELSEIF itab_zycbt030-vlsltrans =< v_slliq_30.
wa_recurso_aux-vl_total_saldo = itab_zycbt030-vlsltrans.
ENDIF.
MODIFY itab_recurso_aux FROM wa_recurso_aux.
v_slliq_30 = v_slliq_30 - itab_zycbt030-vlsltrans.
IF v_slliq_30 < 0.
v_slliq_30 = v_slliq_30 * ( -1 ).
ENDIF.
...
...
itab_partidas-tcode = 'F-30'.
itab_partidas-tabela = 'ZYCBT006'.
itab_partidas-cpochv = itab_zycbe033-cpochv.
itab_partidas-belnr = itab_zycbt226i-belnr_op2.
itab_partidas-agkon = itab_zycbt226i-conta_contabil.
itab_partidas-agkoa = itab_zycbe033-koart.
itab_partidas-agums = space.
itab_partidas-bukrs = itab_zycbe033-bukrs.
itab_partidas-shkzg = 'S'.
itab_partidas-dtdocto = itab_zycbt226i-dtlancto2.
* >> Início da exclusão: FORM BAIXA_CLIENTE_ACE
CONCATENATE 'Des. OP' itab_zycbt226i-nrseq
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
CONCATENATE text-234 itab_zycbt226i-nrseq
* << Fim da inclusão
INTO itab_partidas-d_zuonr
SEPARATED BY space.
itab_partidas-v_sinal = '-'.
APPEND itab_partidas.
ENDLOOP.
IF sy-subrc = 0
OR itab_zycbt006-vlme NE itab_zycbt005-vlvinc
OR ( NOT itab_zycbt006-belnr_d IS INITIAL AND
itab_zycbt001-tpcontr EQ 'C' ).
CLEAR itab_zycbe033-d_zuonr.
...
...
v_codaux1
v_codaux2
space
CHANGING itab_zycbe033-c_newko.
itab_zycbe033-wrbtr = itab_zycbt006-vlme.
CLEAR v_restante.
LOOP AT itab_recurso_aux
WHERE nrinvoic = itab_zycbt006-nrinvoic AND
gsberf = itab_zycbt006-gsberf AND
nrparcf = itab_zycbt006-nrparcf AND
* >> Início da exclusão: FORM BAIXA_CLIENTE_ACE
descorigem NE v_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
descorigem NE text-253.
* << Fim da inclusão
v_restante = v_restante + itab_recurso_aux-vl_saldo.
ENDLOOP.
READ TABLE itab_recurso_aux
WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf
nrparcf = itab_zycbt006-nrparcf
* >> Início da exclusão: FORM BAIXA_CLIENTE_ACE
descorigem = v_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
descorigem = text-253.
* << Fim da inclusão
IF sy-subrc EQ 0.
itab_zycbe033-wrbtr = itab_zycbt006-vlme - v_restante.
ENDIF.
ENDIF.
ENDIF.
SELECT * FROM /pws/zycbt084 INTO TABLE itab_zycbt084
WHERE nrseqc = itab_zycbt006-nrseqc.
LOOP AT itab_zycbt084 WHERE nrseqc = itab_zycbt006-nrseqc
AND nrinvoic = itab_zycbt006-nrinvoic
AND gsberf = itab_zycbt006-gsberf
...
...
IF /pws/zycbt089-tp_liq_and NE 'D'.
v_kunnr = itab_zycbt006-kunnr.
ELSE.
IF /pws/zycbt089-liq_and_cod_cli IS INITIAL.
SELECT SINGLE ktokd FROM kna1
INTO v_ktokd
WHERE kunnr EQ itab_zycbt006-kunnr.
SELECT SINGLE codtrans
FROM /pws/zyglt368
INTO v_kunnr
* >> Início da exclusão: FORM ESTORNO_PERIODO_ABERTO
WHERE ktokd = v_ktokd.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO
WHERE ktokd = v_ktokd. "#EC CI_NOFIRST
* << Fim da inclusão
ELSE.
v_kunnr = /pws/zycbt089-liq_and_cod_cli.
ENDIF.
ENDIF.
LOOP AT itab_bsad WHERE bukrs = itab_zycbt006-bukrs AND
augdt = itab_zycbt006-dtpagto AND
augbl = itab_zycbt006-belnr AND
gjahr = v_year AND
kunnr = v_kunnr AND
belnr <> itab_zycbt006-belnr.
...
...
WHERE bukrs EQ itab_zycbt209-bukrs
AND belnr EQ v_belnr
AND gjahr EQ itab_zycbt209-dtbelnr(4).
IF /pws/zycbt089-tx_desm_cli EQ 'VIATRANS' AND
itab_zycbe033-kursf IS INITIAL.
MESSAGE i061 WITH text-215 itab_zycbt006-nrinvoic text-216 text-217.
PERFORM verify_null_field USING itab_zycbe033-kursf
'KURSF'
text-051.
ENDIF.
* >> Início da exclusão: FORM DESMEMBRA_LIQ_AND
IF wa_recurso_aux-descorigem EQ v_liquidacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND
IF wa_recurso_aux-descorigem EQ text-254.
* << Fim da inclusão
IF itab_zycbt209-saldo >= itab_zycbt006-vlme.
wa_recurso_aux-vl_total_saldo = itab_zycbt006-vlme.
ELSEIF itab_zycbt209-saldo <= itab_zycbt006-vlme.
wa_recurso_aux-vl_total_saldo = itab_zycbt209-saldo.
ENDIF.
MODIFY itab_recurso_aux FROM wa_recurso_aux.
v_slliq_30 = itab_zycbt006-vlme - itab_zycbt209-saldo.
IF v_slliq_30 < 0.
v_slliq_30 = v_slliq_30 * ( -1 ).
ENDIF.
...
...
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO v_kurst
WHERE codpadr = /pws/zycbt011-ctmoed.
CONVERT DATE v_dtcalcjur INTO INVERTED-DATE v_dtbudat.
SELECT * FROM tcurr
INTO TABLE itab_tcurr
WHERE kurst = v_kurst
AND fcurr = /pws/zycbt001-waers
AND tcurr = wa_zycbt007-waersb
* >> Início da exclusão: FORM SELECIONA_TAXA
AND gdatu GE v_dtbudat.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_TAXA
AND gdatu GE v_dtbudat."#EC PORTABLE
* << Fim da inclusão
READ TABLE itab_tcurr INDEX 1.
itab_zycbe033-kursf = itab_tcurr-ukurs.
ENDFORM.
FORM estorna_diferenca_juros.
DATA: v_monat LIKE t001b-frpe1,
v_ano LIKE t009b-bdatj.
LOOP AT itab_zycbt154.
CLEAR: itab_zycbe033,
itab_zycbt032,
itab_zycbt034.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
p_tabela
CHANGING p_wa_log.
DATA: t_prog(72) TYPE c OCCURS 1000 WITH HEADER LINE,
w_prog LIKE trdir-name.
CLEAR: t_prog, wa_log.
REFRESH: t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form log using p_dados ' TO t_prog.
APPEND ' p_tabela ' TO t_prog.
APPEND ' CHANGING P_WA_LOG. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'."#EC PORTABLE
* << Fim da inclusão
APPEND 'tables: dd03l. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND 'DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-235 TO t_prog.
APPEND text-236 TO t_prog.
APPEND text-237 TO t_prog.
* << Fim da inclusão
APPEND 'data: v_tam type dd03l-leng, ' TO t_prog.
APPEND ' v_valor(50) type c, ' TO t_prog.
APPEND ' v_xstring type xstring. ' TO t_prog.
APPEND 'FIELD-SYMBOLS: <VALOR> TYPE ANY. ' TO t_prog.
APPEND 'do. ' TO t_prog.
APPEND ' ASSIGN COMPONENT SY-INDEX OF STRUCTURE ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' p_dados TO <VALOR>. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-238 TO t_prog.
* << Fim da inclusão
APPEND ' if sy-subrc ne 0. ' TO t_prog.
APPEND ' exit. ' TO t_prog.
APPEND ' endif. ' TO t_prog.
APPEND ' select single * from dd03l ' TO t_prog.
APPEND ' where tabname = p_tabela ' TO t_prog.
APPEND ' and position = sy-index. ' TO t_prog.
MOVE text-451 TO t_prog.
APPEND t_prog.
MOVE text-452 TO t_prog.
APPEND t_prog.
APPEND ' clear v_valor. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' v_valor = <VALOR>. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-239 TO t_prog.
* << Fim da inclusão
MOVE text-453 TO t_prog.
APPEND t_prog.
APPEND ' condense v_valor no-gaps. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' SHIFT v_valor(dd03l-leng) RIGHT ' TO t_prog.
APPEND ' DELETING TRAILING space. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-240 TO t_prog.
APPEND text-241 TO t_prog.
* << Fim da inclusão
MOVE text-454 TO t_prog.
APPEND t_prog.
APPEND ' v_xstring = v_valor. ' TO t_prog.
MOVE text-455 TO t_prog.
APPEND t_prog.
APPEND ' EXPORTING ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' BUFFER = v_xstring ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-242 TO t_prog.
* << Fim da inclusão
APPEND ' TABLES ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' BINARY_TAB = binary_tab. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-243 TO t_prog.
* << Fim da inclusão
APPEND ' move binary_tab(dd03l-intlen) to ' TO t_prog.
APPEND ' p_wa_log+v_tam(dd03l-intlen). ' TO t_prog.
APPEND ' v_tam = v_tam + dd03l-intlen. ' TO t_prog.
APPEND ' else. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' p_wa_log+v_tam(dd03l-leng) = <VALOR>. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-244 TO t_prog.
* << Fim da inclusão
APPEND ' v_tam = v_tam + dd03l-leng. ' TO t_prog.
APPEND ' endif. ' TO t_prog.
APPEND 'enddo. ' TO t_prog.
ELSE.
APPEND 'p_wa_log = p_dados. ' TO t_prog.
ENDIF.
APPEND 'endform. ' TO t_prog.
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 desm_conta_corrente
USING
p_v_slliq TYPE /pws/zycbt006-vlme.
IF /pws/zyglt009-comp_aut_cc IS INITIAL.
* >> Início da exclusão: FORM DESM_CONTA_CORRENTE
IF wa_recurso_aux-descorigem EQ v_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM DESM_CONTA_CORRENTE
IF wa_recurso_aux-descorigem EQ text-253.
* << Fim da inclusão
IF <fs_zycbt226>-sld_exterior >= p_v_slliq.
wa_recurso_aux-vl_total_saldo = p_v_slliq.
ELSEIF <fs_zycbt226>-sld_exterior =< p_v_slliq.
wa_recurso_aux-vl_total_saldo = <fs_zycbt226>-sld_exterior.
ENDIF.
MODIFY itab_recurso_aux FROM wa_recurso_aux.
CLEAR /pws/zycbt084.
/pws/zycbt084-result_saldo = wa_recurso_aux-vl_total_saldo.
/pws/zycbt084-nrseqc = itab_zycbt006-nrseqc.
/pws/zycbt084-tpdesp = itab_zycbt006-tpdesp.
...
...
itab_zycbt036-residuo = <fs_zycbt226>-sld_exterior.
ELSE.
itab_zycbt036-residuo = v_vldesm.
CLEAR v_vldesm.
ENDIF.
IF itab_zycbt036-residuo LT 0.
itab_zycbt036-residuo = itab_zycbe033-wrbtr * ( -1 ).
ENDIF.
CHECK itab_zycbt036-residuo NE 0.
APPEND itab_zycbt036.
* >> Início da exclusão: FORM DESM_CONTA_CORRENTE
IF wa_recurso_aux-descorigem EQ v_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM DESM_CONTA_CORRENTE
IF wa_recurso_aux-descorigem EQ text-253.
* << Fim da inclusão
IF <fs_zycbt226>-sld_exterior > itab_zycbt006-vlme.
wa_recurso_aux-vl_total_saldo = itab_zycbt006-vlme.
ELSEIF <fs_zycbt226>-sld_exterior < itab_zycbt006-vlme.
wa_recurso_aux-vl_total_saldo = <fs_zycbt226>-sld_exterior.
ENDIF.
MODIFY itab_recurso_aux FROM wa_recurso_aux.
ENDIF.
IF itab_zycbt034[] IS INITIAL.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_P'
EXPORTING
...
...
itab_zycbt231-dtpagto = itab_zycbt006-dtpagto.
itab_zycbt231-waers = <fs_zycbt226>-waers.
itab_zycbt231-vlme = p_valor.
APPEND itab_zycbt231.
ENDFORM.
FORM seleciona_ordem_pagamento.
SELECT * FROM /pws/zycbt231
INTO TABLE itab_zycbt231
WHERE nrseqc = itab_zycbt005-nrseqc
AND dtpagext = v_dtpagext
* >> Início da exclusão: FORM SELECIONA_ORDEM_PAGAMENTO
AND dtpagto = v_dtpagto.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ORDEM_PAGAMENTO
AND dtpagto = v_dtpagto. "#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt231[] IS INITIAL.
SELECT * FROM /pws/zycbt226
INTO TABLE itab_zycbt226
FOR ALL ENTRIES IN itab_zycbt231
WHERE nrseq = itab_zycbt231-nrseq.
ENDIF.
ENDFORM.
FORM clearing_cc.
IF NOT /pws/zyglt009-comp_aut_cc IS INITIAL.
PERFORM clear_date_batch.
...
...
CHECK NOT p_itab_vinculacao IS INITIAL.
SELECT
bukrs nrinvoic belnr dtincl gsberf nrparcf belnr2
FROM /pws/zycbt219
INTO TABLE p_itab_zycbt219
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_DESCONTO_RECEBIVEIS
saldo GT 0.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DESCONTO_RECEBIVEIS
saldo GT 0. "#EC CI_NOFIRST
* << Fim da inclusão
ENDFORM.
FORM documento_desconto_recebiveis
USING
p_vinculacao TYPE t_vinculacao
p_itab_zycbt219 TYPE t_itab_zycbt219.
FIELD-SYMBOLS:
<fs_belnr> TYPE bseg-belnr,
<fs_zycbt219> TYPE t_zycbt219.
CHECK NOT /pws/zycbe001-desc_receb IS INITIAL.
LOOP AT p_itab_zycbt219
...
...
ENDFORM.
FORM selecao_faturas.
IF sy-tcode EQ c_transacao_a.
SELECT nrinvoic gsberf nrparcf vlme dtvincul tpfatura_or
FROM /pws/zycbt006
INTO TABLE it_zycbt006
FOR ALL ENTRIES IN itab_zycbt006
WHERE nrinvoic = itab_zycbt006-nrinvoic
AND nrparcf = itab_zycbt006-nrparcf
AND gsberf = itab_zycbt006-gsberf
* >> Início da exclusão: FORM SELECAO_FATURAS
AND dtvincul = itab_zycbt006-dtvincul.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECAO_FATURAS
AND dtvincul = itab_zycbt006-dtvincul. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
CHECK NOT itab_zycbt005[] IS INITIAL AND
itab_zycbt005_ant[] IS INITIAL.
SELECT *
FROM /pws/zycbt226
INTO TABLE it_zycbt226
FOR ALL ENTRIES IN itab_zycbt005
WHERE nrinvoic = itab_zycbt005-nrinvoic
AND nrparcf = itab_zycbt005-nrparcf
AND gsberf = itab_zycbt005-gsberf
...
...
WHERE nrinvoic = wa_recurso_aux-nrinvoic
AND gsberf = wa_recurso_aux-gsberf
AND nrparcf = wa_recurso_aux-nrparcf
AND mark = 'X'.
ADD 1 TO v_conti.
ENDLOOP.
IF v_conti GT 1.
MESSAGE i110
WITH
wa_recurso_aux-nrinvoic
* >> Início da exclusão: FORM CONSISTE_MAIS_DE_UMA_FATURA
'. Não permitido utilizar mais de uma origem '
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_MAIS_DE_UMA_FATURA
text-245
* << Fim da inclusão
' para liquidar fatura'.
MOVE: 'X' TO it_mensagem-v_erro,
'1' TO it_mensagem-v_codigo,
wa_recurso_aux-nrinvoic TO it_mensagem-nrinvoic,
wa_recurso_aux-gsberf TO it_mensagem-gsberf,
wa_recurso_aux-nrparcf TO it_mensagem-nrparcf.
APPEND it_mensagem.
ENDIF.
endform.
form limpa_table.
...
...
LOOP AT itab_recurso_aux2
WHERE nrinvoic = wa_recurso_aux-nrinvoic
AND gsberf = wa_recurso_aux-gsberf
AND nrparcf = wa_recurso_aux-nrparcf
AND mark = 'X'.
ENDLOOP.
IF sy-subrc NE 0.
MESSAGE i110
WITH
wa_recurso_aux-nrinvoic
* >> Início da exclusão: FORM CONSISTE_ORIGEM_SELECIONADA
'. Obrigatório selecionar recurso '
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_ORIGEM_SELECIONADA
text-246
* << Fim da inclusão
' para liquidar fatura'.
MOVE: 'X' TO it_mensagem-v_erro,
'2' TO it_mensagem-v_codigo,
wa_recurso_aux-nrinvoic TO it_mensagem-nrinvoic,
wa_recurso_aux-gsberf TO it_mensagem-gsberf,
wa_recurso_aux-nrparcf TO it_mensagem-nrparcf.
APPEND it_mensagem.
ENDIF.
endform.
form consiste_ok_sem_fatura.
...
...
AND gsberf = wa_recurso_aux-gsberf
AND nrparcf = wa_recurso_aux-nrparcf
AND mark NE wa_recurso_aux-mark.
v_conti = 1.
ENDLOOP.
IF v_conti NE 1.
IF it_mensagem[] IS INITIAL.
MESSAGE i110
WITH
wa_recurso_aux-nrinvoic
* >> Início da exclusão: FORM CONSISTE_OK_SEM_FATURA
'. Obrigatório selecionar recurso para '
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_OK_SEM_FATURA
text-247
* << Fim da inclusão
' liquidar fatura'.
MOVE: 'X' TO it_mensagem-v_erro,
'3' TO it_mensagem-v_codigo,
wa_recurso_aux-nrinvoic TO it_mensagem-nrinvoic,
wa_recurso_aux-gsberf TO it_mensagem-gsberf,
wa_recurso_aux-nrparcf TO it_mensagem-nrparcf.
APPEND it_mensagem.
ENDIF.
ENDIF.
endform.
...
...
ENDIF.
ENDIF.
LOOP AT it_origem.
READ TABLE it_mensagem
WITH KEY nrinvoic = it_origem-nrinvoic
gsberf = it_origem-gsberf
nrparcf = it_origem-nrparcf.
IF sy-subrc NE 0.
MESSAGE i061
WITH
* >> Início da exclusão: FORM CONSISTE_SALDO_MENOR
'Valor a ser Liquidado da fatura '
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_SALDO_MENOR
text-248
* << Fim da inclusão
it_origem-nrinvoic
* >> Início da exclusão: FORM CONSISTE_SALDO_MENOR
'. Maior do que o saldo '
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_SALDO_MENOR
text-249
* << Fim da inclusão
it_origem-descorigem.
MOVE: 'X' TO it_mensagem-v_erro,
'4' TO it_mensagem-v_codigo,
...
...
textline1 = p_v_msg_1
textline2 = p_v_msg_2
start_column = 15
start_row = 6
EXCEPTIONS
OTHERS = 1.
ENDFORM.
form mensagem_tc_recurso_aux.
DATA: v_msg_p1(59) TYPE c,
v_msg_p2(56) TYPE c.
* >> Início da exclusão: FORM MENSAGEM_TC_RECURSO_AUX
v_msg_p1 = 'Os campos com relevância contábil não poderão ser alterados'
.
v_msg_p2 = 'As faturas deverão ser estornadas e liquidadas novamente'.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGEM_TC_RECURSO_AUX
v_msg_p1 = text-250 .
v_msg_p2 = text-251.
* << Fim da inclusão
LOOP AT itab_zycbt005.
READ TABLE itab_zycbt006_pre
WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf.
IF itab_zycbt006_pre-tpfatura_or EQ 'X'.
v_mensagem_ = 'X'.
ENDIF.
ENDLOOP.
IF sy-tcode EQ c_transacao_a OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004O01
...
SET HANDLER EVT_RECEIVER->ON_SAPEVENT
FOR HTML_CONTROL.
PERFORM LOAD_HOME_PAGE.
ENDIF.
ENDMODULE.
MODULE STATUS_0100_CUSTOM OUTPUT.
PERFORM STATUS_CUSTOM.
ENDMODULE.
module STATUS_0102 output.
SET PF-STATUS '0102'.
* >> Início da exclusão: MODULE STATUS_0102
SET TITLEBAR '0102' WITH 'Exibir Seleção de Recurso'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0102
SET TITLEBAR '0102' WITH text-252."#EC *
* << Fim da inclusão
SET SCREEN '0102'.
endmodule.
module set_screen_0102 output.
CASE sy-dynnr.
WHEN '0102'.
tc_recurso-lines = tc_recurso-top_line + 15.
LOOP AT tc_recurso-cols INTO wa_cols.
IF wa_cols-screen-group1 IS INITIAL.
wa_cols-screen-input = '0'.
ELSE.
...
...
itab_zycbt005-vlme TO it_zycbt006-vlme.
APPEND it_zycbt006.
ENDLOOP.
ELSEIF sy-tcode EQ c_transacao_a.
SELECT nrinvoic gsberf nrparcf vlme dtvincul tpfatura_or
FROM /pws/zycbt006
INTO TABLE it_zycbt006
FOR ALL ENTRIES IN it_zycbt226
WHERE nrinvoic = it_zycbt226-nrinvoic
AND nrparcf = it_zycbt226-nrparcf
* >> Início da exclusão: MODULE SELECIONA_RECURSO
AND gsberf = it_zycbt226-gsberf.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_RECURSO
AND gsberf = it_zycbt226-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
SELECT nrinvoic gsberf nrparcf dtvincul vlvinc
FROM /pws/zycbt005
INTO TABLE it_zycbt005
FOR ALL ENTRIES IN it_zycbt226
WHERE nrinvoic = it_zycbt226-nrinvoic
AND nrparcf = it_zycbt226-nrparcf
* >> Início da exclusão: MODULE SELECIONA_RECURSO
AND gsberf = it_zycbt226-gsberf.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_RECURSO
AND gsberf = it_zycbt226-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT it_zycbt017 INTO wa_zycbt017.
MOVE: wa_zycbt017-nrinvoic TO itab_recurso-nrinvoic,
wa_zycbt017-gsberf TO itab_recurso-gsberf,
wa_zycbt017-nrparcf TO itab_recurso-nrparcf,
wa_zycbt017-kunag TO itab_recurso-kunag,
wa_zycbt017-bukrs TO itab_recurso-bukrs,
wa_zycbt017-waers TO itab_recurso-waers,
wa_zycbt017-vlavinc TO itab_recurso-vlavinc.
APPEND wa_zycbt017 TO itab_recurso[].
LOOP AT it_zycbt005[] ASSIGNING <fs_zycbt005>.
...
...
CHECK sy-subrc EQ 0.
<fs_recurso>-vlme = <fi_zycbt006>-vlme.
ENDLOOP.
ENDLOOP.
LOOP AT it_zycbt226 INTO wa_zycbt226.
MOVE: wa_zycbt226-nrinvoic TO wa_recurso_aux-nrinvoic,
wa_zycbt226-gsberf TO wa_recurso_aux-gsberf,
wa_zycbt226-nrparcf TO wa_recurso_aux-nrparcf,
wa_zycbt226-sld_exterior TO wa_recurso_aux-vl_saldo,
wa_zycbt226-conta_contabil TO wa_recurso_aux-conta_razao.
* >> Início da exclusão: MODULE SELECIONA_RECURSO
wa_recurso_aux-descorigem = v_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_RECURSO
wa_recurso_aux-descorigem = text-253.
* << Fim da inclusão
COLLECT wa_recurso_aux INTO itab_recurso_aux.
ENDLOOP.
LOOP AT it_zycbt209[] INTO wa_zycbt209.
MOVE: wa_zycbt209-nrinvoic TO wa_recurso_aux-nrinvoic,
wa_zycbt209-gsberf TO wa_recurso_aux-gsberf,
wa_zycbt209-nrparcf TO wa_recurso_aux-nrparcf,
wa_zycbt209-saldo TO wa_recurso_aux-vl_saldo,
wa_zycbt209-hkont TO wa_recurso_aux-conta_razao.
* >> Início da exclusão: MODULE SELECIONA_RECURSO
wa_recurso_aux-descorigem = v_liquidacao_a.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_RECURSO
wa_recurso_aux-descorigem = text-254.
* << Fim da inclusão
COLLECT wa_recurso_aux INTO itab_recurso_aux.
ENDLOOP.
LOOP AT it_zycbt030[] INTO wa_zycbt030.
MOVE: wa_zycbt030-nrinvoic TO wa_recurso_aux-nrinvoic,
wa_zycbt030-gsberf TO wa_recurso_aux-gsberf,
wa_zycbt030-nrparcf TO wa_recurso_aux-nrparcf,
wa_zycbt030-vlsltrans TO wa_recurso_aux-vl_saldo.
* >> Início da exclusão: MODULE SELECIONA_RECURSO
wa_recurso_aux-descorigem = v_liquidacao_c.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_RECURSO
wa_recurso_aux-descorigem = text-255.
* << Fim da inclusão
READ TABLE it_zycbt017 INTO wa_zycbt017
WITH KEY nrinvoic = wa_zycbt030-nrinvoic
gsberf = wa_zycbt030-gsberf
nrparcf = wa_zycbt030-nrparcf.
CHECK sy-subrc EQ 0.
wa_recurso_aux-conta_razao = wa_zycbt017-kunag.
COLLECT wa_recurso_aux INTO itab_recurso_aux.
ENDLOOP.
LOOP AT itab_recurso_aux ASSIGNING <fs_recurso_aux>.
READ TABLE itab_recurso ASSIGNING <fs_recurso>
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004TOP
...
DATA: it_origem LIKE TABLE OF s_origem
WITH HEADER LINE.
DATA: wa_recurso_aux LIKE LINE OF itab_recurso_aux,
wa_zycbt226 LIKE LINE OF it_zycbt226,
wa_zycbt209 LIKE LINE OF it_zycbt209,
wa_zycbt030 LIKE LINE OF it_zycbt030,
wa_zycbt017 LIKE LINE OF it_zycbt017,
wa_zycbt006 LIKE LINE OF it_zycbt006,
wa_zycbt005 LIKE LINE OF it_zycbt005,
wa_origem LIKE LINE OF it_origem.
* >> Início da exclusão:
CONSTANTS: v_liquidacao_m(28) VALUE 'Valores Mantidos no Exterior',
v_liquidacao_a(23) VALUE 'Liquidação em Andamento',
v_liquidacao_c(07) VALUE 'Cliente'.
* << Fim da exclusão
DATA: v_descorigem(50) TYPE c,
v_mark(01),
v_conti TYPE i,
v_flag_f(01) TYPE c,
v_contabilizado(1) TYPE c,
v_209(01) TYPE c,
v_030(01) TYPE c,
vnrinvoic TYPE /pws/zycbt017-nrinvoic,
vgsberf TYPE /pws/zycbt017-gsberf,
vnrparcf TYPE /pws/zycbt017-nrparcf,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB004
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 232
Texto: (4 caracteres)
"Des."
Comprimento máximo: 4
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 233
Texto: (5 caracteres)
"Desm."
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 234
Texto: (7 caracteres)
"Des. OP"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 235
Texto: (35 caracteres)
"DATA: BEGIN OF binary_tab OCCURS 0,"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 236
Texto: (20 caracteres)
"default(200) TYPE c,"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 237
Texto: (18 caracteres)
"END OF binary_tab."
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 238
Texto: (20 caracteres)
" p_dados TO <VALOR>."
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 239
Texto: (18 caracteres)
"v_valor = <VALOR>."
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 240
Texto: (31 caracteres)
"SHIFT v_valor(dd03l-leng) RIGHT"
Comprimento máximo: 31
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 241
Texto: (24 caracteres)
"DELETING TRAILING space."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 242
Texto: (22 caracteres)
"BUFFER = v_xstring"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 243
Texto: (24 caracteres)
"BINARY_TAB = binary_tab."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 244
Texto: (37 caracteres)
"p_wa_log+v_tam(dd03l-leng) = <VALOR>."
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 245
Texto: (43 caracteres)
". Não permitido utilizar mais de uma origem"
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 246
Texto: (32 caracteres)
". Obrigatório selecionar recurso"
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 247
Texto: (37 caracteres)
". Obrigatório selecionar recurso para"
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 248
Texto: (31 caracteres)
"Valor a ser Liquidado da fatura"
Comprimento máximo: 31
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 249
Texto: (22 caracteres)
". Maior do que o saldo"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 250
Texto: (59 caracteres)
"Os campos com relevância contábil não poderão ser alterados"
Comprimento máximo: 59
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 251
Texto: (56 caracteres)
"As faturas deverão ser estornadas e liquidadas novamente"
Comprimento máximo: 56
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 252
Texto: (25 caracteres)
"Exibir Seleção de Recurso"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 253
Texto: (28 caracteres)
"Valores Mantidos no Exterior"
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 254
Texto: (23 caracteres)
"Liquidação em Andamento"
Comprimento máximo: 23
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 255
Texto: (7 caracteres)
"Cliente"
Comprimento máximo: 7