Page History
[ 
|../../index.htm#lansa/srvgudba_0070.htm]
You are here:
...
Check if record can be deleted. strName =
strName = "PSLMST"
strKey =
...
"EMPNO"
...
IF NOT LceSetFieldValue(iSession,
...
strKey ,
...
"12345")
...
return error
ENDIF
IF LceDelete(iSession,
...
strName,
...
strKey,
...
TRUE)
delete of the record can be performed
ELSE
cannot delete the record
display error messages
ENDIF