Page History
[ 
|../../index.htm#lansa/srvgudba_0675.htm]
You are here:
...
strValue = spaces(FIELD_DATA_
...
SIZE +
...
1)
iValue =
...
0
lFlags = 0
IF LceGetDefaultValueX(iSession,
...
"EMPNO",
...
strValue,
...
lFlags)
...
IF NOT lFlags = 1
iValue = ConvertStringToInteger (strValue)
ENDIF
ELSE
/ return error /
...
ENDIF