Hola, sigue habiendo un error al grabar los datos, le realice algunas modificaciones, las variables h y m no se utilizan y los combobox son ComboBoxHoras = ComboBox3 y ComboBoxMinutos = ComboBox2(ya se que es mas claro como tu lo escribiste)
Código Delphi
[-] procedure TForm20.BitBtn4Click(Sender: TObject);
begin
if (ComboBox3.ItemIndex <> -1) and (ComboBox2.ItemIndex <> -1) then
begin
Table1.Append; table1.FieldByName('Cod_turnovet').AsInteger:=c;
table1.FieldByName('Cod_propi').AsInteger:=Table3.FieldByName('Cod_prop').AsInteger;
Table1.FieldByName('Hora').AsDateTime := EncodeTime(
StrToInt(ComboBox3.Items[ComboBox3.ItemIndex]), StrToInt(ComboBox2.Items[ComboBox2.ItemIndex]), 0, 0); table1.Post;
BitBtn5.Enabled:=True;
BitBtn6.Enabled:=True;
BitBtn4.Enabled:=false;
BitBtn3.Enabled:=True;
DateTimePicker1.Visible:=false;
DBEdit2.Visible:=true;
DBEdit3.Visible:=true;
end;
end;
Queda de la siguiente manera cuando cargo los datos y le doy guardar en el boton, se ve asi en el DBGrid y si realizo una nueva cargaobviamente me da un error de violation key, dado que esto se esta complicando mucho y no se llega a una solucion, ¿tu crees que seria mas facil si al campo Horas, lo paso como string o integer en ves de datatime?
que puede ser?