Cesta

[salmeida 0]

esta acontecendo o seguinte, na hora que soma o frete o frete as vezes ele da o valor certo e as vezes ele dispara, ai tem boleto que sai certo e tem boleto que com 400 mil 300 mil reais a mais.... isso é louco.... mas tenho quase certeza que esta nesses cod que eu postar a baixo

 

If Session("Regiao") <> "" Then
								
									VarFrete = Replace(Replace(Frete("ValorQuilo") * Pedidos("Peso") * Pedidos("Quantidade"),".",""),",",".")
								
							Else
								
									VarFrete = 0				
																
							End If
							
								Banco.Execute("Update Pedidos Set Frete='"& VarFrete &"', ValorBase='"& VarValorBase &"' Where Cod="& Pedidos("Pedidos.Cod"))
								
								VarSubTotal = Pedidos("Preco") * Pedidos("Quantidade")
							
							If Linha Then
							
							%>

e nesse aqui tbm

 

<%
							
							Pedidos.MOVENEXT : WEND
							
							Dim SomaFrete
							Set SomaFrete = Banco.Execute("Select SUM(Frete) AS SomaFrete FROM Pedidos WHERE Secao = '"& VarCliente &"'")
							
							'Response.Write SomaFrete("SomaFrete")
							
							%>

 

abração

[jrcardozo 4]

possivelmente há problema no tipo de dados, tente assim

 

VarFrete = 1+replace(replace(Frete("ValorQuilo"),".",""),",",".") * replace(replace(Pedidos("Peso"),".",""),",",".") * replace(replace(Pedidos("Quantidade"),".",""),",",".")-1