Problema Al Recorrer Tabla

[ecfisa]

Hola de nuevo.

No noto nada en tu código que pueda provocar ese comportamiento a excepción de la función ValidarSucursales.
Sería bueno poder ver el código de la misma.

Saludos.

[Ignacio Gentile]

Código Delphi [-]
 function TfrmElegirEmpresa.ValidarSucursales(sucursal,empresa:integer): integer;
var id_sucursal,id_empresa,bandera:integer;
begin
   bandera := 0;
  frmTablas.tblUsuarioempresa.First;
  while not frmTablas.tblUsuarioempresa.Eof do
    begin
      id_sucursal:= frmTablas.tblUsuarioempresa['cod_sucursal'];
      id_empresa := frmTablas.tblUsuarioempresa['cod_empresa'];
      if (id_sucursal = sucursal) and (id_empresa=empresa) then bandera := 1;
      frmTablas.tblUsuarioempresa.Next;
    end;
  ValidarSucursales := bandera
end;

ese es el codigo de la función..No tiene nada raro, solo recibe dos parámetros y recorre una tabla..En caso de que el elemento que está leyendo concuerde con esos parámetros devuelve 1.

[ecfisa]

Hola.

Podrías hacer la siguiente prueba, anulando la línea del condicional.:

Código Delphi [-]
  while not (frmTablas.tblSucursal.Eof) do
  begin
    nuevoItem.id := frmTablas.tblSucursal.FieldValues['cod_sucursal'] ;
    nuevoItem.Descripcion:=frmTablas.tblSucursal.FieldValues['descripcion_sucursal'];
   // if ValidarSucursales(nuevoItem.id,codigo) = 1 then
       cmbSucursal.Items.AddObject(nuevoItem.Descripcion, nuevoItem);
    frmTablas.tblSucursal.Next;
  end;

Si los datos de la tabla están correctos deberían cargarse todos los items en el combo e indicaría que no carga más items por no cumplirse la condición en ValidarSucursales.

De repetirse el problema, habría que revisar los valores de la tabla.

Saludos.