Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
KenVaessen
in reply to: KenVaessen

This is the code for the replacement and this works fine

 

SyntaxEditor Code Snippet

HOL0103206125 = "C:\Database Maurice\Onderdelen\Afvoer\Bocht\HOL0103206125.ipt"
HOL0103106125 = "C:\Database Maurice\Onderdelen\Afvoer\Bocht\HOL0103106125.ipt"
HOL0103292125 = "C:\Database Maurice\Onderdelen\Afvoer\Overschuifmof\HOL0103292125.ipt"
HOL0103603160 = "C:\Database Maurice\Onderdelen\Afvoer\Verloop\HOL0103603160.ipt"
HOL0103606500 = "C:\Database Maurice\Onderdelen\Afvoer\Knevelinlaat\HOL0103606500.ipt"
HOL0108670125 = "C:\Database Maurice\Onderdelen\Afvoer\Diverse\HOL0108670125.ipt"
HOL0101104125_L_124_mm = "C:\Database Maurice\Onderdelen\Afvoer\Buis\Standpijp_Koppelbuis\HOL0101104125_L_124_mm.ipt"

HOL0103206160 = "C:\Database Maurice\Onderdelen\Afvoer\Bocht\HOL0103206160.ipt"
HOL0103106160 = "C:\Database Maurice\Onderdelen\Afvoer\Bocht\HOL0103106160.ipt"
HOL0103292160 = "C:\Database Maurice\Onderdelen\Afvoer\Overschuifmof\HOL0103292160.ipt"
HOL0108670160 = "C:\Database Maurice\Onderdelen\Afvoer\Diverse\HOL0108670160.ipt"
HOL0101104160_L_146_mm = "C:\Database Maurice\Onderdelen\Afvoer\Buis\Standpijp_Koppelbuis\HOL0101104160_L_146_mm.ipt"

    If Parameter("module_standpijp_diameter") = 125 Then
        Component.Replace("Overschuifmof", HOL0103292125, True)
        Component.Replace("Ophangbeugel", HOL0108670125, True)
        Component.Replace("Standpijp_Koppelbuis", HOL0101104125_L_124_mm, True)
    ElseIf Parameter("module_standpijp_diameter") = 160 Then
        Component.Replace("Overschuifmof", HOL0103292160, True)
        Component.Replace("Ophangbeugel", HOL0108670160, True)
        Component.Replace("Standpijp_Koppelbuis", HOL0101104160_L_146_mm, True)
    End If