[[gatosoft]]

Hola Lafourcade, complementando (o aclarando) lo que dicen nuestros compañeros de foro, creo que en tu codigo original (donde insertas el turno) te hace falta el código para "blanquear" o cerrar la tabla...

Código Delphi [-]
procedure TForm12.Button1Click(Sender: TObject);
begin
if MessageDlg('DESEA GUARDAR EL TURNO',mtConfirmation, [mbYes, mbNo],0)=mrYes then
begin
    with DataModule1.ibquery1 do
     begin
      close;
      sql.clear;
      sql.Add('insert into C_TURNO(FECHA,TURNO,TOTAL,TOTAL_R,TOTAL_EF,TOTAL_CRE,TOTAL_GA,TOTAL_TAR )');
      sql.add('values(:fec,:tur,:tot,:totr,:tote,:totc,:totg,:tott)');
      paramByName('FEC').ASDATE:=DATETIMEPICKER1.date;
      paramByName('TUR').asstring:=COMBOBOX1.text;
      paramByName('TOT').ASFLOAT:=STRTOFLOAT(edit1.text);
      paramByName('TOTR').asFLOAT:=STRTOFLOAT(edit16.text);
      paramByName('TOTE').asFLOAT:=STRTOFLOAT(edit69.text);
      paramByName('TOTC').asfloat:=strtofloat(edit83.text);
      paramByName('TOTG').asfloat:=strtofloat(edit17.text);
      paramByName('TOTT').asfloat:=strtofloat(edit18.text);
      execsql;
      sql.Clear;
      sql.add('commit');
      execsql;
    end;
    showmessage('EL TURNO SE HA GUARDADO');
    //datamodule1.DataSource10.Enabled:=false;
    Datamodule1.IBQuery1.Close;
    DataModule1.IBQuery1.Open;
end;
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
edit10.Clear;
edit11.Clear;
edit12.Clear;
edit13.Clear;
edit14.Clear;
edit15.Clear;
edit16.Clear;
edit17.Clear;
edit18.Clear;
edit19.Clear;
edit26.Clear;
edit27.Clear;
edit28.Clear;
edit29.Clear;
edit30.Clear;
edit83.clear;


DataModule1.IBQuery2.Close; 

 
end;