<>>) 3WHREP33$ ' premailerYES$S$$$JITEM5,.tpl1, %S$$$JCUST,.tpl1, ,$ ' pagetitle.$PWQ61:$A22@6R$fJIACT,.tpl1, 7R$gJCONS,.tpl1, 8Q$$TRUB,.tpl1, 9$ SUBFUNCVIEW1LOCU:* SUBFUNCCHANGELOCSFORMU;, SUBFUNCCHANGELOCSFORMDOU<" SUBFUNCLOCINV.># SUBFUNCADJFORM*?% SUBFUNC ADJFORMDO-PA( SUBFUNC TRANSFERFORMU B* SUBFUNCTRANSFERFORMDOU C$ SUBFUNCTRUBFORMyD& SUBFUNC TRUBFORMDO{pE& SUBFUNC VIEW1AISLEUF( SUBFUNC VIEW1AISLEDOUG% SUBFUNC VIEW1ITEMUH' SUBFUNC VIEW1ITEMDOUI&$ ө' WEBOPTIONSJ,J*$ $ D= PK;$   $  L=$   , $ , M$  N`$PWQ63^100 - get cgi inputs$$$өItemNo۩ *$ өөDAYSACT$өSKIN$ 'SKIN1$ YN83CALL "WACTRW",CUST$,ITEM1$,ITEM2$,DAYSACT,FUTURE$,TEXT$$J11ܵ3ADD THE SKU EDIT LINK 15$-$A$}$3check trub&*  CHAMPLOG.COM#(X'$2$ 3BOL LIST 3------------ PUSH ITEM TO 3PLCR$
#(@3TI =$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^ ERRORPAGE3-------- EMAIL ERROR MESSAGE+$'WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNC=$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# LE$$' error_email(JBMAILTO@#(3#'$3---------- DISPLAY LOCS FOR AN ITEM'?3F POS("CHAMPLOG.COM"=CVS(STBL("$sesrec"),4))=0 THEN GOTO 10990'$$,JSLOT'$$@GETJSHRT'! /NORATE$'$/ DOLOT$AӫDOLOT '8$
۫Cust:۫ Item:  ۫ SH Table: @ ۫ Pallet Block: ۩(@x۩(@   
۫@   '` $"'j1'k't)1*'yLOCTYPEv4'~+ A*'/3-------- PERFORM THE LOCATION CHANGE IF NEEDED'w3DIM LL$:FATTR(LL$); LET P=POS("|"+A4$(31,6)+"/"=LOCLIST$); IF P THEN LET LL1$=LOCLIST$(P+1),LL$=LL1$(1,POS($0A$=LL1$))'" utencode.wbb '$.S'$y (N$&3 IF LL.BCHARGE THEN LET BCHARGE$=STR(LL.BCHARGE:"$###,###,###.0000")( J$'3 IF LL.BUNITS THEN LET BUNITS$=STR(LL.BUNITS:"###,###,###.0000")(P$n( 0$nS۩((-$S۩((E$p(op p $oSp(2$+(4n$s L$s& style="display:none;" class="trzero" --3TRY NOT COUNTING (7.$B $BStransfer(9b pQIAREAA$BBV | move damaged to available(Z  ccalamari$l  (d$

'V!$"C
LotLocationTypeBookAvailOnHandComtdDamgd
AvailDamgd
ComtdHoldFirst
ActivityLast
ActivityAction
y.#v۩(n۩(۩(o۩(#۫#۫#B($$((w))x**+)+$-- -$"$-*0't*3*" utencode.wbb *$\
Totals##۩(*#########*$
*$*$   

**&$[



*$S

*$@*B$}   *)  noeltrans$*$
*8*%3-------------- adjust inventory form*,$IadjformN ADJFORMDOKU*${AӫITEMNO +!$WX{\ALOC+$5$,5JITEM+ 15W+$CH"Adjustment Entry Form -- Item No: ۫ITEMNO
Description: 6
+l$Ed+B AQTY-$EE+C DQTY.$EE+H $AAF+J9$g POPUPINPUTIADATEgh+M+$CCAAdjustment Date#h+ON YA$CCALot#"+R<$CCALocation#+\)$CCA Avail/Damaged#E+aU$kH +f$CCAQty#k+D$CCAPO#/Reference#:#+\3USED FOR LOC NOW LET ATEXT$=ATEXT$+TR$+"Reference 3"+TDD$+""+TRO$+M$CCAComment#*+$CC
,3-7$CC& -L$CC& -$C
O-F-P3U3" -------------- perform the adjustment updates-d$-f$S-m:3 BELOW cvs(xx,3) added 5/17/2017 to avoid err=47 in jslot-n< өӫALOC$RINVALID LOCATION--q@  @,$@ ө@3FORCE RIGHT JUSTIFY-xI$R Invalid QTY$UӫAQTY- UUU----($   ccalamari$ ƴ-$VӫӫADATE./ V %Y%Mz%DzV Ө %Y%Mz%Dz$R Invalid Date-- S-$L

Failed Validation:
S
Click T and resolve the problem(s).
-$SSR
 8-"3------ valid entries - do updates-;$WX۩AӫITEMNO \ ӫALOC-e$_AMTYPE-۫ACOMMENTZYLOC: \Z'ULOGIN[AREF-"$^ADTYPE^^-$5$,5JITEM-15W-A Y4 ALOT$SSLOT IS REUIRED-.$]AӫALOT .,MADJITEMWWVW ^]\U_YZ[.@|$d

Update Complete!


Confirmation: _

.$P


..3LOCATION INVENTORY.$.LOC.$$,JSLOT.$5$,5JITEM.>$2RackLOCTYPE.34 3B $2Bulk/$
۫Location Inventory:.۫ Type: 2
   /0 $"/:1./;/D)12d/N .2d/P$/X  CHANGELOCTO//Yc  CHANGELOCTO. ᫀ CHANGELOCTO*$ invalid location code change//Z /3COMMITTED/[I ӫ CHANGELOCTO*$ invalid location code change//b3--------- CHANGE THE LOC/g'$ change to ۫ CHANGELOCTO/l.$Aӫ CHANGELOCTO/v%L/ 4/A15/6789:;<=>?//*$67MISSING ITEM RECORD/+ NOZERO1/D/o$A

/&M$"L
TSS Location3PLC LocCustomerItem DescriptionPallet
BlockBookAvailOnHandComtdDamgdDamgd
ComtdHoldFirst
ActivityLast
Activity
 ӫITEMNO2$A*
0 $A.#,# #۩7@@,۩(>x۩(?۩(۩(۩(۩(۩(۩(۩(#۫#۫0p$**2/D2d32i$\
Totals##۩(*########2$
2b$BSChange Location Code for all * - be careful if you merge this into an existing location code it will be difficult to undo2D  CHANGELOCTO($BQ POPUP1$B2$
B2 $2"  SHOWHISTORYonJ822,3--------- DISPLAY BOLS WITH THIS ITEM ON IT2=$ 0
Item exists on following committed BOLs:
 2$$,JBLDT2$$,JBLHD3,$6L136 I3,3@  3,3E+1 3, 3,3J  3,3Te$!  3$ !
 33,6L3686U3LOCATION INVENTORY6$DOAISLE6$$,JSLOT6$5$,5JITEM6Z$$$tmp/AISLE_list۩(Өө.xls,O_CREATE,O_TRUNC6$Ө/clg6d3LET LOCIS$="Rack"; CALL "LOCTYPE",SHOWLOC$,LOCTYPE$,LOCSIZE; IF LOCTYPE$="B" THEN LET LOCIS$="Bulk"6$
۫Aisle Inventory:/  Last 3PLC Inventory update was: ۩'LOCSPULLUPDATE@
   6 @1 line per location$"L 6:$7 $"7 7 7) JSLOTCOMBINE,7 17 7)1:47 :47 $7xA157}6789:;<=>?77}*$67MISSING ITEM RECORD7o$A

6M$"L
TSS Location3PLC LocCustomerItem DescriptionPallet
BlockBookAvailOnHandComtdDamgdDamgd
ComtdHoldFirst
ActivityLast
Activity
TSS LocationBookAvailOnHandComtdDamgdDamgd
ComtdHold# of Customers# of Items
 ӫITEMNO2$A*
7 @Detailed77 $7 8@7$7$.S7$A.#۩(۩(۩(۩(۩(۩(۩(۩(Ө#####۩(Ө #####7:$7 :f378@7$A#,# #۩7@@,۩(>x۩(?۩(۩(۩(۩(۩(۩(۩(#۫#۫8@H$8JC 0 $8TC 0  $ 97:43:6  $7:f$
:k"L
 :p $:zS$   Excel Export
::3--- COMBINE ALL JSLOTS:;R/u/tmp/JSLOT.ALL}J8)3-------- show bol history for a locationJB$$,JBLDHJDS$$$JBLHH,.tpl1, J`$
۫Shipping History:.H   

Jj$;
BOL# Ship DateCustomerItemLotDescQtyLocationJ1J1JJ+$K1 JJ IJJ)1J .JJ1 J$AJ,$//Kc$A ##A #######K$ KKZJK3DONEK$
L $L"R*U 3-------------- TRANSFER inventory formR 6$I transferformNTRANSFERFORMDOKUR9${AӫITEMLOT|{ {{ R, HOLDX$ӫHOLDXR$CH'Transfer Entry Form -- Item No: { Lot: |6
R $AAFR&W$EOR'$qR(S AQTY>$EEqAQTYR)U DQTY@$EEqDQTYR* HOLDX$EEqHOLDXEqR0$$,JSLOTR5*$tJ1۩A@z۫ALOCFROMR:H$uB?1tRD$uRZ9$g POPUPINPUTIADATEghR])$CCA Transfer Date#hRbu$CCA From Location#5RcA 9$ value="۫ALOCFROM" READONLY=READONLYRdJ$CCA To Location#Rl)$CCA Avail/Damaged#ERq $1Rv$CCAQty#+ max value: ۩(uR $CCrRM$CCAComment#*R$CC
S3T7$CC& TN$CC' T.$C
OTVT`U Tt$Tv$ST|,$@ ө@3FORCE RIGHT JUSTIFYT~> өӫALOCTO$RINVALID LOCATIONTTI$R Invalid QTY$UӫAQTYT UUUTTTT)$~ADATE@~./Tp$VӫADATE V %Y%Mz%DzV Ө %Y%Mz%Dz$R Invalid DateTT ST$L

Failed Validation:
S
Click T and resolve the problem(s).
T$SSR
 8T"3------ valid entries - do updatesT9$}AӫITEMLOT{} |} T,$WX{\AӫALOCFROMT$$,JSLOT1W|\T U$S Invalid QtyTTg \ӫALOCTOU2$S%LOCATION LENGTH OR INVENTORY PROBLEM.TT3$YLOC: \Z'ULOGIN[TRANSFERT.$^ADTYPE^^UUT.  Move AvailᫀADTYPE $^AT2$jACOMMENT j$jTRANSFERT$]|U$_jU<MADJITEMWWVW ^]\U_YZ[UA$\UF$i_UP8$\ALOCTOUU_jYLOC: \UU= ADTYPEDamaged to Available$^A3specialUV.  Move AvailᫀADTYPE $^HUW-  Move HoldᫀADTYPE $^AUZMADJITEMWWVW ^]\U_YZ[Ud$ii
_U$h

Update Complete!


Confirmation:
i

U$P


U, ADTYPEDamaged to AvailableU8$mAMTYPE۩DmlmUe$_AMTYPE-۫ACOMMENTZYLOC: \Z'ULOGIN[AREFU#.3SEND THE INVRPT MOVE TYPE 321UWUW9$(Champion Logistics Group - Trouble Flag WL$DDo not reply to this message it is sent from an unmonitored mailbox.W$

Warehouse Trouble Flag Alert from CHAMPION LOGISTICS GROUP

Wk$chttps://jit.champlog.com/clg/wf/wfenter.cgi?PGM=JBB&WF=JBUSERS&PGMFUNC=CALLWHREP33&ItemNo=WIDGET100W?$

Link to trouble itemX/,WHMAILTOX>3doneXC8YUY4$I transferformN VIEW1AISLEDOKUY$CH?View Aisle Inventory Form -- Last 3PLC Inventory Update was ۩'LOCSPULLUPDATE?
Y$l$CCAAisle (2 chars)#Y.~$CCAFormat#\Y8&$CC

OYB$CYjYtUY~6$I transferformNCHANGELOCSFORMKUYh$CH\View/Change Loc Code Entry Form --
Yq$CCAFrom Location Code#Yc$CCA!Include Shipping History (slower)#&Y&$CC

OY$CYY*U3-------------- TRANSFER inventory formY.$I transferformNLOCINVKUYc$CHWChange Loc Code Entry Form --
Y $AAFY$READONLY=READONLY $ ALOCFROMPROMPT$$@Z2l$CCAFrom Location Code#Z4O$CCA To Location#Z<D$CCA,This will move ALL balances except committed#Z$CC
[3[$CC [$C
O\&$.ALOCFROM.\0U\:.]u0Uu:3$I transferformN VIEW1ITEMDOKUu?i$CH]View/LOOKUP Item Code Entry Form --
uD$CCA&Match Item Code (across all accounts):#uI&$CC

OuN$CuSuXU3ITEM INVENTORYu\$ ITEMMATCHuvZ$$$tmp/AISLE_list۩(Өө.xls,O_CREATE,O_TRUNCux$Ө/clgu$
۫ ITEM SEARCH:H  
   u $"u15uu&15x uu$u$@x۩@v $A

u$"H
Customer Item Code DescriptionPallet
BlockOn HandAvailDamagedHold
v<3MELET SHOWLOC$=""+A4$(31,6)+""v>X$A@#@#@#۩(@۩(@@۩(@vC 0 $xPux3x$
x"L
 x $xS$   Excel Export
yy%3-------------- adjust inventory formy.$ItrubformN TRUBFORMDOKUy$AӫTKEY$y"$Wy'$5$,5JITEMy,15Wy0$CH$Trouble Entry Form -- Item/Lot/Loc: ۫TKEY
Description: 6
y6u3LET ADSELECT$=""y8\3IF FNCGIVAL$("AQTY")<>"" THEN LET ADSELECT$=FNSUB$(ADSELECT$,"","")y9]3IF FNCGIVAL$("DQTY")<>"" THEN LET ADSELECT$=FNSUB$(ADSELECT$,"","")yh $AAFyrI$CCAAssign to Email:#yZ$CCADescription of Trouble#(y$CC
{ 3{ 7$CC& {"H$CC$ {>$C
O{f{p0U3" -------------- perform the trouble updates{!$New Trouble Flag created.{$S{:3 BELOW cvs(xx,3) added 5/17/2017 to avoid err=47 in jslot{"3------ valid entries - do updates{$AӫTKEY${ |.$$@@@ %Y%Mz%Dz|$@N@ASSIGNTO|$@DESC| L|U|#$@@U|.$

For Item: 

|$P


|}U}dTRUB01ɀ8P $Z $ $%àn1$%$/$/20$à8%ê]ô $þ0$0lܨ$ Ө$08(0$]<$ $$%/ $0%$ 0($$$0/$0ܨ%8$] $-$1$1ө$3WAS ,2)81&]Ũ<$$/$/$$ ŭ $Ų ө$żA$`Ө$$$$`8`]  $ $ $a\ <$a$/$/$ $ f8ak]z $Ƅ# $$aƎ( b M:N(1*=47),D:N(1*=47),Y:N(1*=47)Ƙ($b$/// @c $@c@cƢ$d@c@e@fƬ$a d%Y%Mz%Dzƶ $a8a]8  $0B/ $0$$$Ө$0ǒL$$0ݨ$$ǒ8$Ǘ]˄ ˎ,$"'˘$\ˢ8ˬ]  YU$ 9$%۩UYU$ 9$%۩U$&+=:#<>"",`U$ 9$%۩U6*@6U$ $+UJ8T],3------------- CREATE TABLE OF WHSE ACTIVITY/ DOLOT$AӫDOLOT 1$3--------------- activity)$ h[+] [-] Display Warehouse Transaction Detail .$
 *
 c 831 BS$Adjust @S $Ship @R$ReceiveGH Ship81@H$Ship - ۩@L,$ @A1N? @@R 13voided receiptsP( @S$@(Ө@V$@`' @D$@j' @H$@t> @R*$R۩A@ v$@y @Ro$@|{ @Sg$ @}g$3 IF MOD(NUM(JIACT.QTY$),NUM(MHITEM.PACK$))<>0 THEN LET TRSTYLE$=" background-color:yellow;"""ۈ$A۩@#@#,۫ ӫ@۩(-#######۩(-#######۩(-#########@#ے$$83$@
Warehouse Transaction Detail
ItemLotTransactionDateQty
Avail		Qty
Dmg		Qty
Hold		Ref 1Ref 2Comment
##Totals۩( -#######0۩(-######0۩(-######0###($
 
 $F8`;U3 ------ RETURN STRING OF FORM TAGS IN formstart formende$Gj?$H
~M KB$GG6<$GG&$GG' R NF$GG+ $GG
$OG8CGICUSTITEMITEM1ITEM2LOTSLOCSTEXTSKINDUMMYDAYSACTWEBODAYSPOSDAYSACTWFCUST JITEMKEYJSLOTA4B4A4B4C4D4E4F4LTEXTTDDRTROTHHJBLDTKJBLDTBTEXTBLINK COLHEADSTDDYYYYYY1BCHARGEBUNITSTBUNITS TBCHARGETBOOKBOOKTDDC ROWCOUNTSHOWLOCYYY2YYYYYYVLOCISLOCTYPELOCSIZEJITEMA2B2C2D2C2D2E2F2G2H2NBTRACTIONATEXT MOVETYPE ADSELECTTDTEXT1 FORMSTART FORMNAMEWFCGI NOSUBMITWFWFPGMSUBFUNCFORMEND CLOSEGRELOADCLOSEGEEWARN BACKBUTTONQTYADATEDOITEM WFCOCODEAREF1AREF2AREF3ALOCALOTADTYPE ACOMMENTYYYYMDYMDY.YJMDYMDY.MMDY.DDVALRESULT1CONFIRM DOCOMMENT QTYINPUT MOVEREASONXXAVAILDAVAILDAVAIL1DOQTY MTYPEROWTRSHOW JSLOTKEY MAXVALUE LLXLOCTYPE LLXBUNITS LLXBCHARGESHOWLOT CGI.ITEMLOTITEMNOLOTITEMLOTFIXDATE CGI.ADATEJDESC LOTTED_ITEMHOLDXHOLDLOCHOLDQALOCWASMINVAL MINVALUECFTPLJITEM JITEM.SH_TABLEJITEM.PALLET_BLKJITEM.PALLET_HIGH JITEM.DESCRIPTIONJKEYJIACT SHOWHIDEPTEXTJIACTTRANS JIACT.ATYPECOMMENT JIACT.QTY QTYAVAILQTYDMGRKEY JIACT.REF1 REF1LINK JIACT.REF3TRSTYLE JIACT.ITEM JIACT.ADATE JIACT.REF2 TOTAVAILTOTDMGFTHATXENCENC JITEMKEYXX JIACT.LOTQTYHOLDTOTHOLDJCONSJCONS JCONS.CONSIGEE_NAMEDOLOTSESSIONITEMENCJBLHDBB1 ERRMESSAGE LASTERRORXLFILESENDTOSUBJECTCCTOMESSAGE SIGNATURERESULT CGI.ALOCTOCOCUSTTBL SHINFOHTMLTRUBTRUB TRUBLINKTKEYTSHOW2TSHOW1TSHOW3 TRUB.REPORTEDBY SESSION.UEMAIL TRUB.REPORTDATE TRUB.STATUS TRUB.ASSIGNEDTO TRUB.DESCETEXTPDFFILEZZZCNOTEA44LOC3PLCRO CGI.ALOCFROMPOPUP READONLYTPLC TPLCLINKJCUSTJCUST TPLCUSTID JCUST.TELEPHONE_DSTDOAISLE CGI.DOFORMATTA4TB4TC4TD4TF4TE4 CUSTCOUNT ITEMCOUNTLASTLOCEOFCSVCHANWFDIRXLLINK JSLOTALL ITEMMATCH JITEM.CUST_NO JITEM.ITEM_NOPLTBLKJITEM.ON_HANDJITEM.COMITTEDJITEM.DAMAGED JITEM.PALLET_BLK JITEM.PALLET_HIGH CGI.ALOC SHOWLOCEDITJBLDHJBLHHADBDCDEDFDGDHDDD SHIPDATEJBLHH JBLHH.DELDLCOUNT JBLHH.CUST DAYSBACKD1BSUBCGIVALFORMEND ADJFORMDOY2MYMD2JMDYSAVE TRANSFERFORMTRANSFERFORMDORIGHTENCAUDITY2KBL1210L1220L1299L1310 TRUBFORMDO TRUBSHOWSUBJ TRUBEMAILCHANGELOCSFORMCHANGELOCSFORMDO VIEW1LOC VIEW1AISLE VIEW1AISLEDO VIEW1ITEM VIEW1ITEMDOY