Generar Numero Aleatorio

[ecfisa]

Hola steelha.

Es extraño... Y mas aún cuando en el código que comentaste (desactivaste) no existe referencia alguna al campo ID. Para salir de toda duda acabo de hacer una pequeña prueba en Firebird.

Cree la tabla:

Código SQL [-]
CREATE TABLE TBLREPRESENTANTE (
  ID INTEGER,
  DESCRIPCION VARCHAR(50),
  ACTIVO CHAR(1) CHECK(ACTIVO IN ('S','N')),
  ONLINE CHAR(1) CHECK(ONLINE IN ('S','N'))
)

Le cargué 500 registros de prueba:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
const
  SINO : array[0..1] of string = ('N','S');
var
  i: Integer;
begin
  Randomize;
  if not IBTransaction1.Active then
    IBTransaction1.StartTransaction;
  with IBQuery1 do
  begin
    Open;
    SQL.Clear;
    SQL.Add('INSERT INTO TBLREPRESENTANTE (ID,DESCRIPCION,ACTIVO,ONLINE)');
    SQL.Add('VALUES(:ID,:DESCRIPCION,:ACTIVO,:ONLINE)');
    Prepare;
    for i:= 1 to 500 do
    begin
      ParamByname('ID').AsInteger := i;
      ParamByname('DESCRIPCION').AsString := 'DESCRIPCION '+IntToStr(i);
      ParamByname('ACTIVO').AsString := SINO[Random(2)];
      ParamByname('ONLINE').AsString := SINO[Random(2)];
      ExecSQL;
    end;
  end;
  try
    IBTransaction1.Commit;
  except
    on E: Exception do
    begin
      IBTransaction1.Rollback;
      raise Exception.Create(E.Message);
    end;
  end;
end;

Y usando la función del mensaje #2:

Código Delphi [-]
function TForm1.GetActiveServiceStation: Integer;
var
  MaxRegs : Integer;
begin
  with IBQuery1 do
  begin
    // Obtener el número total de estaciones de servicio activas
    Close;
    SQL.Text := 'SELECT COUNT(*) AS MAX_REG FROM TBLREPRESENTANTE WHERE ACTIVO = ''S''';
    Open;
    if isEmpty then
      raise Exception.Create('No hay estaciones de servicio activas');
    MaxRegs :=  FieldByName('MAX_REG').AsInteger;

    // Seleccionar una estación de servicio activa al azar
    Close;
    SQL.Text := 'SELECT ID FROM TBLREPRESENTANTE WHERE ACTIVO = ''S''';
    Open;
    //  Randomize;  // (innecesario por que ya fué llamado en FormCreate)
    Locate('ID', Random(MaxRegs), []);
    Result := FieldByName('ID').AsInteger;
    Close;
  end;
end;

No genera ningún tipo de error y funciona a la perfección.

¿ Segura que el error se produce en la función ?

Saludos

[steelha]

Ok daré una revisada general al programa a ver que referencia puede estar haciendo al momento
Cualquier cosa borro y empiezo desde cero
gracias.

[steelha]

Muchas gracias por la ayuda ecfisa, no se porque no quería funcionar lo que hice fue crear otro query donde especifique el select count con la variable Max_reg y partir de hay funciono cosas extrañas, creo que el espiritu maligno de Bill Gate andaba por ahí...luego paso el código completo. Chanfle si me olvidaba nunca dije para que se utilizara. Es un sistema de llamada de cola (Atención al cliente), donde existen N representantes y X personas en cola las cuales se asignan al azar o manualmente dependiendo a cada representante. Este turno va a una cola de llamada la cual sera anunciada por altavoces y mostrada a su ves en una pantalla. En los momentos de ocio (Cuando no se esta llamando), se estará presentando una series de video definidas en una tabla. Bueno esa es la idea que presente espero me salga todo bien especialmente con la ultima parte. Gracias por la ayuda, la cual seguiré necesitando