CE PLUS - Nota 005587
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 09/01/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:38:24
Descrição da Nota: VERIFICAÇÃO E CODE INSPECTOR
Sintoma
acertar programa para melhor qualidade
Solução
verificação ampliada e code inspector
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05587 Data: 09/01/2008 Hora: 09:12:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05587
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:
VERIFICAÇÃO E CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
VERIFICAÇÃO AMPLIADA E CODE INSPECTOR DO PROGRAMA DE ROTINA MENSAL
DE CALCULO DE JUROS - FINANCEIRO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOCU NA/PWS/ZYCAM015
REPS /PWS/ZYCBI113
REPS /PWS/ZYCBR113
REPT /PWS/ZYCBR113
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCAM015
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI113
...
ULINE.
ENDFORM.
FORM exibe_dia_da_semana USING p_dia_sem.
CALL FUNCTION '/PWS/ZYCB_DIA_DA_SEMANA'
EXPORTING
datum = sy-datum
IMPORTING
dia_da_semana = p_dia_sem
EXCEPTIONS
OTHERS = 1.
* >> Início da inclusão: FORM EXIBE_DIA_DA_SEMANA
IF sy-subrc EQ 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM processa_dados_contabil.
REFRESH itab_status.
itab_status-fcode = 'ESTO'.
APPEND itab_status.
itab_status-fcode = 'RCON'.
APPEND itab_status.
IF NOT v_contabilizado IS INITIAL OR
s_rbrela = 'X'.
itab_status-fcode = 'CONT'.
...
...
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
FOR ALL ENTRIES IN itab_zycbt011
WHERE codeven = itab_zycbt011-codeven
AND codmod = itab_zycbt011-codmod.
ENDIF.
ENDFORM.
FORM preenche_contas.
DATA:
v_nrdias TYPE i,
* >> Início da exclusão: FORM PREENCHE_CONTAS
v_prazo.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CONTAS
v_prazo. "#EC NEEDED
* << Fim da inclusão
v_nrdias = itab_zycbt129j-dtfinal - s_dtentr.
IF v_nrdias > /pws/zyglt009-nrdias_cp.
v_prazo = 'L'.
ELSE.
v_nrdias = itab_zycbt129j-dtfinal - itab_zycbt128-dtdesem.
IF v_nrdias > /pws/zyglt009-nrdias_cp.
v_prazo = 'C'.
ELSE.
v_prazo = 'S'.
ENDIF.
...
...
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
itab_relat-c_newko = itab_zyglt316-konth.
ENDIF.
ENDFORM.
FORM lancamento_provisao.
DATA:
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
v_ir(1) TYPE n,
* << Fim da exclusão
v_tvlmej LIKE /pws/zycbt128-vlme,
v_tvlmeir LIKE /pws/zycbt128-vlme.
LOOP AT itab_contabil WHERE aux <> 'X'
AND tpcontab <> 'T'.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
CLEAR: v_tvlmej, v_tvlmeir, v_ir.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
CLEAR: v_tvlmej,
v_tvlmeir.
* << Fim da inclusão
IF itab_contabil-tpcontab = ' '.
LOOP AT itab_relat WHERE nrseq = itab_contabil-nrcorresp
AND tpcontab = ' '
AND nrparcj = itab_contabil-nrparcj.
v_tvlmej = v_tvlmej + itab_relat-vlmej.
v_tvlmeir = v_tvlmeir + itab_relat-vlmeir.
ENDLOOP.
ELSEIF itab_contabil-tpcontab = 'C'.
LOOP AT itab_relat WHERE nrseq = itab_contabil-nrcorresp
AND tpcontab = 'C'
...
...
itab_zycbe033-d_fictr = itab_contabil-fictr.
itab_zycbe033-c_newko = itab_contabil-c_newko.
itab_zycbe033-c_gsber = itab_contabil-gsber.
itab_zycbe033-c_prctr = itab_zycbt128-prctr.
itab_zycbe033-c_fipos = itab_contabil-fipos.
itab_zycbe033-c_fictr = itab_contabil-fictr.
PERFORM verifica_pais_filial USING itab_zycbt128-bukrs
itab_zycbt128-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt128-j_1bbranch.
IF itab_zycbe033-wrbtr > 0.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
CALL CUSTOMER-FUNCTION '001'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
ENDIF.
IF itab_contabil-vlrprovir > 0.
itab_zycbe033-wrbtr = itab_contabil-vlrprovir.
IF itab_contabil-tpcontab IS INITIAL.
CONCATENATE 'IR' itab_contabil-bco
itab_contabil-bukrs itab_contabil-gsber
itab_contabil-waers itab_contabil-d_newkoir
itab_contabil-c_newkoir itab_contabil-nrcorresp
INTO itab_zycbe033-cpochv.
...
...
itab_contabil-c_newkoir itab_contabil-nrcorresp
INTO itab_zycbe033-cpochv.
ENDIF.
IF NOT itab_contabil-d_newkoir IS INITIAL AND
NOT itab_contabil-c_newkoir IS INITIAL.
itab_zycbe033-d_newko = itab_contabil-d_newkoir.
itab_zycbe033-c_newko = itab_contabil-c_newkoir.
itab_zycbe033-d_sgtxt = itab_contabil-d_sgtxtir.
itab_zycbe033-c_sgtxt = itab_contabil-c_sgtxtir.
itab_zycbe033-blart = itab_contabil-blartir.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
CALL CUSTOMER-FUNCTION '002'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
ENDIF.
ENDIF.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbe033[] IS INITIAL.
MESSAGE i061(/pws/zycbm) WITH text-061 text-062.
ELSEIF itab_zycbt034[] IS INITIAL.
PERFORM executa_trans_f_02.
...
...
itab_zycbe033-budat = itab_zycbt154-dtcont.
ELSEIF itab_zycbt154-dtcont EQ itab_zycbe033-budat.
itab_zycbe033-stgrd = '01'.
ELSE.
itab_zycbe033-stgrd = '02'.
ENDIF.
ELSE.
itab_zycbe033-stgrd = '02'.
itab_zycbe033-budat = sy-datum.
ENDIF.
* >> Início da exclusão: FORM LANCAMENTO_ESTORNO
CALL CUSTOMER-FUNCTION '003'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
ENDFORM.
FORM processa_contabilizacao.
NEW-PAGE LINE-SIZE 220 LINE-COUNT 58 NO-TITLE.
UPDATE /pws/zycbt021 SET data = sy-datum
hora = sy-uzeit
usuario = sy-uname
WHERE codrel = '113'.
IF wa_zycbt007-fprovisao = space.
LOOP AT itab_zycbt154.
...
...
e_txc = itab_relat-kursf
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
OTHERS = 8.
* >> Início da inclusão: FORM MONTANTE_CONVERTE
IF sy-subrc EQ 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM lancamento_provisao_estorno_me.
LOOP AT itab_contabil_estorno WHERE aux <> 'X'
AND tpcontab <> 'T'.
IF itab_contabil_estorno-vlme <= 0.
CONTINUE.
ENDIF.
READ TABLE itab_zycbt154 WITH KEY codint = 'F'
waers = itab_contabil_estorno-waers
gsber = itab_contabil_estorno-gsber
...
...
itab_zycbe033-d_prctr = itab_contabil_estorno-prctr.
itab_zycbe033-d_fipos = itab_contabil_estorno-fipos.
itab_zycbe033-d_fictr = itab_contabil_estorno-fictr.
itab_zycbe033-c_newko = itab_contabil_estorno-c_newko.
itab_zycbe033-c_gsber = itab_contabil_estorno-gsber.
itab_zycbe033-c_kostl = itab_contabil_estorno-kostl.
itab_zycbe033-c_prctr = itab_contabil_estorno-prctr.
itab_zycbe033-c_fipos = itab_contabil_estorno-fipos.
itab_zycbe033-c_fictr = itab_contabil_estorno-fictr.
IF itab_zycbe033-wrbtr > 0.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO_ESTORNO_ME
CALL CUSTOMER-FUNCTION '004'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
ENDIF.
IF itab_contabil_estorno-vlrprovir > 0.
itab_zycbe033-wrbtr = itab_contabil_estorno-vlrprovir.
CONCATENATE 'IR' itab_contabil_estorno-bco
itab_contabil_estorno-bukrs itab_contabil_estorno-gsber
itab_contabil_estorno-waers itab_contabil_estorno-d_newkoir
itab_contabil_estorno-c_newkoir
INTO itab_zycbe033-cpochv.
IF NOT itab_contabil_estorno-d_newkoir IS INITIAL AND
NOT itab_contabil_estorno-c_newkoir IS INITIAL.
itab_zycbe033-d_newko = itab_contabil_estorno-d_newkoir.
itab_zycbe033-c_newko = itab_contabil_estorno-c_newkoir.
itab_zycbe033-d_sgtxt = itab_contabil_estorno-d_sgtxtir.
itab_zycbe033-c_sgtxt = itab_contabil_estorno-c_sgtxtir.
itab_zycbe033-blart = itab_contabil_estorno-blartir.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO_ESTORNO_ME
CALL CUSTOMER-FUNCTION '005'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
ENDIF.
ENDIF.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbe033[] IS INITIAL.
MESSAGE i061(/pws/zycbm) WITH text-061 text-062.
ELSEIF itab_zycbt034[] IS INITIAL.
PERFORM executa_trans_f_02_estorno_mes.
...
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM COMPLETA_ITAB_RELAT
IF sy-subrc EQ 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'RMF001' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
ENDIF.
...
...
itab_zycbe033-bukrs = itab_contabil-bukrs.
PERFORM verify_null_field USING itab_contabil-waers
'WAERS'
text-035.
itab_zycbe033-waers = itab_contabil-waers.
itab_zycbe033-kursf = itab_contabil-kursf.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-117.
itab_zycbe033-blart = wa_zycbt011-blart.
* >> Início da exclusão: FORM CLEARING_TRANSFERENCIA
CALL CUSTOMER-FUNCTION '006'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
PERFORM verifica_pais_filial USING itab_zycbt128-bukrs
itab_zycbt128-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt128-j_1bbranch.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i061 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
CALL FUNCTION '/PWS/ZYCA_TRANSACAO_F_51T'
EXPORTING
...
...
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = text-114
tabela = text-115
cpochv = itab_contabil-nrcorresp
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM CLEARING_TRANSFERENCIA
CALL CUSTOMER-FUNCTION '009'.
* << Fim da exclusão
MOVE-CORRESPONDING itab_contabil TO /pws/zycbt154.
/pws/zycbt154-codmod = 'F'.
/pws/zycbt154-codmodul = 'T'.
/pws/zycbt154-codint = itab_contabil-tpemprest.
/pws/zycbt154-tpcontr = itab_contabil-nrparcp+1(2).
/pws/zycbt154-dtcont = s_dtentr.
/pws/zycbt154-belnr_pr = itab_zycbt129p-belnr_lp.
/pws/zycbt154-belnr_cl = itab_zycbt032-belnr.
INSERT INTO /pws/zycbt154 VALUES /pws/zycbt154.
COMMIT WORK.
...
...
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i061 WITH itab_zycbt034-descricao.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
FORM get_parameters_f-51t.
CLEAR wa_zycbt011.
* >> Início da exclusão: FORM GET_PARAMETERS_F-51T
SELECT SINGLE * FROM /pws/zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F-51T
SELECT * FROM /pws/zycbt011
up to 1 rows
* << Fim da inclusão
INTO wa_zycbt011
WHERE codeven = '001T'
AND codmod = 'F'.
* >> Início da inclusão: FORM GET_PARAMETERS_F-51T
endselect.
* << Fim da inclusão
ENDFORM.
FORM clear_date_batch.
CLEAR: itab_zycbt032,
itab_zycbe033,
...
...
text-035.
itab_zycbe033-waers = itab_contabil_estorno-waers.
itab_zycbe033-kursf = itab_contabil_estorno-kursf.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-117.
itab_zycbe033-blart = wa_zycbt011-blart.
PERFORM verifica_pais_filial USING itab_zycbt128-bukrs
itab_zycbt128-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt128-j_1bbranch.
* >> Início da exclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
CALL CUSTOMER-FUNCTION '008'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i061 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
CALL FUNCTION '/PWS/ZYCA_TRANSACAO_F_51T'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
...
...
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = text-114
tabela = text-115
cpochv = itab_contabil_estorno-nrcorresp
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
CALL CUSTOMER-FUNCTION '011'.
* << Fim da exclusão
MOVE-CORRESPONDING itab_contabil_estorno TO /pws/zycbt154.
/pws/zycbt154-codmod = 'F'.
/pws/zycbt154-codmodul = 'T'.
/pws/zycbt154-codint = itab_contabil-tpemprest.
/pws/zycbt154-tpcontr = itab_contabil_estorno-nrparcp+1(2).
/pws/zycbt154-dtcont = s_dtentr.
/pws/zycbt154-belnr_pr = itab_zycbt129p-belnr_lp.
/pws/zycbt154-belnr_cl = itab_zycbt032-belnr.
INSERT INTO /pws/zycbt154 VALUES /pws/zycbt154.
COMMIT WORK.
...
...
SELECT SINGLE periv FROM t001
INTO v_periv
WHERE bukrs EQ p_bukrs.
CALL FUNCTION 'DETERMINE_PERIOD'
EXPORTING
date = p_budat
version = v_periv
IMPORTING
period = p_monat
EXCEPTIONS
* >> Início da exclusão: FORM DETERMINA_PERIODO
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_PERIODO
period_in_not_valid = 0
period_not_assigned = 0
version_undefined = 0
OTHERS = 0.
* << Fim da inclusão
ENDFORM.
FORM determina_ano USING p_budat
p_bukrs
CHANGING p_ano.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = p_bukrs
v_date = p_budat
IMPORTING
v_year = p_ano.
ENDFORM.
FORM verifica_pais_filial USING p_bukrs
p_brnch.
SELECT SINGLE adrnr FROM j_1bbranch INTO j_1bbranch-adrnr
WHERE bukrs = p_bukrs
AND branch = p_brnch.
IF sy-subrc = 0.
* >> Início da exclusão: FORM VERIFICA_PAIS_FILIAL
SELECT SINGLE country FROM adrc INTO adrc-country
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PAIS_FILIAL
SELECT country
FROM adrc
up to 1 rows
INTO adrc-country
* << Fim da inclusão
WHERE addrnumber = j_1bbranch-adrnr.
* >> Início da inclusão: FORM VERIFICA_PAIS_FILIAL
endselect.
* << Fim da inclusão
IF sy-subrc = 0 AND
adrc-country NE 'BR' AND adrc-country NE 'TW'.
CLEAR p_brnch.
ENDIF.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR113
REPORT /pws/zycbr113 LINE-SIZE 220
LINE-COUNT 65
MESSAGE-ID /pws/zycam
NO STANDARD PAGE HEADING.
INCLUDE /pws/z_rel_alv.
TABLES: /pws/zycbt128,
/pws/zycbe128,
* >> Início da exclusão:
/pws/zycbt129,
/pws/zycbt031,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt129, "#EC *
/pws/zycbt031, "#EC *
* << Fim da inclusão
/pws/zycbt154,
/pws/zycbt039,
t001,
/pws/zycbt021,
* >> Início da exclusão:
indx,
* << Fim da exclusão
j_1bbranch,
adrc,
/pws/zycbt009.
...
...
itab_zycbt134 LIKE /pws/zycbt134 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_modo OCCURS 0.
INCLUDE STRUCTURE spopli.
DATA: END OF itab_modo.
DATA: BEGIN OF itab_status OCCURS 5,
fcode LIKE rsmpe-func,
END OF itab_status.
DATA: itab_zycbt009 LIKE /pws/zycbt009 OCCURS 3 WITH HEADER LINE,
itab_zycbt010 LIKE /pws/zycbt010 OCCURS 2 WITH HEADER LINE,
itab_zycbt011 LIKE /pws/zycbt011 OCCURS 5 WITH HEADER LINE,
* >> Início da exclusão:
itab_zycbt012 LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão:
itab_zycbt012 LIKE /pws/zycbt012 OCCURS 10 , "#EC NEEDED
* << Fim da inclusão
itab_zycbt013 LIKE /pws/zycbt013 OCCURS 5 WITH HEADER LINE,
itab_zycbt154 LIKE /pws/zycbt154 OCCURS 10 WITH HEADER LINE,
itab_tcurx LIKE tcurx OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF itab_contabil OCCURS 20,
tpcontab TYPE c,
codmodul LIKE /pws/zycbt120-codmodul,
bco LIKE /pws/zycbt128-bcofinan,
dtcont LIKE sy-datum,
bukrs LIKE /pws/zycbt128-bukrs,
gsber LIKE /pws/zycbt128-gsber,
...
...
nrseq LIKE /pws/zycbt128-nrseq,
nremprest LIKE /pws/zycbt128-nremprest,
nrparc LIKE /pws/zycbt129-nrparc,
tpmsg LIKE /pws/zycbt032-tpmsg,
msg LIKE /pws/zycbt032-msg,
END OF itab_msg.
DATA: itab_zycbt032 LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE,
itab_zycbe033 LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,
itab_zycbt034 LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,
itab_zycbt036 LIKE /pws/zycbt036 OCCURS 10 WITH HEADER LINE.
* >> Início da exclusão:
DATA: itab_relat_excluidos LIKE itab_relat OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF rs_result,
tpcontab TYPE c,
tpparc TYPE c,
nrseq LIKE /pws/zycbt128-nrseq,
nrparcp LIKE /pws/zycbt129-nrparc,
nrparcj LIKE /pws/zycbt129-nrparc,
nremprest LIKE /pws/zycbt128-nremprest,
bco LIKE /pws/zycbt128-bcofinan,
bukrs LIKE /pws/zycbt128-bukrs,
gsber LIKE /pws/zycbt128-gsber,
waers LIKE /pws/zycbt128-waers,
dtoperac LIKE /pws/zycbt128-dtdesem,
dtde LIKE sy-datum,
dtate LIKE sy-datum,
nrdias(4) TYPE n,
txjfixa LIKE /pws/zycbt129-txjfixa,
txjvar LIKE /pws/zycbt129-txjvar,
txjtotal LIKE /pws/zycbt129-txjtotal,
aliqir LIKE /pws/zycbt129-aliqir,
vlme LIKE /pws/zycbt128-vlme,
vlmec LIKE /pws/zycbt128-vlme,
vlmep LIKE /pws/zycbt128-vlme,
vlmev LIKE /pws/zycbt128-vlme,
vlmetransf LIKE /pws/zycbt001-vlme,
vlmitransf LIKE /pws/zycbt001-vlme,
kursf LIKE tcurr-ukurs,
vlmej LIKE /pws/zycbt128-vlme,
vlmij LIKE /pws/zycbt128-vlme,
vlmeir LIKE /pws/zycbt128-vlme,
ftme LIKE tcurr-ffact,
ftmi LIKE tcurr-ffact,
d_newko LIKE /pws/zycbe033-d_newko,
c_newko LIKE /pws/zycbe033-c_newko,
d_newkoir LIKE /pws/zycbe033-d_newko,
c_newkoir LIKE /pws/zycbe033-c_newko,
kostl LIKE /pws/zycbt128-kostl,
prctr LIKE /pws/zycbt128-prctr,
fipos LIKE /pws/zycbt128-fipos,
fictr LIKE /pws/zycbt128-fictr,
f_encerrado LIKE /pws/zycbt001-f_encerrado,
blart LIKE /pws/zycbt011-blart,
c_sgtxt LIKE /pws/zycbt011-txtdesc,
d_sgtxt LIKE /pws/zycbt011-txtdesc,
tpemprest LIKE /pws/zycbt128-tpemprest,
denominacao(30) TYPE c,
vlrjprov LIKE /pws/zycbt129-vlrprov,
vlrjprovir LIKE /pws/zycbt129-vlrprov,
selk,
END OF rs_result.
DATA: i_result LIKE STANDARD TABLE OF rs_result INITIAL SIZE 10
WITH HEADER LINE.
DATA: BEGIN OF i_final OCCURS 0.
INCLUDE STRUCTURE rs_result.
DATA: colinfo TYPE kkblo_t_specialcol,
END OF i_final.
DATA: BEGIN OF rs_result_cont,
nrseq LIKE /pws/zycbt128-nrseq,
tpcontab TYPE c,
codmodul LIKE /pws/zycbt120-codmodul,
bco LIKE /pws/zycbt128-bcofinan,
dtcont LIKE sy-datum,
bukrs LIKE /pws/zycbt128-bukrs,
gsber LIKE /pws/zycbt128-gsber,
waers LIKE /pws/zycbt128-waers,
vlme LIKE /pws/zycbt128-vlme,
vlmeir LIKE /pws/zycbt128-vlme,
kursf LIKE /pws/zycbt128-kursf,
d_newko LIKE /pws/zycbe033-d_newko,
c_newko LIKE /pws/zycbe033-c_newko,
d_newkoir LIKE /pws/zycbe033-d_newko,
c_newkoir LIKE /pws/zycbe033-c_newko,
kostl LIKE /pws/zycbt128-kostl,
prctr LIKE /pws/zycbt128-prctr,
fipos LIKE /pws/zycbt128-fipos,
fictr LIKE /pws/zycbt128-fictr,
blart LIKE /pws/zycbt011-blart,
c_sgtxt LIKE /pws/zycbt011-txtdesc,
d_sgtxt LIKE /pws/zycbt011-txtdesc,
tpemprest LIKE /pws/zycbt128-tpemprest,
denominacao(30) TYPE c,
selk,
END OF rs_result_cont.
DATA: i_result_cont LIKE STANDARD TABLE OF rs_result_cont INITIAL
SIZE 10 WITH HEADER LINE.
DATA: BEGIN OF i_final_cont OCCURS 0.
INCLUDE STRUCTURE rs_result_cont.
DATA: colinfo TYPE kkblo_t_specialcol,
END OF i_final_cont.
DATA: BEGIN OF rs_result_mens,
nrseq LIKE /pws/zycbt128-nrseq,
nremprest LIKE /pws/zycbt128-nremprest,
nrparc LIKE /pws/zycbt129-nrparc,
tpmsg LIKE /pws/zycbt032-tpmsg,
msg LIKE /pws/zycbt032-msg,
selk,
END OF rs_result_mens.
DATA: i_result_mens LIKE STANDARD TABLE OF rs_result_mens INITIAL
SIZE 10 WITH HEADER LINE.
DATA: BEGIN OF i_final_mens OCCURS 0.
INCLUDE STRUCTURE rs_result_mens.
DATA: colinfo TYPE kkblo_t_specialcol,
END OF i_final_mens.
* << Fim da exclusão
DATA: BEGIN OF itab_pagas OCCURS 2,
nrseq LIKE /pws/zycbt113-nrseq,
tpparc LIKE /pws/zycbt113-tpparc,
nrparc LIKE /pws/zycbt113-nrparc,
nrdias LIKE /pws/zycbt113-nrdias,
dtinicio LIKE /pws/zycbt113-dtinicio,
dtfinal LIKE /pws/zycbt113-dtfinal,
v_total LIKE /pws/zycbt113-vlme,
dtpagto LIKE /pws/zycbt113-dtpagto,
aliqir LIKE /pws/zycbt129-aliqir,
...
...
DATA: v_tamn TYPE i VALUE 220,
v_tamr TYPE i VALUE 220,
v_dtoperac LIKE sy-datum,
v_f_encerrado LIKE /pws/zycbt128-f_encerrado,
v_waers LIKE /pws/zycbt128-waers,
v_c_newko LIKE /pws/zycbe033-c_newko,
v_d_newko LIKE /pws/zycbe033-d_newko,
v_dtdesem_mes LIKE /pws/zycbt128-dtdesem,
v_diascomatual TYPE i,
v_vlcomis LIKE /pws/zycbt128-vlme,
* >> Início da exclusão:
v_vlme_mes LIKE /pws/zycbt128-vlme,
* << Fim da exclusão
* >> Início da inclusão:
v_vlme_mes LIKE /pws/zycbt128-vlme, "#EC NEEDED
* << Fim da inclusão
v_blart LIKE /pws/zycbt011-blart,
v_d_sgtxt LIKE /pws/zycbt011-txtdesc,
v_c_sgtxt LIKE /pws/zycbt011-txtdesc,
v_ok3(1) TYPE c,
v_modo_bi,
v_vlpagj LIKE /pws/zycbt112-vlme,
v_vlpagir LIKE /pws/zycbt112-vlme,
v_vlpagc LIKE /pws/zycbt112-vlme,
v_vlpagj2 LIKE /pws/zycbt112-vlme,
v_vlpagir2 LIKE /pws/zycbt112-vlme,
...
...
v_vlmejc(16),
v_totju LIKE /pws/zycbt154-vlme,
v_totir LIKE /pws/zycbt154-vlme,
v_totc LIKE /pws/zycbt154-vlme,
v_totpju LIKE /pws/zycbt154-vlme,
v_totpir LIKE /pws/zycbt154-vlme,
v_totpc LIKE /pws/zycbt154-vlme,
v_nrdias(8) TYPE n,
v_msg(150) TYPE c,
v_quebra(1) TYPE c.
* >> Início da exclusão:
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE text-001.
* << Fim da exclusão
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
* << Fim da inclusão
PARAMETERS: s_bukrs LIKE /pws/zycbt128-bukrs OBLIGATORY,
s_dtentr LIKE sy-datum,
s_dtlanc LIKE sy-datum.
SELECT-OPTIONS s_tpemp FOR /pws/zycbe128-tpemprest.
SELECT-OPTIONS: s_nrseq FOR /pws/zycbt128-nrseq
MATCHCODE OBJECT /pws/zycba154.
* >> Início da exclusão:
SELECTION-SCREEN END OF BLOCK 1.
* << Fim da exclusão
* >> Início da inclusão:
SELECTION-SCREEN END OF BLOCK a1.
* << Fim da inclusão
* >> Início da exclusão:
SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE text-046.
* << Fim da exclusão
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF BLOCK a2 WITH FRAME TITLE text-046.
* << Fim da inclusão
PARAMETERS: s_rbrotm RADIOBUTTON GROUP rg1,
s_rbrela RADIOBUTTON GROUP rg1.
* >> Início da exclusão:
SELECTION-SCREEN END OF BLOCK 2.
* << Fim da exclusão
* >> Início da inclusão:
SELECTION-SCREEN END OF BLOCK a2.
* << Fim da inclusão
* >> Início da exclusão:
SELECTION-SCREEN BEGIN OF BLOCK 3 WITH FRAME TITLE text-045.
* << Fim da exclusão
* >> Início da inclusão:
SELECTION-SCREEN BEGIN OF BLOCK a3 WITH FRAME TITLE text-045.
* << Fim da inclusão
PARAMETERS: s_rbmens RADIOBUTTON GROUP rg2 USER-COMMAND rg2,
s_rbinte RADIOBUTTON GROUP rg2.
* >> Início da exclusão:
SELECTION-SCREEN END OF BLOCK 3.
* << Fim da exclusão
* >> Início da inclusão:
SELECTION-SCREEN END OF BLOCK a3.
* << Fim da inclusão
INCLUDE /pws/zycbi113.
TOP-OF-PAGE.
...
...
IF screen-name = 'S_DTENTR'.
IF NOT s_rbmens IS INITIAL.
CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
EXPORTING
day_in = s_dtentr
IMPORTING
last_day_of_month = s_dtentr
EXCEPTIONS
day_in_no_date = 1
OTHERS = 2.
* >> Início da inclusão:
IF sy-subrc EQ 0.
else.
endif.
* << Fim da inclusão
ELSEIF NOT s_rbinte IS INITIAL.
screen-input = 1.
ENDIF.
ELSEIF screen-name EQ 'P_ZEBRA' OR screen-name EQ 'P_OTIM' OR
screen-name EQ 'P_VARIAN'.
ELSEIF ( screen-name EQ 'S_DTLANC' OR
screen-name EQ '%_S_DTLANC_%_APP_%-TEXT' )
AND wa_zycbt007-fprovisao NE 'C'.
screen-input = 0.
screen-invisible = 1.
...
...
v_f_encerrado = 'C'.
ELSE.
v_f_encerrado = 'X'.
ENDIF.
IF s_dtentr IS INITIAL.
s_dtentr = sy-datum.
ENDIF.
IF s_nrseq IS INITIAL.
SELECT * FROM /pws/zycbt128
INTO TABLE itab_zycbt128
* >> Início da exclusão: FORM SELECIONA_DADOS
WHERE bukrs EQ s_bukrs
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
WHERE bukrs EQ s_bukrs "#EC CI_NOFIELD
* << Fim da inclusão
AND dtdesem LE s_dtentr
AND f_encerrado NE v_f_encerrado
AND status NE 'E'
AND tpemprest IN s_tpemp.
ELSE.
SELECT * FROM /pws/zycbt128
APPENDING TABLE itab_zycbt128
WHERE bukrs EQ s_bukrs
AND nrseq IN s_nrseq
AND status NE 'E'
...
...
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = text-095
textline2 = text-096
titel = text-097
IMPORTING
answer = v_answer
EXCEPTIONS
OTHERS = 1.
* >> Início da inclusão: FORM PROCESSA_DADOS
IF sy-subrc EQ 0.
else.
endif.
* << Fim da inclusão
IF v_answer = 'J'.
LOOP AT itab_zycbt154.
PERFORM lancamento_estorno.
PERFORM transacao_estorno.
ENDLOOP.
ENDIF.
STOP.
ENDIF.
ENDIF.
PERFORM exibe_relatorio.
...
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM PREENCHE_ITAB_RELAT
IF sy-subrc EQ 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'RMF001' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
ENDIF.
...
...
itab_zycbt154-bco itab_zycbt154-dtcont
itab_zycbt154-bukrs itab_zycbt154-gsber
itab_zycbt154-waers itab_zycbt154-d_newko
itab_zycbt154-c_newko
INTO v_cpochv.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = '/PWS/ZYCBT154'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM TRANSACAO_ESTORNO
CALL CUSTOMER-FUNCTION '012'.
DELETE FROM /pws/zycbt154 WHERE belnr_pr = itab_zycbt154-belnr_pr.
DELETE itab_zycbt154 WHERE belnr_pr = itab_zycbt154-belnr_pr.
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSACAO_ESTORNO
DELETE FROM /pws/zycbt154
WHERE belnr_pr = itab_zycbt154-belnr_pr. "#EC CI_NOFIRST
DELETE itab_zycbt154
WHERE belnr_pr = itab_zycbt154-belnr_pr. "#EC CI_NOFIRST
* << Fim da inclusão
CONCATENATE itab_zycbt032-tpmsg
itab_zycbt154-bco
itab_zycbt154-bukrs
itab_zycbt154-gsber
text-009
itab_zycbt154-belnr_pr
text-010
itab_zycbt032-belnr INTO t_lista
SEPARATED BY space.
APPEND t_lista. CLEAR t_lista.
...
...
itab_contabil-bukrs itab_contabil-gsber
itab_contabil-waers itab_contabil-d_newko
itab_contabil-c_newko itab_contabil-nrcorresp
INTO v_cpochv.
ENDIF.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-02'
tabela = '/PWS/ZYCBT129'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM EXECUTA_TRANS_F_02
CALL CUSTOMER-FUNCTION '014'.
* << Fim da exclusão
MOVE-CORRESPONDING itab_contabil TO /pws/zycbt154.
/pws/zycbt154-vlme = itab_contabil-vlrprov.
/pws/zycbt154-tpcontr = itab_contabil-nrparcj+1(2).
/pws/zycbt154-codmod = 'F'.
IF itab_contabil-tpcontab IS INITIAL.
/pws/zycbt154-codmodul = 'JU'.
ELSEIF itab_contabil-tpcontab = 'C'.
/pws/zycbt154-codmodul = 'C'.
ENDIF.
/pws/zycbt154-dtcont = s_dtentr.
...
...
itab_contabil_estorno-bukrs itab_contabil_estorno-gsber
itab_contabil_estorno-waers itab_contabil_estorno-d_newko
itab_contabil_estorno-c_newko
INTO v_cpochv.
ENDIF.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-02'
tabela = '/PWS/ZYCBT129'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM EXECUTA_TRANS_F_02_ESTORNO_MES
CALL CUSTOMER-FUNCTION '013'.
* << Fim da exclusão
MOVE-CORRESPONDING itab_contabil_estorno TO /pws/zycbt154.
/pws/zycbt154-codmod = 'F'.
IF itab_contabil_estorno-tpcontab = ' '.
/pws/zycbt154-codmodul = 'JU'.
/pws/zycbt154-vlme = itab_contabil_estorno-vlrprov.
ELSEIF itab_contabil_estorno-tpcontab = 'C'.
/pws/zycbt154-codmodul = 'C'.
/pws/zycbt154-vlme = itab_contabil_estorno-vlrprov.
ENDIF.
CLEAR /pws/zycbt154-nrcorresp.
...
...
e_txc = itab_relat-kursf
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
OTHERS = 8.
* >> Início da inclusão: FORM MONTANTE_CONVERTE2
IF sy-subrc EQ 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM modo_batch_input.
CLEAR: /pws/zycbt039, itab_modo.
REFRESH: itab_modo.
* >> Início da exclusão: FORM MODO_BATCH_INPUT
SELECT * FROM /pws/zycbt039.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
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-098
textline2 = text-099
titel = text-100
IMPORTING
answer = v_modo_bi
TABLES
t_spopli = itab_modo
EXCEPTIONS
not_enough_answers = 1
too_much_answers = 2
too_much_marks = 3
OTHERS = 4.
* >> Início da inclusão: FORM MODO_BATCH_INPUT
IF sy-subrc EQ 0.
else.
endif.
* << Fim da inclusão
IF v_modo_bi EQ '3'.
v_modo_bi = 'A'.
ELSEIF v_modo_bi EQ '2'.
v_modo_bi = 'E'.
ELSEIF v_modo_bi EQ '1'.
v_modo_bi = 'N'.
ENDIF.
ENDFORM.
.
FORM informacoes.
...
...
v_data+6(2) = '01'.
ELSEIF wa_zycbt007-dataestorno EQ 'PDU'.
v_data+6(2) = '01'.
PERFORM verifica_data.
ELSEIF wa_zycbt007-dataestorno EQ 'UDU'.
PERFORM verifica_data.
ENDIF.
itab_zycbe033-budat = v_data.
ENDFORM.
FORM verifica_data.
* >> Início da exclusão: FORM VERIFICA_DATA
DATA: itab_period LIKE casdayattr OCCURS 0 WITH HEADER LINE,
v_confirm(1) TYPE c VALUE space,
v_txt_f(95) TYPE c VALUE space.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DATA
DATA: itab_period LIKE casdayattr OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
* >> Início da exclusão: FORM VERIFICA_DATA
CLEAR: itab_period, v_confirm, v_txt_f.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DATA
CLEAR: itab_period.
* << Fim da inclusão
REFRESH: itab_period.
CALL FUNCTION 'DAY_ATTRIBUTES_GET'
EXPORTING
factory_calendar = wa_zycbt007-hcalidbr
holiday_calendar = wa_zycbt007-hcalidbr
date_from = v_data
date_to = v_data
language = text-112
TABLES
day_attributes = itab_period
EXCEPTIONS
factory_calendar_not_found = 1
holiday_calendar_not_found = 2
date_has_invalid_format = 3
date_inconsistency = 4
OTHERS = 5.
* >> Início da inclusão: FORM VERIFICA_DATA
IF sy-subrc EQ 0.
else.
endif.
* << Fim da inclusão
IF wa_zycbt007-dataestorno NE 'UDM'.
* >> Início da exclusão: FORM VERIFICA_DATA
READ TABLE itab_period WITH KEY weekday = 6.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DATA
READ TABLE itab_period WITH KEY weekday = '6'.
* << Fim da inclusão
IF sy-subrc EQ 0.
PERFORM verifica_dia.
ELSE.
* >> Início da exclusão: FORM VERIFICA_DATA
READ TABLE itab_period WITH KEY weekday = 7.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DATA
READ TABLE itab_period WITH KEY weekday = '7'.
* << Fim da inclusão
IF sy-subrc EQ 0.
PERFORM verifica_dia.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_dia.
DATA: itab_period LIKE casdayattr OCCURS 0 WITH HEADER LINE,
v_sair_fadc(1) TYPE c VALUE 'N'.
DO.
...
...
date_to = v_data
language = text-112
TABLES
day_attributes = itab_period
EXCEPTIONS
factory_calendar_not_found = 1
holiday_calendar_not_found = 2
date_has_invalid_format = 3
date_inconsistency = 4
OTHERS = 5.
* >> Início da inclusão: FORM VERIFICA_DIA
IF sy-subrc EQ 0.
else.
endif.
* << Fim da inclusão
* >> Início da exclusão: FORM VERIFICA_DIA
READ TABLE itab_period WITH KEY weekday = 6.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DIA
READ TABLE itab_period WITH KEY weekday = '6'.
* << Fim da inclusão
IF sy-subrc NE 0.
* >> Início da exclusão: FORM VERIFICA_DIA
READ TABLE itab_period WITH KEY weekday = 7.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DIA
READ TABLE itab_period WITH KEY weekday = '7'.
* << Fim da inclusão
IF sy-subrc NE 0.
v_sair_fadc = 'S'.
LOOP AT itab_period.
...
...
ENDIF.
ENDIF.
CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
EXPORTING
day_in = v_data_aux
IMPORTING
last_day_of_month = v_dtfinal_mes
EXCEPTIONS
day_in_no_date = 1
OTHERS = 2.
* >> Início da inclusão: FORM CONSISTE_NRDIAS_PROVISAO
IF sy-subrc EQ 0.
else.
endif.
* << Fim da inclusão
IF v_dtfinal_mes < itab_relat-dtate.
IF sy-index = 1.
v_nrdias_mes = v_dtfinal_mes - itab_relat-dtde.
IF ( v_nrdias_mes > 30 ) OR
( v_nrdias < 30 AND v_nrdias_mes = v_dtfinal_mes+6(2) ).
v_nrdias_mes = 30.
ENDIF.
v_nrdias_prov = v_nrdias_mes.
ELSE.
CONCATENATE v_dtfinal_mes(4) v_dtfinal_mes+4(2) '01'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCBR113
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 043
Texto: (29 caracteres)
"Entrar com último dia do mês."
Comprimento máximo: 29
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 047
Texto: (9 caracteres)
"Relatório"
Comprimento máximo: 9
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 051
Texto: (54 caracteres)
"Já existe lançamento(s) nesta data para este documento"
Comprimento máximo: 54
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 052
Texto: (48 caracteres)
"Deseja estornar, e criar novo(s) lançamento(s) ?"
Comprimento máximo: 48
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 053
Texto: (14 caracteres)
"Vr.Provisionar"
Comprimento máximo: 14
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 054
Texto: (12 caracteres)
"Provisionado"
Comprimento máximo: 12
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 063
Texto: (19 caracteres)
"Mensagem de sistema"
Comprimento máximo: 19
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 066
Texto: (24 caracteres)
"Opções de saída de dados"
Comprimento máximo: 24
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 067
Texto: (33 caracteres)
"Rotina de Cálculo de Juros Mensal"
Comprimento máximo: 33
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 068
Texto: (29 caracteres)
"Opções da lista de resultados"
Comprimento máximo: 29
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 069
Texto: (6 caracteres)
"Layout"
Comprimento máximo: 6
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 070
Texto: (8 caracteres)
"Nº. Seq."
Comprimento máximo: 8
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 071
Texto: (10 caracteres)
"Nº Emprest"
Comprimento máximo: 10
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 073
Texto: (10 caracteres)
"Data Inic."
Comprimento máximo: 10
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 074
Texto: (11 caracteres)
"Data Início"
Comprimento máximo: 11
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 075
Texto: (10 caracteres)
"Data Final"
Comprimento máximo: 10
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 076
Texto: (10 caracteres)
"Taxa Juros"
Comprimento máximo: 10
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 077
Texto: (13 caracteres)
"Taxa de Juros"
Comprimento máximo: 13
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 078
Texto: (8 caracteres)
"Alíq. IR"
Comprimento máximo: 8
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 079
Texto: (10 caracteres)
"Denominac."
Comprimento máximo: 10
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 080
Texto: (11 caracteres)
"Denominação"
Comprimento máximo: 11
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 082
Texto: (10 caracteres)
"Cta. Cred."
Comprimento máximo: 10
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 083
Texto: (11 caracteres)
"Cta.Crédito"
Comprimento máximo: 11
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 084
Texto: (10 caracteres)
"Cta.Débito"
Comprimento máximo: 10
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 085
Texto: (9 caracteres)
"Tp. Mens."
Comprimento máximo: 9
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 086
Texto: (9 caracteres)
"Nº. Parc."
Comprimento máximo: 9
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 087
Texto: (8 caracteres)
"Mensagem"
Comprimento máximo: 8
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 088
Texto: (6 caracteres)
"Tp Emp"
Comprimento máximo: 6
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 093
Texto: (21 caracteres)
"Parcela Paga Juros/Ir"
Comprimento máximo: 21
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 094
Texto: (21 caracteres)
"Parcela Paga Comissão"
Comprimento máximo: 21
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 102
Texto: (2 caracteres)
"Nº"
Comprimento máximo: 2
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 103
Texto: (2 caracteres)
"em"
Comprimento máximo: 2
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 106
Texto: (22 caracteres)
"Cta.Crédito - I.R.R.F."
Comprimento máximo: 22
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 107
Texto: (21 caracteres)
"Cta.Débito - I.R.R.F."
Comprimento máximo: 21
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 108
Texto: (3 caracteres)
"Tp."
Comprimento máximo: 3
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 109
Texto: (1 caracteres)
"J"
Comprimento máximo: 1
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 110
Texto: (1 caracteres)
"C"
Comprimento máximo: 1
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 111
Texto: (1 caracteres)
"T"
Comprimento máximo: 1
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 113
Texto: (1 caracteres)
"/"
Comprimento máximo: 1
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 116
Texto: (10 caracteres)
"Fornecedor"
Comprimento máximo: 10
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 119
Texto: (1 caracteres)
"E"
Comprimento máximo: 1
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 120
Texto: (60 caracteres)
"Erro no clearing da transferência, documento será estornado."
Comprimento máximo: 60
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 121
Texto: (16 caracteres)
"de transferência"
Comprimento máximo: 16
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 125
Texto: (16 caracteres)
"Vl. Provisionado"
Comprimento máximo: 16
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 126
Texto: (19 caracteres)
"Vl. Provisionado IR"
Comprimento máximo: 19
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 129
Texto: (8 caracteres)
"Estornar"
Comprimento máximo: 8