vhLib.Macro 1 %RegisteredObject,%XML.Adaptor 0 %String %String BL.EC.sub.pxTBXOrder list BL.EC.sub.pxTBXDesignOption list BL.EC.sub.pxKlantInfo list %String %String %String %Boolean 1 Status,Omschrijving Test method for ..FillTBXDesignOptions() do ##class(BL.EC.pxDynaPlug).TestFillDO() 1 Taal:%String="" Fill proxy TBXDesignOptions (%ListOfObjects) Invullen van de items Design (DS/DC), KleurBodem, KleurReling, KleurVulstuk, ... voor het tonen van de mogelijke kleurkeuzes. Taal:%String="" 1 %Status VolgNr ) &SQL(OPEN crsKBDS) For &SQL(FETCH crsKBDS) Quit:(SQLCODE) Set:($L(KB))&&('$$$KBExclude(KB)) tmpLB=tmpLB_$LB(KB) &SQL(CLOSE crsKBDS) Quit tmpLB fdoBuildRKlistForDS(DS) Set RK="" Set tmpLB="" Set MatchDS="%;"_DS_";%" &SQL(DECLARE crsRKDS CURSOR FOR SELECT TBRelingKleur INTO :RK FROM Prod_GAMeta_BT.TBRelingKleur_BeperkGUI WHERE (element_key = 'TBDesign' and ((';' || BeperkGUI || ';') LIKE :MatchDS OR BeperkGUI="*")) ORDER BY TBRelingKleur->VolgNr ) &SQL(OPEN crsRKDS) For &SQL(FETCH crsRKDS) Quit:(SQLCODE) Set:($L(RK)) tmpLB=tmpLB_$LB(RK) &SQL(CLOSE crsRKDS) Quit tmpLB fdoBuildKVlistForDS(DS) Set KV="" Set tmpLB="" /* Set MatchDS="%;"_DS_";%" &SQL(DECLARE crsKVDS CURSOR FOR SELECT TBVulstukKleur INTO :KV FROM Prod_GAMeta_BT.TBVulstukKleur_BeperkGUI WHERE (element_key = 'TBDesign' and ((';' || BeperkGUI || ';') LIKE :MatchDS OR BeperkGUI="*")) ORDER BY TBVulstukKleur->VolgNr ) */ &SQL(DECLARE crsKVDS CURSOR FOR SELECT ItemCode INTO :KV FROM Prod_GAMeta_BT.TBVulstukKleur WHERE ($ListFind(FilterDC,:DC)>0) ORDER BY VolgNr ) &SQL(OPEN crsKVDS) For &SQL(FETCH crsKVDS) Quit:(SQLCODE) Set:($L(KV)) tmpLB=tmpLB_$LB(KV) &SQL(CLOSE crsKVDS) Quit tmpLB /*** Vertalingen ***/ fdoGetVertalingen(Taal) Set arVTL("KLR","DC_S" )=$$$GetVertaling("DC_S",Taal,"L") ; TANDEMBOX plus Set arVTL("KLR","DC_B" )=$$$GetVertaling("DC_B",Taal,"L") ; WoodBox Set arVTL("KLR","DC_F" )=$$$GetVertaling("DC_F",Taal,"L") ; F-design Set arVTL("KLR","DC_I" )=$$$GetVertaling("DC_I",Taal,"L") ; TANDEMBOX intivo Set arVTL("KLR","DC_MA")=$$$GetVertaling("DC_MA",Taal,"L") ;A-design mengvorm Set arVTL("KLR","DS_WS")=$$$GetVertaling("DS_WS",Taal,"L") ; wit - S Set arVTL("KLR","DS_GS")=$$$GetVertaling("DS_GS",Taal,"L") ; grijs metallic - S Set arVTL("KLR","DS_AS")=$$$GetVertaling("DS_AS",Taal,"L") ; aluminium - S Set arVTL("KLR","DS_IS")=$$$GetVertaling("DS_IS",Taal,"L") ; inox - S Set arVTL("KLR","DS_WI")=$$$GetVertaling("DS_WI",Taal,"L") ; zijdewit - I Set arVTL("KLR","DS_GI")=$$$GetVertaling("DS_GI",Taal,"L") ; grijs - I Set arVTL("KLR","DS_AI")=$$$GetVertaling("DS_AI",Taal,"L") ; aluminium - I Set arVTL("KLR","DS_II")=$$$GetVertaling("DS_II",Taal,"L") ; inox - I Set arVTL("KLR","DS_ZI")=$$$GetVertaling("DS_ZI",Taal,"L") ; zwartbruin - I Set arVTL("KLR","DS_BA")=$$$GetVertaling("DS_BA",Taal,"L") ; massief beuk - B Set arVTL("KLR","DS_BI")=$$$GetVertaling("DS_BI",Taal,"L") ; massief eik - B Set arVTL("KLR","DS_GF")=$$$GetVertaling("DS_GF",Taal,"L") ; grijs metallic - F Set arVTL("KLR","DS_AF")=$$$GetVertaling("DS_AF",Taal,"L") ; aluminium - F Set arVTL("KLR","DS_GMA")=$$$GetVertaling("DS_GMA",Taal,"L") ; grijs metallic - S Set arVTL("KLR","KB_WI")=$$$GetVertaling("KL_WI_KB",Taal,"L") ; wit Set arVTL("KLR","KB_LG")=$$$GetVertaling("KL_LG",Taal,"L") ; lichtgrijs Set arVTL("KLR","KB_DG")=$$$GetVertaling("KL_DG",Taal,"L") ; donker grijs Set arVTL("KLR","KB_BE")=$$$GetVertaling("KL_BE_KB",Taal,"L") ; beuken Set arVTL("KLR","KB_EI")=$$$GetVertaling("KL_EI_KB",Taal,"L") ; eiken Set arVTL("KLR","KB_BZ")=$$$GetVertaling("KL_BZ_KB",Taal,"L") ; bruinzwart Set arVTL("KLR","KB_ZW")=$$$GetVertaling("KL_ZW",Taal,"L") ; zwart Set arVTL("KLR","RK_WI")=$$$GetVertaling("KL_WI",Taal,"L") ; wit Set arVTL("KLR","RK_MG")=$$$GetVertaling("KL_MG",Taal,"L") ; grijs metallic Set arVTL("KLR","RK_AL")=$$$GetVertaling("KL_AL",Taal,"L") ; aluminium Set arVTL("KLR","RK_CR")=$$$GetVertaling("KL_CR",Taal,"L") ; chroom Set arVTL("KLR","RK_SW")=$$$GetVertaling("KL_SW",Taal,"L") ; zijdewit Set arVTL("KLR","RK_BZ")=$$$GetVertaling("KL_BZ",Taal,"L") ; terrazwart Set qHandler=##class(%ResultSet).%New("Prod.GAMeta.BT.TBVulstukKleur:ExtentSort") Do qHandler.Execute() For Quit:'qHandler.Next() Do . Set Index = qHandler.Get("ID") . Set VSMat = ##class(Prod.GAMeta.BT.TBVulstukKleur).MateriaalViaID(Index) . Set VertVSMat = $$$GetVertaling("VSMat_"_VSMat,Taal,"L") . If $$$StartsWith(Index,"ZV") Do // zonder vulling / eigen vulling . . Set arVTL("KLR","KV_"_Index)= $$$GetVertaling("VSMat_"_Index,Taal,"L") . Else Do . . Set arVTL("KLR","KV_"_Index)=$S(Index[".":VertVSMat_" : "_$$$GetVertaling("KLV_"_Index,Taal,"L"),1:$$$GetVertaling("KLV_"_Index,Taal,"L")) . Set qHandler="" Set arVTL("DC_Suffix_S" )=$$$Replace($$$GetVertaling("DC_Suffix_S",Taal,"L"),"~","") Set arVTL("DC_Suffix_B" )=$$$Replace($$$GetVertaling("DC_Suffix_B",Taal,"L"),"~","") Set arVTL("DC_Suffix_F" )=$$$Replace($$$GetVertaling("DC_Suffix_F",Taal,"L"),"~","") Set arVTL("DC_Suffix_I" )=$$$Replace($$$GetVertaling("DC_Suffix_I",Taal,"L"),"~","") Set arVTL("DC_Suffix_MA")=$$$Replace($$$GetVertaling("DC_Suffix_MA",Taal,"L"),"~","") Set arVTL("LBL","KB")=$$$UCase($$$GetVertaling("Bodem&Rug",Taal,"L")) Set arVTL("LBL","RK")=$$$UCase($$$GetVertaling("Relingen",Taal,"L")) Set arVTL("LBL","KV")=$$$UCase($$$GetVertaling("VullingGlas",Taal,"L")) ; "VullingGlasKort" Quit ]]>