Lotus script

    Question by:
    On

    Topics:

    HI;
    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.
    Thanks

    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% '
                Input #fileNum%,NrCrt
                Close 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%
                Write #fileNum%,NewNrCrt
                Close fileNum%
                If Isnull(NewNrCrt) Then
                      Msgbox("Can't generate the registration number ! Please check the path to the file: " & fileName$ )
                End If
                If Source.FieldGetText("Department")="" Then
                      Msgbox "Please enter the required values such as Department and phone number"
                      continue=False
                      Exit Sub
                End If
                Call source.FieldSetText("sRegNo","ITHELP-" & Str$(NewNrCrt)) 'Complete the current number in the form
          End If
    End Sub

     

    Verified Answer?

    The member who asked this question verified this comment provided the solution that solved their problem.

    by:Posted on 2009-10-08 at 04:00:57ID: 25523922

    let this case be open for some time,

    This content is available to Experts Exchange members

    See the answer now
    with your Free 30 Day Trial

    Get unlimited access to solutions & experts

    • 4,169,477 solved questions
    • 3,805 articles & videos
    • 15,413 tech experts

    Get Access Now

    Ask Your Tech Question. Get Expert Solutions.We will email you when an expert has commented on your question.

    We will never share this with anyone. Privacy Policy Terms of Use

    Select topics

    You may select up to five topics.

    Top Expert Contributor

    Essential articles and videos from the Experts

    More valuable questions with Expert answers

    201508-LO-Qu-072

    RELATED TOPICS view all topics

    1. Exchange
      (193,017)
    2. Email Clients
      (17,699)
    3. MS Excel
      (123,146)
    4. Outlook
      (92,301)
    5. Email Servers
      (22,592)
    6. Blackberry Hardware
      (7,595)
    7. Email Protocols
      (13,575)
    8. MS Access
      (212,567)
    9. Visual Basic Classic
      (162,163)
    10. Databases
      (52,098)