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
