<>?T8 23SKUADD2- ADD/EDIT SKU WIZARD - FOR MAIN WHSE 931/25/2011 - allow update of existing SKU via pencil edit A3THE SKU FILE CAN BE USED AS A LONG SKU SETUP LIKE TCG AND SAMxxx 73FOR MAIN WHSE THE SKU FILE IS JUST A SUPPLEMENTAL FILE!-3NEEDED FOR THE WEIGHT FIELDS :3F POS(CVS(SESSION.ULEVEL$,3)="u/") THEN LET SKUVIEWONLY=1&R$_$JITEMU_,_.tpl1__,_ `'R$_$JSHRT_,_.tpl1__,_ (R$_$JNMFC_,_.tpl1__,_ *P$$9SKU,.tpl1, :<@@^$VA$wPJ OTHERHEAD9d,$ Add/Edit SKU'REPTITLEfD <$View SKU - No update allowed'REPTITLEsA$td class="td" <>< nowrap>z$  .$$
$ SUBFUNCLOGVIEW1U , 6$$$ө @@8E]TI  ITEMNO^ GO^13test if exists^#(3on step1#(3&g3LET ACTUALCOST=NUM(CGI.COST$,ERR=1072); LET VCHECK=MASK(CGI.COST$,"[/ \$]+"); IF VCHECK THEN GOTO 1072.83%$COST MUST BE NUMERIC
  #3CHECK TO SEE IF SKU EXISTS ALREADYK ө@5$)INVALID Storage and Handling Rate Table /'$A@1#$INVALID Freight Code. /D @@1$%INVALID ITEM CODE - UPPER CASE ONLY /m @ [^-A-Z0-9\/]N$BITEM Codes limited to letters, numbers, forward slash and dashes /S ө@==$1INVALID DESCRIPTION - Minimum length is 6 chars /  3---- start building the record : : :$uBD۩A@;19u:$:$@EB@CD DOCUST$@C@r $@;@!1:@4$'INVALID Storage and Handling Rate Table 8 @@=$$Missing Required Fields s @c`3 AND NUM(CGI.DIMSL$,ERR=2067)>0 AND NUM(CGI.DIMSW$)>0 AND NUM(CGI.DIMSH$)>0 THEN GOTO 2070&$Weight is Required Field. "S$@;3,CLGITEM$=FNSUB$(CLGITEM$," ",""),CLGITEM$=FNSUB$(CLGITEM$,"-","")#Y  J$=Can't derive permissible CLG Item Number from SKU. Too Long.  % $@>@;>*83GOSUB GETSKUSEQ; CALL "CALCMOD10",STR(SKUSEQ),CHECKDIG$4+3LET SKU.ITEM_NO$="C"+STR(SKUSEQ)+CHECKDIG$\ L9:+1U:@> `$`  .*3CREATE THE JITEM REC if it doesn't exist 1UG`$` 5$@b@c @d Kilograms$@b&@bM K$g @h Centimeters $gG< @h Millimeters $gF< $@eӨ@fgLc $@iӨ@jgLc $@kӨ@lgLc B$@m@<@= L$@p@q3captures first letter L9: ,LOGIT1SKU:&: : (<$

SKU CODE: @; HAS BEEN WRITTEN.

< $@}@b@@n@@o A$@A@= F$@@@@ K $@@ P$@@ Z $@@@@@@ x $` LU` .LOGIT1JITEM`` `  SKUNMFCFIX 6$

Item Code: `

POPUP1}$" View New Record- ` A$7"#
POPUP1 $ #( 3validation failed j$Validation Failed:
۫/
 

Click 1 and Fix the problems.<3--------- PRPROGRAMS FILE$+@,-+ $."$/ӫ@ /U /-n/-=$0%START DATE MUST BE IN FISCAL YEAR
 "$ӫ@! Y3IF SJUL"+$0A$F .:$0"RELEASE DATE CANNOT BE IN PAST
 8@3T=$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@#( 3OUTTA HERE&'#U3---------- GET THE NEXT SKU SEQ'$@$,@CCNVZ'$%$A[SKU1@A'.?'8'.!$? 43DEFAULT STARTING POINT'8$??L@AA?'B@'j8*+3^1000 "CREATE NEW JITEM RECORD FOR THE SKU+3------ check if on whse file+ $FA3 FF+$G@E@C@>+*$HA@=+4$I$I@^+>-$JNKLMNO+@& LOTTEDLotted $JY+C @n $N@n+D @o $O@o+H@$P1QRSNT F+ReLUG+WGHJKIVLMNOPQWRSXYZ[\T]+\83@$PN N*E ө/$//N48N>]o5 PRNEXTSEQ PRNEXTECODE$ (00008U 3GENERIC LOG VIEW/$@ LOGITVIEWJITEM$ LOGITVIEWSKU$>3--------- handle case where JITEM exists but SKU does not yet3$sD DOCUST$sDOCUST$"$ta$aDOSKU. a8$uJ1s۩AaB1UuL`tL5$'

Unexpected Item Setup Issue: Item: ut19u~:~3$@EB@CD@;a@>a@<@L9:$tR$x@<y(@ez(@i{(@kv@>(Ө@$addparamL$
 $ 53LET DESC1$=DESC$; CALL "utencode.wbb",0,DESC1$,DESC$ k tc$(@|(@}~(@(@@@(@@@*R$ a.$ readonly * no change allowedHu$

Add/Edit Screen
Customer:#۫ R3W@$8this can be in the customer desired format 1111-222-33-A\3TEXT$=TEXT$+"
SKU Code:"+TDD$+""+FNHELP$(IHELP1$)+TRO$"$ t$ readonly$$
CLG Item Code:$ ۫ limited to 12 chars, no spaces$&
SKU Description:/۫ limited to 30 chars#$NO @Y $YESC t;$
Lotted?:ʨ$
Lotted?:S ۫ 9 choose carefully, this cannot be changed after creation 3$wp   Eaches/Ctn:  $$
Stored as UOM:w3if you change this line change line 43222 and template and WBPICKC - LINE 1162$Each @pC $Case @pA$ Assembled @pP$Pallet @pU`$Unknown3if you change this line change template and line 43220 and WBPICKC - LINE 1162 8 utsub.wbboption>option selected>O3CALL "JBSELECTOPTIONS","TCGPROJ1","CUST_PROJ","CUST_PROJ","DESC","",0,RESULT1$3IF CVS(SKU.PROJECT$,3)<>"" THEN CALL "utsub.wbb",RESULT1$,""""+CVS(SKU.PROJECT$,3)+"""",""""+CVS(SKU.PROJECT$,3)+""" selected"3 LET TEXT$=TEXT$+"
Project:"+TDD$+RESULT1$+"* To add a new Project open a new tab, add it and then refresh this screen"+TRO$$
Dims Unit:q4$
Length:j    5$pWidth:    6$rHeight: 8L$"
Weight Unit:TV$
Weight:k * - required 8`$
Cube Ft:n 8t+$#
Pallet Block:j x 8j$#
Freight Code:$ j$$
Sort Sequence:$g$!
Rate Table:$`$
Price:"f$
Building:%$#
Re-Order Qty:(|3bottom of form handlingV POPUP1?$ *E$ &$' - :$)  3no changes$y$
#( $ ($ܨ8]D N# $$ŞX( & M:N(1*=47),D:N(1*=47),Y:N(1*=47)b($&/// @' $@'@'g$(@'@)@*Ŕl$$ (%Y%Mz%DzŔŀŞŔ $$Ş8$ţ]Ũ Ų өżA$%Ө$%8%]   $$\ /$$//\8$f]p350800z 2Ƅ3 encode sub charsƎ$3%&+=:#<>"Ɠ$42Ƙ53Ƣ.$4435%۩35Ƭ*5 3^100 - encode unprintable charsV$6 4 69$446%۩4646V$64 69$446%۩46463 convert spaces to +3$6 4 6$46+$84.]d\ @ $$ + "$$$") <$$$<) >$$$>& '$$$'$$$$8$]`3CONVERT SKU TO NEW TPLej!, SKUNEW.tpl1t,SKU.tpl1y ~ ,SKU 1 / ( uttplcp.wbb LH3---- SCAN FOR MISSING SHTABLEnR$_$JITEMU_,_.tpl1__,_ ` 1U` @..3IF LEN(JITEM.DESCRIPTION$)<25 THEN GOTO 61230)t*/` @ @ @~.$@000$`LU`2TRTDDTROYYY TDELEMENTTDPLAIN TDNOWRAPTDDRTEXTWFCGIWFWFPGMCGI DFORM1LOOKUPYYYVTPLCFYYY FORMNAMETRPLAINTHHYYY1YYY2 REPTITLEDUMMYTDDCTRRRJULVREASON CGI.STARTNEXTSEQESEQ CGI.RELEASEVLINKADDLINKYYYYMDYMDY.YJMDYMDY.MMDY.DFY PRBC.YEAR FYENDINGTODAYSJULVFLAG BACKBUTTONTHISENCTHATIXYYKITINFOACHELPSKUSKU SKU.SKUCODE SKU.DESC CGI.DESC SKU.ITEM_NOSKUSEQCCNVZK WFCOCODE SKU.CUST_NOWFCUST SKU.CO_CODEFRECODEA5B5C5C5D5E5F5G5H5F5G5J5H5I5JITEMD5I5K5L5M5N5O5Q5 SKU.COSTFJITEMDOSKU SKU.WEIGHT CGI.WEIGHT CGI.WEIGHTUNIT SKU.DIMSL CGI.DIMSLFACTOR CGI.DIMSUNIT SKU.DIMSW CGI.DIMSW SKU.DIMSH CGI.DIMSH SKU.PROJECT CGI.PLTBLK CGI.PLTHGT SKU.UOM CGI.UOM CGI.DOCUSTDOCUSTDOEDITSKUKEYITEMNOPCSCTNDESCDIMSLDIMSWDIMSH CURR_WEIGHTJITEM.CURR_WEIGHT PALLET_BLK PALLET_HIGHJITEM.PALLET_HIGH JITEM.FREIGHT_CDEFRTCODEJITEM.PALLET_BLKCS JITEM.CS CGI.FRTCODEJITEM1 JITEM.CS CGI.PCSCTNFROMTOCLOSEG CLOSEGRELOAD SKUVIEWONLYSORTSEQ IREADONLYIHELP1CLGITEMCGIXXCUST_PROJSHTABLE CGI.ITEMNO CGI.SHTABLEJSHRTJSHRT JITEM.DESCRIPTION JITEM.SH_TABLERONLYLOTTED JITEM.LOTTED_ITEMIPRICE BUILDING REORDER_QTY JITEM.PRICE JITEM.BUILDING JITEM.REORDER_QTY CGI.BUILDINGJITEM.REORDER_QTY CGI.PRICE CGI.REORDER_QTYJNMFCJNMFCSKUWAS JITEMWAS ERRMESSAGE LASTERRORXLFILESENDTOSUBJECTCCTOMESSAGE SIGNATURERESULTTPL2TPL1SKU1SKU2RKEY CGI.RKEYTEXT9TEXT8SKULOGNB CURR_CUBEJITEM.CURR_CUBE CGI.CURR_CUBECGIVALDD1SUBMDYSAVEYMD2JYMD2MDYENC GETSKUSEQ ESCAPECHARHELP LOGVIEW1P LOGVIEW1