Login
Register
Search
Home
Forums
Jobs
LawsonGuru
LawsonGuru Letter
LawsonGuru Blog
Worthwhile Reading
Infor Lawson News Feed
Store
Store FAQs
About
Forums
Integration / Customization
S3 Customization/Development
4GL command button to launch HR13.3
Home
Forums
Jobs
LawsonGuru
LawsonGuru Letter
LawsonGuru Blog
Worthwhile Reading
Infor Lawson News Feed
Store
Store FAQs
About
Who's On?
Membership:
Latest:
Jessica
Past 24 Hours:
2
Prev. 24 Hours:
0
Overall:
5164
People Online:
Visitors:
296
Members:
0
Total:
296
Online Now:
New Topics
Top Forum Posters
Name
Points
Greg Moeller
4184
David Williams
3349
JonA
3288
Kat V
2984
Woozy
1973
Jimmy Chiu
1883
Kwane McNeal
1437
Ragu Raghavan
1348
Roger French
1311
mark.cook
1244
Forums
Unanswered
Active Topics
Most Liked
Most Replies
Search Forums
Search
Advanced Search
Topics
Posts
Prev
Next
Forums
S3 Customization/Development
4GL command button to launch HR13.3
Sort:
Oldest First
Most Recent First
You are not authorized to post a reply.
Author
Messages
Woozy
Veteran Member
Posts: 709
2/21/2014 12:46 PM
I have a custom form, and I want to add a command button to each detail record pointing to HR13.3, similar to how the BN32 does it. I have created the button and pointed it to HR13.3, but when I inquire the button disappears. I've added matching keys to the .scr. What am I doing wrong?
What determines whether a button shows or not?
Thanks. Kelly
Tags:
4GL
,
button
,
HR13.3
jaherb
Veteran Member
Posts: 164
2/21/2014 6:32 PM
Kelly....
This is actually controlled in the PD section of the program. If you look at BN32PD you will see the following logic...
089700
IF (EMDEPEND-FOUND)
089800 IF ((PLN-PLAN-TYPE = "HL")
089900 AND (BNC-DEP-HEALTH = "Y"))
090000 OR ((PLN-PLAN-TYPE = "DN")
090100 AND (BNC-DEP-DENTAL = "Y"))
090200 OR ((PLN-PLAN-TYPE = "DL")
090300 AND (BNC-DEP-DEP-LIFE = "Y"))
090400 IF ((PLN-COVERAGE-TYPE = "1")
090500 AND (COP-COV-DEPENDENTS = "S" OR "D" OR "B"))
090600 OR ((PLN-COVERAGE-TYPE = "2")
090700 AND (CVR-LIFE-ADD-FLG = "S" OR "D" OR "B"))
MOVE BEN-START-DATE TO DB-EMP-START
MOVE HDBSET3-EMP-START
TO WS-DB-BEG-RNG
PERFORM 850-FIND-BEGRNG-HDBSET3
IF (HRDEPBEN-FOUND)
090900 MOVE 204 TO CRT-MSG-NBR
ELSE
090900 MOVE 183 TO CRT-MSG-NBR
END-IF
090800 MOVE "BNMSG" TO CRT-ERROR-CAT
091000 PERFORM 790-GET-MSG
091100 MOVE CRT-MESSAGE TO BN32F1-DEP (I1).
The logic checks to see if there are dependents for particular employee.... If there are, in this case, will retrieve mesage 183 from msgmaint and move that value to the form field.... BN32F1-DEP(I1). The value of this message, if you look it up, is "DEP".
If there are not dependents that field is left blank and you will not see it on the form.
Hope this helps and gets you going in the right direction.
Tags:
4GL
,
button
,
HR13.3
Woozy
Veteran Member
Posts: 709
2/21/2014 6:58 PM
Hi Jim - That makes sense on the BN32, but I'm having this issue on my custom form that doesn't include this logic.
I think the BN32 logic actually sets the value to "Dep" (msg 183) for no dependents or "Dep*" (msg 204) for with dependents. However, there are still records where no button appears as all, and this code doesn't appear to address that.
Tags:
4GL
,
button
,
HR13.3
Woozy
Veteran Member
Posts: 709
2/21/2014 7:02 PM
Ahhh! Thanks Jim - I see what you were saying, and you were right. I forgot that I'm not actually setting the button value in my code. Once I do that, it will appear.
Thanks again!
Kelly
Tags:
4GL
,
button
,
HR13.3
jaherb
Veteran Member
Posts: 164
2/21/2014 7:07 PM
In the case of the BN32 two conditions must be met... 1) dependents must exist and 2) they must also exist on the HRDEPBEN meaning they are qualified for benefits.
Not sure what is happening in your program, but you may want to try adding logic to move whatever value you want to that button when the program is repopulating the form. I believe these fields are blank when the form is being populated from the inquiry statement.
Haven't played around with the "disappearing buttons" all that much.
Let me know how it works out for you.
Tags:
4GL
,
button
,
HR13.3
jaherb
Veteran Member
Posts: 164
2/21/2014 8:07 PM
Kelly.... I just created a quick update form and a button to call the HR13 form. When I first call the form up, it shows the button. I then added logic to check for dependents.. if no dependents are found, I space out the button name and the button does not show. If dependents are found I move 'Dependent' to the button and the button is there.
This does work.... so I think you will need to add logic to your program checking to see if there are dependents or not and then either move spaces to or populate the button.
Good Luck
Jim
Tags:
4GL
,
button
,
HR13.3
Woozy
Veteran Member
Posts: 709
2/21/2014 8:21 PM
Thanks Jim! That is very helpful. I really appreciate it!
Kelly
Tags:
4GL
,
button
,
HR13.3
jaherb
Veteran Member
Posts: 164
2/21/2014 8:30 PM
Not a problem.. have a great weekend.
Tags:
4GL
,
button
,
HR13.3
You are not authorized to post a reply.