Index: SGREEP.mac.rou
===================================================================
diff -u -r918 -r1134
--- SGREEP.mac.rou	(.../SGREEP.mac.rou)	(revision 918)
+++ SGREEP.mac.rou	(.../SGREEP.mac.rou)	(revision 1134)
@@ -159,15 +159,16 @@
  Quit KortT
  
 LANGTXT(Param,Taal) 
- New ItemID
+ New ItemID,iLoop,Cnt
  ;3 lijnen van langtekst clearen 
  Set LT(Taal,1)="",LT(Taal,2)="",LT(Taal,3)=""
  Set ItemID=$P(Param,D,2)
  Quit:'$D(^RES(Tabel,"PI","STANG","D",ItemID,Taal))
  
  ;Taal gevonden, lijnen L1->L2 invullen
- New ResLangTxt
+ New ResLangTxt,IsSigmaGreep
  Set ResLangTxt=^RES(Tabel,"PI","STANG","D",ItemID,Taal)
+ Set IsSigmaGreep=($P($G(^RES(Tabel,"PI","STANG","D",ItemID,"N")),";")["Sigmagreep")
  Set LT(Taal,1)=$P(ResLangTxt,";",1)
  New TLen,TVoet
  If Taal="N" Set TLen="Lengte" Set TVoet="voetjes"
@@ -178,7 +179,7 @@
  
  
  ;Bij SIGMAGREEP bestaat langtxt uit twee regels
- If $L(ResLangTxt,";")=2 Do    ;SIGMA!!
+ If IsSigmaGreep Do    ;SIGMA!!
  . Set LT(Taal,2)=TLen_" "_$P(Param,D,3)_"mm, "_$P(ResLangTxt,";",2)
  Else  Do
  . Set LT(Taal,2)=TLen_" "_$P(Param,D,3)_"mm, "_$P(Param,D,10)_" "_TVoet
@@ -189,7 +190,12 @@
  . Set VoetLengte=$P(Param,D,9)
  . Set Defaults=$P(^RES(Tabel,"PI","STANG","D",ItemID),"`",7,8)
  . If VoetType_"`"_VoetLengte'=Defaults Do
- ..  Set LT(Taal,2)=LT(Taal,2)_", "_VoetType_" "_VoetLengte_"mm"
+ . . Set LT(Taal,2)=LT(Taal,2)_", "_VoetType_" "_VoetLengte_"mm"
+ . Set Cnt=0
+ . For iLoop=1:1:11 Do
+ . . If $P(Param,D,10+iLoop)'="" Do
+ . . . Set Cnt=Cnt+1
+ . . . Set $P(LT(Taal,3),";",Cnt)="A"_iLoop_"="_$P(Param,D,10+iLoop)
  Quit
  
 SAVE