FiveTech Support Forums

Function Main(_desig_, _arq_, _fastRep_, _tit01_, _tit02_, _tar01_, _arai_ )
local oWnd, oFrPrn
usuario := "ADM"

if empty(_arq_)
   quit 
Endif

REQUEST DBFCDX
use (_arq_) alias tmp
tmp->( browse() )

oFrPrn := frReportManager():new()
oFrPrn:SetTitle( "Teste Title not visible in relat  1" )         //título da janela do FRH
oFrPrn:SetIcon(1)                                                     //ícone da janela do FRH
oFrPrn:LoadLangRes( "brazil.xml")                            //arquivo de idioma
oFrPrn:SetWorkArea("tmp", 1 )
oFrPrn:SetTitle( "Teste Title not visible in relat 2" )         //título da janela do FRH
oFrPrn:SetDefaultFontProperty("Name", "Lucida Console")
oFrPrn:SetDefaultFontProperty("Size", 08)

oFrPrn:LoadFromFile(_fastRep_)                           // para leitura direta de arquivo FR3
*oFrPrn:LoadFromResource('NOVO')                       // leitura dos recursos do relatório ( FR3 ) incluído no arquivo RES

oFrPrn:PreviewOptions:SetAllowEdit( .t. )             // inibe o botão de edição do relatório pelo usuário

if _desig_="S"
   oFrPrn:DesignReport()                        // aqui para "desenhar" o relatório
else
   oFrPrn:ShowReport()                       // aqui para gerar o preview do relatório.
endif

oFrPrn:DestroyFR()


RETURN NIL

 _tit01_   := "Demo Title_tit01_"
 _tit02_  := "Demo Title_tit02_"
 _tar01_  := "Demo Title_tar01_"


oFrPrn:AddVariable( "TITOL", "cTitol1", "'" + _tit01_ +"'")
oFrPrn:AddVariable( "TITOL", "cTitol2", "'" + _tit02_ +"'" )
oFrPrn:AddVariable( "TITOL", "cTitol3", "'" + _tar01_ +"'" )

oFr:AddVariable( "FIRMA", "Logo", "'C:\xwinhotel\LOGO\Logo.jpg'" )