<>!Tz )3PREFCARR1ADD - ADD NEW PREFERRED CARRIER ?31/25/2011 - allow update of existing PREFCARR1 via pencil edit @3F POS(CVS(SESSION.ULEVEL$,3)="u/") THEN LET PREFCARR1VIEWONLY=1*^$$R PREFCARR1,.tpl1, Si<@@@^$NVA$OwPJ OTHERHEAD9d2$Add/Edit PREFCARR1'REPTITLEfJ TB$"View PREFCARR1 - No update allowed'REPTITLEsA$td class="td" <>< nowrap>z$  .$$
, 6$$$ө @@8E]TL  CARR_NAME^ GO^13test if exists^r6$ j#(3&g3LET ACTUALCOST=NUM(CGI.COST$,ERR=1072); LET VCHECK=MASK(CGI.COST$,"[/ \$]+"); IF VCHECK THEN GOTO 1072.83%$COST MUST BE NUMERIC
89 ӫ CARR_NAME$Invalid Carrier Name  )3CHECK TO SEE IF PREFCARR1 EXISTS ALREADY3---- start building the record S S$@U;! ;SAM $@U DOCUST$@U@<$@c@d$@f@g#$@ez@d003default3 IF MASK(CGI.PREFCARR1CODE$,"[^A-Z0-9\-]")>0 THEN LET VREASON$="PREFCARR1 Codes limited to letters, numbers and dashes"; GOTO 3000 %$@bzz3indicates customer routedG1RS $S (ӨS 00&$Invalid code encountered.  g3------ have a new PREFCARR1, create the PREFCARR1, create the jitem and then continue with the updates473LET PREFCARR1.ITEM_NO$="C"+STR(PREFCARR1SEQ)+CHECKDIG$ $@h5 LRS ? [ SLOGIT1 PREFCARR1SS[ S (K$ 

PREFCARR1 CODE: 'S' HAS BEEN WRITTEN.

u POPUP1^$# Add More Carriers A$ 8#$
POPUP1 $ N #( 3validation failed S$ Validation Failed:


Click 2 and Fix the problems.<3--------- PRPROGRAMS FILE$,@-., $/"$0ӫ@ 0U 0.n0.=$1%START DATE MUST BE IN FISCAL YEAR
 "$ӫ@" Y3IF SJUL"+$0A$F /:$1"RELEASE DATE CANNOT BE IN PAST
 8@3T=$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E2#( 3OUTTA HERE&')U 3---------- GET THE NEXT PREFCARR1 SEQ'$9$,9CCNVZ'$+$: [PREFCARR119:'.\'8'.!$\ 43DEFAULT STARTING POINT'8$\\L9::\'B9'j863----- DUMO TABLE OF CURRENT 61R66$jx

Preferred Carriers

Add/Edit Screen
6$k8SCAC|Bill To Acct|Carrier|Freight Charge|Bill To Company$jj# 71R:4i7xG$jj 97:43:H$jj
۫k|
@l@n@m@o
:8N N*E ө/$//N48N>]o5 PRNEXTSEQ PRNEXTECODE $!( 00008$addparamL$ 
 $ 3$=; DOCUST$=DOCUST i$>]$] DOPREFCARR1 ]4$^J1=۩A]1R^S$>Z >R$@@ZA(@WB(@XC(@Y?@VL(Ө@M53LET DESC1$=DESC$; CALL "utencode.wbb",0,DESC1$,DESC$ ; >3$D(@EF(@KG(@HJ@I*R$PQ ].$P readonly Q* no change allowedR3W'$Qsystem assigned - do not change\3LET TEXT$=TEXT$+"Code:"+TDD$+""+FNHELP$(IHELP1$)+TRO$q$ #Carrier Name:'$Qoptional~$ ,Account# with Carrier:"۫Q$Qoptional{$ #Bill To Name:%۫Q|3bottom of form handlingV POPUP1?$  *E$  &$ ' - :$ )  T3no changes$ y$ 
8 $ ($ܨ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 3Ƅ3 encode sub charsƎ$4%&+=:#<>"Ɠ$53Ƙ64Ƣ.$5546%۩46Ƭ*6 3^100 - encode unprintable charsV$7 5 79$557%۩5757V$75 79$557%۩57573 convert spaces to +3$7 5 7$57+$85.]d\@ $% + "$%%") <$%%<) >$%%>& '$%%'$%%$8%]TRTDDTRO ERRMESSAGEYYY TDELEMENTTDPLAIN TDNOWRAPTDDRTEXTWFCGIWFWFPGMCGI DFORM1LOOKUPYYYVTPLCFYYY FORMNAMETRPLAINTHHYYY1YYY2 REPTITLEDUMMYTDDCTRRRJULVREASON CGI.STARTNEXTSEQESEQ CGI.RELEASEVLINKADDLINKYYYYMDYMDY.YJMDYMDY.MMDY.DFY PRBC.YEAR FYENDINGTODAYSJULVFLAG BACKBUTTONTHISENCTHATIXYYKITINFOCCNVZKWFCUST CGI.DOCUSTDOCUSTDOEDITITEMNODESCDIMSLDIMSWDIMSH CURR_WEIGHTJITEM.CURR_WEIGHT PALLET_BLK PALLET_HIGHJITEM.PALLET_HIGH JITEM.FREIGHT_CDEFRTCODEJITEM.PALLET_BLKCS JITEM.CSCLOSEG CLOSEGRELOAD IREADONLYIHELP1 PREFCARR1 PREFCARR1PREFCARR1VIEWONLY PREFCARR1.CUST_NO PREFCARR1.ITEM_NOPREFCARR1.DIMSLPREFCARR1.DIMSWPREFCARR1.DIMSH PREFCARR1.DESCPREFCARR1EMPTY PREFCARR1SEQ DOPREFCARR1 PREFCARR1KEY CARR_NAMEACCT DOBILL_CO PREFCARR1.CARR_CODE PREFCARR1.CARR_NAME CGI.CARR_NAME PREFCARR1.SCAC PREFCARR1.ACCT CGI.ACCT PREFCARR1.FREIGHT_CHARGEPT1T P.SCAC P.CARR_NAME P.ACCT P.BILL_COCGIVALDD1SUBMDYSAVEYMD2JYMD2MDYENC ESCAPECHARHELPGETPREFCARR1SEQGdGI.CARR_NAME PREFCARR1.SCACCGIVALDD1SUBMDYSAVEYMD2JYMD2MDYENC ESCAPECHARHELPGETPREFCARR1SEQA.DIMSW CGI.DIMSH CGI.CUST_PROJ CGI.PLTBLK CGI.PLTHGT CGI.UOM CGI.DOCUSTDOCUSTDOEDITITEMNODESCDIMSLDIMSWDIMSH CURR_WEIGHTJITEM.CURR_WEIGHT PALLET_BLK PALLET_HIGHJITEM.PALLET_HIGH JITEM.FREIGHT_CDEFRTCODEJITEM.PALLET_BLKCS JITEM.CS CGI.FRTCODEJITEM1 JITEM.CS CGI.PCSCTNCLOSEG CLOSEGRELOAD IREADONLYIHELP1CLGITEM PREFCARR1 PREFCARR1PREFCARR1VIEWONLY PREFCARR1.CO_CODE PREFCARR1.CUST_NO PREFCARR1.PREFCARR1CODE PREFCARR1.ITEM_NOPREFCARR1.WEIGHTPREFCARR1.DIMSLPREFCARR1.DIMSWPREFCARR1.DIMSH PREFCARR1.PROJECT PREFCARR1.DESC PREFCARR1.UOMPREFCARR1EMPTY PREFCARR1SEQPREFCARR1.COST DOPREFCARR1 PREFCARR1KEY CARR_NAMEACCTDOSCAC DOBILL_CO PREFCARR1.CARR_CODE PREFCARR1.CARR_NAME CGI.CARR_NAME PREFCARR1.SCACCGIVALDD1SUBMDYSAVEYMD2JYMD2MDYENC ESCAPECHARHELPGETPREFCARR1SEQ%PREFCARR1PREFCARR1VIEWONLY PREFCARR1.CO_CODE PREFCARR1.CUST_NO CGI.PREFCARR1CODE PREFCARR1.PREFCARR1CODE PREFCARR1.ITEM_NOPREFCARR1.WEIGHTPREFCARR1.DIMSLPREFCARR1.DIMSWPREFCARR1.DIMSH PREFCARR1.PROJECT PREFCARR1.DESC PREFCARR1.UOMPREFCARR1EMPTY PREFCARR1SEQPREFCARR1.COST DOPREFCARR1 PREFCARR1KEY CARR_NAMEACCTDOSCACCGIVALDD1SUBMDYSAVEYMD2JYMD2MDYENC ESCAPECHARHELPGETPREFCARR1SEQ ESCAPECHARHELPGETPREFCARR1SEQmeE PREFCARR1.ITEM_NOPREFCARR1.WEIGHTPREFCARR1.DIMSLPREFCARR1.DIMSWPREFCARR1.DIMSH PREFCARR1.PROJECT PREFCARR1.DESC PREFCARR1.UOMPREFCARR1EMPTY PREFCARR1SEQPREFCARR1.COST DOPREFCARR1 PREFCARR1KEYCGIVALDD1SUBMDYSAVEYMD2JYMD2MDYENC ESCAPECHARHELPGETPREFCARR1SEQq08080; padding:0 0 0 30px;"> $% + "$%%") <$%%<) >$%%>& '$%%'$%%$8%]TRTDDTRO ERRMESSAGEYYY TDELEMENTTDPLAIN TDNOWRAPTDDRTEXTWFCGIWFWFPGMCGI DFORM1LOOKUPYYYVTPLCFYYY FORMNAMETRPLAINTHHYYY1YYY2 REPTITLEDUMMYTDDCTRRRJULVREASON CGI.STARTNEXTSEQESEQ CGI.RELEASEVLINKADDLINKYYYYMDYMDY.YJMDYMDY.MMDY.DFY PRBC.YEAR FYENDINGTODAYSJULVFLAG BACKBUTTONTHISENCTHATIXYYKITINFOACHELPSKUSKU SKU.SKUCODE CGI.SKUCODE SKU.DESC CGI.DESC SKU.ITEM_NOSKUSEQ SKUEMPTYCCNVZK WFCOCODE SKU.CUST_NOWFCUST SKU.CO_CODEFRECODEA5B5C5C5D5E5F5G5H5F5G5J5H5I5JITEMD5I5K5L5M5N5O5Q5 SKU.COSTFJITEMDOSKURESULT1 SKU.WEIGHT CGI.WEIGHT CGI.WEIGHTUNIT SKU.DIMSL CGI.DIMSLFACTOR CGI.DIMSUNIT SKU.DIMSW CGI.DIMSW SKU.DIMSH CGI.DIMSH SKU.PROJECT CGI.CUST_PROJ 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 IREADONLYIHELP1CLGITEMCGIVALDD1SUBMDYSAVEYMD2JYMD2MDYENC GETSKUSEQ ESCAPECHARHELPq