project BLF > class Business Component > method GetLocalisationCode
Description
Returns current active localisation code.
Parameters
ocLocalisationCode | output | character | |
Internal usage
unused
program code (program1/business.p)
if vcLocalisationCode = ""
then do viFcCount1 = 1 to num-entries(session:server-connection-context):
if entry(viFcCount1,session:server-connection-context) begins "Localisation=":U
then vcLocalisationCode = substring(entry(viFcCount1,session:server-connection-context),14,-1,"CHARACTER":U).
end.
if vcLocalisationCode = ""
then do viFcCount1 = 1 to num-entries(session:parameter):
if entry(viFcCount1,session:parameter) begins "Localisation=":U
then vcLocalisationCode = substring(entry(viFcCount1,session:parameter),14,-1,"CHARACTER":U).
end.
ocLocalisationCode = vcLocalisationCode.