<>8(0 B3"TIFOMAKE_PREFERRED - 05/23/07 - CREATE F/O FROM WEB PAGE FOR TCG43"Copyright (c) 1997 Transportation Software Systems`fgb(@@d3100x$Y$,YJBLFH32$Z$,ZJBLFD33$[$,[JITEM34$I$,IJILOT$$,JCONS35$\$,\CCNVZ37S$w$xJCUST,wx.tpl1wyw,wx y$AwS$w$xJCARR,wx.tpl1wyw,wx y$wW$w$x PREFCARR1,wx.tpl1wyw,wx y$wS$w$xTMETA,wx.tpl1wyw,wx y$wS$w$xTIMAN,wx.tpl1wyw,wx vy$uwT$w$xJBDIVS,wx.tpl1wyw,wx zy${wU$w$xWMSBOM3,wx.tpl1wyw,wx y$wW$w$x JBDEALERS,wx.tpl1wyw,wx y$w\# 3"JBLFH1#3"JBLFD - I TYPE#3"JBLFD - TYPE L AND M$J1O`?O1A?$ ,(3------------- all order info is in cgi$  $$$өf±8]31000B ]L$$]]۩]20]V/$]]/]/]`8]j]t$^h3^100 LOOP HERE$hh h43^100(Z$dfNEWQTY۩(h00000cAөfNEWITEM۩(h00000 2" dcFI$G$G NEWLOT۩(h00000 G$GAG *3^1000 ------ handle the display of orders ^ $^ < +c(3handle new carlson kit items  4 3^100 DONEC #(E$aGF fFLAGRESH'$FNote: Residential DeliverytH3^100 "HANDLE MESSAGESI)$FWeb Order By: ۩'ULOGINtJ$FPhone: @itK- @$F Manager: @tLK1uA@(Pv @$FEMAIL:۩@P$tA@jRz1{A@|Uz$F Division: @|t3LET COMMENT$="Freight Code:"+CVS(JBDIVS.FREIGHTCODE$,3); GOSUB 3700V RPDATEk$FReturn Pickup: ۫ RPDATEt$@RPDATE@A$@ RPDATEL\11A@~ ^ @UU3FOR COMM=1 TO 12; LET COMMENT$=BOLNOTES$(COMM*30-29,30),COMMENT$=CVS(COMMENT$,16); IF LEN(COMMENT$) THEN GOSUB 3700 FI; NEXT COMM 5U2  #$FReq. Carrier: t> @+$FAcct with Carrier: ۩@t$FReq. Arrival: @t}3IF AH$<>"" AND BLWEIGHT>=300 THEN READ (JBLFH,KEY=AH$)IOL=0180; LET HH$="CTCHAMPION"+FILL(22); WRITE (JBLFH,KEY=AH$)IOL=0180 #( K3---------- HANDLE THE DEALER EMAILS (USING DEALER_EMAILS ROUTINE INSTEAD) $$@ 2$ $,   0$ $,  0$ $, !$,  T #$F "1 өF$FEMAIL:۩F J  8 %3^1000 "SET-UP AND WRITE JBLFH RECORD $  4#%&'()*+,-./01 \^I@ $$(- ########0 $-- L\^I  $$ $b $? &-$ ݨTIM$TIM$ 0 :/$2$22 $22 D$RA 2 I$ @3RCC 3/11/2011 N$3 4# S$fCARRIER T T$f SERVICELEV U UD1۩A V$@$ @۩A VH 5U3CHANGE CARRIER CODE IN HEADER FOR SERVICE LEVEL W ] X$  ۩A b($ %Mz%Dz%Yz۩(Ө#00.00 lh$ 3 LET DELDATE$=JBPLAN.REQUESTED_DATE$; LET JH$=DELDATE$(4,2)+DELDATE$(6,2)+DELDATE$(2,2) nl$@ M:N(1*=46),D:N(1*=46),Y:N(1*=46)$... ASAP$ ASAP  p2$@@@ q$ %Mz%Dz%Yz v 111111$ ASAP $ 1 00 $ 13FREIGHT CHARGE m$@ 3LET DOCHARGE$=FIELD(CGI$,"FREIGHTCHARGE",ERR=3212); IF DOCHARGE$="Collect" THEN LET KH$="3" 7 @CP)$ 53CLIENT PICKUP ALWAYS 3RD PARTY $kA@l $$fPON $A 3PONUM $ A@m 3SRN $k 3BRK NUM !$   D Third Party5$$A12Third Party Billing : @CP,$A12Third Party Billing 3CLIENT LY $< $ ; 8 23^100 "----------------------DETAIL RECORD WRITE'S ?$ !3IF CVS(DOSKU$,3)="" THEN RETURN  c8 $ $( 000 $$I J3READ RECORD(SKU,KEY=C$+BH$+DOSKU$,DOM=3430)SKU$; LET DOITEM$=SKU.ITEM_NO$ $c۩  *3"VERIFY ITEM NUMBER 4$!c۩ $!! >$QR HE1[! fH=QR R3IF NUM(QTY$)>ONHAND-COMITTED THEN LET REASON$="Item "+ITEM$+" has only "+STR(ONHAND-COMITTED)+" available (not including other recently entered --uncomitted-- orders)!"; GOTO 8200 \ f $#N p? X4$SInvalid Item code entered: !
  za$M$ITEM ! NOT ON FILE. ORDERED " Q$G HY$  $ AUTOMATIC  *I! TU $M$INVALID LOT SELECTED ITEM:! LOT: NOT ON FILE. ORDERED " 3IF NUM(QTY$)>LONHAND-LCOMITTED THEN LET REASON$="Lot "+ITEM$+CD$+" has only "+STR(LONHAND-LCOMITTED)+" available (not including other recently entered --uncomitted-- orders)!"; GOTO 8300 $d $۩ 7$3DF$=CVS(A$[15],3)+FILL(6),DF$=DF$(1,6) $<<=;; LZ 8=3^100 "------------------ write the bottom comment "M" lines?$$ F8.#$$M۩(008$$MB$AF<LLZj8t;3^100 "-------------------DETAIL RECORD WRITE'S COMMENTS~?$ F8 өF$ $( 000$$L$F۩LZ83^100 " ----new consignee code"$56A@nA$7@o8@p9@:Aө@q, @r @s& @USA$9::@XL556789:@~ %Yz%Mz%Dz  :!3----- BOTTOM COMMENTS FOR ZUZATZWBLPMESS5 $<  $*$\ $ $F- FӨF\$FFF83--------- handle kit items] d'$F(d) Kit : ct$F(d ) Kits : ct&$Ac&1ŵ$F@t6|$FEACH KIT CONTAINS ۩( BOXESt $d$ 3loop here:$cSKUCODE۩(dQTY۩(& cd$d(ӨdP $ r8|3---------- figure the boxcount$R$ $SKUCODE۩(۩A B$QTY۩( $ܨ8@3 8000 "ERROR ROUTINE"J($_ERROR ۩(Ө  AT ۩(Ө"TE203^100 "---------- remove header and any details4Y1Z$VZ1 V 4ZV/$>>
Order  not accepted
8 '3^100 "---------- order not accepted F W;$>>!Possible backorder situation:
 S ;$>>+Sorry. Your order is not being accepted
S &  : 0K$>>

INVALID ENTRY


@ (۩(Ө ) at ۩(Ө" :5$>>)
Please click BACK and fix the problem D#x l&3^100 "----- VALIDATE CONSIGNEE CODE vL$@,MUST HAVE VALID ZIP CODE WITH CONSIGNEE CODE @K 0 %$L ݨө@J۩@J $@INVALID CONSIGNEE CODE: ۩LJ1L 056789:M$@0ZIP CODE DOESN'T MATCH ZIP ON FILE FOR CONSIGNEE @K: 0 )$@B6@C7@D8@E9 :  #(39000 #- u#. I#2%$N %Mz/%Dz/%Y %Hz:%mz:%sz#<,  $>>No BOL Created.#n#F@$>>ORDER ACCEPTED at N ASSIGNED B/L NUMBER: #K$g>#N$P jitweborders#P- @ADLR$P jitweborders_@#Q. @L!$Plaxweborders@champlog.com#R@ GOC000.$PP",tallen@championlogisticsgroup.com#S SAMPLE$Pchuck@tssconnect.com LMP003S$PPG,rtermini@championlogisticsgroup.com,lramsey@championlogisticsgroup.com#TQ3IF STBL("orderemail",ERR=9044)<>"" THEN LET ELIST$=ELIST$+" "+STBL("orderemail")#UDUMPTPLf}#Z3A$="echo 'Future Order "+AH$+" Customer:"+ACUST$+" at "+ORDERTIME$+$0A0A$+RLIST$+" ' | mailx -s'Web Site Order Customer-"+ACUST$+"' "+ELIST$#dn$ Future Order  Customer:? at N }Web Site Order Customer-?P#e(JBMAILTO#n*$gg
Order alerts sent to: P#s8 `$FHP001/MHW001/SAMPLE/GOC001/MSI002/ '#t `ENT/ '#x#',3--------- RUN THE BACKGROUND COMMIT PROGRAM'0$/usr/local/bin/whp/tss.wblcmb ""'$ $ >/dev/null 2>&1'.$gg
'j*U+1.+ $ ۩A@.U8.312000.U.$Ft.$FA~t/%$FTHIRD PARTY BILLING TO: t/ @ $F@t/ @ $F@t/& @ $F@t/0#$@, @ @/:( @@@ $Ft/D$FA~t/NU82 U3130002 өt3@2$tt2$ t2, t$t$t32. #$t$tt3O G$t t$tt$t3$3$$3"$A3,Ve$FeFF өFt*e3623@U86 U31400063$ @ $@ 663$,@ $@ 663$;@ $@ 663$ @ $@ 66$@6?$ !$66% 7<$ 7%$ $7  $7 $7& $FEMAIL:۩t7(( $72 67<U8LINEJCONSAHBHCHDHEHFHGHHHIHJHKHLHMHNHOHPHQHRHSHTHUHADBDCDDQDDDNETDEDFCLINEITEMQTYONFILEBLNOA7A7B8C8D8E8F8G8B8C8H8I8J8OPCDTEMPTEMP2JCONS1JCONS2JCONS3JCONS4JCONS5JCONS6BLPCS BLWEIGHTCURWGTTEXTACUSTEJCUST CGI.CONS1 CGI.CONS2 CGI.CONS3 CGI.CONS4COMMENTLOTLOTTEDJILOT CGI.CONSCODE CGI.CONSZIP CONSCODEJCONS7 ORDERTIMECUST1ELISTONHAND COMITTEDREASONLONHAND LCOMITTEDK3ORDERAVAILONLYVALIDITEMSONLYJBLFHJBLFDJITEMCCNVZYY DOHEADER ERRMESSAGEWFCUSTBOLBOL1DOITEMDOQTYCOMMCGIRESULT1DOITEM CGI.DEALER_PHONE CGI.ADDRNOTESBUDGET CGI.BUDGET1 CGI.SRN CGI.DEALER_ADD1 CGI.DEALER_ADD2 CGI.DEALER_ADD3 CGI.DEALER_CITY CGI.DEALER_STATE CGI.DEALER_ZIP BOLNOTESTIMANTIMANCFTPLJBDIVSJBDIVS CGI.DIVRLIST CGI.JBDEALER DOCARRIER DOCHARGEMLINEMLINE JBDEALERS JBDEALERS JBDEALERS.EMAILSSENDTOEMAILSCCLISTPMDYMDY.MMDY.DDDMDY.Y CGI.REQARRVDATEKITEMII KITCOUNTDOSKUSKUSEQSKUKEYSKUQTY BOXCOUNTAAA PREFCARR PREFCARR PREFCARR.CARR_NAME PREFCARR.CARR_CODE DOSERVLEVJCARRJCARR JCARR.CARRIER_NAME PREFCARR.FREIGHT_CHARGE PREFCARR.ACCT PREFCARR.BILL_CO PREFCARR.BILL_ADR1 PREFCARR.BILL_ADR2 BILL_CSZ PREFCARR.BILL_CITY PREFCARR.BILL_STATE PREFCARR.BILL_ZIP CGI.DEALER_COUNTRYMESSAGESUBJECTCCTO SIGNATUREXFLFILERESULTJCUST CGI.MANAGER TIMAN.EMAILMESS1MESS2P1 JCUST.BL_FORM_TYPEPON JCUST.BUILDING_CODEBOLNOTES_TEMP BOLNOTES_LSTRIP_PJBDEALERS_EMAILSEMAIL_PEMAIL_COMMENT CGI.DEALER_ADD4YYYYYYVWMSBOM3WMSBOM3 WMSBOM3.DESCTMETATMETA TMETA.QUAL TMETA.TKEY TMETA.TVALRICDATESERVICE_LEVELSERVICE_LEVEL_RETURNTHIRD_PARTY_BILLINGTHIRD_PARTY_BILLING_RETURN BOL_COMMENTBOL_COMMENT_RETURNDEALER_EMAILSDEALER_EMAILS_RETURNCGIVALw