none
Somar valores array do ASP RRS feed

  • Pergunta

  • Tenho um formulario com 3 linhas cada uma com 2 campos, são eles Produto e Quantidade.

     

    O campo produto e uma select com varios itens. 

     

    Minha questão é a seguinte quando o usuario escolher o mesmo produto em mais de uma linha, as quantidades tem que se somar.

     

    Aqui é onde eu pego as variaveis do formulario e faço a gravação no banco.

     

    <%
    'Busca as variáveis
    Qtd_Produto = split(request.Form("Qtd_Produto"),",")
    Cod_Produto = split(request.Form("Cod_produto"),",")
    St_Pedido = 1
     
    Conta = ubound(Qtd_Produto)
     
    'verifica se pelo menos uma linha tem registro a ser inserido
    For f = 0 to conta
    If trim(Cod_Produto(f)) <> "" and not isnull(Cod_Produto(f)) and trim(Qtd_Produto(f))<> "" and not isnull(Qtd_Produto(f)) then
    If cdbl(Qtd_Produto(f)) > 0 then
    InsereRegistro = "sim"
    End if
    End if
    Next
     
     
    If InsereRegistro = "sim" then ' So executa se tiver um registro a ser inserido
     
    'Insere o registro de pedidos na tabela de pedidos
    SQLQuery = "INSERT into dbo.Tb_Out_Pedidos(Cod_Usuario, St_Pedido) values ("&session("cod_usuario")&", "&St_Pedido&")"
    Conn_Out.Execute(SQLQuery)
     
    'Busca codigo do pedido inserido
    SQLQuery = "SELECT top 1 Cod_Pedido from dbo.Tb_Out_Pedidos order by Cod_Pedido desc"
    Set rs_buscacodigo = Conn_Out.Execute(SQLQuery)
    Cod_Pedido = rs_buscacodigo.fields("Cod_Pedido")
     
    'Insere os produtos
    For f = 0 to conta
    If trim(Cod_Produto(f)) <>"" and not isnull(Cod_Produto(f)) and trim(Qtd_Produto(f))<>"" and not isnull(Qtd_Produto(f)) then
    If cdbl(Qtd_Produto(f)) > 0 then
    SQLQuery = "Insert into Tb_Out_Pedidos_Detalhes(Cod_Pedido,Cod_Produto,Qtd_Produto) values ("&Cod_Pedido&","&Cod_Produto(f)&","&Qtd_Produto(f)&")"
    Conn_Out.Execute(SQLQuery)
    End if
    End if
    Next
     
    'Insere na tabela o registro da criação do pedido
    Desc_Andamento = "Pedido Criado"
     
    Cod_Usuario = session("Cod_Usuario")
     
    SQLQuery = "INSERT into Tb_Out_Pedido_Andamento(Cod_Usuario, Cod_Pedido, Desc_Andamento) values ("&Cod_Usuario&","&Cod_Pedido&",'"&Desc_Andamento&"')"
    Conn_Out.Execute(SQLQuery)
    %>
     
    Quem puder me ajudar desde já agradeço
    sexta-feira, 15 de agosto de 2014 13:12