Hola todos buenas tardes
Aqui con una duda nuevamente en mi programa mando llamar un data report el cual lo filtro por fecha y por caja(es un punto de venta) el reporte sale bien pero a la hora que le añado el comando order by me manda el reporte en blanco, ya estube checando en varias paginas en internet y segun yo la sintaxis esta bien no se si tengo algun otro problema aqui les pongo el codigo a ver si me puden ayudar de ante mando muchas gracias
Código:
Private Sub cmdaceptar_Click()
Dim ventadia As ADODB.Command
Dim Entorno As demybusiness
Dim fecha As Date
Dim caja As String
fecha = dtpfecha.Value
caja = cbxcajas.List(cbxcajas.ListIndex)
Set Entorno = New demybusiness
Entorno.condiaventa.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & server & "; DATABASE=" & dbase & " ;PWD=" & pass & "; UID=" & user & ";OPTION=3"
Set ventadia = Entorno.Commands("acmdiarioventa_Grouping")
ventadia.CommandType = adCmdText
If caja = "" Then
MsgBox "Elija una Caja por favor"
Else
ventadia.CommandText = "SHAPE {SELECT usuarios.USUARIO, ventas.USUARIO AS Expr1, usuarios.NOMBRE," _
& "ventas.ESTADO, ventas.USUHORA, ventas.F_EMISION, ventas.IMPORTE, ventas.IMPUESTO, ventas.estacion, ventas.NO_REFEREN," _
& "ventas.IMPORTE + ventas.IMPUESTO as total FROM usuarios, ventas WHERE (usuarios.USUARIO = ventas.USUARIO)" _
& "and ventas.f_emision = " & Format(fecha, "yyyymmdd") & " and ventas.estacion = '" & caja & "'" _
& "and ventas.estado = '" & "CO" & "' order by ventas.NO_REFEREN} AS acmdiarioventa COMPUTE acmdiarioventa, SUM(acmdiarioventa.'IMPORTE')" _
& "AS TotalImporte, SUM(acmdiarioventa.'IMPUESTO') AS TotalIva BY 'estacion','USUARIO'"
Load rptdiarioventa
rptdiarioventa.Show 1, frmprincipal
Unload Me
End If
End Sub
Si no le pongo el order by ventas.NO_REFEREN me manda el reporte bien solo que ordenado por usuario y yo lo necesito por el No. de referencia