Page History
[ 
|../../index.htm#lansa/srvgudba_0040.htm]
You are here:
...
' if record doesn't already exist insert new
' set key fields with values of record to insert
iRet = LceSetFieldValue(iSession, "EMPNO", sEmpNo)
iRet = LceSetFieldValue(iSession, "SKILCODE", SkillKey)
if iRet=LceTrue then
' check if record with above key values exist
iRet = LceCheckFor(iSession, "PSLSKL", "EMPNO,SKILCODE")
...
If iRet = LceFalse Then
' record doesn't exist so insert
iRet = LceInsert(iSession, _
"EMPNO,SKILCODE,GRADE,DATEACQ,COMMENT", _
...
"PSLSKL",
...
LceFalse)
...
End If
End If