> tenho uma tabela temporia q crio no banco com o
> nome temp+Identidicacao do usuario
> esta tabela consistem em todas as parcelas q um
> documento de contas a pagar em dividido
> executo este codigo para verificações e
> posteriormente calcular a ultima parcela para
> cada parcela q o usuario modificar, o erro eh o
> seguinte qndo faço o update do valor para poder
> soma-lo, retorna um erro somente ao sair de uma
> linha para outra do grid o erro eh o seguinte:
>
> Error while posting updates.
>
> sugestoes?
>
> G_PARCELA = TwwDBGrid
> Parcelas = Edit
> Total = TRxCalcEdit
>
> o código:
>
> procedure
> TF_CONTASPAGAR.TB_TEMPVALORChange(Sender:
> TField);
> begin
>
> If (TB_TEMPVALOR.Value <= 0) Then
> Begin
>
> //PodeCalcular := False;
> Informa('O Valor de cada Parcela deve
> ser maior que Zero.');
> If G_PARCELAS.CanFocus Then
> G_PARCELAS.SetFocus;
> keybd_event(VK_RETURN,0,0,0);
> TB_TEMPVALOR.Value :=
>
RoundTo(Total.Value/StrToInt(Parcelas.Text),-2);
>
> End Else
> Begin
>
> With Qr_Grava do
> Begin
>
> Close;
> Sql.Clear;
> Sql.Add('Select VALOR From
> Temp'+IntToStr(FrmPrincipal.WCOD_USUARIO));
> Sql.Add('WHERE PARCELA <=
>
'+Chr(39)+IntToStr(TB_TEMP.FieldValues['PARCELA'])+Chr(39));
> Open;
>
> If TB_TEMPVALOR.AsFloat <>
> Qr_Grava.FieldByName('VALOR').AsFloat Then
> Begin
>
> Close;
> Sql.Clear;
> Sql.Add('UPDATE
> temp'+IntToStr(FrmPrincipal.WCOD_USUARIO));
> Sql.Add('SET VALOR =
> '+Chr(39)+TB_TEMPVALOR.AsString+Chr(39));
> Sql.Add(',VENCIMENTO =
>
'+Chr(39)+InverteData(StrToDate(TB_TEMPVENCIMENTO.AsString))+Chr(39));
> Sql.Add('WHERE PARCELA =
>
'+Chr(39)+IntToStr(TB_TEMP.FieldValues['PARCELA'])+Chr(39));
> ExecSql;
>
> Commit;
>
> End;
>
> Close;
> Sql.Clear;
> Sql.Add('Select SUM(VALOR) as SOMA
> FROM
> Temp'+IntToStr(FrmPrincipal.WCOD_USUARIO));
> Sql.Add(' WHERE PARCELA <
> '+Chr(39)+Parcelas.Text+Chr(39));
> Open;
>
> End;
>
> If Qr_Grava.FieldByName('SOMA').AsFloat
> >= Total.Value Then
> Begin
>
> If
> Qr_Grava.FieldByName('SOMA').AsFloat =
> Total.Value Then
> Informa('Os Valores
> informados
> fazem com que a última Parcela seja nula, mude
> os
> Valores ou diminua a quantidade de Parcelas.')
> Else
> Informa('O valor da soma das
> Parcelas não podem ultrapaçar o Valor Total do
> Documento.');
>
> If G_PARCELAS.CanFocus Then
> G_PARCELAS.SetFocus;
> keybd_event(VK_RETURN,0,0,0);
> TB_TEMPVALOR.Value :=
>
RoundTo(Total.Value/StrToInt(Parcelas.Text),-2);
>
> End;
>
> End;
>
> { aki entraria o codigo para calcular a ultima
> parcela futuramente}
>
> end;
>
> =====
>
> Leandro...
>
> [> Mutuka <]
>
>
>
>
>
>
>
_______________________________________________________
>
> Yahoo! Acesso Grátis - Internet rápida e
> grátis. Instale o discador agora!
> http://br.acesso.yahoo.com/
>
=====
Leandro...
[> Mutuka <]
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
http://br.acesso.yahoo.com/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
