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