Index: Flow/RecuPak/Verv.cls.xml =================================================================== diff -u -r1074 -r1865 --- Flow/RecuPak/Verv.cls.xml (.../Verv.cls.xml) (revision 1074) +++ Flow/RecuPak/Verv.cls.xml (.../Verv.cls.xml) (revision 1865) @@ -133,7 +133,7 @@ . . Set R=RecuPak(PRNr,RecuPakPRNr),Aantal=$LI(R) . . If $LL(R)=1 Set RecuPak(PRNr,RecuPakPRNr)=$LB(Aantal,"","","") Quit ; Recupak onbekend bij VH . . Set TAantal=$LI(R,2),RecuPakAantal=$LI(R,3) - . . Kill:TAantal/Aantal+.9\1=RecuPakAantal RecuPak(PRNr,RecuPakPRNr) ; Geen verschil (na eventuele afronding naar boven) + . . If Aantal Kill:TAantal/Aantal+.9\1=RecuPakAantal RecuPak(PRNr,RecuPakPRNr) ; Geen verschil (na eventuele afronding naar boven) . Kill:'$O(RecuPak(PRNr,"")) RecuPak(PRNr) ; Volledig ok ]]>