CSI - Syteline: On Customer Orders form, CustNumChanged event add Pop UP Message with Special Instru

We have a variety of customers that we have "special instructions" for when placing an order. I have previously set these to show in a pop-up message box when the Customer Number is entered. I am trying, however, to not have to program each of these individually, so I have added a new tab to the Customers form with a UET field for Special Instructions. My goal is that when the corresponding Customer Number is entered in a Customer Order, a pop-up message will show with whatever was entered in the UET field. I have successfully extended the IDO for Customer Orders and bound the UET field to a property. My problem is getting the Uf_jcm_CusSpecInst value when the Customer Number is entered on the Customer Orders form. When I run diagnostic, the variable value is blank and only shows when the form is saved. Here is an example of form script that I have attached to the CustNumChanged event and where I have it set on Enable Components to set the Variable:

Sub CheckForSpecInst()

            Dim MsgTitle As String
            Dim MsgPrompt As String
            Dim SpecInst As String

MsgTitle = "Special Instructions"
SpecInst = ThisForm.Variables("vCusSpecInst").Value

            If ThisForm.PrimaryIDOCollection.GetCurrentObjectProperty("CustNum") = "SUF0100" Then
                MsgPrompt = SpecInst
                MsgBox(MsgPrompt, MsgBoxStyle.OkOnly, MsgTitle)

End If
End Sub

        Function EnableComponents() As Integer
            Dim PriCache As IWSIDOCollection
            Dim bSetEnabled As Boolean
            Dim bBlanket As Boolean
            Dim bLineExists As Boolean

            Dim CoNum As String
            Dim CustNum As String
            Dim UseExchRate As String
            Dim CustomerUseExchRate As String
            Dim bInvoiced As Boolean

            Dim SpecInst As String

Dim bOrigSite As Boolean

            EnableComponents = 0
            On Error GoTo ErrorHandler
            PriCache = ThisForm.PrimaryIDOCollection
            'Set bOrigSite
            If PriCache.GetCurrentObjectProperty("OrigSite") <> "" And _
               Application.Variables("Parm_Site").Value <> "" And _
               (Not String.Equals(PriCache.GetCurrentObjectProperty("OrigSite"), _
                Application.Variables("Parm_Site").Value, StringComparison.OrdinalIgnoreCase)) Then
                bOrigSite = False
            Else
                bOrigSite = True
            End If

            ' Only originating sites can change the status.
            If Not PriCache.IsCurrentObjectNew Then
                bSetEnabled = bOrigSite
            Else
                bSetEnabled = True
            End If
            ThisForm.Components("StatEdit").Enabled = bSetEnabled
            ThisForm.Components("StatGridCol").Enabled = bSetEnabled

'I believe there's no need to check for new record here
'Get special enable flags

            CoNum = PriCache.GetCurrentObjectProperty("CoNum")
            CustNum = PriCache.GetCurrentObjectProperty("CustNum")
            UseExchRate = PriCache.GetCurrentObjectProperty("UseExchRate")
            CustomerUseExchRate = PriCache.GetCurrentObjectProperty("CusUseExchRate")

            SpecInst = PriCache.GetCurrentObjectProperty("Uf_jcm_CusSpecInst")

            ThisForm.Variables("vCoNum").Value = CoNum
            ThisForm.Variables("vCustNum").Value = CustNum
            ThisForm.Variables("vUseExchRate").Value = UseExchRate
            ' Initial values for the flags taken from the GetCoCompEnableFlagsSp code.
            ThisForm.Variables("vEdiOrder").Value = "0"
            ThisForm.Variables("vLcrRequired").Value = "0"
            ThisForm.Variables("vEnableOrderType").Value = "1"
            ThisForm.Variables("vEnableConsolidate").Value = "1"
            ThisForm.Variables("vEnableEffExpDate").Value = "1"

            ThisForm.Variables("vCusSpecInst").Value = SpecInst

Find more posts tagged with

Accepted answers

All comments

Legacy Contributor

Just correct me if I am wrong:

1. You have added UET Uf_jcm_CusSpecInst to Customers table.

2. You have extended SLCustomerOrders and added the property Uf_jcm_CusSpecInst, that is coming from Customers table.

If you have done these two steps correctly, then on Customer Orders form, just drag and drop a static/textbox and bind it to your extended field. (You will see a field like couf_jcm_CusSpecInst). no need to modify anything in the script.

Do let me know if the problem is not solved.

Shuaib Nazir

www.csiYourWay.com

Your Business - customized - Your Way

Legacy Contributor

I am already able to add the property to a static field and have it show when the form is saved BUT this is not what I am wanting to do. I am wanting it to show the field when the Customer Number is entered (when the CustNumChanged event is fired).

Legacy Contributor

How about following approach:

1. Create a stored procedure xxx_GetCusSpecInstSp that has two parameters, custnum that you will pass and SpecInst of type output.

2. Create EventHandler to call this SP and store SpecInst in a variable

3. Create a Form Script Sub (xxx_ShowSpecInst) that will call the eventhandler from previous step and then display the variable value through Application.ShowMessage()

4. Add Form Script event at the bottom of CustNumChanged event handler.

I have this approach working at few places, so will be able to provide specific details.

Shuaib Nazir

www.csiYourWay.com

Your Business - customized - Your Way

Legacy Contributor

I should have mentioned that I am an Infor SaaS customer so I do not have the ability to create a Stored Procedure.

Legacy Contributor

I believe the best and easiest NO CODE way to do this is with a validator.

1. In the Customer Number combo add the SpecInst property. You don't have to display the property just make it available in the list cache

2. Add a validator to the customer number combo.

3. Create a new validator. GetCustSpecInst

4. Validator Type is In List Cache

5. Use the SetVar selection and then set the form variable you wish to set to the SpecInst property. vSpecialInstructions=SpecInst

6. Attach the validator to Customer combo and make sure the validate immediately is set to true.

7. Add an edit on the form to hold the variable value. You can then set an on data change event on this edit to then display the variable value in a msgbox or just display it in the edit.

This is a no code solution to display information. You could also use an in collection validator to find the information based on the selected Customer number, or use the collection keyword to look up the value or use derived values on the IDO. All without deep code.

Hope this helps.

Paul

Legacy Contributor

Hello Shuaib Nazir Can you please send me your mail id

Copyright © 2025 Infor. All rights reserved.