Script advance to next line

Question

Hello, 
 Below is a simple script for SO invoice data entry that default the qty shipped to one which has been working fine for a few months. 
 'Script to set order and shipped quantity to 1 in SO Invoice Data Entry 
 
 DfltOrderQty=1 ItemType = "" 
 if oSession.CompanyCode = "MWR" or oSession.CompanyCode = "ZKR" then 
 
 retVal = oBusObj.GetValue("ItemType$",ItemType) 
 
 If ItemType="1" or ItemType = "5" then 
 
 retVal = oBusObj.SetValue("QuantityOrdered",DfltOrderQty) 'retVal = oBusObj.SetValue("QuantityShipped",DfltOrderQty) 
 End If 
 
 End If 'at end of code for company restriction 
 
 Client now wants to be able to scan the item number, set the quantity to one and advance to the next line. I experimented with MoveLast, MoveNext. 
 Is there a method available to do this? 
 Thanks in advance for any assistance.

ggraham · Accepted Answer

Thanks for the super-quick response. Discovered the problem. Still had some lines from the original script firing in the company I am using for testing. Your original addendum to my script appears to work without the last modification. 
 Have a good holiday.

David Speck · Answer

Something like the following after your SetValue should do the trick however it has not been tested extensively or used in a production environment, merely me tinkering with it. I found that calling GoToCell traditionally did not yield the results you are after because of the order that sage 100 processes the event scripts followed by its own additional logic. This script was placed on the ItemCode Post-Validate event on version 2018 and it appeared to save off each row correctly. If on a prior version that doesn't allow Post-Validate on the ItemCode then a table post read while checking that EditState is 2 should do the trick. 
 
 If oScript.UIObj > 0 Then CMD_STR = "" : oSession.AsObject(oScript.UIObj).GetValue "CMD_STR$", CMD_STR Select Case True Case UCase(Left(CMD_STR, 1)) = UCase("P") CMD_STR = "X PERFORM" & Mid(CMD_STR, 2) & "; " Case UCase(Left(CMD_STR, 1)) = UCase("X") CMD_STR = CMD_STR & "; " Case Else CMD_STR = "X " End Select CMD_STR = CMD_STR & "IF GD_Lines.CTL>0 THEN _obj'GoToCell(GD_Lines.CTL,GD_Lines.CTL'CurrentRow+1,""ItemCode$"") END_IF" oSession.AsObject(oScript.UIObj).SetVar "CMD_STR$", CMD_STR End If 
 
 You may however want to put in more stringent checks to make sure this behavior only occurs when desired. 
 For example, if there is ever a case where the user doesn't want to go to the next line automatically, then you could put a check box UDF on the header and added it to the Lines tab. Call it something like "Enable Scan Each". Then check the value of the UDF in your script in addition to the company code and if everything meets your criteria, then proceed to set the quantity and go to the next line. 
 What the script is doing is using the UI Object accessible by the oScript.UIObj property to get the value of the CMD_STR$ variable that is local to the UI object. If there is valid ProvideX code in the CMD_STR$, it is processed after whatever is currently processing. 
 The Select Case structure is just erring on the side of caution to not overwrite any code that might be in it already and checks the first character. 
 If a P, then the code is being PERFORM'ed and the string needs to be tweak to be EXECUTE'd 
 If an X, then the code is being EXECUTE'd 
 If empty, the we need the code to be EXECUTE'd 
 Each of the above scenarios changes the prefix that is prepended to the CMD_STR$ which will ultimately have the code appended that moves to the next row in the grid using the GoToCell method.

Sage 100

Script advance to next line

Top Replies

COMMUNITY

COMPANY

PARTNERS

SUPPORT & TRAINING