<> >3WARDE6W - HANDLE UPDATED TO INVENTORY FROM JARDE WEB RECEIPTS@@4 " &$|AJ1RTFC001TFC119375 |}($~$,~JARHE3130-$$,JARDE2D$$,JITEM$$,JILOT$$,JSLOT<D$$,JIACT$$,CCNVZ$$,JCUST>-$$,JILDT$$,JLSRTF1~|HPH"$}JARHE NOT FOUND: |U PP3" 3.JARHE, 4.JARDE, 5.JITEM, 6.JILOT 7.CCNVZ 8.JCUST 9.JIACT 10.JSLOT 13.JIOCT Z#U#d#U# n #xU#4# !"#$%&'()*7U#+,-./01234567[U#89:;<=>?@ABCDEFGHIJKLM?U#NOPQRSTUVWXYZ[\,#]^_`abcdefg4 h($hhhWARDE6U$}}STARTING UDPATE\*iiii o( 1 3"GET DETAIL"1UU$jU 1jU U jU ( jEjMU $ k$5533/3"UPDATE JITEM"-"$l++,, l AC U6lU U@$GG35HH5JLlU UT0$89;BFL^ :NU hU 3L3000 "UPDATE JILOT(6)r $ml-|mU U UU.U $m> $n" 7$n73 RCC 8/20/92C$ dnnoݨ66F$(>####.000۩(#####.003LOT WEIGHT CREATEFU$355 $۩ݨ* 7$77oݨ7F$(>####.000۩(#####.003LOT WEIGHT UPDATEGU3 LET Z=NUM(F4$(9,8),ERR=L3060); IF Z<>0 THEN LET B6$(22,8)=F4$(9,8)ULmU UU3L3100"UPDT JILDT(16)$pl۫-LpUU &U3L3200"UPDT JLSRT(C) (26)0 dCU : :YU D.$qCl--- Nl$r-s ABCDEFGHIJ r0r9-$rsӨr 0123456789X.$qClrr- bLqUl U$qvU 3L3500"UPDT JSLOT B $B * - $--o ݨ-* 6$66oݨ6$tl-6W$t ""B tUU U@U$vRA35+ *H k $ARW$w$x% wy#U3 rcc 10/5/L100summ JIACT recs\ULvU Uf1$ywzx3save copy of rec for comparisonp 5UzU$vRD5LvU USU$NPQRSTUVWXU9U3--------- SUMMARIZE LIKE TRANSACTIONS IN JIACT ------)$u(z#####0vv$u3UvUU$35LU$${[^HU [{ $[[=L^HU3Possible somebody got & got next$x%3GOTTA CHANGEUU3ERR=11 AT L5530U 3"ERROR RTN"@ U 3L9000"END5WARDAL3--------- THIS SENDS THE EMAIL ALERTS$3IF R9=1 THEN RUN "WARDE3". 3RUN "WARDE1"8#(@3ERRORST8$ERROR ۩(Ө  AT ۩(Ө" IN ۩#E2#( 3OUTTA HERE#"~#"&u03--------------- Y2K FUNCTIONSu:3 YYMMDD TO CCCCMMDDuD uH$19uI0 'Y2KSLIDE$20uL8uM]u3yymmdd$ to julian numericu u$19u0 'Y2KSLIDE$20u$$uu5$Өu8u]u3yymmdd (numeric) to ccccmmdd$v v$19۩(000000v0 'Y2KSLIDE$20vH8vR]y y"*$ $ y,)$03SET TO "9" OR ":"y68yr]y|  y0$lӨ0 ܨy$(y8y4]3above does :01030 = 20001030 or 991231=19991231A6A6B6C6D6E6B6F6A10B10A10B10C10D10E10F10A1A1B1C1D1E1B1F1A2B2A2C2D2E2A3B3C3D3E3F3G3H3I3J3K3A3L3A4B4C4D4A4B4C4D4E4F4G4E4F4A5B5C5D5C5D5E5F5G5H5F5G5I5J5H5K5L5M5N5O5I5Q5A7A7B7C7D7E7F7G7H7I7J7B7C7D7L7A8B8C8D8E8F8G8H8I8J8E8XZK4R9K5K6E33Z8K16K26CC4KKKK10T2K2LJLJLJ1LJ1D77JKTEXTJARHEJARDEJITEMJILOTJSLOTJIACTCCNVZJCUSTJILDTJLSRT ERRMESSAGEYYYYYYYUNKNOWNL36L40L52L54L55L57L100AL1000L9000L8000L3500L3000L3024L3030L3050L3060L3100L3200L3270L3544L4000L4020L4062L5500L4070L4080L5530L5900Y2KAY2K1Y2K2Y2KBZY2KBAU)"REDConsole, Retry, or Exit WHITE& CcRrEeFfSsDdVv?U)/POP? Ff*/WINDOWP_fids/POP9 Ee ;CUTSA0 Dd$ dump/۩(000H$$,E/RBWINDOW (BRDEFAULTCSERRED  Dump CompleteWHITEK/POPU'@ Vv+/WINDOWP/CSE/POPU' Rr9 Sso$ө#Ө"/WINDOWPStatement displayBRDEFAULTCS"/POPU'$ ?3IF POS(STRVAR$="?")<>0 THEN CALL "_err",ERRNUMBER; GOTO L2031093Correct the error, then type RUN to resume the program9EU(3-----------------CRITICAL UPDATE NO EXIT-------------------------":U*"REDConsole or Retry WHITE,!  CcRrFfSsDdU*6/POP@ Rr9JB Ff-/WINDOWP_fids/POPU'T@ Vv+/WINDOWP/CSE/POPU'^ Sso$ө#Ө"/WINDOWPStatement displayBRDEFAULTCS"/POPU'h Dd$ dump/۩(000H$$,E/RBWINDOW (BRDEFAULTCS  Dump CompleteK/POPU'r93Correct the error, then type RUN to resume the program|9C3--------------------INTERRUPT (ESCAPE) HANDLING ------------------UAU+?/RBWINDOW Escape DetectedBRDEFAULTCS ~U,1U-"Do you wish to quit?  NnYyCcU-/POPAU Yy ;CUTSA0 Nn88/U,"No interrupt allowed! CcU,AU&/POP Cc80:U+8u03--------------- Y2K FUNCTIONSu:3 YYMMDD TO CCCCMMDDuD /uH$19uI0 'Y2KSLIDE$20uL8uM]u3yymmdd$ to julian numericu 0u$19u0 'Y2KSLIDE$20u$$uu5$Өu8u]u3yymmdd (numeric) to ccccmmdd$v 0v$19۩(000000v0 'Y2KSLIDE$20vH8vR]y .y"*$ $ y,)$03SET TO "9" OR ":"y68yr]y| 1y0$lӨ0 ܨy$(y8y4]3above does :01030 = 20001030 or 991231=19991231A6A6B6C6D6E6B6F6A10B10A10B10C10D10E10F10A1A1B1C1D1E1B1F1A2B2A2C2D2E2A3B3C3D3E3F3G3H3I3J3K3A3L3A4B4C4D4A4B4C4D4E4F4G4E4F4A5B5C5D5C5D5E5F5G5H5F5G5I5J5H5K5L5M5N5O5I5Q5A7A7B7C7D7E7F7G7H7I7J7B7C7D7L7A8B8C8D8E8F8G8H8I8J8E8XZK4R9K5Q0K6E33Z8ZK16K26CC4KKKK10T2K2LJLJLJ1LJ1D77 CRITICALSTRVAR STATEMENTWHOAMINEXTONE NEXTINDEX DUMP_FILE ERRNUMBERYYYYYYYERRTRAP INTERRUPTL10L36L40L52L54L55L57L100AL1000L9000L8000L3500L3000L3024L3030L3050L3060L3100L3200L3270L3544L4000L4020L4062L5500L4070L4080L5530L5900L9990L20240L20150L20070L20080L20160L20170L20310L20460L20330L20470L20920L20870L20790Y2KAY2K1Y2K2Y2KBȫ