<>Z Pg )3VICS01 - VICS BOL HANDLING AND PRINTING3!@@0r3LET F=UNT,F$="LASTORDER",LASTORDER=F; OPEN (F)F$+".tpl"; READ (F)TPL$; CLOSE (F); OPEN (F)F$; DIM LASTORDER$:TPL$1R$$VICSH,.tpl1, 2R$$VICSD,.tpl1, 6R$$JBLHD,.tpl1, 7&$$JBLDT,8R$$JCUST,.tpl1, :R$$JITEM,.tpl1, ;R$$JCONS,.tpl1, <$,' $otherhead>@^$+VA$wFw$N5 HG$f?Changes Saved
R"$)400*8003for popupsZ$SUBFUNC[\5$-]A$;9_`3set formstart and formenda!$"" &PGMFUNC=CALL۩#b$l-q-h$ ##,###,##0i:$% -###,###,##0' -$#####0.000 #######0.00j2$< $###,##0.00003"2010.02.25 SRR Ticket 1321A$td class="td" <>< nowrap>$    =V$.?/D$/< $
  VIEWJBLHDU  DELETEJBLHDU SHOWVICSU  STARTCARTU  QUICKADDU   SHOWCARTDOU  LINEDELETEU  PLACEORDERU  CANCELORDERU LISTVICSU$$Invalid Function Specified#(3DISPLAY ENTRY SCREEN $Under Construction.#( U 3" START A NEW SHOPPING CART4$@@4>$@@tH3DIM PRST$:FATTR(PRST$); IF CGI.SCODE$="" THEN GOTO 0850 ELSE READ RECORD(PRST,KEY=PAD(CGI.SCODE$,12),ERR=0842)PRST$; GOTO 0850J`3LET TEXT$="

Invalid Ship-To Code. Click "+BACKBUTTON$+" and fix the problem."; GOTO 9000\$@@up Lu*4I@4v3PREVENTS DUPLICATE UPDATESzU3---- DISPLAY CART$AӫVID 1ůUL$e`$form1`t6$#&3LET EDITSKU$=""+SKU.SKUCODE$+""#$ $c$i[0$ e$+
: 3x0$
R
S


     i v$
3LET TEXT$=TEXT$+"

[Refresh]"#(/3--------- create the add new item to cart form 9$R1*V$RRT% `?$RR+ P$RR
WMS BOL to Add Action
 $RR <$RR&$&$QUICKADDUd$RR۫$value="Submit"=value="Add" onClick="document.form1.PLACEORDER.value = 'no';"<$RR
$RR8$3-------- CREATE PDF OF COMBINED BOLh$'WFDIRtmp/clg۩@.pdf.ps$Ө /clg/wf/tmp/%$$,۷O_CREATE,O_TRUNC$@-$ VICSPSCOMBL$3.84$ps2pdf   >/dev/null 2>&1B$

PDF Version of Document (click SAVE to update the PDF version
~833-------- gather/format existing BOL DETAIL records$3FOR PRINTING AT 40005$S-&$  1@Ư1 @@P ,JBLDT,JBLHD1@̯"K ,JBLDH,JBLHH1@̯"# 1͵@@ϯ$|* 1@}$Z nD $mmnv$00$($(pM$SS @ @ @ @ @ =Z  $@3" DONE WITH DETAILS$SS
m<$SST WMS BOL# Consignee Name Address City, ST Pieces Weight Remove
:$SSN8X"U3 "--- delete a line from orderl&$gA@ @h1g 4g$efU[$O?PGM=JBB&WF=JBDEALERS&PGMFUNC=LOOKUP&DOSEARCHNUM=_JBDEALERS1&RETURNTO=JBDEALER|V$ 8$"8$"8$"8 $"8x$"8@3T=$@ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E23-------- EMAIL ERROR MESSAGE+$A'WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNCA=$@ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# L@E$BA"$Cchuck@champlog.comD@(JBMAILTOCEDFGBH@ 3- INVALID SHIPTOONLY m$D



Invalid "Ship-To Only:" Value entered. Please click ; and fix the problem#( }$q
Order is not valid. Click and fix the problem(s).#(U 39000 OUTTA HERE#<.8U 3"--- handle quick element add verification and write.$\.$AӫVID .1ůU/U3this saves the addresses/D3START VALIDATION/I$@@/K @U/N+$[ Invalid BOL1@ԯ/X/b/X6L18h \\$

Validation Error(s)

\

Click ; and fix the problem(s).1$@@@@1 $X2 21@Y22 $$XX$Y(X00022$@Y2 Yb$}

Validation Error(s)

Maximum line limit of 98 exceeded. Please complete and start a new receipt to continue.
Click l and fix the problem.2Z L2U2"3------ DISPLAY VALIDATION MESSAGE6L3" add ewarn to the message6V$\\[
 6`  Invalid SKU[@{$\\ Add SKU @{ for customer: @

 686U6$-A@U]@W76PRALLOC@y- 5962787n17p7x'18 @@y@-7x7 $rr@7B$ss Element: @ User: @ Qty:@
 7 @@4$[You may only add each element one time per territory. If you want to change the order quantity please remove 'X' the order line and add again with adjusted quantity.6L98@7x838D ]924$["Order Qty Exceeds Allocation.
6L98 r]92s$[bOrder Qty Exceeds Available Allocation. Following users have un-placed orders for the Element.
s6L:8:U3"--- place the orders:1@4U :h$K %Y%Mz%Dz%Hz%mz%sz1I@4:J3if record exists they DID NOT start at place orders:$

*** ORDERS NOT SAVED. You did not start your entry properly
If you need to verify orders placed please check your 'My Orders' screen carefully to make sure duplicate orders are not being placed.***

:- $ xR@@@;($@@@@@@@@;LL;$mp;1@4;;1B; @@4B<(* w w1vx@@<-w<$1@< $pp=D$SKU: @ CLG Item: @} Qty:@
 =# $='$@(p##0@@}@@='$@A@|@@@@@>DLA;B3"---- done with ordersB u pj$D


You did not add any lines to your entry!

CLICK ; AND FIX THE PROBLEMB$@M@4@LKLIJB$oBU3orderconfirmationB6#$End of Update.

BT $jUBYYB^U J8 U3"--- CANCEL THE ENTIRE ORDERJB1@4U Jj1@4JtJ1JJ @@4JJ4JJJ3DONEJ 4@4J j8JU Y3DONEY$>Y$ m$>>
Changes being saved.
** Do NOT click BACK or RELOAD - Your order(s) may get duplicated **YtF3------ display "Wait" message and then refresh to place orders screenYZ$Q %Mz/%Dz/%YP5?PGM=JBB&WF=JBUSERS&PGMFUNC=CALLPREREC1&SUBFUNC=ADHOCY{ mo$>a

Update Complete WITH WARNINGS!


Yr$THTML REDIRECT >Yu7U3^100 " ------------- display all tentative receiptsv$~v*/$~#v/$~~# v\1|vp* 1@vqv1 vv$w$-1w   ww~w$w$"w|3LET PDFLINK2$=""x$  $ labelsx 3LET LINKDEL$=""x$"xPT$Z            xj$~~  ۩@ ۩( ۩( Z |v\|3|$~~
VICS NumCustReference#PiecesWeightCarrierTrailerPRO#Action
|$~~| $~#(#3------------- get totals for a BOL%$1 /$g< g  <&$ gI1؉01ꉀ$1۩A $鉲$@9 & $۩A3* RAD:$ 2<3doneF$LcP$8@UJ#3---- display the tentative receiptT$A@h1| 13^1000 - create ENTRY form$$V$:$TD Customer: @ - @ %$:: I/B Ref#: @ $$::Carrier: @ $$::Vehicle: @ +$::Departure Date: @ -$::Appointment Date: @ $::
Pre-Receipt Inquiry
$e$ $
: 343now the detailsH5$S-R&$  1$1 Ğ)1۩A@ 40 w w1v۩A@w$1@&$(@x۩(@x۩(@$SS ^@|
   ۩@z @} ۩(@ 1=Z  4V$SS
mk$SSTSKU CLG Item No. Dims Weight Qty
+$
S
$

Delete this Pre-Receipt$

+M E4$

Pre-Receipt:  DELETED!

(U2$U !$  $+$< width="۩(">8"], 6! $ @8J]T ^,$ $
h8r]| Ć ĚĐ1$//20Ě8Ĥ]Į ĸ$"",8]( $, ۩5$۩ ۩ 8]  $! !($! !ܨ8] $$$ө8&]D N# $_ŞX( ` M:N(1*=47),D:N(1*=47),Y:N(1*=47)b($`/// @a $@a@ag$b@a@c@dŔl$_ b%Y%Mz%DzŔŀŞŔ $_Ş8_ţ]Ũ< // 8)U3^1000 " ------------- VICS ADD SCREENB1@4<L6$(#$(#name=""name="budgetform"VY$>9
Required
( ǒ&$3get territoryA$ Customer:  nXx$ Inbound Ref#:
  X$
8$+0;$/


2$& STARTCARTU$&$$ $
O/3B LISTJBLHD; LET TEXT$=TEXT$+"

"+JTEXT$U R3-------- scan all elements in program to see if any are avail to on-demand order83^1000 - create ENTRY form$$V$:$T9 Customer: 6 * v$:: VICS BOL#: 5 * k$::Carrier: 6 n$::Trailer: 9 e$::PRO#: 3 r$:: Special Inst: 8 $::
VICS BOL
=$::, 8ިU3---- DISPLAY CART޼1@4$F2$FF $FF
k 3handle override 0$FF
S
+ utsub.wbbFclass="smalltable""> utsub.wbbF3 utsub.wbbF8/U3" --- handle updtae of address/header fieldB3---- this is now a called subroutine from QUICKADD and PLACEORDER @tw$Q


ALL REQUIRED FIELDS (MARKED BY '*') MUST BE COMPLETED.

CLICK ; AND FIX THE PROBLEM$@@t@@@@$@@@@X L$ef8#3------------ DISPLAY ERROR MESSAGE`;U3 ------ RETURN STRING OF FORM TAGS IN formstart formende$j?$#
~M &B$6<$&$' R F$+ $
$$8FFTPLSUBFUNCCGI ERRORIMAGE TDELEMENTTDPLAIN TDNOWRAPTRTDDTDDHTROTDDRBRYYY1YYY2YYYYYCYYSYYZYYYVTEXTFURLWFCGI FINDURLG TESTURLG LOOKUPDEALER FORMNAMEWFPGMTEXT1YYY1YYY2YYYWFCGI1 FORMSTARTFORMENDM11 NOSUBMITM12 FORMSTART1PHEIGHTPWIDTHCLOSEGOHEADDOTERRTRCTRNM13QTYALLOCWF SESSION.LOGINBUDGETUNALLOC INPROCESSSHIPPED TERRALLOCOTEXT BACKBUTTONM64TDDC TEXTALERT TRCIMAGE ERRMESSAGE LASTERRORXLFILESENDTOSUBJECTCCTOMESSAGE SIGNATURERESULT LASTORDER LASTORDER NOWORDER LASTORDER.ODATE LASTORDER.LOGIN NOBACKBUTTON BOTTOMTEXT RETURNURLTODAY ITEMFORMSCARTTRH CGI.TERRSDATE CGI.QTYSEQSEQACTIONEWARNVREASONDOQTY BRANDPROGYYMDYMDY.YJMDYMDY.MMDY.DYELLOWMESSAGE CHANGESSAVEDK CGI.ESEQ CANCELBUTTON PLACEORDERDTEXT STARTOVER OWARNING AWARNINGORDERUPDATING LINECOUNT STARTORDER SCARTQTYSTEXT CGI.CUST CGI.IBREFSKUSKU WFCOCODE PREL.SKUCODE SKU.DESC CGI.SKUCODE SKU.SKUCODE SKU.ITEM_NOJTEXTJCUSTJCUSTTQTYTWGT JCUST.CUSTOMER_NAMEJITEMJITEMTPLTM80TRR CGI.CARRJITEM.PALLET_BLKJITEM.PALLET_HIGHPALLETSLABSPDFLINK LABELLINK CGISKUCODE PDFLINK2 JITEM.DESCRIPTIONLINKDEL LINKVIEWJKEY CGI.DOKEYDIMS SKU.WEIGHT SKU.DIMSL SKU.DIMSW SKU.DIMSHKD DODELETE CLOSEGRELOAD CGI.DOCUSTVICSHVICSHVICSDVICSDJBLHDJBLHDJBLDTJBLDT VICSH.LOGIN VICSH.CUST VICSH.IBREF VICSD.LOGIN VICSD.SKUCODE VICSD.QTY VICSD.TERR VICSD.ESEQ VICSD.QTY JBLHD.IBREF JBLHD.DEPARTDATE VICSH.DEPARTDATE JBLHD.APPTDATE VICSH.APPTDATE JBLHD.CARR VICSH.CARR JBLHD.VEHICLE VICSH.VEHICLE JBLDT.SEQ JBLDT.ITEM_NO JBLDT.QTY JBLDT.DESC JBLDT.PLTB JBLDT.PLTH JBLHD.CUST_NO JBLDT.QTYCARRVEHICLE JBLHDIBREFDOVICS VICSH.VID VICSH.TRAILER VICSH.REF1 VICSH.SPECIAL1 SAVEBUTTON VICSD.VID VICSD.BOLJCONS JBLHD.COCD JBLHD.CONSJCONS JCONS.CONSIGEE_NAME JCONS.ADDRESS_1 JCONS.ADDRESS_3 CGI.BOL CGI.TRAILER CGI.SPECIAL1 CGI.REF1PCS CGI.VIDPSOUTPSFILEBLISTAPSFILEPDFFILEBOLSEQ PDFLINK1WGTRADLINESPCSWGTLOCSB2A2LOCJITEM.CURR_WEIGHTLOCS JBLHD.CUST JCONS.ZIP_CODECW1EMPTYBRD1XLCSZCGIVALSUBFORMEND OUTTAHEREY2MADHOC STARTCART QUICKADD SHOWCARTDOMDYSAVE LINEDELETE PLACEORDER CANCELORDER RADALERT CHECKQTY VIEWJBLHD DELETEJBLHD LISTVICS SHOWVICSADDVICS ~