Проблема с LotusScript

(Declaration)
декларация в библиотеке программ
Объявление переменных для работы с SQL- сервером
Public usrtype As Integer
Public keyret As Variant
Public mysource  As String
Public  myuser  As String
Public  mypass  As String
Public con As ODBCConnection
Public qry As ODBCQuery
Public result As ODBCResultSet
Public sqlstring As String
 
Public CurMonth As String
Public CurYear As String
Public CurDay As String
 
Sub Initialize
инициация в библиотеке программ
Set ws = New NotesUIWorkspace
Set session = New NotesSession
Set db = session.CurrentDatabase
 
Установка текущих дня, месяца и года
CurDay = Cstr( Day(Now()) )
CurMonth = Cstr( Month(Now()) )
CurYear = Cstr( Year(Now()) )
 
Установка переменных для соединения с SQL- сервером
mysource = "server"
myuser = "Webuser"
mypass = "webuser"
 
Set con = New ODBCConnection
Set qry = New ODBCQuery
Set result = New ODBCResultSet
Set qry.Connection = con
Set result.Query = qry
 
End Sub
 
Sub Click(Source As Button)
действие (action) на форме, обновляет информация о пользователе, его счете с sql сервера
Dim CurDollarRate As Double
Dim Message  As String
 
If doc.RegNum(0) = 0 Or doc.RegNum(0) = 20000 Then
Message = "Неверный регистрационный номер  - " + Cstr(doc.RegNum(0) )
Messagebox Message, MB_OK + MB_ICONSTOP, "ПРЕДУПРЕЖДЕНИЕ!"
Exit Sub
End If
 
Установка соединения с SQL- сервером
(остальные переменные инициируются при подкл. библ. по Initialize)
keyret = con.ConnectTo( mysource, myuser, mypass)
If Not con.IsConnected Then
Messagebox "Could not connect to  " + mysource + "  for  " + myuser ,,  "No connection"
Exit Sub
End If
 
Call  UserRefresh(doc)  Обновление  текушей карточки пользователя (абонента сети)
 
Разрыв соединения с SQL- сервером
result.Close(DB_CLOSE)
con.Disconnect
 
End Sub
 
Sub  UserRefresh( doc As notesdocument)
функция библиотеки программ
Обновление  карточки абонента
Dim  Message  As String
 
Запрос общих данных пользоавтеля
qry.SQL = "EXEC UserCommonInfo "+ Cstr(doc.RegNum(0))
If Not result.Execute Then
Messagebox result.GetExtendedErrorMessage,, result.GetErrorMessage
Message = "Сбой при запуске процедуры UserCommonInfo для абонента  " + Cstr(doc.RegNum(0))
Messagebox Message, MB_OK + MB_ICONSTOP, "ПРЕДУПРЕЖДЕНИЕ!"
Exit Sub
End If
result.nextrow
 
doc.RegName=result.getvalue("Name")
If doc.RegName(0) = "" Then
Message = "Нет имени абонента или неверный регистрационный номер  - " + Cstr(doc.RegNum(0) )
Messagebox Message, MB_OK + MB_ICONSTOP, "ПРЕДУПРЕЖДЕНИЕ !"
Exit Sub
End If
 
doc.vv = result.getvalue("Money")      Принимается текстовая строка с разделителем "."
doc.vv = Evaluate({ @ReplaceSubstring( vv; "."; "," )  }, doc )   Заменяем  "."  на  ","
If doc.vv(0) = "" Then
doc.Counter = 0.0
Else
doc.Counter = Cdbl( doc.vv(0)  )
End If
 
doc.vv = result.getvalue("Credit")
doc.vv = Evaluate({ @ReplaceSubstring( vv; "."; "," )  }, doc )
If doc.vv(0) = "" Then
doc.Credit = 0.0
Else
doc.Credit = Cdbl( doc.vv(0)  )
End If
 
doc.UserPassword = result.getvalue("Password")
doc.UserIP =  result.getvalue("UserIP")
doc.UserIPCount = Cstr( result.getvalue("UserIPCount") )
doc.PlanID = Cstr( result.getvalue("PlanID") )
doc.UserIPInt = result.getvalue("UserIPInt")
 
If doc.AccountSort(0) <> "1" Then
doc.vv = result.getvalue("Cost")
doc.vv = Evaluate({ @ReplaceSubstring( vv; "."; "," )  }, doc )
If doc.vv(0) = "" Then
doc.Cost = 0.0
Else
doc.Cost = Cdbl( doc.vv(0)  )
End If
End If
doc.vv = result.getvalue("Bond")
doc.vv = Evaluate({ @ReplaceSubstring( vv; "."; "," )  }, doc )
If doc.vv(0) = "" Then
doc.Bond = 0.0
Else
doc.Bond = Cdbl( doc.vv(0)  )
End If
 
doc.UserIPPlanDate = Mid$( result.getvalue("StartDate"), 9, 2 ) + "." +  Mid$( result.getvalue("StartDate"), 6, 2 ) + "." +_
Mid$( result.getvalue("StartDate"), 1, 4 ) + " " + Mid$( result.getvalue("StartDate"), 12, 2 ) + ":" + Mid$( result.getvalue("StartDate"), 15, 2 )
 
usrtype=result.getvalue("Type")
If usrtype=0 Or usrtype=1 Or usrtype=2 Or usrtype=3 Then
doc.UserDisable = "0"          Работа разрешена
Else
doc.UserDisable = "1"
End If
If usrtype=0 Or usrtype=1 Or usrtype=4 Or usrtype=5 Then
doc.RegTraf = "0"              Учет трафика
Else
doc.RegTraf = "1"
End If
If usrtype=0 Or usrtype=2 Or usrtype=4 Or usrtype=6 Then
doc.Disconnect = "0"      Отключение при исчерпании счета и кредита
Else
doc.Disconnect = "1"
End If
 
doc.UserType =  result.getvalue("UserType")
doc.AccountType =  result.getvalue("AccountType")
doc.MACAddress = result.getvalue("MACAddress")
doc.RegDate = result.getvalue("RegDate")
 
doc.Phones = result.getvalue("Phones")
doc.EMail=result.getvalue("EMail")
doc.Fax = result.getvalue("Fax")
doc.FullUserName = result.getvalue("FullUserName")
doc.Post = result.getvalue("Post")
doc.UserNote = result.getvalue("UserNote")
doc.ZIP=result.getvalue("ZIP")
doc.City=result.getvalue("City")
doc.Street=result.getvalue("Street")
doc.Building=result.getvalue("Building")
doc.Room=result.getvalue("Room")
 
Запрос трафика за ноябрь:  ( Форма строки  - EXEC GetUserTrafficM 20103, 2002.11.1 00:00:00, 2002.11.23 00:00:00, mm   )
 
qry.SQL =  "EXEC GetUserTrafficM " + Cstr(doc.RegNum(0) ) + ", " + CurYear + "." + CurMonth + "." + "1" + " 00:00:00, " + CurYear + "." + CurMonth + "." + CurDay + " 00:00:00, mm"
If Not result.Execute Then    выдача запроса о трафике
Messagebox result.GetExtendedErrorMessage,, result.GetErrorMessage
Message = "Сбой при запуске проц. GetUserTrafficM для абонента  " + Cstr(doc.RegNum(0) )
Messagebox Message, MB_OK + MB_ICONSTOP, "ПРЕДУПРЕЖДЕНИЕ !"
Exit Sub
End If
result.nextrow
 
If result.getvalue("Cost") = False Then                       Полная стоимость в у.е.
doc.CostAll = 0.0
Else
doc.CostAll = result.getvalue("Cost")/10000000
End If
 
If result.getvalue("CostInternet") = False Then          Стоимость интернет в у.е.
doc.CostI = 0.0
Else
doc.CostI = result.getvalue("CostInternet")/10000000
End If
 
Просчет  трафика
If result.getvalue("InTrafficInternet") = False Then           Вхд трафик Интернет в Мб
doc.InTrafI = 0.0
Else
doc.InTrafI = result.getvalue("InTrafficInternet")/100
End If
 
If result.getvalue("OutTrafficInternet") = False Then          Исхд трафик Интернет в Мб
doc.OutTrafI = 0.0
Else
doc.OutTrafI = result.getvalue("OutTrafficInternet")/100
End If
 
Запрос 2-х последних Платежей:
 
qry.SQL =  "exec UserPaymentsInfo " + Cstr(doc.RegNum(0) )
If Not result.Execute Then    выдача запроса
Messagebox result.GetExtendedErrorMessage,, result.GetErrorMessage
Message = "Сбой при запуске проц. Exec UserPaymentsInfo для абонента  " + Cstr(doc.RegNum(0) )
Messagebox Message, MB_OK + MB_ICONSTOP, "ПРЕДУПРЕЖДЕНИЕ !"
Exit Sub
End If
 
doc.PName = ""
doc.PDate = ""
doc.PMoney = ""
doc.PNameP = ""
doc.PDateP = ""
doc.PMoneyP = ""
Последний платеж
If Not result.IsResultSetAvailable Then Exit Sub
result.LastRow
 
If result.getvalue("PName") = False Then
doc.PName = ""
Else
doc.PName = result.getvalue("PName")                      Тип платежа
End If
 
If result.getvalue("PDate") = False Then                       Дата платежа
doc.PDate = ""
Else
doc.PDate = Mid$( result.getvalue("PDate"), 9, 2 ) + "." +  Mid$( result.getvalue("PDate"), 6, 2 ) + "." +_
Mid$( result.getvalue("PDate"), 1, 4 ) + " " + Mid$( result.getvalue("PDate"), 12, 2 ) + ":" + Mid$( result.getvalue("PDate"), 15, 2 )
End If
Сумма платежа
doc.vv = result.getvalue("PMoney")      Принимается текстовая строка с разделителем "."
doc.vv = Evaluate({ @ReplaceSubstring( vv; "."; "," )  }, doc )   Заменяем  "."  на  ","
If doc.vv(0) = "" Then
doc.PMoney = ""
Else
doc.PMoney = Cdbl( doc.vv(0)  )
End If
 
Предыдущий платеж
If result.PrevRow Then
If result.getvalue("PName") = False Then
doc.PNameP = ""
Else
doc.PNameP = result.getvalue("PName")       Тип платежа
End If
 
If result.getvalue("PDate") = False Then                       Дата платежа
doc.PDateP = ""
Else
doc.PDateP = Mid$( result.getvalue("PDate"), 9, 2 ) + "." +  Mid$( result.getvalue("PDate"), 6, 2 ) + "." +_
Mid$( result.getvalue("PDate"), 1, 4 ) + " " + Mid$( result.getvalue("PDate"), 12, 2 ) + ":" + Mid$( result.getvalue("PDate"), 15, 2 )
End If
Сумма платежа
doc.vv = result.getvalue("PMoney")      Принимается текстовая строка с разделителем "."
doc.vv = Evaluate({ @ReplaceSubstring( vv; "."; "," )  }, doc )   Заменяем  "."  на  ","
If doc.vv(0) = "" Then
doc.PMoneyP = ""
Else
doc.PMoneyP = Cdbl( doc.vv(0)  )
End If
End If
 
End Sub