FiveTech Software tech support forums

VERSION 2.1b
============
* Novos Methods
- Method DataLoadToFR(f_oFastRep,f_cTituloGrupo) > Parametriza Grupos e Variaveis para o objeto FastReport
Exemplo:
oFastRep := frReportManager():new()
oFastRep:SetIcon(1)
oFastRep:ClearDataSets()
oFastRep:LoadLangRes( "brazil.frc")
oFastRep:SetTitle( "Dados do Cliente" )
oFastRep:PreviewOptions:SetAllowEdit( .F. )
oFastRep:PreviewOptions:SetZoomMode(2)
oFastRep:ClearDataSets()
oFastRep:LoadFromFile("ClienteDados.fr3")

oDb_Clientes := DB_CLIENTES():OpenRdd()
oDb_Clientes:GoTo(100) // Ir para registro 100
oDb_Clientes:DataLoadToFR(oFastRep,"Cliente Dados") // Todos _ serão parametrizados no Relatorio de Fast Report

oFastRep:DesignReport()
oFastRep:ClearDataSets()
oFastRep:DestroyFR()

-Method DsAddVar(f_cTxtVarInQuery,f_uVarBlock) e DsSetVar(f_cTxtVarInQuery,f_uVarBlock)
Exemplo:

oDs_ListaCliente := tAds():DsNew(1)
oDs_ListaCliente:cQrySql := "Select * from CLIENTES Where DT_ANIVER >= _DtHoje_ and DT_ANIVER <= _DtSemana_ Order By DT_ANIVER"
oDs_ListaCliente:DsAddVar("_DtHoje_",Date())
oDs_ListaCliente:DsAddVar("_DtSemana_",Date()+7)
oDs_ListaCliente:DsExecute()

(oDs_ListaCliente:cAlias)->(xBrowse())

oDs_ListaCliente:End()

oDs_MyQuery := tAds():DsNew(1)
oDs_MyQuery:cQrySql := "Select * from CLIENTES Where SALARIO > _Salario_"
oDs_MyQuery:DsAddVar("_Salario_",1200.00)
oDs_MyQuery:DsExecute()
(oDs_MyQuery:cAlias)->(xBrowse())
oDs_MyQuery:End()

oDb_Clientes := tAds():NewRdd("CLIENTES")

oDs_MyQuery := tAds():DsNew(1)
oDs_MyQuery:cQrySql := "Select * from VENDAS Where COD_CLIENTE == _CodigoCliente_"
oDs_MyQuery:DsAddVar("_CodigoCliente_",{||oDb_Clientes:VarGet("CODIGO")})

Do While !oDb_Clientes:Eof()

oDs_MyQuery:DsExecute()

oDb_Clientes:Skip()

EndDo


Repositorio de tAds
https://tads-class-for-harbour.googlecode.com/svn/trunk