<>√й└ ?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╙$дAП╗$С,сдAШяJCUST╞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э$д Пф,(3------------- all order info is in cgi$Х31000B ╚─се^ШL$$е^Пе^ш╘сфШРе^Пя20ше^сфРфШV/$е^Пе^сфРфШшя/ше^сфРфШшя/ше^сфРфШ`8е^j]t$д_ПфРдjПф╟3^100 LOOP HERE╨$дjПдjэфС дjДфcЩЙЖ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СЖtL81Зсдx╣╘Aсе@wРф(Ш╠ЖPШеyС$еGПяEMAIL:ш╘се@zРфШСЖtP$еvП╘Aсе@lРгпШR[1Зсд╣╘Aсе@─РфШ╠ЖUШе~С$еGПя Division: ше@─СЖtС$еGПя Freight Code:ш╘се@│РфШСЖt≤2дgПфЧфС$еGП╘сеvсдgчфщфРфШРфШСЖtС*дgйK еБяКд<Фг,ЩЙ71сдZ╣еШЁЖЄС$е Пя CTCHAMPIONш╘сфШСLсдZ╣еШЁЖЄ ╨Ж#(╦%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шя N$е3П╘ Рд4П╗#X)$е ПяFEшяFEDEXш╘сф ШРе Пе сфРф Ш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▐$еmП╘Aсе@nРфШ■$еПеmсфРфШС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сд[╣еШЁЖЎ Р8t;3^100 "-------------------DETAIL RECORD WRITE'S COMMENTS~?$еПяРеПяРеПяРдПфРеПяРеПяРеПяРеПя┬ ╘сеGРфШАяЩЙ8▓$д Пд эфС$еП╘(сд Вя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 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Пе>#PI$еQПяAranter doncam marmos shacar root chuck@championlogisticsgroup.com#R? еАяSAMPLEЩЙ-$еQПя%root chuck@championlogisticsgroup.com#S= ╘'ся orderemail╠Ж#TШБяЩЙ$еQПеQшя ш╘'ся 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#x#┌ЪЪ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┌RICDATELЗ