<>П├] 93JBPLANP CALLED INTERFACE TO JIM BEAM PLANNED ORDER FILE!3Inventory Report By Program view<$дП╗$С,сдШя JBPLAN.tplС1сдШе?СсдШС,сдШяJBPLAN+╪$еПяЄR1:C(7),R2:C(10),R3:C(1),R4:C(30),R5:C(30),R6:C(30),R7:C(30),R8:C(25),R9:C(2),R10:C(10),R11:C(6),R12:C(3),R13:C(7),R14:C(1),R15:C(30),R16:C(15),R17:C(3),R18:C(4),R19:C(20),r20:c(7), еВе?<@Ж@FE ╗"сф ШАфЩЙ7$дП╗сгсРф РфШРеПяС$дП╗$С,сдШяJBPLANСЖnnJ$еПя РеПя100РеПя100РеПя100РеПя100Ре!Пя sA$еПяtd class="td" РеПя<шешя>РеПя<шешя nowrap>z┼$еПяРеПяРе.ПяРеПя шр РеПя─($еП╘'сяTRHILITEШшяРе0Пя
│⌡$е/Пя8┌o$е<Пяg

Programше.шя Allocatedше.шяCom'dше.шяBack Orderedше.шяShippedше.шяAvail

▄D$е<Пе<шя&х ╚─сдРдШй!$еПяС дДфЩЙ $еПял+$еПешя<шешя width="ш╘(сдШшя">н8еп]р ╚─сеШэ! ╘сеРфШАяЩЙ$еПя Ф8еХ]П ╚─сеШЗ,$еП╘сеРфШС еБяЩЙ$еПешя
Э8е] ╚─сеШ ╘сеРфШАяЩЙЖ1$еПесфРфШшя/шесфРфШшя/20шесфРфШ8е ] ╚─сеШ$еПя"шешя",8е]"╚─се1Ре2Ре3Ш#( ╘се2РфШБяЩЙ$е2Пя, ш╘се2РфШ$5$еП╘се1РфШш╘се2РфШшя ш╘се3РфШшя %8е&], ╚─сеШ6$$е=ПяС$е=П╘с╘се;Ре╠Ж@ШРфШ@8е=E]JЖїЬT4 ╘се;РяJBBRANDS╠Ж#(ШАяЩЙЖUС3test if exists░4$д'ПфРд&ПфСя WJBREPORTРд'Ре(Ре)Рд*Ре+Ре, $е-Пе-шя

Select Report Parameters
Brandше.шя

ў$е-Пе-ше/╦Y д'ЩЙQ$е%Пя?Dealer Code,Name,Add1,Add2,Add3,City,State,Zip,Region,TerritoryСLсд'Ше%ТD$е:ПяРе:П╘с╘се;РяJBBRANDS╠ЖУШРфШС е:Ая*ALLЩЙ$е:Пя$еBПе:ш╘сфШ4%$еПеBсфРфШРеПеBсфРфШРдПф6 еАя ЩЙ $еПрЪЪ>Q$е ПяРе ПяРеПяРеПяРд ПфРдПфРдCПфРдDПфРдEПфРдFПфРдGПф└1сд╣е╪д╞Ж┘ШХ 3LOOP HEREL$еП╘сд╟ЖlШС1Зсд╟ЖlШе`$еПеj есфРфШДесфРфШЩЙЖl╟ 3DO SELECTION╨ е:АяЩЙЖБд* ╘се@@сфР╗се:ШШРфШБ╘се:РфШЩЙЖХБ63LET SELECT2$=CVS(FIELD(CGI$,"DEALERNAME",ERR=1300),3)ЛJ3IF LEN(SELECT2$)>0 AND POS(CVS(SELECT2$,4)=CVS(H.R4$,4))=0 THEN GOTO 100063LET SELECT2$=CVS(FIELD(CGI$,"DEALERCITY",ERR=1350),3)J3IF LEN(SELECT2$)>0 AND POS(CVS(SELECT2$,4)=CVS(H.R8$,4))=0 THEN GOTO 1000F73LET SELECT2$=CVS(FIELD(CGI$,"DEALERSTATE",ERR=1400),3)PA3IF CVS(H.R9$(1,LEN(SELECT2$)),4)<>CVS(SELECT2$,4) THEN GOTO 1000x63LET SELECT2$=CVS(FIELD(CGI$,"DEALERCODE",ERR=1450),3)┌A3IF CVS(H.R2$(1,LEN(SELECT2$)),4)<>CVS(SELECT2$,4) THEN GOTO 1000э$3------ handle the display of orders" еHАяЩЙ$еHПе@@сфРфШ, е@@сфРфШБеHЩЙЖє1$еHПе@@сфРфШ6$дCПдCэ╗се@AШ;/$еIПяJ1JIM001ше@@сф РфШш╘сфШРеJПе@Tшя/@6яJBBAL1РеIРеJРеKРдLРдMРдNРдOРдPРдQРдRРдSJ$дFПдFэдR ЖХєL$е%ПешеHшеш╘(сдCШшеш╘(сдDШшеш╘(сдEШшеш╘(сдFШшеш╘(сдGШшеў$е-Пе-ше%С$д"Пд"эф╦░3LET L$=FNXL$(H.R2$)+FNXL$(H.R4$)+FNXL$(H.R5$)+FNXL$(H.R6$)+FNXL$(H.R7$)+FNXL$(H.R8$)+FNXL$(H.R9$)+FNXL$(H.R10$)+FNXL$(H.R2$(1,2))+FNXL$(H.R12$)б3WRITE (CSVCHAN)L$Т#$дCПфРдDПфРдEПфРдFПфРдGПфЧ8l3DONEqЖєtI3IF DLAST$<>"" THEN GOSUB DEALERTOTALS; LET TEXT1$=TEXT1$+"

"+TRO$v($е-Пе-шя
─&$е-Пе-шешяReport Summaryшеше┼6$е-Пе-шешя Line Countшеш╘(сд"Шшешя

·D д'ЩЙ<$е-Пе-шя CSV Format of this ReportфЖ#(пU─зC$еПешешешешяTotalшешяш╘(сд ШшяшеД$д$Пд$эд Рд ПфРд#Пд#эф*8@3T=$еПяERROR ш╘(с╗Шшя AT LINE ш╘(с╗"сфШШшя IN ш╘#сзфШ^EС2#(3OUTTA HERE#2сдШ&╛їЩ4$е-Пя╗І$е-Пе-шешя╘~8ЪЪTPLHHRECJBPLANSTARTATENDATUSEKNUMKJBITEMTTTQCCCQIQCOUNTTRTDDTROCDATETEXT1ERRMESSAGECW1CW2CW3CW4YYY1YYY2YYY TDELEMENTTDPLAIN TDNOWRAPTDDRDQTYIDENT1OCOUNTDCOUNTRQTYLOUTFILECSVCHANCSVLINKCSVFILEOUTCHANOUTLINKOUTFILETEXTTDDH DFORM1HEADERBRYYCYYSYYZWFCGIIALLDESCSUBFILE1RECWFWFPGMSELECT1CGI DFORM1LOOKUPYYYV SELECTEDTPL H.RIC H.QTY BRACKET1TATCTBTSTVLASTPROGRAMA5 ORDERIDSASOFOHDDMGOCMDCMALOBODSHIAVA H.ORDERID┌CW1┌BR┌EMPTY┌D1 ─DEALERTOTALS┌XL┌CSZ┌CGIVAL0°XL┌CSZ┌CGIVALTВR┌EMPTY┌D1 ─DEALERTOTALS┌XL┌CSZ┌CGIVALk╧