Returns the major version for the current PocketBuilder execution context. For example, at maintenance level 1.5.2 the major version is 1.
ContextInformation objects
servicereference.GetMajorVersion ( majorversion )
Argument |
Description |
|---|---|
servicereference |
Reference to the ContextInformation service instance. |
majorversion |
Integer into which the function places the major version. This argument is passed by reference. |
Integer. Returns 1 if the function succeeds and -1 if an error occurs.
Call this function to determine the current major version.
This example calls the GetMajorVersion function:
String ls_name
Constant String ls_currver = "8.0.3"
Integer li_majver, li_minver, li_fixver
ContextInformation ci
this.GetContextService ("ContextInformation", ci)
GetMajorVersion(li_majver)
ci.GetMinorVersion(li_minver)
ci.GetFixesVersion(li_fixver)
IF li_majver <> 8 THEN
MessageBox("Error", &
"Must be at Version " + ls_currver)
ELSEIF li_minver <> 0 THEN
MessageBox("Error", &
"Must be at Version " + ls_currver)
ELSEIF li_fixver <> 3 THEN
MessageBox("Error", &
"Must be at Version " + ls_currver)
END IF
