Index: KF0.mac.rou =================================================================== diff -u -r921 -r1273 --- KF0.mac.rou (.../KF0.mac.rou) (revision 921) +++ KF0.mac.rou (.../KF0.mac.rou) (revision 1273) @@ -157,7 +157,7 @@ . S OffRef=$P(R,D,8) . Q:OffRef="" . S R=@OffRef,UEP=$P(R,D,6),PK1=$P($P(R,D,7),"#"),PK2=$P($P(R,D,7),"#",2),USP=$P(R,D,21),NoRecalc="=" - I '$G(NoChkPrs),"\C\P\"'[(D_$$PRIJSKL^KLANT(KC,PR)_D),'$$CHKPRIJS^KPRIJS(PR,PLP,UEP,AFE,UPAR,CIFPPL,$$WACHTW(UTYP,UEP,CIFPPL),,60,120,$S(UTYP="M":"V",UTYP="P":"V",1:"ALV")) G YZ + I '$G(NoChkPrs),"\C\P\"'[(D_$$PRIJSKL^KLANT(KC,PR)_D),'$$CHKPRIJS^KPRIJS(PR,PLP,UEP,AFE,UPAR,CIFPPL,$$WACHTW(UTYP,UEP,CIFPPL),,60,120,$S(UTYP="M":"V",UTYP="P":"V",1:"ALV"),KC) G YZ 27 S ULT=$$INTDATE^vhDTyp(%WK,"DW")+(CorLevT*7) D:'PSN .I 'PLL,WeekDag<3 ; Producten zonder levertermijn leveren zelfde week t.e.m. dinsdag