SQL-Controlar o n�mero do item num cadastro de Exames

Question

Arquivo Principal => CadExeB.DB => Cadastro de examesArquivo de detalhes / Itens de Exames => DetExeB.DB. No arquivo de detalhes tenho um campo chamado Item, que armazena o item do exame.Com ...

Motta · Answer

recordcount retorna qts records tem a sua query,
no seu caso max(...) ser� sempre 1 !!

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(�Select Max(A.Item) As MaxItem From DetExeb A , CadExeB B �);
Query1.SQL.Add(�Where A.Exe_Cod = B.Exe_Cod�);
Query1.Open ;
if not (query1.eof) then
M_Itens := query1.fields[0].asfloat
else
M_itens := 1;

+ou-

Neto · Answer

Muito obrigado.Estou tentando, com a ajuda do forum conseguirei...Abra�os...Neto...

Neto · Answer

Com a dica, ele rodou mas n�o considerou o numero do pedido, ele pegou o maior numero de itens existente na tabela = 75.
Como posso compor a express�o para ela considerar por exemplo u valor de um DBEdit, ou algo do tipo...
Obrigado

Arquivo Principal => CadExeB.DB => Cadastro de exames Arquivo de detalhes / Itens de Exames => DetExeB.DB. No arquivo de detalhes tenho um campo chamado Item, que armazena o item do exame. Com o c�digo abaixo o sistema n�o me retorna o numero do maior item de exame (sempre d� 1), nem em MaxItem (Maximo de Itens) nem em recorcount. Ser� que algu�m pode me ajudar.... Query1.Close; Query1.SQL.Clear; Query1.SQL.Add(�Select Max(A.Item) As MaxItem From DetExeb A , CadExeB B �); Query1.SQL.Add(�Where A.Exe_Cod = B.Exe_Cod�); Query1.Open ; M_Itens := query1.recordcount; if M_Itens > 0 then M_Itens := M_Itens + 1 else M_itens := 1; DtmDados.ItExameB.FieldByName(�Exe_cod�).Asstring := DtmDados.ExamesB.FieldValues[�Exe_Cod�]; DtmDados.ItExameB.FieldByName(�Item�).Asinteger := M_itens; DtmDados.ItExameB.Post; Query1.Close; Obrigado. Neto

Neto · Answer

Ta quase tudo pronto.Com as dicas, ele rodou mas n�o considerou o numero do pedido, ele pegou o maior numero de itens existente na tabela = 75. Como posso compor a express�o de valida��o para ela considerar por exemplo o valor de um DBEdit, ou algo do tipo... Obrigado [quote:087dd7525d=�Neto�]Arquivo Principal => CadExeB.DB => Cadastro de examesArquivo de detalhes / Itens de Exames => DetExeB.DB. No arquivo de detalhes tenho um campo chamado Item, que armazena o item do exame.Com o c�digo abaixo o sistema n�o me retorna o numero do maior item de exame (sempre d� 1), nem em MaxItem (Maximo de Itens) nem em recorcount. Ser� que algu�m pode me ajudar....Query1.Close;Query1.SQL.Clear;Query1.SQL.Add(�Select Max(A.Item) As MaxItem From DetExeb A , CadExeB B �);Query1.SQL.Add(�Where A.Exe_Cod = B.Exe_Cod�);Query1.Open ;M_Itens := query1.recordcount;if M_Itens > 0 then    M_Itens := M_Itens + 1else    M_itens := 1;DtmDados.ItExameB.FieldByName(�Exe_cod�).Asstring := DtmDados.ExamesB.FieldValues[�Exe_Cod�];DtmDados.ItExameB.FieldByName(�Item�).Asinteger   := M_itens;DtmDados.ItExameB.Post;Query1.Close;Obrigado.Neto[/quote:087dd7525d]...

F�rum SQL-Controlar o n�mero do item num cadastro de Exames #180674