(Resolvido) Problema com tabela temporária !

[Riatla]

OLá pessoal estou aqui de novo e com um problema que não estou conseguindo resolver ! Tenho uma tabela temporária na qual faço autalizações nela e depois gravo essas atualizações na tabela original !

Mas esta me ocorrendo um erro que não me deixa gravar na tabela original o erro que me dá é esse :

EDataBaseError 'SqlProdTemp' : Cursor not returned from query'.

E estou usando essa linha de comando :

procedure TFPedidoCompra.BtGravarClick(Sender: TObject);

var nmrped: Double;

begin

dm.CdsPedidoCompra.open;

Dm.CdsPedidoCompra.edit;

dm.CdsPedidoCompraNMR_PED.Value := dm.RetornaID('NMR_PED');

dm.CdsPedidoCompraID_FORN.Value := i;

dm.CdsPedidoCompraDTA_PED.Value := DateTimePicker1.Date;

dm.CdsPedidoCompraVLR_PED.Value := StrToFloat(Label8.Caption);

dm.CdsPedidoCompraOBS1_PED.Value := Edit1.Text;

dm.CdsPedidoCompraOBS2_PED.Value := Edit2.Text;

nmrped := dm.CdsPedidoCompraNMR_PED.Value;

dm.CdsPedidoCompra.Post;

dm.CdsPedidoCompra.ApplyUpdates(0);

dm.CdsProdTemp.Edit;

with dm.SQLProdTemp do begin

close;

CommandText := 'update prodtemp set nmr_ped = ' + FloatToStr(nmrped);

ExecSql;

Open;

end;

dm.CdsProdTemp.close;

dm.CdsProdTemp.Open;

end;

Uso Delphi 7 e Firebird 2.0

Alguém poderia me ajudar ?

agradeço desde já !

Riatla

Editado Julho 15, 2010 por Riatla

[Jhonas]

Erro: EDataBaseError 'SqlProdTemp' : Cursor not returned from query'.

Cursor não retornou da query

with dm.SQLProdTemp do begin
close;

  CommandText := 'update prodtemp set nmr_ped = ' + FloatToStr(nmrped);
  ExecSql;

end;

dm.CdsProdTemp.close;
dm.CdsProdTemp.Open;

experimente tirar o comando open do código e veja se o erro acontece novamente

abraço

[Riatla]

Erro: EDataBaseError 'SqlProdTemp' : Cursor not returned from query'.

Cursor não retornou da query

with dm.SQLProdTemp do begin
close;

  CommandText := 'update prodtemp set nmr_ped = ' + FloatToStr(nmrped);
  ExecSql;

end;

dm.CdsProdTemp.close;
dm.CdsProdTemp.Open;

experimente tirar o comando open do código e veja se o erro acontece novamente

abraço

Bem Jhonas eu mudei a linha de comando aqui e deu certo, não está dando mais o erro !

Usei essa linha aqui :

procedure TFPedidoCompra.BtGravarClick(Sender: TObject);

var nmrped: Double;

begin

dm.CdsPedidoCompra.open;

Dm.CdsPedidoCompra.edit;

dm.CdsPedidoCompraNMR_PED.Value := dm.RetornaID('NMR_PED');

dm.CdsPedidoCompraID_FORN.Value := i;

dm.CdsPedidoCompraDTA_PED.Value := DateTimePicker1.Date;

dm.CdsPedidoCompraVLR_PED.Value := StrToFloat(Label8.Caption);

dm.CdsPedidoCompraOBS1_PED.Value := Edit1.Text;

dm.CdsPedidoCompraOBS2_PED.Value := Edit2.Text;

nmrped := dm.CdsPedidoCompraNMR_PED.Value;

dm.CdsPedidoCompra.Post;

dm.CdsPedidoCompra.ApplyUpdates(0);

dm.CdsProdTemp.Edit;

with dm.SQLProdTemp do begin

close;

CommandText := 'update prodtemp set nmr_ped = ' + FloatToStr(nmrped);

ExecSql;

CommandText := 'select id_produto, des_produto, id_vendedor, prc_vnd, prc_vnd_vendedor, qtd_produto, sld_produto, prc_unt, prc_tot, Id_forn, nmr_ped from PRODTEMP';

ExecSQL;

open;

end;

ShowMessage('O número desse pedido é : ' + FloatToStr(nmrped) + ' !' );

dm.CdsProdTemp.close;

//

dm.CdsProdTemp.Open;

dm.cdsprodtemp.close;

não me dei erro algum, acho que agora está tudo certo !

Valeu pela força !

um Abraço

Tópico Resolvido !