Index: SGREEP.mac.rou
===================================================================
diff -u -r734 -r918
--- SGREEP.mac.rou	(.../SGREEP.mac.rou)	(revision 734)
+++ SGREEP.mac.rou	(.../SGREEP.mac.rou)	(revision 918)
@@ -219,33 +219,35 @@
  	 
 KSTPRIJS(Param) 
  New KstPrijs,ItemID,SGKstV,SGKstL,Lengte
- w "Params ",Param,!
+ ;w "Params ",Param,!
  Set Lengte=$P(Param,D,3)
  Set ItemID=$P(Param,D,2)
+ Quit:'$D(^RES(Tabel,"PI","STANG","D",ItemID)) ""
  Set StdVoetLengte=$P(^RES(Tabel,"PI","STANG","D",ItemID),"`",8)
  Set VoetLengte=$P(Param,D,9)
  Set SGKstV=^RES(Tabel,"PI","STANG","K",ItemID,"V") ; vaste kost incl. 2 voetjes
  Set SGKstL=^RES(Tabel,"PI","STANG","K",ItemID,"L") ; lengte afhankelijke kost
  Set SGKstT=$G(^RES(Tabel,"PI","STANG","K",ItemID,"T")) ; Toeslag indien lengte > 1500
  Set KstPrijs=SGKstV+(SGKstL*Lengte)
- w "KstPrijs stang ",KstPrijs,!
+ ;w "KstPrijs stang ",KstPrijs,!
  If Lengte>1500 set KstPrijs=KstPrijs+SGKstT
- w "KstPrijs stang extra lengte ",KstPrijs,!
+ ;w "KstPrijs stang extra lengte ",KstPrijs,!
  
  Set SGroep=$P(^RES(Tabel,"PI","STANG","D",ItemID),"`",3)
  If (SGroep'["SIGMA") Do
  . New VKstV,Qty,VoetID,VKstT
  . Set VoetID=$P(Param,D,8)
  . Set:VoetID="" VoetID=$P(^RES(Tabel,"PI","STANG","D",ItemID),"`",7)
- . w VoetID
+ . ;w VoetID
  . Quit:VoetID=""
  . Set VKstV=$G(^RES(Tabel,"PI","VOET","K",VoetID,"V")) ; vaste kost van 1 voetje vertrekkend van het derde voetje
  . Set VKstT=$G(^RES(Tabel,"PI","VOET","K",VoetID,"T")) ; toeslag indien voetlengte afwijkende van standaard maat
  . Set Qty=$P(Param,D,10)
+ . Set:Qty<2 Qty=1 ;  normaal minstens 2 boringen of voetjes, soms wordt er echter geen gekozen, dan wordt er 1 voetje afgetrokken geen twee
  . Set KstPrijs=KstPrijs+(VKstV*(Qty-2))
- . w "KstPrijs extra voetje ",KstPrijs,!
+ . ;w "KstPrijs extra voetje ",KstPrijs,!
  . Set:StdVoetLengte'=VoetLengte KstPrijs=KstPrijs+(VKstT*Qty)
- . w "KstPrijs extra lengte voetje ",KstPrijs,!
+ . ;w "KstPrijs extra lengte voetje ",KstPrijs,!
  
  Quit $J(KstPrijs,0,2)