$PBExportHeader$pfcsecurity_admin.sra $PBExportComments$PFC Security Admin Application forward global n_tr sqlca global dynamicdescriptionarea sqlda global dynamicstagingarea sqlsa global error error global n_msg message end forward global variables n_pfcsecurity_appmanager gnv_app end variables global type pfcsecurity_admin from application end type global pfcsecurity_admin pfcsecurity_admin on pfcsecurity_admin.create appname = "pfcsecurity_admin" message = create n_msg sqlca = create n_tr sqlda = create dynamicdescriptionarea sqlsa = create dynamicstagingarea error = create error end on on pfcsecurity_admin.destroy destroy( sqlca ) destroy( sqlda ) destroy( sqlsa ) destroy( error ) destroy( message ) end on event open;gnv_app = create n_pfcsecurity_appmanager gnv_app.of_splash(1) open(w_pfcsecurity_frame) end event event close;destroy gnv_app end event event systemerror;gnv_app.event pfc_systemerror ( ) end event
- Sources
- PFC2019
- ws_objects
- security
- pfcsecad
- pfcsecad.pbl.src
- pfcsecurity_admin.sra
File: pfcsecurity_admin.sra
Size: 1002
Date: Sat, 08 May 2021 23:34:23 +0200
Size: 1002
Date: Sat, 08 May 2021 23:34:23 +0200
- application pfcsecurity_admin(sra)