CE PLUS - Nota 002717
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Empréstimos
Data/Hora da Publicação: 18/12/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 11:44:54
Descrição da Nota: EMPRÉSTIMO - AO CRIAR UM NOVO EMPRÉSTIMO O SISTEMA NÃO CONSEGUE SALVAR
Sintoma
1-)criar um novo empréstimo, se a conta não for adminstrada por partidas em aberto, o programa gera
somente um documento contábil e exibe uma mensagem de erro, permanecendo no modo de criar e
permitindo que sejam gerados empréstimos com inconsistências.2-)Ao selecionar o emprestimo no modo
modificar para alterar algumas inconsistencias, o mesmo aparece com a pasta principal fechada para
modificações.
Solução
Ao gravar o novo empréstimo, mesmo ocorrendo erro, o programa fica no modo exibir.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02717 Data: 18/12/2006 Hora: 10:01:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02717
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00144
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
EMPRÉSTIMO - AO CRIAR UM NOVO EMPRÉSTIMO O SISTEMA NÃO CONSEGUE SALVAR
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMPRÉSTIMO SALVAR CRIAR FI_PERIOD_CHECK
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA111F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111F01
...
ENDIF.
ENDIF.
PERFORM ver_nrparc.
CHECK v_ind_nrparc IS INITIAL.
PERFORM ver_texto.
CHECK v_ind_texto IS INITIAL.
PERFORM ver_vlprinc.
CHECK v_ind_valor IS INITIAL.
PERFORM save_zycbt128.
PERFORM save_zycbt129_comissao.
* >> Início da exclusão: FORM SAVE_CHANGES
CHECK v_erro_bi IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_CHANGES
IF v_erro_bi IS INITIAL AND
* << Fim da inclusão
v_erro_exclusao IS INITIAL.
PERFORM salva_dados_bancarios.
* >> Início da inclusão: FORM SAVE_CHANGES
ENDIF.
* << Fim da inclusão
MESSAGE i268 WITH text-128 /pws/zycbe128-nrseq text-129.
MOVE /pws/zycbe128 TO wa_zycbt128.
MOVE /pws/zycbe129 TO wa_zycbt129.
IF sy-tcode = '/PWS/ZYCB111_C'.
IF v_erro EQ 'N'.
...
...
SELECT *
UP TO 1 ROWS
FROM /pws/zyglt009
INTO wa_zyglt009
WHERE bukrs EQ /pws/zycbe128-bukrs.
ENDSELECT.
PERFORM fill_date1_f02.
IF wa_zyglt009-comp_transemp = 'C'.
PERFORM fill_date_f04.
ENDIF.
* >> Início da inclusão: FORM SAVE_ZYCBT128
FREE v_erro_exclusao.
* << Fim da inclusão
PERFORM save_zycbt129.
ELSE.
LOOP AT itab_zycbt129p WHERE belnr NE ' '.
ENDLOOP.
IF sy-subrc NE 0.
PERFORM fill_date1_f02.
IF wa_zyglt009-comp_transemp = 'C'.
PERFORM fill_date_f04.
ENDIF.
PERFORM save_zycbt129.
...