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

  • Pergunta

  • 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)%>

    quinta-feira, 23 de outubro de 2008 22:58

Todas as Respostas

  • 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

    sexta-feira, 31 de outubro de 2008 12:56