Hola maxi915.
Cita:
Empezado por maxi915
...
procedimiento capturar id_UltimoTurno
[/delphi]
Código Delphi [-]Procedure capturar_IdTurno (Queryturnos:TADOQuery;hora:string; var id:integer);
begin
with Queryturnos do
begin
SQL.Clear;
SQL.Add('select max(idturno) from turnos);
Open;
id:=FieldByName('Id_turno').AsInteger;
end;
end;
|
Lo que sucede que el campo "Id_turno" no está definido para la consulta.
Intenta de este modo:
Código Delphi
[-]
...
with Queryturnos do
begin
SQL.Text := 'SELECT MAX(IDTURNO) AS MAX_ID FROM TURNOS';
Open;
id := FieldByName('MAX_ID').AsInteger;
end;
...
Saludos
