Relatorio Crystal

[J.unim 0]

Boa tarde pessoal sou novato nesse forum e pelo que tenho acompanhado nese forum que dificilmente alguem fica na dificuldade por aqui, minha duvida é a seguinte estou criando um relatorio dos 10 produtos nais vendidos e vi alguns exemplos por aqui e nao consegui incrementar na minha rotina, gostaria da ajudade de você. minha rotina é essa abaixo:

 

datinv1 = Mid(mskinicial.Text, 7, 4) & "-" & Mid(mskinicial.Text, 4, 2) & "-" & Mid(mskinicial.Text, 1, 2) & " 00:00:00.00"

datinv2 = Mid(mskfinal.Text, 7, 4) & "-" & Mid(mskfinal.Text, 4, 2) & "-" & Mid(mskfinal.Text, 1, 2) & " 00:00:00.00"

 

Dim sql As String

 

sql = "SELECT top 10"

sql = sql & "venda_prod.cod_pro, venda_prod.quantidade, venda_prod.valor_unit, venda_prod.dat_venda "

sql = sql & "produto.descricao, produto.preco_custo "

sql = sql & "From "

sql = sql & "venda_prod INNER JOIN produto ON "

sql = sql & "venda_prod.cod_pro = produto.cod_pro "

sql = sql & "Where "

sql = sql & "(venda_prod.dat_venda>= {ts '" & datinv1 & "'}"

sql = sql & "and venda_prod.dat_venda<= {ts '" & datinv2 & "'})"

sql = sql & "Order By "

sql = sql & "venda_prod.quantidade DESC"

 

 

 

 

 

Screen.MousePointer = vbHourglass

Cry_prod.ReportFileName = App.Path & "\rpt_prodvendidos.rpt"

Cry_prod.SQLQuery = sql

'Cry_prod.Formulas(0) = "inicial = '" & mskinicial.Text & "'"

'Cry_prod.Formulas(1) = "final = '" & mskfinal.Text & "'"

Cry_prod.DiscardSavedData = True

Cry_prod.WindowState = crptMaximized

Cry_prod.Destination = crptToWindow

Cry_prod.Action = 1

Screen.MousePointer = vbDefault

[Mário Monteiro 179]

Algum erro?