Macro for the Purchase receipt entry window

Has anyone created an onSave macro that will prompt the user to enter a product code before it will alow them to save?

we have had issues with CO's entered with no product codes and would like to be able to disallow saving of the CO if the field is empty.

Any help, a push in the right direction would be appreciated.

Thanks,

Find more posts tagged with

VISUAL - Enterprise General Discussions

Comments

unknown

Not sure what the field name is, but this might work. I use a similar macro to this to force the entry of a Market ID when setting up a customer.

message = ""

If len(PRODUCT_CODE) = 0 then

message = message & "Please enter a Product Code"

End if

If message <> "" then

MACRO_MESSAGE = message

MACRO_SUCCESS = FALSE

End If

tritland

I fumbled my way through and came up with the following, seems to be working so far.

What do you think of the code?

Set OrderLns = LINES.Value

For i = 0 to OrderLns.Count -1

Set OrderLn = OrderLns(i)

sOrderLn = OrderLn("LINE_NO")

If OrderLn("PRODUCT_CODE")="" Then

MsgBox("PRODUCT CODE is blank on line " & sOrderLn & ". Save not allowed.")

MACRO_SUCCESS = FALSE

MACRO_MESSAGE = "Not Saved"

End If

Next

Set OrderLn = Nothing

Set OrderLns = Nothing

Copyright © 2025 Infor. All rights reserved.