Cita:
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;