PROCEDURE - Cannot perform this operation on an ope dataset !!!
30/12/2009
0
Boa Tarde !!
Estou aprendendo a usar PROCEDURE, no ibexpert criei e executando la esta funcionando perfeitamente, agora eu não sei se no Delphi 2009 esta faltando alguma coisa pois quando executo o meu programa gera o seguinte erro:
sqlprocAtualizaProposta: Cannot perform this operation on an ope dataset
Delphi
begin
with DMPrincipal.sqlprocAtualizaProposta do
Begin
Params[0].AsInteger := DBGrid2.Fields[0].Value;
Params[1].AsString := dbeStatusProposta.Text;
Params[2].AsDate := dbeDataRefin .Date;
Params[3].AsDate := dbe1Vencimento .Date;
Params[4].AsString := dbeNumeroContrato.Text;
Params[5].AsString := dbePrazoRefin .Text;
Params[6].AsDate := Date;
Params[7].AsDate := dbeDataCredito .Date;
ExecProc;
End;
MessageDlg('!! Proposta Atualizada com Sucesso !!',mtinformation,[mbok],0);
end;
IBExpert SET TERM ^ ; create or alter procedure SP_ATUALIZA_STATUS (
ID_VENDAS integer,
STATUS_PROPOSTA varchar(50),
DATA_REFIN date,
PRIMEIRO_VENCIMENTO date,
NUMERO_CONTRATO varchar(50),
PRAZO_REFIN char(3),
DATA_BAIXA date,
DATA_CREDITO date)
as
begin
update vendas
set status_proposta = :status_proposta,
data_refin = :data_refin,
primeiro_vencimento = :primeiro_vencimento,
numero_contrato = :numero_contrato,
prazo_refin = :prazo_refin,
data_baixa = :data_baixa,
data_credito = :data_credito
where (id_vendas = :id_vendas);
end^ SET TERM ; ^ GRANT SELECT,UPDATE ON VENDAS TO PROCEDURE SP_ATUALIZA_STATUS; GRANT EXECUTE ON PROCEDURE SP_ATUALIZA_STATUS TO "PUBLIC";
GRANT EXECUTE ON PROCEDURE SP_ATUALIZA_STATUS TO SYSDBA; Alguem sabe aonde eu estou errando ? Abraços á todos e obrigado. Domênico.
with DMPrincipal.sqlprocAtualizaProposta do
Begin
Params[0].AsInteger := DBGrid2.Fields[0].Value;
Params[1].AsString := dbeStatusProposta.Text;
Params[2].AsDate := dbeDataRefin .Date;
Params[3].AsDate := dbe1Vencimento .Date;
Params[4].AsString := dbeNumeroContrato.Text;
Params[5].AsString := dbePrazoRefin .Text;
Params[6].AsDate := Date;
Params[7].AsDate := dbeDataCredito .Date;
ExecProc;
End;
MessageDlg('!! Proposta Atualizada com Sucesso !!',mtinformation,[mbok],0);
end;
IBExpert SET TERM ^ ; create or alter procedure SP_ATUALIZA_STATUS (
ID_VENDAS integer,
STATUS_PROPOSTA varchar(50),
DATA_REFIN date,
PRIMEIRO_VENCIMENTO date,
NUMERO_CONTRATO varchar(50),
PRAZO_REFIN char(3),
DATA_BAIXA date,
DATA_CREDITO date)
as
begin
update vendas
set status_proposta = :status_proposta,
data_refin = :data_refin,
primeiro_vencimento = :primeiro_vencimento,
numero_contrato = :numero_contrato,
prazo_refin = :prazo_refin,
data_baixa = :data_baixa,
data_credito = :data_credito
where (id_vendas = :id_vendas);
end^ SET TERM ; ^ GRANT SELECT,UPDATE ON VENDAS TO PROCEDURE SP_ATUALIZA_STATUS; GRANT EXECUTE ON PROCEDURE SP_ATUALIZA_STATUS TO "PUBLIC";
GRANT EXECUTE ON PROCEDURE SP_ATUALIZA_STATUS TO SYSDBA; Alguem sabe aonde eu estou errando ? Abraços á todos e obrigado. Domênico.
Osvaldo Domênico
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)