com um pota so gera em vario edit ou memo

[lilidia 0]

ola pessoal ,primeiramente boa noite ,bom dia ,boa tarde!

gostaria se alguem tem algum codigo

 

tenho um form e nesse form ,tem 5 edit e 3 memo ,queria saber se so com um potao tem como

gera os numero nos memo

quero so um bota para gera nos edites e nos memo . ou so nos edite

pois nao quero muitos botoes

 

desde ja agradesso

[Chrnos 30]

Bom dia lilidia....

 

Primeiramente, foi um pouco difícil entender o que queria por causa da forma que escreve... mas se entendi bem, você quer, ao clicar num botão, inserir números nos seus edits e memos correto? Estes números seriam randômicos? Considerando que sim, bastaria por no seu botão algo como o código abaixo:

 

 

uses Math;
...
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
   Edit1.text := IntToStr(RandomRange(1, 7)); //Retorna um valor randômico entre 1 e 7
   Edit2.text := IntToStr(RandomRange(1, 7)); //Retorna um valor randômico entre 1 e 7
   Edit3.text := IntToStr(RandomRange(1, 7)); //Retorna um valor randômico entre 1 e 7
   Edit4.text := IntToStr(RandomRange(1, 7)); //Retorna um valor randômico entre 1 e 7
   Edit5.text := IntToStr(RandomRange(1, 7)); //Retorna um valor randômico entre 1 e 7
   Memo1.Lines.Add(IntToStr(RandomRange(1, 7))); //Retorna um valor randômico entre 1 e 7
   Memo2.Lines.Add(IntToStr(RandomRange(1, 7))); //Retorna um valor randômico entre 1 e 7
   Memo3.Lines.Add(IntToStr(RandomRange(1, 7))); //Retorna um valor randômico entre 1 e 7
end;

[lilidia 0]

 

veja a imagen 

 

 

bom dia Chrnos !

 

desculpe pelos erros ,,,,

entao eu tenho 3 memo1 ,memo2 e memo3 . e 4 edit ..

exemplo

memo1 gera 3 numero

memo2 gera 8 numeros

memo3 gere 12 letra

 

e onde eu coloco os codigos para gera e quis os codigos

alguem mim ajuda ?

desde ja agradesso

[Chrnos 30]

Lilidia, você entendeu o código que eu postei mais cedo pra você? Nele, eu postei o evento simulando um click num botão, onde é gerado um número randômico entre 1 e 7 e o valor gerado é colocado em 5 edits e 3 memos (1 número randômico em cada). Tenta explicar de forma mais clara o que quer fazer, porque da forma que está escrevendo está difícil de entender rs...

 

Se não está conseguindo entender o código que eu fiz, me fala que te explico... aproveitando, você tem experiência com programação em Delphi?

[lilidia 0]

bom dia Chrnos !

 

desculpe pelos erros ,,,,

entao eu tenho 3 memo1 ,memo2 e memo3 . e 4 edit ..

exemplo

memo1 gera 3 numero

memo2 gera 8 numeros

memo3 gere 12 letra

 

e onde eu coloco os codigos para gera e quis os codigos

alguem mim ajuda ?

desde ja agradesso

 

entao sou iniciante en delphi ,,estou comessando agora !!

 

sera que tem como vc fazer os codigos igual esta na imagen

 

nao entendir muito bem esse codigo que vc mando,.

no botao eu so coloco esse codigo?

 

entao sou iniciante en delphi ,,estou comessando agora !!

 

sera que tem como você fazer os codigos igual este na imagen !!acima

 

nao entendir muito bem esse codigo que você mando,.

no botao eu so coloco esse codigo?

 

vaja uma imagen que postei acima !!!

quero daquele jeto agradesso

[Chrnos 30]

Se você declarar na sua lista de uses a Math e copiar o código que postei, verá que cada um dos edits e memos será preenchido por um valor randômico entre 1 e 7 (só teria que mudar para ficar com o nome dos seus componentes). Explicando por partes:

 

 

Edit1.text := IntToStr(RandomRange(1, 7));

 

Neste trecho, estou atribuindo ao valor da propriedade text do seu edit (que é onde você digita as informações) um valor inteiro aleatório convertido para string (comando IntToStr) entre 1 e 7 (o RandomRange(1,7) é quem gera o valor aleatório).

 

No código:

 

 

Memo1.Lines.Add(IntToStr(RandomRange(1, 7)));

 

Estou fazendo a mesma coisa que fiz para exibir o valor no edit, a diferença é que no memo eu estou adicionando uma linha com o valor aleatório gerado ao memo quando uso o comando Lines.Add, ao invés de atribuir diretamente.

 

Se o que quer nos seus memos é incluir 8 valores numéricos, bastaria usar um laço for para gerar 8 números aleatórios a partir do código que postei acima.... ficaria algo do tipo:

 

 

uses Math;
...  
procedure TForm1.Button1Click(Sender: TObject);
var Contador: integer;
begin   
     Edit1.text := IntToStr(RandomRange(1, 7)); //Retorna um valor randômico entre 1 e 7 inserindo-o no edit 1  
     Edit2.text := IntToStr(RandomRange(1, 7)); //Retorna um valor randômico entre 1 e 7 inserindo-o no edit 2  
     Edit3.text := IntToStr(RandomRange(1, 7)); //Retorna um valor randômico entre 1 e 7 inserindo-o no edit 3 
     Edit4.text := IntToStr(RandomRange(1, 7)); //Retorna um valor randômico entre 1 e 7 inserindo-o no edit 4 
     Edit5.text := IntToStr(RandomRange(1, 7)); //Retorna um valor randômico entre 1 e 7 inserindo-o no edit 5
     For Contador := 0 to 7 do    //Abre um laço de repetição para inserir 8 valores nos memos.
     begin
          Memo1.Lines.Add(IntToStr(RandomRange(1, 7))); //Retorna um valor randômico entre 1 e 7 inserindo-o no memo 1
          Memo2.Lines.Add(IntToStr(RandomRange(1, 7))); //Retorna um valor randômico entre 1 e 7 inserindo-o no memo 2
          Memo3.Lines.Add(IntToStr(RandomRange(1, 7))); //Retorna um valor randômico entre 1 e 7 inserindo-o no memo 3
     end; //Fim do laço de repetição
end; //Fim da procedure do botão

 

Colocando um botão na tela com o código acima, já preencheria seus edits e memos com valores numéricos aleatórios entre 1 e 7 quando clicar nele.

 

Obs.: não consigo visualizar a imagem aqui, é bloqueado. E estou fazendo o exemplo o mais simples possível, para que você possa mudar ele pra atender sua necessidade. Se não conseguir, poste o código que fez e o que quer gerar e vamos tentando até você chegar ao resultado desejado.

[lilidia 0]

http://www.uploaddeimagens.com.br/images/000/189/700/original/Capturar.PNG?1393254587

 

o link da imagen !

naos sei se vc consegue ver

 

vou tentar explica edti1 quero que gere uma data } ,,,edit2 quero que gera 20 numeros .....edt3 quero que gera um nome ...edit4 quero que gera 3 numero

e o mesmo para os 3 memo mais quero que fassa isso so em um botao

 

desde ja agradesso

obrigada

[lilidia 0]

 

 

var
  Form2: TForm2;
  d10, d11 : integer;
  quantidade : integer=0;
implementation




{$R *.dfm}




uses Unit3;
 function numeros(num : string) :boolean;
var d : array[1..9] of integer;
begin
  d[1] := StrToInt(num[1]);
  d[2] := StrToInt(num[2]);
  d[3] := StrToInt(num[3]);
  d[4] := StrToInt(num[4]);
  d[5] := StrToInt(num[5]);
  d[6] := StrToInt(num[6]);
  d[7] := StrToInt(num[7]);
  d[8] := StrToInt(num[8]);
  d[9] := StrToInt(num[9]);




  d10 := d[1]*10 +  d[2]*9 + d[3]*8 + d[4]*7 + d[5]*6 + d[6]*5 +
         d[7]*4 + d[8]*3 + d[9]*2;
  d10 := 16-(d10 mod 11);
  if d10 >= 10 then
    d10 := 0;
  d11 := d[1]*11 +  d[2]*10 + d[3]*9 + d[4]*8 + d[5]*7 + d[6]*8 +
         d[7]*5 + d[8]*4 + d[9]*3 + d10*2;
  d11 := 11-(d11 mod 11);
  if d11 >= 10 then
    d11 := 0;




end;
procedure TForm2.Button1Click(Sender: TObject);
  var r : array[1..12] of integer;
begin
if not timer1.Enabled then
  timer1.Enabled := true;
  if not timer1.Enabled then
  timer1.Enabled := true;
  randomize;
  r[1] := random(9);
  r[2] := random(9);
  r[3] := random(9);
  r[4] := random(9);
  r[5] := random(9);
  r[6] := random(9);
  r[7] := random(9);
  r[8] := random(9);
  r[9] := random(9);
  r[10] := random(9);


  edit1.Text := IntToStr(r[1]) + IntToStr(r[2]) + IntToStr(r[3]) + IntToStr(r[4]) +
                IntToStr(r[5]) + IntToStr(r[6]) + IntToStr(r[7]) + IntToStr(r[8]) +
                IntToStr(r[9]) + IntToStr(r[10]);


  numeros(edit1.Text);
  edit1.Text := edit1.Text + IntToStr(d10) + IntToStr(d11);
  memo1.Lines.Add(edit1.text);




end;

 

o codigo e esse!! portanto como fazer que esse codigo funcione em varios edit e memo so com um botao

acho que agora vc mim entende ,,enguanto os erro de portugues pesso desculpa nao falo muito bem ..portugues

so da espanha vivo aqui alguns anos !! no brasil

[Chrnos 30]

Fiz uma adaptação ao código que me passou por mensagem da sua unit.... acho que o que precisa é +/- isso...

 

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure GeraNumeros(Edit: TEdit; Memo: TMemo);
  end;

var
  Form1: TForm1;
  d10, d11   : integer;
  quantidade : integer =0;

implementation

{$R *.dfm}

function numeros(num : string) :boolean;
var d : array[1..9] of integer;
begin
  d[1] := StrToInt(num[1]);
  d[2] := StrToInt(num[2]);
  d[3] := StrToInt(num[3]);
  d[4] := StrToInt(num[4]);
  d[5] := StrToInt(num[5]);
  d[6] := StrToInt(num[6]);
  d[7] := StrToInt(num[7]);
  d[8] := StrToInt(num[8]);
  d[9] := StrToInt(num[9]);


  d10 := d[1]*10 +  d[2]*9 + d[3]*8 + d[4]*7 + d[5]*6 + d[6]*5 +
         d[7]*4 + d[8]*3 + d[9]*2;
  d10 := 16-(d10 mod 11);
  if d10 >= 10 then
    d10 := 0;
  d11 := d[1]*11 +  d[2]*10 + d[3]*9 + d[4]*8 + d[5]*7 + d[6]*8 +
         d[7]*5 + d[8]*4 + d[9]*3 + d10*2;
  d11 := 11-(d11 mod 11);
  if d11 >= 10 then
    d11 := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //Chama a função genérica para gerar os números, usando um edit e um memo para usar o formato da sua função atual
  GeraNumeros(Edit1, Memo1);
  GeraNumeros(Edit2, Memo2);
  GeraNumeros(Edit3, Memo3);
  label1.caption := 'quantidade de numeros GERADOS(s): ' + IntToStr (quantidade);
  Application.ProcessMessages;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //O código abaixo limpará os campos quando o timer não estiver ativo
  if not Timer1.Enabled then
  begin
     Edit1.Clear;
     Edit2.Clear;
     Edit3.Clear;
     Edit4.Clear;
     Edit5.Clear;
     Memo1.Clear;
     Memo2.Clear;
     Memo3.Clear;
     quantidade := 0; //Reiniciar o contador
     Edit4.Text := FormatDateTime('dd/MM/yyyy', Now); //Coloca a data formatada no edit
     Edit5.Text := 'Qualquer coisa que queira escrever poderia por aqui ou dentro do timer';
  end;
  Timer1.Enabled := not Timer1.Enabled; //Ativar/desativar o timer
end;

procedure TForm1.GeraNumeros(Edit: TEdit; Memo: TMemo);
var r : array[1..12] of integer;
begin
  inc(quantidade);
  randomize;
  r[1] := random(9);
  r[2] := random(9);
  r[3] := random(9);
  r[4] := random(9);
  r[5] := random(9);
  r[6] := random(9);
  r[7] := random(9);
  r[8] := random(9);
  r[9] := random(9);
  r[10] := random(9);

  Edit.Text := IntToStr(r[1]) + IntToStr(r[2]) + IntToStr(r[3]) + IntToStr(r[4]) +
               IntToStr(r[5]) + IntToStr(r[6]) + IntToStr(r[7]) + IntToStr(r[8]) +
               IntToStr(r[9]) + IntToStr(r[10]);

  numeros(Edit.Text);
  Edit.Text := Edit.Text + IntToStr(d10) + IntToStr(d11);
  Memo.Lines.Add(Edit.text);
end;

end.

 

Note que, da forma que eu coloquei, o timer irá ficar gerando números por conta até que você clique no botão novamente para desativá-lo.

[lilidia 0]

vou ve se consigo atravez desse codigo e depois te falo

obrigada por enguanto

agradesso mesmo !!

 

coloquei aqui mais so geror essa parte

 

ae em baixo

 

Edit4.Text := FormatDateTime('dd/MM/yyyy', Now); //Coloca a data formatada no edit      


Edit5.Text := 'Qualquer coisa que queira escrever poderia por aqui ou dentro do timer

[Chrnos 30]

O código ficou o que eu te passei? Se sim, caso o seu timer estiver ativado, ao clicar no botão ele é desativado e ai só irá mostrar o que está programado no evento que limpa os edits/memos da tela... dá outro clique no botão pra reativar o timer e espere o tempo que pôs de delay nele pra ver ele processando na tela...

 

Qual o intervalo do seu timer? No meu teste eu deixei o padrão (propriedade interval = 1000)

[lilidia 0]

no meu time coloquei 1

 

mais tipo assim para pausa

pode se em outro botao

 

so quero um botao que fa gera mesmo

 

ainda nao tive tempo de ver certinho

mais eu falo para vc! assim que testar

muito obrigada!!

[lilidia 0]

entao e +/- assim ...[ mais eu quero que o memo2] e edit2 gera [ 3 numero ]

[e o memo3 e edit3 [gera data ] e no edit5 gera os nomes abaixo

 

tentei fazer alteraçoe mais nao consigo !!!

os memo 1 2 3 estao gerando a mesma guantidade de numeros

mais tudo aleatorio nao sei si isso e posivel poes sou nova em delphi

tipos cada ves que clica no botao gerar um nome diferente

isso tudo no mesmo botao

 

agradesso mesmo por você esta mim ajudando

 

 

var
s:string;
v:integer;
begin
randomize;
v:=random(253);// aqui vc colocar quanto seriais vc quiser
case v of
1:s:= ('fabio souza santos'); // seriais fica aki
2:s:= ('henrrique almeida ');
3:s:= ('luciano pereira de jesus');
4:s:= ('rafaelteixeira gusmao');
5:s:= ('ANA ELOISA DE FREITAS RIBEIRO'); // seriais fica aki
6:s:= ('LÚCIA FARIAS PESSÔA ');
7:s:= ('ANA MARIA VENDRAMINI KAULING');
8:s:= ('ANA KARINA DIAS CAVLACANTE');
9:s:= ('ANA MARIA ARRUDA DIAS'); // seriais fica aki
10:s:= ('ANDREA NUNES MELLO');
11:s:= ('ANDRÉIA DE CONTO GARBIN');
12:s:= ('ANA PAULA CARNEIRO CARVALHO');
13:s:= ('ANA PAULA DA LUZ BIANCHINI'); // seriais fica aki
14:s:= ('ANA PAULA MARQUES DOS SANTOS');
15:s:= ('ANDREA NUNES MELLO PORTO');
16:s:= ('ANDRÉIA FRANCESLI NEGRI REIS'); // seriais fica aki
17:s:= ('ANGELA MARIA');
18:s:= ('ANTONIO NUNES DE OLIVEIRA');
19:s:= ('ARLENE ALVES PENA DE PINHO');
20:s:= ('AUDIR ANTONIO COMINETTI'); // seriais fica aki
21:s:= ('AUGUSTO LIRA DA ROCHA');
22:s:= ('CAIO LEONEDAS DE BARROS');
23:s:= ('CAMILA DE FARIAS DANTAS'); // seriais fica aki
24:s:= ('CARLA DENISE SCHEREMETA');
25:s:= ('CARLA GRELLMANN CAMPO');
26:s:= ('CARLA WANESSA RODRIGUES POLLI');
27:s:= ('CARLO ENDRIGO BUENO NUNES'); // seriais fica aki
28:s:= ('CARMEN REGINA BECKER SILVA ');
29:s:= ('CARMEN SUELY VILLA REAL ');
30:s:= ('CAROLINA TERU MATSUI'); // seriais fica aki
31:s:= ('CELIA MARIA ANE DE FREITAS');
32:s:= ('CELSO LUIZ RUBIO');
33:s:= ('CHRISTIANE DE OLIVEIRA GOVEIA');
34:s:= ('CÍCERO DEDICE DE GÓES JUNIOR'); // seriais fica aki
35:s:= ('ANA CRISTINA DE SOUSA E SILVA');
36:s:= ('ANA CRISTINA DA COSTA ADVINCULA');
37:s:= ('ANA CLEIDE SARMENTO DA SILVA');// seriais fica aki
38:s:= ('ANA CAROLINA CHIAVARI');
39:s:= ('ANA CARLA DE FREITAS CALDAS');
40:s:= ('AMANDA DO NASCIMENTO CORREIA DE MORAIS');
41:s:= ('ALINE GONÇALVES DE MORAES'); // seriais fica aki
42:s:= ('ALINE ELENA SACRAMENTO SANTOS');
43:s:= ('ALICE AVELAR GONÇALVES');
44:s:= ('ALEXANDRA ROVENI RHODEN');  // seriais fica aki
45:s:= ('ALESSANDRA SANTOS DE ALMEIDA');
46:s:= ('ALCIONE PAULA FIGUEIREDO');
47:s:= ('ALCIMARA VITORINO PEREIRA MARTINS');
48:s:= ('ALBA DE OLIVEIRA LEMOS'); // seriais fica aki
49:s:= ('ADRIANE FEITOSA VALADARES');
50:s:= ('ADRIANA MARQUES FERNANDES');
51:s:= ('ADRIANA HOFFGEN');// seriais fica aki
52:s:= ('ADRIANA DOS SANTOS CARNEIRO');
53:s:= ('ADENILSA JOANA DA SILVA AGUIAR');
54:s:= ('ACÁCIA MARIA CARDOSO SANTOS');
55:s:= ('ADELMAR CARNEIRO VILELA'); // seriais fica aki
56:s:= ('ACI TERESINHA FERRAZ');
57:s:= ('ADAILTON MARTINS SILVA');
58:s:= ('CINTHIA YUKICO DOS SANTOS'); // seriais fica aki
59:s:= ('CÍNTIA MARA DE ARAÚJO SOUSA');
60:s:= ('CLATIONE ALMEIDA DE MAGALHÃES');
61:s:= ('CLÁUDIA ROSANA FIRMINO MACÊDO MOURA');
62:s:= ('CLAYTON RIBEIRO FRANÇA'); // seriais fica aki
63:s:= ('CLODOALDO CARDOSO ARAUJO MENDES');
64:s:= ('CRISTIANE DA CONCEIÇÃO DE BARROS');
65:s:= ('CRISTINA PEREIRA DA SILVA'); // seriais fica aki
66:s:= ('CYNTHIA SIMS BELLEZA VIEIRA');
67:s:= ('ZENARA CAMPOS DOS SANTOS');
68:s:= ('WILMA BASTOS SOUZA DE SOUZA');
69:s:= ('WILHMA ALVES CASTRO'); // seriais fica aki
70:s:= ('WENDER ANTONIO DE OLIVEIRA');
71:s:= ('WELLINGTON DA COSTA SILVA');
72:s:= ('WANDER RAYMUNDO DE CAMPOS');// seriais fica aki
73:s:= ('WALDERLEI SANT ANNA');
74:s:= ('VIVIANE DE LIMA NUNES');
75:s:= ('VIRGÍNIA VENTURIM SILVA');
76:s:= ('VIRGÍNIA PRADO SCHIAVON RAMOS'); // seriais fica aki
77:s:= ('VICTOR PAGNOSI PACHECO');
78:s:= ('VARNISE KIPPER');
79:s:= ('VANESSA MARIA PEREIRA PIRES'); // seriais fica aki
80:s:= ('AGNER CESAR SOUZA BARROS');
81:s:= ('ULLANNES PASSOS RIOS');
82:s:= ('ULIANA BORGES DE FIGUEIREDO'); // seriais fica aki
83:s:= ('UBIRATAM LOPES CORREIA');
84:s:= ('TATIANA CARSTENS');
85:s:= ('SUZIMEIRI BRIGATTI ALAVARSE'); // seriais fica aki
86:s:= ('SUELI SCOTELARO');
87:s:= ('SUELI PREIDUM DE ALMEIDA COUTINHO');
88:s:= ('SONIA MARIA LEVY ALVAREZ');
89:s:= ('SINEIDE MARIA ARAUJO DE OLIVEIRA'); // seriais fica aki
90:s:= ('SINARA CRISTINA DE MORAES');
91:s:= ('SIMONE LISBOA DOS SANTOS DA SILVA');
92:s:= ('SILVIA REGINA AIRES CAMARA PASCHOALLI'); // seriais fica aki
93:s:= ('SÍLVIA MEDEIROS THALER');
94:s:= ('SILVANA CRISTINA CHAUD SPROESSERT');
95:s:= ('SILMARA MARTINS DE FREITAS');
96:s:= ('SILENE MIRANDA LIMA'); // seriais fica aki
97:s:= ('SHIRLEY LOPES DIAS');
98:s:= ('SÉRGIO LUÍS DE OLIVEIRA SILVA');
99:s:= ('SARA JANE SOARES ZENI CONDAS'); // seriais fica aki
100:s:= ('SARA DE ALENCAR CIACCIO');
101:s:= ('SAMANTHA KELLY VIEIRA MENDES');
102:s:= ('ROSIANE MACIEL BATISTA');
103:s:= ('ROSI ELAINE SILVA ALCANTARA DE OLIVEIRA'); // seriais fica aki
104:s:= ('ROSANGELA DA SILVA NETO');
105:s:= ('ROSANE ALINE DOS REIS PEDREIRA');
106:s:= ('ROSANA VICENTE VELUCCI');  // seriais fica aki
107:s := ('ROSA VIRGINIA SAITO DI TULLIO');
108:s:= ('ROSANA CUNHA');
109:s:= ('ROSA MARIA CRIPA MORENO');
110:s:= ('ROSA CÂNDIDA MARTINS DE ALMEIDA'); // seriais fica aki
111:s:= ('ROGÉRIO LOUZADA ABREU');
112:s:= ('RODRIGO ROMÃO SÃO BERNARDO');
113:s:= ('RODRIGO OTÁVIO PEREIRA SAYAGO SOARES'); // seriais fica aki
114:s:= ('ROBERTO NOGUEIRA');
115:s:= ('ROBERTO DOS SANTOS DE JESUS');
116:s:= ('ROBERTO DEWAY GUIMARÃES PEREIRA');
117:s:= ('ROBERTO CUNHA CARVALHO'); // seriais fica aki
118:s:= ('ROBERTO CARLOS DA SILVA');
119:s:= ('RICARDO VIEIRA ARAUJO');
120:s:= ('RICARDO KERTI MANGABEIRA ALBERNAZ'); // seriais fica aki
121:s:= ('RICARDO DIAS ERGUELLES');
122:s:= ('RENATA PENA SANTOS');
123:s:= ('RENATA CEZAR DO AMARAL');
124:s:= ('REJANE ROSSO DAL PONT'); // seriais fica aki
125:s:= ('REINALDO COELHO MEDEIROS JUNIOR');
126:s:= ('REGINA PAULA DE SOUZA FREITAS');
127:s:= ('RAQUEL HELOISA HELUY NOVAES'); // seriais fica aki
128:s:= ('RAQUEL GALLINELLA MARTINS');
129:s:= ('PRISCILLA VALLER DOS SANTOS');
130:s:= ('PRISCILA ALONSO DE OLIVEIRA');
131:s:= ('PERILLO JOSÉ SABINO NUNES'); // seriais fica aki
132:s:= ('PAULO VICTOR DANTAS DE SOUZA MATTOS');
133:s:= ('PAULA VERÔNICA MORAIS LIMA SILVA');
134:s:= ('PAULA THEREZO CANAZARRO'); // seriais fica aki
135:s:= ('PAULA ALBUQUERQUE ALVES');
136:s:= ('PATRICIA MOCCINI LOPES');
137:s:= ('PATRICIA MICHELLY SANTOS LIMA');
138:s:= ('PÂMELLA DE CASTRO DUARTE CAMPOS'); // seriais fica aki
139:s:= ('PATRICIA MICHELLY SANTOS LIMA');
140:s:= ('PÂMELLA DE CASTRO DUARTE');
141:s:= ('PABLO SEBASTIAN TAVARES AMARAL');// seriais fica aki
142:s:= ('OTONIEL RODRIGUES SILVA');
143:s:= ('OTACÍLIA MACHADO DE OLIVEIRA');
144:s:= ('OSÉIAS DOMINGUES CÂNDIDO');
145:s:= ('OLIVIO VOLMIR SAGGIN'); // seriais fica aki
146:s:= ('NÍNIVE CAMILLO DE FIGUEIREDO');
147:s:= ('NEIFF CARLOS PEREIRA');
148:s:= ('NATECIA MONTEIRO SANTOS'); // seriais fica aki
149:s:= ('NARA RUBIA FERREIRA GRANDE DE PAULA');
150:s:= ('NARA RUBIA BORGES DA SILVA');
151:s:= ('NARA PEDROSA ARRUDA ');
152:s:= ('MISAKI MACHADO LIRA'); // seriais fica aki
153:s:= ('MOISÉS MUGNAINI NICOLETTO');
154:s:= ('MICHAEL LAURENCE ZINI');
155:s:= ('MERYELVE APARECIDA SANTOS'); // seriais fica aki
156:s:= ('MELANIA DE PAULO CARIELLO');
157:s:= ('MAURÍCIO ROBERTO BARONE');
158:s:= ('MAUREN LOPES DE CARVALHO');
159:s:= ('MARINA FAVRIM GASPARINI'); // seriais fica aki
160:s:= ('MARILINE DA COSTA LUZ');
161:s:= ('MARILIA REICHELT BARBOSA');
162:s:= ('MARIELY HELENA BARBOSA DANIEL'); // seriais fica aki
163:s:= ('MARIELE PORTO CARNEIRO LEÃO');
164:s:= ('MARIA REGINA ABRÃO DE TOLEDO');
165:s:= ('MARIANA SCHNEIDER');
166:s:= ('MARIA PAULA DO AMARAL'); // seriais fica aki
167:s:= ('MARIA LUIZA DA SILVA');
168:s:= ('MARIA JOVITA REIS YAMAUCHI');
169:s:= ('MARIA JOSÉ BARBOSA SÁ SOUZA');// seriais fica aki
170:s:= ('MARIA JOSÉ BAIOCHI');
171:s:= ('MARIA IZABEL DOS SANTOS');
172:s:= ('MARIA ISABEL SILVA');
173:s:= ('MARIA GLÓRIA VICENTE'); // seriais fica aki
174:s:= ('MARIA GENILDA DA SILVA');
175:s:= ('MARIA ELOIZA PEREIRA LEITE RAMOS');
176:s:= ('MARIA DO CARMO DE LIMA'); // seriais fica aki
177:s:= ('MARIA DE LOURDES STEINLE');
178:s:= ('MARIA DAS GRAÇAS WASHINGTON CASIMIRO');
179:s:= ('MARIA DAS GRAÇAS HONÓRIO RAMOS AMADO');
180:s:= ('MARIA CRISTINA FLORES'); // seriais fica aki
181:s:= ('MARIA CRISTINA ABRÃO');
182:s:= ('MARIA CONCHETA AMBROSECCHIA');
183:s:= ('MARIA CLEIDE DA SILVA LIMA'); // seriais fica aki
184:s:= ('MARIA CLARA SANTOS MAYRINK');
185:s:= ('MARIA AUXILIADORA VIEIRA');
186:s:= ('MARIA AUXILIADORA AZEVEDO');
187:s:= ('MARIA APARECIDA DE JESUS'); // seriais fica aki
188:s:= ('MARIA ANGELICA WEBER');
189:s:= ('MARGARETE SOARES DE OLIVEIRA');
190:s:= ('MARCOS JONATHAN LINO DOS SANTOS');// seriais fica aki
191:s:= ('MARCIO HEITOR STELMO DA SILVA');
192:s:= ('MÁRCIA PINHEIRO DOS SANTOS');
193:s:= ('MÁRCIA MARIA OLIVEIRA SILVA');
194:s:= ('MARCIA MARIA DE LIMA FERREIRA'); // seriais fica aki
195:s:= ('MÁRCIA APARECIDA SILVA');
196:s:= ('MARCELO JOSTMEIER VALLANDRO');
197:s:= ('MARCELO DE ALMEIDA CESAR'); // seriais fica aki
198:s:= ('MACEDONIA PINTO DOS SANTOS');
199:s:= ('LUIZ FERNANDO DA SILVA');
200:s:= ('LUÍS ANTONIO ALVES RODRIGUES');
201:s:= ('LUCIMAR CRISTINA PIMENTA MAIA'); // seriais fica aki
202:s:= ('LUCIANA MORAIS SAUCEDO');
203:s:= ('LUCIANA KOLM');
204:s:= ('LUCIANA DE ASSIS AMORIM');// seriais fica aki
205:s:= ('LUCIANA DA SILVA BASTOS');
206:s:= ('LÚCIA ISABEL DE ARAÚJO');
207:s:= ('LUCAS QUEIROZ DOS SANTOS');
208:s:= ('LOURDES GEGE ALVES'); // seriais fica aki
209:s:= ('LORHANNA CAROLINA GONÇALVES');
210:s:= ('LILIAN ELISA ARÃO ANTONIO');
211:s:= ('LIGIA LECHNER DA SILVA'); // seriais fica aki
212:s:= ('LÍDIA MIWAKO KIMURA FERIANI');
213:s:= ('LENORA CATHARINA MARTINS');
214:s:= ('LEILA MACHADO CONDÉ');
215:s:= ('LAURINA SETSUKO TANABE'); // seriais fica aki
216:s:= ('KEYLA ROBERTA LIBANIO');
217:s:= ('KENIA ALBERTON MORGAN');
218:s:= ('KATIA REGINA BASTOS OKADA'); // seriais fica aki
219:s:= ('KÁTHYA DANIELLA FIGUEIREDO');
220:s:= ('JULIO CÉSAR DE JESUS GUTERRES');
221:s:= ('JULIANE CRISTINA COSTA OLIVEIRA');
222:s:= ('JULIANA LIMA DE OLIVEIRA'); // seriais fica aki
223:s:= ('JULIANA CARVALHO RODRIGUES');
224:s:= ('JUCIELA BRUM SOARES DE MORAIS');
225:s:= ('JOSILENY DE LIMA BARBOSA'); // seriais fica aki
226:s:= ('JOSÉ NAUM DE MESQUITA');
227:s:= ('JOSE MARIA CAMPOS PRESTES');
228:s:= ('JOSÉ LUIZ NISHIHARA PINTO');
229:s:= ('JOSÉ GUILHERME GOULART BUSTAMANTE'); // seriais fica aki
230:s:= ('JOSÉ ELOIR DO NASCIMENTO');
231:s:= ('JOSE EDUARDO PEREIRA GONZALEZ');
232:s:= ('JOSÉ DÉLCIO STEINBACH'); // seriais fica aki
233:s:= ('JOSÉ CARLOS MOSCHIN');
334:s:= ('JOSÉ CARLOS GUARLOTT DE CARVALHO');
235:s:= ('JOSÉ BRAZ DAMAS PADILHA');
236:s:= ('JORGE LUIZ BOSTELMANN DE OLIVEIRA'); // seriais fica aki
237:s:= ('JOCIENE SANTANA PIMENTEL');
238:s:= ('JOATHAN LAURINDO BARROSO');
239:s:= ('JOAQUIM FRANCISCO DE LIMA'); // seriais fica aki
240:s:= ('JEANE LEIDE TARGINO');
241:s:= ('JEANCARLO MENEGON');
242:s:= ('JANICE MASSONI');
243:s:= ('JANAINA SALLAS'); // seriais fica aki
244:s:= ('IZADORA RODRIGUES DE ANDRADE');
245:s:= ('IVANILDA MENDES');
246:s:= ('ISMENIA VERONICA BARBOSA'); // seriais fica aki
247:s:= ('ISABELLA MARIA MOREIRA');
248:s:= ('ISABELA ALBERTINA BARREIROS');
249:s:= ('INÊS ASSIS DOS ANJOS');
250:s:= ('IMEIDE PINHEIRO DOS SANTOS'); // seriais fica aki
251:s:= ('IÊDA CRISTINA DA SILVA');
252:s:= ('IARA MARINHO SANTIAGO DUARTE');
253:s:= ('HEMERSON STENIO NEGREIRO DE ALMEIDA');
end;