External Link VBScript to Update Bitmap of Button that Called it

Question

I created a button that runs a simple VBScript that checks if a customer is set up on paperless or not. The problem is that while I am modestly proficient at VBS, I don't know anything about the Sage Object model. 
 I first attempted to have the script display a MsgBox , but received an Access Denied error when I attempted to run it. So now I am wanting to try something else (which would be better anyways as the user will not have to close a dialog box when the script runs). Once the script determines a True/False value, I am wanting to add a bitmap to that same button that called the script. For example: 
 
 If the result is True , then I want to update the button with the "Checkmark" bitmap 
 If the result if False , then I want it to update the button with the "Delete" bitmap: 
 
 The name of the button/link is BT_LINK_1 . I am just wanting to know the proper syntax to update the button's Bitmap selection from within the script. This is my pseudocode for further illustration: 
 If RetVal Then 
 BT_LINK_1.Bitmap = "Checkmark" 
 Else 
 BT_LINK_1.Bitmap = "Delete" 
 End If

David Speck · Accepted Answer

Since this is a button script, you can use the following. oUIObj.SetControlProperty "control name", "Text$", "{!bitmap name}Text" Here is what my sample looks like by default. And this is after using the above code but with the control name being BT_Link_1 and the last argument being {!Checkmark}Link 1. This does not modify the library, it just modifies the control on the fly. Get your control name and bitmap name to use by editing the control. You can position the bitmap on the left or right of your text by changing its position in the string passed as the third argument. In the above example, the bitmap is on the left. The bitmap name you get from customizer should be prefixed with "{!" and it should have the "}" suffix, then place your button text before or after it. EDIT: Just for fun, here are three different routes for a button script set to execute on the server that I tested in Item Maintenance with. The value in the nMode variable determines the route taken. The first one uses InStr and Replace to toggle the bitmaps, this was more about testing being able to toggle between two different bitmaps. The second one checks if the current item code is equal to "1001-HON-252" and depending on the boolean result which gets converted to an integer and then multiplied by -1 so the evaluation should always return 0 if false or 1 if true. The result is used to get a value from the array by using it to reference the array's index. So your bitmap for false should be the first element in the array and the bitmap for true should be the second element in the array. The third one is very similar to the second except it doesn't use an array and just uses CBool on the nRetVal variable to branch into setting the value in the sBitmap variable to one value if true and another if false. nMode = 3 Select Case nMode Case 1 sCurrentControlName = "" : sCurrentControlName = MAS_SCR_OBJ If sCurrentControlName <> "" Then sCurrentControlText = "" : oUIObj.GetControlProperty sCurrentControlName, "Text$", sCurrentControlText If sCurrentControlText <> "" Then Select Case True Case InStr(UCase(sCurrentControlText), UCase("Checkmark")) > 0 sCurrentControlText = Replace(sCurrentControlText, "Checkmark", "Delete") Case InStr(UCase(sCurrentControlText), UCase("Delete")) > 0 sCurrentControlText = Replace(sCurrentControlText, "Delete", "Checkmark") End Select oUIObj.SetControlProperty sCurrentControlName, "Text$", sCurrentControlText End If End If Case 2 aBitmaps = Array("Delete", "Checkmark") sCurrentControlName = "" : sCurrentControlName = MAS_SCR_OBJ If sCurrentControlName <> "" Then sCurrentControlText = "" : oUIObj.GetControlProperty sCurrentControlName, "Text$", sCurrentControlText If sCurrentControlText <> "" Then If InStr(sCurrentControlText, "{!") > 0 And InStr(sCurrentControlText, "}") > 0 Then If Left(sCurrentControlText, 2) = "{!" Then sCurrentControlText = "{!}" & Mid(sCurrentControlText, InStr(sCurrentControlText, "}") + 1, Len(sCurrentControlText)) Else sCurrentControlText = Left(sCurrentControlText, InStr(sCurrentControlText, "{!") - 1) & "{!}" End If End If End If sItemCode = "" : oBusObj.GetValue "ItemCode$", sItemCode nRetVal = UCase(sItemCode) = UCase("1001-HON-H252") sCurrentControlText = Replace(sCurrentControlText, "{!}", "{!" & aBitmaps(CInt(nRetVal) * -1) & "}") oUIObj.SetControlProperty sCurrentControlName, "Text$", sCurrentControlText End If If IsArray(aBitmaps) Then Erase aBitmaps Case 3 sCurrentControlName = "" : sCurrentControlName = MAS_SCR_OBJ If sCurrentControlName <> "" Then sCurrentControlText = "" : oUIObj.GetControlProperty sCurrentControlName, "Text$", sCurrentControlText If sCurrentControlText <> "" Then If InStr(sCurrentControlText, "{!") > 0 And InStr(sCurrentControlText, "}") > 0 Then If Left(sCurrentControlText, 2) = "{!" Then sCurrentControlText = "{!}" & Mid(sCurrentControlText, InStr(sCurrentControlText, "}") + 1, Len(sCurrentControlText)) Else sCurrentControlText = Left(sCurrentControlText, InStr(sCurrentControlText, "{!") - 1) & "{!}" End If End If End If sItemCode = "" : oBusObj.GetValue "ItemCode$", sItemCode nRetVal = UCase(sItemCode) = UCase("1001-HON-H252") sBitmap = "" If CBool(nRetVal) Then sBitmap = "Checkmark" Else sBitmap = "Delete" End If sCurrentControlText = Replace(sCurrentControlText, "{!}", "{!" & sBitmap & "}") oUIObj.SetControlProperty sCurrentControlName, "Text$", sCurrentControlText End If End Select Because it is a button script, it is able to use the MAS_SCR_OBJ variable to determine the control name that gets passed to GetControlProperty and SetControlProperty. Now I don't where you intend to put this button script, I'm guessing either Customer Maintenance, Sales Order Entry, or SO Invoice Data Entry but you could instead use a table event script, i.e. post read on AR_Customer filtered to the correct library using the script object's uUI object's GetScreenName method, or you could have it on the post validate event on the CustomerNo column on SO_SalesOrderHeader and/or SO_InvoiceHeader. This would allow you to bypass the need for the user to click the button. You would just need to know the control name. So in Customer Maintenance, you could add a custom button that is locked and doesn't actually do anything and place it somewhere with or without text, then whenever a customer record is selected, you could toggle the bitmap of the button.

Kevin M · Answer

Pop-up will be much easier. Changing UI elements dynamically is always hard to get working properly. 
 VBScript's MsgBox won't work with client / server versions of Sage 100, so there is a MessageBox method to use which solves that problem: 
 retVal = oSession.AsObject(oSession.UI).MessageBox("", sStringVarWithWhatYouWantToSay)

Sage 100

External Link VBScript to Update Bitmap of Button that Called it

Top Replies

COMMUNITY

COMPANY

PARTNERS

SUPPORT & TRAINING