VERSION 5.00
Begin VB.Form SubMenu 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   6735
   ClientLeft      =   2850
   ClientTop       =   1815
   ClientWidth     =   3960
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   6735
   ScaleWidth      =   3960
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton ssp_quit 
      Height          =   612
      Left            =   3300
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   5985
      Width           =   612
   End
   Begin VB.OptionButton opt_Menu 
      Height          =   192
      Index           =   0
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Visible         =   0   'False
      Width           =   4200
   End
End
Attribute VB_Name = "SubMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'what is new
'2.7.1 New View selection for sales rep assignement (JN)

Const SOUND_ATTENUATION  As Integer = 16
Const SOUND_ABSORPTION As Integer = 5
Const EQ_SOUND_ABSORPTION As Integer = 15

Dim mi_Relation() As Integer
Private Sub Form_Load()

Dim i As Integer
Dim j As Integer
Dim li_top As Integer

MouseOff

If gl_CodePage <> 1252 And gl_CodePage <> 0 Then ChangeCharset Me

ssp_quit.Picture = LoadResPicture(RES_QUIT, 1)
Caption = gut_Param.Str1
li_top = 120
j = 0
ReDim mi_Relation(1, 2)
For i = 0 To frmMain.GRD_SubMenu.Rows - 1
    frmMain.GRD_SubMenu.Row = i
    frmMain.GRD_SubMenu.Col = 0
    If frmMain.GRD_SubMenu.Text = gut_Param.Str2 Then
        frmMain.GRD_SubMenu.Col = 3
        If frmMain.GRD_SubMenu.Text = "-1" Then
            If j <> 0 Then
                Load opt_Menu(j)
                ReDim Preserve mi_Relation(1, UBound(mi_Relation, 2) + 1)
            End If
            mi_Relation(0, UBound(mi_Relation, 2) - 1) = j
            mi_Relation(1, UBound(mi_Relation, 2) - 1) = i
            opt_Menu(j).Top = li_top
            opt_Menu(j).Left = 60
            opt_Menu(j).Visible = OK
            frmMain.GRD_SubMenu.Col = 2
            opt_Menu(j).Caption = frmMain.GRD_SubMenu.Text
            li_top = li_top + 250
            j = j + 1
        End If
    End If
Next i
SubMenu.Height = li_top + 400
ssp_quit.Top = SubMenu.Height - 1000
SubMenu.Top = (Screen.Height - SubMenu.Height) / 2
MouseOn

End Sub
Private Sub opt_Menu_Click(Index As Integer)
Dim ls_req As String
Dim ll_Statement As Long
Dim li_Status As Integer
Dim ll_lngrows As Long

Dim li_Count As Integer
Dim i As Integer

On Error GoTo suite

MouseOff
For li_Count = 0 To 29
    gi_GridWidth(li_Count) = 1
Next li_Count

frmMain.GRD_SubMenu.Row = mi_Relation(1, Index + 1)
frmMain.GRD_SubMenu.Col = 1
C_main.ms_SubMenu = frmMain.GRD_SubMenu.Text

Select Case frmMain.GRD_SubMenu.Text
Case "IOFTYP":
    gs_TableName = "Offer_Type"
    gs_ParamReq1 = "EXEC Offer_Type_table_lst '"
    gs_ParamReq2 = "EXEC Screen_Csts main_Offer_Type, '" & gut_LangLogin.Code & "'"
    gs_ParamReq3 = "EXEC Check_Security Offer_Type, " & prg.LoginName
    gi_TranslateType = 1
    gi_GridWidth(0) = 1
    gi_GridWidth(1) = 1
    gi_GridWidth(2) = 4000
    gi_GridWidth(3) = 1200
    gi_GridWidth(4) = 1200
    C_main.show 1
    Case "IOFINT"
        gs_TableName = "Offer_Internet"
        gs_ParamReq1 = "EXEC Offer_Internet_table_lst '"
        gs_ParamReq2 = "EXEC Screen_Csts main_Offer_Int, '" & gut_LangLogin.Code & "'"
        gs_ParamReq3 = "EXEC Check_Security Offer_Internet, " & prg.LoginName
        gi_TranslateType = 1
        gi_GridWidth(0) = 1
        gi_GridWidth(1) = 1
        gi_GridWidth(2) = 1
        gi_GridWidth(3) = 2000
        gi_GridWidth(4) = 2000
        gi_GridWidth(5) = 1200
        gi_GridWidth(6) = 1200
        C_main.show 1
Case "IAREA": gs_TableName = "Internet_Area"
    gs_ParamReq1 = "EXEC Internet_Area_t_lst '"
    gs_ParamReq2 = "EXEC Screen_Csts main_Int_Area, '" & gut_LangLogin.Code & "'"
    gs_ParamReq3 = "EXEC Check_Security Internet_Area, " & prg.LoginName
    gut_Param.Str2 = "EXEC Screen_Csts 'mtnc_int_area',"
    gut_Param.Str3 = "EXEC Internet_Area_ins"
    gut_Param.Str4 = "EXEC  countries_int_area_ins"
    gut_Param.Str5 = "EXEC Internet_Area_del"
    gut_Param.Str6 = "EXEC Internet_Area_upd"
    gut_Param.Str7 = "EXEC  countries_int_area_ins"
    gut_Param.Str8 = "EXEC  countries_int_area_del"
    gut_Param.Str9 = "EXEC  countries_int_area_t_lst"
    gut_Param.Str10 = "EXEC  countries_int_area_t_lst2"
    gut_Param.Str11 = "Don't Show field"
    gut_Param.Str12 = "Don't Show Currency"
    gut_Param.Str13 = "Show code"
    gi_TranslateType = 1
    gi_GridWidth(0) = 1200
    gi_GridWidth(1) = 1
    gi_GridWidth(2) = 4000
    gi_GridWidth(3) = 1
    gi_GridWidth(4) = 1200
    gi_GridWidth(5) = 1200
    C_main.show 1
Case "IHBM": gs_TableName = "Hyper_Base_Material"
    gs_ParamReq1 = "EXEC Hyper_Base_Material_t_lst '"
    gs_ParamReq2 = "EXEC Screen_Csts 'main_hyperbm', '" & gut_LangLogin.Code & "'"
    gs_ParamReq3 = "EXEC Check_Security 'Hyper_Base_Material', '" & prg.LoginName & "'"
    gi_TranslateType = 1
    gi_GridWidth(3) = 3000
    gi_GridWidth(4) = 3000
    gi_GridWidth(5) = 1200
    gi_GridWidth(6) = 1200
    C_main.show 1
Case "ICA"
    gs_TableName = "Company_Activity"
    gs_ParamReq1 = "EXEC Company_Activity_table_lst '"
    gs_ParamReq2 = "EXEC Screen_Csts main_Company_Ac, '" & gut_LangLogin.Code & "'"
    gs_ParamReq3 = "EXEC Check_Security Company_Activity, " & prg.LoginName
    gi_TranslateType = 1
    gi_GridWidth(0) = 1
    gi_GridWidth(1) = 1
    gi_GridWidth(2) = 2000
    gi_GridWidth(3) = 1200
    gi_GridWidth(4) = 1200
    C_main.show 1
Case "ICC": gs_TableName = "Criteria_Choice"
    gs_ParamReq1 = "EXEC Criteria_Choice_t_lst '"
    gs_ParamReq2 = "EXEC Screen_Csts 'main_critchoice', '" & gut_LangLogin.Code & "'"
    gs_ParamReq3 = "EXEC Check_Security 'Criteria_Choice', '" & prg.LoginName & "'"
    gi_TranslateType = 1
    gi_GridWidth(2) = 4000
    gi_GridWidth(3) = 1500
    gi_GridWidth(4) = 1500
    C_main.show 1
Case "ICL": gs_TableName = "Criteria_List"
    gs_ParamReq1 = "EXEC Criteria_List_t_lst '"
    gs_ParamReq2 = "EXEC Screen_Csts 'main_CritList', '" & gut_LangLogin.Code & "'"
    gs_ParamReq3 = "EXEC Check_Security 'Criteria_List', '" & prg.LoginName & "'"
    gi_TranslateType = 1
    gi_GridWidth(3) = 2100
    gi_GridWidth(5) = 2100
    gi_GridWidth(6) = 2100
    gi_GridWidth(7) = 1200
    gi_GridWidth(8) = 1200
    C_main.show 1
Case "IPCW": gs_TableName = "Product_Combine"
    gs_ParamReq1 = "EXEC Product_Combine_t_lst '"
    gs_ParamReq2 = "EXEC Screen_Csts 'main_ProdComb', '" & gut_LangLogin.Code & "'"
    gs_ParamReq3 = "EXEC Check_Security 'Product_Combine', '" & prg.LoginName & "'"
    gi_TranslateType = 1
    gi_GridWidth(2) = 2100
    gi_GridWidth(3) = 2100
    gi_GridWidth(4) = 1200
    gi_GridWidth(5) = 1200
    C_main.show 1
Case "IPG": gs_TableName = "Pattern_Group"
    gs_ParamReq1 = "EXEC Pattern_Group_t_lst '"
    gs_ParamReq2 = "EXEC Screen_Csts 'main_PatGroup', '" & gut_LangLogin.Code & "'"
    gs_ParamReq3 = "EXEC Check_Security 'Pattern_Group', '" & prg.LoginName & "'"
    gi_TranslateType = 1
    gi_GridWidth(2) = 2100
    gi_GridWidth(3) = 1200
    gi_GridWidth(4) = 1200
    C_main.show 1
Case "ICOUNT": gs_TableName = "Country_Link"
    gs_ParamReq1 = "EXEC Country_Link_t_lst '"
    gs_ParamReq2 = "EXEC Screen_Csts 'main_CountryLink', '" & gut_LangLogin.Code & "'"
    gs_ParamReq3 = "EXEC Check_Security 'Country_Link', '" & prg.LoginName & "'"
    gi_TranslateType = 0
    gi_GridWidth(2) = 4000
    C_main.show 1
Case "IVT"
    gs_TableName = "Value_Type"
    gs_ParamReq1 = "EXEC Value_Type_t_lst '"
    gs_ParamReq2 = "EXEC Screen_Csts 'main_Value_Type', '" & gut_LangLogin.Code & "'"
    gs_ParamReq3 = "EXEC Check_Security 'Value_Type', '" & prg.LoginName & "'"
    gi_TranslateType = 1
    gi_GridWidth(3) = 2100
    gi_GridWidth(5) = 2100
    gi_GridWidth(6) = 2500
    gi_GridWidth(7) = 1200
    gi_GridWidth(8) = 1200
    C_main.show 1
Case "IGLO": gs_TableName = "Glossary"
    gs_ParamReq1 = "EXEC Glossary_lst '"
    gs_ParamReq2 = "EXEC Screen_Csts 'main_Glossary', '" & gut_LangLogin.Code & "'"
    gs_ParamReq3 = "EXEC Check_Security 'Glossary', '" & prg.LoginName & "'"
    gi_TranslateType = 0
    gi_GridWidth(0) = 1
    gi_GridWidth(1) = 2000
    gi_GridWidth(2) = 1
    gi_GridWidth(3) = 2000
    gi_GridWidth(4) = 4000
    gi_GridWidth(5) = 1
    gi_GridWidth(6) = 1200
    gi_GridWidth(7) = 1200
    C_main.show 1
Case "TVAA"
    gut_Param.Str1 = "AcoustAW"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_AcAP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_AcA', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_AcAV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_AcA'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_AcA', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_AcAV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Surfaces_cbo '"
    gut_Param.Str13 = "EXEC Products_Patterns_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str17 = "EXEC Screen_Csts 'main_Tech_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str18 = "EXEC Screen_Csts 'mtnc_Tech_AcOP'"
    gut_Param.Str19 = "EXEC Screen_Csts 'aud_Tech_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Acoustic"
    gut_Param.Str22 = "EXEC Screen_Csts 'main_Curve_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str23 = "EXEC Screen_Csts 'mtnc_Curve_AcOP'"
    gut_Param.Str24 = "EXEC Screen_Csts 'aud_Curve_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str25 = SOUND_ABSORPTION
    Tech_Density_main.show 1
Case "TVAC"
    gut_Param.Str1 = "AcoustCAC"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_AcCP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_AcC', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_AcCV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_AcC'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_AcC', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_AcCV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "3"
    gut_Param.Str12 = "EXEC Surfaces_cbo '"
    gut_Param.Str13 = "EXEC Products_Patterns_cbo '"
    gut_Param.Str14 = "EXEC Products_Edges_cbo '"
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str17 = "EXEC Screen_Csts 'main_Tech_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str18 = "EXEC Screen_Csts 'mtnc_Tech_AcOP'"
    gut_Param.Str19 = "EXEC Screen_Csts 'aud_Tech_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Acoustic"
    gut_Param.Str22 = "EXEC Screen_Csts 'main_Curve_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str23 = "EXEC Screen_Csts 'mtnc_Curve_AcOP'"
    gut_Param.Str24 = "EXEC Screen_Csts 'aud_Curve_AcOP', '" & gut_LangLogin.Code & "'"
    Tech_Density_main.show 1
Case "TVAD"
    gut_Param.Str1 = "AcoustDncW"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_AcDP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_AcD', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_AcDV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_AcD'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_AcD', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_AcDV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "3"
    gut_Param.Str12 = "EXEC Surfaces_cbo '"
    gut_Param.Str13 = "EXEC Products_Patterns_cbo '"
    gut_Param.Str14 = "EXEC Products_Edges_cbo '"
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str17 = "EXEC Screen_Csts 'main_Tech_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str18 = "EXEC Screen_Csts 'mtnc_Tech_AcOP'"
    gut_Param.Str19 = "EXEC Screen_Csts 'aud_Tech_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Acoustic"
    gut_Param.Str22 = "EXEC Screen_Csts 'main_Curve_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str23 = "EXEC Screen_Csts 'mtnc_Curve_AcOP'"
    gut_Param.Str24 = "EXEC Screen_Csts 'aud_Curve_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str25 = SOUND_ATTENUATION
    Tech_Density_main.show 1
Case "TVAN"
    gut_Param.Str1 = "AcoustNRC"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_AcNP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_AcN', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_AcNV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_AcN'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_AcN', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_AcNV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Surfaces_cbo '"
    gut_Param.Str13 = "EXEC Products_Patterns_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str17 = "EXEC Screen_Csts 'main_Tech_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str18 = "EXEC Screen_Csts 'mtnc_Tech_AcOP'"
    gut_Param.Str19 = "EXEC Screen_Csts 'aud_Tech_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Acoustic"
    gut_Param.Str22 = "EXEC Screen_Csts 'main_Curve_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str23 = "EXEC Screen_Csts 'mtnc_Curve_AcOP'"
    gut_Param.Str24 = "EXEC Screen_Csts 'aud_Curve_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str25 = SOUND_ABSORPTION
    Tech_Density_main.show 1
Case "TVAR"
    gut_Param.Str1 = "AcoustRW"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_AcRP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_AcR', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_AcRV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_AcR'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_AcR', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_AcRV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "3"
    gut_Param.Str12 = "EXEC Surfaces_cbo '"
    gut_Param.Str13 = "EXEC Products_Patterns_cbo '"
    gut_Param.Str14 = "EXEC Products_Edges_cbo '"
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str17 = "EXEC Screen_Csts 'main_Tech_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str18 = "EXEC Screen_Csts 'mtnc_Tech_AcOP'"
    gut_Param.Str19 = "EXEC Screen_Csts 'aud_Tech_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Acoustic"
    gut_Param.Str22 = "EXEC Screen_Csts 'main_Curve_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str23 = "EXEC Screen_Csts 'mtnc_Curve_AcOP'"
    gut_Param.Str24 = "EXEC Screen_Csts 'aud_Curve_AcOP', '" & gut_LangLogin.Code & "'"
    Tech_Density_main.show 1
Case "TVFA"
    gut_Param.Str1 = "FireReac"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_FiAP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_FiA', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_FiAV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_FiA'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_FiA', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_FiAV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "3"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = "EXEC Products_Patterns_cbo '"
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Fire"
    Tech_Density_main.show 1
Case "TVFE"
    gut_Param.Str1 = "FireRes"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_FiEP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_FiE', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_FiEV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_FiE'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_FiE', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_FiEV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "4"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = "EXEC Products_Patterns_cbo '"
    gut_Param.Str15 = "EXEC Products_Edges_cbo '"
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Fire"
    Tech_Density_main.show 1
Case "TVD"
    gut_Param.Str1 = "Density"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_DenP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_Densi', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_DenV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_Densi'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_Densi', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_DenV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "3"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = "EXEC Products_Edges_cbo '"
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Density"
    Tech_Density_main.show 1
Case "TVH"
    gut_Param.Str1 = "Humidity"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_HumP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_Hum', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_HumV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_Hum'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_Hum', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_HumV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "1"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = ""
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Humidity"
   Tech_Density_main.show 1
Case "TVY"
    gut_Param.Str1 = "Hygiene"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_HygP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_Hyg', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_HygV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_Hyg'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_Hyg', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_HygV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Hygiene"
    Tech_Density_main.show 1
Case "TVI"
    gut_Param.Str1 = "Impact"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_ImpP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_Imp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_ImpV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_Imp'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_Imp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_ImpV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Impact"
    Tech_Density_main.show 1
Case "TVL"
    gut_Param.Str1 = "Light"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_LigP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_Lig', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_LigV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_Lig'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_Lig', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_LigV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "3"
    gut_Param.Str12 = "EXEC Surfaces_cbo '"
    gut_Param.Str13 = "EXEC Products_patterns_cbo '"
    gut_Param.Str14 = "EXEC Colours_cbo '"
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Light"
    Tech_Density_main.show 1
Case "TVT"
    gut_Param.Str1 = "Thermal"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_TheP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_The', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_TheV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_The'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_The', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_TheV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "3"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = "EXEC Base_Material_Link_cbo '"
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Thermal"
    Tech_Density_main.show 1
Case "TVW"
    gut_Param.Str1 = "Wash"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_WasP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_Was', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_WasV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_Was'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_Was', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_WasV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Wash"
    Tech_Density_main.show 1
Case "TVWE"
    gut_Param.Str1 = "Weight"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_WeiP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_Wei', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_WeiV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_Wei'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_Wei', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_WeiV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "5"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = "EXEC Products_Patterns_cbo '"
    gut_Param.Str15 = "EXEC Products_Edges_cbo '"
    gut_Param.Str16 = "EXEC Product_Height_cbo '"
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Weight"
    Tech_Density_main.show 1
Case "TVPL"
    gut_Param.Str1 = "Price"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_PriP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_Pri', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_PriV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_Pri'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_Pri', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_PriV', '" & gut_LangLogin.Code & "'"
    ' number of combo activated
    gut_Param.Str11 = "4"
    gut_Param.Str12 = "EXEC Surfaces_cbo '"
    gut_Param.Str13 = "EXEC Products_Edges_cbo '"
    gut_Param.Str14 = "EXEC Product_Module_cbo '"
    gut_Param.Str15 = "EXEC Colours_cbo '"
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Price"
    Tech_Density_main.show 1
' JUNA task213 Begin
Case "TVRC"
    gut_Param.Str1 = "Recycled_Content"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_RCNP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_RCN', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_RCNV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_RCN'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_RCN', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_RCNV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "3"   '"2"
    gut_Param.Str12 = "EXEC Base_Material_Link_cbo '"
    gut_Param.Str13 = "EXEC Products_Families_cbo '"
    gut_Param.Str14 = "EXEC Shapes_cbo '"
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Recycled_Content"
    Tech_Density_main.show 1
Case "TVAQ"
    gut_Param.Str1 = "Air_Quality"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_AirP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_Air', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_AirV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_Air'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_Air', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_AirV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Air_Quality"
    Tech_Density_main.show 1
Case "TVC"
    gut_Param.Str1 = "Cleanable"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_ClnP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_Cln', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_ClnV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_Cln'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_Cln', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_ClnV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Cleanable"
    Tech_Density_main.show 1
Case "TVAM"
    gut_Param.Str1 = "AntiMicrobial"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_AMBP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_AMB', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_AMBV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_AMB'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_AMB', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_AMBV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "AntiMicrobial"
    Tech_Density_main.show 1
' JUNA task213 End
'task 789 begin
Case "TVAF"
    gut_Param.Str1 = "Dnfw"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_DnfwP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_Dnfw', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_DnfwV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_Dnfw'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_Dnfw', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_DnfwV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "3"
    gut_Param.Str12 = "EXEC Surfaces_cbo '"
    gut_Param.Str13 = "EXEC Products_Patterns_cbo '"
    gut_Param.Str14 = "EXEC Products_Edges_cbo '"
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str17 = "EXEC Screen_Csts 'main_Tech_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str18 = "EXEC Screen_Csts 'mtnc_Tech_AcOP'"
    gut_Param.Str19 = "EXEC Screen_Csts 'aud_Tech_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Acoustic"
    gut_Param.Str22 = "EXEC Screen_Csts 'main_Curve_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str23 = "EXEC Screen_Csts 'mtnc_Curve_AcOP'"
    gut_Param.Str24 = "EXEC Screen_Csts 'aud_Curve_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str25 = SOUND_ATTENUATION
    Tech_Density_main.show 1
Case "TVAK"
    gut_Param.Str1 = "AbsClass"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_AbsClassP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_AbsClass', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_AbsClassV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_AbsClass'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_AbsClass', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_AbsClassV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Surfaces_cbo '"
    gut_Param.Str13 = "EXEC Products_Patterns_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str17 = "EXEC Screen_Csts 'main_Tech_AbsClassOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str18 = "EXEC Screen_Csts 'mtnc_Tech_AbsClassOP'"
    gut_Param.Str19 = "EXEC Screen_Csts 'aud_Tech_AbsClasscOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Acoustic"
    gut_Param.Str22 = "EXEC Screen_Csts 'main_Curve_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str23 = "EXEC Screen_Csts 'mtnc_Curve_AcOP'"
    gut_Param.Str24 = "EXEC Screen_Csts 'aud_Curve_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str25 = SOUND_ABSORPTION
    Tech_Density_main.show 1
Case "TVRI"
    gut_Param.Str1 = "RedInd"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_RedIndP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_RedInd', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_RedIndV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_RedInd'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_RedInd', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_RedIndV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "3"
    gut_Param.Str12 = "EXEC Surfaces_cbo '"
    gut_Param.Str13 = "EXEC Products_Patterns_cbo '"
    gut_Param.Str14 = "EXEC Products_Edges_cbo '"
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str17 = "EXEC Screen_Csts 'main_Tech_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str18 = "EXEC Screen_Csts 'mtnc_Tech_AcOP'"
    gut_Param.Str19 = "EXEC Screen_Csts 'aud_Tech_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Acoustic"
    gut_Param.Str22 = "EXEC Screen_Csts 'main_Curve_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str23 = "EXEC Screen_Csts 'mtnc_Curve_AcOP'"
    gut_Param.Str24 = "EXEC Screen_Csts 'aud_Curve_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str25 = SOUND_ATTENUATION
    Tech_Density_main.show 1
Case "TVESAA"               ' Equivalent Sound Absorption Area (Sabines) JN 4.5.2015
    gut_Param.Str1 = "EquivSoundAbs"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_EquivSoundAbsP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_EquivSoundAbs', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_EquivSoundAbsV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_EquivSoundAbs'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_EquivSoundAbs', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_EquivSoundAbsV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Products_Patterns_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str17 = "EXEC Screen_Csts 'main_Tech_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str18 = "EXEC Screen_Csts 'mtnc_Tech_AcOP'"
    gut_Param.Str19 = "EXEC Screen_Csts 'aud_Tech_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Acoustic"
    gut_Param.Str22 = "EXEC Screen_Csts 'main_Curve_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str23 = "EXEC Screen_Csts 'mtnc_Curve_AcOP'"
    gut_Param.Str24 = "EXEC Screen_Csts 'aud_Curve_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str25 = SOUND_ABSORPTION
    Tech_Density_main.show 1
    
Case "TVRN"
    gut_Param.Str1 = "Rain"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_RainP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_Rain', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_RainV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_Rain'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_Rain', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_RainV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "3"
    gut_Param.Str12 = "EXEC Surfaces_cbo '"
    gut_Param.Str13 = "EXEC Products_Patterns_cbo '"
    gut_Param.Str14 = "EXEC Products_Edges_cbo '"
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str17 = "EXEC Screen_Csts 'main_Tech_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str18 = "EXEC Screen_Csts 'mtnc_Tech_AcOP'"
    gut_Param.Str19 = "EXEC Screen_Csts 'aud_Tech_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Acoustic"
    gut_Param.Str22 = "EXEC Screen_Csts 'main_Curve_AcOp', '" & gut_LangLogin.Code & "'"
    gut_Param.Str23 = "EXEC Screen_Csts 'mtnc_Curve_AcOP'"
    gut_Param.Str24 = "EXEC Screen_Csts 'aud_Curve_AcOP', '" & gut_LangLogin.Code & "'"
    gut_Param.Str25 = SOUND_ATTENUATION
    Tech_Density_main.show 1
'task 789 end
' JUNA New published values 25/3/2015
Case "TVRP"
    gut_Param.Str1 = "RecycleProgram"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_ArmRecPrgP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_ArmRecPrg', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_ArmRecPrgV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_ArmRecPrg'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_ArmRecPrg', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_ArmRecPrgV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "1"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = ""
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "RecycleProgram"
    Tech_Density_main.show 1
' JUNA New published values 14/4/2015
Case "TVFEM":
    gut_Param.Str1 = "VOCCE"        ' Formaldehyde Emissions
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_VOCCEP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_VOCCE', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_VOCCEV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_VOCCE'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_VOCCE', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_VOCCEV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "1"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = ""
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "VOCCE"
    Tech_Density_main.show 1
' JUNA New published values 14/4/2015
Case "TVRC2"
    gut_Param.Str1 = "Recyclable"        ' Recyclable
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_RecyclableP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_Recyclable', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_RecyclableV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_Recyclable'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_Recyclable', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_RecyclableV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "1"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = ""
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "Recyclable"
    Tech_Density_main.show 1
    
' JUNA New published values 14/4/2015
Case "TVVOC"
    gut_Param.Str1 = "VOCFR"        ' VOC emissions
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_VOCFRP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_VOCFR', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_VOCFRV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_VOCFR'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_VOCFR', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_VOCFRV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "3"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Products_Edges_cbo '"
    gut_Param.Str14 = "EXEC Product_Module_cbo '"
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "VOCFR"
    Tech_Density_main.show 1

' JUNA New published values 15/4/2015
Case "TVC2C"
    gut_Param.Str1 = "C2C"        ' C2C Certified
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_C2CP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_C2C', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_C2CV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_C2C'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_C2CR', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_C2CV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Products_Edges_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "C2C"
    Tech_Density_main.show 1
' JUNA New published values 23/06/2016
Case "TVDCL"
    gut_Param.Str1 = "CleanDry"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_DryCleanP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_DryClean', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_DryCleanV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_DryClean'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_DryClean', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_DryCleanV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "CleanDry"
    Tech_Density_main.show 1
Case "TVMCL"
    gut_Param.Str1 = "CleanMoist"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_MoistCleanP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_MoistClean', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_MoistCleanV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_MoistClean'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_MoistClean', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_MoistCleanV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "CleanMoist"
    Tech_Density_main.show 1
Case "TVSCL"
    gut_Param.Str1 = "CleanSponge"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_SpongeCleanP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_SpongeClean', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_SpongeCleanV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_SpongeClean'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_SpongeClean', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_SpongeCleanV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "CleanSponge"
    Tech_Density_main.show 1
Case "TVSCRB"
    gut_Param.Str1 = "CleanScrubbable"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_ScrubbCleanP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_ScrubbClean', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_ScrubbCleanV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_ScrubbClean'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_ScrubbClean', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_ScrubbCleanV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "CleanScrubbable"
    Tech_Density_main.show 1
Case "TVHPCL"
    gut_Param.Str1 = "CleanHighPressure"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_HPCleanP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_HPClean', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_HPCleanV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_HPClean'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_HPClean', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_HPCleanV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "CleanHighPressure"
    Tech_Density_main.show 1
Case "TVDSR"
    gut_Param.Str1 = "CleanDisinfectant"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_DisResistantP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_DisResistant', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_DisResistantV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_DisResistant'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_DisResistant', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_DisResistantV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "2"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = "EXEC Surfaces_cbo '"
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "CleanDisinfectant"
    Tech_Density_main.show 1
Case "TVSIC"
    gut_Param.Str1 = "SeismicComponent"
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_SeismicP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_Seismic', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_SeismicV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_Seismic'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_Seismic', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_SeismicV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "1"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = ""
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "SeismicComponent"
    Tech_Density_main.show 1
Case "TVEPD"
    gut_Param.Str1 = "DPD"        ' Environmental Product Declaration
    gut_Param.Str2 = "EXEC Screen_Csts 'main_Tech_DPDP', '"
    gut_Param.Str3 = "EXEC Tech_" & gut_Param.Str1 & "_t_lst '"
    gut_Param.Str4 = "EXEC Screen_Csts 'main_Tech_DPD', '" & gut_LangLogin.Code & "'"
    gut_Param.Str5 = "EXEC Check_Security 'Tech_Value', '" & prg.LoginName & "'"
    gut_Param.Str6 = "EXEC Screen_Csts 'main_Tech_DPDV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str7 = "EXEC Check_Security 'BI_Public_Value', '" & prg.LoginName & "'"
    gut_Param.Str8 = "EXEC Screen_Csts 'mtnc_Tech_DPD'"
    gut_Param.Str9 = "EXEC Screen_Csts 'aud_Tech_DPD', '" & gut_LangLogin.Code & "'"
    gut_Param.Str10 = "EXEC Screen_Csts 'mtnc_Tech_DPDV', '" & gut_LangLogin.Code & "'"
    gut_Param.Str11 = "1"
    gut_Param.Str12 = "EXEC Products_Families_cbo '"
    gut_Param.Str13 = ""
    gut_Param.Str14 = ""
    gut_Param.Str15 = ""
    gut_Param.Str16 = ""
    gut_Param.Str20 = "Tech_Value"
    gut_Param.Str21 = "DPD"
    Tech_Density_main.show 1
    
Case "CRSC"
    gs_TableName = "Claim_Report1"
    gut_Param.Str1 = "EXEC Screen_Csts 'Filtre_SC','" & gut_LangLogin.Code & "'"
    gut_Param.Str2 = "2300"
    gut_Param.Str3 = "1080"
    gut_Param.Str4 = "1560"
    gut_Param.Str5 = "1260"
    gut_Param.Str6 = "4320"
    gut_Param.Str7 = "3120"
    gut_Param.Str8 = "EXEC Plants_cbo2 '" & gut_LangWork.Code & "'"
    gut_Param.Str9 = "EXEC Sales_Market_cbo3 '" & gut_LangWork.Code & "'"
    gut_Param.Str10 = "EXEC Currencies_cbo '" & gut_LangWork.Code & "'"
    gut_Param.Str11 = ""
    gut_Param.Str12 = ""
    gut_Param.Str13 = "MustBe"
    C_Filtre.show 1
Case "CRNA"
    gs_TableName = "Claim_Report2"
    gut_Param.Str1 = "EXEC Screen_Csts 'Filtre_NA','" & gut_LangLogin.Code & "'"
    gut_Param.Str2 = "2300"
    gut_Param.Str3 = "1080"
    gut_Param.Str4 = "1560"
    gut_Param.Str5 = "1260"
    gut_Param.Str6 = "4320"
    gut_Param.Str7 = "3120"
    gut_Param.Str8 = "EXEC Plants_cbo2 '" & gut_LangWork.Code & "'"
    gut_Param.Str9 = "EXEC Sales_Market_cbo3 '" & gut_LangWork.Code & "'"
    gut_Param.Str10 = "EXEC Currencies_cbo '" & gut_LangWork.Code & "'"
    gut_Param.Str11 = ""
    gut_Param.Str12 = ""
    gut_Param.Str13 = "MustBe"
   C_Filtre.show 1
Case "CRSR"
    gs_TableName = "Claim_Report3"
    gut_Param.Str1 = "EXEC Screen_Csts 'Filtre_SR','" & gut_LangLogin.Code & "'"
    gut_Param.Str2 = "2000"
    gut_Param.Str3 = "100"
    gut_Param.Str4 = "580"
    gut_Param.Str5 = "900"
    gut_Param.Str6 = "4320"
    gut_Param.Str7 = "3120"
    gut_Param.Str8 = "EXEC Currencies_cbo '" & gut_LangWork.Code & "'"
    gut_Param.Str10 = "EXEC Sales_reps_cbo"
    gut_Param.Str11 = "MustBe"
    gut_Param.Str13 = ""
    C_Filtre.show 1
Case "CROC"
    gs_TableName = "Claim_Report4"
    gut_Param.Str1 = "EXEC Screen_Csts 'Filtre_OC','" & gut_LangLogin.Code & "'"
    gut_Param.Str2 = "2000"
    gut_Param.Str3 = "100"
    gut_Param.Str4 = "580"
    gut_Param.Str5 = "1000"
    gut_Param.Str6 = "4320"
    gut_Param.Str7 = "3120"
    gut_Param.Str8 = "EXEC Plants_cbo2 '" & gut_LangWork.Code & "'"
    gut_Param.Str9 = "EXEC Sales_Market_cbo3 '" & gut_LangWork.Code & "'"
    gut_Param.Str10 = "EXEC Currencies_cbo '" & gut_LangWork.Code & "'"
    gut_Param.Str11 = ""
    gut_Param.Str12 = ""
    gut_Param.Str13 = "MustBe"
    C_Filtre.show 1
Case "CRTS"
    gs_TableName = "Claim_Report5"
    gut_Param.Str1 = "EXEC Screen_Csts 'Filtre_TS','" & gut_LangLogin.Code & "'"
    gut_Param.Str2 = "2300"
    gut_Param.Str3 = "0"
    gut_Param.Str4 = "0"
    gut_Param.Str5 = "1260"
    gut_Param.Str6 = "4320"
    gut_Param.Str7 = "3120"
    gut_Param.Str8 = "EXEC Sales_Market_cbo3 '" & gut_LangWork.Code & "'"
    gut_Param.Str13 = ""
    C_Filtre.show 1
Case "ICIG"
    MouseOff
    
    gs_MenuChoice = "Ceiling Internet Group"
        
    gs_TableName = "Ceiling_InternetGroup"
    gs_ParamReq1 = "EXEC Ceiling_InternetGroup_t_lst '"
    gs_ParamReq2 = "EXEC Screen_Csts m_Ceil_IntGroup, '" & gut_LangLogin.Code & "'"
    gs_ParamReq3 = "EXEC Check_Security Ceiling_InternetGroup, " & prg.LoginName
    gi_TranslateType = 1
    gi_GridWidth(0) = 1
    gi_GridWidth(1) = 1
    gi_GridWidth(2) = 5000
    gi_GridWidth(3) = 1000
    gi_GridWidth(4) = 1000
    gi_GridWidth(5) = 1500
    For li_Count = 6 To 29
        gi_GridWidth(li_Count) = 1
    Next li_Count
    C_main.show 1
    
    MouseOn
Case "IPFG"
    gs_TableName = "ProductsFamilies_Group"
    gs_ParamReq1 = "EXEC ProductsFamilies_Group_t_lst 'C002','"
    gs_ParamReq2 = "EXEC Screen_Csts 'g_FamiliesGroup', '" & gut_LangLogin.Code & "'"
    gs_ParamReq3 = "EXEC Check_Security 'FamiliesGroup', '" & prg.LoginName & "'"
    gi_TranslateType = 1
    gi_GridWidth(4) = 1500 'grid internet
    gi_GridWidth(5) = 2000 'description
    gi_GridWidth(6) = 1500 'product family
    gi_GridWidth(7) = 1500 'profuct group
    gi_GridWidth(8) = 1 'drop date
    gi_GridWidth(9) = 1500 'internet flag
    gi_GridWidth(10) = 1
    gi_GridWidth(11) = 2000 'memo
    C_main.show 1
Case "IAPFG"
    'Accessories Products Families => Category='C004'
    gs_TableName = "AccProductsFamilies_Group"
    gs_ParamReq1 = "EXEC ProductsFamilies_Group_t_lst 'C004','"
    gs_ParamReq2 = "EXEC Screen_Csts 'g_AFamilyGroup', '" & gut_LangLogin.Code & "'"
    gs_ParamReq3 = "EXEC Check_Security 'FamiliesGroup', '" & prg.LoginName & "'"
    gi_TranslateType = 1
    gi_GridWidth(4) = 1500 'grid internet
    gi_GridWidth(5) = 2000 'description
    gi_GridWidth(6) = 1500 'product family
    gi_GridWidth(7) = 1500 'profuct group
    gi_GridWidth(8) = 1 'drop date
    gi_GridWidth(9) = 1500 'internet flag
    gi_GridWidth(10) = 1
    gi_GridWidth(11) = 2000 'memo
    C_main.show 1
Case "IDGG"
    MouseOff
    gs_MenuChoice = "Data Grid Group"
    OptDGridGroup
    MouseOn
Case "MDLPFG"
    'list of products families group not linked to this media
    Quot_SalesReps.ms_DBRequest = "Exec Media_PFG_Link_t_lst2 '" & gut_Param.Str3 & "','" & gut_LangLogin.Code & "','C002'"
    'parameters
    Quot_SalesReps.mb_ShowAll = False
    Quot_SalesReps.ms_ScreenName = "MDLPFG"
    Quot_SalesReps.ms_LanguageCode = gut_LangLogin.Code
    'initialize the screen
    For i = Quot_SalesReps.mo_SelectedCode.Count To 1 Step -1
        Quot_SalesReps.mo_SelectedCode.Remove i
        Quot_SalesReps.mo_SelectedDesc.Remove i
    Next
    'initialize the selected pfg for the media
    'remove the old selected codes
    For i = Quot_SalesReps.mo_SelectedCode.Count To 1 Step -1
        Quot_SalesReps.mo_SelectedCode.Remove i
        Quot_SalesReps.mo_SelectedDesc.Remove i
    Next
    ls_req = "EXEC Media_PFG_Link_t_lst '" & gut_Param.Str3 & "','" & gut_LangLogin.Code & "','C002'"
    If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_req) Then
        li_Status = SQL_SUCCESS
    Else
        li_Status = SQL_ERROR
    End If
    Do While li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO
        li_Status = SQLFetch(ll_Statement)
        If li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO Then
            'add selected pfgs for this media
            Quot_SalesReps.mo_SelectedCode.Add ODBCData(ll_Statement, 1)
            Quot_SalesReps.mo_SelectedDesc.Add ODBCData(ll_Statement, 2)
        End If
    Loop
    'show screen
    Quot_SalesReps.show 1
    'return from the screen ...
    If Quot_SalesReps.mb_Return = OK Then
        'delete old links
        ls_req = "EXEC Media_PFG_Del '" & gut_Param.Str3 & "','C002'"
        If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_req) Then
            li_Status = SQLRowCount(ll_Statement, ll_lngrows)
            If ll_lngrows = 0 Then
                li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
            Else
                li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
            End If
        Else
            li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
        End If
       'Add New links
        For i = 1 To Quot_SalesReps.mo_SelectedCode.Count
            ls_req = "EXEC Media_PFG_ins '" & gut_Param.Str3 & "','" & Quot_SalesReps.mo_SelectedCode.Item(i) & "','C002'"
            If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_req) Then
                li_Status = SQLRowCount(ll_Statement, ll_lngrows)
                If ll_lngrows = 0 Then
                    li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
                Else
                    li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
                End If
            Else
                li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
            End If
        Next
    End If
Case "MDLAPFG"
    'list of products families group not linked to this media
    Quot_SalesReps.ms_DBRequest = "Exec Media_PFG_Link_t_lst2 '" & gut_Param.Str3 & "','" & gut_LangLogin.Code & "','C004'"
    'parameters
    Quot_SalesReps.mb_ShowAll = False
    Quot_SalesReps.ms_ScreenName = "MDLAPFG"
    Quot_SalesReps.ms_LanguageCode = gut_LangLogin.Code
    'initialize the screen
    For i = Quot_SalesReps.mo_SelectedCode.Count To 1 Step -1
        Quot_SalesReps.mo_SelectedCode.Remove i
        Quot_SalesReps.mo_SelectedDesc.Remove i
    Next
    'initialize the selected pfg for the media
    'remove the old selected codes
    For i = Quot_SalesReps.mo_SelectedCode.Count To 1 Step -1
        Quot_SalesReps.mo_SelectedCode.Remove i
        Quot_SalesReps.mo_SelectedDesc.Remove i
    Next
    ls_req = "EXEC Media_PFG_Link_t_lst '" & gut_Param.Str3 & "','" & gut_LangLogin.Code & "','C004'"
    If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_req) Then
        li_Status = SQL_SUCCESS
    Else
        li_Status = SQL_ERROR
    End If
    Do While li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO
        li_Status = SQLFetch(ll_Statement)
        If li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO Then
            'add selected pfgs for this media
            Quot_SalesReps.mo_SelectedCode.Add ODBCData(ll_Statement, 1)
            Quot_SalesReps.mo_SelectedDesc.Add ODBCData(ll_Statement, 2)
        End If
    Loop
    'show screen
    Quot_SalesReps.show 1
    'return from the screen ...
    If Quot_SalesReps.mb_Return = OK Then
        'delete old links
        ls_req = "EXEC Media_PFG_Del '" & gut_Param.Str3 & "','C004'"
        If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_req) Then
            li_Status = SQLRowCount(ll_Statement, ll_lngrows)
            If ll_lngrows = 0 Then
                li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
            Else
                li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
            End If
        Else
            li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
        End If
       'Add New links
        For i = 1 To Quot_SalesReps.mo_SelectedCode.Count
            ls_req = "EXEC Media_PFG_ins '" & gut_Param.Str3 & "','" & Quot_SalesReps.mo_SelectedCode.Item(i) & "','C004'"
            If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_req) Then
                li_Status = SQLRowCount(ll_Statement, ll_lngrows)
                If ll_lngrows = 0 Then
                    li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
                Else
                    li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
                End If
            Else
                li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
            End If
        Next
    End If
Case "MDLDGG"
    'list of product groups not linked to this media
    Quot_SalesReps.ms_DBRequest = "Exec Media_DGG_Link_t_lst2 '" & gut_Param.Str3 & "','" & gut_LangLogin.Code & "'"
    'parameters
    Quot_SalesReps.mb_ShowAll = False
    Quot_SalesReps.ms_ScreenName = "MDLDGG"
    Quot_SalesReps.ms_LanguageCode = gut_LangLogin.Code
    'initialize the screen
    For i = Quot_SalesReps.mo_SelectedCode.Count To 1 Step -1
        Quot_SalesReps.mo_SelectedCode.Remove i
        Quot_SalesReps.mo_SelectedDesc.Remove i
    Next
    'initialize the selected DGG for the media
    'remove the old selected codes
    For i = Quot_SalesReps.mo_SelectedCode.Count To 1 Step -1
        Quot_SalesReps.mo_SelectedCode.Remove i
        Quot_SalesReps.mo_SelectedDesc.Remove i
    Next
    ls_req = "EXEC Media_DGG_Link_t_lst '" & gut_Param.Str3 & "','" & gut_LangLogin.Code & "'"
    If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_req) Then
        li_Status = SQL_SUCCESS
    Else
        li_Status = SQL_ERROR
    End If
    Do While li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO
        li_Status = SQLFetch(ll_Statement)
        If li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO Then
            'add selected DGGs for this media
            Quot_SalesReps.mo_SelectedCode.Add ODBCData(ll_Statement, 1)
            Quot_SalesReps.mo_SelectedDesc.Add ODBCData(ll_Statement, 2)
        End If
    Loop
    'show screen
    Quot_SalesReps.show 1
    'return from the screen ...
    If Quot_SalesReps.mb_Return = OK Then
        'delete old links
        ls_req = "EXEC Media_DGG_Del '" & gut_Param.Str3 & "'"
        If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_req) Then
            li_Status = SQLRowCount(ll_Statement, ll_lngrows)
            If ll_lngrows = 0 Then
                li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
            Else
                li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
            End If
        Else
            li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
        End If
       'Add New links
        For i = 1 To Quot_SalesReps.mo_SelectedCode.Count
            ls_req = "EXEC Media_DGG_ins '" & gut_Param.Str3 & "','" & Quot_SalesReps.mo_SelectedCode.Item(i) & "'"
            If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_req) Then
                li_Status = SQLRowCount(ll_Statement, ll_lngrows)
                If ll_lngrows = 0 Then
                    li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
                Else
                    li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
                End If
            Else
                li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
            End If
        Next
    End If
Case "MDLINM"
    'list of Products Families Internet Name not linked to this media
    Quot_SalesReps.ms_DBRequest = "Exec Media_INM_Link_t_lst2 '" & gut_Param.Str3 & "','" & gut_LangLogin.Code & "'"
    'parameters
    Quot_SalesReps.mb_ShowAll = False
    Quot_SalesReps.ms_ScreenName = "MDLINM"
    Quot_SalesReps.ms_LanguageCode = gut_LangLogin.Code
    'initialize the screen
    For i = Quot_SalesReps.mo_SelectedCode.Count To 1 Step -1
        Quot_SalesReps.mo_SelectedCode.Remove i
        Quot_SalesReps.mo_SelectedDesc.Remove i
    Next
    'initialize the selected INM for the media
    'remove the old selected codes
    For i = Quot_SalesReps.mo_SelectedCode.Count To 1 Step -1
        Quot_SalesReps.mo_SelectedCode.Remove i
        Quot_SalesReps.mo_SelectedDesc.Remove i
    Next
    ls_req = "EXEC Media_INM_Link_t_lst '" & gut_Param.Str3 & "','" & gut_LangLogin.Code & "'"
    If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_req) Then
        li_Status = SQL_SUCCESS
    Else
        li_Status = SQL_ERROR
    End If
    Do While li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO
        li_Status = SQLFetch(ll_Statement)
        If li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO Then
            'add selected INMs for this media
            Quot_SalesReps.mo_SelectedCode.Add ODBCData(ll_Statement, 1)
            Quot_SalesReps.mo_SelectedDesc.Add ODBCData(ll_Statement, 2)
        End If
    Loop
    'show screen
    Quot_SalesReps.show 1
    'return from the screen ...
    If Quot_SalesReps.mb_Return = OK Then
        'delete old links
        ls_req = "EXEC Media_INM_Del '" & gut_Param.Str3 & "'"
        If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_req) Then
            li_Status = SQLRowCount(ll_Statement, ll_lngrows)
            If ll_lngrows = 0 Then
                li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
            Else
                li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
            End If
        Else
            li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
        End If
       'Add New links
        For i = 1 To Quot_SalesReps.mo_SelectedCode.Count
            ls_req = "EXEC Media_INM_ins '" & gut_Param.Str3 & "','" & Quot_SalesReps.mo_SelectedCode.Item(i) & "'"
            If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_req) Then
                li_Status = SQLRowCount(ll_Statement, ll_lngrows)
                If ll_lngrows = 0 Then
                    li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
                Else
                    li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
                End If
            Else
                li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
            End If
        Next
    End If
Case "MDLCIG"
    'list of Ceiling Internet Group not linked to this media
    Quot_SalesReps.ms_DBRequest = "Exec Media_CIG_Link_t_lst2 '" & gut_Param.Str3 & "','" & gut_LangLogin.Code & "'"
    'parameters
    Quot_SalesReps.mb_ShowAll = False
    Quot_SalesReps.ms_ScreenName = "MDLCIG"
    Quot_SalesReps.ms_LanguageCode = gut_LangLogin.Code
    'initialize the screen
    For i = Quot_SalesReps.mo_SelectedCode.Count To 1 Step -1
        Quot_SalesReps.mo_SelectedCode.Remove i
        Quot_SalesReps.mo_SelectedDesc.Remove i
    Next
    'initialize the selected CIG for the media
    'remove the old selected codes
    For i = Quot_SalesReps.mo_SelectedCode.Count To 1 Step -1
        Quot_SalesReps.mo_SelectedCode.Remove i
        Quot_SalesReps.mo_SelectedDesc.Remove i
    Next
    ls_req = "EXEC Media_CIG_Link_t_lst '" & gut_Param.Str3 & "','" & gut_LangLogin.Code & "'"
    If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_req) Then
        li_Status = SQL_SUCCESS
    Else
        li_Status = SQL_ERROR
    End If
    Do While li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO
        li_Status = SQLFetch(ll_Statement)
        If li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO Then
            'add selected CIGs for this media
            Quot_SalesReps.mo_SelectedCode.Add ODBCData(ll_Statement, 1)
            Quot_SalesReps.mo_SelectedDesc.Add ODBCData(ll_Statement, 2)
        End If
    Loop
    'show screen
    Quot_SalesReps.show 1
    'return from the screen ...
    If Quot_SalesReps.mb_Return = OK Then
        'delete old links
        ls_req = "EXEC Media_CIG_Del '" & gut_Param.Str3 & "'"
        If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_req) Then
            li_Status = SQLRowCount(ll_Statement, ll_lngrows)
            If ll_lngrows = 0 Then
                li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
            Else
                li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
            End If
        Else
            li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
        End If
       'Add New links
        For i = 1 To Quot_SalesReps.mo_SelectedCode.Count
            ls_req = "EXEC Media_CIG_ins '" & gut_Param.Str3 & "','" & Quot_SalesReps.mo_SelectedCode.Item(i) & "'"
            If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_req) Then
                li_Status = SQLRowCount(ll_Statement, ll_lngrows)
                If ll_lngrows = 0 Then
                    li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
                Else
                    li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
                End If
            Else
                li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
            End If
        Next
    End If
        ' JN 11.07.2013 -- select view first from submenu
    Case "SRACLM"
        gs_TableName = "Sales_Reps_Assignement"
        gs_ParamReq1 = "EXEC Sales_Reps_Assignement_t_lst 1, '"
        gs_ParamReq2 = "EXEC Screen_Csts 'main_salrepa', '" & gut_LangLogin.Code & "'"
        gs_ParamReq3 = "EXEC Check_Security 'Sales_Reps_Assignement', '" & prg.LoginName & "'"
        gi_TranslateType = 7
        gi_GridWidth(0) = 1
        gi_GridWidth(1) = 2000
        gi_GridWidth(2) = 1
        gi_GridWidth(3) = 2000
        gi_GridWidth(4) = 1200
        gi_GridWidth(5) = 1200
        gi_GridWidth(6) = 1
        gi_GridWidth(7) = 1
        gi_GridWidth(8) = 1200
        gi_GridWidth(9) = 1200
        For li_Count = 10 To 29
            gi_GridWidth(li_Count) = 1
        Next li_Count
        C_main.show 1
    Case "SRASAP"
        gs_TableName = "Sales_Reps_Assignement"
        gs_ParamReq1 = "EXEC Sales_Reps_Assignement_t_lst 2, '"
        gs_ParamReq2 = "EXEC Screen_Csts 'main_salrepa', '" & gut_LangLogin.Code & "'"
        gs_ParamReq3 = "EXEC Check_Security 'Sales_Reps_Assignement', '" & prg.LoginName & "'"
        gi_TranslateType = 7
        gi_GridWidth(0) = 1
        gi_GridWidth(1) = 2000
        gi_GridWidth(2) = 1
        gi_GridWidth(3) = 2000
        gi_GridWidth(4) = 1200
        gi_GridWidth(5) = 1200
        gi_GridWidth(6) = 1
        gi_GridWidth(7) = 1
        gi_GridWidth(8) = 1200
        gi_GridWidth(9) = 1200
        For li_Count = 10 To 29
            gi_GridWidth(li_Count) = 1
        Next li_Count
        C_main.show 1
    Case "SRAINT"
        gs_TableName = "Sales_Reps_Assignement"
        gs_ParamReq1 = "EXEC Sales_Reps_Assignement_t_lst 3, '"
        gs_ParamReq2 = "EXEC Screen_Csts 'main_salrepa', '" & gut_LangLogin.Code & "'"
        gs_ParamReq3 = "EXEC Check_Security 'Sales_Reps_Assignement', '" & prg.LoginName & "'"
        gi_TranslateType = 7
        gi_GridWidth(0) = 1
        gi_GridWidth(1) = 2000
        gi_GridWidth(2) = 1
        gi_GridWidth(3) = 2000
        gi_GridWidth(4) = 1200
        gi_GridWidth(5) = 1200
        gi_GridWidth(6) = 1
        gi_GridWidth(7) = 1
        gi_GridWidth(8) = 1200
        gi_GridWidth(9) = 1200
        For li_Count = 10 To 29
            gi_GridWidth(li_Count) = 1
        Next li_Count
        C_main.show 1
    End Select
    
    opt_Menu(Index).Value = KO
    MouseOn

Exit Sub

suite:
li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
StdError
End Sub
Private Sub ssp_quit_Click()

MouseOff
Unload Me

End Sub
