Problems with RetVal

[alfons...@msn.com]

I made an Customization in the screen 40.100.00 Sales Orders , my
intention is not to allow save an order when the customer purchase
order is "PATITO"

This is my code:

Sub Update(level%, insertflg%, retval%)Dim vlcCustOrdNbr$

If level = 32001 Then
vlcCustOrdNbr = UCase(Trim(GetObjectValue("cCustOrdNbr_0")))
If vlcCustOrdNbr = "PATITO" Then
retval = ERRNOMESS
Call MessBox("RetVal = " & retval, MB_OK, "Order
Incorrect")
Exit Sub
End If
Call MessBox("RetVal = " & retval, MB_OK, "Valid Order")
End Sub

In my machine works fine, but not on users machines. Despite being a
valid Customer Order Number does not save the order.

I got RetVal values. When the order is incorrect retval = 32 000 and
when the order is valid retval = -2. These values are the same on my
machine as the users. I do not understand what is the problem.

I'm using Solomon 5.00.1864 with VBA / BSL

I would appreciate your valuable help

Alfonso

[Barry Flynn]

Alfonso

Nothing really comes to mind.
I note though that you have two IF's but just one END IF.
Is there a typo in the code you posted?

You say that you are using "VBA / BSL".
Which one are you using?
If it is VBA, do you have OPTION EXPLICIT at the top of the code.

Barry

--

Barry Flynn
Complete Solutions DG

<alfons...@msn.com> wrote in message
news:1267e50c-1e23-4901...@l20g2000yqm.googlegroups.com...

[Mary]

Check if this customization is made for all users or only for your user.

"alfons...@msn.com" wrote:

> .
>