Paul,
We had a similar requirement way back in early 2000 and we implemented this
validation check programmatically. I wrote an RPG ILE program to determine
the day of week and called this program within ORD700 at post-enter
validation time. Depending on the return value of the program, I could say
if the date entered was a week-day or week-end and accordingly display an
error message. I have attached the source code (text file), if you are
interested.
Regards,
S.R.Venugopal,
Manager, Enterprise Applications,
Information Technology,
Haynes International, Inc,
Phone: (765) 456-6770 (Work)
E-Mail: vgopal@xxxxxxxxxxxxxx / srvenugopal@xxxxxxxxxxx
----------------------------------------------------------------------------
-----
Kelly Paul <Paul.Kelly@xxxxxxxxxxxx>
Sent by: bpcs-l-bounces+mrogers=miwheel.com@xxxxxxxxxxxx
05/17/2007 03:10 AM
Please respond to
SSA's BPCS ERP System <bpcs-l@xxxxxxxxxxxx>
To
"'bpcs-l@xxxxxxxxxxxx'" <bpcs-l@xxxxxxxxxxxx>
cc
Subject
Re: [BPCS-L] Prevent users from entering weekend dates in ORD700 (BPCSV6.1
.01 mixed mode)
Hi all,
Is it possible to prevent or at least prompt users from entering weekend
dates on customer order lines (LRDTE and LSDTE)? Is there a calendar that
can be configured for the ORD module?
Regards,
Paul
______________________________________
Paul Kelly
IT Manager
ABS Production Wexford Ltd.
Industrial Estate
Clonard Road
Wexford
Tel. +353 53 9163281
Fax +353 53 9163286
Mobile +353 87 6537893
E-mail Paul.Kelly@xxxxxxxxxxxx
Visit us at www.absgroup.com <www.absgroup.com>
______________________________________
ÿþ 5 7 2 2 W D S V 5 R 3 M 0 0 3 0 9 0 5
S E U S O U R C E L I S T I N G
0 5 / 1 8 / 0 7 1 1 : 4 6 : 0 1 P I O N E E R 1
P A G E 1
S O U R C E F I L E . . . . . . .
B P C S U S R 6 4 D / Q R P G L E S R C
M E M B E R . . . . . . . . . D A Y O F W E E K
S E Q N B R * . . . + . . . 1 . . . + . . . 2 . . . + . . . 3
. . . + . . . 4 . . . + . . . 5 . . . + . . . 6 . . . + . . . 7
. . . + . . . 8 . . . + . . . 9 . . . + . . . 0
1 0 0
F * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0 4 / 2 1 / 9 9
1 0 1 F *
1 2 / 2 2 / 9 9
2 0 0 F * P r o g r a m I D -
D a y O f W e e k
0 3 / 0 7 / 0 0
3 0 0 F * A p p l i c a t i o n I D -
G e n e r a l p u r p o s e p r o g r a m
0 1 / 0 2 / 0 0
4 0 0 F * A p p l i c a t i o n N a m e -
R e t u r n D a y o f W e e k i n N u m b e r / N a m e
0 3 / 0 7 / 0 0
5 0 0 F * D a t e G e n e r a t e d -
0 7 M a r 2 0 0 0
0 3 / 0 7 / 0 0
5 0 1 F * P r o g r a m A u t h o r -
S . R . V e n u g o p a l
1 2 / 2 2 / 9 9
6 0 0 F *
0 1 / 1 5 / 9 9
6 0 1
F * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0 1 / 0 2 / 0 0
1 4 0 1 D *
1 2 / 2 2 / 9 9
1 4 0 2 D D A T E 0 S
8 S 0 I N Z ( 1 9 8 9 0 1 0 1 )
0 3 / 0 7 / 0 0
1 4 0 3 D D A T E 1 S
D D A T F M T ( * I S O )
0 3 / 0 7 / 0 0
1 4 0 4 D D A T E 2 S
D D A T F M T ( * I S O )
0 3 / 0 7 / 0 0
1 4 0 5 D N U M D A Y S S
8 S 0
0 3 / 0 7 / 0 0
1 4 0 6 D *
1 2 / 2 2 / 9 9
1 5 0 0 C *
1 2 / 2 2 / 9 9
1 5 0 2 C * E N T R Y P L I S T
0 1 / 0 2 / 0 0
1 5 0 3 C P A R M
W 1 D A T E 8 0
0 3 / 0 7 / 0 0
1 5 0 4 C P A R M
W 1 N U M B 1 0
0 3 / 0 7 / 0 0
1 5 0 5 C P A R M
W 1 N A M E 1 0
0 3 / 0 7 / 0 0
1 5 1 6 C *
0 1 / 0 2 / 0 0
2 6 0 0 C / E J E C T
0 1 / 1 5 / 9 9
2 6 0 1
C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 2 / 2 2 / 9 9
2 8 0 0 C * M a i n l i n e
R o u t i n e
0 1 / 1 5 / 9 9
2 9 0 0
C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0 1 / 1 5 / 9 9
2 9 0 1 C *
1 2 / 2 2 / 9 9
3 0 0 0 C E X S R
S M A I N
0 1 / 1 5 / 9 9
3 1 0 0 C E X S R
S E N D
0 4 / 2 1 / 9 9
3 2 0 0 C *
0 1 / 1 5 / 9 9
3 3 0 0 C / E J E C T
0 1 / 1 5 / 9 9
3 4 0 0
C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0 1 / 1 5 / 9 9
3 5 0 0 C * S M A I N - M a i n f l o w o f
t h e p r o g r a m .
0 1 / 1 5 / 9 9
3 6 0 0
C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0 1 / 1 5 / 9 9
3 7 0 0 C S M A I N B E G S R
0 1 / 1 5 / 9 9
4 2 0 3 C *
0 1 / 0 2 / 0 0
4 2 0 4 C * I S O
T E S T ( D ) W 1 D A T E
3 1
0 3 / 0 7 / 0 0
4 2 0 6 C I F
* I N 3 1 = * O F F
0 3 / 0 7 / 0 0
4 2 0 7 C *
1 2 / 2 2 / 9 9
4 2 0 8 C * I S O M O V E
W 1 D A T E D A T E 1
0 3 / 0 7 / 0 0
4 2 0 9 C * I S O M O V E
D A T E 0 D A T E 2
0 3 / 0 7 / 0 0
4 2 1 0 C D A T E 1 S U B D U R
D A T E 2 N U M D A Y S : * D A Y S
0 3 / 0 7 / 0 0
4 2 1 1 C N U M D A Y S D I V
7 T E M P D A Y 8 0
0 3 / 0 7 / 0 0
4 2 1 2 C M V R
W 1 N U M B
0 3 / 0 7 / 0 0
4 2 1 3 C I F
W 1 N U M B < 0
0 3 / 0 7 / 0 0
4 2 1 4 C E V A L
W 1 N U M B = W 1 N U M B + 7
0 3 / 0 7 / 0 0
4 2 1 5 C E N D I F
0 3 / 0 7 / 0 0
4 2 1 6 C *
0 3 / 0 7 / 0 0
4 2 1 7 C S E L E C T
0 3 / 0 7 / 0 0
4 2 1 8 C W H E N
W 1 N U M B = 0
0 3 / 0 7 / 0 0
4 2 1 9 C E V A L
W 1 N A M E = ' S u n d a y '
0 3 / 0 7 / 0 0
4 2 2 0 C W H E N
W 1 N U M B = 1
0 3 / 0 7 / 0 0
4 2 2 1 C E V A L
W 1 N A M E = ' M o n d a y '
0 3 / 0 7 / 0 0
4 2 2 2 C W H E N
W 1 N U M B = 2
0 3 / 0 7 / 0 0
5 7 2 2 W D S V 5 R 3 M 0 0 3 0 9 0 5
S E U S O U R C E L I S T I N G
0 5 / 1 8 / 0 7 1 1 : 4 6 : 0 1 P I O N E E R 1
P A G E 2
S O U R C E F I L E . . . . . . .
B P C S U S R 6 4 D / Q R P G L E S R C
M E M B E R . . . . . . . . . D A Y O F W E E K
S E Q N B R * . . . + . . . 1 . . . + . . . 2 . . . + . . . 3
. . . + . . . 4 . . . + . . . 5 . . . + . . . 6 . . . + . . . 7
. . . + . . . 8 . . . + . . . 9 . . . + . . . 0
4 2 2 3 C E V A L
W 1 N A M E = ' T u e s d a y '
0 3 / 0 7 / 0 0
4 2 2 4 C W H E N
W 1 N U M B = 3
0 3 / 0 7 / 0 0
4 2 2 5 C E V A L
W 1 N A M E = ' W e d n e s d a y '
0 3 / 0 7 / 0 0
4 2 2 6 C W H E N
W 1 N U M B = 4
0 3 / 0 7 / 0 0
4 2 2 7 C E V A L
W 1 N A M E = ' T h u r s d a y '
0 3 / 0 7 / 0 0
4 2 2 8 C W H E N
W 1 N U M B = 5
0 3 / 0 7 / 0 0
4 2 2 9 C E V A L
W 1 N A M E = ' F r i d a y '
0 3 / 0 7 / 0 0
4 2 3 0 C W H E N
W 1 N U M B = 6
0 3 / 0 7 / 0 0
4 2 3 1 C E V A L
W 1 N A M E = ' S a t u r d a y '
0 3 / 0 7 / 0 0
4 2 3 2 C E N D S L
0 3 / 0 7 / 0 0
4 2 3 4 C *
1 2 / 2 2 / 9 9
4 2 3 5 C E L S E
0 1 / 0 2 / 0 0
4 2 3 6 C *
0 3 / 0 7 / 0 0
4 2 3 7 C E V A L
W 1 N A M E = ' * E r r o r * '
0 3 / 0 7 / 0 0
4 2 3 8 C E V A L
W 1 N U M B = - 1
0 3 / 0 7 / 0 0
4 2 3 9 C *
0 1 / 0 2 / 0 0
4 2 4 0 C E N D I F
1 2 / 2 2 / 9 9
1 4 0 0 0 C *
0 4 / 2 1 / 9 9
1 4 1 0 0 C E N D S R
0 1 / 1 5 / 9 9
1 4 2 0 0 C / E J E C T
0 1 / 1 5 / 9 9
1 4 3 0 0
C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0 1 / 1 5 / 9 9
1 4 4 0 0 C * S E N D - E N D o f p r o g r a m .
0 1 / 1 5 / 9 9
1 4 5 0 0
C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0 1 / 1 5 / 9 9
1 4 6 0 0 C S E N D B E G S R
0 1 / 1 5 / 9 9
1 4 7 0 0 C *
0 1 / 1 5 / 9 9
1 4 8 0 0 C M O V E
' 1 ' * I N L R
0 1 / 1 5 / 9 9
1 4 9 0 0 C R E T U R N
0 1 / 1 5 / 9 9
1 5 0 0 0 C *
0 4 / 2 1 / 9 9
1 5 1 0 0 C E N D S R
0 1 / 1 5 / 9 9
1 5 2 0 0 C / E J E C T
0 1 / 1 5 / 9 9
* * *
* E N D O F S O U R C E * * * *
midrange.com
