<>&÷"9≤ -3"EDWEB - 07/30/97 - CREATE F/O FROM WEB PAGE43"Copyright (c) 1997 Transportation Software Systems<B3"FILES 1-TRANSFER FILE?,2-JBLFH,3-JBLFD,4-JITEM,6-PRINTER,7-CCNVZBC 3GOTO 8800D@Ж@F>$д┼ПфС3switch to 1 to only allow web orders for avail stockH$д▀ПфI ╗сяA,Ае▄шя,ШЩЙ$д┼ПфJ ╗сяV,Ае▄шя,ШЩЙ$д▀ПфK 3 SRN,consname,addr1,city,st,zipL ╗сяSAMPLEАеsШДфЩЙЖPM2,сфdЇяO_CREATE,O_TRUNCШя/u/whp/webnew/cgi1.tplNLсфdШ╘ сеsШOсфdШQ ╚─сеШR* есфРфШБр"ЩЙ$дП╗ся,АеШСU─S$дП╗ср"АесфШШT$дП╗ся,АесдэфШШU$дПдэдVU─W$дПдX$еПесфРдщфШY;U─$дП╗ср"АеШС дЩЙ$есдРфШПя С дЩЙU─Z$еП╘сеРфШ[6 есдРфШАр"ЩЙ$еПесдэфШТ$еПесдэфШ\8е]]b есфPРя-Шc еАяЩЙ есф(Шd"3"PRINT SCREEN AND PROMPT FOR FILEэсфШСсфШСсфШС,сфШяJBLFHФ ,сфШяJBLFDП ,сфШяJITEMЯ$дnПф7С,сф7ШяJILOTР8$дDПфС,сдDШяJBLAFС3FUTURE ORDER ACCESSORIAL CHARGESС.3LET NOMALINES=67; OPEN (NOMALINES)"NOMALINES"УсфШЗ$дПфС,сдШяJCONS сфШ ,сфШяCCNVZ$д[ПфLС,сд[ШяJCUST@\#еРе Ре РеРеРе РеРеРеРеРеРеРеРеРеРеРеРеРеРеРеС3"JBLFHJ1#еРеРеРд Ре!Ре"Ре#Ре$С3"JBLFD - I TYPEK#еРе!С3"JBLFD - TYPE L AND M├ $е%ПяJ1▀$д&ПфХ3"BEGIN PROCESSМ$д'ПфZРе(ПяYО$е)ПяП$е│Пе▒Р$еYПе%ше│Э=$еZПяINVALID CUSTOMER CODEС1сд[╣еY╞Ж!4ШУРе\РУРУРУРУРе▓Ч $еqПяС ╘се@oРфШБяЩЙЖ!Э1$еZПяINVALID CONSIGNEEС ╘се@aРфШАяЩЙЖ!41$еZПяINVALID CONSIGNEEС ╘се@bРфШАяЩЙЖ!41$еZПяINVALID CONSIGNEEС ╘се@cРфШАяЩЙЖ!41$еZПяINVALID CONSIGNEEС ╘се@dРфШАяЩЙЖ!4I3LET E$="INVALID QTY"; IF NUM(CVS(CGI.QTY1$,3),ERR=8500)=0 THEN GOTO 8500>3LET E$="INVALID ITEM"; IF CVS(CGI.ITEM1$,3)="" THEN GOTO 8500ЖpС3create headers3LET ITEM$=CGI.ITEM1$+FILL(12),ITEM$=ITEM$(1,12),LOT$=CGI.LOT1$+FILL(10),LOT$=LOT$(1,10),QTY$=CGI.QTY1$; GOSUB 6500s3LET ITEM$=CGI.ITEM2$+FILL(12),ITEM$=ITEM$(1,12),LOT$=CGI.LOT2$+FILL(10),LOT$=LOT$(1,10),QTY$=CGI.QTY2$; GOSUB 6500s3LET ITEM$=CGI.ITEM3$+FILL(12),ITEM$=ITEM$(1,12),LOT$=CGI.LOT3$+FILL(10),LOT$=LOT$(1,10),QTY$=CGI.QTY3$; GOSUB 6500 s3LET ITEM$=CGI.ITEM4$+FILL(12),ITEM$=ITEM$(1,12),LOT$=CGI.LOT4$+FILL(10),LOT$=LOT$(1,10),QTY$=CGI.QTY4$; GOSUB 6500$ дrПфЧф&6$е*П╘сеsРяITEMш╘(сдrШ╠ЖBШш╘сфШРе*Пе*сфРфШ(5$еlП╘сеsРяLOTш╘(сдrШ╠ЖBШш╘сф ШРеlПеlсфРф Ш*$е+П╘сеsРяQTYш╘(сдrШ╠ЖBШ, ╗се+ШЦфЩЙЖB.ЖdB*дrD5 дEАфЩЙ*$еZПяNO VALID ITEMS/QTYSС4сф╣еШСЖ!4Q 3LET L=L+1` 3GOTO 1010╟ $еhПе@iСЖ░╨ $еhПе@jСЖ░д $еhПе@kСЖ░н $еhПе@tСЖ░ь $еhПе@uСЖ░Б $еhПе@vСЖ░Л $еhПе@wСЖ░Ж $еhПе@xСЖ░ $еhПе@yСЖ░ $еhПе@zСЖ░ $еhПе@{СЖ░ $еhПе@|СЖ░lЖ#(┬ 3"END OF FILEьЖdБЖ%p3"SET-UP AND WRITE JBLFH RECORDq╗$еПяРе ПяРе ПяРеПяРеПяРе ПяРеПяРеПяРеПяРеПяРеПяРеПяРеПяРеПяРеПяРеПяРеПяРеПяРеПяРеПяРеПяu4#е.Рд/Ре0Ре1Ре2Ре3Ре4Ре5Рд6Рд7Ре8Ре9Ре:└сф╣я^Iше%╠Ж#(ШЁЖu▌$е-П╘(сд6Вя ########0Ш≤$д6Пд6эф╒Lсф╣я^Iше%ШЁЖu╛$еПе%ше-І$е ПеYсфРфШ╩ еqБяЩЙ $е ПеqСЖеа-$е П╘сф щ╗сяWEBше-сфШШШшяWEBше-сфШбсд╣есфРфШше ╞Ж╪Ше/$е;П╘сфРфШС$е;Пе;шя С$е;Пе;сфРфШй$еПяRAшя ше;шя0т$е<П╘ Рд=П╗#ы$$еПя ше@]ш╘сф ШРеПесфРф Шш ╗с╘сесфШРфШАя>UP**UPS**U.P.S.**U P S**UNITED PARCEL**UNITED PARCEL SERVICE**ШЩЙ&$есфРфШПяUPРесфРфШПяU.P.S.ч($еП╘ сфВя %Mz%Dz%YzШш╘(с╗#Вя00.00ШЦП$еПесфРфШС$е─П╘с╘сеsРяDELDATEШРфШС ╗се─ШЦф ЩЙ7$еZПя)INVALID DELIVERY DATE FORMAT (MM.DD.YYYY)СЖ!4Т$еZПяINVALID DATEС$д┌П╗с╗се─сфРфШШР╗се─сфРфШШР╗се─сфРфШШ╠Ж!4ШРеZПяРеПе─сфРфШше─сфРфШше─сф РфШР$еПя1РеПя 00 Т$еПе@~шя1РеПесфРфШЭ$еПе@^ш╘сфШРеПесфРфШ$еПе@_ш╘сфШРеПесфРфШ$еПе@`ш╘сфШРеПесфРфШ!$еП╘сф ШРеП╘сфШРеП╘сфШC е АяPUR001ЩЙ1$еПя123RD PARTY BILL-TOш╘сф ШРеПесфРф ШU есфРфШАя5ЩЙA$есфРфШПя1РеПя123RD PARTY BILL-TOш╘сф ШРеПесфРф Ш▓ Lсф╣еШЁЖ@■$дFПф≈$д&ПфРдEПф⌡8d3"DETAIL RECORD WRITE'Si?$еПяРеПяРеПяРд ПфРе!ПяРе"ПяРе#ПяРе$Пяk ╘се*РфШАяЩЙ8n$д&Пд&эфС$еП╘(сд&Вя000Шx$еПе%ше-шешяI┌$еПе*ш╘сфщ╗се*ШШ▄3"VERIFY ITEM NUMBER √$е*Пе*ш╘сфШС$е*Пе*сфРфШ≤$д└ПфРд┘Пф═D1сф╣е%ше ше*╞Ж╙ШУРе!РеmРУРУРУРдGРУРУРУРУРУРУРУРУРд└РУРУРд┘╔░ ╗се+ШДд└щд┘ЩЙ|$е├ПяItem ше*шя has only ш╘(сд└щд┘ШшяH available (not including other recently entered --uncomitted-- orders)!СЖ lіЖх╙ $е,ПяN╛? д▀АфЩЙ4$е├ПяInvalid Item code entered: ше*шя
СЖ vЄa$еПесфР╗сеШщфШшяMС$еПяITEM ше*шя NOT ON FILE. ORDERED ше+РеПяРе!ПяСЖ"хQ$еПеlС еmБяYЩЙ$еП╘сф ШСЖрТ ╘сеРфШАяЩЙ$еПя AUTOMATIC СЖрм*сдn╣е%ше ше*ше╞ЖнШУРд┤РУРд┬СЖпн┐$еПесфР╗сеШщфШшя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р$д П╗се+Шэ$е!Пе!ш╘сфШч7$е!Пе!сфРфШС3DF$=CVS(A$[15],3)+FILL(6),DF$=DF$(1,6)=3WRITE (NOMALINES,KEY=C$+BLNO$+ITEM$)C$+BLNO$+ITEM$,DD$(27,4)$дFПдFэсд чдGШРдEПдEэд " Lсф╣еШЁЖJ+8, U─3 WRITE THE ACCESSORIAL LINES-IЖ├С3LET AC1$=AH$(1,2)+BH$+AH$(3,9),AC2$="J1O006"; REM 'O'UTBOUND TABLE#6"$еJПя0106С3APPLIED FLAT CHARGE @5$еKПеС$еLПяR11 1.ш╘сф3ШРеLПеLсфРф3ШJ $еMПе РеNПя1РеOПесфРфШT$дPПдEРдQПдFРдRПфРдSПф|ALсдD╣еHШеHРеIРеJРеKРеLРеMРеNРеOРеTРеUРдPРдQРдRРдS├8░!3"DETAIL RECORD WRITE'S COMMENTS∙?$еПяРеПяРеПяРд ПфРе!ПяРе"ПяРе#ПяРе$Пя≈ ╘сеhРфШАяЩЙ8 $д&Пд&эфС$еП╘(сд&Вя000Шє$еПе%ше-шешяLў$еПеhш╘сфШРеПесфРфШЮLсф╣еШеРеЙ8X3"REPORT HEADINGS╡$д'Пф╩8╪3----new consignee codeф1$е>ПесфРфШше Ре?Пе@aш╘сфШРе?Пе?сфРфШп?$е@Пе@bРеAПяРеBП╘се@cРфШшя, ше@dш╘сфШРеBПеBсфРфШз$еCПе@eД,$е▐П╚─се@░ШС ╗се▐ШДф ЩЙ$е▐Пе▐сфРф ШНQLсд╣е>Ше>Ре?Ре@РеAРеBРеCРе▐РяРяРяРе РяРяР╘ сфВя %Yz%Mz%DzШЖе@3"ERROR ROUTINE" ($еXПяERROR ш╘(с╗Шшя AT ш╘(с╗"сфШШєЖ&H )3---------- remove header and any details 4сф╣е╞Ж Ш & 1сф╣е╞Ж 0Ш :$е┴П╘сф╟Ж bШС1сфШ D е┴сфРфШБеЩЙЖ b N4сф╣е┴ШСЖ : b/$еXПеXшя
Order шешя not accepted
g8 l3---------- order not accepted qF д┼АфЩЙ;$еXПеXшя!Possible backorder situation:
шр ше├СЖх v;$еXПеXшя+Sorry. Your order is not being accepted
ше├ ─ Ж СЖ!>!4K$еXПеXшя

INVALID ENTRY

шеZшя (ш╘(с╗Шшя) at ш╘(с╗"сфШШ!>5$еXПеXшя)
Please click BACK and fix the problem!▌Ж&H!Э3----- VALIDATE CONSIGNEE CODE!ЩL$еZПя,MUST HAVE VALID ZIP CODE WITH CONSIGNEE CODEС ╘се@pРфШАяЩЙЖ!4"%$еqП╘сф щ╗с╘се@oРфШШШш╘се@oРфШ"╟$еZПяINVALID CONSIGNEE CODE: ш╘сеqШСсд╣яJ1шеq╠Ж!4Ше>Ре?Ре@РеAРеBРеCРе}С$еZПя0ZIP CODE DOESN'T MATCH ZIP ON FILE FOR CONSIGNEEС ╘се@pРфШБ╘сеCРфШЩЙЖ!4"$)$е@aПе?Ре@bПе@Ре@cПеAРе@dПеBшя шеC"VЖ"` 3DUMP TO FILE"j$еVПя /u/tmp/dumperСеV╠Ж"t"t HеVС,сфcШеV"~EсфcШ"┬сфcШС,сфcШеV"▓1Зсфc╦х┌╦ШеW"╨$еXПеXшя

шеWшя

"©сфcШ%%$еП╘ сфВя%Mz/%Dz/%Y %Hz:%mz:%szШ%@$еXПеXшяORDER ACCEPTED at шешя ASSIGNED B/L NUMBER: ше%,$еXПеXшя
For Warehouse Customer: ше\%!c$еXПеXшя
Shipping to :
ше@aшя
ше@bшя
ше@cшя
ше@dшя
ше@eшя
шр %#$е┐Пяjitweborders%$D ╗сеYАяGOC000ШЩЙ.$е┐Пе┐шя",tallen@championlogisticsgroup.com%%. е▓АяLЩЙ!$е┐Пяlaxweborders@champlog.com%&d$еXПеXшяX
Click here for TOP%─ґ$еfПяecho 'Future Order шешя Customer:шеYшя at шешя^ ' | mailx -r 'do-not-reply@champlog.com (Champion Reports Whse)' -s'Web Site Order Customer-шеYшя' ше┐%┼$дgП╗сеfШ&H&╛'3't ╚─се█Ш'~$е▌Пя'┬ ╗се█ШАфЩЙЖ'д'▓4 ╗се█сфРфШАя 0123456789ШЩЙ$е▌Пе▌ше█сфРфШ'°$е█Пе█сфШ'іЖ'┬'д8е▌'н]ЪЪXYYRECYYPOSYYPOS1YYPOS2YYFIELDLINEJCONSAHBHCHDHEHFHGHHHIHJHKHLHMHNHOHPHQHRHSHTHUHADBDCDDQDDDNETDEDFCLINELFIRST LASTSTORITEMQTYONFILEBLNOA7A7B8C8D8E8F8G8B8C8H8I8J8OPCDTEMPTEMP2JCONS1JCONS2JCONS3JCONS4JCONS5JCONS6JBLAFBLPCS BLWEIGHTCURWGTAC1AC2AC3AC4AC5AC6AC7AC8AC11AC12AC13AC14AC9AC10FDUMPDUMPEDTEXTACUSTEJCUST CUSTNAME CGI.CARRIER CGI.PON CGI.SRN CGI.BRK CGI.CONS1 CGI.CONS2 CGI.CONS3 CGI.CONS4 CGI.CONS5ADUMMYCOMMENT CGI.COMMENT1 CGI.COMMENT2 CGI.COMMENT3LOTLOTTEDJILOT CGI.CONSCODE CGI.CONSZIP CONSCODE LINECOUNTCGI CGI.COMMENT4 CGI.COMMENT5 CGI.COMMENT6 CGI.COMMENT7 CGI.COMMENT8 CGI.COMMENT9 CGI.COMMENT10 CGI.COMMENT11 CGI.COMMENT12JCONS7 CGI.FREIGHTCHARGE ORDERTIMEDELDATECUST1DELDATEELISTONHAND COMITTEDREASONLONHAND LCOMITTEDK3ORDERAVAILONLYVALIDITEMSONLYWEBOPTIONSYYYYYJCONSPHONE CGI.CONSPHONEWFCUSTBUILDING_CODE┌GETREC─GOTPOS─LOOP1─WRITEJBLAF┌PHONEzэ┌PHONE╞╧ND LCOMITTEDK3ORDERAVAILONLYVALIDITEMSONLYWEBOPTIONSYYYYYJCONSPHONE CGI.CONSPHONEWFCUSTBUILDING_CODE┌GETREC─GOTPOS─LOOP1─WRITEJBLAF┌PHONE╘фЩЙ8QrQ|8Q├,"сф╦фШусфРфШРяNo interrupt allowedРеXQ░! ╗сеXАяCcШАфКеXБяЩЙЖQ├Q AU─Qє/тPOPРС ╗сеXАяCcШАфЩЙ8QўQ╦8QбB3---------Close off other occurances of file to be expanded-------Qл еeсфШQж дaэфФ╗се_ШЩЙЖRQЮдfПдaэфЧ╗се_ШЭфQЙM$дgП╗се_сдfРфШШРеhП╘сдgШС ╗сеhШЦф ЩЙЖRТ еhсф ШБеcсф ШЩЙЖRQТ$еiПяРеiП╘сдg╠ЖQЧШQЧ$еeПеeш╘(сдgШшршеiшрRсдgШR*дfR8R&C3-------Open up other occurances for file to be expanded-----------R0 ╗сеeШАфЩЙЖRlR:F$дgП╗сеeсфР╗срАеeШщфШШРеeПеeс╗срАеeШэфШС3GET CHANNELRD>$еjПеeсфР╗срАеeШщфШРеeПеeс╗срАеeШэфШС3GET KEYRN ,сдgШеcсф ШRX ╗сеjШБфЩЙ 1сдgШеjRbЖR0Rl еeсфШРеjсфШRv8R─C3----------------File that have alot of records--------------------R┼/тRBРтWINDOWсф Рф Рф<РфРя Full FileРтBRштDEFAULTштCSШРусфРфШРеcсфэ╗ся/Аеcсф ШШШшя is full and now has Р╗сеcсфРфШШРя recordsРусфРфШРя3This file may need to be PURGED instead of expandedРусфРфШРя7Check FULL FILE REMARKS in (1.13.1.5) for purge optionsR■)"сф╦фШусфРфШРяExpand or Retry РеXРR· ╗сеXАяEeRrШАфЩЙЖR■R╗/тPOPR╡8R╪ЪЪXYYRECYYPOSYYPOS1YYPOS2YYFIELDLINEX1ABD0FILEJCONSAHBHCHDHEHFHGHHHIHJHKHLHMHNHOHPHQHRHSHTHUHADBDCDDQDDDNETDEDFCLINEYNLFIRST LASTSTORRRRAINRECIA1LASTITEMQTYONFILEBLNOSTORAAA7A7B8C8D8E8F8G8B8C8H8I8J8OPCDTEMPTEMP2JCONS1JCONS2JCONS3JCONS4JCONS5JCONS6V1EAB ALLFILESRR CRITICALSTRVAR STATEMENTWHOAMINEXT NEXTINDEX DUMP_FILE ERRNUMBER OPINCHNLSFOUNDCOUNTERCHANELFID1FID2SAVEKEY COUNTER2OCHNLOFIDLASTKEYOKEYNJBLAFBLPCS BLWEIGHTCURWGTAC1AC2AC3AC4AC5AC6AC7AC8AC11AC12AC13AC14AC9AC10─ERRTRAP ─INTERRUPT┌GETREC─GOTPOS─LOOP1─ERR2─WRITEJBLAFZН