<>6■/ ⌡ 3JBPLANADD PLAN INQUIRY/SEARCH3(E$дП╗$С,сдШя JBPLAN.tplС1сдШе СсдШС,сдШяJBPLANС е#Ве 2E$д!П╗$С,сд!Шя JBITEM.tplС1сд!Ше Ссд!ШС,сд!ШяJBITEMС еВе 4C$д┴П╗$С,сд┴Шя JITEM.tplС1сд┴Ше Ссд┴ШС,сд┴ШяJITEMС е┼Ве <K$д$П╗$С,сд$Шя JBDEALERS.tplС1сд$Ше Ссд$ШС,сд$Шя JBDEALERSС е%Ве >K$дyП╗$С,сдyШя JBADDRESS.tplС1сдyШе СсдyШС,сдyШя JBADDRESSС еmВе FO$дiП╗$С,сдiШяJBSTATENUMS.tplС1сдiШе СсдiШС,сдiШяJBSTATENUMSС еjВе P@Ж@Z$е<П╘сеРяSUBFUNC╠ЖdШd)$е(П╘'ся pagetitleРяOrder Entry ше<ШnE ╗"сф ШАфЩЙ7$дП╗сгсРф РфШРеПяС$дП╗$С,сдШяJBPLANСЖxxJ$еПя РеПя100Ре Пя100Ре Пя100РеПя100РеПя ┌A$еПяtd class="td" РеПя<шешя>РеПя<шешя nowrap>▄┼$еПяРеПяРеПяРеПя шр РеПя√($еП╘'сяTRHILITEШшяРеПя
═_$еПяW╙ ╚─сдРд ШЄ!$еПяС дДфЩЙ $еПяЎ+$еПешя<шешя width="ш╘(сд Шшя">х8ер]э ╚─сеШФ! ╘сеРфШАяЩЙ$еПя П8еЗ] ╚─сеШ,$еП╘сеРфШС еБяЩЙ$еПешя
8е"], ╚─сеШ6 ╘сеРфШАяЩЙЖJ@1$еПесфРфШшя/шесфРфШшя/20шесфРфШJ8еT]^ ╚─сеШh$еПя"шешя",r8е|]├╚─сеРеРеШ░( ╘сеРфШБяЩЙ$еПя, ш╘сеРфШ 5$еП╘сеРфШш╘сеРфШшя ш╘сеРфШшя є8еў]╦ ╚─сеШб$$еПяС$еП╘с╘сеРе╠ЖлШРфШл8еж]Ю е<АяSTEP2ЩЙЖ╞хЙ е<АяSTEP3ЩЙЖ╦Т е<АяDLOOKUPЩЙЖu0ЧЖїЬСЖ#(С3DISPLAY ENTRY SCREEN $еПяUnder Construction.СЖ#(Х!3^1000 -------- OVERRIDE ADDRESSР д8ПфЧфЭ1Зсд$╣╘Aсе@?Рф Ш╞ЖЧШе%СЖЪЧW$еПяInvalid Dealer Code: ш╘Aсе@?Рф Шшя)
Please click back and fix the problemС1Зсдi╣е@k╞ЖШеjO$еXПе@[РеZПе@\РеYПе@]Ре^Пе@_Ре`Пе@aРеbПе@lРеcПе@dРеeПе@gРеfП╘се@hРфШ$еПешя|

Add New Order Form

шя9j*$еПешя

Name	ше'ше$║$еПешя<
Address	ше'ше.║$еПешя;
	ше'ше8║$еПешя;
	ше'шеB⌠$еПешяC
City/State/Zip	Lz$еПешя+ V─$еПешя) ше'ше`≤$еПешя?
Country

t║$еПешяIDelivery Notes (optional)

~*д8┬8▓ ╚─сеLШ°$$еLПеLш╘сфШРеLПя20шеLсфРфШі/$еLПеLсфРфШшя/шеLсфРфШшя/шеLсфРфШ╟8еL╨]╦ 3^3000 --------- DO THE UPDATESб$е:Пял3CREATE A NEW ALLOCATIONж]3IF STBL("ULOGIN")<>"ccalamari" THEN LET TEXT$="Transfer Function Under Construction!"; EXIT Юz$е5Пя
Order Create Complete!шя
шешяQtyшешяDealerшешяOrderIDшешяDivisionше'шеЙ33validate the qtys are numeric and are not too muchТ%3--------- subroutine to create orderЧ$е6П╘Aсе@?Рф ШРеNПе@>РеOПе@=; е▌Вя#mo:n(1*=46),da:n(1*=46),ye:n(1*=46)С$е▌ПеNшя...1$е:ПяInvalid DateС$д▐П╗сгпэд@░Рд@▒Рд@▓╠Ж^Ш$еNПя1ш╘ сд▐Вя %Yz%Mz%DzШЗсд$╣е6Ше%СЖ&$$е:Пе:шяINVALID DEALER CODEСЖ^& еmВ╘ сеmШ($еmсфШПе%сфШ+Зсдi╣е@k╞Ж,Шеj0@$е@nПе@zРе@oПе@{Ре@pПе@|Ре@qПе@}Ре@rПе@~Ре@sПе@Ре@tПе@─Ре@uПе@│─3^100┼$дvПф■@ е@[Ае@nКе@\Ае@oКе@]Ае@pКе@aАе@qКе@dАе@sКе@gАе@tКе@hАе@uЩЙЖД·$дvПфД3^100Н3С$д┌ПфРе:ПяЬ д8ПфЧф ;$д7ПфРд7П╗с╘сеРяNEWQTYш╘(сд8Вя00000ШШ╠Ж ШСЖ %$е:Пе:шяINVALID QTY
шр СЖ й 7$еPПяРеPП╘Aс╘сеРяNEWITEMш╘(сд8Вя00000ШШРфШ д7АфЛ╘сеPРфШАяЩЙЖ й *$еUП╘AсяZZшеOРф Ш 43find oldorderid >$еRПяС1сд╣еP╪ф╞Ж HШ H1Зсд╟Ж pШе#С е@FБеPЩЙЖ p R е@VБеUЩЙЖ H \J д7Д╗се@GШЩЙ:$е:Пе:шя Insufficient Qty Item: шеPшя
шр СЖ й f$еRПе@W pr еRАяЩЙf$е:Пе:шя1Invalid Item Code -OR- No inventory in Division: шеOшя for Item: шеPшя
шр СЖ й z4$еПешяOld Order: шеRшя
Move qty:ш╘(сд7Ш ╛3^100 ╠ д┌ЩЙЖ й І(яJBPLANDOРеRРе6РеNРеSРд7РеTРеQ ╩F$еwПяNo Address OverrideС дvЩЙ"$еwПяAddress Override Accepted! Ґ дvЩЙ$е@xПеTСLЗсдyШеm ю $е5Пе5шеQшя шеwРд┐Пд┐эф й*д8 т е:АяЩЙЖ ч ы д┐АфЩЙЖ^ ш8$е:ПяPartial Update WARNING!
ше5шя
ше:СЖ^ ч$ д┌ЩЙ$д┌ПфСЖЬС3do it for real3^100 TRANSFER IS COMPLETE $еПеше5ше'шешя

$u$е9Пя Return to Order EntryС$еПешя
ше9.Ж#(X37000bC$е+Пешя'?PGM=JBB&WF=JBDEALERS&PGMFUNC=VIEW&SEQ=ше)шя&POPUP=1l#$е,Пя ViewvV$е*Пя

─'$е.Пя ше)шя┼8■T$е1ПешяH?PGM=JBB&WF=JBITEM&PGMFUNC=LOOKUP&DOSEARCHNUM=!JBITEM1&RETURNTO=NEWITEM|·#$е2Пя Find╗V$е3Пя

╡'$е4Пя ше)шя╪8ф[$е1ПешяO?PGM=JBB&WF=JBDEALERS&PGMFUNC=LOOKUP&DOSEARCHNUM=_JBDEALERS1&RETURNTO=JBDEALER|пV$е3Пя

з8Д$е3Пя"

Г8ХО$е┘Пя"Н8Ьж$е3Пя"

8ш$е3Пя"

8@38000 J=$еПяERROR ш╘(с╗Шшя AT LINE ш╘(с╗"сфШШшя IN ш╘#сзфШTEС2^$еПя

ше:h7$еПешя+

Please click 'BACK' and fix the problem#(39000 OUTTA HERE#2 сдШСсд!Ш#<u0330000 ---- LOOKUP AVAIL BALSu:C$дKПфРе(П╘'ся!CLEARРя$stdheadШРе(П╘'ся!CLEARРя$stdfootШuDІ$еПя+List of Available Items
for House Acct: ше@?шяK
uN$е@Пе@?РеAПе@РдBПфРдCПфuX1сд╣е@╪дB╞ЖubШub$еDП╘сд╟ЖuфШС1Зсд╟ЖuфШеEul еDсфР╗сеAШШДеAЩЙЖuфuv$е#ПеEu─$3------ handle the display of ordersu┼1Зсд!╣е@F╪ф╞Жu▀Шеu▐ е@┬АяDЩЙЖubu▒; е┼В╘ се┼ШС$е▀ПяJ1JIM001ш╘Aсе@▄РфШС1Зсд┴╣е▀╞Жu▓Ше┼u■3---- get shipped qtyu·$д├П╗се@GШщ╗се@┤Шuё д├ЦфЩЙЖubu╔ д@█Дд├ЩЙ$д@█Пд├u╗J$еПешеш╘(сд├Шшеше@Fшешя(ш╘(с╗се@MШШшя)ше@Hшеш╘(сд@█Шшеu╡$дIПдIэфu╪Жubuф3DONEuпїЬ343000 input screen #1╗$е/Пя orderentry╗L$еПяшр ╗$еПеше╗ $еПя

QTYшешяItemшешяDescшешяOnHand
╗VяJBSELECTOPTIONSРяJBDIVSРя HOUSEACCTРяDIVРяRNAMEРяNOTOPVALUEAUTHРфРе;╗4B е;АяЩЙ6$еПя)You are not authorized for this function.СЖ#(╗>%$еПешешя Division:шеше;ше╗C$е└Пя&DIVISION=99╗HXЖДС$еПешешяDealer:шешя,ше3ше╗M;3GOSUB 7144; LET TEXT$=TEXT$+TR$+"test"+TDD$+TESTURLG$+TRO$╗R9я POPUPINPUTРе/РяreqarrvdateР╗сфРфРфШэфРяРе0╗\%$еПешешя Req.Arrv:шеше0ше╗fq3GOSUB 7500; LET TEXT$=TEXT$+TR$+"Item:"+TDD$+""+FINDURLG$+TRO$╗pX3LET TEXT$=TEXT$+TR$+"Qty:"+TDD$+""+TRO$╗zP$еПешя:
╗└─$еПешя'шр ╗▌>$еПешя2╗≤S$еПешя;╗╒!$еПешешя

QTYшешяItemшешяDescшешяOnHand

╗*VяJBSELECTOPTIONSРяJBDIVSРя HOUSEACCTРяDIVРяRNAMEРя*NOTOPVALUE*AUTH*РфРе;╗4B е;АяЩЙ6$еПя)You are not authorized for this function.СЖ#(╗>%$еПешешя Division:шеше;ше╗C$е└Пя&DIVISION=99╗HXЖДС$еПешешяDealer:шешя,ше3ше╗M;3GOSUB 7144; LET TEXT$=TEXT$+TR$+"test"+TDD$+TESTURLG$+TRO$╗R9я POPUPINPUTРе/РяreqarrvdateР╗сфРфРфШэфРяРе0╗\%$еПешешя Req.Arrv:шеше0ше╗fq3GOSUB 7500; LET TEXT$=TEXT$+TR$+"Item:"+TDD$+""+FINDURLG$+TRO$╗pX3LET TEXT$=TEXT$+TR$+"Qty:"+TDD$+""+TRO$╗zP$еПешя:

╗└─$еПешя'шр ╗▌>$еПешя2╗≤S$еПешя;╗╒!$еПешешя

╗╛8╚Ю344000 ------ add new order╚Й<$еПешешя╛N8╞х345000 input screen #2╞р$е/Пя orderentry╞эL$еПя

шр ╞Ф$еПеше╞П$еПя╞З%$еПешешя Division:шеше@=ше╟#$еПешешяDealer:шеше@?ше╟E$еПешешяOver-Ride Address
(Optional)шеСЖРС$еПеше╟; е▌Вя#mo:n(1*=46),da:n(1*=46),ye:n(1*=46)С$е▌Пе@>шя...╟1$е:ПяInvalid DateС$д▐П╗сгпэд@░Рд@▒Рд@▓╠Ж^Ш╟%$еПешешя Req.Arrv:шеше@>ше╟"$еJП╘AсяZZше@=Рф Ш╟,Ж╟6$еПешяшр ╟@F$еПешя5╟J_$еПешяA╟T д8ПфЧф╟^S$еПешешя(ше╟hQ$еПешя*ше╟r*д8╟|P$еПешя:

Qty	Itemше3шя
╟├─$еПешя'шр ╟░G$еПешя,шр ╟ J$еПешя/шр ╟єH$еПешя-шр ╟ў>$еПешя2╟╦$еПешя╟б!$еПешешя

╟лЖ#(ЪЪJBPLANJBITEMTRTDDTROCDATETEXT1ERRMESSAGECW1CW2CW3CW4YYY1YYY2YYY TDELEMENTTDPLAIN TDNOWRAPTDDRIDENT1TEXTTDDHBRYYCYYSYYZWFCGIWFWFPGMCGI DFORM1LOOKUPYYYVTPLJBITEMWFCGI1JBPLAN JBDEALERS JBDEALERSTDTDODUMMYRKEY VIEWURLGVIEWURL VIEWURL1WFURL VIEWURL2 FORMNAMERESULTFROMFURL FINDURL1 FINDURLG FINDURL2DEALERMESSAGE NEWDEALERMOVEQTYILINKRETURNERRMSGRESULT1SUBFUNC CGI.HOUSEACCT CGI.REQARRVDATE CGI.JBDEALERSTARTATENDATUSEKNUMDTOPKREC JBPLAN.RIC JBPLAN.QTY JBITEM.RICDESCOCOUNT LOOKUPDEALERLOOKUPYY JBITEM.RICPACK NEWRDATE HOUSEACCTNEWITEMRESULTOLDORDERIDNEWADDRESSNEWORDERID OLDDEALER JBPLAN.DEALER JBPLAN.ORDERID ODEALER_ADD1 ODEALER_ADD3 ODEALER_ADD2 JBDEALERS.DEALER_ADD1 JBDEALERS.DEALER_ADD2 JBDEALERS.DEALER_ADD3 ODEALER_ADD4 JBDEALERS.DEALER_ADD4 ODEALER_CITY JBDEALERS.DEALER_CITYODEALER_STATEODEALER_ZIP JBDEALERS.DEALER_ZIPODEALER_COUNTRYODEALER_NOTES JBDEALERS.DEALER_COUNTRY JBDEALERS.ADDRNOTESJBSTATENUMSJBSTATENUMS JBDEALERS.STATENUM JBSTATENUMS.STATE JBADDRESS JBADDRESS.DEALER_ADD1 JBADDRESS.DEALER_ADD2 JBADDRESS.DEALER_ADD3 JBADDRESS.DEALER_CITY JBADDRESS.DEALER_STATE JBADDRESS.DEALER_ZIP JBADDRESS.DEALER_COUNTRY JBADDRESS.ADDRNOTES OVERRIDEOVERRIDENOTICE JBADDRESS.ORDERID JBADDRESS CGI.DEALER_ADD101 CGI.DEALER_ADD201 CGI.DEALER_ADD301 CGI.DEALER_CITY01 CGI.DEALER_STATE01 CGI.DEALER_ZIP01 CGI.DEALER_COUNTRY01 CGI.ADDRNOTES01 VALIDATE DEALERUPDATEADDURL TESTURLGAVAIL JBPLAN.QTYSHIPPED JBITEM.STATUSJITEMJITEMKJITEM JBITEM.ITEM_NOJITEM.ON_HAND NEWRDATE1 NEWRDATE NEWRDATE1.YE NEWRDATE1.MO NEWRDATE1.DA┌CW1┌BR┌EMPTY┌D1┌XL┌CSZ┌CGIVAL┌RICDATEe,