vhLib.Macro,vhUnitTest.DOM.PM.OL.Gamma 1 %RegisteredObject %String 300000 %String 100000 %String 1000 BL.Kenm.ProdMulti 1 Opmerking eventueel nog toevoegen een masterproduct met multiples (vb : PRNr : 64879) PRNrStart:%Integer=1000,PRNrStop:%Integer=1099 PRNrStart:%Integer=1000,PRNrStop:%Integer=1099 ProductID:%String 1 1 1 %List PRNr:%String 1 PRNr:%String 1 ","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey01","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Voorraad_Brood_Ontbijt"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") } Elseif PRNr="1002" { Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey02","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Badkamer"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Voorraad_OngekoeldeDranken"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") } Elseif PRNr="1003" { Set UnID = "1003.1" Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID) Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey03","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Opbergen_Bestek","Voorbereiden_Snijplanken"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("KLINE","ProductType") Do $$$ProdKenmSetAt("Kunststof","ProductMateriaal") Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("M","M/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(500,550),"Diepte") Do $$$ProdKenmSetAt("400","LadeBreedteMin") Do $$$ProdKenmSetAt("500","LadeBreedteMax") Do $$$ProdKenmSetAt("20","ProductHoogte") ; Do $$$ProdKenmSetAt("wit","Kleur") Do $$$ProdKenmSetAt($LB("wit"),"KleurFilter") Do $$$ProdKenmSetAt($LB("TIPS_Staaf_geschikt_voor_bordenplaten","TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") Set UnID = "1003.2" Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID) Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey03","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Opbergen_Bestek","Voorbereiden_Snijplanken"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("KLINE","ProductType") Do $$$ProdKenmSetAt("Kunststof","ProductMateriaal") Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("M","M/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(500,550),"Diepte") Do $$$ProdKenmSetAt("400","LadeBreedteMin") Do $$$ProdKenmSetAt("500","LadeBreedteMax") Do $$$ProdKenmSetAt("20","ProductHoogte") ; Do $$$ProdKenmSetAt("inox","Kleur") Do $$$ProdKenmSetAt($LB("inox"),"KleurFilter") Do $$$ProdKenmSetAt($LB("TIPS_Staaf_geschikt_voor_bordenplaten"),"BOWeten") } ElseIf PRNr="1004"{ Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey04","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Opbergen_Borden"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("WOODLINE_Beuk","ProductType") Do $$$ProdKenmSetAt("Hout","ProductMateriaal") Do $$$ProdKenmSetAt($LB("TBX_plus_Reling_of_BXglas"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("C","D"),"LadeType") ; Do $$$ProdKenmSetAt($LB(600,650),"Diepte") Do $$$ProdKenmSetAt("900","LadeBreedteMin") Do $$$ProdKenmSetAt("1200","LadeBreedteMax") Do $$$ProdKenmSetAt("40","ProductHoogte") } ElseIf PRNr="1005" { Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey05","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Opbergen_Borden"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("ORGALINE","ProductType") Do $$$ProdKenmSetAt("Staal","ProductMateriaal") Do $$$ProdKenmSetAt($LB("TBX_plus_Reling_of_BXglas"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(600),"Diepte") Do $$$ProdKenmSetAt("900","LadeBreedteMin") Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("50","ProductHoogte") } ElseIf PRNr="1006" { Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey06","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Opbergen_Borden"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt($LB("WOODLINE_Noot","WOODLINE_Beuk"),"ProductType") Do $$$ProdKenmSetAt($LB("Hout"),"ProductMateriaal") Do $$$ProdKenmSetAt($LB("TBX_plus_Reling_of_BXglas"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(600),"Diepte") Do $$$ProdKenmSetAt("900","LadeBreedteMin") Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("70","ProductHoogte") } ElseIf PRNr="1007" { Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey07","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Opbergen_Borden"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("WOODLINE_Noot","ProductType") Do $$$ProdKenmSetAt("Hout","ProductMateriaal") Do $$$ProdKenmSetAt($LB("TBX_intivo"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(600),"Diepte") Do $$$ProdKenmSetAt("900","LadeBreedteMin") Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("40","ProductHoogte") Do $$$ProdKenmSetAt($LB("TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") } ElseIf PRNr="1008" || (PRNr = "1031") { Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID) Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey10","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("SpoelenEnAfval_Afvalscheiding"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("WOODLINE_Beuk","ProductType") Do $$$ProdKenmSetAt("Hout","ProductMateriaal") Do $$$ProdKenmSetAt($LB("TBX_intivo"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(600),"Diepte") Do $$$ProdKenmSetAt("900","LadeBreedteMin") Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("40","ProductHoogte") Do $$$ProdKenmSetAt($LB("TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") } ElseIf PRNr="1009" { Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID) Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey10","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("SpoelenEnAfval_Afvalscheiding"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("WOODLINE_Beuk","ProductType") Do $$$ProdKenmSetAt("Hout","ProductMateriaal") Do $$$ProdKenmSetAt($LB("TBX_intivo"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(600),"Diepte") Do $$$ProdKenmSetAt("900","LadeBreedteMin") Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("40","ProductHoogte") Do $$$ProdKenmSetAt($LB("TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") } ElseIf PRNr="1010" { Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID) Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey10","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("SpoelenEnAfval_Afvalscheiding"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("WOODLINE_Beuk","ProductType") Do $$$ProdKenmSetAt("Hout","ProductMateriaal") Do $$$ProdKenmSetAt($LB("TBX_intivo"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(600),"Diepte") Do $$$ProdKenmSetAt("900","LadeBreedteMin") Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("40","ProductHoogte") Do $$$ProdKenmSetAt($LB("TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") Set $piece(^KPR(PRNr,"J5005"),"\",19)= 100 // ProductPrijs } ElseIf PRNr="1011" { Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey11","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("SpoelenEnAfval_Afvalscheiding"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("WOODLINE_Beuk","ProductType") Do $$$ProdKenmSetAt("Hout","ProductMateriaal") Do $$$ProdKenmSetAt($LB("TBX_plus_Boxside_Ew_of_Dw"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(600),"Diepte") Do $$$ProdKenmSetAt("900","LadeBreedteMin") Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("10","ProductHoogte") Do $$$ProdKenmSetAt($LB("TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") Set $piece(^KPR(PRNr,"J5005"),"\",19)= 100 // ProductPrijs } ElseIf PRNr="1012" { Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey12","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("SpoelenEnAfval_Afvalscheiding"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("WOODLINE_Beuk","ProductType") Do $$$ProdKenmSetAt("Hout","ProductMateriaal") Do $$$ProdKenmSetAt($LB("TBX_antaro_Reling"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(600),"Diepte") Do $$$ProdKenmSetAt("900","LadeBreedteMin") Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("10","ProductHoogte") Do $$$ProdKenmSetAt($LB("TIPS_Staaf_geschikt_voor_bordenplaten","TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") Set $piece(^KPR(PRNr,"J5005"),"\",19)= 100 // ProductPrijs } ElseIf PRNr="1013" { Set UnID = "1013.1" Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID) Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey13","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("KokenEnBakken_Potten_Pannen"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("WOODLINE_Beuk","ProductType") Do $$$ProdKenmSetAt("Hout","ProductMateriaal") Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("M","M/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(500,550),"Diepte") Do $$$ProdKenmSetAt("400","LadeBreedteMin") Do $$$ProdKenmSetAt("500","LadeBreedteMax") Do $$$ProdKenmSetAt("20","ProductHoogte") ; Do $$$ProdKenmSetAt("wit","Kleur") Do $$$ProdKenmSetAt($LB("wit"),"KleurFilter") Do $$$ProdKenmSetAt($LB("TIPS_Staaf_geschikt_voor_bordenplaten","TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") Set UnID = "1013.2" Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID) Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey13","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("KokenEnBakken_Potten_Pannen"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("WOODLINE_Noot","ProductType") Do $$$ProdKenmSetAt("HoutDecor","ProductMateriaal") Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("M","M/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(500,550),"Diepte") Do $$$ProdKenmSetAt("400","LadeBreedteMin") Do $$$ProdKenmSetAt("500","LadeBreedteMax") Do $$$ProdKenmSetAt("20","ProductHoogte") ; Do $$$ProdKenmSetAt("inox","Kleur") Do $$$ProdKenmSetAt($LB("inox"),"KleurFilter") Do $$$ProdKenmSetAt($LB("TIPS_Staaf_geschikt_voor_bordenplaten"),"BOWeten") } // 1014 en 1015 en 1016 (Added by WimV) // Testen of producten geselecteerd worden indien kenmerk(en) niet aanwezig in product ElseIf PRNr="1014" { Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey14","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Voorbereiden_Messen"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("ORGALINE","ProductType") Do $$$ProdKenmSetAt("Staal","ProductMateriaal") Do $$$ProdKenmSetAt($LB("TBX_plus_Reling_of_BXglas"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(600),"Diepte") Do $$$ProdKenmSetAt("900","LadeBreedteMin") Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("50","ProductHoogte") ; Do $$$ProdKenmSetAt("grijs","Kleur") Do $$$ProdKenmSetAt($LB("grijs"),"KleurFilter") } ElseIf PRNr="1015" { Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey14","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Voorbereiden_Messen"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("ORGALINE","ProductType") Do $$$ProdKenmSetAt("Staal","ProductMateriaal") ; Do $$$ProdKenmSetAt("grijs","Kleur") } ElseIf PRNr="1016" { // Voor deze producten zijn de kenmerken Website, MeubelToepassing, ZoneToepassing (resp.) niet aanwezig, de rest is zelfde als PRNr 1014 For idxSubID="1","2","3" { Set UnID = "1016"_"."_idxSubID Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID) Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey14","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do:(idxSubID'=1) $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do:(idxSubID'=2) $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do:(idxSubID'=3) $$$ProdKenmSetAt($LB("Voorbereiden_Messen"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("ORGALINE","ProductType") Do $$$ProdKenmSetAt("Staal","ProductMateriaal") Do $$$ProdKenmSetAt($LB("TBX_plus_Reling_of_BXglas"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(600),"Diepte") Do $$$ProdKenmSetAt("900","LadeBreedteMin") Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("50","ProductHoogte") ; Do $$$ProdKenmSetAt("grijs","Kleur") Do $$$ProdKenmSetAt($LB("grijs"),"KleurFilter") } } ElseIf PRNr="1017" { Set UnID = "1017.1" Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID) Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey17a","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Opbergen_Bestek","Voorbereiden_Snijplanken"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("KLINE","ProductType") Do $$$ProdKenmSetAt("Kunststof","ProductMateriaal") Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("M","M/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(500,550),"Diepte") Do $$$ProdKenmSetAt("400","LadeBreedteMin") Do $$$ProdKenmSetAt("500","LadeBreedteMax") Do $$$ProdKenmSetAt("20","ProductHoogte") ; Do $$$ProdKenmSetAt("wit","Kleur") Do $$$ProdKenmSetAt($LB("wit"),"KleurFilter") Do $$$ProdKenmSetAt($LB("TIPS_Staaf_geschikt_voor_bordenplaten","TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") Set UnID = "1017.2" Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID) Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey17b","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Opbergen_Bestek","Voorbereiden_Snijplanken"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("KLINE","ProductType") Do $$$ProdKenmSetAt("Kunststof","ProductMateriaal") Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("M","M/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(500,550),"Diepte") Do $$$ProdKenmSetAt("400","LadeBreedteMin") Do $$$ProdKenmSetAt("500","LadeBreedteMax") Do $$$ProdKenmSetAt("20","ProductHoogte") ; Do $$$ProdKenmSetAt("inox","Kleur") Do $$$ProdKenmSetAt($LB("inox"),"KleurFilter") Do $$$ProdKenmSetAt($LB("TIPS_Staaf_geschikt_voor_bordenplaten"),"BOWeten") } ElseIf PRNr="1018" { Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey18","GroepSleutel") Do $$$ProdKenmSetAt($LB("MASTER"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Voorraad_Brood_Ontbijt"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") Do $$$ProdKenmSetAt($LB("275;300;400;450;500;550;600;700;800;900;1000;1100;1200;1300;1400"),"MasterVoorBreedtes") Do $$$ProdKenmSetAt($LB("270;300;350;400"),"MasterVoorDieptes") Do $$$ProdKenmSetAt($LB("16;18"),"MasterVoorWandDiktes") Do $$$ProdKenmSetAt($LB("18"),"WandDikte") Do $$$ProdKenmSetAt($LB("400"),"Diepte") Do $$$ProdKenmSetAt($LB("1000"),"LadeBreedteMin") } ElseIf PRNr="1019" { Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey19","GroepSleutel") Do $$$ProdKenmSetAt($LB("AUTO"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Badkamer"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Voorraad_OngekoeldeDranken"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") } ElseIf PRNr="1020" { Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey20","GroepSleutel") Do $$$ProdKenmSetAt($LB("AUTO"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Badkamer"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Voorraad_OngekoeldeDranken"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") } ElseIf PRNr="1021" { Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey21","GroepSleutel") Do $$$ProdKenmSetAt($LB("AUTO"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Badkamer"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Voorraad_OngekoeldeDranken"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") Do $$$ProdKenmSetAt($LB("400"),"Diepte") Do $$$ProdKenmSetAt($LB("275"),"LadeBreedteAangeraden") Do $$$ProdKenmSetAt($LB("275"),"LadeBreedteMin") Do $$$ProdKenmSetAt($LB("275"),"LadeBreedteMax") Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("Antislipmatten"),"ProductType") Do $$$ProdKenmSetAt($LB("16"),"WandDikte") Do $$$ProdKenmSetAt($LB("BS_ACC_antislipmat"),"GroepSleutel") Do $$$ProdKenmSetAt($LB("AOxx"),"InfoSleutel") } Elseif PRNr="1022" { Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey22","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Badkamer"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Voorraad_OngekoeldeDranken"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") } Elseif PRNr="1023" { Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey23","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Badkamer"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Voorraad_OngekoeldeDranken"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") } /// Product met OEI Kenmerken en OL Kenmerken Elseif PRNr = "1024" { Do $$$ProdKenmSetAtOEI("LI","LiRe") Do $$$ProdKenmSetAtOEI("LAH.M000S.BEUK.9","Sleutel") Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey24","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Opbergen_Borden"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") ; Do $$$ProdKenmSetAt("WOODLINE_Noot","ProductType") Do $$$ProdKenmSetAt("Hout","ProductMateriaal") Do $$$ProdKenmSetAt($LB("TBX_intivo"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") ; Do $$$ProdKenmSetAt($LB(600),"Diepte") Do $$$ProdKenmSetAt("900","LadeBreedteMin") Do $$$ProdKenmSetAt("900","LadeBreedteMax") Do $$$ProdKenmSetAt("40","ProductHoogte") Do $$$ProdKenmSetAt($LB("TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten") }ElseIf PRNr="1025" { Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("ICT_GrpKey25","GroepSleutel") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("LBX_Pure"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Voorraad_Brood_Ontbijt"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType") Do $$$ProdKenmSetAt($LB("18"),"WandDikte") Do $$$ProdKenmSetAt($LB("D","D/Z"),"LadeType") } ElseIf PRNr = "1033" { Do $$$ProdKenmSetAtOEI("1.123.123.1","AliasI") Do $$$ProdKenmSetAtOEI("UT.30U1I KUECH-HJBL","AliasK") } ElseIf PRNr = "1034" { Do $$$ProdKenmSetAt($LB(##class(DOM.PM.OL.enu.LadeFamilie).LBXPure()),"LadeFamilie") } ElseIf PRNr="1098" { // Voor deze producten zijn de kenmerken Website, MeubelToepassing, ZoneToepassing (resp.) niet aanwezig, de rest is zelfde als PRNr 1014 For idxSubID="1","2","3","4","5" { Set UnID = "1098"_"."_idxSubID Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID) Do $$$ProdKenmSetAt("","Sleutel") } } ElseIf PRNr="1099" { Set UnID = "1099.1" Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID) Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt("GS_ACC_antislipmat","GroepSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Basisproducten_Antislipmatten"),"ZoneToepassing") Do $$$ProdKenmSetAt($LB("Los"),"SamenstellingsType") Do $$$ProdKenmSetAt("Antislipmatten","ProductType") Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z","M","M/Z"),"LadeType") Do $$$ProdKenmSetAt($LB("ASM_Rood"),"Kleur") Do $$$ProdKenmSetAt($LB(600),"Diepte") Do $$$ProdKenmSetAt("900","LadeBreedteMin") Do $$$ProdKenmSetAt("900","LadeBreedteMax") Set UnID = "1099.2" Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID) Do $$$ProdKenmSetAt("","Sleutel") Do $$$ProdKenmSetAt("","InfoSleutel") Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType") Do $$$ProdKenmSetAt("GS_ACC_antislipmat","GroepSleutel") Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites") Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing") Do $$$ProdKenmSetAt($LB("Basisproducten_Antislipmatten"),"ZoneToepassing") ; Do $$$ProdKenmSetAt("Antislipmatten","ProductType") Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie") Do $$$ProdKenmSetAt($LB("D","D/Z","M","M/Z"),"LadeType") Do $$$ProdKenmSetAt($LB("ASM_Zwart"),"Kleur") ; Do $$$ProdKenmSetAt($LB(600),"Diepte") Do $$$ProdKenmSetAt("900","LadeBreedteMin") Do $$$ProdKenmSetAt("900","LadeBreedteMax") } Set ..BLProdMulti = "" Quit ]]> PRNr:%String PRNr:%String 1 %String 1 %String