%
% acceptance vectors for Tabulation operation
%
page@sel
<

|Tabulate
 wireop(
">Tabulate" log)(
 <
 |Initial
%
% use the xact and subject phone number to provide customer locations
%
  *custlocn
  _Customer.Root &"\Z.tlt" *treemenu

  *prodpric
%%%  &"ProdClear();
%%%"
%%%   _Customer.Orders &".js" read
%%%  &
  &"RowSetter(1);
"
dup logs
  Help.!

  @@
  "Tabulate" *helpface

 |sidebar1
  1 *prodindx

 |sidebar2
  2 *prodindx

 |sidebar3
  3 *prodindx

 |sidebar4
  4 *prodindx

 |sidebar5
  5 *prodindx

 |sidebar6
  6 *prodindx

 |Order
%
% collect all the new orders for custom products
% add the new order quantity into the cart order quantity
%
  _Customer.Root &"\Z.tlt" Tree.Save pop

  Ent._E8 unescape
  _Customer.Orders &".js"
  write

  "SendOrder('"
  &_Customer.Subject
  &"','"
  &_Customer.Xact
  &"');"
dup logs
  Help.!

 |Save

  "Products" *hiertone
  {
%
% take the snapshot of numbers currently in the tabulator
%

   _Customer.Root &"\Z.tlt" Tree.Save pop

   Ent._E8 unescape
   _Customer.Orders &".js"
   write

   *helpnorm

   @@
   hide
   "Back" vector()
  } if

 |Back
%
% return to normal help presentation
%
  *helpnorm
  @@
  hide
  "Back" vector()

 |Extra

 |Cancel
%
% return to normal help presentation
%
  *helpnorm
  @@
  hide
  "Back" vector()

 > pop

>

*acceptun

%
% stack: found
%