CE PLUS - Nota 004628
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 05/09/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 16:56:47
Descrição da Nota: CAPTAÇÃO - ATUALIZAÇÃO SLVINC
Sintoma
Criei um contrato de ACC no valor de 1.000.000,00 e gravei.
Criei uma liquidação de ACC com Pré utilizando esse contrato no valor de 80.000,00 e o programa
baixou corretamente o saldo do campo SLVINC da Tabela /PWS/ZYCBT001 deixando um saldo de 920.000,00.
Mas se eu entrar na captação - modificar e só clicar no botão "Gravar", o programa está voltando o
saldo do campo SLVINC da Tabela /PWS/ZYCBT001 para 1.000.000,00 como se não tivesse a liquidação de
ACC com Pré.
Solução
foi adicionado código para que seja feita a verificação.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04628 Data: 05/09/2007 Hora: 12:01:29
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04628
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00011
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CAPTAÇÃO - ATUALIZAÇÃO SLVINC
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO - ATUALIZAÇÃO SLVINC
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
REFRESH t_zycbt003_ant.
SELECT *
FROM /pws/zycbt003
INTO TABLE t_zycbt003_ant
WHERE nrseqc EQ /pws/zycbt001-nrseqc.
SELECT *
FROM /pws/zycbt005
UP TO 1 ROWS
WHERE nrseqc = /pws/zycbt001-nrseqc.
ENDSELECT.
* >> Início da exclusão: FORM SAVE_ZYCBT001
IF sy-subrc NE '0'.
MOVE /pws/zycbe001-vlme
TO: /pws/zycbe001-slvinc, /pws/zycbt001-slvinc,
/pws/zycbe001-slreserv, /pws/zycbt001-slreserv.
ELSE.
* << Fim da exclusão
MOVE /pws/zycbe001-vlme TO: /pws/zycbe001-slreserv,
/pws/zycbt001-slreserv.
* >> Início da inclusão: FORM SAVE_ZYCBT001
IF sy-subrc NE '0'.
SELECT SINGLE * FROM /pws/zycbt061
WHERE nrseq_c EQ /pws/zycbt001-nrseqc.
IF sy-subrc NE 0.
MOVE /pws/zycbe001-vlme
TO: /pws/zycbe001-slvinc, /pws/zycbt001-slvinc.
ENDIF.
* << Fim da inclusão
ENDIF.
IF /pws/zycbe001-fdtlanc = 'O'.
MOVE /pws/zycbe001-dtcontr TO v_data2.
MOVE wa_zycbt001-dtcontr TO v_data3.
ELSEIF /pws/zycbe001-fdtlanc = 'D'.
MOVE /pws/zycbe001-dtdesem TO v_data2.
MOVE wa_zycbt001-dtdesem TO v_data3.
ELSEIF /pws/zycbe001-fdtlanc = 'C'.
MOVE /pws/zycbe001-dtcred TO v_data2.
MOVE wa_zycbt001-dtcred TO v_data3.
...