%
%%%  |PrdDone
%
% make alternate product composite image for follow-up mode
%

_Arching.Vm
{
 Vm.*Anchor
 "Built.log" ofdesk "Buily" &_Shooter.ProdType &".log" ofdesk copyfile
 "XactSrc.jsx" ofdesk "XactSryp" &_Shooter.ProdType &".jsx" ofdesk copyfile
 "Built.jsx" ofdesk "Buily" &_Shooter.ProdType &".jsx" ofdesk copyfile

 *xactprcp

 "PrfDone" *shootern

 _Xact !SrcXact
 "SrcXact" text*xact

 "remake.txt" ofxact exists
"omake---" log)(
 _Fup.PhoSend and
"omake---" log)(
 {
  "xact" &_SrcXact ofsnap folder !Msg.Remake
  _Xact catcr
  "Display" text ^_Msg.Remake write
  "Subject_Displayed.txt" ^_Msg.Remake del

  "incoming.txt" ^_Msg.Remake
  _SrcXact text ofcur
  copyfile
 }
 {
  _Xact _SrcXact eq$
  {
   _Xact catcr
   "Display" text!xact
  } if

 } ifelse
}
{
 *vendings
"PrdDone" log)(

 <
 |Quick
  "ProdMMSC_1.jpg"
%
% next is filling prod commerce
%
  "ProdFill" *shootern
 |Single

  _Shooter.ProdType
  <
  |1 "Zq.jpg"
  |2 "Zt.jpg"
  |3 "Zk.jpg"
  |4 "Zs.jpg"
  |5 "Zj.jpg"
  |6 "Zp.jpg"
  |7 "Zm.jpg"
  |8 "Zr.jpg"
  > not
  {
   "Zp.jpg"
  } if

  dup ofxact
"----prod" log)(
  "TacWvR_1876_vGallery1.jpg" ofxact
  copyfile

  "PrfDone" *shootern

  _Xact !SrcXact
  "SrcXact" text*xact
  _Xact _SrcXact eq$
  {
   _Xact catcr
   "Display" text!xact
  } if

%%% *xactunrd
 > not
 {
  "ProdMMS_1.jpg"
%
% next is filling prod commerce
%
  "ProdFill" *shootern
 } if

 ofxact
"----proe" log)(
 "ProdMMT_1.jpg" ofxact
"----prof" log)(
 copyfile

} ifelse