<>$KБ≈ ?3"TIFOMAKE - 05/23/07 - CREATE F/O FROM WEB PAGE FOR TIMBERLAND93------- MULTIPLE VERSIONS OF THIS PROGRAM MAY EXIST ----83------- CHECK FIRST /u/webnew/xxx/wf/pgm/TIFOMAKE ---- *3------ then is /u/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$д{П╗$Ре|ПяJCUSTС,сд{Ше|шя.tplС1сд{Ше}Ссд{ШС,сд{Ше|С е▌Ве}С$дAПд{╞S$д{П╗$Ре|ПяTIMANС,сд{Ше|шя.tplС1сд{Ше}Ссд{ШС,сд{Ше|С еyВе}С$дxПд{╠T$д{П╗$Ре|ПяJBDIVSС,сд{Ше|шя.tplС1сд{Ше}Ссд{ШС,сд{Ше|С е~Ве}С$дПд{Є\#еРеРеРеРеРеРеРе Ре РеРеРе РеРеРеРеРеРеРеРеРеС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╨$дjПдjэфС дjДфгЩЙЖ43^100(Z$еeП╘сеhРяNEWQTYш╘(сдjВя00000Ш╠Ж╟ШРеdП╘Aс╘сеhРяNEWITEMш╘(сдjВя00000ШШРфШ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СЖtK- ╘се@wРфШБяЩЙ$еGПя Manager: ше@wСЖtLK1Зсдx╣╘Aсе@wРф(Ш╠ЖMШеyС ╘се@zРфШБяЩЙ$еGПяEMAIL:ш╘се@zРфШСЖtN$еGПяReq. Carrier: ше@┐СЖtO!$еGПяReq. Arrv Date: ше@└СЖtP$еvП╘Aсе@lРгпШR[1Зсд╣╘Aсе@─РфШ╠ЖUШе~С$еGПя Division: ше@─СЖtС$еGПя Freight Code:ш╘се@│РфШСЖt≤2дgПфЧфС$еGП╘сеvсд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Пе$еПе?сфРфШ&-$еП╘сф щ╗сяTIMше$сфШШШшяTIMше$сфШ0сд╣есфРфШше╞ЖьШ:/$е2П╘сфРфШС$е2Пе2шя С$е2Пе2сфРфШD$еПяRAшя ше2шя I$есф РфШПе@∙С3RCC 3/11/2011N$е3П╘ Рд4П╗#X)$е ПяFEшяFEDEXш╘сф ШРе Пе сфРф Шb$е П╘Aся ше@┐Рф Ш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)qA ╘с╘сеhРяREQARRVDATE╠ЖrШРфШАяASAPЩЙ$еПяASAP СЖ─v┌ е┘Вя M:C(1*=46),D:C(1*=46),Y:C(1*=46)С$е┘Пе@└шя...Рд├П╗с╗се@┤╠ЖxШР╗се@┬╠ЖxШР╗се@┴╠ЖxШ╠ЖxШС$еП╘ сд├Вя %Mz%Dz%YzШ─$еПя1Ре Пя 00 ┼$еПя1С3FREIGHT CHARGE▐$еmП╘Aсе@nРфШ░ $е░ПяС$е░П╘сеhРяPON╠Ж▒Ш■$еП╘Aсе░РфШС3PONUM·$еП╘сфШРеП╘Aсе@oРфШС3SRN╗$еПеmсфРфШС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.#$д▄Пд▄эфС$е█ПяMш╘(сд▄Вя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се@pРфШЛH$е7Пе@qРе8Пе@rРе9П╘AсяРфШРе:П╘Aс╘се@sРфШшя, ше@tшя ше@uРфШ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 #-сдxШ#2%$еOП╘ сфВя%Mz/%Dz/%Y %Hz:%mz:%szШ#<, еАяЩЙ $е>Пе>шяNo BOL Created.СЖ#n#F@$е>Пе>шяORDER ACCEPTED at шеOшя ASSIGNED B/L NUMBER: ше#K$еiПе>#N!$еQПяjitweborders@champlog.com#P> ╗се@▐АяADLRШЩЙ*$еQПя jitweborders_ше@▐шя @champlog.com#Q. е@▐АяLЩЙ!$еQПяlaxweborders@champlog.com#R? еАяSAMPLEЩЙ-$еQПя%root chuck@championlogisticsgroup.com#SQ3IF STBL("orderemail",ERR=9044)<>"" THEN LET ELIST$=ELIST$+" "+STBL("orderemail")#UяDUMPTPLРеhРе┌#Z─$еFПяecho 'Future Order шешя Customer:ше?шя at шеOшр ше┌шя' ' | mailx -s'Web Site Order Customer-ше?шя' шеQ#d$дfП╗сеFШ#n*$еiПеiшя
Order alerts sent to: шеQ#s) ╗сеaАяFHP001/SAMPLE/MHW001/ШЩЙЖ'#}#┌',3--------- RUN THE BACKGROUND COMMIT PROGRAM',$е┼Пя/usr/local/bin/tss.wblcmb "шешя"'$ $д▀П╗се┼шя >/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.ADDRNOTESBUDGET CGI.BUDGET1 CGI.SRN CGI.DEALER_ADD1 CGI.DEALER_ADD2 CGI.DEALER_ADD3 CGI.DEALER_CITY CGI.DEALER_STATE CGI.DEALER_ZIP BOLNOTES CGI.MANAGERTIMANTIMAN TIMAN.EMAILCFTPLJBDIVSJBDIVS CGI.DIV JBDIVS.FREIGHTCODERLIST CGI.CARRIER CGI.REQARRVDATERADRAD1 RAD.Y RAD.M RAD.DAAAMLINEMLINEJCUST JCUST.BUILDING_CODEPONMESS1MESS2PP1 JCUST.BL_FORM_TYPE┌RICDATEwDBL_FORM_TYPE┌RICDATEWя