Pick Confirmation > Sum QtyAvailable and QtyPick fields

On the Pick Confirmation form, I do not want our Shipping Department to be able to confirm the pick if the Quantity Available is less than the Qty Picked. I am attempting to use a variable and Form Script for this. Here is the script I have written - that is not working. Any guidance the group can provide would be appreciated:

Sub AvailQty()

Dim i As Integer
Dim oCache As LoadCollectionResponseData
Dim NumRecs As Integer
Dim SumQty As Decimal
Dim iFilter As String
Dim oCache3 As IWSIDOCollection

oCache3 = ThisForm.GetSecondaryIDOCollection(2)
iFilter = "PickListId = '" + ThisForm.Variables("PicklistVar").Value + "'"
oCache = IDOClient.LoadCollection("SLPickListLocs", "PickListId, QtyPicked", iFilter, "", 0)
NumRecs = oCache.Items.Count

For i = 0 To NumRecs - 1
SumQty = SumQty + oCache(i, "QtyPicked").GetValue(Of Decimal)()

Next

ThisForm.Variables("vQtyAvail").Value = SumQty.ToSTring

End Sub

Find more posts tagged with

Syteline Development

Accepted answers

Legacy Contributor

For anyone wanting to do this, I took a different approach. Since I only really care if at least one line item on the Pick List meets the criteria, I created a variable to hold a value and then a form script function that executed on the stdObjectSelectCurrentComplete event. I then have a Prompt event that displays an error message if my variable equals "N". Below is the function:

Function AvailQty() As Integer

Dim oCache3 As IWSIDOCollection
Dim v As Integer

oCache3 = ThisForm.GetSecondaryIDOCollection(2)

            AvailQty = 0
            ThisForm.Variables("varFullAvailable").Value = "Y"
            For v = 0 To oCache3.GetNumEntries - 1
                If oCache3(v)("DerQtyAvailable").GetValue(Of Decimal)() < oCache3(v)("QtyPick").GetValue(Of Decimal)() Then
                    ThisForm.Variables("varFullAvailable").Value = "N"
                    AvailQty = -1
                    Exit Function
                End If
            Next
            oCache3 = Nothing

End Function

0904080939293831.xls

All comments

Legacy Contributor

Function AvailQty() As Integer

Dim oCache3 As IWSIDOCollection
Dim v As Integer

oCache3 = ThisForm.GetSecondaryIDOCollection(2)

End Function

0904080939293831.xls

mtolliver

This is great, I need to do something similar on our Ship Confirmation form as the On Hand Neg checkbox doesn't actually work with the intended Pick, Pack, Ship process described by Infor. It creates a fictitious qty in the SHIP location and makes our STOCK location negative and since the Ship Confirmation only looks at the SHIP location it allows it to ship. So I want to do a customization to prevent the Ship Confirmation. Or possibly even just prevent the status on the Shipment master from changing to Ready to Ship which would accomplish the same thing.

So my question is - what value is the DerQtyAvailable on this form script? Is this on the Pick Confirmation form that you added this? Do you know how to grab the Warehouse or Item On Hand qty in place of the Qty available?

Copyright © 2025 Infor. All rights reserved.