[JerS]

Empezado por ContraVeneno

seguramente el error te lo marca cuando no te trae resultados la consulta.

En lugar de verificar el OEF, debes verificar con IsEmpty o con RecordCount, pero tambien tendrías que hacer un First y luego un Last para que te aparezca la información correcta.

Como quedaria? algo como esto:

Código Delphi [-]
ZQuery2.Close;
ZQuery2.SQL.Clear;
ZQuery2.SQL.Add('Select corrido,turno24,agenda from DetallePersonal Inner Join TipoPersonal On cod_tipo=codigo and cedula='+quotedstr(cedula));
ZQuery2.Open;
     IF Not ZQuery2.ReCount>0 Then
                        Begin
                          corridobeta:=ZQuery2.fieldbyname('corrido').AsInteger;
                          H24:=inttostr(ZQuery2.fieldbyname('turno24').AsInteger);
                          HorarioP:=ZQuery2.fieldbyname('agenda').AsInteger;
                        End
                      Else
                        Begin
                          corridobeta:=0;
                          H24:='0';
                          HorarioP:=0;
                        End;