FiveTech Support Forums

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

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
        <!-- s:o --><img src="{SMILIES_PATH}/icon_surprised.gif" alt=":o" title="Surprised" /><!-- s:o -->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 = &quot;A&quot;

     oBrw:aCols[01]:bLClickHeader := {|| SetOrden(oBrw:aCols[01],&quot;doc+0 ASC&quot;,oQry )}
     oBrw:aCols[02]:bLClickHeader := {|| SetOrden(oBrw:aCols[02],&quot;serie+numero  ASC&quot;,oQry )}
     oBrw:aCols[03]:bLClickHeader := {|| SetOrden(oBrw:aCols[03],&quot;fecha  ASC&quot;,oQry )}
     oBrw:aCols[04]:bLClickHeader := {|| SetOrden(oBrw:aCols[04],&quot;razsoc  ASC&quot;,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

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