VERSION 5.00
Begin VB.Form Tech_Density_main 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   2100
   ClientLeft      =   -45
   ClientTop       =   2190
   ClientWidth     =   13680
   ControlBox      =   0   'False
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   2100
   ScaleWidth      =   13680
   ShowInTaskbar   =   0   'False
   Begin VB.ListBox lst_ToolOption 
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   720
      TabIndex        =   24
      TabStop         =   0   'False
      Top             =   360
      Visible         =   0   'False
      Width           =   852
   End
   Begin VB.ComboBox cbo_Category2 
      Height          =   288
      ItemData        =   "T_DENPRO.frx":0000
      Left            =   3240
      List            =   "T_DENPRO.frx":0002
      Style           =   2  'Dropdown List
      TabIndex        =   14
      Top             =   720
      Visible         =   0   'False
      Width           =   312
   End
   Begin VB.Frame frm_Filter 
      Caption         =   "Filter"
      Height          =   912
      Left            =   0
      TabIndex        =   3
      Top             =   1080
      Width           =   13635
      Begin VB.ComboBox cbo_62 
         Enabled         =   0   'False
         Height          =   315
         Left            =   11880
         TabIndex        =   26
         Text            =   "cbo_62"
         Top             =   420
         Visible         =   0   'False
         Width           =   312
      End
      Begin VB.ComboBox cbo_6 
         Enabled         =   0   'False
         Height          =   315
         ItemData        =   "T_DENPRO.frx":0004
         Left            =   11400
         List            =   "T_DENPRO.frx":0006
         Style           =   2  'Dropdown List
         TabIndex        =   25
         Top             =   420
         Visible         =   0   'False
         Width           =   2200
      End
      Begin VB.ComboBox cbo_52 
         Enabled         =   0   'False
         Height          =   315
         ItemData        =   "T_DENPRO.frx":0008
         Left            =   10080
         List            =   "T_DENPRO.frx":000A
         Style           =   2  'Dropdown List
         TabIndex        =   20
         Top             =   420
         Visible         =   0   'False
         Width           =   312
      End
      Begin VB.ComboBox cbo_42 
         Enabled         =   0   'False
         Height          =   315
         ItemData        =   "T_DENPRO.frx":000C
         Left            =   8220
         List            =   "T_DENPRO.frx":000E
         Style           =   2  'Dropdown List
         TabIndex        =   17
         Top             =   420
         Visible         =   0   'False
         Width           =   312
      End
      Begin VB.ComboBox cbo_32 
         Enabled         =   0   'False
         Height          =   315
         ItemData        =   "T_DENPRO.frx":0010
         Left            =   6120
         List            =   "T_DENPRO.frx":0012
         Style           =   2  'Dropdown List
         TabIndex        =   11
         Top             =   420
         Visible         =   0   'False
         Width           =   312
      End
      Begin VB.ComboBox cbo_22 
         Enabled         =   0   'False
         Height          =   315
         ItemData        =   "T_DENPRO.frx":0014
         Left            =   4140
         List            =   "T_DENPRO.frx":0016
         Style           =   2  'Dropdown List
         TabIndex        =   10
         Top             =   420
         Visible         =   0   'False
         Width           =   312
      End
      Begin VB.ComboBox cbo_12 
         Enabled         =   0   'False
         Height          =   315
         ItemData        =   "T_DENPRO.frx":0018
         Left            =   1320
         List            =   "T_DENPRO.frx":001A
         Style           =   2  'Dropdown List
         TabIndex        =   9
         Top             =   420
         Visible         =   0   'False
         Width           =   780
      End
      Begin VB.ComboBox cbo_2 
         Enabled         =   0   'False
         Height          =   315
         ItemData        =   "T_DENPRO.frx":001C
         Left            =   2520
         List            =   "T_DENPRO.frx":001E
         Style           =   2  'Dropdown List
         TabIndex        =   7
         Top             =   420
         Visible         =   0   'False
         Width           =   2200
      End
      Begin VB.ComboBox cbo_1 
         Enabled         =   0   'False
         Height          =   315
         ItemData        =   "T_DENPRO.frx":0020
         Left            =   60
         List            =   "T_DENPRO.frx":0022
         Style           =   2  'Dropdown List
         TabIndex        =   6
         Top             =   420
         Width           =   2415
      End
      Begin VB.ComboBox cbo_3 
         Enabled         =   0   'False
         Height          =   315
         ItemData        =   "T_DENPRO.frx":0024
         Left            =   4740
         List            =   "T_DENPRO.frx":0026
         Style           =   2  'Dropdown List
         TabIndex        =   12
         Top             =   420
         Visible         =   0   'False
         Width           =   2200
      End
      Begin VB.ComboBox cbo_4 
         Enabled         =   0   'False
         Height          =   315
         ItemData        =   "T_DENPRO.frx":0028
         Left            =   6960
         List            =   "T_DENPRO.frx":002A
         Style           =   2  'Dropdown List
         TabIndex        =   18
         Top             =   420
         Visible         =   0   'False
         Width           =   2200
      End
      Begin VB.ComboBox cbo_5 
         Enabled         =   0   'False
         Height          =   315
         ItemData        =   "T_DENPRO.frx":002C
         Left            =   9180
         List            =   "T_DENPRO.frx":002E
         Style           =   2  'Dropdown List
         TabIndex        =   21
         Top             =   420
         Visible         =   0   'False
         Width           =   2200
      End
      Begin VB.Label lbl_6 
         Alignment       =   2  'Center
         Caption         =   "Criterion 6"
         Height          =   255
         Left            =   11400
         TabIndex        =   27
         Top             =   180
         Visible         =   0   'False
         Width           =   1755
      End
      Begin VB.Label lbl_5 
         Alignment       =   2  'Center
         Caption         =   "Criterion 5"
         Height          =   255
         Left            =   9180
         TabIndex        =   22
         Top             =   180
         Visible         =   0   'False
         Width           =   1755
      End
      Begin VB.Label lbl_4 
         Alignment       =   2  'Center
         Caption         =   "Criterion 4"
         Height          =   255
         Left            =   6960
         TabIndex        =   19
         Top             =   180
         Visible         =   0   'False
         Width           =   1815
      End
      Begin VB.Label lbl_3 
         Alignment       =   2  'Center
         Caption         =   "Criterion 3"
         Height          =   255
         Left            =   4800
         TabIndex        =   13
         Top             =   180
         Visible         =   0   'False
         Width           =   1815
      End
      Begin VB.Label lbl_1 
         Alignment       =   2  'Center
         Caption         =   "Criterion 1"
         Height          =   252
         Left            =   60
         TabIndex        =   5
         Top             =   180
         Width           =   1812
      End
      Begin VB.Label lbl_2 
         Alignment       =   2  'Center
         Caption         =   "Criterion 2"
         Height          =   255
         Left            =   2760
         TabIndex        =   4
         Top             =   180
         Visible         =   0   'False
         Width           =   1815
      End
   End
   Begin VB.PictureBox ButtonBox 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   612
      Left            =   0
      ScaleHeight     =   585
      ScaleWidth      =   13605
      TabIndex        =   0
      Top             =   0
      Width           =   13635
      Begin VB.PictureBox pic_FillGrid 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DragIcon        =   "T_DENPRO.frx":0030
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   432
         Left            =   120
         ScaleHeight     =   435
         ScaleWidth      =   435
         TabIndex        =   23
         Top             =   60
         Width           =   432
      End
      Begin VB.PictureBox pic_ToolBox 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DragIcon        =   "T_DENPRO.frx":033A
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   432
         Left            =   720
         ScaleHeight     =   435
         ScaleWidth      =   435
         TabIndex        =   8
         Top             =   60
         Width           =   432
      End
      Begin VB.PictureBox pic_help 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DragIcon        =   "T_DENPRO.frx":0644
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   432
         Left            =   2040
         ScaleHeight     =   435
         ScaleWidth      =   435
         TabIndex        =   2
         Top             =   60
         Width           =   432
      End
      Begin VB.PictureBox pic_quit 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DragIcon        =   "T_DENPRO.frx":094E
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   432
         Left            =   1440
         ScaleHeight     =   435
         ScaleWidth      =   435
         TabIndex        =   1
         Top             =   60
         Width           =   432
      End
   End
   Begin VB.ComboBox cbo_Category 
      Height          =   288
      ItemData        =   "T_DENPRO.frx":0C58
      Left            =   1920
      List            =   "T_DENPRO.frx":0C5A
      Style           =   2  'Dropdown List
      TabIndex        =   15
      Top             =   720
      Width           =   1812
   End
   Begin VB.Label lbl_Category 
      Caption         =   "Product category"
      Height          =   252
      Left            =   120
      TabIndex        =   16
      Top             =   720
      Width           =   1812
   End
End
Attribute VB_Name = "Tech_Density_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub DisplayC_main2()

Dim li_Count As Integer

gs_TableName = "Tech_Value_Option"
gs_ParamReq1 = "EXEC Tech_" & gut_Param.Str21 & "_Option_t_lst '"
gs_ParamReq2 = gut_Param.Str17
gs_ParamReq3 = "EXEC Check_Security 'Tech_Value_Option', '" & prg.LoginName & "'"
gi_GridWidth(0) = 1
gi_GridWidth(1) = 1
gi_GridWidth(2) = 2500
gi_GridWidth(3) = 1200
gi_GridWidth(4) = 1200
For li_Count = 5 To 29
    gi_GridWidth(li_Count) = 1
Next li_Count
C_main.show 1

End Sub

Private Sub Getcsts()

Dim ls_req As String
Dim ll_Statement As Long
Dim li_Status As Integer
Dim ls_Field As String, ls_Text As String

On Error GoTo suite

ls_req = gut_Param.Str2 & 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
        ls_Field = ODBCData(ll_Statement, 1)
        ls_Text = Left(ODBCData(ll_Statement, 2), 30)
        Select Case ls_Field
        Case "title": Caption = ls_Text
        Case "frm_Filter": frm_Filter.Caption = ls_Text
        Case "lbl_Category": lbl_Category = ls_Text
        Case "lbl_1": lbl_1 = ls_Text
        Case "lbl_2": lbl_2 = ls_Text
        Case "lbl_3": lbl_3 = ls_Text
        Case "lbl_4": lbl_4 = ls_Text
        Case "lbl_5": lbl_5 = ls_Text
        Case "lbl_6": lbl_6 = ls_Text
        Case "lst_ToolOption(0)": lst_ToolOption.AddItem ls_Text, 0
            lst_ToolOption.ItemData(0) = 0
        Case "lst_ToolOption(1)": lst_ToolOption.AddItem ls_Text, 1
            lst_ToolOption.ItemData(1) = 1
'        Case "lst_ToolOption(2)": lst_ToolOption.AddItem ls_Text, 2
'            lst_ToolOption.ItemData(2) = 2
        End Select
    End If
Loop
li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
Exit Sub

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

Private Sub Cbo_category_Click()

Dim ls_Code As String
Dim ls_req As String

MouseOff
If cbo_Category.ListIndex <> -1 Then
    pic_FillGrid.Visible = OK
    ls_Code = ""
    If cbo_1.ListIndex <> -1 Then
        ls_Code = cbo_12.List(cbo_1.ListIndex)
    End If
    cbo_1.Clear
    cbo_12.Clear
    ls_req = gut_Param.Str12 _
        & cbo_Category2.List(cbo_Category.ListIndex) & "', '" _
        & gut_LangLogin.Code & "'"
    cbo_1.AddItem "*"
    cbo_12.AddItem "*"
    FillCbo ls_req, cbo_12, cbo_1
    If ls_Code <> "" Then
        cbo_1.ListIndex = ComboFindItem(cbo_12, ls_Code)
    End If
    cbo_1.Enabled = OK
    If CInt(gut_Param.Str11) > 1 Then
        ls_Code = ""
        If cbo_2.ListIndex <> -1 Then
            ls_Code = cbo_22.List(cbo_2.ListIndex)
        End If
        cbo_2.Clear
        cbo_22.Clear
        ls_req = gut_Param.Str13 _
            & cbo_Category2.List(cbo_Category.ListIndex) & "', '" _
            & gut_LangLogin.Code & "'"
        cbo_2.AddItem "*"
        cbo_22.AddItem "*"
        FillCbo ls_req, cbo_22, cbo_2
        If ls_Code <> "" Then
           cbo_2.ListIndex = ComboFindItem(cbo_22, ls_Code)
        End If
        cbo_2.Enabled = OK
        If CInt(gut_Param.Str11) > 2 Then
            ls_Code = ""
            If cbo_3.ListIndex <> -1 Then
                ls_Code = cbo_32.List(cbo_3.ListIndex)
            End If
            cbo_3.Clear
            cbo_32.Clear
            ls_req = gut_Param.Str14 _
                & cbo_Category2.List(cbo_Category.ListIndex) & "', '" _
                & gut_LangLogin.Code & "'"
            cbo_3.AddItem "*"
            cbo_32.AddItem "*"
            FillCbo ls_req, cbo_32, cbo_3
            If ls_Code <> "" Then
               cbo_3.ListIndex = ComboFindItem(cbo_32, ls_Code)
            End If
            cbo_3.Enabled = OK
            If CInt(gut_Param.Str11) > 3 Then
                ls_Code = ""
                If cbo_4.ListIndex <> -1 Then
                    ls_Code = cbo_42.List(cbo_4.ListIndex)
                End If
                cbo_4.Clear
                cbo_42.Clear
                ls_req = gut_Param.Str15 _
                    & cbo_Category2.List(cbo_Category.ListIndex) & "', '" _
                    & gut_LangLogin.Code & "'"
                cbo_4.AddItem "*"
                cbo_42.AddItem "*"
                FillCbo ls_req, cbo_42, cbo_4
                If ls_Code <> "" Then
                   cbo_4.ListIndex = ComboFindItem(cbo_42, ls_Code)
                End If
                cbo_4.Enabled = OK
                If CInt(gut_Param.Str11) > 4 Then
                    ls_Code = ""
                    If cbo_5.ListIndex <> -1 Then
                        ls_Code = cbo_52.List(cbo_5.ListIndex)
                    End If
                    cbo_5.Clear
                    cbo_52.Clear
                    ls_req = gut_Param.Str16 _
                        & cbo_Category2.List(cbo_Category.ListIndex) & "', '" _
                        & gut_LangLogin.Code & "'"
                    cbo_5.AddItem "*"
                    cbo_52.AddItem "*"
                    FillCbo ls_req, cbo_52, cbo_5
                    If ls_Code <> "" Then
                       cbo_5.ListIndex = ComboFindItem(cbo_52, ls_Code)
                    End If
                    cbo_5.Enabled = OK
                    If CInt(gut_Param.Str11) > 5 Then
                        ls_Code = ""
                        If cbo_6.ListIndex <> -1 Then
                            ls_Code = cbo_62.List(cbo_6.ListIndex)
                        End If
                        cbo_6.Clear
                        cbo_62.Clear
                        ls_req = gut_Param.Str17 _
                            & cbo_Category2.List(cbo_Category.ListIndex) & "', '" _
                            & gut_LangLogin.Code & "'"
                        cbo_6.AddItem "*"
                        cbo_62.AddItem "*"
                        FillCbo ls_req, cbo_62, cbo_6
                        If ls_Code <> "" Then
                           cbo_6.ListIndex = ComboFindItem(cbo_62, ls_Code)
                        End If
                        cbo_6.Enabled = OK
                    End If

                End If
            End If
        End If
    End If
Else
    pic_FillGrid.Visible = KO
End If
MouseOn

End Sub

Private Sub Form_Load()

MouseOff

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

pic_ToolBox.Picture = LoadResPicture(RES_TOOL, 1)
pic_quit.Picture = LoadResPicture(RES_QUIT, 1)
pic_help.Picture = LoadResPicture(RES_HELP, 1)
pic_FillGrid.Picture = LoadResPicture(RES_FILLGRID, 1)
Select Case gut_Param.Str11
Case "1"
    Me.Width = 3912
    Me.Left = 2856
Case "2"
    lbl_2.Visible = OK
    cbo_2.Visible = OK
' JUNA task213 update
    Me.Width = cbo_2.Left + cbo_2.Width + 162   '3912
    Me.Left = 2856
Case "3"
    lbl_2.Visible = OK
    cbo_2.Visible = OK
    lbl_3.Visible = OK
    cbo_3.Visible = OK
' JUNA task213 update
    Me.Width = cbo_3.Left + cbo_3.Width + 162   '5736
    Me.Left = 1956
Case "4"
    lbl_2.Visible = OK
    cbo_2.Visible = OK
    lbl_3.Visible = OK
    cbo_3.Visible = OK
    lbl_4.Visible = OK
    cbo_4.Visible = OK
' JUNA task213 update
    Me.Width = cbo_4.Left + cbo_4.Width + 162   '7596
    Me.Left = 984
Case "5"
    lbl_2.Visible = OK
    cbo_2.Visible = OK
    lbl_3.Visible = OK
    cbo_3.Visible = OK
    lbl_4.Visible = OK
    cbo_4.Visible = OK
    lbl_5.Visible = OK
    cbo_5.Visible = OK
' JUNA task213 update
    Me.Width = cbo_5.Left + cbo_5.Width + 162   '9516
    Me.Left = 48
Case "6"
    lbl_2.Visible = OK
    cbo_2.Visible = OK
    lbl_3.Visible = OK
    cbo_3.Visible = OK
    lbl_4.Visible = OK
    cbo_4.Visible = OK
    lbl_5.Visible = OK
    cbo_5.Visible = OK
    lbl_6.Visible = OK
    cbo_6.Visible = OK
' JUNA task213 update
    Me.Width = cbo_6.Left + cbo_6.Width + 162   '13770
    Me.Left = 48
End Select
' JUNA task213 insert
frm_Filter.Width = Me.Width - 90

Getcsts
FillCbo "Category", cbo_Category2, cbo_Category
MouseOn

End Sub
Private Sub lst_ToolOption_Click()

Dim li_Index As Integer

MouseOff
lst_ToolOption.Visible = KO
Select Case lst_ToolOption.ItemData(lst_ToolOption.ListIndex)
    Case 0: DisplayC_main
    Case 1: DisplayC_main3
'    Case 2: DisplayC_main3
End Select
MouseOn

End Sub

Private Sub pic_FillGrid_Click()

Dim li_Count As Integer
Dim ls_Category As String
Dim ls_1 As String
Dim ls_2 As String
Dim ls_3 As String
Dim ls_4 As String
Dim ls_5 As String
Dim ls_6 As String

MouseOff
gs_TableName = gut_Param.Str20
For li_Count = 0 To 29
    gi_GridWidth(li_Count) = 1
Next li_Count
        ' REMOVED 7.11.2005 JULO
'If gs_TableName = "Area_Manager" Then
'    ls_Category = cbo_Category2.List(cbo_category.ListIndex)
'    If cbo_1.ListIndex = -1 Then
'        ls_1 = ""
'    Else
'        ls_1 = cbo_12.List(cbo_1.ListIndex)
'        If ls_1 = "*" Then
'            ls_1 = ""
'        End If
'    End If
'    If cbo_2.ListIndex = -1 Then
'        ls_2 = ""
'    Else
'        ls_2 = cbo_22.List(cbo_2.ListIndex)
'        If ls_2 = "*" Then
'            ls_2 = ""
'        End If
'    End If
'    If cbo_3.ListIndex = -1 Then
'        ls_3 = ""
'    Else
'        ls_3 = cbo_32.List(cbo_3.ListIndex)
'        If ls_3 = "*" Then
'            ls_3 = ""
'        End If
'    End If
'    If cbo_4.ListIndex = -1 Then
'        ls_4 = ""
'    Else
'        ls_4 = cbo_42.List(cbo_4.ListIndex)
'        If ls_4 = "*" Then
'            ls_4 = ""
'        End If
'    End If
'    If cbo_5.ListIndex = -1 Then
'        ls_5 = ""
'    Else
'        ls_5 = cbo_52.List(cbo_5.ListIndex)
'        If ls_5 = "*" Then
'            ls_5 = ""
'        End If
'    End If
'    If cbo_6.ListIndex = -1 Then
'        ls_6 = ""
'    Else
'        ls_6 = cbo_62.List(cbo_6.ListIndex)
'        If ls_6 = "*" Then
'            ls_6 = ""
'        End If
'    End If
'
'    gs_ParamReq1 = "EXEC " & gut_Param.Str1 & "_t_lst '" _
'        & ls_Category & "', '" _
'        & ls_1 & "', '" & ls_2 & "', '" _
'        & ls_3 & "', '" & ls_4 & "', '" _
'        & ls_5 & "', '" & ls_6 & "', '"
'    gs_ParamReq2 = gut_Param.Str6
'    gs_ParamReq3 = gut_Param.Str7
'    gi_GridWidth(0) = 1
'    gi_GridWidth(1) = 1500
'    gi_GridWidth(2) = 1
'    gi_GridWidth(3) = 1500
'    gi_GridWidth(4) = 1
'    gi_GridWidth(5) = 1500
'    gi_GridWidth(6) = 1
'    gi_GridWidth(7) = 1500
'    gi_GridWidth(8) = 1
'    gi_GridWidth(9) = 1500
'    gi_GridWidth(10) = 1
'    gi_GridWidth(11) = 1500
'    gi_GridWidth(12) = 1
'    gi_GridWidth(13) = 1500
'    gi_GridWidth(14) = 1000
'Else
    ls_Category = cbo_Category2.List(cbo_Category.ListIndex)
    If cbo_1.ListIndex = -1 Then
        ls_1 = ""
    Else
        ls_1 = cbo_12.List(cbo_1.ListIndex)
        If ls_1 = "*" Then
            ls_1 = ""
        End If
    End If
    gs_ParamReq1 = "EXEC BI_" & gut_Param.Str1 & "_Value_t_lst '" _
        & ls_Category & "', '" _
        & ls_1 & "', '"
    If CInt(gut_Param.Str11) > 1 Then
        If cbo_2.ListIndex = -1 Then
            ls_2 = ""
        Else
            ls_2 = cbo_22.List(cbo_2.ListIndex)
            If ls_2 = "*" Then
                ls_2 = ""
            End If
        End If
        gs_ParamReq1 = gs_ParamReq1 & ls_2 & "', '"
        If CInt(gut_Param.Str11) > 2 Then
            If cbo_3.ListIndex = -1 Then
                ls_3 = ""
            Else
                ls_3 = cbo_32.List(cbo_3.ListIndex)
                If ls_3 = "*" Then
                    ls_3 = ""
                End If
            End If
            gs_ParamReq1 = gs_ParamReq1 & ls_3 & "', '"
            If CInt(gut_Param.Str11) > 3 Then
                If cbo_4.ListIndex = -1 Then
                    ls_4 = ""
                Else
                    ls_4 = cbo_42.List(cbo_4.ListIndex)
                    If ls_4 = "*" Then
                        ls_4 = ""
                    End If
                End If
                gs_ParamReq1 = gs_ParamReq1 & ls_4 & "', '"
                If CInt(gut_Param.Str11) > 4 Then
                    If cbo_5.ListIndex = -1 Then
                        ls_5 = ""
                    Else
                        ls_5 = cbo_52.List(cbo_5.ListIndex)
                        If ls_5 = "*" Then
                            ls_5 = ""
                        End If
                    End If
                    gs_ParamReq1 = gs_ParamReq1 & ls_5 & "', '"
                    If CInt(gut_Param.Str11) > 5 Then
                        If cbo_6.ListIndex = -1 Then
                            ls_6 = ""
                        Else
                            ls_6 = cbo_62.List(cbo_6.ListIndex)
                            If ls_6 = "*" Then
                                ls_6 = ""
                            End If
                        End If
                        gs_ParamReq1 = gs_ParamReq1 & ls_6 & "', '"
                    End If
                End If
            End If
        End If
    End If
    gs_ParamReq2 = gut_Param.Str6
    gs_ParamReq3 = gut_Param.Str7
    Select Case gut_Param.Str11
    Case "1"
        gi_GridWidth(0) = 1
        gi_GridWidth(1) = 1200
        gi_GridWidth(2) = 1
        gi_GridWidth(3) = 1200
        gi_GridWidth(4) = 1
        gi_GridWidth(5) = 1
        gi_GridWidth(6) = 1200
        gi_GridWidth(7) = 1200
        gi_GridWidth(8) = 1200
    Case "2"
        gi_GridWidth(0) = 1
        gi_GridWidth(1) = 1200
        gi_GridWidth(2) = 1
        gi_GridWidth(3) = 1200
        gi_GridWidth(4) = 1
        gi_GridWidth(5) = 1200
        gi_GridWidth(6) = 1
        gi_GridWidth(7) = 1
        Select Case gut_Param.Str1
        Case "AcoustAW", "AcoustNRC", "AbsClass", "EquivSoundAbs"
            gi_GridWidth(8) = 1200
            gi_GridWidth(9) = 1
            gi_GridWidth(10) = 1200
            gi_GridWidth(11) = 1
            gi_GridWidth(12) = 1200
            gi_GridWidth(13) = 1200
            gi_GridWidth(14) = 1200
        Case Else
            gi_GridWidth(8) = 1200
            gi_GridWidth(9) = 1200
            gi_GridWidth(10) = 1200
        End Select
    Case "3"
        gi_GridWidth(0) = 1
        gi_GridWidth(1) = 1200
        gi_GridWidth(2) = 1
        gi_GridWidth(3) = 1200
        gi_GridWidth(4) = 1
        gi_GridWidth(5) = 1200
        gi_GridWidth(6) = 1
        gi_GridWidth(7) = 1200
        gi_GridWidth(8) = 1
        gi_GridWidth(9) = 1
        Select Case gut_Param.Str1
        Case "FireReac"
            gi_GridWidth(10) = 1200
            gi_GridWidth(11) = 1
            gi_GridWidth(12) = 1200
            gi_GridWidth(13) = 1200
            gi_GridWidth(14) = 1200
        Case "AcoustDncW", "AcoustRW", "AcoustCAC", "Dnfw", "RedInd", "Rain"
            gi_GridWidth(10) = 1200
            gi_GridWidth(11) = 1
            gi_GridWidth(12) = 1200
            gi_GridWidth(13) = 1
            gi_GridWidth(14) = 1200
            gi_GridWidth(15) = 1200
            gi_GridWidth(16) = 1200
        Case Else
            gi_GridWidth(10) = 1200
            gi_GridWidth(11) = 1200
            gi_GridWidth(12) = 1200
        End Select
    Case "4"
        gi_GridWidth(0) = 1
        gi_GridWidth(1) = 1200
        gi_GridWidth(2) = 1
        gi_GridWidth(3) = 1200
        gi_GridWidth(4) = 1
        gi_GridWidth(5) = 1200
        gi_GridWidth(6) = 1
        gi_GridWidth(7) = 1200
        gi_GridWidth(8) = 1
        gi_GridWidth(9) = 1200
        gi_GridWidth(10) = 1
        gi_GridWidth(11) = 1
        Select Case gut_Param.Str1
        Case "FireRes"
            gi_GridWidth(12) = 1200
            gi_GridWidth(13) = 1
            gi_GridWidth(14) = 1200
            gi_GridWidth(15) = 1200
            gi_GridWidth(16) = 1200
        Case Else
            gi_GridWidth(12) = 1200
            gi_GridWidth(13) = 1200
            gi_GridWidth(14) = 1200
        End Select
    Case "5"
        gi_GridWidth(0) = 1
        gi_GridWidth(1) = 1200
        gi_GridWidth(2) = 1
        gi_GridWidth(3) = 1200
        gi_GridWidth(4) = 1
        gi_GridWidth(5) = 1200
        gi_GridWidth(6) = 1
        gi_GridWidth(7) = 1200
        gi_GridWidth(8) = 1
        gi_GridWidth(9) = 1200
        gi_GridWidth(10) = 1
        gi_GridWidth(11) = 1200
        gi_GridWidth(12) = 1
        gi_GridWidth(13) = 1
        gi_GridWidth(14) = 1200
        gi_GridWidth(15) = 1200
        gi_GridWidth(16) = 1200
    Case "6"
        gi_GridWidth(0) = 1
        gi_GridWidth(1) = 1200
        gi_GridWidth(2) = 1
        gi_GridWidth(3) = 1200
        gi_GridWidth(4) = 1
        gi_GridWidth(5) = 1200
        gi_GridWidth(6) = 1
        gi_GridWidth(7) = 1200
        gi_GridWidth(8) = 1
        gi_GridWidth(9) = 1200
        gi_GridWidth(10) = 1
        gi_GridWidth(11) = 1200
        gi_GridWidth(12) = 1
        gi_GridWidth(13) = 1200
        gi_GridWidth(14) = 1
        gi_GridWidth(15) = 1
        gi_GridWidth(16) = 1200
        gi_GridWidth(17) = 1200
        gi_GridWidth(16) = 1200
    End Select
'End If
C_main.show 1
MouseOn

End Sub

Private Sub pic_quit_Click()

MouseOff
Unload Me

End Sub
Private Sub pic_ToolBox_Click()

MouseOff
gi_TranslateType = 1
        ' REMOVED 7.11.2005 JULO
'If gut_Param.Str20 <> "Area_Manager" Then
    Select Case gut_Param.Str1
    Case "AcoustAW", "AcoustNRC", "AcoustDncW", "AcoustRW", "AcoustCAC", "Dnfw", "RedInd", "Rain", "EquivSoundAbs"
        lst_ToolOption.Visible = Not lst_ToolOption.Visible
    Case Else
        DisplayC_main
    End Select
'End If
MouseOn

End Sub
Private Sub DisplayC_main()

Dim li_Count As Integer

gs_TableName = "Tech"
gs_ParamReq1 = gut_Param.Str3
gs_ParamReq2 = gut_Param.Str4
gs_ParamReq3 = gut_Param.Str5
gi_GridWidth(0) = 1
Select Case gut_Param.Str1
Case "FireReac", "FireRes", "AcoustAW", "AcoustNRC", "AcoustDncW", "AcoustRW", "AcoustCAC", "Dnfw", "AbsClass", "RedInd", "Rain", "EquivSoundAbs"
    gi_GridWidth(1) = 1500
Case Else
    gi_GridWidth(1) = 1
End Select
gi_GridWidth(2) = 1
gi_GridWidth(3) = 1
gi_GridWidth(4) = 2500
gi_GridWidth(4) = 2500
Select Case gut_Param.Str1
'789 bis Case "AcoustAW", "AcoustNRC", "AcoustDncW", "AcoustRW", "AcoustCAC", "Density", "Humidity", "Light", "Thermal", "Weight", "Dnfw", "RedInd", "Rain"
Case "AcoustAW", "AcoustNRC", "AcoustDncW", "AcoustRW", "AcoustCAC", "Density", "Humidity", "Light", "Thermal", "Weight", "Dnfw", "RedInd", "EquivSoundAbs"
    gi_GridWidth(5) = 1500
Case Else
    gi_GridWidth(5) = 1
End Select
gi_GridWidth(6) = 1200
gi_GridWidth(7) = 1200
For li_Count = 8 To 29
    gi_GridWidth(li_Count) = 1
Next li_Count
C_main.show 1

End Sub
Public Sub DisplayC_main3()

Dim li_Count As Integer

gs_TableName = "Tech_Value_Curve"
gs_ParamReq1 = "EXEC Tech_Value_Curve_t_lst " & gut_Param.Str25 & ",'"
gs_ParamReq2 = gut_Param.Str22
gs_ParamReq3 = "EXEC Check_Security 'Tech_Value_Curve', '" & prg.LoginName & "'"
gi_GridWidth(0) = 1
gi_GridWidth(1) = 1
gi_GridWidth(2) = 6600
gi_GridWidth(3) = 1200
gi_GridWidth(4) = 1200
For li_Count = 5 To 29
    gi_GridWidth(li_Count) = 1
Next li_Count
C_main.show 1

End Sub

