A linha não pode ser localizada para atualização ....
16/02/2017
0
A clickar no meu dbgrid está ocorrendo esse erro , agradeço pela ajuda !
id := DSTARLEAD.DATASET.FIELDBYNAME('ID').ASSTRING; DM.qTarefaHis.Close; DM.qTarefaHis.SQL.Text :=('SELECT * FROM GTELHIS LEFT OUTER JOIN GTELTAREFA ON (GTELTAREFA.ID = GTELHIS.ID_TAREFA) WHERE GTELHIS.ID_TAREFA=:WID'); DM.qTarefaHis.Parameters.ParamByName('WID').VALUE := id; DM.qTarefaHis.Open; tarefaid := DSTARLEAD.DataSet.FieldByName('ID').value; qPesUsu.Close; qPesUsu.SQL.Text :='Select * FROM GTELOPE'; qPesUsu.Open; end; if DSTARLEAD.DataSet.FieldByName('COD_CLIENTE').asinteger>0 then begin codcl := DSTARLEAD.DataSet.FieldByName('COD_CLIENTE').value; DM.BuscaCliente(DSTARLEAD.DataSet.FieldByName('COD_CLIENTE').asinteger); bRegistrar.Enabled := true; bitbtn2.Enabled := true; // BuscaCliente := DSCLI.DataSet.fieldbyname('CODCLICL').asinteger; end; if DSTARLEAD.DataSet.FieldByName('COD_CLIENTE').asinteger=0 then begin ShowMessage('Cliente Não Encontrado'); end;
Rodrigo Oliveira
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)