CE PLUS - Nota 000551
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 30/12/2005 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:52:58
Descrição da Nota: LIQUIDAÇÃO DE CÂMBIO PRONTO COM ARBITRAGEM - AO ESTORNAR NADA OCORRE
Sintoma
Ao tentar estornar a liquidação de um contrato de câmbio pronto com arbitragem sem o shift-F9, o
programa não contabiliza o estorno e também não mostra mensagens, apenas fecha os campos.
Solução
Foram efetuados ajustes para a função levar em consideração a conta correta no batch-input.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00551 Data: 30/12/2005 Hora: 11:20:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00551
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00094
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO DE CÂMBIO PRONTO COM ARBITRAGEM - AO ESTORNAR NADA OCORRE
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO CÂMBIO PRONTO ARBITRAGEM ESTORNO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCB_TRANSACAO_F_22G
REPS /PWS/MZYCB004F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_22G
...
ELSEIF wa_tbsl-koart EQ 'D'.
SELECT SINGLE akont FROM knb1
INTO knb1-akont
WHERE kunnr = t_dados-d_newko
AND bukrs = t_dados-bukrs.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_22G
IF NOT t_dados-agums IS INITIAL.
* << Fim da inclusão
SELECT SINGLE plcontas FROM /pws/zycbt007 INTO
/pws/zycbt007-plcontas
WHERE bukrs EQ t_dados-bukrs.
SELECT SINGLE skont FROM t074
INTO v_cconta
WHERE ktopl = /pws/zycbt007-plcontas
AND koart = 'D'
AND hkont = knb1-akont.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_22G
ELSE.
v_cconta = knb1-akont.
ENDIF.
* << Fim da inclusão
PERFORM determina_string USING t_dados-newbs
t_dados-bukrs
v_cconta
CHANGING v_string_credito.
ELSEIF wa_tbsl-koart EQ 'K'.
...
...
ELSEIF wa_tbsl-koart EQ 'D'.
SELECT SINGLE akont FROM knb1
INTO knb1-akont
WHERE kunnr = t_partidas-d_newko
AND bukrs = t_dados-bukrs.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_22G
IF NOT t_partidas-agums IS INITIAL.
* << Fim da inclusão
SELECT SINGLE plcontas FROM /pws/zycbt007 INTO
/pws/zycbt007-plcontas
WHERE bukrs EQ t_dados-bukrs.
SELECT SINGLE skont FROM t074
INTO v_cconta
WHERE ktopl = /pws/zycbt007-plcontas
AND koart = 'D'
AND hkont = knb1-akont.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_22G
ELSE.
v_cconta = knb1-akont.
ENDIF.
* << Fim da inclusão
PERFORM determina_string USING t_partidas-newbs
t_dados-bukrs
v_cconta
CHANGING v_string_credito.
ELSEIF wa_tbsl-koart EQ 'K'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
itab_contabil-dtdocto = v_datum.
itab_contabil-bukrs = itab_zycbt006-bukrs.
APPEND itab_contabil.
v_subrc = 0.
ELSE.
* >> Início da exclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3
LOOP AT itab_zycbt032 WHERE tcode = 'F-02'
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3
LOOP AT itab_zycbt032 WHERE tcode = 'F-22'
* << Fim da inclusão
AND tabela = 'ZYCBT006'
AND cpochv = itab_zycbe033-cpochv.
CLEAR itab_erro-vbeln.
itab_erro-msg = itab_zycbt032-msg.
APPEND itab_erro.
...