persistent DOM.PM.OL,TECH.Error 1 %Persistent KenmerkExtern,WaardeExtern 1 %String 1 %String 1 %String 1 %String 1 %String 1 1 1 %Status Method is DEPRECATED: Data will no longer be persistent. 1 0 Method is DEPRECATED: is vervangen door methods GeefProductGamma() en GeefKleurFilterWaarden() 1 KenmerkExtern:%String,WaardeExtern:%String %List DEPRECATED: Old implementation to convert RugHoogte Added by WimV on 19/08/2010 1 GemetenRugHoogteInMM:%String DOM.PM.OL.Gamma.enu.Rughoogte Geeft de rughoogte (M, B, C, D, ...) voor gegeven RugHoogte (in mm) 1 CorrecteRugHoogteInMM:%Integer DOM.PM.OL.Gamma.enu.Rughoogte Geeft een lijst van mogelijke LadeTypes (interne kenmerkwaarden: M, M/Z, C, C/Z, ...) voor gegeven RugHoogte (in mm) en optioneel binnenlade. De RugHoogte moet reeds de correcte afmeting bevatten, m.a.w. indien de gemeten waarde niet exact is, wordt waarde "" (leeg) teruggegeven. 1 RugHoogteInMM:%Integer,blnBinnenlade:%Boolean=0 %List Geeft een lijst van mogelijke LadeFamilies (interne kenmerkwaarden) terug voor gegeven LadeType (plus,intivo,antaro) en Verhoogde zijkant (enkele reling,boxcover,...) 1 Type:DOM.PM.OL.Gamma.enu.LadeType,VerhoogdeZijkant:DOM.PM.OL.Gamma.enu.VerhoogdeZijkant %List Geeft een lijst van mogelijke LadeFamilies (interne kenmerkwaarden) terug voor gegeven LadeType (plus,intivo,antaro) en Verhoogde zijkant (enkele reling,boxcover,...) 1 %List 1 %List Geeft een lijst van mogelijke LadeFamilies (interne kenmerkwaarden) terug voor gegeven LadeType (plus,intivo,antaro) en Verhoogde zijkant (enkele reling,boxcover,...) 1 %List 1 Materiaal:DOM.PM.OL.Gamma.enu.Materiaal %String 1 ProductMateriaal:%String DOM.PM.OL.Gamma.enu.ProductMateriaal 1 ProductGamma:%String DOM.PM.OL.Gamma.enu.Materiaal 1 ProductMateriaal:%String DOM.PM.OL.Gamma.enu.ProductMateriaal Grijs, zijdewit --> Zijdewit ]]> 1 Kleur:%String DOM.PM.OL.Gamma.enu.Kleur 1 LadeFamilie:%String %List grijs, Zijdewit --> zijdewit ]]> 1 Kleur:DOM.PM.OL.Gamma.enu.Materiaal %List 45cm, 476mm --> 50cm, e.d. ]]> 1 Diepte:%Integer %Integer 0:(Diepte+$$$DiepteCorr), 1:"") ]]> Geeft interne kenmerkwaarde voor LadeBreedte (in millimeter) voor gegeven externe waarde van de "Gemeten BodemBreedte" (in mm) 1 GemetenBodemBreedteInMM:%Integer %Integer 0:GemetenBodemBreedteInMM+$$$AftrekRug, 1:"") ]]> Oproepen via d ##class(DOM.PM.OL.Gamma.impl.KenmerkInternals).zTestMappings() 1 "_Code,! Set RugHoogteInMM=53 Set Code=..ConvertRugHoogteToCode(RugHoogteInMM) w $J(RugHoogteInMM,4)_" --> "_Code,! Set RugHoogteInMM=40 Set Code=..ConvertRugHoogteToCode(RugHoogteInMM) w $J(RugHoogteInMM,4)_" --> "_Code,! Set RugHoogteInMM=78 Set Code=..ConvertRugHoogteToCode(RugHoogteInMM) w $J(RugHoogteInMM,4)_" --> "_Code,! Set RugHoogteInMM=88 Set Code=..ConvertRugHoogteToCode(RugHoogteInMM) w $J(RugHoogteInMM,4)_" --> "_Code,! Set RugHoogteInMM=93 Set Code=..ConvertRugHoogteToCode(RugHoogteInMM) w $J(RugHoogteInMM,4)_" --> "_Code,! Set RugHoogteInMM=200 Set Code=..ConvertRugHoogteToCode(RugHoogteInMM) w $J(RugHoogteInMM,4)_" --> "_Code,! Set RugHoogteInMM=220 Set Code=..ConvertRugHoogteToCode(RugHoogteInMM) w $J(RugHoogteInMM,4)_" --> "_Code,! Set RugHoogteInMM=230 Set Code=..ConvertRugHoogteToCode(RugHoogteInMM) w $J(RugHoogteInMM,4)_" --> "_Code,! Set RugHoogteInMM=250 Set Code=..ConvertRugHoogteToCode(RugHoogteInMM) w $J(RugHoogteInMM,4)_" --> "_Code,! Write "",! Quit TestLadeTypeFilter Write "Test LadeType Filter:",! Set RugHoogteInMM=68 Set lbFilter=..GeefLadeTypeFilterWaarden(RugHoogteInMM,0) w $J(RugHoogteInMM,4)_" --> "_$$$LCVT(lbFilter),! Set RugHoogteInMM=68 Set lbFilter=..GeefLadeTypeFilterWaarden(RugHoogteInMM,1) w $J(RugHoogteInMM,4)_" --> "_$$$LCVT(lbFilter),! Set RugHoogteInMM=53 Set lbFilter=..GeefLadeTypeFilterWaarden(RugHoogteInMM,0) w $J(RugHoogteInMM,4)_" --> "_$$$LCVT(lbFilter),! Write "",! Quit TestLadeFamilieFilter Write "Test LadeFamilie Filter:",! Set lbFilter=..GeefLadeFamilieFilterWaarden("Plus" , "DubbelwandigeBoxside") w $$$LCVT(lbFilter),! Set lbFilter=..GeefLadeFamilieFilterWaarden("Plus" , "Onbepaald" ) w $$$LCVT(lbFilter),! Set lbFilter=..GeefLadeFamilieFilterWaarden("Intivo" , "Boxcap" ) w $$$LCVT(lbFilter),! Set lbFilter=..GeefLadeFamilieFilterWaarden("Onbepaald", "Onbepaald" ) w $$$LCVT(lbFilter),! Write "",! Quit TestZoneToepassing Write "Test ZoneToepassing:",! Set zt=##class(Prod.Kenmerk.Orgalux).GetZoneToepassing("Voorraad","Brood_Ontbijt" ) w zt,! Set zt=##class(Prod.Kenmerk.Orgalux).GetZoneToepassing("Voorraad","XXXbestaat niet" ) w zt,! Set zt=##class(Prod.Kenmerk.Orgalux).GetZoneToepassing("OnbekendeZone","Brood_Ontbijt" ) w zt,! Set zt=##class(Prod.Kenmerk.Orgalux).GetZoneToepassing("","Voorraad_Brood_Ontbijt" ) w zt,! Set zt=##class(Prod.Kenmerk.Orgalux).GetZoneToepassing("Opbergen","Servies_Kopjes_etc" ) w zt,! Write "",! Quit ]]> %Library.CacheStorage ^DOM.PM.OL.G665.KenmerkInter67DD KenmerkInternalsDefaultData ^DOM.PM.OL.G665.KenmerkInter67DD ^DOM.PM.OL.G665.KenmerkInter67DI ^DOM.PM.OL.G665.KenmerkInter67DS %%CLASSNAME KenmerkExtern KenmerkIntern WaardeExtern WaardeIntern