CE PLUS - Nota 006100
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 04/03/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:58:43
Descrição da Nota: CB - 444521 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
Sintoma
CB - 444521 - Code Inspector e Verificação Ampliada
Solução
CB - 444521 - Code Inspector e Verificação Ampliada
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06100 Data: 04/03/2008 Hora: 14:26:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06100
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 - 444521 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
----------------------------------------------------------------------------------------------------
Palavras Chave:
CB - 444521 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
----------------------------------------------------------------------------------------------------
Objetos da nota:
RELE F6DK958821 20080304 141003 PWSCB
REPS /PWS/MZYCB009F02
REPS /PWS/MZYCB009F03
REPS /PWS/MZYCB009F06
REPS /PWS/MZYCB009F07
REPS /PWS/MZYCB009F08
REPS /PWS/MZYCB009F09
REPS /PWS/MZYCB009F10
REPS /PWS/MZYCB009O01
REPS /PWS/MZYCB009TOP
REPT /PWS/SAPMZYCB009
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK958821 20080304 141003 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F02
...
itab_zycbt051-nrinvoic itab_zycbt051-gsberf
itab_zycbt051-dtvincul itab_zycbt051-dtvencto
itab_zycbt051-nrparcf
itab_zycbt209-belnr
INTO v_cpochv.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-28'
tabela = '/PWS/ZYCBT005'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM RECEB_PAGTO_DEV
CALL CUSTOMER-FUNCTION '040'.
* << Fim da exclusão
* >> Início da inclusão: FORM RECEB_PAGTO_DEV
CALL CUSTOMER-FUNCTION '040'."#EC *
* << Fim da inclusão
itab_zycbt051-tpdev = 'RP'.
itab_zycbt051-status_rp = 'C'.
itab_zycbt051-belnr_rp = itab_zycbt032-belnr.
MODIFY itab_zycbt051.
itab_zycbt209-belnr2 = itab_zycbt032-belnr.
itab_zycbt209-dtbelnr = itab_zycbt051-dtreceb.
MODIFY itab_zycbt209.
CLEAR itab_zycbt006_aux.
READ TABLE itab_zycbt005
WITH KEY nrinvoic = itab_zycbt051-nrinvoic
...
...
itab_zycbt051-nrinvoic itab_zycbt051-gsberf
itab_zycbt051-dtvincul itab_zycbt051-dtvencto
itab_zycbt051-nrparcf
itab_zycbt209-belnr
INTO v_cpochv.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-28'
tabela = '/PWS/ZYCBT005'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM RECUP_DIVISAS
CALL CUSTOMER-FUNCTION '040'.
* << Fim da exclusão
* >> Início da inclusão: FORM RECUP_DIVISAS
CALL CUSTOMER-FUNCTION '040'."#EC *
* << Fim da inclusão
itab_zycbt051-tpdev = 'RD'.
itab_zycbt051-status_rd = 'C'.
itab_zycbt051-belnr_rd = itab_zycbt032-belnr.
MODIFY itab_zycbt051.
itab_zycbt209-belnr2 = itab_zycbt032-belnr.
itab_zycbt209-dtbelnr = itab_zycbt051-dtreceb.
MODIFY itab_zycbt209.
CLEAR itab_zycbt006_aux.
READ TABLE itab_zycbt005
WITH KEY nrinvoic = itab_zycbt051-nrinvoic
...
...
nrinvoic = /pws/zycbe050-nrinvoic AND
nrparcf = /pws/zycbe050-nrparcf AND
gsberf = /pws/zycbe050-gsberf AND
dtvincul = /pws/zycbe050-dtvincul AND
dtvencto = /pws/zycbe050-dtvencto.
DELETE FROM /pws/zycbt051
WHERE nrinvoic = itab_zycbt051-nrinvoic AND
nrparcf = itab_zycbt051-nrparcf AND
gsberf = itab_zycbt051-gsberf AND
dtpdd = itab_zycbt051-dtpdd AND
* >> Início da exclusão: FORM ESTORNA_PD
dtapr = itab_zycbt051-dtapr.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_PD
dtapr = itab_zycbt051-dtapr."#EC CI_NOFIRST
* << Fim da inclusão
DELETE TABLE itab_zycbt051.
COMMIT WORK.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F03
...
itab_zycbt005_aux, itab_zycbt005_ant, itab_zycbt005_excluidas.
REFRESH:
itab_zycbt005_aux, itab_zycbt005_ant, itab_zycbt005_excluidas.
MOVE itab_zycbt005[] TO itab_zycbt005_aux[].
MOVE itab_zycbt005[] TO itab_zycbt005_ant[].
CLEAR ok_code.
IF NOT itab_transport[] IS INITIAL.
LEAVE PROGRAM.
ENDIF.
CLEAR v_erro_estorno.
* >> Início da exclusão: FORM GRAVA_TABELAS
SET PARAMETER ID '001' FIELD /pws/zycbe001-nrseqc.
SET PARAMETER ID '9999' FIELD /pws/zycbe005-dtvincul.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
SET PARAMETER ID '001' FIELD /pws/zycbe001-nrseqc."#EC *
SET PARAMETER ID '9999' FIELD /pws/zycbe005-dtvincul."#EC *
* << Fim da inclusão
ENDFORM.
FORM altera_itab_zycbt005.
DATA: subrc LIKE sy-subrc.
v_index = tc_faturas-current_line.
IF v_status_s EQ 0.
READ TABLE itab_zycbt005_aux INDEX v_index.
IF /pws/zycbe005-mark EQ 'X'.
itab_zycbt005-mark = 'X'.
itab_zycbt005_aux-mark = 'X'.
ELSE.
...
...
MOVE 'E' TO itab_zycbt006-dtcalcjur.
ELSEIF NOT v_dtpagtoc IS INITIAL.
MOVE 'L' TO itab_zycbt006-dtcalcjur.
ENDIF.
CLEAR itab_recurso_aux.
READ TABLE itab_recurso_aux
WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf
nrparcf = itab_zycbt006-nrparcf.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM GRAVA_LIQUIDACAO
IF itab_recurso_aux-descorigem EQ c_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_LIQUIDACAO
IF itab_recurso_aux-descorigem EQ text-489.
* << Fim da inclusão
MOVE 'X' TO itab_zycbt006-tpfatura_or.
* >> Início da exclusão: FORM GRAVA_LIQUIDACAO
ELSEIF itab_recurso_aux-descorigem EQ c_liquidacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_LIQUIDACAO
ELSEIF itab_recurso_aux-descorigem EQ text-490.
* << Fim da inclusão
MOVE 'X' TO itab_zycbt006-tpfatura_or.
* >> Início da exclusão: FORM GRAVA_LIQUIDACAO
ELSEIF itab_recurso_aux-descorigem EQ c_liquidacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_LIQUIDACAO
ELSEIF itab_recurso_aux-descorigem EQ text-491.
* << Fim da inclusão
MOVE 'X' TO itab_zycbt006-tpfatura_or.
ENDIF.
ELSE.
CLEAR itab_zycbt006-tpfatura_or.
ENDIF.
APPEND itab_zycbt006.
ENDLOOP.
IF wa_zycbt005-flag EQ 'E'.
DELETE FROM /pws/zycbt084 WHERE nrseqc = wa_zycbt005-nrseqc
AND nrinvoic = wa_zycbt005-nrinvoic
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F06
...
( itab_zycbt030-kwert / itab_zycbt030-s_kwert )
* itab_zycbt051-vlme.
READ TABLE itab_zycbt017
WITH KEY nrinvoic = itab_zycbt030-nrinvoic
nrparcf = itab_zycbt030-nrparcf
gsberf = itab_zycbt030-gsberf.
PERFORM encontra_documento.
SELECT * FROM /pws/zycbt006 INTO TABLE itab_zycbt006_soma
WHERE nrinvoic = itab_zycbt030-nrinvoic AND
nrparcf = itab_zycbt030-nrparcf AND
* >> Início da exclusão: FORM RECEB_PAGTO_DEV_2
gsberf = itab_zycbt030-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM RECEB_PAGTO_DEV_2
gsberf = itab_zycbt030-gsberf."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt006_soma.
v_vlliq = v_vlliq + itab_zycbt006_soma-vlme.
ENDLOOP.
v_saldo_fat = itab_zycbt017-vlavinc - v_vlliq.
MODIFY itab_zycbt030.
PERFORM verifica_prorrogacao.
IF v_saldo_fat EQ itab_zycbt051-vlme_fat.
itab_zycbt030-belnr_d = itab_zycbt030-v_belnr.
PERFORM receb_pagto_dev_3.
ELSE.
...
...
* itab_zycbt051-vlme.
READ TABLE itab_zycbt017
WITH KEY nrinvoic = itab_zycbt030-nrinvoic
nrparcf = itab_zycbt030-nrparcf
gsberf = itab_zycbt030-gsberf.
PERFORM encontra_documento.
MODIFY itab_zycbt030.
SELECT * FROM /pws/zycbt006 INTO TABLE itab_zycbt006_soma
WHERE nrinvoic = itab_zycbt030-nrinvoic AND
nrparcf = itab_zycbt030-nrparcf AND
* >> Início da exclusão: FORM RECUP_DIVISAS_2
gsberf = itab_zycbt030-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM RECUP_DIVISAS_2
gsberf = itab_zycbt030-gsberf."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt006_soma.
v_vlliq = v_vlliq + itab_zycbt006_soma-vlme.
ENDLOOP.
v_saldo_fat = itab_zycbt017-vlavinc - v_vlliq.
PERFORM verifica_prorrogacao.
IF v_saldo_fat EQ itab_zycbt051-vlme_fat.
IF NOT itab_zycbt030-belnr6 IS INITIAL.
itab_zycbt030-belnr_d = itab_zycbt030-belnr6.
ELSE.
itab_zycbt030-belnr_d = itab_zycbt030-belnr.
...
...
* itab_zycbt051-vlme.
READ TABLE itab_zycbt017
WITH KEY nrinvoic = itab_zycbt030-nrinvoic
nrparcf = itab_zycbt030-nrparcf
gsberf = itab_zycbt030-gsberf.
PERFORM encontra_documento.
MODIFY itab_zycbt030.
SELECT * FROM /pws/zycbt006 INTO TABLE itab_zycbt006_soma
WHERE nrinvoic = itab_zycbt030-nrinvoic AND
nrparcf = itab_zycbt030-nrparcf AND
* >> Início da exclusão: FORM APR_DESPESAS_2
gsberf = itab_zycbt030-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM APR_DESPESAS_2
gsberf = itab_zycbt030-gsberf."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt006_soma.
v_vlliq = v_vlliq + itab_zycbt006_soma-vlme.
ENDLOOP.
v_saldo_fat = itab_zycbt017-vlavinc - v_vlliq.
PERFORM verifica_prorrogacao.
IF v_saldo_fat EQ itab_zycbt051-vlme_fat.
itab_zycbt030-belnr_d = itab_zycbt030-belnr6.
PERFORM apr_despesas_3.
ELSE.
PERFORM preenche_zycbe033a.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F07
...
saldo > 0 AND
nrparcf = wa_zycbt005-nrparcf.
CHECK wa_zycbt005-slpagar GT 0.
CLEAR: v_flag_la, wa_recurso_aux.
IF itab_zycbt209-saldo LE v_slliq.
v_saldo_aux = itab_zycbt209-saldo.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = wa_zycbt005-nrinvoic AND
gsberf = wa_zycbt005-gsberf AND
nrparcf = wa_zycbt005-nrparcf.
* >> Início da exclusão: FORM FILL_DATE1_F30_CP
IF wa_recurso_aux-descorigem EQ c_liquidacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_CP
IF wa_recurso_aux-descorigem EQ text-490.
* << Fim da inclusão
PERFORM desmembra_liq_and CHANGING wa_zycbt005.
v_slliq = v_slliq - v_saldo_aux.
MODIFY: itab_zycbt209,
itab_zycbt030.
ENDIF.
v_flag_la = 'X'.
ENDLOOP.
IF v_flag_la IS INITIAL.
PERFORM desmembra_liq_and CHANGING wa_zycbt005.
v_slliq = v_slliq - v_saldo_aux.
MODIFY itab_zycbt209.
MODIFY itab_zycbt030.
ENDIF.
ELSE.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = wa_zycbt005-nrinvoic AND
gsberf = wa_zycbt005-gsberf AND
nrparcf = wa_zycbt005-nrparcf.
* >> Início da exclusão: FORM FILL_DATE1_F30_CP
IF wa_recurso_aux-descorigem EQ c_liquidacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_CP
IF wa_recurso_aux-descorigem EQ text-490.
* << Fim da inclusão
PERFORM desmembra_liq_and CHANGING wa_zycbt005.
IF sy-subrc EQ 0.
CLEAR v_slliq.
MODIFY: itab_zycbt209,
itab_zycbt030.
ELSE.
v_subrc = 4.
ENDIF.
ENDIF.
v_flag_la = 'X'.
...
...
ENDIF.
ENDLOOP.
IF itab_zycbt030-vlsltrans GT 0.
CLEAR: v_flag_la, wa_recurso_aux.
IF wa_zycbt005-slpagar GT 0.
itab_zycbt030-vlsltrans_d = itab_zycbt030-vlsltrans.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = wa_zycbt005-nrinvoic AND
gsberf = wa_zycbt005-gsberf AND
nrparcf = wa_zycbt005-nrparcf.
* >> Início da exclusão: FORM FILL_DATE1_F30_CP
IF wa_recurso_aux-descorigem EQ c_liquidacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_CP
IF wa_recurso_aux-descorigem EQ text-491.
* << Fim da inclusão
PERFORM lanca_cp.
IF sy-subrc EQ 0.
v_slliq = v_slliq - itab_zycbt030-vlsltrans_d.
ENDIF.
ENDIF.
v_flag_la = 'X'.
ENDLOOP.
IF v_flag_la IS INITIAL.
PERFORM lanca_cp.
ENDIF.
...
...
LOOP AT itab_zycbt226 ASSIGNING <fs_zycbt226>
WHERE nrinvoic EQ wa_zycbt005-nrinvoic
AND nrparcf EQ wa_zycbt005-nrparcf
AND gsberf EQ wa_zycbt005-gsberf
AND sld_exterior GT 0.
IF <fs_zycbt226>-sld_exterior LE v_slliq.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = wa_zycbt005-nrinvoic AND
gsberf = wa_zycbt005-gsberf AND
nrparcf = wa_zycbt005-nrparcf.
* >> Início da exclusão: FORM FILL_DATE1_F30_CP
IF wa_recurso_aux-descorigem EQ c_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_CP
IF wa_recurso_aux-descorigem EQ text-489.
* << Fim da inclusão
IF v_slliq > 0.
PERFORM atualiza_saldo_me.
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_flag_la = 'X'.
...
...
ELSEIF sy-subrc NE 0.
v_subrc = 4.
EXIT.
ENDIF.
ENDIF.
ELSE.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = wa_zycbt005-nrinvoic AND
gsberf = wa_zycbt005-gsberf AND
nrparcf = wa_zycbt005-nrparcf.
* >> Início da exclusão: FORM FILL_DATE1_F30_CP
IF wa_recurso_aux-descorigem EQ c_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_CP
IF wa_recurso_aux-descorigem EQ text-489.
* << Fim da inclusão
IF v_slliq > 0.
PERFORM atualiza_saldo_me.
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.
PERFORM atualiza_tabelas.
ELSEIF sy-subrc NE 0.
...
...
nrparcf = wa_zycbt005-nrparcf.
IF itab_zycbt209-saldo EQ 0.
itab_zycbe033-wrbtr = itab_zycbt030-v_kwert - v_saldo_aux.
ELSE.
itab_zycbe033-wrbtr = itab_zycbt030-v_kwert - v_wrbtr.
ENDIF.
IF itab_zycbe033-wrbtr EQ 0.
EXIT.
ENDIF.
CLEAR itab_zycbe033-newbs.
* >> Início da exclusão: FORM LANCA_CP
IF wa_recurso_aux-descorigem EQ c_liquidacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCA_CP
IF wa_recurso_aux-descorigem EQ text-491.
* << 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.
...
...
IF itab_zycbt030-flag <> 'X'.
itab_zycbe033-newbs = '01'.
ELSE.
itab_zycbe033-newbs = '12'.
ENDIF.
ENDIF.
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 LANCA_CP
CONCATENATE 'Des.' itab_zycbt005-nrinvoic itab_zycbt005-nrparcf
* << Fim da exclusão
* >> Início da inclusão: FORM LANCA_CP
CONCATENATE text-472 itab_zycbt005-nrinvoic itab_zycbt005-nrparcf
* << 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.
IF v_wrbtr = itab_zycbe033-wrbtr OR
...
...
ENDFORM.
FORM valor_baixar_comissao .
CLEAR: v_vlcomis, v_saliq, v_some.
IF NOT itab_zycbt006[] IS INITIAL
AND 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 VALOR_BAIXAR_COMISSAO
gsberf = itab_zycbt006-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM VALOR_BAIXAR_COMISSAO
gsberf = itab_zycbt006-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
READ TABLE itab_zycbt030 WITH KEY
nrinvoic = itab_aux-nrinvoic
nrparcf = itab_aux-nrparcf
vbeln = itab_aux-vbeln
gsberf = itab_aux-gsberf.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt006-nrinvoic
nrparcf = itab_zycbt006-nrparcf
gsberf = itab_zycbt006-gsberf.
LOOP AT itab_zycbt006_pagos WHERE nrinvoic = itab_zycbt006-nrinvoic
...
...
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-c_newko = itab_zyglt316-konth.
ENDIF.
itab_zycbe033-wrbtr = wa_zycbt005-vlme_p.
READ TABLE itab_recurso_aux
WITH KEY nrinvoic = wa_zycbt005-nrinvoic
gsberf = wa_zycbt005-gsberf
nrparcf = wa_zycbt005-nrparcf
* >> Início da exclusão: FORM CLEARING_030_CP
descorigem = c_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_030_CP
descorigem = text-489.
* << Fim da inclusão
IF sy-subrc EQ 0.
itab_zycbe033-wrbtr = itab_recurso_aux-vl_total_saldo.
ENDIF.
ENDIF.
SELECT * FROM /pws/zycbt084 INTO TABLE itab_zycbt084
WHERE nrseqc = wa_zycbt005-nrseqc.
LOOP AT itab_zycbt084 WHERE nrseqc = wa_zycbt005-nrseqc
AND nrinvoic = wa_zycbt005-nrinvoic
AND gsberf = wa_zycbt005-gsberf
AND nrparcf = wa_zycbt005-nrparcf
...
...
itab_partidas-tcode = 'F-30'.
itab_partidas-tabela = 'ZYCBT006'.
itab_partidas-cpochv = itab_zycbe033-cpochv.
itab_partidas-belnr = itab_zycbt084-belnr.
itab_partidas-agkon = itab_zycbe033-d_newko.
itab_partidas-agkoa = itab_zycbe033-koart.
itab_partidas-agums = space.
itab_partidas-bukrs = itab_zycbe033-bukrs.
itab_partidas-shkzg = 'S'.
itab_partidas-dtdocto = itab_zycbt084-dtincl.
* >> Início da exclusão: FORM CLEARING_030_CP
CONCATENATE 'Des. OP' wa_zycbt005-nrseqc
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_030_CP
CONCATENATE text-473 wa_zycbt005-nrseqc
* << Fim da inclusão
INTO itab_partidas-d_zuonr
SEPARATED BY space.
itab_partidas-v_sinal = '-'.
APPEND itab_partidas.
ENDLOOP.
itab_zycbe033-werks = wa_zycbt005-werks.
APPEND itab_zycbe033.
IF sy-subrc EQ 0.
SORT itab_partidas BY agkoa agkon agums belnr.
ENDIF.
...
...
INTO itab_zycbe033-kursf
WHERE bukrs EQ itab_zycbt209-bukrs
AND belnr EQ v_belnr
AND gjahr EQ itab_zycbt209-dtbelnr(4).
IF itab_zycbt209-saldo GT p_zycbt005-slpagar.
itab_zycbe033-wrbtr = p_zycbt005-slpagar.
ELSE.
itab_zycbe033-wrbtr = itab_zycbt209-saldo.
ENDIF.
CHECK itab_zycbe033-wrbtr > 0.
* >> Início da exclusão: FORM DESMEMBRA_LIQ_AND
IF wa_recurso_aux-descorigem EQ c_liquidacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND
IF wa_recurso_aux-descorigem EQ text-490.
* << Fim da inclusão
IF itab_zycbt209-saldo >= p_zycbt005-vlme_p.
wa_recurso_aux-vl_total_saldo = p_zycbt005-vlme_p.
ELSEIF itab_zycbt209-saldo <= p_zycbt005-vlme_p.
wa_recurso_aux-vl_total_saldo = itab_zycbt209-saldo.
ENDIF.
MODIFY itab_recurso_aux FROM wa_recurso_aux.
v_slliq_30 = p_zycbt005-vlme_p - itab_zycbt209-saldo.
IF v_slliq_30 < 0.
v_slliq_30 = v_slliq_30 * ( -1 ).
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
MODIFY /pws/zycbt209 FROM TABLE itab_zycbt209.
COMMIT WORK.
IF v_subrc NE 0.
EXIT.
ENDIF.
IF itab_zycbt231[] IS INITIAL.
SELECT * FROM /pws/zycbt231
INTO TABLE itab_zycbt231
WHERE nrseqc = itab_zycbt006-nrseqc
AND dtpagext = itab_zycbt006-dtpagext
* >> Início da exclusão: FORM ESTORNO_PERIODO_ABERTO
AND dtpagto = itab_zycbt006-dtpagto.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO
AND dtpagto = itab_zycbt006-dtpagto."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
SELECT * FROM /pws/zycbt084 INTO TABLE itab_zycbt084
WHERE nrseqc = itab_zycbt006-nrseqc.
READ TABLE it_zycbt006
WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf
nrparcf = itab_zycbt006-nrparcf
dtvincul = itab_zycbt006-dtvincul.
IF NOT it_zycbt006-tpfatura_or IS INITIAL.
LOOP AT itab_zycbt231.
...
...
nrparcf = itab_zycbt005-nrparcf.
CHECK itab_zycbt209-saldo GT 0.
IF itab_zycbt209-saldo LE v_slliq.
itab_zycbt209-baixa = 'X'.
itab_zycbt209-vlbaixa = itab_zycbt209-saldo.
CLEAR: v_flag_la, wa_recurso_aux.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = itab_zycbt005-nrinvoic AND
gsberf = itab_zycbt005-gsberf AND
nrparcf = itab_zycbt005-nrparcf.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO_DP
IF wa_recurso_aux-descorigem EQ c_liquidacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_DP
IF wa_recurso_aux-descorigem EQ text-490.
* << Fim da inclusão
PERFORM desmembra_liq_and_cp.
v_slliq = v_slliq - itab_zycbt209-saldo.
MODIFY itab_zycbt209.
ENDIF.
v_flag_la = 'X'.
ENDLOOP.
IF v_flag_la IS INITIAL.
itab_zycbt209-baixa = 'X'.
itab_zycbt209-vlbaixa = itab_zycbt209-saldo.
PERFORM desmembra_liq_and_cp.
...
...
MODIFY itab_zycbt209.
ENDIF.
ELSE.
itab_zycbt209-baixa = 'X'.
itab_zycbt209-vlbaixa = v_slliq.
CLEAR: v_flag_la, wa_recurso_aux.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = itab_zycbt005-nrinvoic AND
gsberf = itab_zycbt005-gsberf AND
nrparcf = itab_zycbt005-nrparcf.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO_DP
IF wa_recurso_aux-descorigem EQ c_liquidacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_DP
IF wa_recurso_aux-descorigem EQ text-490.
* << Fim da inclusão
PERFORM desmembra_liq_and_cp.
IF sy-subrc EQ 0.
CLEAR v_slliq.
MODIFY itab_zycbt209.
ELSE.
v_subrc = 4.
ENDIF.
ENDIF.
v_flag_la = 'X'.
ENDLOOP.
...
...
itab_zycbt030-v_belnr = itab_zycbt030-belnr6.
PERFORM encontra_conta.
ENDIF.
MODIFY itab_zycbt030.
ENDIF.
CLEAR: v_flag_la, wa_recurso_aux.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = itab_zycbt005-nrinvoic AND
gsberf = itab_zycbt005-gsberf AND
nrparcf = itab_zycbt005-nrparcf.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO_DP
IF wa_recurso_aux-descorigem EQ c_liquidacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_DP
IF wa_recurso_aux-descorigem EQ text-491.
* << 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'.
...
...
LOOP AT itab_zycbt226 ASSIGNING <fs_zycbt226>
WHERE nrinvoic EQ itab_zycbt005-nrinvoic
AND nrparcf EQ itab_zycbt005-nrparcf
AND gsberf EQ itab_zycbt005-gsberf
AND sld_exterior GT 0.
IF <fs_zycbt226>-sld_exterior LE v_slliq.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = itab_zycbt005-nrinvoic AND
gsberf = itab_zycbt005-gsberf AND
nrparcf = itab_zycbt005-nrparcf.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO_DP
IF wa_recurso_aux-descorigem EQ c_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_DP
IF wa_recurso_aux-descorigem EQ text-489.
* << Fim da inclusão
IF v_slliq > 0.
PERFORM atualiza_saldo_me_dp.
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_dp
USING <fs_zycbt226>-sld_exterior.
CLEAR <fs_zycbt226>-sld_exterior.
PERFORM atualiza_tabelas.
ELSEIF sy-subrc NE 0.
...
...
ELSEIF sy-subrc NE 0.
v_subrc = 4.
EXIT.
ENDIF.
ENDIF.
ELSE.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = itab_zycbt005-nrinvoic AND
gsberf = itab_zycbt005-gsberf AND
nrparcf = itab_zycbt005-nrparcf.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO_DP
IF wa_recurso_aux-descorigem EQ c_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_DP
IF wa_recurso_aux-descorigem EQ text-489.
* << Fim da inclusão
IF v_slliq > 0.
PERFORM atualiza_saldo_me_dp.
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_dp
USING v_slliq.
CLEAR v_slliq.
PERFORM atualiza_tabelas.
...
...
AND gsberf = itab_zycbt005-gsberf
AND nrparcf = itab_zycbt005-nrparcf.
CHECK NOT itab_zycbt030-belnr_d IS INITIAL.
IF wa_zycbt007-liq_trans EQ space.
itab_zycbt030-belnr6 = itab_zycbt030-belnr_d.
itab_zycbt030-budat = itab_zycbt005-dtvincul.
READ TABLE itab_recurso_aux
WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO_DP
descorigem = c_liquidacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_DP
descorigem = text-491.
* << 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 =
...
...
INTO v_wrbtr
WHERE belnr = itab_zycbt030-v_belnr
AND gjahr = v_year
AND kunnr = itab_zycbt005-kunnr
AND bukrs = itab_zycbt005-bukrs.
IF v_wrbtr EQ itab_zycbe033-wrbtr.
v_vinc_tot = 'X'.
ELSE.
CLEAR v_vinc_tot.
ENDIF.
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
IF wa_recurso_aux-descorigem EQ c_liquidacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
IF wa_recurso_aux-descorigem EQ text-491.
* << 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.
...
...
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-c_newko = itab_zyglt316-konth.
ENDIF.
itab_zycbe033-wrbtr = itab_zycbt005-vlme_p.
CLEAR v_restante.
LOOP AT itab_recurso_aux
WHERE nrinvoic = itab_zycbt005-nrinvoic AND
gsberf = itab_zycbt005-gsberf AND
nrparcf = itab_zycbt005-nrparcf AND
* >> Início da exclusão: FORM BAIXA_CLIENTE_ACE
descorigem NE c_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
descorigem NE text-489.
* << Fim da inclusão
v_restante = v_restante + itab_recurso_aux-vl_saldo.
ENDLOOP.
READ TABLE itab_recurso_aux
WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf
* >> Início da exclusão: FORM BAIXA_CLIENTE_ACE
descorigem = c_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
descorigem = text-489.
* << Fim da inclusão
IF sy-subrc EQ 0.
itab_zycbe033-wrbtr = itab_zycbt005-vlme_p - v_restante.
ENDIF.
ENDIF.
CLEAR itab_zyglt100.
IF itab_zyglt100[] IS INITIAL.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'E'
...
...
ENDIF.
ENDFORM.
FORM determina_fator CHANGING e_parafator
e_defator.
SELECT SINGLE ffact tfact
FROM tcurf
INTO (e_parafator,
e_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 contabiliza_cp_arbitr.
DATA: v_linha TYPE i.
PERFORM get_parameters_cp.
PERFORM get_parameters_arbitr.
CLEAR wa_zycbt005.
CLEAR itab_belnr.
REFRESH itab_belnr.
MOVE itab_zycbt005 TO wa_zycbt005.
LOOP AT itab_zycbt030 WHERE nrinvoic = wa_zycbt005-nrinvoic AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F09
...
itab_zycbe033-c_valut = itab_zycbt005-dtvincul.
ENDIF.
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
ENDCASE.
ENDLOOP.
CALL CUSTOMER-FUNCTION '004'
IMPORTING
* >> Início da exclusão: FORM FILL_DATE6_F30_2
v_subrc = v_retexit.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_2
v_subrc = v_retexit."#EC *
* << Fim da inclusão
IF v_retexit = 'X'.
itab_zycbe033-d_gsber = /pws/zycbe001-gsber.
ELSE.
itab_zycbe033-d_gsber = wa_zycbt005-gsberf.
ENDIF.
itab_zycbe033-dtdocto = wa_zycbt005-dtvincul.
IF wa_zycbt005-slpagar IS INITIAL AND
NOT wa_zycbt005-tpcontr(1) CA 'CE'.
itab_zycbe033-flag_nc = 'X'.
ENDIF.
...
...
'BLART'
text-006.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-agkoa = 'D'.
itab_zycbe033-agkon = wa_zycbt005-kunnr.
PERFORM verify_null_field USING wa_zycbt005-kunnr
'KUNNR'
text-009.
CALL CUSTOMER-FUNCTION '004'
IMPORTING
* >> Início da exclusão: FORM FILL_DATE6_F22_ARBITR
v_subrc = v_retexit.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F22_ARBITR
v_subrc = v_retexit."#EC *
* << Fim da inclusão
IF v_retexit = 'X'.
itab_zycbe033-c_gsber = /pws/zycbe001-gsber.
ELSE.
itab_zycbe033-c_gsber = wa_zycbt005-gsberf.
ENDIF.
itab_zycbe033-d_gsber = wa_zycbt005-gsberf.
REFRESH itab_zyglt321.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'CPT'
...
...
budat = itab_zycbt030-budat
belnr30 = belnr_
IMPORTING
belnr_ = belnr_
conta_ = conta_
icc_ = icc_
EXCEPTIONS
cliente_invalido = 1
sem_conta_coligada = 2
sem_doc_coligada = 3
* >> Início da exclusão: FORM BAIXA_CLIENTE_VINC
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_VINC
OTHERS = 4."#EC ARGCHECKED
* << Fim da inclusão
IF sy-subrc NE 0.
CASE sy-subrc.
WHEN 1.
MESSAGE e061 WITH text-126 text-127.
WHEN 2.
MESSAGE e061 WITH text-126 text-128.
WHEN 3.
MESSAGE e061 WITH text-126 text-129.
ENDCASE.
EXIT.
...
...
budat = itab_zycbt030-budat
belnr30 = belnr_
IMPORTING
belnr_ = belnr_
conta_ = conta_
icc_ = icc_
EXCEPTIONS
cliente_invalido = 1
sem_conta_coligada = 2
sem_doc_coligada = 3
* >> Início da exclusão: FORM BAIXA_CLIENTE_VINC2
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_VINC2
OTHERS = 4."#EC ARGCHECKED
* << Fim da inclusão
IF sy-subrc NE 0.
CASE sy-subrc.
WHEN 1.
MESSAGE e061 WITH text-126 text-127.
WHEN 2.
MESSAGE e061 WITH text-126 text-128.
WHEN 3.
MESSAGE e061 WITH text-126 text-129.
ENDCASE.
EXIT.
...
...
itab_zycbt005-waers
wa_zycbt007-waersb
itab_zycbe033-kursf.
ENDIF.
IF /pws/zycbt089-tx_desm_cli EQ 'VIATRANS' AND
itab_zycbe033-kursf IS INITIAL.
PERFORM verify_null_field USING itab_zycbe033-kursf
'KURSF'
text-080.
ENDIF.
* >> Início da exclusão: FORM DESMEMBRA_LIQ_AND_CP
IF wa_recurso_aux-descorigem EQ c_liquidacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND_CP
IF wa_recurso_aux-descorigem EQ text-490.
* << Fim da inclusão
IF itab_zycbt209-saldo >= itab_zycbt005-vlme_p.
wa_recurso_aux-vl_total_saldo = itab_zycbt005-vlme_p.
ELSEIF itab_zycbt209-saldo <= itab_zycbt005-vlme_p.
wa_recurso_aux-vl_total_saldo = itab_zycbt209-saldo.
ENDIF.
MODIFY itab_recurso_aux FROM wa_recurso_aux.
v_slliq_30 = itab_zycbt005-vlme_p - itab_zycbt209-saldo.
IF v_slliq_30 < 0.
v_slliq_30 = v_slliq_30 * ( -1 ).
ENDIF.
...
...
ENDLOOP.
CHECK NOT itab_zycbt005-belnr IS INITIAL.
IF itab_zycbt005-belnr_vinc EQ itab_zycbt005-belnr.
CLEAR itab_zycbt005-belnr_vinc.
MODIFY itab_zycbt005.
ELSE.
PERFORM anula_desm_ace TABLES itab_zycbt005.
ENDIF.
ENDDO.
sy-subrc = 4.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO_DP2
EXIT.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_DP2
EXIT."#EC *
* << Fim da inclusão
/pws/zycbe001-belnr2 = v_belnr_comp.
v_belnr_001 = v_belnr_comp.
v_dtdocto = itab_zycbt005-dtvincul.
/pws/zycbe001-belnr2 = itab_zycbt032-belnr.
/pws/zycbe001-dtvincul = itab_zycbt005-dtvincul.
ENDIF.
CLEAR v_subrc.
LOOP AT itab_zycbt005 WHERE flag = p_flag.
itab_zycbt005-status = 'C'.
LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt005-nrinvoic
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
AND nrparcf = itab_zycbt005-nrparcf
AND dtliquid = itab_zycbt005-dtcredext.
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt044
WHERE nrseqc = itab_zycbt005-nrseqc
AND tpdesp = 'J'
AND nrparc = itab_zycbt005-nrparc
AND dtincl = itab_zycbt005-dtvincul
AND nrinvoic = itab_zycbt005-nrinvoic
AND nrparcf = itab_zycbt005-nrparcf
* >> Início da exclusão: FORM VERIFICA_PAG_JUROS
AND dtliquid = itab_zycbt005-dtcredext.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PAG_JUROS
AND dtliquid = itab_zycbt005-dtcredext. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF sy-subrc EQ 0.
v_pag_jur = 'X'.
ENDIF.
ENDFORM.
FORM vincula_linha_total USING v_index_6.
IF itab_zycbt005-vlme_p EQ 0.
PERFORM move_saldo_fat USING v_index_6.
ENDIF.
ENDFORM.
...
...
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-474 TO t_prog.
APPEND text-475 TO t_prog.
APPEND text-476 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-477 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-478 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-479 TO t_prog.
APPEND text-480 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-481 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-482 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-483 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
...
...
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
...
...
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-484
* << 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-485
* << Fim da inclusão
it_origem-descorigem.
MOVE: 'X' TO it_mensagem-v_erro,
'4' TO it_mensagem-v_codigo,
...
...
MOVE space TO itab_recurso_aux-mark.
MODIFY itab_recurso_aux.
WHEN: 4.
MOVE space TO itab_recurso_aux-mark.
MODIFY itab_recurso_aux.
ENDCASE.
ENDIF.
ENDLOOP.
endform.
form atualiza_saldo_me.
* >> Início da exclusão: FORM ATUALIZA_SALDO_ME
IF wa_recurso_aux-descorigem EQ c_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_SALDO_ME
IF wa_recurso_aux-descorigem EQ text-489.
* << Fim da inclusão
IF <fs_zycbt226>-sld_exterior >= v_slliq.
wa_recurso_aux-vl_total_saldo = v_slliq.
ELSEIF <fs_zycbt226>-sld_exterior =< v_slliq.
wa_recurso_aux-vl_total_saldo = <fs_zycbt226>-sld_exterior.
ENDIF.
vl_saldo_aux = vl_saldo_aux + wa_recurso_aux-vl_total_saldo.
itab_zycbt030-vlslliq = itab_zycbt030-vlslliq -
wa_recurso_aux-vl_total_saldo.
wa_zycbt005-slpagar = wa_zycbt005-slpagar -
wa_recurso_aux-vl_total_saldo.
...
...
FORM atualiza_zycbt231 USING p_valor.
itab_zycbt231-nrseq = <fs_zycbt226>-nrseq.
itab_zycbt231-nrseqc = wa_zycbt005-nrseqc.
itab_zycbt231-dtpagext = /pws/zycbe006-dtpagext.
itab_zycbt231-dtpagto = /pws/zycbe006-dtpagto.
itab_zycbt231-waers = <fs_zycbt226>-waers.
itab_zycbt231-vlme = p_valor.
APPEND itab_zycbt231.
ENDFORM.
form atualiza_saldo_me_dp.
* >> Início da exclusão: FORM ATUALIZA_SALDO_ME_DP
IF wa_recurso_aux-descorigem EQ c_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_SALDO_ME_DP
IF wa_recurso_aux-descorigem EQ text-489.
* << Fim da inclusão
IF <fs_zycbt226>-sld_exterior >= v_slliq.
wa_recurso_aux-vl_total_saldo = v_slliq.
ELSEIF <fs_zycbt226>-sld_exterior =< v_slliq.
wa_recurso_aux-vl_total_saldo = <fs_zycbt226>-sld_exterior.
ENDIF.
CLEAR /pws/zycbt084.
/pws/zycbt084-result_saldo = wa_recurso_aux-vl_total_saldo.
/pws/zycbt084-nrseqc = itab_zycbt005-nrseqc.
/pws/zycbt084-tpdesp = itab_zycbt005-tpdesp.
/pws/zycbt084-nrparc = itab_zycbt005-nrparc.
...
...
itab_zycbt231-dtpagto = /pws/zycbe006-dtpagto.
itab_zycbt231-waers = <fs_zycbt226>-waers.
itab_zycbt231-vlme = p_valor.
APPEND itab_zycbt231.
endform.
form mensagem_tc_recurso_aux.
DATA: v_msg_p1(59) TYPE c,
v_msg_p2(56) TYPE c.
IF /pws/zycbe005-tpcontr(1) EQ 'C' OR
/pws/zycbe005-tpcontr(1) EQ 'D'.
* >> 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-486.
v_msg_p2 = text-487.
* << 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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009O01
...
IMPORT v_flag FROM MEMORY ID '002'.
IMPORT v_nseqc FROM MEMORY ID '9998'.
IF NOT v_nseqc IS INITIAL.
v_nrseqc = v_nseqc.
ENDIF.
IMPORT v_datv FROM MEMORY ID '9999'.
IF NOT v_datv IS INITIAL.
v_dtvincul = v_datv.
ENDIF.
if v_nrseqc is initial.
* >> Início da exclusão: MODULE STATUS_0001
GET PARAMETER ID '001' FIELD v_nrseqc.
GET PARAMETER ID '9999' FIELD v_dtvincul.
SET PARAMETER ID '001' FIELD ''.
SET PARAMETER ID '9999' FIELD ''.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0001
GET PARAMETER ID '001' FIELD v_nrseqc."#EC *
GET PARAMETER ID '9999' FIELD v_dtvincul."#EC *
SET PARAMETER ID '001' FIELD ''."#EC *
SET PARAMETER ID '9999' FIELD ''."#EC *
* << Fim da inclusão
endif.
ENDMODULE.
MODULE status_0010 OUTPUT.
SET PF-STATUS '0010'.
SET TITLEBAR '10'.
SET SCREEN '0010'.
tc_datas-lines = tc_datas-top_line + 15.
IF sy-tcode EQ c_transacao_e.
LOOP AT SCREEN.
IF screen-group1 = 'GR1'.
...
...
AND nrparcf = itab_zycbt005-nrparcf
AND dtliquid = itab_zycbt005-dtcredext.
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt044
WHERE nrseqc = itab_zycbt005-nrseqc
AND tpdesp = 'J'
AND nrparc = itab_zycbt005-nrparc
AND dtincl = itab_zycbt005-dtvincul
AND nrinvoic = itab_zycbt005-nrinvoic
AND nrparcf = itab_zycbt005-nrparcf
* >> Início da exclusão: MODULE SET_SCREEN_VINC
AND dtliquid = itab_zycbt005-dtcredext.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_VINC
AND dtliquid = itab_zycbt005-dtcredext. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF sy-subrc EQ 0.
screen-input = '0'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ELSE.
IF itab_zycbt005-nrinvoic IS INITIAL.
LOOP AT SCREEN.
...
...
MODULE status_0405 OUTPUT.
SET PF-STATUS '0405'.
SET TITLEBAR '0405'.
ENDMODULE.
module trata_exit output.
perform busca_exit.
perform seleciona_exit.
endmodule.
module status_0103 output.
SET PF-STATUS '0103'.
* >> Início da exclusão: MODULE STATUS_0103
SET TITLEBAR '0103' WITH 'Exibir Seleção de Recurso'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0103
SET TITLEBAR '0103' WITH text-488.
* << Fim da inclusão
endmodule.
module set_screen_0103 output.
CASE sy-dynnr.
WHEN '0103'.
tc_recurso-lines = tc_recurso-top_line + 15.
LOOP AT tc_recurso-cols INTO wa_cols.
wa_cols-screen-input = '0'.
MODIFY tc_recurso-cols FROM wa_cols.
ENDLOOP.
ENDCASE.
...
...
itab_zycbt005-vlvinc TO it_zycbt006-vlvinc.
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.
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[].
...
...
<fs_recurso>-vlme = <fi_zycbt006>-vlme.
<fs_recurso>-vlvinc = <fi_zycbt006>-vlvinc.
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 = c_liquidacao_m.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_RECURSO
wa_recurso_aux-descorigem = text-489.
* << 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 = c_liquidacao_a.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_RECURSO
wa_recurso_aux-descorigem = text-490.
* << 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 = c_liquidacao_c.
* << Fim da exclusão
* >> Início da inclusão: MODULE SELECIONA_RECURSO
wa_recurso_aux-descorigem = text-491.
* << 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/MZYCB009TOP
...
DATA: it_origem LIKE TABLE OF s_origem
WITH HEADER LINE.
DATA: itab_zycbt226 LIKE TABLE OF s_zycbt226
WITH HEADER LINE.
DATA: wa_recurso_aux LIKE LINE OF itab_recurso_aux,
wa_zycbt226 LIKE LINE OF it_zycbt226,
wa_zycbt030 LIKE LINE OF it_zycbt030,
wa_zycbt017 LIKE LINE OF it_zycbt017,
wa_zycbt006 LIKE LINE OF it_zycbt006,
wa_origem LIKE LINE OF it_origem.
* >> Início da exclusão:
CONSTANTS: c_liquidacao_m(28) VALUE 'Valores Mantidos no Exterior',
c_liquidacao_a(23) VALUE 'Liquidação em Andamento',
c_liquidacao_c(07) VALUE 'Cliente'.
* << Fim da exclusão
DATA: v_descorigem(50) TYPE c,
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,
v_slliq_30 TYPE /pws/zycbt006-vlme,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB009
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 472
Texto: (4 caracteres)
"Des."
Comprimento máximo: 4
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 473
Texto: (7 caracteres)
"Des. OP"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 474
Texto: (35 caracteres)
"DATA: BEGIN OF binary_tab OCCURS 0,"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 475
Texto: (20 caracteres)
"default(200) TYPE c,"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 476
Texto: (18 caracteres)
"END OF binary_tab."
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 477
Texto: (19 caracteres)
"p_dados TO <VALOR>."
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 478
Texto: (18 caracteres)
"v_valor = <VALOR>."
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 479
Texto: (31 caracteres)
"SHIFT v_valor(dd03l-leng) RIGHT"
Comprimento máximo: 31
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 480
Texto: (24 caracteres)
"DELETING TRAILING space."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 481
Texto: (22 caracteres)
"BUFFER = v_xstring"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 482
Texto: (25 caracteres)
" BINARY_TAB = binary_tab."
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 483
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: 484
Texto: (31 caracteres)
"Valor a ser Liquidado da fatura"
Comprimento máximo: 31
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 485
Texto: (22 caracteres)
". Maior do que o saldo"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 486
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: 487
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: 488
Texto: (25 caracteres)
"Exibir Seleção de Recurso"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 489
Texto: (28 caracteres)
"Valores Mantidos no Exterior"
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 490
Texto: (23 caracteres)
"Liquidação em Andamento"
Comprimento máximo: 23
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 491
Texto: (7 caracteres)
"Cliente"
Comprimento máximo: 7