no obtiene datos el sqlquery en una funcion
Publicado: Mié Mar 30, 2016 10:45 pm
STATIC FUNCTION CalculaSaldo(oDataField)
local nSaldo := 0
local oSqlQuerysaldo := TSQLQuery():New()
WITH OBJECT oSqlQuerysaldo
:oDataSource:= appdata:oMariadbds1
:cSelect := [SELECT * from factura]
:lOpen := .t.
MsgBox(Len(oSqlQuerysaldo:aFields) ) // manda un 0
END WITH
nSaldo := oSqlQuerysaldo:saldo
return nSaldo
En cambio este si carga las tuplas
METHOD Button1Click( oSender ) CLASS TForm4
local nSaldo := 0
//MsgBox(oDataField:oDataset:clave)
WITH OBJECT ::oSqlQuery2
:oDataSource:= appdata:oMariadbds1
:cSelect := [SELECT * from factura]
:lOpen := .t.
END WITH
::oDBBrowse3:oDataSet := ::oSQLQuery2
::oDBBrowse3:Refresh()
RETURN Nil
local nSaldo := 0
local oSqlQuerysaldo := TSQLQuery():New()
WITH OBJECT oSqlQuerysaldo
:oDataSource:= appdata:oMariadbds1
:cSelect := [SELECT * from factura]
:lOpen := .t.
MsgBox(Len(oSqlQuerysaldo:aFields) ) // manda un 0
END WITH
nSaldo := oSqlQuerysaldo:saldo
return nSaldo
En cambio este si carga las tuplas
METHOD Button1Click( oSender ) CLASS TForm4
local nSaldo := 0
//MsgBox(oDataField:oDataset:clave)
WITH OBJECT ::oSqlQuery2
:oDataSource:= appdata:oMariadbds1
:cSelect := [SELECT * from factura]
:lOpen := .t.
END WITH
::oDBBrowse3:oDataSet := ::oSQLQuery2
::oDBBrowse3:Refresh()
RETURN Nil