<>{nY $3KRPOMS - MHUSA PO MANAGEMENT SCREEN >3MKEYED "/u/webmhu/wf/KRPOD",[0:1:24],[0:25:20]+[0:1:24],0,512 $-PRPR.R$$KRPOH,.tpl1, /l$$KRPOD,.tpl1, $$,0S$$VENDOR,.tpl1, 1S$$MHTEXT,.tpl1, <$3' $otherhead>KK$wCABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 ()_-P#@3FOR PRODUCTION CHANGE TO 8100R"$040018003for popupsZ$SUBFUNC[\5$-]A$D9^>$26_'$,`3set formstart and formend`_$gWa!$%% &PGMFUNC=CALL۩#d@$IWarehouse Project Daily Revenue' pagetitleIi8$+ -###,###,##0/ -$#####0.00< ######.00A$td class="td" <> < nowrap>$ 2    L$:9$;1M$SE$
O 3  QUICKRECVU&  QUICKRECVDOU'  SELECTPATHU  SELECTPATHDOU COLEDITU  COLEDITDOU LOGVIEW1U LOGVIEWU SCHEDULEU  ITEMVIEWU(  ADDKRPODDOU. PRSCHEDU DELETECOMPONENTU#  PRSCHEDDOU  ADDCOMPONENTU  KITINFODOU KITINFOU KITBUILDU  POPREVIEWU)  POPREVIEWDOU* MBIINFOU  MBIINFODOU  DELETESUBITEMU$  ECODELOOKUPU+ ADDTOPOU,  ADDTOPODOU- $Under Construction.#( "3SEND EMAIL FROM PO FULLY RECEIVED$Z TEST MESSAGE$Wchuck@tssconnect.com A$X' site_title Purchase Order Closed - MEC001Z"$Y*,WHMAILTOWYXZ[y\Hi3SENDTO$="tfell@champlog.com"; CALL "WHMAILTO",SENDTO$,CCTO$,SUBJECT$,MESSAGE$,SIGNATURE$,XLFILE$,RESULT$f8[$O?PGM=JBB&WF=JBDEALERS&PGMFUNC=LOOKUP&DOSEARCHNUM=_JBDEALERS1&RETURNTO=JBDEALER|V$ 8$"8$"8$"8 $"8@3T=$TERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^ ERRORPAGE3-------- EMAIL ERROR MESSAGE $^You have selected parameters that generates a page that is too large to display. Please click D* and select a smaller range of parameters.+$U'WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNCU=$TERROR ۩(Ө AT LINE ۩(Ө" IN ۩# LTE$VU,$W' error_emailZTXError(JBMAILTOWYXZ[V\@ }$q
Order is not valid. Click and fix the problem(s).#(U 39000 OUTTA HERE#<' U 310000' GO1'Z$}$,}CGISAVEDL}@~PP$ L}@~PPTPL}'E$R Select New Parameters'$FGAction|System|Customer|Reference|PO Num|Start Date|Description|OOO\Lines|Expected Kits|Material/Pallet Revenue|Per Kit Revenue|Revenue to Date|Status'K$GF'"$GG| '$$OcAdd New '*$yE tmp/PO_Report۩(Өө.xlszyӨE{ View In Excel'.$H%
I Buy Cycle: 
R |  | { 		t
JG'3$ $#'L$H'j#1**''t3^100'~1*'$|' @All @@'~'# A  A '~'3' 3DO SELECTION'" utencode.wbb'$OO'$OU'N 3get itemlist$' FNPAIR@STATUS($|(ӨOO( $(n$)$K A A A @ ۫ A! A"|۩(A% #,###,##0۩(A#A$A& #,###,##0.00۩(A' #,###,##0.00۩(A( #,###,##0.00L*$K *! $*&'~*3^100*3$'


*3,xO_CREATE,O_TRUNCyLxx*<3LET COLFREEZE=3; CALL "FREEZE1"; REM SETUP SCROLLING SCREEN*  ccalamari$#$&Elapsed: ۩( rowcount=۩( metric: ۩(##.0000 size: ۩(Ө per row: ۩(Ө**"3^1000 setup input parameters form+$M)+ 3+~$MMmStatus:  +*$MMBrand: =, $MM*,8/$N 3count items for a PON%$N*1N4N4-1Nz NzN> $ANpN4Nz8]'U*3send the po and so file to an email^G$Sending files:
@
@
To: @
^$DOFINAL^^s g$Marking PO as SENT.1@ @P+$@SA %Y%Mz%DzL^(1 POEMAIL $@^V utsub.wbb @ utsub.wbb @^m$W@YX%Purchase Order From Moet Hennessy USAZ V@ -a @\_P(JBMAILTOWYXZ[V\_dX _$;

A copy is being sent to the POS Administrator .
_nH$Wshannon.scott@mhusa.comJBMAILTOWYXZ[V\_#$Send Complete.
2`e U)3^1000e03EGNERATE PDF, AND SHOW FORM FOR SENDING THE PDFe1@e\$ gsave (/Helvetica findfont 10 scalefont setfont 0.0 setgray e`$ tmp/SOFILE_۩@.csvӨ/tmp/ӨSOFILE_e%$$,ҷO_CREATE,O_TRUNCf1Af:$360 727 moveto (۩ ) show f!7$440 727 moveto (@) show f&F$440 710 moveto (SAP PO Number: @) show f06$ 50 695 moveto (@) show f2?$ 50 685 moveto (Vendor#: @) show f46$ 50 675 moveto (@) show f66$ 50 665 moveto (@) show f8R$ 50 655 moveto (@, @ @ @) show fA$$'/Helvetica findfont 7 scalefont setfont f=$ 80 710 moveto (۩@) show f1@ff1g A@gf14A51@f1&@'f $$ff$75 ۩( moveto (Mark Cartons: ۩@ - ۩@) show fa$123 ۩( moveto (Code: @ Packed: ۩@) show fT$123 ۩( moveto (Moet Hennessy USA, NY, NY) show fT$40 ۩( moveto (۩(ӨA ########0) show gH$370 ۩( moveto (۫ A) show g \$460 ۩( moveto (۩(Ө@ $###,##0.0000) show g-$Aި@( $#,###,##0.00gC$510 ۩( moveto () show g  MHPLANCSV@7g% $Lg* Lg4$g $gfg0$2Ɩ A ixg0$2ƑƖ A ixhr A j$A $460 305 moveto (Added Amt: ۩(A $#,###,##0.00) show hc$460 290 moveto ( Total: ۩( $#,###,##0.00) show h.$ 40 40 moveto (Generated by : ۩@ [۩@] on ۩  at ۩ %Hz:%mz) show ixhB$grestore hLKRPOPDFhQ$hV}3LET TEXT$="HTML REDIRECT "h[h`y$5

PO Preview


Click to Preview:
Purchase Order PDF OO|hbu3LET TEXT$=TEXT$+NB$+NB$+"Terms and Conditions PDF"+NB$+NB$+"|"hfb3LET TEXT$=TEXT$+NB$+NB$+"Packing Slips PDF"hhZ$OO Ship Order File (۩)hi @Phhj+$#

Clicking the "Send Purchase Order" button below will email the PDF format of the PO to the vendor. Be sure the email address below is correct. The PO will be moved to 'Sent' status. When confirmation from the vendor is received you should change the PO status to 'Confirmed'.

htl$,fMS POPREVIEWDOU$)&
 hx$
Email: + h\$
  6 - Mark PO as Sent hX$
  2 h$
 h$& & ' h@$% h $*h $inU ix43---------- handle wrapping long lines to postscriptiJ3send ll$, and dolen, and x1(column) and y1(row to start), y2 (row height)iA $$iL$۩( ۩( moveto (۩) show i $i ij68m`)3---------- generate select list of PRELsmj=$=&n8n8U+3---------- generate lookup page select list of PRELsn($3 n$' $otherheadnn#$' $otherhead3 n1@n;$=$14oo$==
Action Program SKU Description Brand Pack o<14p518@9 @A oo @@oo"1@o,1@7o6o6O$o@ @7@o3already exists on a POo@I$@ utsub.wbb'\' utsub.wbb"\'oJd$selectoTb$== ۩@ @ ۩@ ۩@ (۩@) oop3donep:$==
q $=q>qH U/3^1000 q\k$,fMS ADDKRPODDOU$)&
 q`NJBSELECTOPTIONSJBBRANDSDOBCODEBCODEBNAME*NOALL*=qa $"qbG$#
Select Brand: =OO qp$ORqv%$%
Add Item to PO: EOI SKU:OOF qz`3LET ATEXT$=ATEXT$+"
Add Item to PO:"+TDD$+RESULT1$+NB$+NB$+MRPLINK$+TRO$qf$
Qty: $OOO qh$
PO Seq#: &OOO q2$c POPUPINPUTDUEDATEcaqN$
Due Date: a    qr utsub.wbbaDUEDATEETADATE$
ETA Date: a   q6$& q$
 q7$& q@$% q $*q8rU3^100 " UPDATE THE COMMENT r14A@`5r$\ @q@B$r5@@qL45LOGIT1PREL@75r 5r8'$
Changes Saved.
grjU y-U(3" ^1000 CREATE/MAINTAIN ITEMS ON A POy 1@y$$FwAction|Seq#|SKU|Pack1 |Pack2 |Description|Activity Date|ETA Date|Qty|RTD|Actual Revenue|Total|Channely&K$GFy*$GG| y,n$I"
ProjectA"
y1 FNPAIR@STATUSy6=$HG
I  System:  Customer:A
Reference:A
Status: T
JGyT$Hy^$3ok that it is emptyyr1yty|3^100y-1|8 |8y$y$|y 3DO SELECTIONy" utencode.wbby$ OSy$OSz $z$||OOz$ OOz2 READONLYY$z$K A LL  ۫ A ۫ AAALAz0$K z5 $z:y|83---- end of list|B A |L|D A|L|J||L#3----- create an empty line for new|Q |V%$A|`$A(0000|jLy|3^100|`$0
Material/Pallets:۩(A#A$ #,###,##0.00 |d$%
Total:۩(A#A$ #,###,##0.00 |M3LET KRPOH.TOTALAMT=ROUND(KRPOH.ADDEDAMT+POCOST,2); WRITE RECORD(KRPOH)KRPOH$|$

|3 GOSUB ADDKRPODFORM| $|$

g|U U. @d $@-1t @@@`@<$Invalid entry. Click D and fix the problem.L V*$A@A@`A@A@`!14A51@j $A@t A@$A(Ө@0000xLN$'Invalid entry. Duplicate PO SEQ# Click D and fix the problem.r3IF CVS(CGI.SPECS$,3)<>CVS(MHITEM.SPECS$,3) THEN LET PREL1$=PREL$,MHITEM.SPECS$=CGI.SPECS$; WRITE RECORD(PREL)PREL$; CALL "LOGIT1","PREL",PREL.ECODE$,PREL$,PREL1$,FATTR(PREL$)'$
Changes Saved.
gyL$%

Invalid Item Selected. Click D and fix the problem.m$6

Invalid QTY Selected. Must order in PACK QTY (@) Click D and fix the problem.yU,$ ADDTOPODO,`_$W

Paste Into Web Receipt

Paste 2 columns from spreadsheet into box, SKU then QTY: $);$/Create PO Number:
?$3
$*U-@$AӫXLPO 1M$C

Invalid PO#, cannot be empty, and cannot already exist.$%$@   + #F1:C(1*=09),F2:C(1*=09),F3:C(1*=09)M$ $ $0$@@ ؑ414ASKU 51@ /$ Invalid SKU: 
 ؑX @:$Invalid SKU/Qty or Pack 
 ؑP$
Z($$AA(0000_$A@7Ad$A Lؑ3DONEV K$@@ATRANSFERA %Y%Mz%Dz@OLz n$
View Open PO Screen
$
XU]14A@`5b?$View Log for Element: @7
@

 g%  SHOWFIELDhl1d@7@oveq1]@o^v$ Milestone: @_ $n@7@o+ LOGITVIEWPRELEVnp e $pU 3*=$n@7 LOGITVIEWPREL PRODCOMMENTnp 5H $pzU U3GENERIC LOG VIEW*$n@s LOGITVIEW?@tnp $pU 3 -------------- input params@3-------- USING POST BECAUSE GET IE LIMIT REACHED WITH ALL PROGS$ reportparamO$I#

 l$Pd
$PFJBSELECTOPTIONS KRPOH.STATUSDOSTATUS =4 utsub.wbb= value="O"value="O" selected= utsub.wbb=All
Select Parameters
Status: = Pn$'
Customer Filter: / *leave empty for all x$0
Short Description Filter: 0 *leave empty for all E$ &$' + :$) $Qx$ 
U U3 ADD NEW COMPONENT TO A KIT$ 5'$xA@`@14x$Ө2$Aөx145Jj$5@7@@@C@@N@6@6@N@@7L4T5F$>Changes Saved
D$ NORELOAD' QUERY_STRING$ &NORELOAD=1$$'$bodyoptT onLoad="window.opener.location.href='/wf/wfenter.cgi?PGM=JBB&WF=PREL&POPUP=1&ECODE=x$&PGMFUNC=CALLPROMOSC&SUBFUNC=KITINFO'; window.close()"U U#$xA@` 44x/$Element x deleted...

g, 6! $ @8J]T ^,$ $
h8r]| Ć ĚĐ1$//20Ě8Ĥ]Į ĸ$"",8]( $, ۩5$۩ ۩ 8]  $! !($! !ܨ8] $$$ө8&]D !N*$"#!X*$$#<""$##.83]8 B$L$ǜ^$!!!!ǜǰn$!
SHOWING  !B$Excel!!!ǰ`$!!!!f$!ONCLICK !?$)"!!!@$!ө'thcolor !$!#FFFFFFP8Z] %!  $D<$//  '$  N'$(Ө00& $ N8S]  $ + "$") <$<) >$>& '$'$$8]@ "E  $ΐJ$ ^<$//  ΐ8Κ]ή!muΰ $ ν@$v u+$v color:u; font-weight: bold;ξ3 m'$vv background-color:m; v $$ style="v"8]3---- get PRBCBRANDS for a BC $AA1B&1BXC CX&- ө@' JBUSERBRAND0$۩@/:X0 .$$. utsub.wbb./b8`;U3 ------ RETURN STRING OF FORM TAGS IN formstart formende$j>$)
~>$6 , $$    f $J (>$(K A?$)L >@$*<$&$' R F$+ $
$*8FFTPLSUBFUNCCGI ERRORIMAGEDUMMY TDELEMENTTDPLAIN TDNOWRAPTRTDDTDDHTROTDDRBRYYYYYCYYSYYZYYYVTEXTYYFURLWFCGI FINDURLG TESTURLG LOOKUPDEALER FORMNAMEWFPGMTEXT1YYY1YYY2YYYYYYHYYYMYYYHHWFCGI1 JBBRANDS JBBRANDSDOYEAR FORMSTARTFORMENDM11 NOSUBMIT DOSUBMENUDOBRANDM12PHEIGHTPWIDTHCLOSEGOHEADPRELPREL PREL.COST PREL.ECODE PRPROGRAMS PRPROGRAMSTRCTRNM13RESULT1 DOSOURCEWF CGI.SUBFUNCDOCYCLE PRBCBRAND PRBCBRAND BACKBUTTONWFDIR COLHEADTRCOLHEADTRHTML REPHEADHTML REPTITLE COLHEADTR0LTDDCPARAMSPREL.ACTUALCOSTNB DFORM1LOOKUPTRPLAINNEWLINK TRN_INACTIVE ERRMESSAGE LASTERRORXLFILESENDTOSUBJECTCCTOMESSAGE SIGNATURERESULTPREVENTPREVENT PREVENT.VNAME CGI.ECODE TARGETINYYLJULPRELEVPRELEV SHOWCANCEL CLOSEGRELOADMDYMDY.YJMDYMDY.MMDY.DYYCOLORRKEY CGI.VCODETEXT9 CGI.PRODCOMMENTPREL1 CGI.RKEY CGI.SHOWFIELD YYFCOLOR YYFCOLOR1 CHARLISTECODEXLINKXLINK1XLINK2ITEMS CGISAVED SESSION.LOGINCGITPL WARNINGTEXT NEWECODEPRELMSUFYYY1 SUBCANCEL1 SUBCANCEL2A DOCYCLE20 CYCLEBRANDS PRBCBRAND.BCODE ADDCOMPONENT NORELOADURLSESSIONATIME TIMESTART ROWCOUNTTIMEENDELAPSED MHITEM.DESC MHITEM.KIT MHITEM.MBI MHITEM.MBITYPE MHITEM.ITEM_NO MHITEM.PACKMHITEMMHITEM PREL.PRELCOMMENTACTION PDFPREVIEW ITEMVIEW CGI.PONUM ITEMLISTATEXT PREL.SKU CGI.QTYITEXT JBBRANDS.BNAMEPDFLINK PDFLINK1 RETURNURLWFURL MHITEM.BCODEYROWX1Y1DOLENY2LLLLL PREL.ACTUALCOST TOTALCOSTPOCOST SESSION.UNAME SESSION.UEMAIL TOTALCOSTMRPLINK PREL.PYEARCODE PRPROGRAMS.BUYCYCLEACOSTTCOSTTCOSTKPOD2 POSTATUSVENDORVENDOR VENDOR.VNAME VENDOR.VENDORNO VENDOR.ADD1 VENDOR.ADD2 VENDOR.EMAIL VENDOR.CITY VENDOR.STATE VENDOR.ZIP VENDOR.COUNTRYEDITELCCSVOPT1OPT2SOFILEROOTDIRSOLINKSOFILESOLINK1LHEAD CGI.SOFILE CGI.PDFFILE CGI.SENDTOEMAILDOFINAL FINDLINKSELECT PRPROGRAMS.PNAME PRPROGRAMS.BCODE CGI.BCODEOHEAD1 MESSAGETEXTMHTEXTMHTEXT MHTEXT.TTEXT CLEANDESC CGI.STATUS CGIDOCYCLE CGI.DUEDATE CGI.ETADATE CGI.POSEQPOXPOXD INBOUNDVIEWRR CGI.XLDORRDOSKU R.F1DOQTY R.F2EMESSPONUMPOSEQKRPOHKRPOHKRPODKRPODKRPOD2 ADDKRPOH KRPOH.STATUS KRPOH.PONUM KRPOH.POSAP EDITKRPOH KRPOH.VCODE KRPOH.POCREATED KRPOD.PONUM KRPOD.ECODE KRPOH.POSENT KRPOD.QTY KRPOD.DUEDATE KRPOD.QTY KRPOH.NOTES KRPOH.SIKRPOH.ADDEDAMT KRPOH.BUYCYCLE EDITKRPOD DELKRPOD KRPOD.POSEQ KRPOD.ETADATE KRPOD.RTD KRPOD.CHANNEL KRPOD.RTD KRPOH.SYSTEM KRPOH.CUST KRPOH.REF1 MHITEMSKU MHITEMPACK MHITEMSPACK MHITEMDESC KRPODLAST KRPODLAST.SYSTEM KRPODLAST.DUEDATESEQ KRPODLAST.POSEQ CGI.SDESC KRPOH.DATE1 KRPOH.SDESC KRPOH.AMT1 KRPOH.AMT2KRPOH.PROJECTQTY KRPOH.AMT3 KRPOH.AMT4 KRPOH.AMT5EMPTYBRD1XLCSZCGIVALSUBENDTIMEFORMEND OUTTAHEREY2M SCHEDULEYMD2JAUDITMDYSAVEEVDATELOGVIEWPRSCHED PRSCHEDDO LOGVIEW1COLEDIT COLEDITDO SELECTPATH SELECTPATHDOMBIINFOPRELEVCOMMENTDOKITINFO ADDCOMPONENT MBIINFODO KITINFODO KITBUILD REMOVELINKS ESCAPECHAREVDATE2 MILESTONEDELETECOMPONENTDELETESUBITEMAUDITTZ QUICKRECV QUICKRECVDO ITEMVIEW POPREVIEW POPREVIEWDO ECODELOOKUPADDTOPO ADDTOPODO ADDKRPODDO ADDKRPODFORM PONENT MBIINFODO KITINFODO KITBUILD REMOVELINKS ESCAPECHAREVDATE2 MILESTONEDELETECOMPONENTDELETESUBITEMAUDITTZ QUICKRECV QUICKRECVDO ITEMVIEW POPREVIEW POPREVIEWDO ECODELOOKUPADDTOPO ADDTOPODO ADDKRPODDO ADDKRPODFORM:VIEW POPREVIEWDO ECODELOOKUPADDTOPO ADDTOPODO ADDKRPODDO ADDKRPODFORM<ATHDOMBIINFOPRELEVCOMMENTDOKITINFO ADDCOMPONENT MBIINFODO KITINFODO KITBUILD REMOVELINKS ESCAPECHAREVDATE2 MILESTONEDELETECOMPONENTDELETESUBITEMAUDITTZ QUICKRECV QUICKRECVDO ITEMVIEW POPREVIEW POPREVIEWDO ECODELOOKUPADDTOPO ADDTOPODO ADDKRPODDO ADDKRPODFORMmAEWDO ECODELOOKUPADDTOPO ADDTOPODO ADDKRPODDO ADDKRPODFORMPONENTDELETESUBITEMAUDITTZ QUICKRECV QUICKRECVDO ITEMVIEW POPREVIEW POPREVIEWDO ECODELOOKUPADDTOPO ADDTOPODO ADDKRPODDO ADDKRPODFORMazLOGVIEW1COLEDIT COLEDITDO SELECTPATH SELECTPATHDOMBIINFOPRELEVCOMMENTDOKITINFO ADDCOMPONENT MBIINFODO KITINFODO KITBUILD REMOVELINKS ESCAPECHAREVDATE2 MILESTONEDELETECOMPONENTDELETESUBITEMAUDITTZ QUICKRECV QUICKRECVDO ITEMVIEW POPREVIEW POPREVIEWDO ECODELOOKUPADDTOPO ADDTOPODO ADDKRPODDO ADDKRPODFORM%HPODFORM ADDMHPODDO POPREVIEW POPREVIEWDO ECODELOOKUPADDTOPO ADDTOPODOEAD CGI.SOFILE CGI.PDFFILE CGI.SENDTOEMAILDOFINAL FINDLINKSELECT PRPROGRAMS.PNAME PRPROGRAMS.BCODE CGI.BCODEOHEAD1 MESSAGETEXTMHTEXTMHTEXT MHTEXT.TTEXT MHPOH.POSENT CLEANDESC CGI.STATUS CGIDOCYCLE MHPOH.POCREATED MHPOD.DUEDATE CGI.DUEDATE MHPOD.ETADATE CGI.ETADATE MHPOD.POSEQ CGI.POSEQ MHPOD.CHANNEL MHPOD.RTD CGI.VENDNAMEPOXPOXD INBOUNDVIEWRR CGI.XLDORRDOSKU R.F1DOQTY R.F2EMESSPONUMPOSEQ MHPOD.RTDGTEXT MHITEM.SPACKEMPTYBRD1XLCSZCGIVALSUBENDTIMEFORMEND OUTTAHEREY2M SCHEDULEYMD2JAUDITMDYSAVEEVDATELOGVIEWPRSCHED PRSCHEDDO LOGVIEW1COLEDIT COLEDITDO SELECTPATH SELECTPATHDOMBIINFOPRELEVCOMMENTDOKITINFO ADDCOMPONENT MBIINFODO KITINFODO KITBUILD REMOVELINKS ESCAPECHAREVDATE2 MILESTONEDELETECOMPONENTDELETESUBITEMAUDITTZ QUICKRECV QUICKRECVDO ITEMVIEW ADDMHPODFORM ADDMHPODDO POPREVIEW POPREVIEWDO ECODELOOKUPADDTOPO ADDTOPODO