Index: FLOW.mac.rou =================================================================== diff -u -r48861 -r48888 --- FLOW.mac.rou (.../FLOW.mac.rou) (revision 48861) +++ FLOW.mac.rou (.../FLOW.mac.rou) (revision 48888) @@ -362,19 +362,17 @@ If Global="KTO",Number>299999 Set Number=200000 If Global="KOD"{ If ((BeperkteOrdernummerRange || ($Get(OrdTyp)="T")) && (Number>109999)) { - If (Number > 109000) { - New Inhoud - - Set Inhoud = "Aandacht: de range voor TransferOrders is bijna opgebruikt (90%)!" - Set Inhoud = Inhoud _ $$$CRLF _ $$$CRLF - Set Inhoud = Inhoud _ "Huidig nummer: " _ Number - - Do ##class(BL.Legacy.FLOW).%New().VerstuurMail("Range TransferOrders", "ict_development@vanhoecke.be", "Range TransferOrders 90% opgebruikt", Inhoud) - } - ;2A of (Pre 2a + Transferorder) Set Number = 100000 - } Else { + } ElseIf ((BeperkteOrdernummerRange || ($Get(OrdTyp) = "T")) && (Number = 109000)) { + New Inhoud + + Set Inhoud = "Aandacht: de range voor TransferOrders is bijna opgebruikt (90%)!" + Set Inhoud = Inhoud _ $$$CRLF _ $$$CRLF + Set Inhoud = Inhoud _ "Huidig nummer: " _ Number + + Do ##class(BL.Legacy.FLOW).%New().VerstuurMail("Range TransferOrders", "ict_development@vanhoecke.be", "Range TransferOrders 90% opgebruikt", Inhoud) + } Else { ;Pre 2A en geen Transferorder If Number>199999 Set Number=101000 }