CE PLUS - Nota 006816
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 19/06/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:42:34
Descrição da Nota: LIQUIDAÇÃO - CAMPO DIVISÃO PROVISÃO DE JUROS
Sintoma
O programa leva a divisão da fatura para a F-02 de provisão de juros.
Solução
alterado para que o programa envie a divisão do contrato para o batch input.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06816 Data: 19/06/2008 Hora: 16:32:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06816
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00052
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02101 - 00001 - 6.0 - 00025 - LIQUIDAÇÃO DE FATURAS - ARBITRAGEM - CASAS DECIMAIS
02114 - 00002 - 6.0 - 00025 - LIQUIDAÇÃO DE FATURAS - TEXTO DESCRIVO DOC. CONTÁBIL
03776 - 00003 - 7.0 - 00001 - LIQUIDAÇÃO - DATA PAGAMENTO NO EXTERIOR
04693 - 00004 - 7.0 - 00002 - LIQUIDAÇÃO COM ARBITRAGEM- DOCUMENTO DE PROVISÃO NA MOEDA DO CONT
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - CAMPO DIVISÃO PROVISÃO DE JUROS
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - CAMPO DIVISÃO PROVISÃO DE JUROS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
itab_zycbe033-wrbtr = itab_periodos_j-vlme.
IF wa_zycbt007-fdtdoc = 'L'.
itab_zycbe033-bldat = itab_zycbe033-budat.
ELSE.
itab_zycbe033-bldat = sy-datum.
ENDIF.
itab_zycbe033-brnch = /pws/zycbt001-j_1bbranch.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
PERFORM seleciona_taxa.
itab_zycbe033-blart = /pws/zycbt011-blart.
* >> Início da exclusão: FORM F_02_PROVISAO_JUROS_DIF
itab_zycbe033-d_gsber = itab_zycbt006-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM F_02_PROVISAO_JUROS_DIF
itab_zycbe033-d_gsber = /pws/zycbt001-gsber.
* << Fim da inclusão
itab_zycbe033-d_kostl = /pws/zycbt001-kostl.
itab_zycbe033-d_prctr = /pws/zycbt001-prctr.
itab_zycbe033-d_fipos = /pws/zycbt001-fipos.
itab_zycbe033-d_fictr = /pws/zycbt001-fictr.
* >> Início da exclusão: FORM F_02_PROVISAO_JUROS_DIF
itab_zycbe033-c_gsber = itab_zycbt006-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM F_02_PROVISAO_JUROS_DIF
itab_zycbe033-c_gsber = /pws/zycbt001-gsber.
* << Fim da inclusão
itab_zycbe033-c_kostl = /pws/zycbt001-kostl.
itab_zycbe033-c_prctr = /pws/zycbt001-prctr.
itab_zycbe033-c_fipos = /pws/zycbt001-fipos.
itab_zycbe033-c_fictr = /pws/zycbt001-fictr.
CONCATENATE '005' /pws/zycbt001-tpcontr INTO v_codeven.
CLEAR itab_zyglt321.
REFRESH itab_zyglt321.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'PVE'
...
...
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-02'
tabela = '/PWS/ZYCBT006'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
READ TABLE itab_zycbe033 INDEX 1.
CLEAR /pws/zycbt154.
/pws/zycbt154-tpcontr = /pws/zycbt001-tpcontr.
/pws/zycbt154-bukrs = /pws/zycbt001-bukrs.
/pws/zycbt154-waers = /pws/zycbt001-waers.
* >> Início da exclusão: FORM F_02_PROVISAO_JUROS_DIF
/pws/zycbt154-gsber = itab_zycbt006-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM F_02_PROVISAO_JUROS_DIF
/pws/zycbt154-gsber = /pws/zycbt001-gsber.
* << Fim da inclusão
/pws/zycbt154-d_newko = itab_zycbe033-d_newko.
/pws/zycbt154-c_newko = itab_zycbe033-c_newko.
/pws/zycbt154-nrcorresp = /pws/zycbt001-nrseqc.
/pws/zycbt154-kursf = itab_zycbe033-kursf.
/pws/zycbt154-dtcont = v_dtcalcjur.
/pws/zycbt154-dtpagext = /pws/zycbe006-dtpagext.
/pws/zycbt154-vlme = itab_periodos_j-vlme.
/pws/zycbt154-codmodul = 'JU'.
/pws/zycbt154-codmod = 'E'.
/pws/zycbt154-bco = /pws/zycbt001-bconegoc.
...