Index: FLOW.mac.rou =================================================================== diff -u -r29059 -r29308 --- FLOW.mac.rou (.../FLOW.mac.rou) (revision 29059) +++ FLOW.mac.rou (.../FLOW.mac.rou) (revision 29308) @@ -312,7 +312,7 @@ For Do ADD^vhLock(GloRef) Quit:%TC Hang 1 Set Number=@GloRef,Number=$$CHKMAX(Global,Number) If Global="KUL" Do - . Set CompDate=$$CALCDATE^vhLib.DataTypes(,"M",-4,"FD") + . Set CompDate=$$CALCDATE^vhLib.DataTypes(,"W",-14,"FD") . For Quit:'$D(@IGloRef)&'$D(^ORDW("D",Number)) Do . . Set R=$G(^KU1(Number,"F")),KLNr=$P(R,D) . . If KLNr Do Quit:$G(UseThisNumber) @@ -321,7 +321,7 @@ . . . Else Set R=$G(^KUL(KLNr,"M",Number,1)) If $L(R),$$INTDATE^vhLib.DataTypes($P(R,D,2))>CompDate . . . Else Set R=$G(^KUL(KLNr,"T",Number,1)) If $L(R),$$INTDATE^vhLib.DataTypes($P(R,D,2))>CompDate . . . Else Do - . . . . ; Deze bon is ouder dan 6 maand en reeds gefactureerd, hergebruik het nummer. + . . . . ; Deze bon is ouder dan 14 weken (3.5 maand) en reeds gefactureerd, hergebruik het nummer. . . . . Do VerwijderGefactureerdeBon^FLOWBON3(Number) . . . . Set UseThisNumber=Number . . Set Number=Number+1,Number=$$CHKMAX(Global,Number)