Operation not applicable, Dbexpress D7

20/09/2004

0

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:


 

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
[/code]


Rood_luiz

Rood_luiz

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar