Function LceSetValue(iSession As Integer, sFldName As String, _
                                sStrValue As String) As Integer 
 
         ' this function is a replacement for LceSetFieldValue to be 
         ' used when you have to strip edit codes from date and value fields 
         ' it also replaces empty fields "" with null terminated strings 
 
         Dim sFlag As String
         Dim sEdit As String
         Dim sBuff As String
         Dim sValue As String
         Dim i As Integer
         Dim iRet As Integer
 
         If sStrValue = "" Then
             ' null nothing to do
             iRet = LceSetFieldValue(iSession, sFldName, Chr(0))
         Else
             ' Get Field edit type to remove formatting characters if required
             sEdit = String(FIELD_EDIT_LENGTH, 0)
             sFlag = String(FIELD_EDIT_FLAG_LENGTH, 0)
             iRet = LceGetFieldEdit(iSession, sFldName, sEdit, sFlag)
             If iRet = LceTrue Then
                 Select Case sFlag
                     Case "E"
                         sValue = sStrValue ' copy value
                         sEdit = sTrim(sEdit)
                         Select Case sEdit
                             Case "Y" ' 
                                 ' date so Remove date Separator
                                 i = InStr(sValue, sDtSep)
                                 While i > 0
                                     sValue = Left(sValue, i - 1) +  _
                                              Mid(sValue, i + 1, 99)
                                     i = InStr(sValue, sDtSep)
                                 Wend
                             Case "1" ' 
                                 ' currency remove Thousand separator
                                 i = InStr(sValue, sTwSep)
                                 While i > 0
                                     sValue = Left(sValue, i - 1) +  _ 
                                             Mid(sValue, i + 1, 99)
                                     i = InStr(sValue, sTwSep)
                                 Wend
                         End Select
                         ' Save field
                         iRet = LceSetFieldValue(iSession, sFldName, sValue)
                      Case "W"
                      Case "N"
                         ' nothing to do
                         iRet = LceSetFieldValue(iSession, sFldName, _
                                                        sStrValue)
                 End Select
             End If
         End If
         ' set return code
         LceSetValue = iRet
     End Function