>*** ActiveX Control Event *** >LPARAMETERS ptemplate > >LOCAL lblobFingerPrnt, lnResult > >WAIT WINDOW NOWAIT "Creating Employee Record..." NOCLEAR > >lnResult = ptemplate.Export( @lblobFingerPrnt ) > >IF lnResult # Er_OK > MESSAGEBOX( "Error in getting Registration Template" ) > RETURN >ENDIF > >APPEND BLANK IN employee >replace employee.lastname WITH thisform.txtLastname.Value,; > employee.firstname WITH thisform.txtFirstname.Value,; > employee.fingerprnt WITH lblobFingerPrnt > >WAIT CLEAR >>
>Export([out] VARIANT* pVal, [out,retval] AIErrors *pErr) > >* Exports the template object as a signed blob of bytes. >* This may then be saved by the developer in the database of his choice. >>
LOCAL lblobFingerPrnt, lnResult SET ASSERTS ON WAIT WINDOW NOWAIT "Creating Employee Record..." NOCLEAR lblobFingerPrnt = [] lnResult = ptemplate.Export( @lblobFingerPrnt ) ASSERT NOT EMPTY(lblobFingerPrnt) IF lnResult # Er_OK MESSAGEBOX( "Error in getting Registration Template" ) RETURN ENDIF APPEND BLANK IN employee replace lastname WITH thisform.txtLastname.Value,; firstname WITH thisform.txtFirstname.Value,; fingerprnt WITH lblobFingerPrnt IN employee WAIT CLEAR