Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Procedure BinaryGUID()
* create a binary Char(16) GUID
Local lcBuffer
lcBuffer = Space(16)+Chr(0)
=CoCreateGuid(@lcBuffer)
Return Left(lcBuffer,16)
Endproc
Procedure FullGUID()
* create GUID in the format for a Char(38) field
* {4DDF8EA2-30F5-4016-9554-5B9C16FA2D91}
Local lcBuffer
lcBuffer = Space(128)
=StringFromGUID2( BinaryGUID(), @lcBuffer, Len(lcBuffer) )
Return Left(Chrtran(lcBuffer,Chr(0),''),38)
Endproc
Procedure UniqueIdentifier()
* create GUID in the format, which SQL Server displays and returns, needs Char(36)
* 4DDF8EA2-30F5-4016-9554-5B9C16FA2D91
Return Chrtran(FullGUID(),'{}','')
Endproc
Procedure CoCreateGuid(tcBuffer)
Declare Integer CoCreateGuid In ole32;
STRING @ pguid
Return CoCreateGuid(@tcBuffer)
Endproc
Procedure StringFromGUID2(tcGUID, tcBuffer, tnMaxlen)
Declare Integer StringFromGUID2 In ole32;
STRING rguid,;
STRING @ lpsz,;
INTEGER cchMax
Return StringFromGUID2(tcGUID, @tcBuffer, tnMaxlen)
Endproc