FiveTech Software tech support forums

Code: Select all | Expand

oRs2:MoveFirst()
XBROWSER oRs2

Code: Select all | Expand

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()

Code: Select all | Expand

oCn := FW_MSSQLDB()

Code: Select all | Expand

aRows := RsGetRows( oRs2 )
? ValType( aRows ), Empty( aRows )
XBROWSER aRows

Code: Select all | Expand

oRs2 := FW_OpenRecordSet( oCn2, cSql2 )
     
     oRs2:MoveFirst()
     
     aRows := RsGetRows( oRs2 )
     ? ValType( aRows ), Empty( aRows )
     XBROWSER aRows
     
     xBrowser oRs2
     
     oRs2:Close()
 

Code: Select all | Expand

     oRs2 := FW_OpenRecordSet( oCn2, cSql2 )
     oRs2:MoveFirst()
     aRows := RsGetRows( oRs2 )
     xBrowser oRs2
     oRs2:Close()
 

Code: Select all | Expand

aRows := RsGetRows( oRs2 )
XBROWSER oRs2
 

Code: Select all | Expand

aRows := RsGetRows( oRs2 )
XBROWSER oRs2
XBROWSER oRs2
 

Code: Select all | Expand

aRows := RsGetRows( oRs2 )
XBROWSER oRs2
aRows := RsGetRows( oRs2 )
XBROWSER oRs2
aRows := RsGetRows( oRs2 )
XBROWSER oRs2