Local lopdf, _rt
IF _akce<>'TOFILE' OR _typ<>1
	select sql_tisk
	RETURN .T.
ENDIF

select sql_tisk
go top
*brow

lopdf = Createobject("bm_code_syspdf")
lopdf.ridic=_this
lopdf.parametr_profilu=_parametr_profilu
*lopdf.recipaddress='*PLUDA_AD01ID'
lopdf.recipaddress=tool.sql_dotaz([select ADJ.ad11email from BM_SERVIS.ADSPOJ ADJ, BM_SERVIS.ADADSAT AD where ]+;
[ AD.ad01id=?_p1 and AD.ad01id=ADJ.ad01id and AD.ad11cisspo=ADJ.ad11cisspo], SQL_TISK.OBUDAL_ad01id)
lopdf.subject='Faktura '+SQL_TISK.SPPRC_sp33cisdr+'-'+SQL_TISK.SPPRC_sp33cisdpm+'-'+SQL_TISK.SPPRC_sp33cisd
*lopdf.subject='Faktura '+bw_tiskh('PLA', 'SQL_TISK.PLUDA_pl02vs')
*lopdf.messagetext='Zapla?te nebo zemoete !!!'+chr(13)+chr(13)+tool.jmenot
lopdf.messagetext=''
lopdf.creport= _frx
* Metoda MAIN objektu toídy BM_CODE_SYSPDF vytváoí dokument PDF a vrací numerickou hodnotu  (0,1,17 ...)
Return lopdf.Main()=0

#INCLUDE SYSPDF