CE PLUS - Nota 004274
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação em Andamento
Data/Hora da Publicação: 25/07/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 15:57:08
Descrição da Nota: LIQUIDAÇÃO - CORREÇÃO DA TAXA DA LIQUIDAÇÃO EM ANDAMENTO
Sintoma
O valor da taxa utilizada na liquidação para as faturas com liquidação em andamento está incorreto.
Solução
Programa alterado para que a taxa seja encontrada pela tabela bkpf.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04274 Data: 25/07/2007 Hora: 15:24:39
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04274
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00005
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - CORREÇÃO DA TAXA DA LIQUIDAÇÃO EM ANDAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - CORREÇÃO DA TAXA DA LIQUIDAÇÃO EM ANDAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
itab_zycbt036-belnr = v_belnr1.
APPEND itab_zycbt036.
PERFORM verifica_data2 USING /pws/zycbt089-tx_cl_cli
itab_zycbt006-dtpagto.
IF NOT v_databl IS INITIAL.
PERFORM define_cambio USING v_databl
itab_zycbt006-waers
wa_zycbt007-waersb
itab_zycbe033-kursf.
ENDIF.
* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO
SELECT SINGLE kursf FROM bkpf
INTO itab_zycbe033-kursf
WHERE bukrs EQ itab_zycbt209-bukrs
AND belnr EQ v_belnr
AND gjahr EQ itab_zycbt209-dtbelnr(4).
* << Fim da inclusão
v_kursf = itab_zycbe033-kursf.
IF itab_zycbt209-koart NE 'D'.
PERFORM clearing USING itab_trans-hkont
' '
itab_zycbt006-dtpagto
v_kursf
itab_trans-koart
v_belnr2
v_budat2
text-200
...
...
/pws/zycbt006-versi_or = itab_zycbt005-versi_or.
/pws/zycbt006-vkorg_or = itab_zycbt005-vkorg_or.
/pws/zycbt006-vrgar_or = itab_zycbt005-vrgar_or.
/pws/zycbt006-werks_or = itab_zycbt005-werks_or.
/pws/zycbt006-vtweg_or = itab_zycbt005-vtweg_or.
ENDFORM.
FORM desmembra_liq_and.
DATA: v_subrc LIKE sy-subrc,
v_dtliquid LIKE /pws/zycbt006-dtpagto,
v_dtemb LIKE /pws/zycet001-dtemb.
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND
DATA: v_belnr TYPE /pws/zycbt209-belnr.
* << Fim da inclusão
CLEAR itab_doctos.
REFRESH itab_doctos.
DATA: v_gjahr TYPE gjahr.
PERFORM clear_date_batch.
CLEAR: v_data.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = 'ZYCBT006'.
CONCATENATE itab_zycbt209-nrinvoic
itab_zycbt209-belnr
itab_zycbt209-gsberf
...
...
ENDIF.
v_dtemb+6(2) = '01'.
v_dtliquid+6(2) = '01'.
IF v_dtemb EQ v_dtliquid.
CLEAR /pws/zycbt089-tx_desm_cli.
/pws/zycbt089-tx_desm_cli = 'DTEMB'.
ENDIF.
ENDIF.
PERFORM verifica_data2 USING /pws/zycbt089-tx_desm_cli
itab_zycbt006-dtpagto.
* >> Início da exclusão: FORM DESMEMBRA_LIQ_AND
IF NOT v_databl IS INITIAL.
PERFORM define_cambio USING v_databl
itab_zycbt006-waers
wa_zycbt007-waersb
itab_zycbe033-kursf.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND
IF itab_zycbt209-belnr2 IS INITIAL.
v_belnr = itab_zycbt209-belnr.
ELSE.
v_belnr = itab_zycbt209-belnr2.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND
SELECT SINGLE kursf FROM bkpf
INTO itab_zycbe033-kursf
WHERE bukrs EQ itab_zycbt209-bukrs
AND belnr EQ v_belnr
AND gjahr EQ itab_zycbt209-dtbelnr(4).
* << Fim da inclusão
IF /pws/zycbt089-tx_desm_cli EQ 'VIATRANS' AND
itab_zycbe033-kursf IS INITIAL.
...