Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

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