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>

______________________________________









ÿþ 5722WDS V5R3M0 030905
SEU SOURCE LISTING
05/18/07 11:46:01 PIONEER1
PAGE 1

SOURCE FILE . . . . . . .
BPCSUSR64D/QRPGLESRC

MEMBER . . . . . . . . . DAYOFWEEK

SEQNBR*...+... 1 ...+... 2 ...+... 3
...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0

100
F*****************************************************************

04/21/99

101 F*


12/22/99

200 F* Program ID -
DayOfWeek

03/07/00

300 F* Application ID -
General purpose program

01/02/00

400 F* Application Name -
Return Day of Week in Number/Name

03/07/00

500 F* Date Generated -
07 Mar 2000

03/07/00

501 F* Program Author -
S.R.Venugopal

12/22/99

600 F*


01/15/99

601
F*****************************************************************

01/02/00

1401 D*


12/22/99

1402 D DATE0 S
8S 0 INZ(19890101)

03/07/00

1403 D DATE1 S
D DATFMT(*ISO)

03/07/00

1404 D DATE2 S
D DATFMT(*ISO)

03/07/00

1405 D NUMDAYS S
8S 0

03/07/00

1406 D*


12/22/99

1500 C*


12/22/99

1502 C *ENTRY PLIST


01/02/00

1503 C PARM
W1DATE 8 0

03/07/00

1504 C PARM
W1NUMB 1 0

03/07/00

1505 C PARM
W1NAME 10

03/07/00

1516 C*


01/02/00

2600 C/EJECT


01/15/99

2601
C*****************************************************************

12/22/99

2800 C* M a i n l i n e
R o u t i n e

01/15/99

2900
C*****************************************************************

01/15/99

2901 C*


12/22/99

3000 C EXSR
SMAIN

01/15/99

3100 C EXSR
SEND

04/21/99

3200 C*


01/15/99

3300 C/EJECT


01/15/99

3400
C*****************************************************************

01/15/99

3500 C* SMAIN - Main flow of
the program.

01/15/99

3600
C*****************************************************************

01/15/99

3700 C SMAIN BEGSR


01/15/99

4203 C*


01/02/00

4204 C *ISO
TEST(D) W1DATE
31
03/07/00

4206 C IF
*IN31=*OFF

03/07/00

4207 C*


12/22/99

4208 C *ISO MOVE
W1DATE DATE1

03/07/00

4209 C *ISO MOVE
DATE0 DATE2

03/07/00

4210 C DATE1 SUBDUR
DATE2 NUMDAYS:*DAYS

03/07/00

4211 C NUMDAYS DIV
7 TEMPDAY 8 0

03/07/00

4212 C MVR
W1NUMB

03/07/00

4213 C IF
W1NUMB<0

03/07/00

4214 C EVAL
W1NUMB=W1NUMB+7

03/07/00

4215 C ENDIF


03/07/00

4216 C*


03/07/00

4217 C SELECT


03/07/00

4218 C WHEN
W1NUMB=0

03/07/00

4219 C EVAL
W1NAME='Sunday'

03/07/00

4220 C WHEN
W1NUMB=1

03/07/00

4221 C EVAL
W1NAME='Monday'

03/07/00

4222 C WHEN
W1NUMB=2

03/07/00

5722WDS V5R3M0 030905
SEU SOURCE LISTING
05/18/07 11:46:01 PIONEER1
PAGE 2

SOURCE FILE . . . . . . .
BPCSUSR64D/QRPGLESRC

MEMBER . . . . . . . . . DAYOFWEEK

SEQNBR*...+... 1 ...+... 2 ...+... 3
...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0

4223 C EVAL
W1NAME='Tuesday'

03/07/00

4224 C WHEN
W1NUMB=3

03/07/00

4225 C EVAL
W1NAME='Wednesday'

03/07/00

4226 C WHEN
W1NUMB=4

03/07/00

4227 C EVAL
W1NAME='Thursday'

03/07/00

4228 C WHEN
W1NUMB=5

03/07/00

4229 C EVAL
W1NAME='Friday'

03/07/00

4230 C WHEN
W1NUMB=6

03/07/00

4231 C EVAL
W1NAME='Saturday'

03/07/00

4232 C ENDSL


03/07/00

4234 C*


12/22/99

4235 C ELSE


01/02/00

4236 C*


03/07/00

4237 C EVAL
W1NAME='*Error*'

03/07/00

4238 C EVAL
W1NUMB=-1

03/07/00

4239 C*


01/02/00

4240 C ENDIF


12/22/99

14000 C*


04/21/99

14100 C ENDSR


01/15/99

14200 C/EJECT


01/15/99

14300
C*****************************************************************

01/15/99

14400 C* SEND - END of program.


01/15/99

14500
C*****************************************************************

01/15/99

14600 C SEND BEGSR


01/15/99

14700 C*


01/15/99

14800 C MOVE
'1' *INLR

01/15/99

14900 C RETURN


01/15/99

15000 C*


04/21/99

15100 C ENDSR


01/15/99

15200 C/EJECT


01/15/99

* * *
* E N D O F S O U R C E * * * *


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.