ApplyUpdates não atualiza a tela de cadastro

Delphi

18/08/2009

Pessoal, boa tarde.

O negócio é o seguinte:

Tenho o seguinte código abaixo. Nesse código tenho esses campos ´calculados´: produto 1, produto 2, etc...

Esses campos não aparecem de jeito nenhum na tela de cadastro quando o usuário salva (APPLYUPDATES(-1)).

Somente se sair e entrar novamente.

O que estou fazendo de errado?

select a.* ,
b.nome as ´produto 1´, b.unidade as ´unidade 1´, b.estg01 as ´estoque 1´,
c.nome as ´produto 2´, c.unidade as ´unidade 2´, c.estg01 as ´estoque 2´,
d.nome as ´produto 3´, d.unidade as ´unidade 3´, d.estg01 as ´estoque 3´,
e.nome as ´produto 4´, e.unidade as ´unidade 4´, e.estg01 as ´estoque 4´,
f.nome as ´produto 5´, f.unidade as ´unidade 5´, f.estg01 as ´estoque 5´,
g.nome as ´produto 6´, g.unidade as ´unidade 6´, g.estg01 as ´estoque 6´,
h.nome as ´produto 7´, h.unidade as ´unidade 7´, h.estg01 as ´estoque 7´,
i.nome as ´produto 8´, i.unidade as ´unidade 8´, i.estg01 as ´estoque 8´,
case a.prazoA when ´1´ then ´1 DIA´ when ´2´ then ´1 a 5 DIAS´ else a.prazoA end as ´nome prazo A´,
case a.prazoB when ´1´ then ´1 DIA´ when ´2´ then ´1 a 5 DIAS´ else a.prazoB end as ´nome prazo B´,
case a.prazoC when ´1´ then ´1 DIA´ when ´2´ then ´1 a 5 DIAS´ else a.prazoC end as ´nome prazo C´,
case a.prazoD when ´1´ then ´1 DIA´ when ´2´ then ´1 a 5 DIAS´ else a.prazoD end as ´nome prazo D´,
case a.prazoE when ´1´ then ´1 DIA´ when ´2´ then ´1 a 5 DIAS´ else a.prazoE end as ´nome prazo E´,
case a.prazoF when ´1´ then ´1 DIA´ when ´2´ then ´1 a 5 DIAS´ else a.prazoF end as ´nome prazo F´,
case a.prazoG when ´1´ then ´1 DIA´ when ´2´ then ´1 a 5 DIAS´ else a.prazoG end as ´nome prazo G´,
case a.prazoH when ´1´ then ´1 DIA´ when ´2´ then ´1 a 5 DIAS´ else a.prazoH end as ´nome prazo H´
from t_solmat a
left join t_prod b on (a.prodA = b.cod)
left join t_prod c on (a.prodB = c.cod)
left join t_prod d on (a.prodC = d.cod)
left join t_prod e on (a.prodD = e.cod)
left join t_prod f on (a.prodE = f.cod)
left join t_prod g on (a.prodF = g.cod)
left join t_prod h on (a.prodG = h.cod)
left join t_prod i on (a.prodH = i.cod)
where a.cod = :ccodigo


Rodrigo Lima

Rodrigo Lima

Curtidas 0

Respostas

Junior Miranda

Junior Miranda

18/08/2009

Vc está permitindo que os dados sejam salvos no banco mesmo que haja 1 erro (ApplyUpdate(-1)). É por força do Negócio????

Bem! mas não é por isto o seu problema. Faça uma atualização dos dados em cash chamando o método Refresh após o applyupdate(?).

[]´s


GOSTEI 0
POSTAR