<> ╡ф▄ ;3"NIKEFOMAKE - 05/23/07 - CREATE F/O FROM WEB PAGE FOR NIKE93------- MULTIPLE VERSIONS OF THIS PROGRAM MAY EXIST ----83------- CHECK FIRST /u/webnew/xxx/wf/pgm/TIFOMAKE ---- .3------ then is /u/whp/tss/PGM/TIFOMAKE ----43"Copyright (c) 1997 Transportation Software SystemsеaРеhРе}Ре┐РеiРеc(@Ж@d3100x$дZП╗$С,сдZШяJBLFHС32┌$д[П╗$С,сд[ШяJBLFDС33▄$д\П╗$С,сд\ШяJITEMС34√$дП╗$С,сдШяJCONSС35═$д]П╗$С,сд]ШяCCNVZС37╙S$дtП╗$РеuПяJCUSTС,сдtШеuшя.tplС1сдtШеvСсдtШС,сдtШеuС е|ВеvС$дAПдtЄ\#еРеРеРеРеРеРеРе Ре РеРеРе РеРеРеРеРеРеРеРеРеС3"JBLFHЎ1#еРеРеРдРеРеРеРеС3"JBLFD - I TYPEх#еРеС3"JBLFD - TYPE L AND Mр$еПяJ1РеPПеaРе?ПешеPв1ЗсдA╣е?Ше|э$д Пф,(3------------- all order info is in cgi$Х31000B ╚─се^ШL$$е^Пе^ш╘сфШРе^Пя20ше^сфРфШV/$е^Пе^сфРфШшя/ше^сфРфШшя/ше^сфРфШ`8е^j]t$д_ПфРдjПф╟3^100 LOOP HERE╨B$д─П╗ср Ае┐ШС д─АфЩЙЖ4Т$е└Пе┐сфРд─ШРе┐Пе┐сд─эфШн2 е┘Вя*ITEM:C(1*=124),LOT:C(1*=124),QTY:N(1*=124)ь$е┘Пе└3^100(*$еeП╘(сд@├ШРеdП╘Aсе@┤РфШРе┬П╘Aсе@┴Рф Ш2" ╗сеeШЦфЛ╘сеdРфШАяЩЙЖ╟п*3^1000 ------ handle the display of ordersД д_АфЩЙ$д_ПфСЖ╦ЖДЖ╟4 3^100 DONEC еАяЩЙЖ#(E$еbПеH3^100 "HANDLE MESSAGESI)$еGПяWeb Order By: ш╘'сяULOGINШСЖtJ$еGПяPhone: ше@kСЖtP$еsП╘Aсе@lРгпШ≤2дgПфЧфС$еGП╘сеsсдgчфщфРфШРфШСЖtС*дgй~3 IF AH$<>"" AND BLWEIGHT>=300 THEN READ (JBLFH,KEY=AH$)IOL=0180; LET HH$="CTCHAMPION"+FILL(22); WRITE (JBLFH,KEY=AH$)IOL=0180ЭЖю ╨Ж#(╦%3^1000 "SET-UP AND WRITE JBLFH RECORDж╗$еПяРеПяРеПяРеПяРеПяРеПяРеПяРе ПяРе ПяРеПяРеПяРе ПяРеПяРеПяРеПяРеПяРеПяРеПяРеПяРеПяРеПяЮ4#е%Рд&Ре'Ре(Ре)Ре*Ре+Ре,Рд-Рд.Ре/Ре0Ре1Йсд]╣я^Iше╠Ж@ШЁЖЮТ$е$П╘(сд-Вя ########0ШЧ$д-Пд-эфLсд]╣я^IшеШЁЖЮ$еПеше$$еcПе$еПе?сфРфШ&-$еП╘сф щ╗сяWEBше$сфШШШшяWEBше$сфШ0сд╣есфРфШше╞ЖьШ:/$е2П╘сфРфШС$е2Пе2шя С$е2Пе2сфРфШD$еПяRAшя ше2шя I$есф РфШПе@┌С3RCC 3/11/2011N$е3П╘ Рд4П╗#X$$е Пя ше@┼ш╘сф ШРе Пе сфРф Шc& ╗сяFEDEXАе ШЩЙ$е сфРфШПяFEd ╗с╘се сфШРфШАя>UP**UPS**U.P.S.**U P S**UNITED PARCEL**UNITED PARCEL SERVICE**ШЩЙ&$е сфРфШПяUPРе сфРфШПяU.P.S.f& ╗сяCHAMPАе ШЩЙ$е сфРфШПяCTg($е П╘ сфВя %Mz%Dz%YzШш╘(с╗#Вя00.00Шlh$еП╘Aсе РфШС3 LET DELDATE$=JBPLAN.REQUESTED_DATE$; LET JH$=DELDATE$(4,2)+DELDATE$(6,2)+DELDATE$(2,2)q$еПяASAP ─$еПя1Ре Пя 00 ┼$еПя1С3FREIGHT CHARGE░$е}Пе}С3FROM ENTER LIST$■$еП╘Aсе}РфШС3PONUM·$еП╘сфШС3SRN╗$еП╘сфШС3BRK NUM╡!$еП╘сф ШРеП╘сфШРеП╘сфШ╪LсдZ╣еШЁЖЄф$д<Пфп$д ПфРд;Пфз8Д23^100 "----------------------DETAIL RECORD WRITE'SН?$еПяРеПяРеПяРдПфРеПяРеПяРеПяРеПяЬI3LET COMMENT$="ORDERID: "+ORDERID$; GOSUB 4700; REM TURNED OFF 3/4/04 RCC ╘сеdРфШАяЩЙ8 $д Пд эфС$еП╘(сд Вя000Ш $еПеше$шешяI $еПеdш╘сфШРеПесфРфШ *3"VERIFY ITEM NUMBER 4$е!Пеdш╘сфШС$е!Пе!сфРфШ >$д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 ╛$дП╗сеeШ І$еПеш╘сфШ ю7$еПесфРфШС3DF$=CVS(A$[15],3)+FILL(6),DF$=DF$(1,6) й$д<Пд<эсдчд=ШРд;Пд;эд тLсд[╣еШЁЖЎ Р8=3^100 "------------------ write the bottom comment "M" lines?$еПяРеПяРеПяРдПфРеПяРеПяРеПяРеПя$ ╘сеGРфШАяЩЙ8.#$дzПдzэфС$е{ПяMш╘(сдzВя00Ш8$еПеше$ше{шяMB$еП╘AсеGРф<ШLLсд[╣еШеР╘сеРфШj8t;3^100 "-------------------DETAIL RECORD WRITE'S COMMENTS~?$еПяРеПяРеПяРдПфРеПяРеПяРеПяРеПя┬ ╘сеGРфШАяЩЙ8┼ ╗с╘сеGРфШШДфЩЙЖ▓$д Пд эфС$еП╘(сд Вя000Ш°$еПеше$шешяLі$еПеGш╘сфШРеПесфРфШ╟Lсд[╣еШеР╘сеРфШ╨8ь3^100 " ----new consignee codeБ"$е5ПесфРфШшеРе6П╘Aсе@mРфШЛH$е7Пе@nРе8Пе@oРе9П╘AсяРфШРе:П╘Aс╘се@pРфШшя, ше@qшя ше@rРфШQLсд╣е5Ше5Ре6Ре7Ре8Ре9Ре:РяРяРяРяРеРяРяР╘ сфВя %Yz%Mz%DzШ Ж:ю!3----- BOTTOM COMMENTS FOR ZUZATZйяWBLPMESSРеРе~Рет5 е~АяЩЙЖТ$д─Пф<С д─Д╗се~ШЩЙ$д─П╗се~Шч*$д│П╗ся\Ае~сфРд─ШШС д│ЩЙ$д─Пд│Х $еGПе~сфРд─ШРе~Пе~сд─эфШР- еGс╗сеGШШАя\ЩЙ$еGПеGсфР╗сеGШщфШЭЖЖт8@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: ше#K$еiПе>#P$еQПяjitweborders#R-$еQПя%root chuck@championlogisticsgroup.com#S= ╘'ся orderemail╠Ж#TШБяЩЙ$еQПеQшя ш╘'ся orderemailШ#UяDUMPTPLРеhРеw#ZЇ$еFПяecho 'Future Order шешя Customer:ше?шя at шеOшр шеwшя^ ' | mailx -r 'do-not-reply@champlog.com (Champion Reports Whse)' -s'Web Site Order Customer-ше?шя' шеQ#d$дfП╗сеFШ#n*$еiПеiшя
Order alerts sent to: шеQ#▄)сдZШСсд[ШСсд\ШСсдШСсд]ШСсдAШ',3--------- RUN THE BACKGROUND COMMIT PROGRAM',$еxПя/usr/local/bin/tss.wblcmb "шешя"'$ $дyП╗сеxшя >/dev/null 2>&1Ш'jЪЪLINEJCONSAHBHCHDHEHFHGHHHIHJHKHLHMHNHOHPHQHRHSHTHUHADBDCDDQDDDNETDEDFCLINEITEMQTYONFILEBLNOA7A7B8C8D8E8F8G8B8C8H8I8J8OPCDTEMPTEMP2JCONS1JCONS2JCONS3JCONS4JCONS5JCONS6BLPCS BLWEIGHTCURWGTTEXTACUSTEJCUST CGI.CONS1 CGI.CONS2 CGI.CONS3 CGI.CONS4ACOMMENTLOTLOTTEDJILOT CGI.CONSCODE CGI.CONSZIP CONSCODEJCONS7 ORDERTIMECUST1ELISTONHAND COMITTEDREASONLONHAND LCOMITTEDK3ORDERAVAILONLYVALIDITEMSONLYJBLFHJBLFDJITEMCCNVZYY DOHEADERERRMESSAGEWFCUSTBOLBOL1DOITEMDOQTYDUMMYCOMMCGIRESULT1DOITEM CGI.DEALER_PHONE CGI.ADDRNOTES CGI.DEALER_ADD1 CGI.DEALER_ADD2 CGI.DEALER_ADD3 CGI.DEALER_CITY CGI.DEALER_STATE CGI.DEALER_ZIP BOLNOTESCFTPLRLISTAAAMLINEMLINEJCUSTPONMESS1MESS2PP1 JCUST.BL_FORM_TYPEILISTILIST1IREC IREC.QTY IREC.ITEMDOLOT IREC.LOT CGI.CARRNAME┌RICDATEz≥