$PBExportHeader$psrviewer.sra $PBExportComments$Generated Application Object forward global type psrviewer from application end type global transaction sqlca global dynamicdescriptionarea sqlda global dynamicstagingarea sqlsa global error error global message message end forward global variables n_appobject gn_app n_mrulist gn_mru n_dynamicitem gn_dyn w_main gw_frame end variables global type psrviewer from application string appname = "psrviewer" string toolbarframetitle = "Toolbar" string toolbarsheettitle = "Toolbar" boolean toolbarusercontrol = false end type global psrviewer psrviewer on psrviewer.create appname="psrviewer" message=create message sqlca=create transaction sqlda=create dynamicdescriptionarea sqlsa=create dynamicstagingarea error=create error end on on psrviewer.destroy destroy(sqlca) destroy(sqlda) destroy(sqlsa) destroy(error) destroy(message) end on event open;// create the MRU List object gn_mru = Create n_mrulist Open(w_main) end event
File: psrviewer.sra
Size: 1035
Date: Tue, 02 Aug 2022 15:46:56 +0200
Size: 1035
Date: Tue, 02 Aug 2022 15:46:56 +0200
- application psrviewer(sra)