duvida com sorteio
tenho um aplicativo feito em d5 e ib6,e eu preciso fazer uma distribuição
automatica de processos juridicos,é o seguinte são 300 processos cadastrados por dia e eu preciso distribuir os 300 processos para 20 procuradores aleatoriamente ,então são 300 numeros de 1 a 300 distribuidos para 20 nomes de 1 a 20.
desde já agradeço
automatica de processos juridicos,é o seguinte são 300 processos cadastrados por dia e eu preciso distribuir os 300 processos para 20 procuradores aleatoriamente ,então são 300 numeros de 1 a 300 distribuidos para 20 nomes de 1 a 20.
desde já agradeço
Anonymous
Curtidas 0
Respostas
Programadorjlle
18/03/2003
faiz assim
300 / 20 = 15 pega esse resulta que tenque ser inteiro e joga numa variavel vamos supor axRES
Randomize;
while axContador = axRES do begin
axSORT := Random(300);
ai vc faz uma consulta na tabela pra ver se altuem ja tem esse numero
se tiver vc faz o teste
if nao tiver then
Inc(axContador);
end ;
isso ai encima é uma base pra vc começar vc tera que fazer mais um while para seu procuradores
300 / 20 = 15 pega esse resulta que tenque ser inteiro e joga numa variavel vamos supor axRES
Randomize;
while axContador = axRES do begin
axSORT := Random(300);
ai vc faz uma consulta na tabela pra ver se altuem ja tem esse numero
se tiver vc faz o teste
if nao tiver then
Inc(axContador);
end ;
isso ai encima é uma base pra vc começar vc tera que fazer mais um while para seu procuradores
GOSTEI 0