Index: FLOWORD.mac.rou =================================================================== diff -u -r1706 -r1716 --- FLOWORD.mac.rou (.../FLOWORD.mac.rou) (revision 1706) +++ FLOWORD.mac.rou (.../FLOWORD.mac.rou) (revision 1716) @@ -504,7 +504,9 @@ . Quit:$L(FaxNrOrEmail) . Set OrdBev=$P(^KKL(^KK1(KLNr),1),D,19) . If KLNr=$$$KlantSFS Do - . . If ($P(R,D,53)=##class(BL.Flow.Offerte.enu.Oorsprong).EDIBestand()) do ##class(APPS.OV.impl.OrderBevestigingSFS).%New(ORDNr).Verwerk() + . . If ($P(R,D,53)=##class(BL.Flow.Offerte.enu.Oorsprong).EDIBestand()) Do + . . . Do ##class(APPS.OV.impl.OrderBevestigingSFS).%New(ORDNr).Verwerk() + . . . Set OrdBev="" . Quit:OrdBev="" ; Geen bevestiging faxen . If $E(OrdBev,2)="M",'BevatMaatWerk,'$$BevatNietStock^FLOWORD5(ORDNr),'$$BevatAfdekKap^FLOW("O",ORDNr) Quit ; Geen maatwerk, geen Niet-stock, geen afdekkapjes dus geen fax of mail . If $E(OrdBev)="F" Set FaxNrOrEmail=$P(^KKL(^KK1(KLNr),1),D,24)