Genereert de waarden voor de FotoSorteerSleutel-kenmerken van de Orgalux producten en vult ze in. APPS.PM.OL.Common,Prod.Product,BL.Derde.KlantSpecifiek 1 KenmerkBuilderOL 0 SorteerVolgorde voor de FotoSorteerSleutels Array is van de vorm arSortPref("Foto1","LadeFamilie")=$LB(...) %String 1 1 Oproepen via s sc=##class(APPS.PM.OL.FotoSortKeyBuilder).Generate(flagReadOnly) w sc,! flagReadOnly:%Boolean,flagOutputToFile:%Boolean=0 1 %Status 1 1 %Status Toegelaten kenmerkwaarden: "NietBlumLade","Alle_TBX_geen_bevestigingen_nodig","TBX_plus_Reling_of_BXglas","TBX_plus_Boxside_Ew_of_Dw","TBX_intivo","TBX_antaro_Reling" UnID:%String,FotoIndex:%String 1 %String Toegelaten kenmerkwaarden: 275,300, ... , 1200 UnID:%String,FotoIndex:%String 1 %String =","") ; Temp Test Set lbSortPref=..arSortPref(FotoIndex,"Breedte") Set DeelSleutel=..BerekenDeelsleutelViaList(KMWaarde,lbSortPref, 2) Quit DeelSleutel ]]> Toegelaten kenmerkwaarden: 450, 500, 550, 600, 650 UnID:%String,FotoIndex:%String 1 %String Toegelaten kenmerkwaarden: "Antislipmatten","BOXSIDE","KLINE","ORGALINE","WOODLINE_Beuk","WOODLINE_Noot" UnID:%String,FotoIndex:%String 1 %String Berekent de deelsleutel via een lijst $LB() op volgorde van voorkeur Geeft een geformatteerde waarde terug, i.e. met voorloopnullen "0014" AantalChar is max 4, anders afgekapt tot 4. 1 Waarde:%String,lbSortPref:%List,AantalChar:%String 1 %String %min)&&(%v<%max) Set PosInList=$LF(lbSortPref,Waarde) Quit:($$$ValueBetween(PosInList,0,$$$MaxPos)) $$LeftPad^vhLib(PosInList,AantalChar) ; Add leading zero's, up to AantalChar Quit $$$MaxPos-1 ; returns 999 of 9999 of ... naargelang de waarde van AantalChar ]]> Oproepen via s sc=##class(APPS.PM.OL.FotoSortKeyBuilder).WaardenSortMultiVal() w sc,! 1 %Status Oproepen via s sc=##class(APPS.PM.OL.FotoSortKeyBuilder).UpdateFotos() w sc,! 1 %Status Oproepen via s sc=##class(APPS.PM.OL.FotoSortKeyBuilder).DeleteDataDefinitieALL() w sc,! 1 %Status Oproepen via s sc=##class(APPS.PM.OL.FotoSortKeyBuilder).DeleteKenmVTL(1,1) w sc,! 1 blnSleutelsOnly:%Boolean=1,blnDetectOnly:%Boolean=1 %Status om door te gaan ... " Read Key,! Write ! } Else { Write "De ongebruikte vertalingen zullen DEFINITIEF verwijderd worden!!! "_$$$CRLF_"Type ""DELETE"" om door te gaan ",! Read Confirm,! If ($$$UCase(Confirm)="DELETE") { Set %blnDeleteKenmerkVTL=1 Write ! } Else { Kill %blnDeleteKenmerkVTL Write !,"Geen bevestiging. Er wordt niks verwijderd." Quit $$$OK } } If blnSleutelsOnly { Set lbVTLTypes=$LB("*") ; Alle VertalingTypes : K, O, LI, LB, LG, ... Do DeleteKenmVTL^WV("OL","PK",lbVTLTypes) } Else { Do DeleteKenmAllVTL^WV("PK") } Kill %blnDeleteKenmerkVTL Quit $$$OK ]]> Aan alle Tips (kenmerkwaarden van "BOWeten") de Prefix "TIPS_" toevoegen (voor alle producten en bijhorende vertalingen) Oproepen via s sc=##class(APPS.PM.OL.FotoSortKeyBuilder).RenameOLTips("","TIPS_","") w sc,! s sc=##class(APPS.PM.OL.FotoSortKeyBuilder).RenameOLTips($LB("SampleTip1","PrefixA_SampleTip2_SuffixB"),"PrefixA_","_SuffixB") w sc,! 1 lbTipsToRename:%List,AddPrefix:%String="",AddSuffix:%String="" %Status