That looks good.
From: [email protected] [mailto:[email protected]] Sent: Thursday, August 06, 2009 12:39 PM To: [email protected] Subject: [talkbws] RE: Looping Steps OK, Thanks again. Here is what I did based on your previous email. Please advice if this is correct . Both are in the same Script Module as seperate Subs. thanks again for your assistance. This determines the Count. ------------------------------------------------------------ Sub GetInventoryUnitCount(ByVal sStartingRow As String) 'Given a starting row the script will walk thru each row until the end and returns a count of those rows. 'This function is used where there are multiple inventories for a given BBK Unit. 'We need to get the number of entries and download the report for each Inventory Unit. ' Dim RowCount As Integer Dim Y As Integer Dim bHasValue As Boolean RowCount = 0 MsgBox sStartingRow For Y = sStartingRow To 10000 bHasValue = View(Row:=Y, Col:=1, Length:=5) If bHasValue Then RowCount = RowCount + 1 Else Exit For End If Next Y GetInventoryUnitCount = RowCount End Sub ------------------------------------------------------------------------------ This does the Screen entries in a loop. Sub DownLoadReportsForThisUnitList(ByVal count As Integer) For i = 0 To count - 1 If Rule("Print b...@1,1&@4,10") Then Enter D("1") '1717260 End If If Rule("Print on:@1,1&@3,1") Then Enter "DOWNLOAD" End If If Rule("choi...@1,1&@3,57") Then Enter "" End If If Rule("Save a...@1,1&@43,35") Then Enter F("DownLoadPath") & "\" & D("1") & "_" & i & ".txt" End If If Rule("mess...@1,1&@14,12") Then Enter "" End If Next End Sub ----------------------------------------------------------------------------------------------- Ranjit M Bendapudi Meditech Service Center CSC 5209 Linbar Dr., Nashville, TN 37211 P: +1-615.662-7775 |direct: +1- 615.493.9070 |[email protected] | www.csc.com This is a PRIVATE message. If you are not the intended recipient, please delete without copying and kindly advise us by e-mail of the mistake in delivery. NOTE: Regardless of content, this e-mail shall not operate to bind CSC to any order or other contract unless pursuant to explicit written agreement or government initiative expressly permitting the use of e-mail for such purpose. [email protected] 08/06/2009 02:27 PM Please respond to [email protected] To [email protected] cc Subject [talkbws] RE: Looping Steps I am not sure if you are using a module or class modules, but this is what I would try first… Public Sub intLoopCount as Integer Public Sub DetermineLoopCnt() Dim intResult ‘You would enter your code here to determine the number of loops needed here and assign it to a variable. intResult = What your code determines. intLoopCount = intResult End Sub Public Sub DoScreenActions(ByVal LoopCount as Integer) Dim J as Integer J = 0 For J = 0 to LoopCount ‘Enter your code for going through the screens here Next End Sub So in the actions of your rule within the step I would call DetermineLoopCnt first and then would go to the next line and run DoScreenActions(intLoopCount) right after. Garrett From: [email protected] [mailto:[email protected]] Sent: Thursday, August 06, 2009 12:13 PM To: [email protected] Subject: [talkbws] RE: Looping Steps Thanks for the reply. Yes, I do have a sub routine. Right now the sub routine determines the number of times to loop. Once I have that value(say 5), I have to do a set of actions(entering data into Meditech screen) 5 times. I am entering say, the same screens 5 times. So I created a Step to do this one time and I want to repeat the same 5 times. When you meant 'actions' can I put all the Rules in my Sub Routine? can you pls be a little specific?? thank you Ranjit M Bendapudi Meditech Service Center CSC 5209 Linbar Dr., Nashville, TN 37211 P: +1-615.662-7775 |direct: +1- 615.493.9070 |[email protected] | www.csc.com This is a PRIVATE message. If you are not the intended recipient, please delete without copying and kindly advise us by e-mail of the mistake in delivery. NOTE: Regardless of content, this e-mail shall not operate to bind CSC to any order or other contract unless pursuant to explicit written agreement or government initiative expressly permitting the use of e-mail for such purpose. [email protected] 08/06/2009 01:57 PM Please respond to [email protected] To [email protected] cc Subject [talkbws] RE: Looping Steps What about creating a Sub Procedure? There you can surround your actions with either a For...Next Loop or a Do...Until Loop and then all you have to do is call your procedure in the step that you need it in. Garrett S. O'Sullivan Project Assistant Regional Business Office 1235 NE 47th Avenue, Suite 110 Portland, Oregon 97213 Phone: 503.215.4462 Fax: 503.215.4343 Pager: 503.920.4560 [email protected] From: [email protected] [mailto:[email protected]] Sent: Thursday, August 06, 2009 11:55 AM To: [email protected] Subject: [talkbws] Looping Steps Hello all, Is there a way Loop a step? I am trying to do a set of actions in a Step. And this step has to be done 'n' times before it goes to next setp or record. For i=0 to 5 Step="Key Resources" next i thanks in advance. Ranjit M Bendapudi Meditech Service Center CSC 5209 Linbar Dr., Nashville, TN 37211 P: +1-615.662-7775 |direct: +1- 615.493.9070 |[email protected] | www.csc.com This is a PRIVATE message. If you are not the intended recipient, please delete without copying and kindly advise us by e-mail of the mistake in delivery. NOTE: Regardless of content, this e-mail shall not operate to bind CSC to any order or other contract unless pursuant to explicit written agreement or government initiative expressly permitting the use of e-mail for such purpose. --- To post a message to this list, send mail to: [email protected] You are currently subscribed as: [email protected] Unsubscribe in the customer center on our website: http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx DISCLAIMER: This message is intended for the sole use of the addressee, and may contain information that is privileged, confidential and exempt from disclosure under applicable law. If you are not the addressee you are hereby notified that you may not use, copy, disclose, or distribute to anyone the message or any information contained in the message. If you have received this message in error, please immediately advise the sender by reply email and delete this message. --- To post a message to this list, send mail to: [email protected] You are currently subscribed as: [email protected] Unsubscribe in the customer center on our website: http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx --- To post a message to this list, send mail to: [email protected] You are currently subscribed as: [email protected] Unsubscribe in the customer center on our website: http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx DISCLAIMER: This message is intended for the sole use of the addressee, and may contain information that is privileged, confidential and exempt from disclosure under applicable law. If you are not the addressee you are hereby notified that you may not use, copy, disclose, or distribute to anyone the message or any information contained in the message. If you have received this message in error, please immediately advise the sender by reply email and delete this message. --- To post a message to this list, send mail to: [email protected] You are currently subscribed as: [email protected] Unsubscribe in the customer center on our website: http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx NzbujuzRnrqzyârrqzjzj DISCLAIMER: This message is intended for the sole use of the addressee, and may contain information that is privileged, confidential and exempt from disclosure under applicable law. If you are not the addressee you are hereby notified that you may not use, copy, disclose, or distribute to anyone the message or any information contained in the message. If you have received this message in error, please immediately advise the sender by reply email and delete this message. --- To post a message to this list, send mail to: [email protected] You are currently subscribed as: [email protected] Unsubscribe in the customer center on our website: http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx
