Index: DCPROD.mac.rou
===================================================================
diff -u -r734 -r2185
--- DCPROD.mac.rou	(.../DCPROD.mac.rou)	(revision 734)
+++ DCPROD.mac.rou	(.../DCPROD.mac.rou)	(revision 2185)
@@ -156,7 +156,7 @@
  ; Toelevering
 PRODTOE(R) 
  New PRNr,KortText,IdentNr,Omschr1,Omschr2,Omschr3,Omschr4,Omschr5,Omschr6,IsStock
- New Aantal,Prijs,Korting,LevWk,Round,SpePrijs
+ New Aantal,Prijs,Korting,LevWk,Round,SpePrijs,Gentype
  Set PRNr=$P(R,D,2),Aantal=$P(R,D,3),Prijs=$P(R,D,6),Korting=$P(R,D,7),Round=$P(R,D,21)
  Set LevWk=$P(R,D,25),SpePrijs=$P(R,D,26)
  Set Round=$P("%\/M",D,$F("HM",$E(Round))-1)
@@ -182,6 +182,39 @@
  If $L(Korting) Set R=Korting_"``69",Korting="" Do BLOCK(R)
  Quit
  ;
+ ; Toelevering bouwstenen Halux
+PRODTOEBS(R) 
+ New PRNr,KortText,IdentNr,Omschr1,Omschr2,Omschr3,Omschr4,Omschr5,Omschr6,IsStock
+ New Aantal,BSKey,KPRNr,Sort,SortKey,BSAantal,WVStock
+ Set PRNr=$P(R,D,2),Aantal=$P(R,D,3)
+ Do FETCHPR(PRNr)
+ Set R=IdentNr_"`3``B"_D_"*`15``B"_D_KortText_$S($L(KortText)<24:$J("",25-$L(KortText)),1:"")_"``41`B"_D_$$FN(Aantal,0)_"``78`B"
+ Do BLOCK(R),PASTEB^DCTOE(L("D","B"))
+ Set BSKey=""
+ For  Set BSKey=$O(^PRBS("BS",PRNr,BSKey)) Quit:BSKey=""  Do
+ . Set R=^PRBS("BS",PRNr,BSKey),KPRNr=$P(R,D),BSAantal=$p(R,D,2)
+ . Quit:'KPRNr
+ . Set SortKey=$$SORTKEY^PRODUKT(KPRNr)_BSKey,Sort(SortKey)=KPRNr_D_BSAantal
+ Set BSKey=""
+ For  Set BSKey=$O(Sort(BSKey)) Quit:BSKey=""  Do
+ . Set R=Sort(BSKey),KPRNr=$P(R,D),BSAantal=$P(R,D,2)
+ . Do FETCHPR(KPRNr)
+ . Kill Omschr
+ . Set Omschr(1)=##Class(Prod.ProductTekst).GetOmschrijvingViaPRNr(KPRNr,,", ",1)
+ . Do GETWRAP^vhBIGEDIT("Omschr",28,.Omschr,"G","~","")
+ . Set Omschr=$P($G(Omschr(1)),"`",5)
+ . Set R=$G(^PRSTOCK("D",KPRNr)),WVStock=$P(R,D,5),WVStock=$$CV2MAG^MRP(KPRNr,WVStock)
+ . Set R=IdentNr_"`4``"_D_KortText_$J("",25-$L(KortText))_"`16``"_D_Omschr_$J("",27-$L(Omschr))_"`42``"
+ . Set:(Aantal*BSAantal)'>WVStock R=R_"\*`72``"
+ . Set R=R_D_$$FN(Aantal*BSAantal,0)_"``78"
+ . Do BLOCK(R)
+ . For Omschr=2,3 Do
+ . . Set Omschr=$P($G(Omschr(Omschr)),"`",5)
+ . . Quit:Omschr=""
+ . . Set R=Omschr_$J("",27-$L(Omschr))_"`42``"
+ . . Do BLOCK(R)
+ Quit
+ ;
  ; Offerte type detail
 PRODOFFD(R) 
  New PRNr,KortText,IdentNr,Kleur,Omschr1,Omschr2,Omschr3,KlantRef