%
% acceptance vectors for Customer Service operation
%
sel@

_Ent.Page
<

|CustServe

 Ent._E3
">Cuserve " log()
 <
 |Initial
  Tree.Last positive
  {
   Tree.Last !\
   select*
%
% there are images, show current image
%
   *custimgt
%
% stack: js-text
%
   Help.!

  }
  {
   
  } ifelse

  *archarea perscreen Help.!Dim
%
% indicate not in image edit mode
%
  false !Customer.Editing
%
% end with current time, start with bias back from end
%
  30 Time.Now *timebias

  "CustServe" *helpface

%%%  *nopclear
%%%  true !Customer.Admin
%%%  "number1" *tootmark

 |Tab
%
% react to the tab selection
%
  Ent._E4 trim
">>Tab " log()
  <
  |Options
%
% check for first time entering
%
   Ent._E5 trim
">>>Options " log()
   <
   |-1

   > not
   {
   } if

  |Order

%%%   @Nop show
%%%   _Helping _@ false *panelflt

  |Find
   "IfrGo('"
   &_Arching.VirChain
   &"/xact" "xact" \_ & &"/AsliderB/wowSliderBlock.html?rand=' + Math.random());
"
dup logs
   Help.!

  |Extra
%
% stack: js-text
%
   "SetTrange('" &_Customer.Stime &"','" &_Customer.Etime &"');"
   Help.!

  > not
  {
   @Nop subform?
   {
    hide
   } if
  } if

 |sidebar1
  Ent._E4 any?
  {
   pop
   "GoUser(document.all.txtDisplay.value)" Help.!
  }
  {
   Ent._E5 any?
   {
    pop
    "GoEmail(document.all.txtFvalue.value)" Help.!
   } if
  } ifelse

 |sidebar2
%
% go to image editing interactive assistant
%
  _\ positive
  {
   *phocrefs
   *phocedtr
  } if

 |sidebar3
%
% tabulate products for user
%
  _\ positive
  {
   *phocrefs
   *tabustar
  } if

 |sidebar4
%
% launch 
%
  _\ positive
  {
   *phocrefs
   "Thumbed" *shooterx
   {
    "xacting" \_
    any?
"cusxact " log()
    {
     "Process" *shootern
     ^"'custbuld' !Xactex
"
     execstr
    } if
   }
   {
    *xsliders
    *runxchek(
   } ifelse
  } if

 |sidebar5
%
% launch
%
  *phocrefs

  *allsnapt

 |sidebar6
%
% launch order products buy now to cart
%
  *phocrefs
  "SendOrder('" &_Customer.Subject &"','" &_Customer.Xact &"');
"
  Help.!
%
% calculates ecommerce totals for SmsMon processing
%
%%%  *ecommerc
%
% log in to administrator for product import
%
%%%  *nopaelog

 |ByTime
  Ent._E4
"stime " log()
  *formtime
  _hours &":" _minutes 2 prezero &
  !Customer.Stime
  Ent._E5
"etime " log()
  *formtime
  _hours &":" _minutes 2 prezero &
  !Customer.Etime
  *allsnapb
  *allexitr

 |ByAll
  *allsnapa
  *allexitr

 |Exiter
  Help.Hide
  "Back" vector()
  "DeskPs\Sales" *xhelstaq

 |NextImg
  *phocnimg

 |PrevImg
  *phocpimg

 |SaveInfo
  "GoUpdate();" Help.!

 |Indexed
  Tree.Last positive
  {
   Ent._E4
   isnull
   {
    pop
    Tree.Last !\ select*
   }
   {
    rootnode
    *seeknode
    _\ positive
    {
%
% go to the correct tree node and select
%
     select*
    } if
   } ifelse
  } if

 |Back
%
% return to normal help presentation
%
  Task.@
  show
  *helpnorm

 |Images
%
% gather all the images for this phone number of user
% starting at the last image, place it in the rightmost slot (>=10 images)
% (<10 images) start at 10 - (number of images)
%
  Task.@
  Ent._E4 unescape
dup logs
  !Customer.Phone
  Ent._E5 unescape !Customer.Email
  Ent._E6 unescape !Customer.First
  Ent._E7 unescape
dup logs
  !Customer.Last
  Ent._E4 &"_*.ifn" *allsnaps
%
% all values and entries are in the tree
%
  empty

  Tree.Last !\
  _counter positive
  {
   *custimgt
   &
   select*
  }
  {
  } ifelse
dup logs
  Help.!

 |Help
  "Customers" !Help.Url
  *xhelstar

 |IfrLoad

 > pop

>

*acceptun

%
% stack: found
%