Problema de Xbrowse()

[jose_murugosa]

Uso la versión 24.04 y xbrowse no despliega los datos de este recordset ADO.

Code: Select all  Expand view

#include "Fivewin.ch"
#include "xBrowse.ch"
#include "AdoDef.ch"
/*----------------------------------------------------------------------------------------------------------*/

FUNCTION Santi1( oCn, oCn2 )
     LOCAL cSql2, oRs2, wfecha
     
     wfecha:='20240723'
     
     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 )
     
     DO WHILE !oRs2:Eof()
          ?oRs2:Fields( "descripcion" ):Value
          oRs2:MoveNext()
     ENDDO
     
     xbrowse( oRs2 )
     
RETURN nil
 

Por medio del DO WHILE verifiqué que el recordset no está vacío y puedo recorrerlo, además, usando heidysql puedo ver el recordset perfectamente, sin embargo en este ejemplo xbrowse muestra como si no hubieran registros.

[Marc Venken]

I think you have to use :

xbrowser( oRs2 )

[jose_murugosa]

Thanks Mark, but changin xbrowse by xbrowser I have the same result.

[Marc Venken]

Last try )))

xbrowser oRs2

[jose_murugosa]

Last try )))

xbrowser oRs2

Lo probé así y da error de sintaxis.

[karinha]

https://forums.fivetechsupport.com/~fivetec1/forums/viewtopic.php?f=3&t=40178

http://www.forums.fivetechsoft.com/viewtopic.php?t=38241

Regards, saludos.

[jose_murugosa]

https://forums.fivetechsupport.com/~fivetec1/forums/viewtopic.php?f=3&t=40178

http://www.forums.fivetechsoft.com/viewtopic.php?t=38241

Regards, saludos.

Gracias por tu respuesta Karinha, pero el resultado es el mismo, probé con xbrowser SHOW SLNUM

De todos modos obtengo un xbrowser vacío.

[alerchster]

Code: Select all  Expand view

#include "Fivewin.ch"
#include "xBrowse.ch"
#include "AdoDef.ch"
/*----------------------------------------------------------------------------------------------------------*/

FUNCTION Santi1( oCn, oCn2 )
     LOCAL cSql2, oRs2, wfecha
     
     wfecha:='20240723'
     
     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 )
     
     DO WHILE !oRs2:Eof()
          ?oRs2:Fields( "descripcion" ):Value
          oRs2:MoveNext()
     ENDDO

     oRs2:MoveFirst()

     xbrowser oRs2
     
RETURN nil
 

[jose_murugosa]

#include "Fivewin.ch"
#include "xBrowse.ch"
#include "AdoDef.ch"
/*----------------------------------------------------------------------------------------------------------*/

FUNCTION Santi1( oCn, oCn2 )
     LOCAL cSql2, oRs2, wfecha
     
     wfecha:='20240723'
     
     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 )
     
     DO WHILE !oRs2:Eof()
          ?oRs2:Fields( "descripcion" ):Value
          oRs2:MoveNext()
     ENDDO

     oRs2:MoveFirst()

     xbrowser oRs2
     
RETURN nil

No hay cambios.

[karinha]

https://fivetechsoft.com/forums/viewtopic.php?t=6691

https://forums.fivetechsupport.com/~fivetec1/forums/viewtopic.php?f=3&t=25581

Regards, saludos.

[jose_murugosa]

Gracias Karinha por tu respuesta, no he podido aún encontrar una solución.
El recordset existe, contiene los datos esperados, sin embargo no es posible visualizarlo en el xbrowser, para mi es un problema en el xbrowser.

[Antonio Linares]

A la espera de los comentarios de Rao

[Marc Venken]

I keep wondering ...

This sample is from Rao on the Forum.

Would you be so kind and make a simple Sql request ? and see then...

Just curious until Mr. Rao comments

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local oCn, oRs, aRows

   oCn   := FW_OpenAdoConnection( "c:\fwh\samples\xbrtest.mdb" )
   oRs   := FW_OpenRecordSet( oCn, "SELECT ID,FIRST,CITY FROM CUSTOMER WHERE ID < 6" )
   XBROWSER oRs TITLE "RecordSet"

   oRs:MoveFirst()
   aRows := oRs:GetRows()
   oRs:MoveFirst()

   XBROWSER aRows TITLE "oRs:GetRows() " + Version()

   oRs:Close()
   oCn:Close()

return nil
 

[jose_murugosa]

Gracias Mark, lo probé.
Si es sorprendente, el ejemplo de Nages funcionó a la perfección, así como muchas consultas que tengo sobre esta misma base de datos y varias de ellas incluso sobre las mismas tablas.
Sin embargo, no se porqué, esta consulta específica no se despliega.
Es extraño.
Siempre pruebo las consultas en heidysql antes de ponerlas en código y ésta se despliega perfectamente.

[nageswaragunupudi]

Let us see what is the problem with XBrowse.

Can you please execute these simple tests and let us know the results?

Code: Select all  Expand view

? IsRecordSet( oRs2 )
? oRs2:Fields:Count()
? oRs2:RecordCount()
? oRs2:CursorLocation
? oRs2:ActiveConnection:CursorLocation