Ver Mensaje Individual
  #1  
Antiguo 30-05-2019
Alfonso Jurado Alfonso Jurado is offline
Registrado
 
Registrado: sep 2005
Ubicación: Granada
Posts: 6
Reputación: 0
Alfonso Jurado Va por buen camino
Fallo en el refresh de una ADOTable

Tengo un botón en el que elimino tanto las lineas como la cabecera de un albarán de expedición.
Una vez borradas usando querys, quiero refrescar la tabla de la cabecera para que en la ventana donde se pintan los datos la información se vea correctamente. El problema es que use un refresh (ya se que no debe de funcionar) o use un requery siempre me sale el error "Could not convert variant type (Null) into type (Boolean)".

El código que he usado es este:
Código Delphi [-]
procedure TfrmControlExpedicion.CategoryButtons1Categories0Items2Click(Sender: TObject);
var
 SavePlace : TBookmark;
begin
   if tControlExpedicion.FieldValues['id']<>null then begin
     if MessageDlg('¿Seguro que desea eliminar este registro?', mtConfirmation, [mbOK,mbNo], 0) = mrOK then begin
     
        Screen.Cursor := crHourGlass;
    borraLineas.active:=false;
    borraLineas.sql.text:='delete from  controlExpedicionLineas where idControlExpedicion='+inttostr(tControlExpedicion.FieldValues['id']);
    borraLineas.execSQL;
    
    qConsultaLineas.active:=false;
    qConsultaLineas.active:=true;
    
    
    
    borraLineas.active:=false;
    borraLineas.sql.text:='delete from  controlExpedicion where id='+inttostr(tControlExpedicion.FieldValues['id']);
    borraLineas.execSQL;
    Screen.Cursor := crDefault;
    Application.MessageBox ('Registro eliminado.', 'Eliminado', MB_ICONINFORMATION);
    
    SavePlace := tControlExpedicion.GetBookmark;
    tControlExpedicion.Requery();
    tControlExpedicion.GotoBookMark(SavePlace);
    tControlExpedicion.FreeBookMark(SavePlace);
    
     end;
   end
   else begin
    Application.MessageBox ('ATENCION! No existe ningún registro para ser eliminado', 'Error', MB_ICONWARNING);
   end;
end;

¿Alguien sabría decirme que está pasando? Gracias
Responder Con Cita