Saludos a los compañeros del foro.
Tengo el siguiente problema:
Cuando quiero que se vacie la tabla se salta a la excepción de que la tabla esta ocupada, y que no puede
ser vaciada. Pero cuando pongo en comentario lo que esta encerrado con las llaves si vacia la tabla. cual
será el problema, les muestro el código que utilizo:
Código Delphi
[-]
procedure TFrm_ImprimirCorte.QuickRep1AfterPrint(Sender: TObject);
var
resp:Integer;
begin
Resp:=Application.MessageBox('¿Se imprimio el corte?','Impresión de Corte de Caja',
mb_yesno);
if resp=IDYES then
begin
Try
with DM_SICEC.Tbl_Cortes do
begin
Active:=False;
Exclusive:=True;
Active:=True;
try
EmptyTable;
except
ShowMessage( 'No puedo vaciar la database'+
#13+
'Cannot empty database');
end;
end;
Except
ShowMessage('cannot open table in exclusive mode');
end;
end
else
Showmessage('Vuelva a imprimirlo por favor');
end;
Gracias por la ayuda
Atte Noe