(S-Pronto) Pegar Total de vendas(Com data e forma de pgto)

(S-Pronto) Pegar Total de vendas(Com data e forma de pgto)

 por Rodrigo1 Offline » Sex Mar 20, 2009 11:21 am

Fiz um Script para pegar o total de vendas de uma tabela pedidos, por faixa de data e meio de pagamento... Vc passa a data inicial, a data final e o meio de pgto que ele retorna o total de quanto vendeu por tal meioo de pagamento em tal faixa de data! Código: Selecionar todos     Public Shared Function Total(ByVal vTipo As String, ByVal vDataInicio As String, ByVal vDataFim As String) As Integer         Dim oConn As New SqlConnection         Dim oCmd As New SqlCommand         oConn.ConnectionString = Dados.Conexao         oCmd.CommandType = Data.CommandType.Text         Dim vSql As String = "Select Valor, Taxa From Pedidos Where (DataPedido Between @DataInicial AND @DataFinal) AND (FormaPagamento = @PGTO) AND (LiberadoCobranca = 1)"         oCmd.Parameters.Add(New SqlParameter("@DataInicial", vDataInicio))         oCmd.Parameters.Add(New SqlParameter("@DataFinal", vDataFim))         oCmd.Parameters.Add(New SqlParameter("@PGTO", vTipo))         oCmd.CommandText = vSql         oCmd.Connection = oConn         oConn.Open()         Dim R As Object = oCmd.ExecuteReader         Dim vTotal As Integer = 0         While R.Read()             vTotal = vTotal + (R("Valor") + R("Taxa"))         End While         oConn.Close()         Return vTotal     End Function Me ajudou Bastante aqui!! Qq duvida ou problemas post ai galera! Rodrigo1 SUPER ATIVO Mensagens: 93 Registrado em: Qui Nov 06, 2008 2:49 pm Localização: Sao Paulo Website