CE PLUS - Nota 009641
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Desconto de Recebíveis
Data/Hora da Publicação: 29/12/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 16:51:04
Descrição da Nota: ESTORNO DE DESCONTO DE RECEBIVEIS
Sintoma
No momento de estornar um desconto de recebíveis, o sistema está gerando a seguinte mensagem: ¿Chave
de lançamento não definida¿.
Ao acertar a chave, o BI se perde numa tela e não segue.
Solução
Definida chave de lançamento p/ F-30.
Verificar onde a Transação F-30 mapeia a tela que se perde.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09641 Data: 29/12/2009 Hora: 11:26:57
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09641
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00002
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07169 - 00001 - 7.0 - 00006 - TRAZER OS AJUSTES DO CHAMADO 392344 PARA O PRODUTO
----------------------------------------------------------------------------------------------------
ESTORNO DE DESCONTO DE RECEBIVEIS
----------------------------------------------------------------------------------------------------
Palavras Chave:
ESTORNO DE DESCONTO DE RECEBIVEIS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB033F01
FUNC /PWS/ZYCB_TRANSACAO_F_30_W
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB033F01
...
ktosl = 'CPT'
codaux1 = 'DR'
TABLES
account = itab_contas
EXCEPTIONS
key_not_found = 0
rules_not_found = 0
OTHERS = 0.
READ TABLE itab_contas INDEX 1.
itab_zycbe033-d_newko = itab_contas-konts.
* >> Início da inclusão: FORM ESTORNA_AGRUPAMENTO
if itab_zycbt030-flag <> 'X'.
itab_zycbe033-newbs = '50'.
else.
itab_zycbe033-newbs = '12'.
endif.
* << Fim da inclusão
if p_flag is initial.
itab_partidas-agkon = itab_zycbt030-kunag.
itab_partidas-agkoa = 'D'.
itab_partidas-agums = /pws/zycbt011-agums.
itab_partidas-bukrs = itab_zycbt219-bukrs.
ELSE.
itab_partidas-agkon = itab_contas-konts.
itab_partidas-agkoa = 'S'.
clear itab_partidas-agums.
itab_partidas-bukrs = itab_zycbt219-bukrs.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_W
...
* Ativa selecionadas
perform bdc_screen using 'SAPDF05X' '3100'.
perform bdc_field using 'BDC_CURSOR' 'RF05A-ABPOS'.
perform bdc_field using 'BDC_OKCODE' '=Z+'.
* Tela de partida residual
perform bdc_screen using 'SAPDF05X' '3100'.
perform bdc_field using: 'BDC_CURSOR' 'DF05B-PSDIF(01)',
'BDC_OKCODE' '=PI'.
* Salvar - para gerar partidas automáticas
perform bdc_screen using 'SAPDF05X' '3100'.
if t_dados-flag_nc eq 'X'.
perform bdc_field using: 'BDC_OKCODE' '=BU'.
else.
perform bdc_field using: 'BDC_OKCODE' '=BS'.
* >> Início da inclusão: FUNC /PWS/ZYCB_TRANSACAO_F_30_W
endif .
* << Fim da inclusão
if v_desc_rec is initial.
sort itab_parts by shkzg agkoa agkon agums descending.
else.
sort itab_parts by shkzg agkoa agkon agums ascending.
endif.
if v_dp = 'X'.
sort itab_parts by shkzg agkoa agkon agums ascending.
else.
sort itab_parts by shkzg agkoa agkon agums.
endif.
clear: v_last.
...
...
read table itab_oculto with key
campo = 'COBL-GSBER' chave = 'D'.
if sy-subrc <> 0. "Não está oculto
perform bdc_field using 'COBL-GSBER' t_dados-d_gsber.
endif.
"Centro
if not t_dados-werks is initial.
read table itab_oculto with key campo = 'COBL-WERKS'
chave = 'D'.
if sy-subrc <> 0. "Não está oculto
perform bdc_field using 'COBL-WERKS' t_dados-werks.
endif.
endif.
endif.
endloop.
* >> Início da exclusao: FUNC /PWS/ZYCB_TRANSACAO_F_30_W
* ENDIF.
* << Fim da EXCLUSÃO
refresh itab_msg.
clear itab_msg.
* Definição dos parâmetros p/ a sub-rotina CALL_TRANSACTION
v_transacao = 'F-30'.
v_update = 'S'.
v_msgid = 'F5'.
v_msgno = '312'.
"Modo pode vir do programa de batch input.
if v_modo is initial.
v_mode = 'N'.
else.
v_mode = v_modo.
endif.