Versions Compared

Old Version 2

changes.mady.by.user user-2c621

Saved on

compared with

New Version Current

changes.mady.by.user user-eb51a

Saved on

Key

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

...

     Private Sub cmdSave_Click()
         '

...

 saves department description changes
         ' no need to set key DEPTMENT as it is already set
         
         If txtDesc <> "" Then
              iRet = LceSetFieldValue(iSession, "DEPTDESC", txtDesc)
         Else
              '"" is not allowed, sNull same as chr(0) 
              iRet = LceSetFieldValue(iSession, "DEPTDESC", sNull) 
         End If
        
         iRet = LceUpdate(iSession, "DEPTDESC", "DEPTAB",   _
                "DEPTMENT",

...

 LceFalse)

...

         If iRet = LceTrue Then
             ' set flag to cause refresh in all combos displaying
             ' departments
               bDepFileChanged = True 
               Call RefreshDepList
         End If
     End Sub