<>Ö{| 03"PSFOMAKE - 07/30/97 - CREATE F/O FROM WEB PAGE43"Copyright (c) 1997 Transportation Software SystemsÅaòÅbòÅcòÅdòÅeòÅfòÅg(@ö@d3100x$ÄZð¨$ó,ÓÄZûÑJBLFHó32‚$Ä[ð¨$ó,ÓÄ[ûÑJBLFDó33Œ$Ä\ð¨$ó,ÓÄ\ûÑJITEMó34–$Äð¨$ó,ÓÄûÑJCONSó35 $Ä]ð¨$ó,ÓÄ]ûÑCCNVZó37ª$ÄAð¨$ó,ÓÄAûÑJCUST´\#ÅòÅòÅòÅòÅòÅòÅòÅ òÅ òÅ òÅ òÅ òÅòÅòÅòÅòÅòÅòÅòÅòÅó3"JBLFH¾1#ÅòÅòÅòÄòÅòÅòÅòÅó3"JBLFD - I TYPEÈ#ÅòÅó3"JBLFD - TYPE L AND MÒ$ÅðÑJ1òÅPðÅaòÅ?ðÅÛÅPÜ$Ä ðÆè31000B «€ÓÅ^ûL$$Å^ðÅ^Û©ÓÆûòÅ^ðÑ20ÛÅ^ÓÆòÆûV/$Å^ðÅ^ÓÆòÆûÛÑ/ÛÅ^ÓÆòÆûÛÑ/ÛÅ^ÓÆòÆû`8Å^j]t$Ä_ðÆ°3^100 LOOP HERE3^100( ¨ÓÅcûãÆýêö42*$ÅhðÅcÓÆòÆ ûòÅiðÅcÓÆ òÆûòÅcðÅcÓÆûÐ*3^1000 ------ handle the display of ordersä Ä_áÆýê $Ä_ðÆóö ¸ö ä ö°4 3^100 DONEC ÅáÑýêö#(E$ÅdðÅH3^100 "HANDLE MESSAGESI1$ÅGðÑWeb Order ID: ÛÅ@rÛÑ ÛÅ@sÛÑ_ÛÅ@wóötJ$ÅGðÑPhone: ÛÅ@tóötK$ÅGðÑFax: ÛÅ@uóötL$ÅGðÑEmail:ÛÅ@vÛÑ:óötR2ÄyðÆþÆ ó$ÅGð©ÓÅ@zÓÄyÞÆÝÆòÆûòÆûóötó*ÄyÊK ÅâÑëÄ<æÇ,ýê71ÓÄZµÅû³ö´ó$Å ðÑ CTCHAMPIONÛ©ÓÆûóLÓÄZµÅû³ö´ü$ÅeðÅ> ºö#( ¸%3^1000 "SET-UP AND WRITE JBLFH RECORD Ö¨$ÅðÑòÅðÑòÅðÑòÅðÑòÅðÑòÅðÑòÅðÑòÅ ðÑòÅ ðÑòÅ ðÑòÅ ðÑòÅ ðÑòÅðÑòÅðÑòÅðÑòÅðÑòÅðÑòÅðÑòÅðÑòÅðÑòÅðÑ à4#Å%òÄ&òÅ'òÅ(òÅ)òÅ*òÅ+òÅ,òÄ-òÄ.òÅ/òÅ0òÅ1 êÓÄ]µÑ^IÛűö@û³ö à ô$Å$ð©(ÓÄ-÷Ñ ########0û þ $Ä-ðÄ-ÜÆ LÓÄ]µÑ^IÛÅû³ö à  $ÅðÅÛÅ$ $ÅðÅ?ÓÆòÆû &-$Åð©ÓÆ Ý¨ÓÑPSSÛÅ$ÓÆûûûÛÑPSSÛÅ$ÓÆû 0ÓĵÅÓÆòÆûÛůöØû :/$Å2ð©ÓÆòÆûó$Å2ðÅ2ÛÑ ó$Å2ðÅ2ÓÆòÆû D$ÅðÑRAÛÑ ÛÅ2ÛÑ N$Å3ð© òÄ4ð¨# X'$Å ðÑUPÛÑUPSÛ©ÓÆ ûòÅ ðÅ ÓÆòÆ û b($Å ð© ÓÆ÷Ñ %Mz%Dz%YzûÛ©(Ó¨#÷Ñ00.00û lh$Å ðÅ ÓÆòÆûó3 LET DELDATE$=JBPLAN.REQUESTED_DATE$; LET JH$=DELDATE$(4,2)+DELDATE$(6,2)+DELDATE$(2,2) v Å áÑ111111ýê$Å ðÑASAP €$Å ðÑ1òÅ ðÑ 00 Š$Å ðÑ1ó3FREIGHT CHARGE ”$Åð©AÓÅ@ròÆ ûó3PONUM ž$Åð©ÓÆ ûòÅðÅÓÆòÆ ûó3SRN ¨$Åð©AÓÑòÆ ûó3BRK NUM ²!$Åð©ÓÆ ûòÅð©ÓÆ ûòÅð©ÓÆ û ¼LÓÄZµÅû³ö´ Æ$Ä<ðÆ Ð$Ä ðÆòÄ;ðÆ Ú8 ä23^100 "----------------------DETAIL RECORD WRITE'S î?$ÅðÑòÅðÑòÅðÑòÄðÆòÅðÑòÅðÑòÅðÑòÅðÑ øI3LET COMMENT$="ORDERID: "+ORDERID$; GOSUB 4700; REM TURNED OFF 3/4/04 RCC  ©ÓÅhòÆûáÑýê8 $Ä ðÄ ÜÆó$Åð©(ÓÄ ÷Ñ000û $ÅðÅÛÅ$ÛÅÛÑI $ÅðÅhÛ©ÓÆ ûòÅðÅÓÆòÆ û *3"VERIFY ITEM NUMBER 4$Å!ðÅhÛ©ÓÆ ûó$Å!ðÅ!ÓÆòÆ û >$ÄRðÆòÄSðÆ HE1ÓÄ\µÅÛÅÛÅ!¯ö fûõòÅòÅIòõòõòõòÄ=òõòõòõòõòõòõòõòõòÄRòõòõòÄS R´3IF NUM(QTY$)>ONHAND-COMITTED THEN LET REASON$="Item "+ITEM$+" has only "+STR(ONHAND-COMITTED)+" available (not including other recently entered --uncomitted-- orders)!"; GOTO 8200 \ö „ f $Å#ðÑN p? ÄYáÆýê4$ÅTðÑInvalid Item code entered: ÛÅ!ÛÑ
óö  za$ÅðÅÓÆò¨ÓÅûÝÆûÛÑMó$ÅðÑITEM ÛÅ!ÛÑ NOT ON FILE. ORDERED ÛÅ"òÅðÑòÅðÑóö Ô „Q$ÅðÅHó ÅIâÑYýê$Åð©ÓÆ ûóö ¬ô ©ÓÅòÆûáÑýê$ÅðÑ AUTOMATIC óö ¬ Ž*ÓÄJµÅÛÅÛÅ!Ûůö ˜ûõòÄUòõòÄVóö ¢ ˜ƒ$ÅðÅÓÆò¨ÓÅûÝÆûÛÑMó$ÅðÑINVALID LOT SELECTED ITEM:ÛÅ!ÛÑ LOT:ÛÅÛÑ NOT ON FILE. ORDERED ÛÅ"òÅðÑòÅðÑóö Ô ¢»3IF NUM(QTY$)>LONHAND-LCOMITTED THEN LET REASON$="Lot "+ITEM$+CD$+" has only "+STR(LONHAND-LCOMITTED)+" available (not including other recently entered --uncomitted-- orders)!"; GOTO 8300 ¬ $Äð¨ÓÅiû ¶$ÅðÅÛ©ÓÆû À7$ÅðÅÓÆòÆûó3DF$=CVS(A$[15],3)+FILL(6),DF$=DF$(1,6) Ê$Ä<ðÄ<ÜÓÄÞÄ=ûòÄ;ðÄ;ÜÄ ÔLÓÄ[µÅû³ö¾ ò8t;3^100 "-------------------DETAIL RECORD WRITE'S COMMENTS~?$ÅðÑòÅðÑòÅðÑòÄðÆòÅðÑòÅðÑòÅðÑòÅðш ©ÓÅGòÆûáÑýê8’$Ä ðÄ ÜÆó$Åð©(ÓÄ ÷Ñ000ûœ$ÅðÅÛÅ$ÛÅÛÑL¦$ÅðÅGÛ©ÓÆûòÅðÅÓÆòÆû°LÓÄ[µÅûÅò©ÓÅòÆûº8Ø3^100 " ----new consignee codeâ"$Å5ðÅÓÆòÆûÛÅòÅ6ð©AÓÅ@jòÆûìi$Å7ðÅ@kòÅ8ðÅ@lòÅ9ð©AÓÑATTN: Û©ÓÅ@mòÆûÛÑ Û©ÓÅ@nòÆûòÆûòÅ:ð©AÓ©ÓÅ@oòÆûÛÑ, ÛÅ@pÛÑ ÛÅ@qòÆûQLÓĵÅ5ûÅ5òÅ6òÅ7òÅ8òÅ9òÅ:òÑòÑòÑòÑòÅòÑòÑò© ÓÆ÷Ñ %Yz%Mz%Dzû ö :@3 8000 "ERROR ROUTINE"J($Å`ðÑERROR Û©(Ó¨ ûÛÑ AT Û©(Ó¨"ÓÆûûTEó2¤03^100 "---------- remove header and any details®4ÓÄZµÅ¯ö¸û¸1ÓÄ[µÅ¯öÂûÂ$ÅWð©ÓÄ[°öàûó1ÓÆûÌ ÅWÓÆòÆ ûâÅýêöàÖ4ÓÄ[µÅWûóöÂà/$Å>ðÅ>ÛÑ
Order ÛÅÛÑ not accepted
ê8 '3^100 "---------- order not accepted F ÄXáÆýê;$Å>ðÅ>ÛÑ!Possible backorder situation:
ÛÒ ÛÅTóö „ ;$Å>ðÅ>ÛÑ+Sorry. Your order is not being accepted
ÛÅT & ö¤óö : 0K$Å>ðÅ>ÛÑ

INVALID ENTRY


ÛÅ@ÛÑ (Û©(Ó¨ ûÛÑ) at Û©(Ó¨"ÓÆûû :5$Å>ðÅ>ÛÑ)
Please click BACK and fix the problem Dö#x l&3^100 "----- VALIDATE CONSIGNEE CODE vL$Å@ðÑ,MUST HAVE VALID ZIP CODE WITH CONSIGNEE CODEó ©ÓÅ@LòÆûáÑýêö 0 €%$ÅMð©ÓÆ Ý¨Ó©ÓÅ@KòÆûûûÛ©ÓÅ@KòÆû Š°$Å@ðÑINVALID CONSIGNEE CODE: Û©ÓÅMûóÓĵÑJ1ÛÅM±ö 0ûÅ5òÅ6òÅ7òÅ8òÅ9òÅ:òÅNó$Å@ðÑ0ZIP CODE DOESN'T MATCH ZIP ON FILE FOR CONSIGNEEó ©ÓÅ@LòÆûâ©ÓÅ:òÆûýêö 0 ”)$Å@BðÅ6òÅ@CðÅ7òÅ@DðÅ8òÅ@EðÅ9ÛÑ ÛÅ: žö ¸#(39000 #2%$ÅOð© ÓÆ÷Ñ%Mz/%Dz/%Y %Hz:%mz:%szû#<, ÅáÑýê $Å>ðÅ>ÛÑNo BOL Created.óö#n#F@$Å>ðÅ>ÛÑORDER ACCEPTED at ÛÅOÛÑ ASSIGNED B/L NUMBER: ÛÅ#P($ÅQðÑ ranter doncam marmos stegre root#Z­$ÅFðÑecho 'Future Order ÛÅÛÑ Customer:ÛÅ?ÛÑ at ÛÅOÛÑ^ ' | mailx -r 'do-not-reply@champlog.com (Champion Reports Whse)' -s'Web Site Order Customer-ÛÅ?ÛÑ' ÛÅQ#d $Äxð¨ÓÅFû#x#‚ÿÿLINEJCONSAHBHCHDHEHFHGHHHIHJHKHLHMHNHOHPHQHRHSHTHUHADBDCDDQDDDNETDEDFCLINEITEMQTYONFILEBLNOA7A7B8C8D8E8F8G8B8C8H8I8J8OPCDTEMPTEMP2JCONS1JCONS2JCONS3JCONS4JCONS5JCONS6BLPCS BLWEIGHTCURWGTTEXTACUSTEJCUST CGI.CONS1 CGI.CONS2 CGI.CONS3 CGI.CONS4ACOMMENTLOTLOTTEDJILOT CGI.CONSCODE CGI.CONSZIP CONSCODEJCONS7 ORDERTIMECUST1ELISTONHAND COMITTEDREASONLONHAND LCOMITTEDK3ORDERAVAILONLYVALIDITEMSONLYJBLFHJBLFDJITEMCCNVZYY DOHEADER ERRMESSAGEWFCUSTORHUITEMSBOLBOL1BOL2BOL3DOITEMDOQTY ORH.STORE ORH.ADDR1 ORH.ADDR2 ORH.NAMEF ORH.NAMEL ORH.CITY ORH.STATE ORH.ZIP ORH.ORDERCODE ORH.SID ORH.PHONE ORH.FAX ORH.EMAIL ORH.SEQDUMMYCOMM ORH.SHIPINS‚RICDATEº°TATE ORH.ZIP ORH.ORDERCODE ORH.SID ORH.PHONE ORH.FAX ORH.EMAIL ORH.SEQ‚RICDATE?þder ÛÅÛÑ not accepted
ê8 '3^100 "---------- order not accepted F ÄháÆýê;$ÅMðÅMÛÑ!Possible backorder situation:
ÛÒ ÛÅdóö „ ;$ÅMðÅMÛÑ+Sorry. Your order is not being accepted
ÛÅd & ö¤óö : 0K$ÅMðÅMÛÑ

INVALID ENTRY


ÛÅOÛÑ (Û©(Ó¨ ûÛÑ) at Û©(Ó¨"ÓÆûû :5$ÅMðÅMÛÑ)
Please click BACK and fix the problem Dö#x l&3^100 "----- VALIDATE CONSIGNEE CODE vL$ÅOðÑ,MUST HAVE VALID ZIP CODE WITH CONSIGNEE CODEó ©ÓÅ@[òÆûáÑýêö 0 €%$Å\ð©ÓÆ Ý¨Ó©ÓÅ@ZòÆûûûÛ©ÓÅ@ZòÆû Š°$ÅOðÑINVALID CONSIGNEE CODE: Û©ÓÅ\ûóÓĵÑJ1ÛÅ\±ö 0ûÅ5òÅ6òÅ7òÅ8òÅ9òÅ:òÅ]ó$ÅOðÑ0ZIP CODE DOESN'T MATCH ZIP ON FILE FOR CONSIGNEEó ©ÓÅ@[òÆûâ©ÓÅ:òÆûýêö 0 ”)$Å@QðÅ6òÅ@RðÅ7òÅ@SðÅ8òÅ@TðÅ9ÛÑ ÛÅ: žö ¸#(39000 #2%$Å^ð© ÓÆ÷Ñ%Mz/%Dz/%Y %Hz:%mz:%szû#<, ÅáÑýê $ÅMðÅMÛÑNo BOL Created.óö#n#F@$ÅMðÅMÛÑORDER ACCEPTED at ÛÅ^ÛÑ ASSIGNED B/L NUMBER: ÛÅ#Pt$ÅaðÑ'ranter doncam marmos jenriv stegre rootó ¨ÓÅNáÑJ1SOL001*J1SOL002*J1SOL003ûýê$ÅaðÑstegre cinzim root#Zv$ÅUðÑecho 'Future Order ÛÅÛÑ Customer:ÛÅNÛÑ at ÛÅ^ÛÑ' ' | mailx -s'Web Site Order Customer-ÛÅNÛÑ' ÛÅa#d3LET DUMMY=SCALL(A$)#nE$ÅMðÅMÛÑ9
Back to List#x#‚ÿÿLINEJCONSAHBHCHDHEHFHGHHHIHJHKHLHMHNHOHPHQHRHSHTHUHADBDCDDQDDDNETDEDFCLINEITEMQTYONFILEBLNOA7A7B8C8D8E8F8G8B8C8H8I8J8OPCDTEMPTEMP2JCONS1JCONS2JCONS3JCONS4JCONS5JCONS6JBLAFBLPCS BLWEIGHTCURWGTAC1AC2AC3AC4AC5AC6AC7AC8AC11AC12AC13AC14AC9AC10TEXTACUSTEJCUST CGI.CONS1 CGI.CONS2 CGI.CONS3 CGI.CONS4ACOMMENTLOTLOTTEDJILOT CGI.CONSCODE CGI.CONSZIP CONSCODEJCONS7 ORDERTIMEDELDATECUST1ELISTONHAND COMITTEDREASONLONHAND LCOMITTEDK3ORDERAVAILONLYVALIDITEMSONLYJBLFHJBLFDJITEMCCNVZJBPLAN JBPLANTPLJBPLANJBITEM JBITEMTPL JBDEALERS JBDEALERSTPL JBDEALERSH DFORM3HEADERTDDH ADMINONLYWFCGI1WFCGIYY JBDEALERS.DEALER_ADD1 JBDEALERS.DEALER_ADD2 JBDEALERS.DEALER_ADD3 JBDEALERS.DEALER_ADD4 JBDEALERS.DEALER_CITY JBDEALERS.STATENUM JBDEALERS.DEALER_ZIP H.RIC H.ORDERIDLINKSTDDTRTDDR H.QTYTROC JBSTATENUMSFTPL JBSTATENUMSDEALERSTATECODE JBDEALERS.DEALER_STATE JBSTATENUMS.STATE JBDEALERS.DEALER DOHEADERORDERID JBITEM.ITEM_NO ERRMESSAGEJBITEM JBITEM.RICDESC H.BOLKEY H.STATUSCGI JBPLAN.DEALER JBPLAN.REQUESTED_DATE ORDERLISTPDOORDER JBDEALERS.LASTDEALERCODE JBADDRESS JBADDRESS OVERRIDENOTENOTE SHIPNOTESOTHER1 JBDEALERS.ADDRNOTESCOUNTRY JBDEALERS.DEALER_COUNTRY LTLWEIGHT H.REQUESTED_DATEJH1 JBDEALERS.ABPHONE JBDEALERS.ABCONTACT JBDEALERS.JBPHONE JBDEALERS.JBCONTACT JBDEALERS.PWPHONE JBDEALERS.PWCONTACT €WRITEJBLAF‚RICDATEwyyLERS.ABPHONE JBDEALERS.ABCONTACT JBDEALERS.JBPHONE JBDEALERS.JBCONTACT €WRITEJBLAF‚RICDATEwÌ.DEALER_ADD2 JBDEALERS.DEALER_ADD3 JBDEALERS.DEALER_ADD4 JBDEALERS.DEALER_CITY JBDEALERS.STATENUM JBDEALERS.DEALER_ZIP H.RICLINKLOG H.ORDERID LINKTRANSFER LINKMANAGERLINKSTDDDFORMTRTDDR H.QTY JBITEMREC.RICDESCTRO‚GETREC€GOTPOS€LOOP1 €WRITEJBLAF‚RICDATE‚RICS