Page History
...
' 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