xbrowse + Tdolphin + Mysql

[jbrita]

Colegas necesito urgente de su ayuda llevo 2 dias con este problema:
tengo esta queyr

cViaje:=xServer:Query("SELECT v.*,(SELECT COUNT(*) FROM vendido ve WHERE ve.COD_INTERNO=v.codigo_control) AS npasaje FROM viajes_generados v WHERE MONTH(v.fecha_salida)='"+Str(nMes,2)+"' And YEAR(v.fecha_salida)='"+Str(namo,4)+"' AND v.fecha_salida >='"+dtos(date())+"' ORDER BY v.fecha_salida,v.hora_salida,v.nom_viaje")
cviaje:GoTop()

@ 30, 10 XBROWSE oLbx FIELDS cViaje:codigo_control,cViaje:cod_viaje,cViaje:nom_viaje ,cViaje:fecha_salida ,cViaje:hora_salida,cViaje:tipo_bus,cViaje:npasaje ,cViaje:patente,cViaje:nomchofer,cViaje:nomauxiliar,cViaje:nomchofer2;
HEADERS "Cod.Control" ,"Viaje" , "Nombre del viaje","Fecha"+CRLF+"Salida","1era Hora" ,"Tipo Bus" ,"Pasajes"+CRLF+"Vendidos","Patente" ,"Chofer-1-" ,"Auxliar" ,"Chofer-2" ;
FIELDSIZES 70,70,300,80,70,100,70,60,160,160,160;
JUSTIFY .f.,.f.,.f.,AL_CENTER, AL_CENTER,AL_CENTER,AL_CENTER;
OF oWChld


y al presionar el boton refrescar Pantalla:

STATIC FUNCTION RefrescarPantalla(oLbx)
*----------------------------------
SetDolphin( oLbx, cViaje,.f. )

cViaje:Refresh()

oLbx:Refresh(.t.)
oLbx:SetFocus()

RETURN .T.

SALE ERROR:


Time from start: 0 hours 0 mins 11 secs
Error occurred at: 17-10-2021, 19:12:26
Error description: Error MYSQL/1051 Unknown table 'v'

y el error que me muestra la query, pero me la cambia no sale completo :
TDOLPHINSRV:SQLQUERY
Param 1: C "SELECT v.*, (select count(*) FROM vendido ve WHERE ve.COD_INTERNO=v.codigo_control) AS npasaje ORDER BY v.fecha_salida,v.hora_salida,v.nom_viaje"

ojala me puedan ayudar

Saludos

[CARLOS ATUNCAR]

yo preparo asi mi Xbrowse con tdolphin

aCols := {;
{"idpedido","ID",NIL,50,AL_RIGHT},;
{"factura_doc","DOC",NIL,40,AL_LEFT },;
{"factura_ser","SERIE",NIL,60,AL_LEFT },;
{"factura_num","NUMERO",NIL,90,AL_LEFT },;
{"factura_fec","FECHA",NIL,75,AL_LEFT},;
{"razsoc","CLIENTE",NIL,200,AL_LEFT },;
{"moneda","MON",NIL,30,AL_LEFT },;
{"neto","IMPORTE DE VENTA","999,999.99",90,AL_RIGHT},;
{"efectivo","EFECTIVO","999,999.99",90,AL_RIGHT},;
{"tarjeta","TARJETA","999,999.99",90,AL_RIGHT},;
{"credito","CREDITO","999,999.99",90,AL_RIGHT},;
{"gratuitas","GRATUITA","999,999.99",90,AL_RIGHT},;
{{|| ""},"ESTADO",NIL,25,AL_RIGHT}, ;
{{|| ""},"CPE",NIL,25,AL_RIGHT} ;
}


@ 0,0 XBROWSE oBrw OF oWnVta ;
DATASOURCE oQry ;
COLUMNS aCols ;
LINES CELL AUTOSORT

WITH OBJECT oBrw
:bClrRowFocus := oBrw:bClrSelFocus
:nRowHeight := 25
:nHeaderLines := 3
:nHeaderHeight := 60
HeaderFonts := oFont
:nFooterHeight := 20
:nFooterLines := 2
:nStretchCol := 6

:lAllowColHiding := .F.
:lAllowColSwapping := .F.
:lDisplayZeros := .F.
:lRecordSelector := .F.
:lHScroll := .F.
:l2007 := .F.
:lFooter := .T.
:lDrawBorder := .t.
:lAllowColReGroup := .T.
:lColDividerComplete := .T.

:nRowDividerStyle :=LINESTYLE_BLACK

:bClrHeader := {|| { nRGB(000,000,000), nRGB(128,255,128) } }
:bClrSel := { || { CLR_BLACK, CLR_HGRAY } }

:SetGroupHeader( 'FACTURACION', 2, 5, oFont )
:SetGroupHeader( 'CONDICIONES DE PAGO', 9, 12, oFont )

:SetDolphin( oQry, .F. )


END


oBrw:aCols[01]:cOrder = "A"

oBrw:aCols[01]:bLClickHeader := {|| SetOrden(oBrw:aCols[01],"doc+0 ASC",oQry )}
oBrw:aCols[02]:bLClickHeader := {|| SetOrden(oBrw:aCols[02],"serie+numero ASC",oQry )}
oBrw:aCols[03]:bLClickHeader := {|| SetOrden(oBrw:aCols[03],"fecha ASC",oQry )}
oBrw:aCols[04]:bLClickHeader := {|| SetOrden(oBrw:aCols[04],"razsoc ASC",oQry )}

AEval( oBrw:aCols, { | o | o:nHeadStrAlign := AL_CENTER,o:oDataFont := aFont[1] } )


oBrw:CreateFromCode()

oWnVta:oClient := oBrw



y para refrescar la consulta uso asi

Static Procedure MyRefresh()
local oWait

WaitOn("Espere, cambiando consulta...",@oWait )

IsConexion()
TRY
oQry:Refresh()
oBrw:MakeTotals()
oBrw:Refresh()
CATCH oErr
END
WaitOff( @oWait )

Return

prueba si se soluciona o me avisas para hacer una conexion por anydesk y verlo en tu servidor

[jbrita]

Solucionado. hice otra query distinta:
cViaje:=xServer:Query("SELECT v.*,COUNT(*) AS npasaje FROM viajes_generados v LEFT JOIN vendido d ON v.codigo_control=d.cod_interno WHERE MONTH(v.fecha_salida)='"+Str(nMes,2)+"' And YEAR(v.fecha_salida)='"+Str(namo,4)+"' AND v.fecha_salida >='"+dtos(date())+"' GROUP BY v.codigo_control ORDER BY v.fecha_salida,v.hora_salida,v.nom_viaje")
cviaje:GoTop()

y funciono
gracias carlos por tu atencion ..

saludos