APPS.PM.OL.Common,Prod.Product,BL.Prod 1 %RegisteredObject 0 Geeft een lijst van PRNrs terug, die voldoen aan de zoekstring KortTekstRegEx. 1 KortTekstRegEx:%String %List Controle enkel toepassen voor de TANDEMBOX plus in grijs en inox Keller hanteert momenteel de dieptes : 500 - 450 (in mm !!!) Keller hanteert momenteel de breedtes : 300 - 400 - 450 - 500 - 600 - 800 - 900 - 1000 – 1200 (in mm !!!) Keller hanteert momenteel de wanddiktes: 18 (in mm !!!) 1 PRNr:%String,lbLadeFamilies:%String,lbKleurFilter:%String,lbDieptes:%Float,Breedte:%Float,lbWandDiktes:%Float="" 0) #define IsTBOXplus(%lb) ($$$InList(%lb,"TBX_plus_Reling_of_BXglas"))||($$$InList(%lb,"TBX_plus_Boxside_Ew_of_Dw"))||($$$InList(%lb,"Alle_TBX_geen_bevestigingen_nodig"))||($$$InList(%lb,"NietBlumLade")) #define IsKellerKleur(%lb) ($LG(%lb,1)="")||($$$InList(%lb,"grijs"))||($$$InList(%lb,"inox"))||($$$InList(%lb,"wit")) #define IsKellerDiepte(%lb) ($LG(%lb,1)="")||($$$InList(%lb,"500"))||($$$InList(%lb,"450")) #define IsKellerBreedte(%v) (%v?1(1"300",1"400",1"450",1"500",1"600",1"800",1"900",1"1000",1"1200")) #define IsKellerWandDikte(%lb) ($LG(%lb,1)="")||($$$InList(%lb,"18")) ;Set ControleToepassen=($$$IsTBOXplus(lbLadeFamilies))&&($$$IsKellerKleur(lbKleurFilter)) Set ControleToepassen=1 If ControleToepassen { Quit:($$$Not($$$IsTBOXplus(lbLadeFamilies))) 0 Quit:($$$Not($$$IsKellerKleur(lbKleurFilter))) 0 Quit:($$$Not($$$IsKellerDiepte(lbDieptes))) 0 Quit:($L(Breedte))&&($$$Not($$$IsKellerBreedte(Breedte))) 0 Quit:($$$Not($$$IsKellerWandDikte(lbWandDiktes))) 0 } Quit 1 ]]>