CE PLUS - Nota 004667
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 10/09/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:56:21
Descrição da Nota: COMPLEMENTO DO BOLETO
Sintoma
Ajustes no Complemento do Boleto no pagamento de juros de principal de finaciamento, na seleção de
faturas de importação na atualização de data de impostos de remessas respeitando a regra
paramentrizada, na busca da conta correta no /PWS/ZYGL012 e nos dados da table control das despesas
referente a carta de crédito.
Solução
Ajustes no programa Complemento do Boleto.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04667 Data: 10/09/2007 Hora: 17:22:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04667
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00011
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02872 - 00001 - 6.0 - 00026 - REMESSA FINANCEIRA - COMPLEMENTO DO BOLETO - SAÍDA DE PAGAMENTO -
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO, REMESSA, COMISSÃO DE EMPRESTIMO,DESPESA C.CRÉDITO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA110F01
REPS /PWS/MZYCB110F01
REPS /PWS/MZYGL110F01
REPS /PWS/ZYGLR002
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
ENDIF.
ELSE.
IF /pws/zycbe031-tpparc = 'C'.
* >> Início da exclusão: FORM GET_PARAMETERS_128_129E031
IF sy-index EQ '1'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_128_129E031
IF sy-index LE '1'.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe031-bukrs
ktosl = 'PDS'
codaux1 = 'CO'
codaux2 = wa_zycbt128-tpemprest
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
...
...
ENDFORM.
FORM atualiza_dtvencto_imp_cp.
CHECK /pws/zycbe031-frgzu = '2'.
LOOP AT itab_zycat025.
MOVE-CORRESPONDING itab_zycat025 TO wa_zycat025.
READ TABLE itab_dados_tc WITH KEY tpimp = itab_zycat025-tpimp.
IF sy-subrc = 0.
READ TABLE itab_zycat024 WITH KEY bukrs = /pws/zycbe031-bukrs
tpimp = itab_zycat025-tpimp.
IF sy-subrc = 0 AND NOT itab_zycat024-zterm IS INITIAL
* >> Início da exclusão: FORM ATUALIZA_DTVENCTO_IMP_CP
AND itab_zycat024-atualiza_dtvenct NE 'N'.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DTVENCTO_IMP_CP
AND itab_zycat024-atualiza_dtvenct EQ 'S'.
* << Fim da inclusão
PERFORM verifica_cond_pagto_cp USING /pws/zycbe031-dtcredpr
itab_zycat024-zterm
CHANGING itab_zycat025-dtvencto.
* >> Início da exclusão: FORM ATUALIZA_DTVENCTO_IMP_CP
ELSEIF sy-subrc = 0 AND itab_zycat024-atualiza_dtvenct NE 'N'.
itab_zycat025-dtvencto = /pws/zycbe031-dtcredpr.
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DTVENCTO_IMP_CP
ELSEIF sy-subrc = 0 AND
itab_zycat024-atualiza_dtvenct EQ 'S'.
* << Fim da inclusão
itab_zycat025-dtvencto = /pws/zycbe031-dtvencto.
ENDIF.
IF itab_zycat025-dtvencto EQ wa_zycat025-dtvencto.
CONTINUE.
ENDIF.
UPDATE /pws/zycat025 SET dtvencto = itab_zycat025-dtvencto
WHERE nrseq = itab_zycat025-nrseq
AND tpimp = itab_zycat025-tpimp.
MODIFY itab_zycat025 TRANSPORTING dtvencto
WHERE nrseq = itab_zycat025-nrseq
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
v_taxa.
/pws/zycbe031-kursf = v_taxa.
ELSEIF /pws/zycbe031-tpparc = 'C'.
PERFORM busca_taxa USING '008P'
'F'
/pws/zycbe031-dtcredpr
v_taxa.
/pws/zycbe031-kursf = v_taxa.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM CONSISTE_TAXA
IF /pws/zycbe031-taxair IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_TAXA
IF /pws/zycbe031-taxair IS INITIAL
and /pws/zycbe031-vlir GT 0.
* << Fim da inclusão
CLEAR v_taxa.
PERFORM busca_taxa USING '007P'
'F'
/pws/zycbe031-dtcredir
v_taxa.
/pws/zycbe031-taxair = v_taxa.
ENDIF.
WHEN 'IA'.
IF /pws/zycbe031-kursf IS INITIAL.
CONCATENATE '005' itab_zycbt117-codint INTO v_evento.
...
...
v_taxa.
/pws/zycbe031-kursf = v_taxa.
ELSEIF /pws/zycbe031-tpparc = 'C'.
PERFORM busca_taxa USING '004P'
'I'
/pws/zycbe031-dtcredpr
v_taxa.
/pws/zycbe031-kursf = v_taxa.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM CONSISTE_TAXA
IF /pws/zycbe031-taxair IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_TAXA
IF /pws/zycbe031-taxair IS INITIAL
and /pws/zycbe031-vlir GT 0.
* << Fim da inclusão
CLEAR v_taxa.
PERFORM busca_taxa USING '003P'
'I'
/pws/zycbe031-dtcredir
v_taxa.
/pws/zycbe031-taxair = v_taxa.
ENDIF.
WHEN 'ED'.
IF /pws/zycbe031-kursf IS INITIAL.
IF /pws/zycbe031-tpdesp = 'J'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
fator_nao_encontrado = 3
i_ctmoeda_nao_encontrado = 4
i_dtbase_nao_encontrada = 5
taxa_nao_encontrada = 6
i_montante_nao_encontrado = 7
tabela_categ_nao_configurada = 8
OTHERS = 9.
* >> Início da exclusão: FORM CALCULA_TOTAL
IF sy-subrc NE 0.
v_dfact = v_pfact = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_TOTAL
IF v_dfact = 0.
v_dfact = 1.
ENDIF.
IF v_pfact = 0.
v_pfact = 1.
* << Fim da inclusão
ENDIF.
ELSE.
MESSAGE i061 WITH text-107 text-108.
EXIT.
ENDIF.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM tcurx WHERE currkey = /pws/zycbe031-waers.
IF sy-subrc <> 0.
tcurx-currdec = 2.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR002
...
CONCATENATE text-025 itab_zycbt015-txtdesc INTO v_tipo
SEPARATED BY space.
ENDIF.
CLEAR: v_me, v_usd.
v_me = itab_zycbt156-vlme.
MOVE:
text-032 TO itab_selreg-mod,
itab_zycbt156-nrseq TO itab_selreg-nrchave,
itab_zycbt156-nrseqd TO itab_selreg-nrseq,
itab_zycbt156-nrseqd TO itab_selreg-docto,
* >> Início da inclusão: FORM SELECIONA_CARTA_CREDITO
itab_zycbt156-nrseqd TO itab_selreg-nrinvoic,
* << Fim da inclusão
itab_zycbt156-tpdesp TO itab_selreg-tpdesp,
'/PWS/ZYCBT156' TO itab_selreg-tab,
v_tipo TO itab_selreg-tipo,
itab_zycbt156-bukrs TO itab_selreg-bukrs,
itab_zycbt156-dtvencto TO itab_selreg-dtvencto,
v_taxa_dia TO itab_selreg-txdia,
itab_zycbt156-waers TO itab_selreg-waers,
itab_zycbt156-vlme TO itab_selreg-vlme,
v_usd TO itab_selreg-vlusd,
itab_zycbt156-bcoavisa TO itab_selreg-benefic,
...