FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Problema de Xbrowse()
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Problema de Xbrowse()
Posted: Tue Jul 30, 2024 12:28 PM

Este es el resultado:

? IsRecordSet( oRs2 ) .T.

? oRs2:Fields:Count() 8

? oRs2:RecordCount() 332

? oRs2:CursorLocation 3

? oRs2:ActiveConnection:CursorLocation 3

Saludos/Regards,

Jos茅 Murugosa

"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Problema de Xbrowse()
Posted: Tue Jul 30, 2024 02:58 PM
Looks fine.

You might have already tried. but for my sake please try once again
Code (fw): Select all Collapse
oRs2:MoveFirst()
XBROWSER oRs2
Regards



G. N. Rao.

Hyderabad, India
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Problema de Xbrowse()
Posted: Tue Jul 30, 2024 03:12 PM
Fragmento del codigo utilizado:
Code (fw): Select all Collapse
cSql2:="declare @fecha char(8) = '" + wfecha + "' " + CRLF + ;
聽 聽 聽 聽 "select m1.tropanumero as tropa, m1.correlativo, m1.kilos+isnull(m2.kilos,0) as kilos, " + CRLF + ;
聽 聽 聽 聽 "ani.descripcion, m1.inac, m1.tipificacioninac, m1.kilos as kilosM1, isnull(m2.kilos,0) as kilosM2 " + CRLF + ;
聽 聽 聽 聽 "from C10304 m1 inner join P0021 ani on ani.codigo=m1.tipodeanimal " + CRLF + ;
聽 聽 聽 聽 "outer apply ( select * from C10304 m2 where m2.fecha=m1.fecha and " + CRLF + ;
聽 聽 聽 聽 "m2.lineadeproduccion=m1.lineadeproduccion and m2.correlativo=m1.correlativo and m2.mediares=2 ) m2 " + CRLF + ;
聽 聽 聽 聽 "where m1.fecha = @fecha and m1.tipoderegistro=4 and m1.mediares=1 order by m1.correlativo"
聽 聽 聽
聽 聽 聽oRs2 := FW_OpenRecordSet( oCn2, cSql2 )
聽 聽 聽oRs2:MoveFirst()
聽 聽 聽xBrowser oRs2
聽 聽 聽oRs2:Close()
Aparece xbrowser abierto pero sin detalle

En este link se puede ver con heidysql abierto el mismo script: https://ibb.co/xz5Lt1Z
Saludos/Regards,

Jos茅 Murugosa

"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Problema de Xbrowse()
Posted: Wed Jul 31, 2024 04:48 AM
Looks like I can not resolve the issue, unless I myself connect to the server and execute the query myself.

FWH provides MSSQL cloud server for use of our users.
Please connect to this server using
Code (fw): Select all Collapse
oCn := FW_MSSQLDB()
and then upload your 3 tables to this server.
After that both you and me can execute this query and see what's going wrong.
Regards



G. N. Rao.

Hyderabad, India
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Problema de Xbrowse()
Posted: Wed Jul 31, 2024 04:55 AM
Even before that, please do this small test.
Code (fw): Select all Collapse
aRows := RsGetRows( oRs2 )
? ValType( aRows ), Empty( aRows )
XBROWSER aRows
Regards



G. N. Rao.

Hyderabad, India
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Problema de Xbrowse()
Posted: Wed Jul 31, 2024 10:28 AM
nageswaragunupudi wrote:Even before that, please do this small test.
Code (fw): Select all Collapse
aRows := RsGetRows( oRs2 )
? ValType( aRows ), Empty( aRows )
XBROWSER aRows
Ha ocurrido algo muy interesante.
Coloqu茅 el c贸digo de arriba en el prg.
No me di cuenta y dej茅 tambi茅n la l铆nea xBrowser( oRs2 )
Por lo que qued贸 as铆:
Code (fw): Select all Collapse
oRs2 := FW_OpenRecordSet( oCn2, cSql2 )
聽 聽 聽
聽 聽 聽oRs2:MoveFirst()
聽 聽 聽
聽 聽 聽aRows := RsGetRows( oRs2 )
聽 聽 聽? ValType( aRows ), Empty( aRows )
聽 聽 聽XBROWSER aRows
聽 聽 聽
聽 聽 聽xBrowser oRs2
聽 聽 聽
聽 聽 聽oRs2:Close()
Curiosamente el resultado fu茅 que era posible ver en el xbrowser tanto el array aRows como el Rowset oRs2.
Incluso, este c贸digo a continuaci贸n permite que se vea el Rowset:
Code (fw): Select all Collapse
聽 聽 聽oRs2 := FW_OpenRecordSet( oCn2, cSql2 )
聽 聽 聽oRs2:MoveFirst()
聽 聽 聽aRows := RsGetRows( oRs2 )
聽 聽 聽xBrowser oRs2
聽 聽 聽oRs2:Close()
La verdad que qued茅 sorprendido, pero lo he puesto as铆 por ahora, porque funciona.
Saludos/Regards,

Jos茅 Murugosa

"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Problema de Xbrowse()
Posted: Fri Aug 02, 2024 09:47 AM
A manera de comentario, para ver si ayuda....
con este c贸digo, es posible abrir el rowset
Code (fw): Select all Collapse
aRows := RsGetRows( oRs2 )
XBROWSER oRs2
Con este c贸digo solo se veran los elementos en el primer xbrowser
Code (fw): Select all Collapse
aRows := RsGetRows( oRs2 )
XBROWSER oRs2
XBROWSER oRs2
Y con este c贸digo se ver谩n los elementos en todos
Code (fw): Select all Collapse
aRows := RsGetRows( oRs2 )
XBROWSER oRs2
aRows := RsGetRows( oRs2 )
XBROWSER oRs2
aRows := RsGetRows( oRs2 )
XBROWSER oRs2
Es muy raro......
Saludos/Regards,

Jos茅 Murugosa

"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"
alerchster
Posts: 137
Joined: Mon Oct 22, 2012 04:43 PM
Re: Problema de Xbrowse()
Posted: Fri Aug 02, 2024 02:16 PM

Hola

Creo que la consulta a煤n no est谩 completa y exitosa, de ah铆 la ventana del navegador vac铆a o incompleta a trav茅s de xbrowser...

Usar铆a syswait(n) antes de llamar a xbrowser; n son los segundos que debe esperar la ejecuci贸n para ejecutar la siguiente funci贸n.

S贸lo una sugerencia...

Todo es solo una traducci贸n con Google, as铆 que no tengo idea si se puede leer correctamente en espa帽ol.

Regards



Ing. Anton Lerchster
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Problema de Xbrowse()
Posted: Fri Aug 02, 2024 03:58 PM
jose_murugosa wrote:A manera de comentario, para ver si ayuda....
con este c贸digo, es posible abrir el rowset
Code (fw): Select all Collapse
aRows := RsGetRows( oRs2 )
XBROWSER oRs2
Con este c贸digo solo se veran los elementos en el primer xbrowser
Code (fw): Select all Collapse
aRows := RsGetRows( oRs2 )
XBROWSER oRs2
XBROWSER oRs2
Y con este c贸digo se ver谩n los elementos en todos
Code (fw): Select all Collapse
aRows := RsGetRows( oRs2 )
XBROWSER oRs2
aRows := RsGetRows( oRs2 )
XBROWSER oRs2
aRows := RsGetRows( oRs2 )
XBROWSER oRs2
Es muy raro......
This is only a workaround and glad it is working for you.
But we need to get into the root cause of the problem.
I would be glad if you can upload the tables to the clould server of FWH
Regards



G. N. Rao.

Hyderabad, India

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions