CE PLUS - Nota 008036
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Valores Mantidos no Exterior
Data/Hora da Publicação: 10/02/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:41:13
Descrição da Nota: VALORES MANTIDOS NO EXTERIOR - O CAMPO BUDAT NÃO GRAVA A DATA CORRETA
Sintoma
Erro ao estornar uma ordem de pagamento na funcionalidade de Valores Mantidos no exterior em período
fechado. No lançamento de clearing do cliente e de compensação, na seleção por chave de referência
está sendo selecionado o documento errado. A data de lançamento também está sendo atualizada errada
no campo Data de lançamento(BUDAT) da tabela 030, ao invés de ficar com a data de lançamento do
documento, está atualizando com a data do documento.
Solução
Acerto feito dos campos Data de lançamento(Budat) e Saldo a transferir(Vlsltrans) quando for
atualizada.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08036 Data: 10/02/2009 Hora: 16:28:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08036
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00085
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04786 - 00003 - 7.0 - 00003 - LIQUIDAÇÃO DE FATURAS
07760 - 00002 - 7.0 - 00007 - DA-LIQUIDAÇÃO E VINCULAÇÃO LIQ. AUTOMÁT - NORMAL/ARBITRAGEM/PERFO
07797 - 00001 - 7.0 - 00008 - ROTINA MENSAL EXPORTAÇÃO - ANO FISCAL NAS CONTABILIZAÇÕES
----------------------------------------------------------------------------------------------------
VALORES MANTIDOS NO EXTERIOR - O CAMPO BUDAT NÃO GRAVA A DATA CORRETA
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALORES MANTIDOS NO EXTERIOR - O CAMPO BUDAT NÃO GRAVA A DATA CORRETA
QUANDO PERIODO ESTÁ FECHADO E CAMPO VLSLTRANS NÃO RETORNA VALOR-ESTORNO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCB_TRANSACAO_F_30_S
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_S
...
EXPORTING
date = t_dados-budat
version = v_periv
IMPORTING
period = v_monat
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_S
v_gjahr = v_date.
* << Fim da exclusão
PERFORM check_periodo USING '+'
t_dados-bukrs
CHANGING v_budat
v_ok
v_monat
v_gjahr.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_S
MOVE v_date TO v_gjahr.
* << Fim da exclusão
MOVE v_monat+1(2) TO v_periodo.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_S
concatenate v_budat+6(4) v_budat+3(2) v_budat(2)
INTO t_dados-budat .
MODIFY T_DADOS.
* << Fim da inclusão
PERFORM bdc_screen USING 'SAPMF05A' '0122'.
PERFORM bdc_field USING:
'BKPF-BLDAT' v_bldat,
'BKPF-BLART' t_dados-blart,
'BKPF-BUKRS' t_dados-bukrs,
'BKPF-BUDAT' v_budat,
'BKPF-WAERS' t_dados-waers,
'BKPF-KURSF' v_kursf,
'BKPF-BKTXT' t_dados-bktxt,
'RF05A-AUGTX' t_dados-augtx,
...
...
CLEAR v_cont.
LOOP AT t_zycbt036 WHERE tcode = t_dados-tcode
AND tabela = t_dados-tabela
AND cpochv = t_dados-cpochv.
CLEAR v_awkey.
SELECT SINGLE awkey
FROM bkpf
INTO v_awkey
WHERE belnr = t_zycbt036-belnr AND
bukrs = t_dados-bukrs AND
* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_S
gjahr = t_zycbt036-dtdocto(4).
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_S
gjahr = v_gjahr.
* << Fim da inclusão
ADD 1 TO v_cont.
CONCATENATE 'RF05A-SEL01(' v_cont ')' INTO v_campo.
CONCATENATE 'RF05A-SEL02(' v_cont ')' INTO v_campo2.
PERFORM bdc_field USING v_campo v_awkey.
PERFORM bdc_field USING v_campo2 v_awkey.
IF v_cont = 5.
PERFORM bdc_field USING 'BDC_OKCODE' '=SU1'.
PERFORM bdc_screen USING 'SAPDF05X' '0731'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RF05A-SEL01(01)'.
CLEAR v_cont.
...