Index: BL/Legacy/EWORDS6.cls.xml =================================================================== diff -u -r49859 -r49998 --- BL/Legacy/EWORDS6.cls.xml (.../EWORDS6.cls.xml) (revision 49859) +++ BL/Legacy/EWORDS6.cls.xml (.../EWORDS6.cls.xml) (revision 49998) @@ -21,10 +21,8 @@ #dim PickDatum As %Date =..GetPickDatum(ORDNr) #dim VandaagOfMorgen As %Integer =$$$AndereDag if ##class(TECH.DateTime).IsVandaag(PickDatum) { - set VandaagOfMorgen= $select( ##class(TECH.DateTime).HorologToTime($Horolog) < ..GeefKantelPuntDoorsturenPicking(ORDNr):$$$Vandaag, 1:$$$AndereDag) - } elseif ..IsVolgendeArbeidsdag(PickDatum) { - set VandaagOfMorgen = $$$Morgen - } + set VandaagOfMorgen=$select( ##class(TECH.DateTime).HorologToTime($Horolog) < ..GeefKantelPuntDoorsturenPicking(ORDNr):$$$Vandaag, 1:$$$Morgen) + } elseif ..IsVolgendeArbeidsdag(PickDatum) { set VandaagOfMorgen = $$$Morgen } Quit VandaagOfMorgen ]]> @@ -138,8 +136,9 @@ While $$$Not(OrderLijnNummer = "") && $$$Not(BevatOrderOrgalux) { #dim ProductNummer As %String = $Piece(^KOD(KlantNummer, "F", OrderNummer, OrderLijnNummer), "\", 2) - - Set BevatOrderOrgalux = $$ISORGAL^PRODUKT2(ProductNummer) + If (ProductNummer '= "") { + Set BevatOrderOrgalux = $$ISORGAL^PRODUKT2(ProductNummer) + } Set OrderLijnNummer = $Order(^KOD(KlantNummer, "F", OrderNummer, OrderLijnNummer)) }