KOFGRP ;OFFERTES MODULE GROEPERING ;Quit naar %F10 [ 11/07/2001  2:42 PM ]
 ;
T1 ;Algemeen totaal;Totale;Gesammt;Total
T2 ;Subtotaal;Subtotale;Subgesammt;Subtotal
 ;
SCROL(UO,Type,Funct) 
 Set Funct=$G(Funct)
S1 If 'Funct Do SCROL^READ("Soort groepering",1,"","[] = algemeen totaal   1[] = subtotaal","","-1[K","") Quit:K="-"  Set Type=K,UO=""
 Set UO=$G(UO) If UO="" Set UO=$P($T(@("T"_(1+Type))),U,$F("NFDE",KT))
S2 Do SCROL^READ("Omschrijving "_$P("algemeen \sub",D,Type+1)_"totaal",UTL,UO,"","","","L")
 If K="-" Goto S1:'Funct Quit K
 Set UO=K
 Do SCROL^READ("Met bladsprong",1,$P($P($G(U2),D,17),"#",3),"[] = neen   1[] = ja","","-1[K","L",23)
 Goto S2:K="-"
 If Funct Quit UO_D_K
 Set B(105)=UO,B(117)="KOFGRP"_"#"_Type_"#"_K
 Quit
 ;