LotusScript Help - Execute Multiple IF's Statements

hcl-bot · May 28, 2003, 7:11am

Having Problems Executing multiple IF’s Statments. The code is setup to create a response doc for every instantace. Like: If L1 = “Fab Ops” And W1 <> “” Then it would create a response doc and them move on to the next If L1 = “Fab Ops” And W2 <> “” Then

it would create a response doc and them move on to the next until I specify it was done.

Here is the code:

Sub Click(Source As Button)

Dim s As New notessession

Dim db As notesdatabase

Dim uidoc As NotesUIDocument

Dim uiws As New notesuiworkspace

Dim mainDoc As notesdocument

Dim responseDoc As notesdocument

Dim i As Integer

Dim L1 As String

Dim L2 As String

Dim L3 As String

Dim L4 As String

Dim L5 As String

Dim L6 As String

Dim L7 As String

Dim W1 As String

Dim W2 As String

Dim W3 As String

Dim W4 As String

Dim W5 As String

Dim W6 As String

Dim W7 As String

Dim W8 As String

Dim W9 As String

Dim W10 As String

Dim W11 As String

Dim W12 As String

Dim W13 As String

Dim W14 As String

Dim W15 As String

Set uidoc = uiws.CurrentDocument

Set db = s.currentdatabase

Set responseDoc = db.createdocument

Set mainDoc = uiws.currentdocument.document

L1 = uidoc.FieldGetText("Lab1")

L2 = uidoc.FieldGetText("Lab2")

L3 = uidoc.FieldGetText("Lab3")

L4 = uidoc.FieldGetText("Lab4")

L5 = uidoc.FieldGetText("Lab5")

L6 = uidoc.FieldGetText("Lab6")

L7 = uidoc.FieldGetText("Lab7")



W1 = uidoc.FieldGetText("Week1")

W2 = uidoc.FieldGetText("Week2")

W3 = uidoc.FieldGetText("Week3")

W4 = uidoc.FieldGetText("Week4")

W5 = uidoc.FieldGetText("Week5")

W6 = uidoc.FieldGetText("Week6")

W7 = uidoc.FieldGetText("Week7")

W8 = uidoc.FieldGetText("Week8")

W9 = uidoc.FieldGetText("Week9")

W10 = uidoc.FieldGetText("Week10")

W11 = uidoc.FieldGetText("Week11")

W12 = uidoc.FieldGetText("Week12")

W13 = uidoc.FieldGetText("Week13")

W14 = uidoc.FieldGetText("Week14")

W15 = uidoc.FieldGetText("Week15")



If L1 = "Fab Ops" And W1 <> "" Then  

	Call responseDoc.makeresponse(mainDoc)

	responseDoc.form = "FO"

	responseDoc.Week = "W1"

	Call responseDoc.save(True,True) 

	

	

	If L1 = "Fab Ops" And W2 <> "" Then  

		Call responseDoc.makeresponse(mainDoc)

		responseDoc.form = "FO"

		responseDoc.Week = "W2"

		Call responseDoc.save(True,True) 

	End If	

End If

End Sub

Please post full code still a newbie at LotusScript. - Thanks

hcl-bot · May 28, 2003, 12:11pm

Subject: Problem is that it is the same doc you are just re-saving. Try:

If L1 = "Fab Ops" And W1 <> "" Then  		Call responseDoc.makeresponse(mainDoc)

	responseDoc.form = "FO"

	responseDoc.Week = "W1"

	Call responseDoc.save(True,True) 

	

	

	If L1 = "Fab Ops" And W2 <> "" Then

		Set responseDoc = db.CreateDocument

		Call responseDoc.makeresponse(mainDoc)

		responseDoc.form = "FO"

		responseDoc.Week = "W2"

		Call responseDoc.save(True,True) 

	End If	

End If

hcl-bot · May 28, 2003, 8:51am

Subject: LotusScript Help - Execute Multiple IF’s Statements

Your ifs are fine, you’re not recreating the document which becomes a response.

Sub Click(Source As Button)

Dim s As New notessession

Dim db As notesdatabase

Dim uidoc As NotesUIDocument

Dim uiws As New notesuiworkspace

Dim mainDoc As notesdocument

Dim responseDoc As notesdocument

Dim i As Integer

Dim L1 As String

Dim L2 As String

Dim L3 As String

Dim L4 As String

Dim L5 As String

Dim L6 As String

Dim L7 As String

Dim W1 As String

Dim W2 As String

Dim W3 As String

Dim W4 As String

Dim W5 As String

Dim W6 As String

Dim W7 As String

Dim W8 As String

Dim W9 As String

Dim W10 As String

Dim W11 As String

Dim W12 As String

Dim W13 As String

Dim W14 As String

Dim W15 As String

Set uidoc = uiws.CurrentDocument

Set db = s.currentdatabase

'Set responseDoc = db.createdocument

Set mainDoc = uiws.currentdocument.document

L1 = uidoc.FieldGetText(“Lab1”)

L2 = uidoc.FieldGetText(“Lab2”)

L3 = uidoc.FieldGetText(“Lab3”)

L4 = uidoc.FieldGetText(“Lab4”)

L5 = uidoc.FieldGetText(“Lab5”)

L6 = uidoc.FieldGetText(“Lab6”)

L7 = uidoc.FieldGetText(“Lab7”)

W1 = uidoc.FieldGetText(“Week1”)

W2 = uidoc.FieldGetText(“Week2”)

W3 = uidoc.FieldGetText(“Week3”)

W4 = uidoc.FieldGetText(“Week4”)

W5 = uidoc.FieldGetText(“Week5”)

W6 = uidoc.FieldGetText(“Week6”)

W7 = uidoc.FieldGetText(“Week7”)

W8 = uidoc.FieldGetText(“Week8”)

W9 = uidoc.FieldGetText(“Week9”)

W10 = uidoc.FieldGetText(“Week10”)

W11 = uidoc.FieldGetText(“Week11”)

W12 = uidoc.FieldGetText(“Week12”)

W13 = uidoc.FieldGetText(“Week13”)

W14 = uidoc.FieldGetText(“Week14”)

W15 = uidoc.FieldGetText(“Week15”)

'If L1 = “Fab Ops” And W1 <> “” Then

'Call responseDoc.makeresponse(mainDoc)

'responseDoc.form = “FO”

'responseDoc.Week = “W1”

'Call responseDoc.save(True,True)

'If L1 = “Fab Ops” And W2 <> “” Then

'Call responseDoc.makeresponse(mainDoc)

'responseDoc.form = “FO”

'responseDoc.Week = “W2”

'Call responseDoc.save(True,True)

'End If

if L1 = “Fab Ops” then

if len(W1)>0 then

Set responseDoc = db.createdocument

Call responseDoc.makeresponse(mainDoc)

responseDoc.form = “FO”

responseDoc.Week = “W2”

Call responseDoc.save(True,True)

end if

if len(w2)>0 then

Set responseDoc = db.createdocument

Call responseDoc.makeresponse(mainDoc)

responseDoc.form = “FO”

responseDoc.Week = “W2”

Call responseDoc.save(True,True)

end if

'and on and on…

end if

End Sub

hcl-bot · May 28, 2003, 7:52am

Subject: LotusScript Help - Execute Multiple IF’s Statements

Try

If L1 = “Fab Ops” And W1 <> “” Then

Call responseDoc.makeresponse(mainDoc)

responseDoc.form = “FO”

responseDoc.Week = “W1”

Call responseDoc.save(True,True)

elseIf L1 = “Fab Ops” And W2 <> “” Then

Call responseDoc.makeresponse(mainDoc)

responseDoc.form = “FO”

responseDoc.Week = “W2”

Call responseDoc.save(True,True)

End If

hcl-bot · May 28, 2003, 7:54am

Subject: RE: LotusScript Help - Execute Multiple IF’s Statements

This works for one document. I need it to work on multiple. This should create 2 documents. I hope to contiune with the if statements until I specify.