srvgudba_0500

[ |../../index.htm#lansa/srvgudba_0500.htm]
You are here:

6.68.1 VB Example

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
 
[ |../../index.htm#lansa/srvgudba_0500.htm]