Sistema de pizzaria

[3rsolutions 0]

Olá, estou com problema quando vou fazer pesquisa entre os registros e pegar o valor do maior pedaço para que seja o valor total da pizza, por exemplo, metade frango e metade calabreza, onde uma custa cinco e a outra dez, tenho que pegar a maior, neste exemplo é simples, porém eles vendem fracionado, 1/2, 4/3, etc... e preciso pegar o valor do pedaço que é mais caro e jogar como valor total da pizza pedida, esta rotina abaixo é a que estou tentando fazer para solucionar, só que entra em loop eterno e não consigo o resultado que preciso, se alguém tiver uma outra ideia ou que de qq modo ajude, agradeço.

 

 

While Not Ado_pedidos.Recordset.EOF  'RegistroAtual  Top = 0	  While Top < 1   Top = Top + Ado_pedidos.Recordset!Ped_QTE     If Ado_pedidos.Recordset!ped_Valor > ValorMaior Then	ValorMaior = Ado_pedidos.Recordset!ped_Valor   End If If Top < 1 Then	AtualizaDados	Ado_pedidos.Recordset!ped_Valor = 0   Else	AtualizaDados	Ado_pedidos.Recordset!ped_Valor = ValorMaior   End If   Ado_pedidos.Recordset.Update  Wend  Ado_pedidos.Recordset.MoveNext WendEnd Sub

 

desde já agradeço

[Claudio Neto 3]

Me tire uma dúvida, o que faz o top?E se fizer o seguinte:Declare tres variáveis para receber os valores de cada pizza e uma para receber o valor final.Quando selecionar cada sabor de pizza, faça essas variáveis receber seus valores correspondentes, depois fala o seguinte:if valor1 > valor2 then if valor1>valor3 then valorfinal = valor1 else valorfinal = valor3elseif valor2 > valor3 then valorfinal = valor2else valorfinal = valor3end ifAcredito que nenhuma pizza saia com mais de três sabores não é mesmo, sendo assim a rotina acima deve dar certo.Mais simples e você não vai precisa utilziar loops.Teste ai, se der certo dá um toque.Abraços...