Array
(
)

Operation not applicable, Dbexpress D7

Rood_luiz
   - 20 set 2004

Bom dia Colegas,

Estou com um problema aqui, tenho um programa de impressão de OS,
e no pc que desenvolvo ele funciona, na outra maquina tb mas agora chegou uma nova e ele não esta funcionando, e só um operação de consulta e fica dando esta msg:

Operation not applicable.

este é o cod. que estou usando:


#Código



with QCLI, SQl do begin
Close;
clear;
add(´Select * from Clientes where COD_CLI =:COD and EMP_COD = :EMP_COD´);
ParamByName(´COD´).AsInteger:= strtoint(edtCod.Text);
ParamByName(´EMP_COD´).AsInteger:= Fprinc.COD_EMPRESA;
open;
end;
if (QCLI.Eof) and (QCLI.IsEmpty) then
begin
Application.MessageBox(´Não existem dados para exibir.´,´Informação´,mb_Ok +
mb_IconInformation);

edtCod.SetFocus;
bpesq1.Enabled:=true;
exit;
end else
ativaedits;
edtfunciona.setfocus;
EdtCOD.Enabled:=FALSE;
edtNomCLI.Enabled:=FALSE;
tag:=1;
StatusControl(dsinserir);


Desde já agradeço.

Rodolfo Luiz