Index: BL/Legacy/FLOWTOE.cls.xml =================================================================== diff -u -r57622 -r57623 --- BL/Legacy/FLOWTOE.cls.xml (.../FLOWTOE.cls.xml) (revision 57622) +++ BL/Legacy/FLOWTOE.cls.xml (.../FLOWTOE.cls.xml) (revision 57623) @@ -217,40 +217,41 @@ #dim mdMapping As %String Do ..HaalOpSortKeyMapping(TOENr, .mdMapping) - ;Quit:($$$Not($$$HasLength($G(^mdMapping(TOENr))))) - - #dim mdWaarde As %String - #dim Korttekst As %String = Product.GeefKorttekst() - #dim DimensieDxB As %String = $Extract(Korttekst,12,19) - Set DimensieDxB = $$$Trim(DimensieDxB) + If ($$$HasLength($G(^mdMapping(TOENr)))) { + + #dim mdWaarde As %String + #dim Korttekst As %String = Product.GeefKorttekst() + #dim DimensieDxB As %String = $Extract(Korttekst,12,19) + Set DimensieDxB = $$$Trim(DimensieDxB) - Set mdWaarde("Korttekst" ) = Korttekst // structuur: zie DOM.PM.Maatwerk.TAX.impl.StandaardKorttekstBepaler - Set mdWaarde("KorttStart" ) = $Extract(Korttekst,1,3) - Set mdWaarde("LadeHoogte" ) = $Extract(Korttekst,4) - Set mdWaarde("DossierCode") = $Extract(Korttekst,8,11) - Set mdWaarde("DimensieDxB") = DimensieDxB - Set mdWaarde("LadeDiepte" ) = $Piece(DimensieDxB,"x",1) - Set mdWaarde("LadeBreedte") = $Piece(DimensieDxB,"x",2) - Set mdWaarde("KleurenCode") = $Extract(Korttekst,22,25) + Set mdWaarde("Korttekst" ) = Korttekst // structuur: zie DOM.PM.Maatwerk.TAX.impl.StandaardKorttekstBepaler + Set mdWaarde("KorttStart" ) = $Extract(Korttekst,1,3) + Set mdWaarde("LadeHoogte" ) = $Extract(Korttekst,4) + Set mdWaarde("DossierCode") = $Extract(Korttekst,8,11) + Set mdWaarde("DimensieDxB") = DimensieDxB + Set mdWaarde("LadeDiepte" ) = $Piece(DimensieDxB,"x",1) + Set mdWaarde("LadeBreedte") = $Piece(DimensieDxB,"x",2) + Set mdWaarde("KleurenCode") = $Extract(Korttekst,22,25) - #dim Kenmerk As %String - #dim Waarde As %String + #dim Kenmerk As %String + #dim Waarde As %String - Set Kenmerk = $G(mdMapping(TOENr)) - If (Kenmerk = "") { - Set SortKey = "[!! Geen Kenmerk Ingevuld !!]" + Set Kenmerk = $G(mdMapping(TOENr)) + If (Kenmerk = "") { + Set SortKey = "[!! Geen Kenmerk Ingevuld !!]" + } + ElseIf (Kenmerk = "LijnNr") { + Set SortKey = SortKey _ " " _ ToelevLijnNr + } + ElseIf ($D(mdWaarde(Kenmerk)) = 0) { + Set SortKey = "[!! '"_Kenmerk_"' Is Ongeldig !!]" + } + Else { + Set Waarde = mdWaarde(Kenmerk) + Set:(Waarde = "") Waarde = "[LEEG]" + Set SortKey = SortKey _ " " _ ##class(TECH.StringUtils).AddLeadingChar($G(mdMapping(TOENr,Waarde), " REST"),"_",5) + } } - ElseIf (Kenmerk = "LijnNr") { - Set SortKey = SortKey _ " " _ ToelevLijnNr - } - ElseIf ($D(mdWaarde(Kenmerk)) = 0) { - Set SortKey = "[!! '"_Kenmerk_"' Is Ongeldig !!]" - } - Else { - Set Waarde = mdWaarde(Kenmerk) - Set:(Waarde = "") Waarde = "[LEEG]" - Set SortKey = SortKey _ " " _ ##class(TECH.StringUtils).AddLeadingChar($G(mdMapping(TOENr,Waarde), " REST"),"_",5) - } /* Splitser v2.1 : Verzamel Producten van Toelevering @@ -273,16 +274,16 @@