Check_4D_version_requirment

Sometimes we open a structure that uses recent commands with an older version of 4D, ie 15R5 against 15.4

https://forums.4d.com/4DBB_Main/x_User/3906/files/29304203.zip

<code 4D>
// Method Check_4D_version_requirment controls if the structure can be opened with the current 4D version
//
// #SYNTAX: Check_4D_version(version)
// #PARAMETERS:
// $1 Text : Application version

// #DATE CREATION: 08/04/2019 #AUTHOR: Bertrand SOUBEYRAND info@soubeyrand-4d-developer.eu
// #DATE MODIFICATION: 00/00/0000
// #NOTE:

// #HEADER VERSION: 2

C_LONGINT($1;$L_Version_requirment)
$L_Version_requirment:=$1
If (Num(Application version)<$L_Version_requirment)

  // 1310 = 13.1
  //---------------
  // 1420 = 14R2
  // 1402 = 14.2
  // 1660 = 16R6
  // 1700 = 17.0
  // 1750 = 17R5

ALERT("Your 4D version is: "+Application version+". This structure requires a newer version of 4D: at least "+String($L_Version_requirment))

End if

// EOM

</code 4D>