POWER PLUS PATCH
Date of Correction: 10/4/06 Module: AP
Markid: P7.13 Program Nbr: 001
Description:
Add YTD purchases to AI01 inquiry screen.
Solution:
SRC1/AP/001
937600 MOVE VM-YTD-PURCH TO AI02-YTD-PURCH-O.
LIBPS/APSSCR001
403650 10 AI02-YTD-PURCH-O PIC $$$,$$$,$$9-.
405700 10 FILLER PIC X(932).
LIBPS/TCLAP
00402900 A18,X2,A2,X2,A9," YTD Purch:",A12,
00402950 X10,"Rate: ",A2,".",A2,"%",CRLF,
Date of Correction: 10/3/06 Module: EC
Markid: P7.11 Program Nbr: 010
Description:
Place orders on hold if the ship-to has a total billing limit and that limit is exceeded or would be exceeded by this order.
Note: Requires patches P7.12 to FM/016 and either P7.12 for OE/011 or P7.13 for OE/031.
Solution:
612320 IF RM-SHIP-TO-NBR > ZERO
612340 PERFORM 6082-CHECK-SHIP-TO
612360 THRU 6082-CHECK-SHIP-TO-EXIT.
612510 6082-CHECK-SHIP-TO.
612512 IF (RM-SHIP-TO-NBR = ST-NBR) AND
612514 (RM-CUST-NBR = ST-CUST-NBR)
612516 NEXT SENTENCE
612518 ELSE
612520 MOVE RM-SHIP-TO-NBR TO 990-NBR-KEY-77
612522 MOVE 990-ACCESS-RANDOM-VA-77 TO 990-ACCESS-METHOD-77
612524 MOVE 990-COMPARE-EQUAL-VA-77 TO 990-KEY-COMPARISON-77
612526 PERFORM 998-CM-ST-LINK-FIND THRU 998-CM-ST-LINK-FIND-EXIT
612530 IF 990-DMERROR-88
612532 GO TO 6082-CHECK-SHIP-TO-EXIT.
612536 IF ST-AR-LIMIT > ZERO
612538 AND ST-AR-BALANCE > ST-AR-LIMIT
612540 MOVE 608-AR-CREDIT-CODE TO RM-HOLD-CODE
612542 ELSE
612544 IF ST-BILL-LIMIT > ZERO
612546 IF ST-BILLED-TOTAL > ST-BILL-LIMIT
612548 MOVE 608-AR-CREDIT-CODE TO RM-HOLD-CODE
612550 ELSE
612552 IF ( ST-BILLED-TOTAL + RM-ORDER-VALUE ) > ST-BILL-LIMIT
612554 MOVE 608-AR-UB-CREDIT-CODE TO RM-HOLD-CODE.
612556 6082-CHECK-SHIP-TO-EXIT.
612558 EXIT.
Date of Correction: 11/15/06 Module: FM
Markid: P7.12 Program Nbr: 001
Description:
MM51 is allowing contracts to be added with invalid ship-to numbers.
Solution:
105200 01 ST-DATA.
317900 MM51-CUSTOMER-NBR-DELIM-SO-O
318000 ELSE
318100 IF MM51-SHIP-TO-NBR-I > ZERO
318200 MOVE MM51-SHIP-TO-NBR-I TO 990-NBR-KEY-77
318300 MOVE 990-ACCESS-RANDOM-VA-77 TO 990-ACCESS-METHOD-77
318400 MOVE 990-COMPARE-EQUAL-VA-77 TO 990-KEY-COMPARISON-77
318450 PERFORM 998-CM-ST-LINK-FIND
318500 THRU 998-CM-ST-LINK-FIND-EXIT
318550 IF 990-DMERROR-88
318560 MOVE 0-TRUE-77 TO 703-ERR-MSG-93-INVALID-INPUT
318570 1-ERROR-IN-SCREEN-FLAG
318580 MOVE 0-ERR-HILITE-CHAR TO
318590 MM51-SHIP-TO-NBR-DELIM-O.
716270 COPY "LIBPS/DMSCMST".
Date of Correction: 11/16/06 Module: FM
Markid: P7.11 Program Nbr: 004
Description:
Enable scanning of item numbers from bar-coded UPC numbers when using inventory inquiry screens.
Note: Requires patch P7.14 for FM/016.
Solution:
135050 COPY "LIBPS/778WS".
908610 COPY "LIBPS/778PD".
Date of Correction: 12/14/06 Module: FM
Markid: P7.1D Program Nbr: 008
Description:
II80 inquiry enhanced to allow you to select a specific PO to drill down to its detail or for faxing.
Solution:
SRC1/FM/008
111245 05 11CK-SELECT-FLAG PIC 9 COMP.
119737 88 II81-I-88 VALUE "II81".
135700 05 II81-SCREEN-FORMAT-I REDEFINES OE00-SCREEN-FORMAT-I.
135702 10 FILLER PIC X(4).
135704 10 II81-REPEAT-AREA-I OCCURS 15 TIMES.
135706 15 II81-SELECT-I PIC XX.
135708 15 II81-PO-SELECT-I PIC X(10).
135710 10 II81-VENDOR-NBR-I PIC 9(7).
135712 10 II81-VENDOR-NBR-ERROR-I REDEFINES
135714 II81-VENDOR-NBR-I PIC X(7).
135716 10 II81-COMPANY-ID-I PIC XX.
135718 10 II81-START-DATE-I PIC 9(6).
135720 10 II81-START-DATE-ERROR-I REDEFINES
135722 II81-START-DATE-I PIC X(6).
135724 10 II81-PO-NBR-I PIC X(10).
135726 10 II81-SELECT-CRIT-I PIC X.
135728 10 II81-NEXT-FORMAT-I PIC X(5).
135730 10 FILLER PIC X(385).
489448 ELSE
489450 IF II81-I-88
489452 PERFORM 11CK-PROCESS-II81 THRU 11CK-PROCESS-II81-EXIT
LIBPS/TCLII
00699090 FS,"II81 ",RS,X8,BRNV,"PURCHASE ORDER INQUIRY BY VENDOR",
00699150 UL,X3,"P.O. Nbr Whse Status Type PO Date Last Rcvd",
00699160 15(US,X1,FS,X1,A10,RS,X2,A2,X3,A3,X3,A7,X2,A8,X3,A8,X3,
00699170 A3,X2,A3,X1,A11,CR),
00699172 "D=Dtl,F=Fax NEXT",US,A7,RS,X1,US,A2,RS,X1,
00699190 X1,US,X1,RS,FORMS,20(TAB)).
00699195 FORMAT
00699200 III81A (A4,X1,15(A1,A11),A7,A2,I6,A10,A1,A5).
FM/008 P7.1D CONTINUED (page 2 of 3)
SRC1/SYS/TCL/COMS
00122700 IV41, SI10, SI30, II95, II81.
00239820 III81A = II81.
LIBPS/INQ08PD
589900 11CK-PROCESS-II81.
589920 MOVE 0-FALSE-77 TO 11CK-SELECT-FLAG.
589940 PERFORM 11CK-SCAN-POS THRU 11CK-SCAN-POS
589960 VARYING 11CK-SCREEN-INDEX FROM 1 BY 1
589980 UNTIL 11CK-SCREEN-INDEX > 15
590000 OR 11CK-SELECT-FLAG > 0-FALSE-77.
590020 IF 11CK-SELECT-FLAG = 0-FALSE-77
590040 MOVE II81-VENDOR-NBR-I TO II80-VENDOR-NBR-I
590060 MOVE II81-COMPANY-ID-I TO II80-COMPANY-ID-I
590080 MOVE II81-START-DATE-I TO II80-START-DATE-I
590100 MOVE II81-PO-NBR-I TO II80-PO-NBR-I
590120 MOVE II81-SELECT-CRIT-I TO II80-SELECT-CRIT-I
590130 MOVE SPACES TO II80-NEXT-FORMAT-I
590140 PERFORM 11CK-PROCESS-II80 THRU 11CK-PROCESS-II80-EXIT
590160 GO TO 11CK-PROCESS-II81-EXIT.
590180
590200 SUBTRACT 0-ONE-77 FROM 11CK-SCREEN-INDEX.
590220 IF 11CK-SELECT-FLAG = 0-ONE-77
590240 MOVE 990-ACCESS-RANDOM-VA-77 TO 990-ACCESS-METHOD-77
590260 MOVE 990-COMPARE-EQUAL-VA-77 TO 990-KEY-COMPARISON-77
590280 MOVE II81-PO-SELECT-I (11CK-SCREEN-INDEX)
590300 TO 990-PO-ORDER-NBR-KEY-77
590320 PERFORM 997-PO-SET-FIND THRU 997-PO-SET-FIND-EXIT
590340 MOVE PO-VENDOR-CODE TO 990-VENDOR-NBR-KEY-77
590360 MOVE II81-COMPANY-ID-I TO 990-COMPANY-ID-KEY-77
590380 PERFORM 997-VM-SET-FIND THRU 997-VM-SET-FIND-EXIT
590400 IF 990-DMERROR-88
590420 CREATE VM-DATA
590440 MOVE "VENDOR NOT ON FILE" TO VM-NAME-PO.
590460
590480 IF 11CK-SELECT-FLAG = 0-ONE-77
590500 MOVE II81-PO-SELECT-I (11CK-SCREEN-INDEX)
590520 TO OC212-KEY-O (1)
590540 MOVE "P" TO OC212-DOC-TYPE-O (1)
590560 MOVE "PURCHASE ORDER" TO OC212-SUBJECT-O
590580 MOVE VM-NAME-PO TO OC212-COMPANY-O
590600 MOVE VM-FAX-NBR-PO TO OC212-FAX-NBR-O
590620 MOVE VM-CONTACT-PO TO OC212-NAME-O
590640 MOVE "FC212" TO MCS-FORMAT-ID
590660 MOVE 500 TO MCS-MSG-SIZE-77
590680 GO TO 11CK-PROCESS-II81-EXIT.
590700
FM/008 P7.1D CONTINUED (page 3 of 3)
590720 IF 11CK-SELECT-FLAG = 0-TWO-77
590740 MOVE II81-PO-SELECT-I (11CK-SCREEN-INDEX)
590760 TO 990-PO-ORDER-NBR-KEY-77
590780 MOVE SPACES TO MCS-PROGRAM-DATA
590800 MOVE "PLUS_IN012_AG" TO WCOMS-IN-AGENDA-NAME
590820 MOVE 55 TO MCS-MSG-SIZE-77
590840 STRING "IA91 " FOR 5
590860 990-PO-ORDER-NBR-KEY-77 FOR 10
590880 INTO MCS-PROGRAM-DATA
590900 PERFORM 951-INTER-PROGRAM-COMM
590920 THRU 951-INTER-PROGRAM-COMM-EXIT.
590940 11CK-PROCESS-II81-EXIT.
590960 EXIT.
590980
591000 11CK-SCAN-POS.
591020 IF II81-PO-SELECT-I (11CK-SCREEN-INDEX) NOT = SPACES
591040 IF II81-SELECT-I (11CK-SCREEN-INDEX) = "F"
591060 MOVE 0-ONE-77 TO 11CK-SELECT-FLAG
591080 ELSE
591100 IF II81-SELECT-I (11CK-SCREEN-INDEX) = "D"
591120 MOVE 0-TWO-77 TO 11CK-SELECT-FLAG.
591140 11CK-SCAN-POS-EXIT.
591160 EXIT.
Date of Correction: 11/16/06 Module: FM
Markid: P7.1C Program Nbr: 008
Description:
Enable scanning of item numbers from bar-coded UPC numbers when using inventory inquiry screens.
Note: Requires patch P7.14 for FM/016.
Solution:
117915 COPY "LIBPS/778WS".
889150 COPY "LIBPS/778PD".
Date of Correction: 10/30/06 Module: FM
Markid: P7.1B Program Nbr: 008
Description:
If user does not specify a customer number on II20 inquiry on a temp, it is not showing the temp message in the price area.
Solution:
560622 MOVE ZEROS TO II21-ITEM-DISCOUNT-O
560623 IF ((IM-SOURCE-CODE = 0-ONE-77)
560624 OR (IW-SOURCE-CODE = 0-ONE-77))
560625 AND IW-QTY-AVBL < 0-ONE-77
560627 AND IM-NAED-NBR = ZERO
560629 MOVE " TEMP ITEM" TO II21-ITEM-CUST-PRICE-MSG-O
560630 ELSE
Date of Correction: 10/3/06 Module: FM
Markid: P7.1A Program Nbr: 008
Description:
Add email address to CI50 inquiry.
Solution:
LIBPS/TCLCI
00581230 T(YNOUT,A3,1),CR,"Ship Comments ",A30,X2,A34,
LIBPS/SCREENS04
203390 10 CI51-EMAIL-UT-O PIC X(4).
203395 10 CI51-ELTTMAIL-ADDR-O PIC X(30).
205000 10 FILLER PIC X(1426).
SRC/FM/008
515785 IF CM-EMAIL-ADDRESS NOT = SPACE
515790 MOVE CM-EMAIL-ADDRESS TO CI51-EMAIL-ADDR-O
515795 MOVE "EM:" TO CI51-EMAIL-LIT-O.
Date of Correction: 11/16/06 Module: FM
Markid: P7.14 Program Nbr: 016
Description:
Enable scanning of item numbers from bar-coded UPC numbers when using file maintenance screens.
Solution:
180020 COPY "LIBPS/778WS".
722130 COPY "LIBPS/778PD".
LIBPS/DMSIMXREF
183100 MOVE 990-ITEM-NUMBER-KEY-77 TO 778-UPC-NBR
183200 PERFORM 778-ACCESS-BY-UPC-NBR
183300 THRU 778-ACCESS-BY-UPC-NBR-EXIT
183400 IF 778-UPC-FOUND = 0-FALSE-77
184000 PERFORM 999-SET-DMS-ERROR-FLAGS
185000 THRU 999-SET-DMS-ERROR-FLAGS-EXIT.
266100 MOVE 990-ITEM-NUMBER-KEY-77 TO 778-UPC-NBR
266200 PERFORM 778-ACCESS-BY-UPC-NBR
266300 THRU 778-ACCESS-BY-UPC-NBR-EXIT
266400 IF 778-UPC-FOUND = 0-FALSE-77
267000 PERFORM 999-SET-DMS-ERROR-FLAGS
268000 THRU 999-SET-DMS-ERROR-FLAGS-EXIT.
Date of Correction: 10/3/06 Module: FM
Markid: P7.13 Program Nbr: 016
Description:
Add charge-only option to customer master maintenance.
Solution:
SRC1/SUS/PLUSDB
00078392 CM-CHARGE-ONLY NUMBER (1);
00078394 CM-SPARE-FLAG NUMBER (1);
LIBPS/SCREENS16
590750 10 FM21-CHARGE-ONLY-DELIM-O PIC X.
590800 10 FM21-CHARGE-ONLY-ERROR-O.
590850 15 FM21-CHARGE-ONLY-O PIC 9.
591500 10 FILLER PIC X(1409).
627100 10 FM23-CHARGE-ONLY-DELIM-O PIC X.
627200 10 FM23-CHARGE-ONLY-O PIC X.
689500 10 FILLER PIC X(1399).
LIBPS/TCLFM
00458175 UL,"E-mail Address ",A1,US,A30,RS,UL,
00458185 X6,"Charge Only? ",A1,US,T(YNOUT,A3,1),RS,
00458800 I10,I4,T(YDNIN,A3,1),A4,I2,A30,T(YDNIN,A3,1),A5).
00460910 " ABC Rating ",A1,UL,US,T(ABCOT,A1,1),RS,
00460920 " Chrg Only?",A1,UL,US,A1,RS,X1,
00465110 T(ABCIN,A1,1),A1,A20,3I4,I2,A4,I1,I9,A30,I1,A25,I1,
SRC1/FM/016
109500 77 12D-CHARGE-ONLY PIC 9 COMP VALUE 0.
133900 10 FM21-CHARGE-ONLY-ERROR-I.
133910 15 FM21-CHARGE-ONLY-I PIC 9.
133940 10 FM21-NEXT-FORMAT-I PIC X(5).
133950 10 FILLER PIC X(396).
135320 FM23-ABC-CLASS-I PIC X.
135330 10 FM23-CHARGE-ONLY-I PIC X.
138640 10 FILLER PIC X(379).
152650 05 12-FFM21-MSG-SIZE-LIT PIC 999 COMP VALUE 600.
152750 05 12-FFM23-MSG-SIZE-LIT PIC 999 COMP VALUE 610.
FM/016 P7.13 CONTINUED (page 2 of 2)
514610 IF FM21-CHARGE-ONLY-I NOT = 0-TRUE-77 AND 0-FALSE-77
514620 MOVE 0-TRUE-77 TO 1-ERROR-IN-SCREEN-FLAG
514630 MOVE 0-ERR-HILITE-CHAR TO FM21-CHARGE-ONLY-DELIM-O
514640 MOVE 0-TRUE-77 TO 703-ERR-MSG-93-INVALID-INPUT.
520580 MOVE FM21-CHARGE-ONLY-I TO CM-CHARGE-ONLY.
528300 MOVE FM21-CHARGE-ONLY-ERROR-I TO FM21-CHARGE-ONLY-ERROR-O
534170 IF CM-CHARGE-ONLY = 0-TRUE-77
534175 MOVE "Y" TO FM23-CHARGE-ONLY-O
534180 ELSE
534185 MOVE "N" TO FM23-CHARGE-ONLY-O.
547300 IF FM23-CHARGE-ONLY-I NOT = SPACE AND "Y" AND "N"
547350 MOVE 0-TRUE-77 TO 703-ERR-MSG-93-INVALID-INPUT
547400 1-ERROR-IN-SCREEN-FLAG
547450 MOVE 0-ERR-HILITE-CHAR TO FM23-CHARGE-ONLY-DELIM-O.
556510 IF FM23-CHARGE-ONLY-I = "Y"
556515 MOVE 0-TRUE-77 TO 12D-CHARGE-ONLY
556520 ELSE
556525 MOVE 0-FALSE-77 TO 12D-CHARGE-ONLY.
556530 IF 12D-CHARGE-ONLY NOT = CM-CHARGE-ONLY
556535 MOVE 12D-CHARGE-ONLY TO CM-CHARGE-ONLY
556540 MOVE 0-TRUE-77 TO 12D-CM-DATA-CHANGE-FLG-77.
567760 MOVE FM23-CHARGE-ONLY-I TO FM23-CHARGE-ONLY-O.
Date of Correction: 10/3/06 Module: FM
Markid: P7.12 Program Nbr: 016
Description:
Add job billing limit to ship-to maintenance.
Solution:
SRC/SYS/PLUSDB
00310880 ST-BILL-LIMIT NUMBER (7);
00310885 ST-BILLED-TOTAL NUMBER (S7);
00310890 ST-LAST-BILL-DATE NUMBER (8);
LIBPS/SCREENS16
722015 10 FM31-AR-LIMIT-ERROR-O.
722020 15 FM31-AR-LIMIT-O PIC Z(7).
722025 10 FM31-BILL-LIMIT-DELIM-O PIC X.
722030 10 FM31-BILL-LIMIT-ERROR-O.
722035 15 FM31-BILL-LIMIT-O PIC Z(7).
723000 10 FILLER PIC X(1576).
759100 10 FM33-AR-LIMIT-DELIM-O PIC X.
759200 10 FM33-AR-LIMIT-ERROR-O.
759300 15 FM33-AR-LIMIT-O PIC Z(7).
761600 10 FM33-BILLED-TOTAL-O PIC ZZZZ,ZZ9-.
761700 10 FM33-BILL-LIMIT-DELIM-O PIC X.
761800 10 FM33-BILL-LIMIT-ERROR-O.
761900 15 FM33-BILL-LIMIT-O PIC Z(7).
765000 10 FILLER PIC X(1445).
LIBPS/TCLFM
00473020 " A/R Limit ",A1,UL,US,A7,RS,
00473030 " Max Tot Sales ",A1,UL,US,A7,RSCR,
00473510 A15,A2,A4,I2,3I4,I1,A25,2I7,A4,A30,A5).
00475790 " Tax District ",A1,UL,US,A4,RS,
00475795 X25,"A/R Limit ",A1,UL,US,A7,RSCR,
00475805 X11,"Billed:",A9," Max Sales ",A1,UL,US,A7,RSCR,
00477710 A15,A4,A2,I2,3I4,I7,I1,I7,A25,A4,A1,A16,A30,A5).
FM/016 P7.12 CONTINUED (page 2 of 2)
SRC1/FM/016
141125 10 FM31-AR-LIMIT-ERROR-I.
141130 15 FM31-AR-LIMIT-I PIC 9(7).
141135 10 FM31-BILL-LIMIT-ERROR-I.
141140 15 FM31-BILL-LIMIT-I PIC 9(7).
141150
141170 10 FM31-PRICE-CLASS-I PIC X(4).
141180 10 FM31-EMAIL-ADDRESS-I PIC X(30).
141190 10 FM31-NEXT-FORMAT-I PIC X(5).
141200 10 FILLER PIC X(541).
143060 10 FM33-AR-LIMIT-ERROR-I.
143070 15 FM33-AR-LIMIT-I PIC 9(7).
143255 10 FM33-BILL-LIMIT-ERROR-I.
143260 15 FM33-BILL-LIMIT-I PIC 9(7).
143400 10 FILLER PIC X(524).
153000 05 12-FFM33-MSG-SIZE-LIT PIC 999 COMP VALUE 560.
597180 IF FM31-BILL-LIMIT-ERROR-I NOT NUMERIC
597185 MOVE 0-TRUE-77 TO 703-ERR-MSG-83-NBR-IN-RQRD
597190 1-ERROR-IN-SCREEN-FLAG
597195 MOVE 0-ERR-HILITE-CHAR TO FM31-BILL-LIMIT-DELIM-O.
604030 MOVE FM31-BILL-LIMIT-I TO ST-BILL-LIMIT.
608470 MOVE FM31-BILL-LIMIT-ERROR-I TO FM31-BILL-LIMIT-ERROR-O.
614630 MOVE ST-BILLED-TOTAL TO FM33-BILLED-TOTAL-O.
614640 MOVE ST-BILL-LIMIT TO FM33-BILL-LIMIT-O.
621710 IF FM33-BILL-LIMIT-ERROR-I NOT NUMERIC
621715 MOVE 0-TRUE-77 TO 1-ERROR-IN-SCREEN-FLAG
621720 703-ERR-MSG-83-NBR-IN-RQRD
621725 MOVE 0-ERR-HILITE-CHAR TO FM33-BILL-LIMIT-DELIM-O.
621710 IF FM33-BILL-LIMIT-ERROR-I NOT NUMERIC
621715 MOVE 0-TRUE-77 TO 1-ERROR-IN-SCREEN-FLAG
621720 703-ERR-MSG-83-NBR-IN-RQRD
621725 MOVE 0-ERR-HILITE-CHAR TO FM33-BILL-LIMIT-DELIM-O.
627860 MOVE 0-TRUE-77 TO 12I-ST-DATA-CHANGE-FLG-77.
627880 IF FM33-BILL-LIMIT-I NOT = ST-BILL-LIMIT
627890 MOVE FM33-BILL-LIMIT-I TO ST-BILL-LIMIT
627900 MOVE 0-TRUE-77 TO 12I-ST-DATA-CHANGE-FLG-77.
632365 MOVE FM33-BILL-LIMIT-ERROR-I TO FM33-BILL-LIMIT-ERROR-O.
Date of Correction: 11/16/06 Module: IN
Markid: P7.12 Program Nbr: 002
Description:
Enable scanning of item numbers from bar-coded UPC numbers when using bin maintenance screens.
Note: Requires patch P7.14 for FM/016.
Solution:
106650 COPY "LIBPS/778WS".
572850 COPY "LIBPS/778PD".
Date of Correction: 10/13/06 Module: IN
Markid: P7.11 Program Nbr: 002
Description:
Add edit to PS21 screen to prevent user from entering components if the kit or assembly is already predefined.
Solution:
401970 MOVE "KIT/ASSEMBLY PRE-DEFINED"
401980 TO 703-ERROR-MSG-TABLE-LIT (34).
540910 IF ( PS21-PARENT-ASSEMBLY-FLAG EQUAL 1 OR 2 )
540920 AND ( PS21-NBR-OF-COMPONENTS > ZERO )
540930 MOVE 0-ERR-HILITE-CHAR TO PS21-COMPONENT-NBR-DELIM-O (1)
540940 MOVE 0-TRUE-77 TO 1-ERROR-IN-SCREEN-FLAG
540950 703-ERR-MSG-34-PR-DATA-XIST
540960 ELSE
Date of Correction: 12/19/06 Module: IN
Markid: P7.16 Program Nbr: 012
Description:
Automatic "receipt" of vendor returns is not creating an entry in the II90 audit trails for items that were in suspense.
Solution:
134000 05 635-SUSPENSE-FLAG PIC X.
606650 SUBTRACT 32-QTY-ACCEPTED FROM IW-QTY-N-SUSPENSE
606670 MOVE "Y" TO 635-SUSPENSE-FLAG
606690 PERFORM 635-CREATE-IA THRU 635-CREATE-IA-EXIT.
655077 MOVE "Y" TO 635-SUSPENSE-FLAG
655097 MOVE "Y" TO 635-SUSPENSE-FLAG
956300 IF 635-SUSPENSE-FLAG = "Y"
956370 MOVE SPACES TO 635-SUSPENSE-FLAG.
958500 MOVE IW-ITEM-NUMBER TO IA-ITEM-NUMBER
Date of Correction: 11/16/06 Module: IN
Markid: P7.15 Program Nbr: 012
Description:
Enable scanning of item numbers from bar-coded UPC numbers when using purchasing screens.
Note: Requires patch P7.14 for FM/016.
Solution:
218080 COPY "LIBPS/778WS".
991192 COPY "LIBPS/778PD".
Date of Correction: 10/4/06 Module: IN
Markid: P7.14 Program Nbr: 012
Description:
If a kit is entered on a transfer order and contains some unfilled components, when those components are received they are incorrectly updating the unit price. Price is supposed to be zero on components.
Note: Also recompile OE/010, 011, 030 and 009.
Solution:
LIBPS/711PD
200805 AND RI-ASSEMBLY-CODE = ZERO
Date of Correction: 11/29/06 Module: IN
Markid: P7.11 Program Nbr: 243
Description:
Report is not printing YTD orders. Also, add option to only report on items ordered a minimum number of times.
Solution:
106900 77 0-TOTAL-ORDERS PIC 9(5) COMP VALUE 0.
106950 77 I PIC 99 COMP.
121310 MOVE IW-PTD-ORDERS TO 0-TOTAL-ORDERS.
121320 PERFORM 201-TOTAL-ORDERS VARYING I FROM 1 BY 1
121330 UNTIL I > 13.
121340 IF 0-TOTAL-ORDERS < ATTRIBUTE TASKVALUE OF MYSELF
121350 GO TO 200-READ-NEXT.
121360
123650 MOVE 0-TOTAL-ORDERS TO YTD-ORD-PRT.
127320
127340 201-TOTAL-ORDERS.
127360 ADD IW-PERIOD-ORDERS (I) TO 0-TOTAL-ORDERS.
WFL/IN/TEMPINVSTATUS
00100700 RUN OBJ/IN/243 [IN243]; VALUE = 2; % SET TO MINIMUM NBR OF TIMES
00100720 % ORDERED (BY CUSTS) FOR REPORT
00100740 % INCLUSION
Date of Correction: 12/11/06 Module: IN
Markid: P7.12 Program Nbr: 346
Description:
Add warehouse to top of report.
Solution:
108100 05 COMPANY-NAME-1 PIC X(40).
108120 05 FILLER PIC X(6) VALUE "WHSE:".
108140 05 WHSE-H1 PIC X(4).
317950 MOVE SEL-WHSE TO WHSE-H1.
Date of Correction: 11/1/06 Module: IN
Markid: P7.11 Program Nbr: 605
Description:
IMRENUMBER can abort with duplicates exception on AD-DATA (additional description).
Solution:
240410 MODIFY AD-SET
240415 AT AD-ITEM-NUMBER = NEW-ITEM-NUMBER-WS
240420 ON EXCEPTION
240425 GO TO 7-SKIP-DELETE.
240430 DELETE AD-DATA
240435 ON EXCEPTION
240440 DISPLAY "DELETE PROBLEMS ON AD-DATA".
240600 7-SKIP-DELETE.
Date of Correction: 10/23/06 Module: IN
Markid: P7.11 Program Nbr: 765
Description:
Add last year option to sales by item report. Also, the warehouse and company total PTD GM percentage is incorrect.
Solution:
117650 03 HDG-PTD-1 PIC X(4) VALUE "PTD".
117700 03 FILLER PIC X(8) VALUE "QTY".
117750 03 HDG-PTD-2 PIC X(4) VALUE "PTD".
117800 03 FILLER PIC X(8) VALUE "SALES".
117850 03 HDG-PTD-3 PIC X(4) VALUE "PTD".
117900 03 FILLER PIC X(8) VALUE "PROFIT".
117950 03 HDG-PTD-4 PIC X(4) VALUE "PTD".
118000 03 FILLER PIC X(11) VALUE "GM%".
118050 03 HDG-YTD-1 PIC X(4) VALUE "YTD".
118100 03 FILLER PIC X(8) VALUE "QTY".
118150 03 HDG-YTD-2 PIC X(4) VALUE "YTD".
118200 03 FILLER PIC X(8) VALUE "SALES".
118250 03 HDG-YTD-3 PIC X(4) VALUE "YTD".
118300 03 FILLER PIC X(8) VALUE "PROFIT".
118350 03 HDG-YTD-4 PIC X(4) VALUE "YTD".
118400 03 FILLER PIC X(11) VALUE "GM%".
300800 IF ATTRIBUTE TASKVALUE OF MYSELF > ZERO
300900 MOVE "YTD" TO HDG-PTD-1, HDG-PTD-2, HDG-PTD-3, HDG-PTD-4
301000 MOVE "LY" TO HDG-YTD-1, HDG-YTD-2, HDG-YTD-3, HDG-YTD-4.
324011 IF ATTRIBUTE TASKVALUE OF MYSELF > ZERO
324012 MOVE IW-YTD-SALES TO IW-PTD-SALES