4GL code issue Blank Title 96765

system · January 13, 2011, 6:04pm

The main reason for the message is to warn for delays in possible shipping or manufacturing. So they want to see it as soon as they enter in the Part.

I just thought that if I create a Foreign Key View associated to the Part Adapter, then create a hidden textBox binding to Part.Character04. I can create a event onChange of the textbox value and post the text as a warning message. What do you think?

thanks for helping with the brainstorming.

Dan

--- In vantage@yahoogroups.com, Mark Wonsil <mark_wonsil@...> wrote:
>
> Any reason not to use Update? You can cancel the update if conditions are
> not correct.
>
> For what purpose are you displaying a message?
>
> Mark W.
>
> On Thu, Jan 13, 2011 at 5:02 PM, dgodfrey_amc <dgodfrey_amc@...>wrote:
>
> >
> >
> > Yes, and that is what I have switched to to get anything to show. I just
> > got off the phone with Epicor and they are say that the BPM processes on any
> > methods for JobEntry (other than Update) are not reliable for 407.
> >
> > So now I am stuck trying to figure out how to get a simple Part.Character04
> > field to show as a warning on the JobEntry window. Through customization, I
> > can not piggy-back on a default control. Meaning that I can not catch an
> > event from changes to any of the default controls in the JobEntry window.
> >
> > Any suggestions?
> >
> >
> >
>
>
> [Non-text portions of this message have been removed]
>

system · January 13, 2011, 1:06pm

I can not find what is wrong with the following code. Can someone help me?

Thanks,
Dan Godfrey

Find First Part Where (ttJobHead.Company = Part.Company AND ttJobHead.PartNum = Part.PartNum) no-lock.
IF AVAILABLE Part THEN DO:
IF(Part.CheckBox03 = TRUE) THEN
{lib\PublishInfoMsg.i &InfoMsg = "'WARNING! ' + Part.Character04 "}.
END IF.
End.
end.

system · January 13, 2011, 1:09pm

Is it the "END IF."?

Shouldn't it just be "END."?

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of dgodfrey_amc
Sent: Thursday, January 13, 2011 1:07 PM
To: vantage@yahoogroups.com
Subject: [Vantage] 4GL code issue

I can not find what is wrong with the following code. Can someone help
me?

Thanks,
Dan Godfrey

Find First Part Where (ttJobHead.Company = Part.Company AND
ttJobHead.PartNum = Part.PartNum) no-lock.
IF AVAILABLE Part THEN DO:
IF(Part.CheckBox03 = TRUE) THEN
{lib\PublishInfoMsg.i &InfoMsg = "'WARNING! ' + Part.Character04 "}.
END IF.
End.
end.

Joe Rojas | Director of Information Technology | Mats Inc
dir: 781-573-0291 | cell: 781-408-9278 | fax: 781-232-5191
jrojas@... | www.matsinc.com Ask us about our clean, green and beautiful matting and flooring

This message is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake. Please note that any views or opinions presented in this email are solely those of the author and do not necessarily represent those of the company.

[Non-text portions of this message have been removed]

system · January 13, 2011, 1:16pm

So I removed the IF portion of the End IF and I then got an error for extra End statements. I removed 1 END and it seems to be happy now. Does Progress not need and END for the IF AVAILABLE statement or the Find statement?

Here is what was finally accepted and past the Validate Button.

Find First Part Where (ttJobHead.Company = Part.Company AND ttJobHead.PartNum = Part.PartNum) no-lock.
IF AVAILABLE Part THEN DO:
IF(Part.CheckBox03 = TRUE) THEN
{lib\PublishInfoMsg.i &InfoMsg = "'WARNING! ' + Part.Character04 "}.
END.

[Non-text portions of this message have been removed]

system · January 13, 2011, 1:24pm

Try moving the info message up line so it is with "then" or
add "do:" to the "then: of the second if then.

--- In vantage@yahoogroups.com, Dan Godfrey <dgodfrey@...> wrote:
>
> So I removed the IF portion of the End IF and I then got an error for extra End statements. I removed 1 END and it seems to be happy now. Does Progress not need and END for the IF AVAILABLE statement or the Find statement?
>
> Here is what was finally accepted and past the Validate Button.
>
> Find First Part Where (ttJobHead.Company = Part.Company AND ttJobHead.PartNum = Part.PartNum) no-lock.
> IF AVAILABLE Part THEN DO:
> IF(Part.CheckBox03 = TRUE) THEN
> {lib\PublishInfoMsg.i &InfoMsg = "'WARNING! ' + Part.Character04 "}.
> END.
>
>
> [Non-text portions of this message have been removed]
>

system · January 13, 2011, 1:37pm

Progress needs an END after a DO and, in this case, the FIRST.

IF does not need an END but because an IF will only execute one
statement, you usually use a DO with IF to group statements.

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Dan Godfrey
Sent: Thursday, January 13, 2011 1:16 PM
To: vantage@yahoogroups.com
Subject: RE: [Vantage] 4GL code issue

So I removed the IF portion of the End IF and I then got an error for
extra End statements. I removed 1 END and it seems to be happy now. Does
Progress not need and END for the IF AVAILABLE statement or the Find
statement?

Here is what was finally accepted and past the Validate Button.

Find First Part Where (ttJobHead.Company = Part.Company AND
ttJobHead.PartNum = Part.PartNum) no-lock.
IF AVAILABLE Part THEN DO:
IF(Part.CheckBox03 = TRUE) THEN
{lib\PublishInfoMsg.i &InfoMsg = "'WARNING! ' + Part.Character04 "}.
END.

[Non-text portions of this message have been removed]

Joe Rojas | Director of Information Technology | Mats Inc
dir: 781-573-0291 | cell: 781-408-9278 | fax: 781-232-5191
jrojas@... | www.matsinc.com Ask us about our clean, green and beautiful matting and flooring

This message is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake. Please note that any views or opinions presented in this email are solely those of the author and do not necessarily represent those of the company.

[Non-text portions of this message have been removed]

system · January 13, 2011, 1:37pm

Try

Find First Part Where (ttJobHead.Company = Part.Company AND
ttJobHead.PartNum = Part.PartNum) no-lock.
IF AVAILABLE Part and Part.CheckBox03 = TRUE THEN

DO:
{lib\PublishInfoMsg.i &InfoMsg = "'WARNING! ' + Part.Character04
"}.
END.

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of mustardbuzzards
Sent: Thursday, January 13, 2011 12:25 PM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: 4GL code issue

Try moving the info message up line so it is with "then" or
add "do:" to the "then: of the second if then.

--- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> , Dan
Godfrey <dgodfrey@...> wrote:

>
> So I removed the IF portion of the End IF and I then got an error for

extra End statements. I removed 1 END and it seems to be happy now. Does
Progress not need and END for the IF AVAILABLE statement or the Find
statement?

>
> Here is what was finally accepted and past the Validate Button.
>
> Find First Part Where (ttJobHead.Company = Part.Company AND

ttJobHead.PartNum = Part.PartNum) no-lock.

> IF AVAILABLE Part THEN DO:
> IF(Part.CheckBox03 = TRUE) THEN
> {lib\PublishInfoMsg.i &InfoMsg = "'WARNING! ' + Part.Character04 "}.
> END.
>
>
> [Non-text portions of this message have been removed]
>

########################################################################
Attention:
This email message is privileged and confidential. If you are not the
intended recipient please delete the message and notify the sender.
Any views or opinions presented are solely those of the author.

This email message has been scanned for Viruses and Content and cleared
by MailMarshal SMTP

For more information go to http://www.ramsys.com
########################################################################

[Non-text portions of this message have been removed]

system · January 13, 2011, 2:26pm

I have implemeted your suggestion but right now I am not get any bites on the method. So I backed out on the actions to be simply showing an informational message and the method is still not getting triggered. I have checked the server log and the method shows up there. I have done a trace and the method also shows up there. So now I a call in to Epicor to see if the few methods on JobEntry that I am using has any know issues with them.

Thanks everyone for their suggestion. At least you all got me past the error issues just wwith the code.

Dan

[Non-text portions of this message have been removed]

system · January 13, 2011, 3:12pm

Hi Dan,

>
> I have implemeted your suggestion but right now I am not get any bites on the method. So I backed out on the actions to be simply showing an informational message and the method is still not getting triggered. I have checked the server log and the method shows up there. I have done a trace and the method also shows up there. So now I a call in to Epicor to see if the few methods on JobEntry that I am using has any know issues with them.
>

You're not on V8 or higher, are you? If so, you cannot run UI stuff
(message boxes) from the server. They execute at the server and that's
why you see it in the log. To do that, use a BPM or a VB or C# screen
customization.

Mark W.

system · January 13, 2011, 3:57pm

I am doing this through a BPM. Not sure how else to since I am trying to post a message from the Part table in the JobEntry window. Any suggestions?

[Non-text portions of this message have been removed]

system · January 13, 2011, 4:12pm

Dan,

The "IF" and "ELSE" statement only execute the next statement, and they don't have an "END" associated with them.

The next statement can be a "DO" statement, which allows you to execute a group of statements, and the "DO" needs an "END" with it. However, the "IF" or "ELSE" sees the "DO..END" block as a single statement.

So, you could have either:

IF condition THEN statement1
ELSE statement2.

or, you could have:
IF condition THEN DO:
statement1
statement2
statement3
...
END.
ELSE DO:
statement4
statement5
statement6
...
END.

Kevin Simon
SimsTrak Consulting

--- In vantage@yahoogroups.com, Dan Godfrey <dgodfrey@...> wrote:
>
> So I removed the IF portion of the End IF and I then got an error for extra End statements. I removed 1 END and it seems to be happy now. Does Progress not need and END for the IF AVAILABLE statement or the Find statement?
>
> Here is what was finally accepted and past the Validate Button.
>
> Find First Part Where (ttJobHead.Company = Part.Company AND ttJobHead.PartNum = Part.PartNum) no-lock.
> IF AVAILABLE Part THEN DO:
> IF(Part.CheckBox03 = TRUE) THEN
> {lib\PublishInfoMsg.i &InfoMsg = "'WARNING! ' + Part.Character04 "}.
> END.
>
>
> [Non-text portions of this message have been removed]
>

system · January 13, 2011, 4:13pm

Dan,

Just to verify, you don't have any conditions on the method do you? If you
do, you may consider eliminating those, to where it's just a method with an
informational message. If you have a condition on there, it may be the
condition that is causing the issue.

What method are you attaching this to?

Kevin Simon

From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
Dan Godfrey
Sent: Thursday, January 13, 2011 3:57 PM
To: vantage@yahoogroups.com
Subject: RE: [Vantage] Re: 4GL code issue

I am doing this through a BPM. Not sure how else to since I am trying to
post a message from the Part table in the JobEntry window. Any suggestions?

[Non-text portions of this message have been removed]

[Non-text portions of this message have been removed]

system · January 13, 2011, 4:21pm

As of right now there is no conditions. I am trying it on 2 methods, JobEntry.ChangeJobHeadPartNum and JobEntry.CheckPrePartInfo. Neither one of these are showing my info message. I don't understand.

________________________________
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of Kevin Simon
Sent: Thursday, January 13, 2011 1:13 PM
To: vantage@yahoogroups.com
Subject: RE: [Vantage] Re: 4GL code issue

Dan,

Just to verify, you don't have any conditions on the method do you? If you
do, you may consider eliminating those, to where it's just a method with an
informational message. If you have a condition on there, it may be the
condition that is causing the issue.

What method are you attaching this to?

Kevin Simon

From: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com> [mailto:vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>] On Behalf Of
Dan Godfrey
Sent: Thursday, January 13, 2011 3:57 PM
To: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>
Subject: RE: [Vantage] Re: 4GL code issue

I am doing this through a BPM. Not sure how else to since I am trying to
post a message from the Part table in the JobEntry window. Any suggestions?

[Non-text portions of this message have been removed]

[Non-text portions of this message have been removed]

[Non-text portions of this message have been removed]

system · January 13, 2011, 4:53pm

> I am doing this through a BPM. Not sure how else to since I am trying to post a message from the Part table in the JobEntry window. Any suggestions?
>

In your BPM Actions pane, there's an action called "Display an
information Message..." You'll create a template (by clicking on the
links in the action line) and it will give you the opportunity to
insert fields from the tables available in that transaction.

Mark W.

system · January 13, 2011, 5:02pm

Yes, and that is what I have switched to to get anything to show. I just got off the phone with Epicor and they are say that the BPM processes on any methods for JobEntry (other than Update) are not reliable for 407.

So now I am stuck trying to figure out how to get a simple Part.Character04 field to show as a warning on the JobEntry window. Through customization, I can not piggy-back on a default control. Meaning that I can not catch an event from changes to any of the default controls in the JobEntry window.

Any suggestions?

system · January 13, 2011, 5:25pm

Any reason not to use Update? You can cancel the update if conditions are
not correct.

For what purpose are you displaying a message?

Mark W.

On Thu, Jan 13, 2011 at 5:02 PM, dgodfrey_amc <dgodfrey_amc@...>wrote:

>
>
> Yes, and that is what I have switched to to get anything to show. I just
> got off the phone with Epicor and they are say that the BPM processes on any
> methods for JobEntry (other than Update) are not reliable for 407.
>
> So now I am stuck trying to figure out how to get a simple Part.Character04
> field to show as a warning on the JobEntry window. Through customization, I
> can not piggy-back on a default control. Meaning that I can not catch an
> event from changes to any of the default controls in the JobEntry window.
>
> Any suggestions?
>
>
>

[Non-text portions of this message have been removed]