Index: BL/Flow/Offerte/Offerte.cls.xml
===================================================================
diff -u -r1368 -r1695
--- BL/Flow/Offerte/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 1368)
+++ BL/Flow/Offerte/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 1695)
@@ -174,6 +174,8 @@
 	. . . . . . Set FormOnzePrijs=$S(FormOnzePrijs:$$EXTNUM^vhDTyp(FormOnzePrijs,0,".T",2)_$P(R,D,2)_$S($P(R,D,3)="H":"%",1:" "),1:"")
 	. . . . . . Set Offerte("L",GroepKey)=Offerte("L",GroepKey)_D_FormVerwPrijs_D_FormOnzePrijs_D_$P(R,D,1,3)
 	. . . . . Set $P(Offerte("L",GroepKey),"\",20)=EDILijnRef
+	. . . . . Set $P(Offerte("L",GroepKey,"Default"),"\",35)=$TR(oLijn.KlantOrderlijnNummer,".",":")_".00"   ; Added by WimV on 14/07/2011 
+	. . . . . Set $P(Offerte("L",GroepKey,"Default"),"\",51)=oLijn.AantalEenheid                             ; Added by WimV on 14/07/2011 
 	. . . . Else  If oLijn.%ClassName()["LijnTekst" Do
 	. . . . . Set Status=oLijn.Status,Tekst=oLijn.Tekst
 	. . . . . Set Offerte("L",GroepKey)="T\"_Grp_";"_Ln_";"_Sub_";"_BO_D_Status_D_$$Strip(Tekst,D)
@@ -197,7 +199,12 @@
  	. . . . Set $P(List(Count),D,5)=$P(List(Count),D,5)_", "_$P(Product,", "),Product=$P(Product,", ",2,999)
  	. . . Set $P(List(Count),D,5)=$E($P(List(Count),D,5),3,99)
  	Set Offerte("H")=OfferteNr_D_KLNr_D_Obj.Status_D_$$Strip(Obj.Referentie)_D_Obj.Datum_D_$$Strip(Obj.Afzender)_D_$$Strip(Obj.Geadresseerde)_D_$$Strip(Obj.CommReferentie)
+ 	Set $P(Offerte("H","Default"),"\",51)=oOfferte.EtiketKlantNaam    ; Added by WimV on 14/07/2011 
+ 	Set $P(Offerte("H","Default"),"\",52)=oOfferte.EtiketWoonplaats   ; Added by WimV on 14/07/2011 
  	
+ 	;d WLIP^vhDBG(97,"VerwerkOfferte : "_oOfferte_"  Etiket: "_oOfferte.EtiketKlantNaam_" + "_oOfferte.EtiketWoonplaats)
+ 	d WLIP^vhDBG(97,"array Offerte :"_$$$ArrayTT("Offerte",.Offerte))
+ 	
  	/// Het verwerken van de offerte
  	Do ##Class(CHUI.Flow.Offerte.Offerte).VerwerkOfferte(.Offerte,.List,Geforceerd)
  	Do ..UnLock(OfferteNr)