%
% stack: empty [ prod . . . ]
%
% report the quantities for products
%
0 !total
0 !objects
empty !tally
{
 isnull ?
"OrdGa" log)(
 dup " " "_" replall ^"Prods." _ 
%
% stack: empty [ prod . . . ] prod prod-sum
%
 &" " exch squoter &&;
%
% stack: empty [ prod . . . ] prod-str
%
 ^:tally
"OrdGb" log)(
} loop
pop
"OrdGc" log)(

empty
_tally execstr
{
 isnull ?
 " " "_" replall
"OrdGd" log)(
 "prodlook" look
 {
"OrdGe" log)(
  ^"Arching." _
  _objects second add !objects
  mul _total add !total
 }
 {
  pop
 } ifelse
"OrdGf" log)(
} loop
pop

%
% copy the seed xlsx files into the connector area
%
"ordrC.xlsx" ofconn
"ordr" &_Order.Xact ofconn &"C.xlsx"
copyfile
"ordrP.xlsx" ofconn
"ordr" &_Order.Xact ofconn &"P.xlsx"
copyfile

%
% form the order/cart/product sequence
%
% Oxact,Price,Name,ShortDescription,FullDescription,SKU,Categories,Picture1
%- 31969
_Order.Xact &"|"
%-------12
&_total     &"|"
%----------- Product Group Order N
&"Order " &_Order.Xact &"|"
%----------------- All the latest selections of your custom products
&"Your latest selections " &"|"
%----------------------------------- <p>XPnnnnnn,XMssssss,�E.</p>
&"<p>Product group<p>" &"|"
%-------------------------------------------------- tnnnkkkkkk
&"CS" &_Order.Xact &"A" &"|"
%------------------------------------------------------ ORDERX;
&"ordr" &_Order.Xact &"|"
%------------------------------------------------------------------C:\inetpub\wwwroot\results\ordrnnnnnn.jpg
&snap &"ordr" &_Order.Xact &"\Anchor.jpg" &"|"
%
% 31969|14.50|Order 9425-31969A|Product group for 9425|Includes Ceramic Mugs, 8x10s|CS31969A|ORDERX;|C:\inetpub\wwwroot\results\xact31969\Pb.jpg|
%
&;
"OrdGg" log)(
%
% write this to the subject phone number named invocation of order processing
%
"XL" &_Customer.Subject &".txx" ofconn *fiovertx
"OrdGh" log)(