Posted on 2009-05-06
I have a Helpdesk DB when a case is raised a case number is assigned automatically from a network file. I have not found any way to make it auto via script only. Now some times when network is slow or due to time out the auto number is not picked when a new case is raised.I want either the field be made in such way that it has to wait unless the number is picked or to be automated via lotus script so i may not need the network file. I have pasted the script here. Please help.
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim fileNum As Integer
Dim fileName As String
Dim NrCrt As Long
Dim NewNrCrt As Long
fileNum% = Freefile()
fileName$ = "\\server\uniqueNo\SRegNo.txt" 'This is the path to the file that keeps the current number
'If is new doc assign a new number
If source.IsNewDoc Then
'Open for reading the file, read the value then close the file
Open fileName$ For Input Lock Read Write As fileNum% '
NewNrCrt=NrCrt+1 'Increment the value
'Open for writing the file, write the value then close the file
Open fileName$ For Output Lock Read Write As fileNum%
If Isnull(NewNrCrt) Then
Msgbox("Can't generate the registration number ! Please check the path to the file: " & fileName$ )
If Source.FieldGetText("Department")="" Then
Msgbox "Please enter the required values such as Department and phone number"
Call source.FieldSetText("sRegNo","ITHELP-" & Str$(NewNrCrt)) 'Complete the current number in the form