<>╗в2 23"JBDROPSHIP - 07/30/97 - CREATE F/O FROM WEB PAGE?3THIS IS USED FOR SETTING THE SHIPPED FROM NMAUFACTURER STATUS!43"Copyright (c) 1997 Transportation Software Systems(@Ж@d3100n}$еПяРеПяРеПяРеПя шр РеПяэ$дПф,C$д.ПфРе/П╘'ся!CLEARРя$stdheadШРе/П╘'ся!CLEARРя$stdfootШХ31000РE$дП╗$С,сдШя JBPLAN.tplС1сдШеСсдШС еВеС,сдШяJBPLANЭE$дП╗$С,сдШя JBITEM.tplС1сдШеСсдШС еВеС,сдШяJBITEMK$дП╗$С,сдШя JBDEALERS.tplС1сдШеСсдШС е ВеС,сдШя JBDEALERSX$дП╗$РдПдРеПяJBSTATENUMSС,сдШешя.tplС1сдШеСсдШС еВеС,сдШе е Ве$u$еПя8.$еПешя?PGM=JBB&WF=JBUSERS8 ╚─сеШB$$еПеш╘сфШРеПя20шесфРфШL/$еПесфРфШшя/шесфРфШшя/шесфРфШV8е`]і#$е#П╘се!РяORDERIDШшя|РдПф╟3^100 LOOP HERE╪!$д$П╗ся|Ае#ШС д$ЦфЩЙЖ#(Ў$е%Пе#сфРфШРе#Пе#сф ШЗсд╣е%Ше Зсд╣е@"Ше 3^100Н$е Пе ╗се@ АяISШЩЙЖ╟╦*3^1000 ------ handle the display of ordersб1Зсд╣е@╪фШе/ е@&АяQЛе@'АяHЩЙ$е(ПяITEM ON HOLDСЖь─U$е@)ПяSРе@*ПяSFMРе@,ПяYРе@-ПяSHIPPED FROM MANUFACTURERРе@0П╘ сфВя%Y%Mz%DzШ■ LЗсдШе·@яJBLOGWРе@РяMРяSHIPPED FROM MANUFACTURERР╘#сзфШР╗се@Ш╗@$еПешя(ORDER SET TO SHIPPED FROM MANUFACTURER: ше@шя
нЖ╟ь3Б$еПеше@+шя
2Ж╟@3 8000 "ERROR ROUTINE"J($еПяERROR ш╘(с╗Шшя AT ш╘(с╗"сфШШTEС2#(39000 #x#┌ЪЪLINETEXTJBPLAN JBPLANTPLJBPLANJBITEM JBITEMTPL JBDEALERS JBDEALERSTPL JBDEALERSH DFORM3HEADERTDDH ADMINONLYWFCGI1WFCGIYY H.RIC H.ORDERIDTDDTRTDDR H.QTYTROCJBSTATENUMSFTPLJBSTATENUMS DOHEADERERRMESSAGEJBITEM H.STATUSCGI JBPLAN.DEALER ORDERLISTPDOORDER JBITEM.QCSTATUS JBITEM.STATUSEE JBPLAN.STATUS JBPLAN.DROP_CARR JBITEM.RIC JBPLAN.ASN JBPLAN.DROP_PROLOOKUPDUMMY JBPLAN.SHIPDATE┌RICDATE■ФПяРеПяРеПяЄ4#е%Рд&Ре'Ре(Ре)Ре*Ре+Ре,Рд-Рд.Ре/Ре0Ре1Ўсдm╣я^Iше╠Ж@ШЁЖЄх$е$П╘(сд-Вя ########0Шр$д-Пд-эфэLсдm╣я^IшеШЁЖЄФ$еПеше$П$еПеNсфРфШЗ-$еП╘сф щ╗сяJBBше$сфШШШшяJBBше$сфШсд╣есфРфШше╞ЖюШ/$е2П╘сфРфШС$е2Пе2шя С$е2Пе2сфРфШ$еПяRAшя ше2шя0"$е3П╘ Рд4П╗#,'$е ПяUPшяUPSш╘сф ШРе Пе сфРф Ш6($е П╘ сфВя %Mz%Dz%YzШш╘(с╗#Вя00.00Ш@>$еПе сфРфШС$е_Пе@÷С$еПе_сфРфШше_сфРфШше_сфРфШE еАя111111ЩЙ$еПяASAP J$еПя1Ре Пя 00 T$еПя1С3FREIGHT CHARGE^$еП╘Aсе@■РфШС3PONUMh#$еПе@┘ш╘сфШРеПесфРфШС3SRNr$еП╘Aсе@ёРфШС3BRK NUM|!$еП╘сф ШРеП╘сфШРеП╘сфШ├Lсдj╣еШЁЖЄ░$д=Пф $д ПфРд<Пфє8л23^100 "----------------------DETAIL RECORD WRITE'Sж?$еПяРеПяРеПяРдПфРеПяРеПяРеПяРеПяЮ$еVПя ORDERID: ше√СЖ\Й ╘се!РфШАяЩЙ8Т$д Пд эфС$еП╘(сд Вя000ШЧ$еПеше$шешяI$еПе!ш╘сфщ╗се!ШШ3"VERIFY ITEM NUMBER $е!Пе!ш╘сфШС$е!Пе!сфРфШ&$дbПфРдcПф0E1сдl╣ешеше!╞ЖNШУРеРеXРУРУРУРд>РУРУРУРУРУРУРУРУРдbРУРУРдc:Є3IF NUM(QTY$)>ONHAND-COMITTED THEN LET REASON$="Item "+ITEM$+" has only "+STR(ONHAND-COMITTED)+" available (not including other recently entered --uncomitted-- orders)!"; GOTO 8200DЖlN $е#ПяNX? дiАфЩЙ4$еdПяInvalid Item code entered: ше!шя
СЖ ba$еПесфР╗сеШщфШшяMС$еПяITEM ше!шя NOT ON FILE. ORDERED ше"РеПяРеПяСЖ╪lQ$еПеWС еXБяYЩЙ$еП╘сф ШСЖ■Т ╘сеРфШАяЩЙ$еПя AUTOMATIC СЖ■v*сдY╣ешеше!ше╞Ж─ШУРдeРУРдfСЖ┼─┐$еПесфР╗сеШщфШшя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)╡$д=Пд=эсдчд>ШРд<Пд<эд╪Lсдk╣еШЁЖЎф$е@⌡ПеРе@°ПяIСLЗсдnШеvпFяJBLOGWРе@┘РяCРяADDED TO WHSE BOL : шесфРфШР╘#сзфШР╗се@┼Шз8Д U─3 WRITE THE ACCESSORIAL LINESНIЖ*С3LET AC1$=AH$(1,2)+BH$+AH$(3,9),AC2$="J1O006"; REM 'O'UTBOUND TABLE#Ь"$еAПя0106С3APPLIED FLAT CHARGE 5$еBПеС$еCПяR11 1.ш╘сф3ШРеCПеCсфРф3Ш $еDПеРеEПя1РеFПе сфРфШ$дGПд<РдHПд=РдIПфРдJПф ALсд;╣е?Ше?Ре@РеAРеBРеCРеDРеEРеFРеKРеLРдGРдHРдIРдJ*8\;3^100 "-------------------DETAIL RECORD WRITE'S COMMENTSf?$еПяРеПяРеПяРдПфРеПяРеПяРеПяРеПяp ╘сеVРфШАяЩЙ8z$д Пд эфС$еП╘(сд Вя000Ш└$еПеше$шешяL▌$еПеVш╘сфШРеПесфРфШ≤Lсдk╣еШеРе╒8ю3^100 " ----new consignee codeй"$е5ПесфРфШшеРе6П╘Aсе@}РфШт?$е7Пе@~Ре8Пе@Ре9П╘се@│РфШшя, ше▒ш╘сфШРе9Пе9сфРфШч$е:Пе@┐Х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сдj╣е╞Ж╦Ш╦1сдk╣е╞ЖбШб$еgП╘сдk╟ЖЮШС1сфШл еgсфРфШБеЩЙЖЮж4сдk╣еgШСЖбЮ/$еMПеMшя
Order шешя not accepted
Й8 '3^100 "---------- order not accepted F дhАфЩЙ;$еMПеMшя!Possible backorder situation:
шр шеdСЖl ;$е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.QTYTROCJBSTATENUMSFTPLJBSTATENUMSDEALERSTATECODE JBDEALERS.DEALER_STATE JBSTATENUMS.STATE JBDEALERS.DEALER DOHEADERORDERID JBITEM.ITEM_NOERRMESSAGEJBITEM JBITEM.RICDESC H.BOLKEY H.STATUSCGI JBPLAN.DEALER JBPLAN.REQUESTED_DATE ORDERLISTPDOORDER JBDEALERS.LASTDEALERCODE─WRITEJBLAF┌RICDATEp

OrderIDшешяQTYшешяItemшешяDescше шя