Index: FaxMail.mac.rou
===================================================================
diff -u -r734 -r948
--- FaxMail.mac.rou	(.../FaxMail.mac.rou)	(revision 734)
+++ FaxMail.mac.rou	(.../FaxMail.mac.rou)	(revision 948)
@@ -108,7 +108,7 @@
  Quit
  ;
 CreateAndSend(Data,OverrideDestination,FaxFilePath,RunMode)
- New DataRef,DocType,Doc,Ref,DerdeNr,lbDocTypes,lbDocDefs,lbKeywordsPPOD,pxVoorblad,pxDocMulti,Task,Opties,sc,FaxLogObj,scSave
+ New DataRef,DocType,Doc,Ref,DerdeNr,lbDocTypes,lbDocDefs,lbKeywordsPPOD,pxVoorblad,pxDocMulti,Task,Opties,sc,FaxLogObj,scSave,Exemplaren
  ; $$$ppodtFactuur
  ; $$$ppodtOfferte
  ; $$$ppodtOrder
@@ -124,12 +124,13 @@
  If DocType="?" Set (lbDocTypes,lbDocDefs)="" ; Vrije ingave
  If "\F\V\"[(D_DocType_D) Do  ; Factuur en proformafactuur
  . Set DerdeNr=Data("KLNr"),lbDocTypes=$LB($$$ppodtFactuur)
- . Set lbDocDefs=$LB($LB($LB(Data("DocNum"),$S(DocType="V":"P",1:""),"C")))
+ . Set Exemplaren=$G(Data("Exemplaren"),"C")   ; Copy (C) of orig (O) fact
+ . Set lbDocDefs=$LB($LB($LB(Data("DocNum"),$S(DocType="V":"P",1:""),Exemplaren)))
  . Set Ref=""
  . For  Set Ref=$O(Data("DocNum",Ref)) Quit:Ref=""  Do
  . . Set Doc=Data("DocNum",Ref) Set:Doc="" Doc=Ref
  . . Set lbDocTypes=lbDocTypes_$LB($$$ppodtFactuur)
- . . Set lbDocDefs=lbDocDefs_$LB($LB($LB(Doc,$S(DocType="V":"P",1:""),"C")))
+ . . Set lbDocDefs=lbDocDefs_$LB($LB($LB(Doc,$S(DocType="V":"P",1:""),Exemplaren)))
  If "\A\"[(D_DocType_D) Do  ; Offerte
  . Set DerdeNr=Data("KLNr"),lbDocTypes=$LB($$$ppodtOfferte)
  . Set lbDocDefs=$LB($LB(Data("DocNum"),"KOF"))