CE PLUS - Nota 004124
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 06/07/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:57:40
Descrição da Nota: LIQUIDAÇÃO - DIVISÕES DIFERENTES DA FATURA E DO CONTRATO
Sintoma
Ao efetuar uma liquidação de ACE, onde as divisões do contrato e da faturas são diferentes, o
sistema esta lançando incorretamente a divisão do documento de desmembramento de ACE, onde deveria
lançar na divisão da fatura e lança na divisão do contrato.
Solução
Enviar na contabilização de desmembramento ACE a divisão da fatura.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04124 Data: 06/07/2007 Hora: 11:06:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04124
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00002
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00342 - 00001 - 6.0 - 00021 - VINCULAÇÃO E LIQUIDAÇÃO COM PERFORMANCE - EMPRESA/DIVISÃO
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - DIVISÕES DIFERENTES DA FATURA E DO CONTRATO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO DIVISÕES DIFERENTES DA FATURA E DO CONTRATO
GSBER F-30
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
PERFORM verify_null_field USING wa_zycbt011_d-blart
'BLART'
text-006.
itab_zycbe033-blart = wa_zycbt011_d-blart.
ELSE.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-006.
itab_zycbe033-blart = wa_zycbt011-blart.
ENDIF.
* >> Início da exclusão: FORM DESMEMBRA_ACE
itab_zycbe033-d_gsber = /pws/zycbt001-gsber.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_ACE
itab_zycbe033-d_gsber = itab_zycbt006-gsberf.
* << Fim da inclusão
itab_zycbe033-c_gsber = itab_zycbe033-d_gsber.
IF /pws/zycbt089-tx_desm_ace = 'DTFECH' OR
/pws/zycbt089-tx_desm_ace = 'DTFECH1' .
IF wa_zycbt007-dtjuros = 'DTPAGEXT'.
v_dtliquid = itab_zycbt006-dtpagext.
ELSEIF wa_zycbt007-dtliquid = 'DTPAGTO'.
v_dtliquid = itab_zycbt006-dtpagto.
ENDIF.
CASE v_zycbe001-fdtlanc.
WHEN 'O'.
...
...
itab_zycbt032,
itab_zycbt034.
REFRESH: itab_zycbe033,
itab_zycbt032,
itab_zycbt034.
itab_zycbe033-cpochv = /pws/zycbt001-nrseqc.
itab_zycbe033-tcode = 'F-02'.
itab_zycbe033-tabela = '/PWS/ZYCBT006'.
PERFORM busca_contas_provisao.
itab_zycbe033-budat = v_dtcalcjur.
* >> Início da exclusão: FORM F_02_PROVISAO_JUROS_DIF
itab_zycbe033-bukrs = /pws/zycbt001-bukrs.
itab_zycbe033-waers = /pws/zycbt001-waers.
* << Fim da exclusão
* >> Início da inclusão: FORM F_02_PROVISAO_JUROS_DIF
itab_zycbe033-bukrs = itab_zycbt006-bukrs.
itab_zycbe033-waers = itab_zycbt006-waers.
* << Fim da inclusão
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 = /pws/zycbt001-gsber.
* << Fim da exclusão
* >> Início da inclusão: FORM F_02_PROVISAO_JUROS_DIF
itab_zycbe033-d_gsber = itab_zycbt006-gsberf.
* << 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 = /pws/zycbt001-gsber.
* << Fim da exclusão
* >> Início da inclusão: FORM F_02_PROVISAO_JUROS_DIF
itab_zycbe033-c_gsber = itab_zycbt006-gsberf.
* << 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'
...
...
IF sy-subrc = 0.
v_cpochv = /pws/zycbt001-nrseqc.
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.
* >> Início da exclusão: FORM F_02_PROVISAO_JUROS_DIF
/pws/zycbt154-bukrs = /pws/zycbt001-bukrs.
/pws/zycbt154-gsber = /pws/zycbt001-gsber.
/pws/zycbt154-waers = /pws/zycbt001-waers.
* << Fim da exclusão
* >> Início da inclusão: FORM F_02_PROVISAO_JUROS_DIF
/pws/zycbt154-bukrs = itab_zycbt006-bukrs.
/pws/zycbt154-gsber = itab_zycbt006-gsberf.
/pws/zycbt154-waers = itab_zycbt006-waers.
* << 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.
...