VERSION 5.00
Begin VB.Form Trans_Data 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Data Translation"
   ClientHeight    =   6045
   ClientLeft      =   720
   ClientTop       =   390
   ClientWidth     =   8250
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   6045
   ScaleWidth      =   8250
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton spp_save 
      Height          =   615
      Left            =   6360
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   5400
      Width           =   615
   End
   Begin VB.CommandButton ssp_quit 
      Height          =   615
      Left            =   7200
      Style           =   1  'Graphical
      TabIndex        =   11
      Top             =   5400
      Width           =   615
   End
   Begin VB.Frame Frame2 
      Height          =   2655
      Left            =   120
      TabIndex        =   12
      Top             =   2640
      Width           =   8052
      Begin VB.TextBox Txt_Language6 
         Height          =   285
         Left            =   960
         TabIndex        =   17
         Top             =   960
         Visible         =   0   'False
         Width           =   3375
      End
      Begin VB.TextBox Txt_Language5 
         Height          =   285
         Left            =   4560
         TabIndex        =   16
         Top             =   600
         Visible         =   0   'False
         Width           =   3375
      End
      Begin VB.TextBox txt_Language4 
         Height          =   1152
         Left            =   960
         MaxLength       =   240
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   3
         Top             =   1320
         Visible         =   0   'False
         Width           =   6972
      End
      Begin VB.TextBox txt_Language3 
         Height          =   288
         Left            =   960
         MaxLength       =   80
         TabIndex        =   2
         Top             =   600
         Visible         =   0   'False
         Width           =   3372
      End
      Begin VB.TextBox txt_Language 
         Height          =   288
         Left            =   960
         MaxLength       =   80
         TabIndex        =   0
         Top             =   240
         Visible         =   0   'False
         Width           =   3372
      End
      Begin VB.PictureBox pic_Language 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         DragIcon        =   "TRANDATA.frx":0000
         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          =   384
         Left            =   240
         ScaleHeight     =   390
         ScaleWidth      =   390
         TabIndex        =   13
         Top             =   180
         Width           =   384
      End
      Begin VB.TextBox txt_Language2 
         Height          =   288
         Left            =   4560
         MaxLength       =   80
         TabIndex        =   1
         Top             =   240
         Visible         =   0   'False
         Width           =   3372
      End
   End
   Begin VB.Frame Frame1 
      Height          =   2655
      Left            =   120
      TabIndex        =   8
      Top             =   0
      Width           =   8052
      Begin VB.TextBox Txt_English6 
         Height          =   285
         Left            =   960
         Locked          =   -1  'True
         TabIndex        =   15
         Top             =   960
         Visible         =   0   'False
         Width           =   3375
      End
      Begin VB.TextBox Txt_English5 
         Height          =   285
         Left            =   4560
         Locked          =   -1  'True
         TabIndex        =   14
         Top             =   600
         Visible         =   0   'False
         Width           =   3375
      End
      Begin VB.TextBox txt_English4 
         Height          =   1152
         Left            =   960
         MaxLength       =   240
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   7
         Top             =   1320
         Visible         =   0   'False
         Width           =   6972
      End
      Begin VB.TextBox txt_English3 
         Height          =   288
         Left            =   960
         Locked          =   -1  'True
         TabIndex        =   6
         Top             =   600
         Visible         =   0   'False
         Width           =   3372
      End
      Begin VB.TextBox txt_English2 
         Height          =   288
         Left            =   4560
         Locked          =   -1  'True
         TabIndex        =   5
         Top             =   240
         Visible         =   0   'False
         Width           =   3372
      End
      Begin VB.TextBox txt_English 
         Height          =   288
         Left            =   960
         Locked          =   -1  'True
         TabIndex        =   4
         Top             =   240
         Visible         =   0   'False
         Width           =   3372
      End
      Begin VB.PictureBox pic_English 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         DragIcon        =   "TRANDATA.frx":030A
         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          =   384
         Left            =   240
         ScaleHeight     =   390
         ScaleWidth      =   390
         TabIndex        =   9
         Top             =   180
         Width           =   384
      End
   End
End
Attribute VB_Name = "Trans_Data"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim ms_Req As String
Dim mi_concurrency As Integer
Private Sub Get_Plants_Info()

Dim ls_Req As String
Dim ll_Statement As Long
Dim li_Status As Integer

On Error GoTo suite

ls_Req = "EXEC Plants_t_sel '" & gs_TableCode & "','" & gut_LangWork.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
        txt_Language4 = ODBCData(ll_Statement, 1)
        mi_concurrency = ODBCData(ll_Statement, 2)
    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 Get_Dist_Centre_Info()

Dim ls_Req As String
Dim ll_Statement As Long
Dim li_Status As Integer

On Error GoTo suite

ls_Req = "EXEC Dist_Centre_t_sel '" & gs_TableCode & "','" & gut_LangWork.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
        txt_Language4 = ODBCData(ll_Statement, 1)
        mi_concurrency = ODBCData(ll_Statement, 2)
    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 Get_Claim_Contact_Info()

Dim ls_Req As String
Dim ll_Statement As Long
Dim li_Status As Integer

On Error GoTo suite

ls_Req = "EXEC Claim_Contact_t_sel2 " & gs_TableCode & ",'" & gut_LangWork.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
        txt_Language4 = ODBCData(ll_Statement, 1)
        mi_concurrency = ODBCData(ll_Statement, 2)
    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 Get_Claim_Coordinator_Info()

Dim ls_Req As String
Dim ll_Statement As Long
Dim li_Status As Integer

On Error GoTo suite

ls_Req = "EXEC Claim_Coordinator_t_sel2 " & gs_TableCode & ",'" & gut_LangWork.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
        txt_Language4 = ODBCData(ll_Statement, 1)
        mi_concurrency = ODBCData(ll_Statement, 2)
    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 Get_Products_Families_Info()

Dim ls_Req As String
Dim ll_Statement As Long
Dim li_Status As Integer

On Error GoTo suite

ls_Req = "EXEC Products_Families_t_sel '" & gs_TableCode & "', '" & gut_LangWork.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
        mi_concurrency = ODBCData(ll_Statement, 1)
        txt_Language = ODBCData(ll_Statement, 2)
        If gs_MenuChoice = "Ceilings" Then
            txt_Language2 = ODBCData(ll_Statement, 3)
        End If
    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 Get_Sales_Offices_Info()

Dim ls_Req As String
Dim ll_Statement As Long
Dim li_Status As Integer

On Error GoTo suite

ls_Req = "EXEC Sales_Office_t_sel '" & gs_TableCode & "', '" & gut_LangWork.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
        txt_Language = ODBCData(ll_Statement, 1)
        txt_Language2 = ODBCData(ll_Statement, 2)
        mi_concurrency = ODBCData(ll_Statement, 3)
        txt_Language4 = ODBCData(ll_Statement, 4)
        txt_Language3 = ODBCData(ll_Statement, 5)
        Txt_Language5 = ODBCData(ll_Statement, 6)
        Txt_Language6 = ODBCData(ll_Statement, 7)
    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 Get_Int_Stract_Region_Info()

Dim ls_Req As String
Dim ll_Statement As Long
Dim li_Status As Integer

On Error GoTo suite

ls_Req = "EXEC Int_Stract_Region_t_sel '" & gs_TableCode & "', '" & gut_LangWork.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
        txt_Language = ODBCData(ll_Statement, 1)
        txt_Language2 = ODBCData(ll_Statement, 2)
        mi_concurrency = ODBCData(ll_Statement, 3)
        txt_Language4 = ODBCData(ll_Statement, 4)
    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 Get_Suppliers_Info()

Dim ls_Req As String
Dim ll_Statement As Long
Dim li_Status As Integer

On Error GoTo suite

ls_Req = "EXEC Suppliers_t_sel '" & gs_TableCode & "','" & gut_LangWork.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
        txt_Language4 = ODBCData(ll_Statement, 1)
        mi_concurrency = ODBCData(ll_Statement, 2)
    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 Form_Load()

MouseOff

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

spp_save.Picture = LoadResPicture(RES_OK, 1)
ssp_quit.Picture = LoadResPicture(RES_QUIT, 1)
pic_English.Picture = LoadResPicture(RES_ENGLISH, 1)

' select the type of field to translate
Select Case gi_TranslateType
Case 1
    txt_English.Visible = OK
    txt_Language.Visible = OK
    Frame1.Height = 1212
    Frame2.Height = 1212
    Frame2.top = 1320
    spp_save.top = 2640
    ssp_quit.top = 2640
    Height = 3756
    top = 1548
Case 2
    txt_English.Visible = OK
    txt_Language.Visible = OK
    txt_English2.Visible = OK
    txt_Language2.Visible = OK
    Frame1.Height = 1212
    Frame2.Height = 1212
    Frame2.top = 1320
    spp_save.top = 2640
    ssp_quit.top = 2640
    Height = 3756
    top = 1548
Case 3
    txt_English.Visible = OK
    txt_Language.Visible = OK
    txt_English2.Visible = OK
    txt_Language2.Visible = OK
    txt_English3.Visible = OK
    txt_Language3.Visible = OK
    Frame1.Height = 1212
    Frame2.Height = 1212
    Frame2.top = 1320
    spp_save.top = 2640
    ssp_quit.top = 2640
    Height = 3756
    top = 1548
Case 4
    txt_English.Visible = OK
    txt_Language.Visible = OK
    txt_English4.Visible = OK
    txt_Language4.Visible = OK
Case 5
    txt_English.Visible = OK
    txt_Language.Visible = OK
    txt_English2.Visible = OK
    txt_Language2.Visible = OK
    txt_English4.Visible = OK
    txt_Language4.Visible = OK
Case 6
    txt_English.Visible = OK
    txt_Language.Visible = OK
    txt_English2.Visible = OK
    txt_Language2.Visible = OK
    txt_English3.Visible = OK
    txt_Language3.Visible = OK
    txt_English4.Visible = OK
    txt_Language4.Visible = OK
Case 7
    txt_English4.Visible = OK
    txt_Language4.Visible = OK
Case 8
    txt_English.Visible = OK
    txt_Language.Visible = OK
    txt_English2.Visible = OK
    txt_Language2.Visible = OK
    txt_English3.Visible = OK
    txt_Language3.Visible = OK
    Txt_English5.Visible = OK
    Txt_Language5.Visible = OK
    Txt_English6.Visible = OK
    Txt_Language6.Visible = OK
    txt_English4.Visible = OK
    txt_Language4.Visible = OK
Case 9
    txt_English.Visible = True
    txt_Language.Visible = True
    txt_English3.Visible = True
    txt_Language3.Visible = True
    Me.Move Me.left, Me.top, 10000, 3756
    Frame1.Move Frame1.left, Frame1.top, 9700, 1212
    Frame2.Move Frame2.left, 1320, 9700, 1212
    txt_English3.Move txt_English3.left, txt_English3.top, 8500
    txt_Language3.Move txt_Language3.left, txt_Language3.top, 8500
    spp_save.Move 8300, 2640
    ssp_quit.Move 9000, 2640
End Select
pic_Language.Picture = LoadResPicture(gut_LangWork.Icon, 1)
Select Case gs_TableName
Case "RP_Product"
    ms_Req = "EXEC RP_Product_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
    Get_URL
Case "Base_Material"
    ms_Req = "EXEC Base_Material_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "BI_Marketing"
    ms_Req = "EXEC BI_Marketing_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Categories"
    ms_Req = "EXEC Categories_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Claim_Contact"
    ms_Req = "EXEC Claim_Contact_sel " & gs_TableCode
    Get_Claim_Contact_Info
Case "Claim_Coordinator"
    ms_Req = "EXEC Claim_Coordinator_sel " & gs_TableCode
    Get_Claim_Coordinator_Info
Case "Claim_Letter"
    ms_Req = "EXEC Claim_Letter_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 4
Case "Claim_Nature"
    ms_Req = "EXEC Claim_Nature_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Claim_Recommendation"
    ms_Req = "EXEC Claim_Recommendation_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Colours"
    ms_Req = "EXEC Colours_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 1
Case "Company_Activity"
    ms_Req = "EXEC Company_activity_translate_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Offer_Type"
    ms_Req = "EXEC Offer_Type_translate_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Offer_Internet"
    ms_Req = "EXEC Offer_Internet_translate_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 3
Case "Countries"
    ms_Req = "EXEC Countries_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Criteria_Choice"
    ms_Req = "EXEC Criteria_Choice_sel " & QuoteParam(gs_TableCode)
    C_main.Grid.Col = 2
Case "Criteria_List"
    ms_Req = "EXEC Criteria_List_sel " & QuoteParam(gs_TableCode)
    C_main.Grid.Col = 6
Case "Currencies"
    ms_Req = "EXEC Currencies_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 1
Case "Customer"
    ms_Req = "EXEC Customer_sel '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(gs_TableCode7) & "'"
    C_main.Grid.Col = 2
Case "Definition"
    ms_Req = "EXEC Media_Definition_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 1
Case "Dist_Centre"
    ms_Req = "EXEC Dist_Centre_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 3
    Get_Dist_Centre_Info
Case "Estimate_GridType"
    ms_Req = "EXEC Estimate_GridType_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Estimate_Length"
    ms_Req = "EXEC Estimate_Length_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Estimate_Slot"
    ms_Req = "EXEC Estimate_Slot_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Grid_Description"
    ms_Req = "EXEC Grid_Description_sel " & gs_TableCode
    C_main.Grid.Col = 2
Case "Grid_Manufacturer"
    ms_Req = "EXEC Grid_Manufacturer_sel " & gs_TableCode
    C_main.Grid.Col = 2
Case "Grid_Type"
    ms_Req = "EXEC Grid_Type_sel " & gs_TableCode
    C_main.Grid.Col = 2
Case "Hyper_Base_Material"
    ms_Req = "EXEC Hyper_Base_Material_sel " & QuoteParam(gs_TableCode)
    C_main.Grid.Col = 4
Case "Internet_Area"
    ms_Req = "EXEC Internet_Area_Translate_sel '" & QuoteParam(gs_TableCode) & "','E'"
    C_main.Grid.Col = 2
Case "Media_Interest"
    ms_Req = "EXEC Media_Interest_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 1
Case "Market_Objectives"
    ms_Req = "EXEC Media_Market_Objectives_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 1
Case "Market_Segmentation"
    ms_Req = "EXEC Market_Segmentation_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Geographic_Markets"
    ms_Req = "EXEC Geographic_Markets_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Sales_Markets"
    ms_Req = "EXEC Sales_Market_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Logistic_Markets"
    ms_Req = "EXEC Logistic_Markets_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Measurement_System"
    ms_Req = "EXEC Measurement_System_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Media_Type"
    ms_Req = "EXEC Media_Type_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 1
Case "Plants"
    ms_Req = "EXEC Plants_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
    Get_Plants_Info
Case "Possible_Area_Comb"
    ms_Req = "EXEC Possible_Area_Comb_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Priv_Labels"
    ms_Req = "EXEC Priv_Labels_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Products_Edges", "Products_Groups"
    ms_Req = "EXEC Products_Edges_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Products_Families"
    ms_Req = "EXEC Products_Families_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
    Get_Products_Families_Info
Case "Products_Patterns"
    ms_Req = "EXEC Products_Patterns_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Products_Segmentation"
    ms_Req = "EXEC Products_Segmentation_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Quot_MetalSystem"
    ms_Req = "EXEC Quot_MetalSystem_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Quot_MetalBorder"
    ms_Req = "EXEC Quot_MetalBorder_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Quot_MetalFinish"
    ms_Req = "EXEC Quot_MetalFinish_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Quot_MetalMaterial"
    ms_Req = "EXEC Quot_MetalMaterial_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Quot_MetalGasket"
    ms_Req = "EXEC Quot_MetalGasket_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Quot_MetalPerforation"
    ms_Req = "EXEC Quot_MetalPerforation_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Quot_MetalEdge"
    ms_Req = "EXEC Quot_MetalEdge_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Quot_MetalAcoustic"
    ms_Req = "EXEC Quot_MetalAcoustic_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Media_Quality_On_Screen"
    ms_Req = "EXEC Media_Quality_On_Screen_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 1
Case "Recommended_Area"
    ms_Req = "EXEC Recommended_Area_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Sales_Offices"
    ms_Req = "EXEC Sales_Office_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
    Get_Sales_Offices_Info
Case "Int_Stract_Region"
    ms_Req = "EXEC Int_Stract_Region_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
    Get_Int_Stract_Region_Info
Case "Sales_Reps"
    ms_Req = "EXEC Sales_Reps_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 5
Case "Sales_Reps_Assignement"
    ms_Req = "EXEC Sales_Reps_Assignement_sel '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(gs_TableCode3) & "'"
    C_main.Grid.Col = 6
Case "Shapes"
    ms_Req = "EXEC Shapes_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Form"
    ms_Req = "EXEC Form_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Perforation_Shape"
    ms_Req = "EXEC Perforation_Shape_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Perforation"
    ms_Req = "EXEC Perforation_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 11
    txt_Language2 = C_main.Grid.Text
    C_main.Grid.Col = 2
Case "Component_Type"
    ms_Req = "EXEC Component_Type_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Source_Type"
    ms_Req = "EXEC Media_Area_Type_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 1
Case "Super_Base_Material"
    ms_Req = "EXEC Super_Base_Material_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 4
Case "Super_Categories"
    ms_Req = "EXEC Super_Categories_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Suppliers"
    ms_Req = "EXEC Suppliers_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 3
    Get_Suppliers_Info
Case "Support"
    ms_Req = "EXEC Media_Source_Support_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 1
Case "Surfaces"
    ms_Req = "EXEC Surfaces_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Tech"
    ms_Req = "EXEC Tech_Value_t_sel " & gs_TableCode3 & ", 'E'"
    C_main.Grid.Col = 4
Case "Tech_Value_Option"
    ms_Req = "EXEC Tech_Value_Option_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Territories"
    ms_Req = "EXEC Territories_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 7
    mi_concurrency = C_main.Grid.Text
    C_main.Grid.Col = 2
    txt_Language4 = C_main.Grid.Text
    C_main.Grid.Col = 1
Case "Test_Category"
    ms_Req = "EXEC Test_Category_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Test_House"
    ms_Req = "EXEC Test_House_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Test_Market"
    ms_Req = "EXEC Test_Market_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 4
Case "Test_Typ_Option"
    ms_Req = "EXEC Test_Typ_Option_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Test_Dtl_Option"
    ms_Req = "EXEC Test_Dtl_Option_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 4
Case "Test_Typ_Condition"
    ms_Req = "EXEC Test_Typ_Condition_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Test_Dtl_Condition"
    ms_Req = "EXEC Test_Dtl_Condition_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 4
Case "Test_Dtl_Result"
    ms_Req = "EXEC Test_dtl_result_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 4
Case "Test_Standard"
    ms_Req = "EXEC Test_Standard_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 4
Case "Test_Type"
    ms_Req = "EXEC Test_Type_t_sel " & gs_TableCode3 & ", 'E'"
    C_main.Grid.Col = 4
Case "Type_Of_Memo"
    ms_Req = "EXEC Media_Type_Of_Memo_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 1
Case "Type_Of_View"
    ms_Req = "EXEC Media_Type_Of_View_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 1
Case "Unit_Of_Measure"
    ms_Req = "EXEC Unit_Of_Measure_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 2
Case "Value_Type"
    ms_Req = "EXEC Value_Type_sel " & QuoteParam(gs_TableCode)
    C_main.Grid.Col = 6
Case "Visible_On"
    ms_Req = "EXEC Media_Displays_sel '" & QuoteParam(gs_TableCode) & "'"
    C_main.Grid.Col = 1
Case "Quot_LoseReason"
    ms_Req = "EXEC Quot_LoseReason_sel " & QuoteParam(gs_TableCode)
    C_main.Grid.Col = 2
Case "DGrid_MainRunner"
    ms_Req = "EXEC DGrid_MainRunner_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "DGrid_CrossTee"
    ms_Req = "EXEC DGrid_CrossTee_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "DGrid_Interface"
    ms_Req = "EXEC DGrid_Interface_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "DGrid_Group"
    ms_Req = "EXEC DGrid_Group_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "Ceiling_InternetGroup"
    ms_Req = "EXEC Ceiling_InternetGroup_t_sel " & gs_TableCode & ", 'E'"
    C_main.Grid.Col = 2
Case "ProductsFamilies_Group"
    ms_Req = "EXEC ProductsFamilies_Group_t_sel '" & gs_TableCode & "','E'"
    C_main.Grid.Col = 5
Case "AccProductsFamilies_Group"
    ms_Req = "EXEC ProductsFamilies_Group_t_sel '" & gs_TableCode & "','E'"
    C_main.Grid.Col = 5
End Select
get_english
If gs_TableName <> "Claim_Contact" And gs_TableName <> "Claim_Coordinator" Then
    Select Case gs_TableName
    Case "Sales_Reps", "Sales_Reps_Assignement"
        txt_Language4 = C_main.Grid.Text
    Case Else
        txt_Language = C_main.Grid.Text
    End Select
End If
MouseOn

End Sub
Private Sub get_english()
'Purpose : fill in the english description field

Dim ll_Statement As Long
Dim li_Status As Integer

On Error GoTo suite

If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ms_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
        Select Case gi_TranslateType
        Case 1: txt_English = ODBCData(ll_Statement, 1)
        Case 2: txt_English = ODBCData(ll_Statement, 1)
                txt_English2 = ODBCData(ll_Statement, 2)
        Case 3: txt_English = ODBCData(ll_Statement, 1)
                txt_English = ODBCData(ll_Statement, 2)
                txt_English3 = ODBCData(ll_Statement, 3)
        Case 4: txt_English = ODBCData(ll_Statement, 1)
                txt_English4 = ODBCData(ll_Statement, 2)
        Case 5: txt_English = ODBCData(ll_Statement, 1)
                txt_English2 = ODBCData(ll_Statement, 2)
                txt_English4 = ODBCData(ll_Statement, 3)
        Case 6: txt_English = ODBCData(ll_Statement, 1)
                txt_English2 = ODBCData(ll_Statement, 2)
                txt_English3 = ODBCData(ll_Statement, 3)
                txt_English4 = ODBCData(ll_Statement, 4)
        Case 7: txt_English4 = ODBCData(ll_Statement, 1)
        Case 8: txt_English = ODBCData(ll_Statement, 1)
                txt_English2 = ODBCData(ll_Statement, 2)
                txt_English3 = ODBCData(ll_Statement, 3)
                Txt_English5 = ODBCData(ll_Statement, 4)
                Txt_English6 = ODBCData(ll_Statement, 5)
                txt_English4 = ODBCData(ll_Statement, 6)
        Case 9: txt_English = ODBCData(ll_Statement, 1)
                txt_English3 = ODBCData(ll_Statement, 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 spp_save_Click()

Dim ls_Req As String
Dim ll_Statement As Long
Dim li_Status As Integer
Dim ll_lngrows As Long
Dim ls_Desc As String
Dim ls_Desc4 As String
Dim ls_Desc3 As String
Dim li_Count As Integer
Dim ls_SvgArray(14) As String
Dim ls_Line As String

Dim ls_internetname As String 'used in the case of products families

On Error GoTo suite

MouseOff

gb_Return = OK
ls_Desc = txt_Language
If ls_Desc = "" And txt_English.Text <> "" Then ls_Desc = "#" & txt_English
ls_Desc4 = txt_Language4
If ls_Desc4 = "" And txt_English4.Text <> "" Then ls_Desc4 = "#" & txt_English4
ls_Desc3 = txt_Language3
If ls_Desc3 = "" And txt_English3.Text <> "" Then ls_Desc3 = "#" & txt_English3

Select Case gs_TableName
Case "RP_Product"
    ls_Req = "EXEC RP_Product_t_upd " & gs_TableCode & ",'" & QuoteParam(ls_Desc) & "','" & QuoteParam(ls_Desc3) & " ','" & gut_LangWork.Code & "'"
Case "Base_Material"
    ls_Req = "EXEC Base_Material_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "BI_Marketing"
    ls_Req = "EXEC BI_Marketing_t_upd '" & QuoteParam(gs_TableCode) & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Categories"
    ls_Req = "EXEC Categories_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Claim_Contact"
    ls_Req = "EXEC Claim_Contact_t_upd " & gs_TableCode & ", '" _
        & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc4) & "', " & mi_concurrency
Case "Claim_Coordinator"
    ls_Req = "EXEC Claim_Coordinator_t_upd " & gs_TableCode & ", '" _
        & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc4) & "', " & mi_concurrency
Case "Claim_Letter"
    ls_Req = "EXEC Claim_Letter_t_upd " & gs_TableCode & ", '" _
        & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "', " & gs_TableCode2
Case "Claim_Nature"
    ls_Req = "EXEC Claim_Nature_t_upd " & gs_TableCode & ", '" _
        & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "', " & gs_TableCode2
Case "Claim_Recommendation"
    ls_Req = "EXEC Claim_Recommendation_t_upd " & gs_TableCode & ", '" _
        & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "', " & gs_TableCode2
Case "Colours"
    ls_Req = "EXEC Colours_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode8 & " ,'" & gut_LangWork.Code & "'"
Case "Company_Activity"
    ls_Req = "EXEC Company_Activity_Translate_upd " & gs_TableCode & ",'" & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "Offer_Type"
    ls_Req = "EXEC Offer_Type_Translate_upd " & gs_TableCode & ",'" & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "Offer_Internet"
    ls_Req = "EXEC Offer_Internet_Translate_upd " & gs_TableCode & ",'" & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode3
Case "Criteria_Choice"
    ls_Req = "EXEC Criteria_Choice_t_upd " & QuoteParam(gs_TableCode) & ",'" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Criteria_List"
    ls_Req = "EXEC Criteria_List_t_upd " & QuoteParam(gs_TableCode) & ",'" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Countries"
    ls_Req = "EXEC Countries_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Currencies"
    ls_Req = "EXEC Currencies_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode3 & " ,'" & gut_LangWork.Code & "'"
Case "Customer"
    ls_Req = "EXEC Customer_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(gs_TableCode7) & "','" & QuoteParam(ls_Desc) & "','" & gut_LangWork.Code & "'"
Case "Definition"
    ls_Req = "EXEC Media_Definition_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode3 & " ,'" & gut_LangWork.Code & "'"
Case "Dist_Centre"
    ls_Req = "EXEC Dist_Centre_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "','" & QuoteParam(ls_Desc4) & "'," & mi_concurrency & " ,'" & gut_LangWork.Code & "'"
Case "Estimate_GridType"
    ls_Req = "EXEC Estimate_GridType_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Estimate_Length"
    ls_Req = "EXEC Estimate_Length_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Estimate_Slot"
    ls_Req = "EXEC Estimate_Slot_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Internet_Area"
    ls_Req = "EXEC Internet_Area_translate_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Market_Objectives"
    ls_Req = "EXEC Media_Market_Objectives_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode3 & " ,'" & gut_LangWork.Code & "'"
Case "Geographic_Markets"
    ls_Req = "EXEC Geographic_Markets_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Grid_Description"
    ls_Req = "EXEC Grid_Description_t_upd " & gs_TableCode & ",'" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Grid_Manufacturer"
    ls_Req = "EXEC Grid_Manufacturer_t_upd " & gs_TableCode & ",'" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Grid_Type"
    ls_Req = "EXEC Grid_Type_t_upd " & gs_TableCode & ",'" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Hyper_Base_Material"
    ls_Req = "EXEC Hyper_Base_Material_t_upd " & QuoteParam(gs_TableCode) & ",'" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Logistic_Markets"
    ls_Req = "EXEC Logistic_Markets_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Media_Interest"
    ls_Req = "EXEC Media_interest_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode3 & " ,'" & gut_LangWork.Code & "'"
Case "Sales_Markets"
    ls_Req = "EXEC Sales_Market_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Market_Segmentation"
    ls_Req = "EXEC Market_Segmentation_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Measurement_System"
    ls_Req = "EXEC Measurement_System_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Media_Type"
    ls_Req = "EXEC Media_Type_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode3 & " ,'" & gut_LangWork.Code & "'"
Case "Plants"
    ls_Req = "EXEC Plants_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "','" & QuoteParam(ls_Desc4) & "'," & mi_concurrency & " ,'" & gut_LangWork.Code & "'"
Case "Possible_Area_Comb"
    ls_Req = "EXEC Possible_Area_Comb_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Priv_Labels"
    ls_Req = "EXEC Priv_Labels_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Products_Edges", "Products_Groups"
    ls_Req = "EXEC Products_Edges_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Products_Families"
    If gs_MenuChoice = "Grids" Then
        ls_internetname = "NULL"
    Else
        ls_internetname = "'" & QuoteParam(txt_Language2) & "'"
    End If
    ls_Req = "EXEC Products_Families_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'," & ls_internetname
Case "Products_Patterns"
    ls_Req = "EXEC Products_Patterns_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Products_Segmentation"
    ls_Req = "EXEC Products_Segmentation_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Media_Quality_On_Screen"
    ls_Req = "EXEC Media_Quality_On_Screen_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode3 & " ,'" & gut_LangWork.Code & "'"
Case "Quot_MetalSystem"
    ls_Req = "EXEC Quot_MetalSystem_t_upd " & gs_TableCode & ", '" _
        & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "', " & gs_TableCode2
Case "Quot_MetalBorder"
    ls_Req = "EXEC Quot_MetalBorder_t_upd " & gs_TableCode & ", '" _
        & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "', " & gs_TableCode2
Case "Quot_MetalFinish"
    ls_Req = "EXEC Quot_MetalFinish_t_upd " & gs_TableCode & ", '" _
        & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "', " & gs_TableCode2
Case "Quot_MetalMaterial"
    ls_Req = "EXEC Quot_MetalMaterial_t_upd " & gs_TableCode & ", '" _
        & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "', " & gs_TableCode2
Case "Quot_MetalGasket"
    ls_Req = "EXEC Quot_MetalGasket_t_upd " & gs_TableCode & ", '" _
        & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "', " & gs_TableCode2
Case "Quot_MetalPerforation"
    ls_Req = "EXEC Quot_MetalPerforation_t_upd " & gs_TableCode & ", '" _
        & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "', " & gs_TableCode2
Case "Quot_MetalEdge"
    ls_Req = "EXEC Quot_MetalEdge_t_upd " & gs_TableCode & ", '" _
        & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "', " & gs_TableCode2
Case "Quot_MetalAcoustic"
    ls_Req = "EXEC Quot_MetalAcoustic_t_upd " & gs_TableCode & ", '" _
        & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "', " & gs_TableCode2
Case "Recommended_Area"
    ls_Req = "EXEC Recommended_Area_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Sales_Offices"
    ls_Req = "EXEC Sales_Office_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "','" & QuoteParam(txt_Language2) & "','" & QuoteParam(txt_Language3) & "','" & QuoteParam(Txt_Language5) & "','" & QuoteParam(Txt_Language6) & "','" & QuoteParam(ls_Desc4) & "'," & mi_concurrency & " ,'" & gut_LangWork.Code & "'"
Case "Int_Stract_Region"
    ls_Req = "EXEC Int_Stract_Region_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "','" & QuoteParam(txt_Language2) & "','" & QuoteParam(ls_Desc4) & "'," & mi_concurrency & " ,'" & gut_LangWork.Code & "'"
Case "Sales_Reps"
    ls_Req = "EXEC Sales_Reps_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc4) & "'," & gs_TableCode7 & " ,'" & gut_LangWork.Code & "'"
Case "Sales_Reps_Assignement"
    ls_Req = "EXEC Sales_Reps_Assignement_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(gs_TableCode3) & "','" & QuoteParam(ls_Desc4) & "'," & gs_TableCode8 & " ,'" & gut_LangWork.Code & "'"
Case "Shapes"
    ls_Req = "EXEC Shapes_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Form"
    ls_req = "EXEC Form_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Perforation_Shape"
    ls_req = "EXEC Perforation_Shape_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Perforation"
    ls_req = "EXEC Perforation_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "','" & QuoteParam(txt_Language2) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Component_Type"
    ls_req = "EXEC Component_Type_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Source_Type"
    ls_Req = "EXEC Media_Area_Type_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode3 & " ,'" & gut_LangWork.Code & "'"
Case "Super_Base_Material"
    ls_Req = "EXEC Super_Base_Material_t_upd '" & QuoteParam(gs_TableCode) & "','" & gut_LangWork.Code & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " "
Case "Super_Categories"
    ls_Req = "EXEC Super_Categories_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Suppliers"
    ls_Req = "EXEC Suppliers_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "','" & QuoteParam(ls_Desc4) & "'," & mi_concurrency & " ,'" & gut_LangWork.Code & "'"
Case "Support"
    ls_Req = "EXEC Media_Source_Support_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode3 & " ,'" & gut_LangWork.Code & "'"
Case "Surfaces"
    ls_Req = "EXEC Surfaces_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Tech"
    ls_Req = "EXEC Tech_Value_t_upd " & gs_TableCode3 & ",'" & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode4
Case "Tech_Value_Option"
    ls_Req = "EXEC Tech_Value_Option_t_upd " & gs_TableCode & ",'" & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "Territories"
    ls_Req = "EXEC Territories_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "','" & QuoteParam(ls_Desc4) & "'," & mi_concurrency & " ,'" & gut_LangWork.Code & "'"
Case "Test_Category"
    ls_Req = "EXEC Test_Category_t_upd " & gs_TableCode & ",'" & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "Test_House"
    ls_Req = "EXEC Test_House_t_upd " & gs_TableCode & ",'" & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "Test_Market"
    ls_Req = "EXEC Test_Market_t_upd " & gs_TableCode & ",'" & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "Test_Standard"
    ls_Req = "EXEC Test_Standard_t_upd " & gs_TableCode & ",'" & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode4
Case "Test_Type"
    ls_Req = "EXEC Test_Type_t_upd " & gs_TableCode3 & ",'" & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode4
Case "Test_Typ_Option"
    ls_Req = "EXEC Test_Typ_Option_t_upd " & gs_TableCode & ",'" & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "Test_Dtl_Option"
    ls_Req = "EXEC Test_Dtl_Option_t_upd " & gs_TableCode & ",'" & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "Test_Typ_Condition"
    ls_Req = "EXEC Test_Typ_Condition_t_upd " & gs_TableCode & ",'" & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "Test_Dtl_Condition"
    ls_Req = "EXEC Test_Dtl_Condition_t_upd " & gs_TableCode & ",'" & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "Test_Dtl_Result"
    ls_Req = "EXEC Test_Dtl_Result_t_upd " & gs_TableCode & ",'" & gut_LangWork.Code & "', '" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "Type_Of_Memo"
    ls_Req = "EXEC Media_Type_Of_Memo_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode3 & " ,'" & gut_LangWork.Code & "'"
Case "Type_Of_View"
    ls_Req = "EXEC Media_Type_Of_View_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode3 & " ,'" & gut_LangWork.Code & "'"
Case "Unit_Of_Measure"
    ls_Req = "EXEC Unit_Of_Measure_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Value_Type"
    ls_Req = "EXEC Value_Type_t_upd " & QuoteParam(gs_TableCode) & ",'" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "Visible_On"
    ls_Req = "EXEC Media_Displays_t_upd '" & QuoteParam(gs_TableCode) & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode3 & " ,'" & gut_LangWork.Code & "'"
Case "Quot_LoseReason"
    ls_Req = "EXEC Quot_LoseReason_t_upd " & QuoteParam(gs_TableCode) & ", '" & QuoteParam(ls_Desc) & "'," & gs_TableCode2 & " ,'" & gut_LangWork.Code & "'"
Case "DGrid_MainRunner"
    ls_Req = "EXEC DGrid_MainRunner_t_upd '" & QuoteParam(gs_TableCode) & "','" & gut_LangWork.Code & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "DGrid_CrossTee"
    ls_Req = "EXEC DGrid_CrossTee_t_upd '" & QuoteParam(gs_TableCode) & "','" & gut_LangWork.Code & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "DGrid_Interface"
    ls_Req = "EXEC DGrid_Interface_t_upd '" & QuoteParam(gs_TableCode) & "','" & gut_LangWork.Code & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "DGrid_Group"
    ls_Req = "EXEC DGrid_Group_t_upd '" & QuoteParam(gs_TableCode) & "','" & gut_LangWork.Code & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "Ceiling_InternetGroup"
    ls_Req = "EXEC Ceiling_InternetGroup_t_upd '" & QuoteParam(gs_TableCode) & "','" & gut_LangWork.Code & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode2
Case "ProductsFamilies_Group", "AccProductsFamilies_Group"
    ls_Req = "EXEC ProductsFamilies_Group_t_upd '" & QuoteParam(gs_TableCode) & "','" & gut_LangWork.Code & "','" & QuoteParam(ls_Desc) & "'," & gs_TableCode4
End Select
If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_Req) Then
    li_Status = SQLRowCount(ll_Statement, ll_lngrows)
    li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
    If ll_lngrows = 0 Then
        SendMessage 2, "Another user change the record", gut_LangLogin.Code
        C_main.FillGrid
    Else
        Select Case gs_TableName
        Case "RP_Product"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & ls_Desc & Chr(9) & ls_Desc3 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7
        Case "Categories"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7 & Chr(9) & gs_TableCode8 & Chr(9) & gs_TableCode9
        Case "Claim_Contact"
            ls_Line = gs_TableCode & Chr(9) & gs_TableCode2 & Chr(9) & gs_TableCode3 & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7
        Case "Claim_Coordinator"
            ls_Line = gs_TableCode & Chr(9) & gs_TableCode2 & Chr(9) & gs_TableCode3 & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6
        Case "Claim_Letter"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & gs_TableCode3 & Chr(9) & gs_TableCode4 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7
        Case "Colours"
            ls_Line = gs_TableCode & Chr(9) & ls_Desc & Chr(9) & gs_TableCode3 & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7 & Chr(9) & CInt(gs_TableCode8) + 1 & Chr(9) & gs_TableCode9 & Chr(9) & gs_TableCode10
        Case "Countries"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7 & Chr(9) & gs_TableCode8 & Chr(9) & gs_TableCode9
        Case "Criteria_Choice", "Grid_Description", "Grid_Manufacturer", "Grid_Type"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5
        Case "Criteria_List"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & gs_TableCode3 & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode8 & Chr(9) & gs_TableCode9
        Case "Currencies"
            ls_Line = gs_TableCode & Chr(9) & ls_Desc & Chr(9) & CInt(gs_TableCode3) + 1
        Case "Customer"
            ls_Line = gs_TableCode & Chr(9) & gs_TableCode2 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7
        Case "Dist_Centre"
            ls_Line = gs_TableCode & Chr(9) & gs_TableCode2 & Chr(9) & gs_TableCode3 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7
        Case "Internet_Area"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7
        Case "Geographic_Markets", "Logistic_Markets", "Sales_Markets"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7
        Case "Hyper_Base_Material"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & gs_TableCode3 & Chr(9) & gs_TableCode4 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7
        Case "Offer_Internet"
            ls_Line = gs_TableCode & Chr(9) & gs_TableCode2 & Chr(9) & (CInt(gs_TableCode3) + 1) & Chr(9) & ls_Desc & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7
        Case "Plants"
            ls_Line = gs_TableCode & Chr(9) & gs_TableCode2 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7 & Chr(9) & gs_TableCode8
        Case "Possible_Area_Comb"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & ls_Desc
        Case "Media_Quality_On_Screen", "Market_Objectives", "Support", "Media_Interest", "Source_Type", "Currencies", "Type_Of_Memo", "Type_Of_View", "Visible_On", "Media_Type", "Definition"
            ls_Line = gs_TableCode & Chr(9) & txt_Language & Chr(9) & CInt(gs_TableCode3) + 1
        Case "Sales_Offices"
            ls_Line = gs_TableCode & Chr(9) & gs_TableCode2 & Chr(9) & ls_Desc & Chr(9) & txt_Language2 & Chr(9) & gs_TableCode5 & Chr(9) & txt_Language3 & Chr(9) & gs_TableCode7
        Case "Int_Stract_Region"
            ls_Line = gs_TableCode & Chr(9) & gs_TableCode2 & Chr(9) & ls_Desc & Chr(9) & txt_Language2 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7
        Case "Sales_Reps"
            ls_Line = gs_TableCode & Chr(9) & gs_TableCode2 & Chr(9) & gs_TableCode3 & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & ls_Desc4 & Chr(9) & CInt(gs_TableCode7) + 1 & Chr(9) & gs_TableCode8 & Chr(9) & gs_TableCode9
        Case "Sales_Reps_Assignement"
            ls_Line = gs_TableCode & Chr(9) & gs_TableCode2 & Chr(9) & gs_TableCode3 & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & ls_Desc4 & Chr(9) & CInt(gs_TableCode8) + 1 & Chr(9) & gs_TableCode9 & Chr(9) & gs_TableCode10
        Case "Suppliers"
            ls_Line = gs_TableCode & Chr(9) & gs_TableCode2 & Chr(9) & gs_TableCode3 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7 & Chr(9) & gs_TableCode8
        Case "Super_Base_Material"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & gs_TableCode3 & Chr(9) & gs_TableCode4 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7
        Case "Tech"
            ls_Line = gs_TableCode & Chr(9) & gs_TableCode2 & Chr(9) & gs_TableCode3 & Chr(9) & CInt(gs_TableCode4) + 1 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7
        Case "Territories"
            ls_Line = gs_TableCode & Chr(9) & ls_Desc & Chr(9) & ls_Desc4 & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7 & Chr(9) & CInt(gs_TableCode8) + 1
        Case "Test_Standard"
            ls_Line = gs_TableCode & Chr(9) & gs_TableCode2 & Chr(9) & gs_TableCode3 & Chr(9) & CInt(gs_TableCode4) + 1 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7
        Case "Test_Market"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & gs_TableCode3 & Chr(9) & gs_TableCode4 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7
        Case "Test_Type"
            ls_Line = gs_TableCode & Chr(9) & gs_TableCode2 & Chr(9) & gs_TableCode3 & Chr(9) & CInt(gs_TableCode4) + 1 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7
        Case "Test_Typ_Option"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5
        Case "Test_Dtl_Option"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & gs_TableCode3 & Chr(9) & gs_TableCode4 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7 & Chr(9) & gs_TableCode8
        Case "Test_Typ_Condition"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5
        Case "Test_Dtl_Condition"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & gs_TableCode3 & Chr(9) & gs_TableCode4 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7 & Chr(9) & gs_TableCode8
        Case "Value_Type"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & gs_TableCode3 & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode8 & Chr(9) & gs_TableCode9
        Case "ProductsFamilies_Group", "AccProductsFamilies_Group"
            ls_Line = gs_TableCode & Chr(9) _
                    & gs_TableCode2 & Chr(9) _
                    & gs_TableCode3 & Chr(9) _
                    & CInt(gs_TableCode4) + 1 & Chr(9) _
                    & gs_TableCode5 & Chr(9) _
                    & gs_TableCode6 & Chr(9) _
                    & ls_Desc & Chr(9) _
                    & gs_TableCode8 & Chr(9) _
                    & gs_TableCode9 & Chr(9) _
                    & gs_TableCode10
        Case "Perforation"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6 & Chr(9) & gs_TableCode7 & Chr(9) & gs_TableCode8 & Chr(9) & gs_TableCode9 & Chr(9) & gs_TableCode10 & Chr(9) & gs_TableCode11 & Chr(9) & txt_Language2.Text
        Case "Component_Type", "Perforation_Shape", "Form"
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5 & Chr(9) & gs_TableCode6
        Case Else
            ls_Line = gs_TableCode & Chr(9) & CInt(gs_TableCode2) + 1 & Chr(9) & ls_Desc & Chr(9) & gs_TableCode4 & Chr(9) & gs_TableCode5
        End Select
        C_main.Grid.RemoveItem C_main.Grid.Row
        C_main.Grid.AddItem ls_Line, C_main.Grid.Row
    End If
Else
    li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
    SendMessage 3, "Update failed", gut_LangLogin.Code
End If
Unload Me
Exit Sub

suite:
Select Case Err
Case 30015
    C_main.FillGrid
    Unload Me
Case Else
    li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
    StdError
End Select
End Sub
Private Sub ssp_quit_Click()

MouseOff
Unload Me

End Sub
Private Sub Get_URL()

Dim ls_Req As String
Dim ll_Statement As Long
Dim li_Status As Integer

On Error GoTo suite

ls_Req = "EXEC RP_Product_t_sel " & gs_TableCode & ",'" & gut_LangWork.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
        txt_Language3 = ODBCData(ll_Statement, 1)
    End If
Loop
li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
Exit Sub

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

