Como Filtrar o Menor valor, Nome do Produto, Nome do Fornecedor e não deixar Duplicar os Registros?

Question

Boa Noite Pessoal...

Sou novo aqui no forum e estou precisando de uma ajudinha.....

Bom... tenho um sistema de cotação de produtos onde preciso fazer o relatorio listar o  Menor valor, Nome do Produto, Nome do Fornecedor e não deixar que os registros se dupliquem..... 

Alguem pode me ajudar?

Segue anexo de dois modelos de SELETC que fiz.

MODELO 1

(NESSE MODELO É LISTADO APENAS 1 REGISTRO NO RELATORIO ISSO SENDO APENAS O REGISTRO COM O MENOR PRECO DE TODOS. SENDO QUE PRECISO QUE SEJA MOSTRADO O MENOR PREÇOS DOS OUTROS PRODUTOS TAMBÉM).

 <%SQL = "SELECT DISTINCT nome_produto_cotacao,qtd_prod_cotacao,nome_fornecedor,preco FROM tbl_fornecedor_cotacao WHERE preco = (SELECT MIN(preco) FROM tbl_fornecedor_cotacao) group by nome_produto_cotacao,qtd_prod_cotacao,nome_fornecedor,preco"%>

                                      <%Set RS = conexao.execute(sql)%>

===============================================================================

MODELO2

ESSE SEGUNDO MODELO FIZ COM BASE EM PESQUISAS NA NET, MAS NÃO FUNCIONOU.

<%SQL = "SELECT DISTINCT nome_produto_cotacao,qtd_prod_cotacao,nome_fornecedor,preco FROM tbl_fornecedor_cotacao WHERE preco = (SELECT MIN(preco) FROM tbl_fornecedor_cotacao where cod_produto_cotacao = (SELECT DISTINCT cod_produto_cotacao FROM tbl_fornecedor_cotacao)) group by nome_produto_cotacao,qtd_prod_cotacao,nome_fornecedor,preco"%><%Set RS = conexao.execute(sql)%>

Answer 1

nao sei se entendi bem o que tu precisa, mas creio que tu precisa de um codigo que determine o menor valor e nao duplique determinado valor

 

 

valor_v = Request.Querystring("01") 'recebe o valor para comparação
produto_v = Request.Querystring("02") 'recebe o produto para comparação

'inicia conexao com o record
Sql_TB01 = "select * from 01 Where valor < '" & valor_v & "' Order By fornecedor "
set Sql_TB01=conntemp.execute(Sql_TB01)
 If Sql_TB01.eof = false then 'verifica se ha dados no record
  Do until Sql_TB01.eof
   If  Sql_TB01("produto") = produto_v then ' lista somente o produto desejado
    If InStr(1,val_fornecedor,Sql_TB01("fornecedor"),1) then ´faz a comparacao e nao deixa repetir o fornecedor
    Else
    val_fornecedor = val_fornecedor & ";" & Sql_TB01("fornecedor") ' agrupa o nome do forbnecedor recomendo que tu use um codigo no lugar o nome
      var_1 = Sql_TB01("fornecedor")
      var_2 = Sql_TB01("produto")
      var_3 = Sql_TB01("valor")
     End if
    End if
   Sql_TB01.MoveNext
  loop
End if

 

observa que onde coloquei fornecedor podes substituir por qualquer outro valor que nao possa ser repetido

 

Espero ter te ajudado

Boa sorte