Index: PRODUKT5.mac.rou =================================================================== diff -u -r2311 -r3879 --- PRODUKT5.mac.rou (.../PRODUKT5.mac.rou) (revision 2311) +++ PRODUKT5.mac.rou (.../PRODUKT5.mac.rou) (revision 3879) @@ -167,7 +167,7 @@ . . Set KundenStamm=KundenStamm_", "_BlumKLNr_" "_BlumKlNaam_$S(IsDO:"(DO)",1:"") Quit $E($G(KundenStamm),3,55) ; - ; Geef de kundenstamm van een product + ; Geeft de kundenstamm van een product GeefKuSta(PRNr) New KundenStamm,VHKLNr,BlumKLNr,BlumKlNaam,IsDO If $G(PRNr),$D(^PRPUTZ("N",PRNr)) Do