CE PLUS - Nota 007326
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Associação
Data/Hora da Publicação: 18/09/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 10:10:53
Descrição da Nota: DUMP NO PROGRAMA DE ASSOCIAÇAO DE FATURA COM FINANCIAMENTO
Sintoma
ao tentar associar fatura a um financiamento não contabilizado, ocorre mensagem de erro de que o
documento não foi contabilizado e ao dar o comando para sair da tela (f3) e clicar em salvar, na
mensagem de saída ao clicar ( sair ou voltar ) ocorre DUMP.
Solução
tratar o programa para quando ocasionar essa mensagem de erro, o programa voltar ao inicio sem dump.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07326 Data: 18/09/2008 Hora: 14:16:45
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07326
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00065
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01988 - 00001 - 6.0 - 00024 - ASSOCIAÇÃO DE FATURAS - DA RATEIO POR ITEM DOC. COMPRA
----------------------------------------------------------------------------------------------------
DUMP NO PROGRAMA DE ASSOCIAÇAO DE FATURA COM FINANCIAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DUMP NO PROGRAMA DE ASSOCIAÇAO DE FATURA COM FINANCIAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCMGF2F01
REPS /PWS/MZYCB113F01
REPT /PWS/SAPLZYCMGF2
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCMGF2F01
...
IF sy-subrc = 0.
LOOP AT itab_zycbt113.
IF itab_zycbt113-belnr IS INITIAL.
v_contabil = 'X'.
ENDIF.
ENDLOOP.
ELSE.
v_contabil = 'X'.
ENDIF.
IF v_contabil = 'X'.
* >> Início da exclusão: FORM GRAVA_ASSOC_FINAN
MESSAGE w061(/pws/zycmm) WITH text-049 text-050 text-051.
EXIT.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ASSOC_FINAN
MESSAGE e061(/pws/zycmm) WITH text-049 text-053 text-054.
* << Fim da inclusão
ENDIF.
ENDIF.
IF v_ind_errocont IS INITIAL.
IF NOT v_ind_delecao IS INITIAL.
DELETE FROM /pws/zycbt131
WHERE mdcorresp = c_mod_finan
AND nrseq = v_nrseq.
CLEAR v_ind_delecao.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB113F01
...
itab_zycbt131_ant, itab_zycbt131_excluidas, itab_zycbt108,
itab_zycbt108_aux, itab_zycbt108_aux1.
REFRESH: itab_zycbt131, itab_zycbt131_aux, itab_zycbt131_aux4,
itab_zycbt131_ant, itab_zycbt108_aux1, itab_zycbt108,
itab_zycbt108_aux, itab_zycbt131_excluidas.
FREE: itab_zycbt131, itab_zycbt131_aux, itab_zycbt131_aux4,
itab_zycbt131_ant, itab_zycbt131_excluidas, itab_zycbt108,
itab_zycbt108_aux, itab_zycbt108_aux1.
ENDFORM.
FORM sair.
* >> Início da inclusão: FORM SAIR
CASE ok_code.
WHEN 'BACK'.
PERFORM unlock_record.
PERFORM limpar.
LEAVE TO SCREEN '0001'.
WHEN '%EX'.
PERFORM unlock_record.
LEAVE PROGRAM.
ENDCASE.
* << Fim da inclusão
IF v_status_s NE 0 .
IF itab_zycbt131[] NE itab_zycbt131_ant[].
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
defaultoption = 'Y'
diagnosetext1 = text-007
textline1 = text-008
titel = text-009
IMPORTING
answer = v_resposta
EXCEPTIONS
OTHERS = 1. "#EC *
IF sy-subrc EQ 0 AND v_resposta EQ 'J'.
PERFORM grava_tabelas.
ENDIF.
IF v_resposta EQ 'A'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SAIR
CASE ok_code.
WHEN 'BACK'.
PERFORM unlock_record.
PERFORM limpar.
LEAVE TO SCREEN '0001'.
WHEN '%EX'.
PERFORM unlock_record.
LEAVE PROGRAM.
ENDCASE.
* << Fim da exclusão
ENDFORM.
FORM carrega_itab_zycbt131.
DATA v_mdcorresp LIKE /pws/zycbt131-mdcorresp.
CASE v_tpdoc.
WHEN 'I'.
v_mdcorresp = 'IF'.
WHEN 'P'.
v_mdcorresp = 'IP'.
WHEN 'A'.
v_mdcorresp = 'IA'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPLZYCMGF2
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 053
Texto: (34 caracteres)
"não foi contabilizado com sucesso."
Comprimento máximo: 34
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 054
Texto: (25 caracteres)
"Associação não permitida!"
Comprimento máximo: 25