Display

Public MyTagGroup As TagGroup

Private Declare Sub SetCursorArrow Lib "C:\projects\FtvSeCrsr.dll" ()
Private Declare Sub SetCursorWait Lib "C:\projects\FtvSeCrsr.dll" ()

Private Type MoveProduct
    cnSrc As ADODB.Connection
    cnDst As ADODB.Connection
    strTable As String
    strId As String
    iGrade As Integer
    iRough As Integer
End Type

Private Type HMITag
    cnSrc As ADODB.Connection
    RcpID As String
End Type

Private Type FlexgridData
    RcpID As String
    Grade As String
    Rough As String
    Finish As String
    Dsc As String
End Type

Public clLtDb As New Scripting.Dictionary
Public strTable As String
Public clType As New Scripting.Dictionary
Public strSql As String
Public strCdn As String

Public Function Contains(ByRef cl As Collection, ByRef strKey As String)
    Contains = 0
End Function

Public Sub ClearCbLtDb()
    clLtDb.Clear
End Sub
Public Function AddCbLt(ByRef strKey As String)
    If clLtDb.Exists(strKey) Then
        AddCbLt = -1
    End If

    Dim clLt As New Scripting.Dictionary
    Dim clVal As New Scripting.Dictionary
    Dim clDsc As New Scripting.Dictionary

    clLt.Add "val", clVal
    clLt.Add "dsc", clDsc
    clLtDb.Add strKey, clLt

    AddCbLt = 0
End Function

Public Function AddLtEntry(ByRef strKey As String, ByRef strVal As String, ByRef strDsc As String)
    Dim clLt As Scripting.Dictionary
    Dim clVal As Scripting.Dictionary
    Dim clDsc As Scripting.Dictionary

    If (clLtDb.Exists(strKey) = False) Then
        AddLtEntry = 1
        Exit Function
    End If

    Set clLt = clLtDb(strKey)
    Set clVal = clLt("val")
    Set clDsc = clLt("dsc")

    If (clVal.Exists(strDsc)) Then
        AddLtEntry = -2
        Exit Function
    End If

    clVal.Add strDsc, strVal
    clDsc.Add strVal, strDsc

    AddLtEntry = 0
End Function

Public Function GetLtDsc(ByRef strKey As String, ByRef objVal, ByRef strDsc As String)
    Dim iVal As Integer
    Dim strVal As String
    Dim clLt As Scripting.Dictionary
    Dim clDsc As Scripting.Dictionary

    strDsc = ""
    If (clLtDb.Exists(strKey) = False) Then
        GetLtDsc = -1
        Exit Function
    End If

    Set clLt = clLtDb(strKey)
    Set clDsc = clLt("dsc")

    strVal = TypeName(objVal)
    If (TypeName(objVal) = "Long") Then
        iVal = objVal

        If (clDsc.Count < iVal) Then
            GetLtDsc = -2
            Exit Function
        End If

        strDsc = clDsc(iVal)
    ElseIf (TypeName(objVal) = "String") Then
        strVal = objVal

        If (clDsc.Exists(strVal) = False) Then
            GetLtDsc = -2
            Exit Function
        End If

        strDsc = clDsc(strVal)
    Else
        GetLtDsc = -3
        Exit Function
    End If

    GetLtDsc = 0
End Function

Public Function GetLtVal(ByRef strKey As String, ByRef objDsc, ByRef strVal As String)
    Dim iDsc As Integer
    Dim strDsc As String
    Dim clLt As Scripting.Dictionary
    Dim clVal As Scripting.Dictionary

    strVal = ""
    If (clLtDb.Exists(strKey) = False) Then
        GetLtVal = -1
        Exit Function
    End If

    Set clLt = clLtDb(strKey)
    Set clVal = clLt("val")

    If (TypeName(objDsc) = "Integer") Then
        iDsc = objDsc

        If (clVal.Count < iDsc) Then
            GetLtVal = -2
            Exit Function
        End If

        strVal = clVal(iDsc)
    ElseIf (TypeName(objDsc) = "String") Then
        strDsc = objDsc

        If (clVal.Exists(strDsc) = False) Then
            GetLtVal = -2
            Exit Function
        End If

        strVal = clVal(strDsc)
    Else
        GetLtVal = -3
        Exit Function
    End If

    GetLtVal = strVal
End Function
Public Function GetLtLen(ByRef strKey As String) As Integer
    Dim clLt As Scripting.Dictionary
    Dim clVal As Scripting.Dictionary

    If (clLtDb.Exists(strKey) = False) Then
        GetLtLen = -1
        Exit Function
    End If

    Set clLt = clLtDb(strKey)
    Set clVal = clLt("val")
    GetLtLen = clVal.Count

End Function
Private Sub BtnSaveOLD_Inducto_A_Released()

  Set MyTagGroup = Application.CreateTagGroup(Me.AreaName)
  MyTagGroup.Add "{RCP\Select\Inducto_A_LifeTime}"
  Dim Inducto_A_LifeTime As Tag


'Check to see if tag group was succesfully created on display start
   If MyTagGroup Is Nothing Then
'        WriteSystemLog ftDiagAudienceOperator, ftDiagSeverityError, Me.Name, Me.ActiveElement.Name, "Tag Group Not Created on Display Start", Err.Number, Err.Description
        Exit Sub
   End If

    Set Inducto_A_LifeTime = MyTagGroup.Item("{RCP\Select\Inducto_A_LifeTime}")
    Inducto_A_LifeTime.Value = 100

     For i = 0 To 50000000
    i = i + 1
    Next

     For i = 0 To 50000000
    i = i + 1
    Next

    Inducto_A_LifeTime.Value = 0
    Set Inducto_A_LifeTime = Nothing


End Sub

Private Sub BtnDnldAll_Released()
Dim Source As String
Dim Destination As String
Source = "Tag"
Destination = "PLC"

    ' Calls function that will copy the selected row into plc tags
    InductoATagsModule.TransferInductoA Destination, Source
    InductoBTagsModule.TransferInductoB Destination, Source
    K2SetupTagModule.TransferK2Setup Destination, Source
    KocksSetupTagModule.TransferKocksSetup Destination, Source
    QSetupTagModule.TransferQSetup Destination, Source

End Sub


Private Sub BtnDnldIndB_Released()

End Sub

Private Sub BtnDnldInductoA_Released()
    Dim Source As String
    Dim Destination As String
    Source = "Tag"
    Destination = "PLC"

    'Calls function that will copy the selected row into plc tags
    InductoATagsModule.TransferInductoA Destination, Source

End Sub

Private Sub BtnDnldInductoB_Released()
    Dim Source As String
    Dim Destination As String
    Source = "Tag"
    Destination = "PLC"

    ' Calls function that will copy the selected row into plc tags
    InductoBTagsModule.TransferInductoB Destination, Source

End Sub

Private Sub BtnDnldK2_Released()
    Dim Source As String
    Dim Destination As String
    Source = "Tag"
    Destination = "PLC"

    ' Calls function that will copy the selected row into plc tags
    K2SetupTagModule.TransferK2Setup Destination, Source

End Sub

Private Sub BtnDnldKocks_Released()
    Dim Source As String
    Dim Destination As String
    Source = "Tag"
    Destination = "PLC"
    Dim AllTags As KocksSetupGroup

    ' Calls function that will copy the selected row into plc tags
    KocksSetupTagModule.TransferKocksSetup Destination, Source

End Sub

Private Sub BtnDnldQ_Released()
    Dim Source As String
    Dim Destination As String
    Source = "Tag"
    Destination = "PLC"

    ' Calls function that will copy the selected row to download into plc tags
    QSetupTagModule.TransferQSetup Destination, Source

End Sub

Private Sub BtnSave_Inducto_A1_Released()

End Sub


Private Sub BtnSelect_Released()

    Dim strVal As String
    Dim htag As HMITag
    Dim cnSrc As New ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim rs As ADODB.Recordset
    Dim str As String

    ' Get the Result from the Selected Row in the Flexgrid
    iRow = flxResult.RowSel
    If (iRow < 1) Then
        Exit Sub
    End If

    ' Saves the row clicked on by user and stores it so we can query all tables in the database with the selected row
    htag.RcpID = flxResult.TextMatrix(iRow, 1)

    cnSrc.Open ("DSN=DSN_Perryman")
    Set htag.cnSrc = cnSrc

    ' Creates all the tags corresponding to the selected row
    InductoB_Tag htag
    InductoA_Tag htag
    KocksSetup_Tag htag
    K2Setup_Tag htag
    QSetup_Tag htag

    cnSrc.Close

End Sub

Private Sub BtnUpldAll_Released()
    Dim Source As String
    Dim Destination As String
    Source = "PLC"
    Destination = "Tag"

    ' Calls function that will copy the selected row into plc tags
     InductoATagsModule.TransferInductoA Destination, Source
     InductoBTagsModule.TransferInductoB Destination, Source
     K2SetupTagModule.TransferK2Setup Destination, Source
     KocksSetupTagModule.TransferKocksSetup Destination, Source
     QSetupTagModule.TransferQSetup Destination, Source

End Sub

Private Sub BtnUpldIndB_Released()
    Dim Source As String
    Dim Destination As String
    Source = "PLC"
    Destination = "Tag"

    'Upload plc tags into hmi tags
    InductoBTagsModule.TransferInductoB Destination, Source

End Sub

Private Sub BtnUpldK2_Released()
    Dim Source As String
    Dim Destination As String
    Source = "PLC"
    Destination = "Tag"

    K2SetupTagModule.TransferK2Setup Destination, Source

End Sub

Private Sub BtnUpldKocks_Released()
    Dim Source As String
    Dim Destination As String
    Source = "PLC"
    Destination = "Tag"

    KocksSetupTagModule.TransferKocksSetup Destination, Source

End Sub

Private Sub BtnSelect_Released_Released()

    Dim strVal As String
    Dim htag As HMITag
    Dim cnSrc As New ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim rs As ADODB.Recordset
    Dim str As String

    'Get the Result from the Selected Row in the Flexgrid
    iRow = flxResult.RowSel
    If (iRow < 1) Then
        Exit Sub
    End If

    ' Saves the row clicked on by user and stores it so we can query all tables in the database with the selected row
    htag.RcpID = flxResult.TextMatrix(iRow, 1)

    cnSrc.Open ("DSN=DSN_Perryman")
    Set htag.cnSrc = cnSrc

    'Creates all the tags corresponding to the selected row
    InductoB_Tag htag
    InductoA_Tag htag
    KocksSetup_Tag htag
    K2Setup_Tag htag
    QSetup_Tag htag

    cnSrc.Close

End Sub

Private Sub BtnUpldQ_Released()
    Dim Source As String
    Dim Destination As String
    Source = "PLC"
    Destination = "Tag"

    QSetupTagModule.TransferQSetup Destination, Source

End Sub

Private Sub BtnDelete_Released()

End Sub



Private Sub Save_Released()
Dim cnSrc As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rsSrc As New ADODB.Recordset
Dim Tag As MasterTags
Dim RcpIDInfo As String
Dim strSql As String
Dim PopUpTag As PopUpTags
On Error GoTo ErrHandler

    Tag = TGroup.LoadMasterTags
    PopUpTag = PopUpTagModule.LoadPopUpTags

    cnSrc.Open ("DSN=DSN_Perryman")
    cmd.ActiveConnection = cnSrc
    cmd.CommandText = "SELECT * FROM dbo.Master WHERE [RcpID]= '" & Tag.RcpID.Value & "'"
    rsSrc.Open cmd.CommandText, cnSrc

    ' Case where the record does not exist, insert
    If (rsSrc.BOF And rsSrc.EOF) Then

        rsSrc.Close

        'Inserting into Master table
        SaveModule.InsertMaster Tag.RcpID.Value, cnSrc
        PopUpTag.PopUp_MasterComplete.Value = 1
        'Inserting into Inducto_A table
        SaveModule.InductoAInsert Tag.RcpID.Value, cnSrc
        PopUpTag.PopUp_IndAComplete.Value = 1
        'Inserting into Inducto_B table
        SaveModule.InductoBInsert Tag.RcpID.Value, cnSrc
        PopUpTag.PopUp_IndBComplete.Value = 1
        'Inserting into K2_Setup table
        SaveModule.K2SetupInsert Tag.RcpID.Value, cnSrc
        PopUpTag.PopUp_K2Complete.Value = 1
        'Inserting into Kocks_Setup table
        SaveModule.KocksSetupInsert Tag.RcpID.Value, cnSrc
        PopUpTag.PopUp_KComplete.Value = 1
        'Inserting into Q_Prod Table
        SaveModule.QProdInsert Tag.RcpID.Value, cnSrc
        PopUpTag.PopUp_QProdComplete.Value = 1
        'Inserting into Q_Setup Table
        SaveModule.QSetupInsert Tag.RcpID.Value, cnSrc
        PopUpTag.PopUp_QComplete.Value = 1

        PopUpTag.PopUp_SaveRcpSaved.Value = 1

    ' Case where record exists, update
    Else
        rsSrc.Close

        'Updating Master table
        SaveModule.MasterUpdate Tag.RcpID.Value, cnSrc
        PopUpTag.PopUp_MasterComplete.Value = 1
        'Updating Inducto_A table
        SaveModule.UpdateInductoA Tag.RcpID.Value, cnSrc
        PopUpTag.PopUp_IndAComplete.Value = 1
        'Upating Inducto_B table
        SaveModule.UpdateInductoB Tag.RcpID.Value, cnSrc
        PopUpTag.PopUp_IndBComplete.Value = 1
        'Updating K2_Setup table
        SaveModule.UpdateK2Setup Tag.RcpID.Value, cnSrc
        PopUpTag.PopUp_K2Complete.Value = 1
        'Updating Kocks_Setup table
        SaveModule.UpdateKocksSetup Tag.RcpID.Value, cnSrc
        PopUpTag.PopUp_KComplete.Value = 1
        'Updating Q_Prod Table
        SaveModule.UpdateQProd Tag.RcpID.Value, cnSrc
        PopUpTag.PopUp_QProdComplete.Value = 1
        'Updating Q_Setup table
        SaveModule.UpdateQSetup Tag.RcpID.Value, cnSrc
        PopUpTag.PopUp_QComplete.Value = 1

        PopUpTag.PopUp_SaveRcpUpdated.Value = 1

    End If
    Exit Sub

ErrHandler:
    PopUpTag.PopUp_SaveFailed.Value = 1

End Sub

Private Sub Display_BeforeAnimationStop()
Set MyTagGroup = Nothing
End Sub

' ALEEMA ----------------------------------------------------------------------------------------------------------------------------------------------
Private Sub InductoA_Tag(ByRef htag As HMITag)
    Dim cmd As New ADODB.Command
    Dim rsSrc As New ADODB.Recordset
    Dim AllATags As InductoAGroup
    On Error GoTo ErrHandler

    ' Creates all HMI Tags
    AllATags = TGroup.LoadInductoAGroup

    ' Creates path to the table desired
    cmd.ActiveConnection = htag.cnSrc
    cmd.CommandText = "SELECT * FROM dbo.Inducto_A WHERE [RcpID]= '" & htag.RcpID & "'"
    rsSrc.Open cmd.CommandText, htag.cnSrc

    ' Case where the table is empty
    If (rsSrc.BOF And rsSrc.EOF) Then
            Exit Sub
        End If

    ' Case where not at the beginning of the table
    If (rsSrc.BOF = False) Then
        rsSrc.MoveFirst
    End If

    ' Case where empty row selected
    If (htag.RcpID = "") Then
        Exit Sub
    End If

    ' Create HMI Tags
    AllATags.DB.RcpID.Value = rsSrc.Fields("RcpID").Value
    AllATags.DB.Q_inda_bil_SIZE.Value = rsSrc.Fields("Q_inda_bil_SIZE").Value
    AllATags.DB.Q_inda_EXRATE.Value = rsSrc.Fields("Q_inda_EXRATE").Value
    AllATags.DB.Q_inda_MINTEMP.Value = rsSrc.Fields("Q_inda_MINTEMP").Value
    AllATags.DB.Q_inda_RATE.Value = rsSrc.Fields("Q_inda_RATE").Value
    AllATags.DB.Q_inda_RBARS.Value = rsSrc.Fields("Q_inda_RBARS").Value
    AllATags.DB.Q_inda_SQBARS.Value = rsSrc.Fields("Q_inda_SQBARS").Value
    AllATags.DB.Q_inda_TEMP.Value = rsSrc.Fields("Q_inda_TEMP").Value
    AllATags.DB.RcpGrade.Value = rsSrc.Fields("RcpGrade").Value
    AllATags.DB.RI_DCH_RcpSET_1.Value = rsSrc.Fields("RI_DCH_RcpSET_1").Value
    AllATags.DB.RI_DCH_RcpSET_2.Value = rsSrc.Fields("RI_DCH_RcpSET_2").Value
    AllATags.DB.RI_DCH_RcpSET_3.Value = rsSrc.Fields("RI_DCH_RcpSET_3").Value
    AllATags.DB.RI_DCH_RcpSET_4.Value = rsSrc.Fields("RI_DCH_RcpSET_4").Value
    AllATags.DB.RI_DCH_RcpSET_5.Value = rsSrc.Fields("RI_DCH_RcpSET_5").Value
    AllATags.DB.RI_DCH_RcpSET_6.Value = rsSrc.Fields("RI_DCH_RcpSET_6").Value
    AllATags.DB.RI_DCH_RcpSET_7.Value = rsSrc.Fields("RI_DCH_RcpSET_7").Value
    AllATags.DB.RI_DCH_RcpSET_8.Value = rsSrc.Fields("RI_DCH_RcpSET_8").Value
    AllATags.DB.RI_DCH_RcpSET_9.Value = rsSrc.Fields("RI_DCH_RcpSET_9").Value
    AllATags.DB.RI_DCH_RcpSET_10.Value = rsSrc.Fields("RI_DCH_RcpSET_10").Value
    AllATags.DB.RI_DCH_RcpSET_11.Value = rsSrc.Fields("RI_DCH_RcpSET_11").Value
    AllATags.DB.RI_DCH_RcpSET_12.Value = rsSrc.Fields("RI_DCH_RcpSET_12").Value
    AllATags.DB.RI_DCH_RcpSET_13.Value = rsSrc.Fields("RI_DCH_RcpSET_13").Value
    AllATags.DB.RI_DCH_RcpSET_14.Value = rsSrc.Fields("RI_DCH_RcpSET_14").Value
    AllATags.DB.RI_DCH_RcpSET_15.Value = rsSrc.Fields("RI_DCH_RcpSET_15").Value
    AllATags.DB.RI_ECH_RcpSET_1.Value = rsSrc.Fields("RI_ECH_RcpSET_1").Value
    AllATags.DB.RI_ECH_RcpSET_2.Value = rsSrc.Fields("RI_ECH_RcpSET_2").Value
    AllATags.DB.RI_ECH_RcpSET_3.Value = rsSrc.Fields("RI_ECH_RcpSET_3").Value
    AllATags.DB.RI_ECH_RcpSET_4.Value = rsSrc.Fields("RI_ECH_RcpSET_4").Value
    AllATags.DB.RI_ECH_RcpSET_5.Value = rsSrc.Fields("RI_ECH_RcpSET_5").Value
    AllATags.DB.RI_ECH_RcpSET_6.Value = rsSrc.Fields("RI_ECH_RcpSET_6").Value
    AllATags.DB.RI_ECH_RcpSET_7.Value = rsSrc.Fields("RI_ECH_RcpSET_7").Value
    AllATags.DB.RI_ECH_RcpSET_8.Value = rsSrc.Fields("RI_ECH_RcpSET_8").Value
    AllATags.DB.RI_ECH_RcpSET_9.Value = rsSrc.Fields("RI_ECH_RcpSET_9").Value
    AllATags.DB.RI_ECH_RcpSET_10.Value = rsSrc.Fields("RI_ECH_RcpSET_10").Value
    AllATags.DB.RI_ECH_RcpSET_11.Value = rsSrc.Fields("RI_ECH_RcpSET_11").Value
    AllATags.DB.RI_ECH_RcpSET_12.Value = rsSrc.Fields("RI_ECH_RcpSET_12").Value
    AllATags.DB.RI_ECH_RcpSET_13.Value = rsSrc.Fields("RI_ECH_RcpSET_13").Value
    AllATags.DB.RI_ECH_RcpSET_14.Value = rsSrc.Fields("RI_ECH_RcpSET_14").Value
    AllATags.DB.RI_ECH_RcpSET_15.Value = rsSrc.Fields("RI_ECH_RcpSET_15").Value

    Exit Sub

ErrHandler:
    MsgBox Err.Description

End Sub
Private Sub InductoB_Tag(ByRef htag As HMITag)
    Dim cmd As New ADODB.Command
    Dim rsSrc As New ADODB.Recordset
    Dim AllBTags As InductoBGroup
    On Error GoTo ErrHandler

    ' Creates all HMI Tags
    AllBTags = TGroup.LoadInductoBGroup

    ' Creates path to the table desired
    cmd.ActiveConnection = htag.cnSrc
    cmd.CommandText = "SELECT * FROM dbo.Inducto_B WHERE [RcpID]= '" & htag.RcpID & "'"
    rsSrc.Open cmd.CommandText, htag.cnSrc

    ' Case where the table is empty
    If (rsSrc.BOF And rsSrc.EOF) Then
            Exit Sub
        End If

    ' Case where not at the beginning of the table
    If (rsSrc.BOF = False) Then
        rsSrc.MoveFirst
    End If

    ' Case where there's no RcpID row selected
    If (htag.RcpID = "") Then
        Exit Sub
    End If

    ' Setting valus of the Tags with data from the record set
    AllBTags.DB.K_indb_MINTEMP.Value = rsSrc.Fields("K_indb_MINTEMP").Value
    AllBTags.DB.K_indb_TEMP.Value = rsSrc.Fields("K_indb_TEMP").Value
    AllBTags.DB.K_rcp_bil_SIZE.Value = rsSrc.Fields("K_rcp_bil_SIZE").Value
    AllBTags.DB.RcpID.Value = rsSrc.Fields("RcpID").Value
    AllBTags.DB.K_indb_MINTEMP.Value = rsSrc.Fields("K_indb_MINTEMP").Value
    AllBTags.DB.K_indb_TEMP.Value = rsSrc.Fields("K_indb_TEMP").Value
    AllBTags.DB.K_rcp_bil_SIZE.Value = rsSrc.Fields("K_rcp_bil_SIZE").Value
    AllBTags.DB.RcpGrade.Value = rsSrc.Fields("RcpGrade").Value
    AllBTags.DB.RcpID.Value = rsSrc.Fields("RcpID").Value
    AllBTags.DB.STD_CylConstant_RCP_RI_1.Value = rsSrc.Fields("STD_CylConstant_RCP_RI_1").Value
    AllBTags.DB.STD_CylConstant_RCP_RI_2.Value = rsSrc.Fields("STD_CylConstant_RCP_RI_2").Value
    AllBTags.DB.STD_CylConstant_RCP_RI_3.Value = rsSrc.Fields("STD_CylConstant_RCP_RI_3").Value
    AllBTags.DB.STD_CylConstant_RCP_RI_4.Value = rsSrc.Fields("STD_CylConstant_RCP_RI_4").Value
    AllBTags.DB.STD_CylConstant_RCP_RI_5.Value = rsSrc.Fields("STD_CylConstant_RCP_RI_5").Value
    AllBTags.DB.STD_CylConstant_RCP_RI_6.Value = rsSrc.Fields("STD_CylConstant_RCP_RI_6").Value
    AllBTags.DB.STD_CylConstant_RCP_RI_7.Value = rsSrc.Fields("STD_CylConstant_RCP_RI_7").Value
    AllBTags.DB.STD_CylConstant_RCP_RI_8.Value = rsSrc.Fields("STD_CylConstant_RCP_RI_8").Value
    AllBTags.DB.STD_CylConstant_RCP_RI_9.Value = rsSrc.Fields("STD_CylConstant_RCP_RI_9").Value
    AllBTags.DB.STD_CylConstant_RCP_RI_10.Value = rsSrc.Fields("STD_CylConstant_RCP_RI_10").Value
    AllBTags.DB.STD_CylConstantActual_RCP_RO_1.Value = rsSrc.Fields("STD_CylConstantActual_RCP_RO_1").Value
    AllBTags.DB.STD_CylConstantActual_RCP_RO_2.Value = rsSrc.Fields("STD_CylConstantActual_RCP_RO_2").Value
    AllBTags.DB.STD_CylConstantActual_RCP_RO_3.Value = rsSrc.Fields("STD_CylConstantActual_RCP_RO_3").Value
    AllBTags.DB.STD_CylConstantActual_RCP_RO_4.Value = rsSrc.Fields("STD_CylConstantActual_RCP_RO_4").Value
    AllBTags.DB.STD_CylConstantActual_RCP_RO_5.Value = rsSrc.Fields("STD_CylConstantActual_RCP_RO_5").Value
    AllBTags.DB.STD_CylConstantActual_RCP_RO_6.Value = rsSrc.Fields("STD_CylConstantActual_RCP_RO_6").Value
    AllBTags.DB.STD_CylConstantActual_RCP_RO_7.Value = rsSrc.Fields("STD_CylConstantActual_RCP_RO_7").Value
    AllBTags.DB.STD_CylConstantActual_RCP_RO_8.Value = rsSrc.Fields("STD_CylConstantActual_RCP_RO_8").Value
    AllBTags.DB.STD_CylConstantActual_RCP_RO_9.Value = rsSrc.Fields("STD_CylConstantActual_RCP_RO_9").Value
    AllBTags.DB.STD_CylConstantActual_RCP_RO_10.Value = rsSrc.Fields("STD_CylConstantActual_RCP_RO_10").Value
    AllBTags.DB.STD_SpareInt_RCP_RI_1.Value = rsSrc.Fields("indb_STD_SpareInt_RCP_RI_1").Value
    AllBTags.DB.STD_SpareInt_RCP_RI_2.Value = rsSrc.Fields("indb_STD_SpareInt_RCP_RI_2").Value

    Exit Sub

ErrHandler:
    MsgBox Err.Description

End Sub
Private Sub KocksSetup_Tag(ByRef htag As HMITag)
    Dim cmd As New ADODB.Command
    Dim rsSrc As New ADODB.Recordset
    Dim AllKTags As KocksSetupGroup
    On Error GoTo ErrHandler

    ' Creates all HMI Tags
    AllKTags = TGroup.LoadKocksSetupGroup


    ' Creates path to the table desired
    cmd.ActiveConnection = htag.cnSrc
    cmd.CommandText = "SELECT * FROM dbo.Kocks_Setup WHERE [RcpID]= '" & htag.RcpID & "'"
    rsSrc.Open cmd.CommandText, htag.cnSrc

    ' Case where the table is empty
    If (rsSrc.BOF And rsSrc.EOF) Then
            Exit Sub
        End If

    ' Case where not at the beginning of the table
    If (rsSrc.BOF = False) Then
        rsSrc.MoveFirst
    End If

    ' Case where empty row selected
    If (htag.RcpID = "") Then
        Exit Sub
    End If


    ' Create HMI Tags
    AllKTags.DB.RcpID.Value = rsSrc.Fields("RcpID").Value
    AllKTags.DB.K_rcp_COIL_AMP.Value = rsSrc.Fields("K_rcp_COIL_AMP").Value
    AllKTags.DB.K_rcp_COIL_FREQ.Value = rsSrc.Fields("K_rcp_COIL_FREQ").Value
    AllKTags.DB.K_rcp_COIL_SREF.Value = rsSrc.Fields("K_rcp_COIL_SREF").Value
    AllKTags.DB.K_rcp_COIL_TRIM.Value = rsSrc.Fields("K_rcp_COIL_TRIM").Value
    AllKTags.DB.K_rcp_COIL_WOBBLE.Value = rsSrc.Fields("K_rcp_COIL_WOBBLE").Value
    AllKTags.DB.K_rcp_CONV_SREF.Value = rsSrc.Fields("K_rcp_CONV_SREF").Value
    AllKTags.DB.K_rcp_CONV_TRIM.Value = rsSrc.Fields("K_rcp_CONV_TRIM").Value
    AllKTags.DB.K_rcp_EPR_SREF.Value = rsSrc.Fields("K_rcp_EPR_SREF").Value
    AllKTags.DB.K_rcp_EPR_Trim.Value = rsSrc.Fields("K_rcp_EPR_Trim").Value
    AllKTags.DB.K_rcp_H10_AQ.Value = rsSrc.Fields("K_rcp_H10_AQ").Value
    AllKTags.DB.K_rcp_H10_DI.Value = rsSrc.Fields("K_rcp_H10_DI").Value
    AllKTags.DB.K_rcp_H10_DS.Value = rsSrc.Fields("K_rcp_H10_DS").Value
    AllKTags.DB.K_rcp_H10_GEAR_ratio.Value = rsSrc.Fields("K_rcp_H10_GEAR_ratio").Value
    AllKTags.DB.K_rcp_H10_headSREF.Value = rsSrc.Fields("K_rcp_H10_headSREF").Value
    AllKTags.DB.K_rcp_H10_LEAD.Value = rsSrc.Fields("K_rcp_H10_LEAD").Value
    AllKTags.DB.K_rcp_H10_SREF.Value = rsSrc.Fields("K_rcp_H10_SREF").Value
    AllKTags.DB.K_rcp_H10_tailSREF.Value = rsSrc.Fields("K_rcp_H10_tailSREF").Value
    AllKTags.DB.K_rcp_H20_AQ.Value = rsSrc.Fields("K_rcp_H20_AQ").Value
    AllKTags.DB.K_rcp_H20_DI.Value = rsSrc.Fields("K_rcp_H20_DI").Value
    AllKTags.DB.K_rcp_H20_DS.Value = rsSrc.Fields("K_rcp_H20_DS").Value
    AllKTags.DB.K_rcp_H20_GEAR_ratio.Value = rsSrc.Fields("K_rcp_H20_GEAR_ratio").Value
    AllKTags.DB.K_rcp_H20_headSREF.Value = rsSrc.Fields("K_rcp_H20_headSREF").Value
    AllKTags.DB.K_rcp_H20_LEAD.Value = rsSrc.Fields("K_rcp_H20_LEAD").Value
    AllKTags.DB.K_rcp_H20_SREF.Value = rsSrc.Fields("K_rcp_H20_SREF").Value
    AllKTags.DB.K_rcp_H20_tailSREF.Value = rsSrc.Fields("K_rcp_H20_tailSREF").Value
    AllKTags.DB.K_rcp_H30_AQ.Value = rsSrc.Fields("K_rcp_H30_AQ").Value
    AllKTags.DB.K_rcp_H30_DI.Value = rsSrc.Fields("K_rcp_H30_DI").Value
    AllKTags.DB.K_rcp_H30_DS.Value = rsSrc.Fields("K_rcp_H30_DS").Value
    AllKTags.DB.K_rcp_H30_GEAR_ratio.Value = rsSrc.Fields("K_rcp_H30_GEAR_ratio").Value
    AllKTags.DB.K_rcp_H30_LEAD.Value = rsSrc.Fields("K_rcp_H30_LEAD").Value
    AllKTags.DB.K_rcp_H30_SREF.Value = rsSrc.Fields("K_rcp_H30_SREF").Value
    AllKTags.DB.K_rcp_HEC_HdDlyT.Value = rsSrc.Fields("K_rcp_HEC_HdDlyT").Value
    AllKTags.DB.K_rcp_HEC_HdRampT.Value = rsSrc.Fields("K_rcp_HEC_HdRampT").Value
    AllKTags.DB.K_rcp_HEC_TlDlyT.Value = rsSrc.Fields("K_rcp_HEC_TlDlyT").Value
    AllKTags.DB.K_rcp_HEC_TlRampT.Value = rsSrc.Fields("K_rcp_HEC_TlRampT").Value
    AllKTags.DB.K_rcp_mill_CONFIG_1.Value = rsSrc.Fields("K_rcp_mill_CONFIG_1").Value
    AllKTags.DB.K_rcp_mill_CONFIG_2.Value = rsSrc.Fields("K_rcp_mill_CONFIG_2").Value
    AllKTags.DB.K_rcp_mill_CONFIG_3.Value = rsSrc.Fields("K_rcp_mill_CONFIG_3").Value
    AllKTags.DB.K_rcp_mill_CONFIG_4.Value = rsSrc.Fields("K_rcp_mill_CONFIG_4").Value
    AllKTags.DB.K_rcp_mill_CONFIG_5.Value = rsSrc.Fields("K_rcp_mill_CONFIG_5").Value
    AllKTags.DB.K_rcp_mill_CONFIG_6.Value = rsSrc.Fields("K_rcp_mill_CONFIG_6").Value
    AllKTags.DB.K_rcp_mill_CONFIG_7.Value = rsSrc.Fields("K_rcp_mill_CONFIG_7").Value
    AllKTags.DB.K_rcp_mill_CONFIG_8.Value = rsSrc.Fields("K_rcp_mill_CONFIG_8").Value
    AllKTags.DB.K_rcp_mill_CONFIG_9.Value = rsSrc.Fields("K_rcp_mill_CONFIG_9").Value
    AllKTags.DB.K_rcp_mill_CONFIG_10.Value = rsSrc.Fields("K_rcp_mill_CONFIG_10").Value
    AllKTags.DB.K_rcp_mill_EntrySpeed.Value = rsSrc.Fields("K_rcp_mill_EntrySpeed").Value
    AllKTags.DB.K_rcp_mill_GEAR_ratio.Value = rsSrc.Fields("K_rcp_mill_GEAR_ratio").Value
    AllKTags.DB.K_rcp_mill_SPEED.Value = rsSrc.Fields("K_rcp_mill_SPEED").Value
    AllKTags.DB.K_rcp_PR1_SREF.Value = rsSrc.Fields("K_rcp_PR1_SREF").Value
    AllKTags.DB.K_rcp_PR1_TRIM.Value = rsSrc.Fields("K_rcp_PR1_TRIM").Value
    AllKTags.DB.K_rcp_PR2_SREF.Value = rsSrc.Fields("K_rcp_PR2_SREF").Value
    AllKTags.DB.K_rcp_PR2_TRIM.Value = rsSrc.Fields("K_rcp_PR2_TRIM").Value
    AllKTags.DB.K_rcp_PR3_DI.Value = rsSrc.Fields("K_rcp_PR3_DI").Value
    AllKTags.DB.K_rcp_PR3_GearPos1.Value = rsSrc.Fields("K_rcp_PR3_GearPos1").Value
    AllKTags.DB.K_rcp_PR3_GearPos2.Value = rsSrc.Fields("K_rcp_PR3_GearPos2").Value
    AllKTags.DB.K_rcp_PR3_SREF.Value = rsSrc.Fields("K_rcp_PR3_SREF").Value
    AllKTags.DB.K_rcp_PR3_TRIM.Value = rsSrc.Fields("K_rcp_PR3_TRIM").Value
    AllKTags.DB.K_rcp_prod_SIZE.Value = rsSrc.Fields("K_rcp_prod_SIZE").Value
    AllKTags.DB.K_rcp_pshear_head_CROP.Value = rsSrc.Fields("K_rcp_pshear_head_CROP").Value
    AllKTags.DB.K_rcp_pshear_tail_CROP.Value = rsSrc.Fields("K_rcp_pshear_tail_CROP").Value
    AllKTags.DB.K_rcp_QuenchT.Value = rsSrc.Fields("K_rcp_QuenchT").Value
    AllKTags.DB.K_rcp_Rsh_DivCut.Value = rsSrc.Fields("K_rcp_Rsh_DivCut").Value
    AllKTags.DB.K_rcp_Rsh_DivTrim.Value = rsSrc.Fields("K_rcp_Rsh_DivTrim").Value
    AllKTags.DB.K_rcp_Rsh_GearPos1.Value = rsSrc.Fields("K_rcp_Rsh_GearPos1").Value
    AllKTags.DB.K_rcp_Rsh_GearPos2.Value = rsSrc.Fields("K_rcp_Rsh_GearPos2").Value
    AllKTags.DB.K_rcp_Rsh_HdCrop.Value = rsSrc.Fields("K_rcp_Rsh_HdCrop").Value
    AllKTags.DB.K_rcp_Rsh_HdCropCycT.Value = rsSrc.Fields("K_rcp_Rsh_HdCropCycT").Value
    AllKTags.DB.K_rcp_Rsh_HdCropDlyT.Value = rsSrc.Fields("K_rcp_Rsh_HdCropDlyT").Value
    AllKTags.DB.K_rcp_Rsh_HdCut.Value = rsSrc.Fields("K_rcp_Rsh_HdCut").Value
    AllKTags.DB.K_rcp_Rsh_HdLength.Value = rsSrc.Fields("K_rcp_Rsh_HdLength").Value
    AllKTags.DB.K_rcp_Rsh_HdTrim.Value = rsSrc.Fields("K_rcp_Rsh_HdTrim").Value
    AllKTags.DB.K_rcp_Rsh_Length.Value = rsSrc.Fields("K_rcp_Rsh_Length").Value
    AllKTags.DB.K_rcp_Rsh_STrim.Value = rsSrc.Fields("K_rcp_Rsh_STrim").Value
    AllKTags.DB.K_rcp_Rsh_TlCrop.Value = rsSrc.Fields("K_rcp_Rsh_TlCrop").Value
    AllKTags.DB.K_rcp_Rsh_TlCropCycT.Value = rsSrc.Fields("K_rcp_Rsh_TlCropCycT").Value
    AllKTags.DB.K_rcp_Rsh_TlCropDlyT.Value = rsSrc.Fields("K_rcp_Rsh_TlCropDlyT").Value
    AllKTags.DB.K_rcp_Rsh_TlCut.Value = rsSrc.Fields("K_rcp_Rsh_TlCut").Value
    AllKTags.DB.K_rcp_Rsh_TlLength.Value = rsSrc.Fields("K_rcp_Rsh_TlLength").Value
    AllKTags.DB.K_rcp_Rsh_TlTrim.Value = rsSrc.Fields("K_rcp_Rsh_TlTrim").Value
    AllKTags.DB.K_rcp_SYS_Bar.Value = rsSrc.Fields("K_rcp_SYS_Bar").Value
    AllKTags.DB.K_rcp_Sys_BarPassST.Value = rsSrc.Fields("K_rcp_Sys_BarPassST").Value
    AllKTags.DB.K_rcp_Sys_BarPassT.Value = rsSrc.Fields("K_rcp_Sys_BarPassT").Value
    AllKTags.DB.K_rcp_SYS_Coil.Value = rsSrc.Fields("K_rcp_SYS_Coil").Value
    AllKTags.DB.K_rcp_Sys_LinSP_Perc.Value = rsSrc.Fields("K_rcp_Sys_LinSP_Perc").Value
    AllKTags.DB.K_rcp_Sys_LinSP_Perc2.Value = rsSrc.Fields("K_rcp_Sys_LinSP_Perc2").Value
    AllKTags.DB.K_rcp_Sys_LinSP_Rate.Value = rsSrc.Fields("K_rcp_Sys_LinSP_Rate").Value
    AllKTags.DB.RcpGrade.Value = rsSrc.Fields("RcpGrade").Value
    AllKTags.DB.K_rcp_bil_SIZE.Value = rsSrc.Fields("K_rcp_bil_SIZE").Value

    Exit Sub

ErrHandler:
    MsgBox Err.Description

End Sub
Private Sub QSetup_Tag(ByRef htag As HMITag)
    Dim cmd As New ADODB.Command
    Dim rsSrc As New ADODB.Recordset
    Dim AllQTags As QSetupGroup
    On Error GoTo ErrHandler

    ' Creates all HMI Tags
    AllQTags = TGroup.LoadQSetupGroup


    ' Creates path to the table desired
    cmd.ActiveConnection = htag.cnSrc
    cmd.CommandText = "SELECT * FROM dbo.Q_Setup WHERE [RcpID]= '" & htag.RcpID & "'"
    rsSrc.Open cmd.CommandText, htag.cnSrc

    ' Case where the table is empty
    If (rsSrc.BOF And rsSrc.EOF) Then
            Exit Sub
        End If

    ' Case where not at the beginning of the table
    If (rsSrc.BOF = False) Then
        rsSrc.MoveFirst
    End If

    ' Case where empty row selected
    If (htag.RcpID = "") Then
        Exit Sub
    End If

    ' Create HMI Tags
    AllQTags.DB.RcpGrade.Value = rsSrc.Fields("RcpGrade").Value
    AllQTags.DB.RcpID.Value = rsSrc.Fields("RcpID").Value
    AllQTags.DB.RI_SYS_RcpLastPass.Value = rsSrc.Fields("RI_SYS_RcpLastPass").Value
    AllQTags.DB.RO_DBT_MmiSET_1.Value = rsSrc.Fields("RO_DBT_MmiSET_1").Value
    AllQTags.DB.RO_DBT_MmiSET_10.Value = rsSrc.Fields("RO_DBT_MmiSET_10").Value
    AllQTags.DB.RO_DBT_MmiSET_11.Value = rsSrc.Fields("RO_DBT_MmiSET_11").Value
    AllQTags.DB.RO_DBT_MmiSET_12.Value = rsSrc.Fields("RO_DBT_MmiSET_12").Value
    AllQTags.DB.RO_DBT_MmiSET_13.Value = rsSrc.Fields("RO_DBT_MmiSET_13").Value
    AllQTags.DB.RO_DBT_MmiSET_14.Value = rsSrc.Fields("RO_DBT_MmiSET_14").Value
    AllQTags.DB.RO_DBT_MmiSET_15.Value = rsSrc.Fields("RO_DBT_MmiSET_15").Value
    AllQTags.DB.RO_DBT_MmiSET_2.Value = rsSrc.Fields("RO_DBT_MmiSET_2").Value
    AllQTags.DB.RO_DBT_MmiSET_3.Value = rsSrc.Fields("RO_DBT_MmiSET_3").Value
    AllQTags.DB.RO_DBT_MmiSET_4.Value = rsSrc.Fields("RO_DBT_MmiSET_4").Value
    AllQTags.DB.RO_DBT_MmiSET_5.Value = rsSrc.Fields("RO_DBT_MmiSET_5").Value
    AllQTags.DB.RO_DBT_MmiSET_6.Value = rsSrc.Fields("RO_DBT_MmiSET_6").Value
    AllQTags.DB.RO_DBT_MmiSET_7.Value = rsSrc.Fields("RO_DBT_MmiSET_7").Value
    AllQTags.DB.RO_DBT_MmiSET_8.Value = rsSrc.Fields("RO_DBT_MmiSET_8").Value
    AllQTags.DB.RO_DBT_MmiSET_9.Value = rsSrc.Fields("RO_DBT_MmiSET_9").Value
    AllQTags.DB.RO_DCH_MmiSET_1.Value = rsSrc.Fields("RO_DCH_MmiSET_1").Value
    AllQTags.DB.RO_DCH_MmiSET_10.Value = rsSrc.Fields("RO_DCH_MmiSET_10").Value
    AllQTags.DB.RO_DCH_MmiSET_11.Value = rsSrc.Fields("RO_DCH_MmiSET_11").Value
    AllQTags.DB.RO_DCH_MmiSET_12.Value = rsSrc.Fields("RO_DCH_MmiSET_12").Value
    AllQTags.DB.RO_DCH_MmiSET_13.Value = rsSrc.Fields("RO_DCH_MmiSET_13").Value
    AllQTags.DB.RO_DCH_MmiSET_14.Value = rsSrc.Fields("RO_DCH_MmiSET_14").Value
    AllQTags.DB.RO_DCH_MmiSET_15.Value = rsSrc.Fields("RO_DCH_MmiSET_15").Value
    AllQTags.DB.RO_DCH_MmiSET_2.Value = rsSrc.Fields("RO_DCH_MmiSET_2").Value
    AllQTags.DB.RO_DCH_MmiSET_3.Value = rsSrc.Fields("RO_DCH_MmiSET_3").Value
    AllQTags.DB.RO_DCH_MmiSET_4.Value = rsSrc.Fields("RO_DCH_MmiSET_4").Value
    AllQTags.DB.RO_DCH_MmiSET_5.Value = rsSrc.Fields("RO_DCH_MmiSET_5").Value
    AllQTags.DB.RO_DCH_MmiSET_6.Value = rsSrc.Fields("RO_DCH_MmiSET_6").Value
    AllQTags.DB.RO_DCH_MmiSET_7.Value = rsSrc.Fields("RO_DCH_MmiSET_7").Value
    AllQTags.DB.RO_DCH_MmiSET_8.Value = rsSrc.Fields("RO_DCH_MmiSET_8").Value
    AllQTags.DB.RO_DCH_MmiSET_9.Value = rsSrc.Fields("RO_DCH_MmiSET_9").Value
    AllQTags.DB.RO_DFR_MmiTRIM_1.Value = rsSrc.Fields("RO_DFR_MmiTRIM_1").Value
    AllQTags.DB.RO_DFR_MmiTRIM_10.Value = rsSrc.Fields("RO_DFR_MmiTRIM_10").Value
    AllQTags.DB.RO_DFR_MmiTRIM_11.Value = rsSrc.Fields("RO_DFR_MmiTRIM_11").Value
    AllQTags.DB.RO_DFR_MmiTRIM_12.Value = rsSrc.Fields("RO_DFR_MmiTRIM_12").Value
    AllQTags.DB.RO_DFR_MmiTRIM_13.Value = rsSrc.Fields("RO_DFR_MmiTRIM_13").Value
    AllQTags.DB.RO_DFR_MmiTRIM_14.Value = rsSrc.Fields("RO_DFR_MmiTRIM_14").Value
    AllQTags.DB.RO_DFR_MmiTRIM_15.Value = rsSrc.Fields("RO_DFR_MmiTRIM_15").Value
    AllQTags.DB.RO_DFR_MmiTRIM_2.Value = rsSrc.Fields("RO_DFR_MmiTRIM_2").Value
    AllQTags.DB.RO_DFR_MmiTRIM_3.Value = rsSrc.Fields("RO_DFR_MmiTRIM_3").Value
    AllQTags.DB.RO_DFR_MmiTRIM_4.Value = rsSrc.Fields("RO_DFR_MmiTRIM_4").Value
    AllQTags.DB.RO_DFR_MmiTRIM_5.Value = rsSrc.Fields("RO_DFR_MmiTRIM_5").Value
    AllQTags.DB.RO_DFR_MmiTRIM_6.Value = rsSrc.Fields("RO_DFR_MmiTRIM_6").Value
    AllQTags.DB.RO_DFR_MmiTRIM_7.Value = rsSrc.Fields("RO_DFR_MmiTRIM_7").Value
    AllQTags.DB.RO_DFR_MmiTRIM_8.Value = rsSrc.Fields("RO_DFR_MmiTRIM_8").Value
    AllQTags.DB.RO_DFR_MmiTRIM_9.Value = rsSrc.Fields("RO_DFR_MmiTRIM_9").Value

    Exit Sub

ErrHandler:
    MsgBox Err.Description

End Sub
Private Sub K2Setup_Tag(ByRef htag As HMITag)
    Dim cmd As New ADODB.Command
    Dim rsSrc As New ADODB.Recordset
    Dim AllK2Tags As K2SetupGroup
    On Error GoTo ErrHandler

    ' Creates all HMI Tags
    AllK2Tags = TGroup.LoadK2SetupGroup

    ' Creates path to the table desired
    cmd.ActiveConnection = htag.cnSrc
    cmd.CommandText = "SELECT * FROM dbo.K2_Setup WHERE [RcpID]= '" & htag.RcpID & "'"
    rsSrc.Open cmd.CommandText, htag.cnSrc

    ' Case where the table is empty
    If (rsSrc.BOF And rsSrc.EOF) Then
            Exit Sub
        End If

    ' Case where not at the beginning of the table
    If (rsSrc.BOF = False) Then
        rsSrc.MoveFirst
    End If

    ' Case where empty row selected
    If (htag.RcpID = "") Then
        Exit Sub
    End If


    ' Create HMI Tags
    AllK2Tags.DB.RcpID.Value = rsSrc.Fields("RcpID").Value
    AllK2Tags.DB.CNVR2_RPM_RCP_RO.Value = rsSrc.Fields("CNVR2_RPM_RCP_RO").Value
    AllK2Tags.DB.CNVR2_SpeedRefRPM_RCP_RI.Value = rsSrc.Fields("CNVR2_SpeedRefRPM_RCP_RI").Value
    AllK2Tags.DB.CNVR2_SpeedTrim_RCP_RI.Value = rsSrc.Fields("CNVR2_SpeedTrim_RCP_RI").Value
    AllK2Tags.DB.CVNR2_SpareReal_RCP_RI.Value = rsSrc.Fields("CVNR2_SpareReal_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_BarPassageTime_RCP_RI.Value = rsSrc.Fields("GEN_K2_BarPassageTime_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_BarSafetyTime_RCP_RI.Value = rsSrc.Fields("GEN_K2_BarSafetyTime_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_BilletAreaHot_RCP_RI.Value = rsSrc.Fields("GEN_K2_BilletAreaHot_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_BilletEntryTemp_RCP_RI.Value = rsSrc.Fields("GEN_K2_BilletEntryTemp_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_BilletSizeHot_RCP_RI.Value = rsSrc.Fields("GEN_K2_BilletSizeHot_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_BlockID_RCP_RI.Value = rsSrc.Fields("GEN_K2_BlockID_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_ContThrghPut_RCP_RI.Value = rsSrc.Fields("GEN_K2_ContThrghPut_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_CurProdInCycle_RCP_RI.Value = rsSrc.Fields("GEN_K2_CurProdInCycle_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_EntrySpeed_RCP_RI.Value = rsSrc.Fields("GEN_K2_EntrySpeed_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_FinishingStand_RCP_RI.Value = rsSrc.Fields("GEN_K2_FinishingStand_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_FinishSpeed_RCP_RI.Value = rsSrc.Fields("GEN_K2_FinishSpeed_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_KFO_RCP_RI.Value = rsSrc.Fields("GEN_K2_KFO_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_LinSpeed_RCP_RI.Value = rsSrc.Fields("GEN_K2_LinSpeed_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_NxtProdInCycle_RCP_RI.Value = rsSrc.Fields("GEN_K2_NxtProdInCycle_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_ProdAreaCold_RCP_RI.Value = rsSrc.Fields("GEN_K2_ProdAreaCold_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_ProdSchNo_RCP_RO.Value = rsSrc.Fields("GEN_K2_ProdSchNo_RCP_RO").Value
    AllK2Tags.DB.GEN_K2_ProdSize_RCP_RI.Value = rsSrc.Fields("GEN_K2_ProdSize_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_ProdSizeCold_RCP_RI.Value = rsSrc.Fields("GEN_K2_ProdSizeCold_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_ProdSizeHot_RCP_RI.Value = rsSrc.Fields("GEN_K2_ProdSizeHot_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_ShrinkFactor_RCP_RI.Value = rsSrc.Fields("GEN_K2_ShrinkFactor_RCP_RI").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr1_RCP_RI_1.Value = rsSrc.Fields("GEN_K2_SpareIntArr1_RCP_RI_1").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr1_RCP_RI_10.Value = rsSrc.Fields("GEN_K2_SpareIntArr1_RCP_RI_10").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr1_RCP_RI_2.Value = rsSrc.Fields("GEN_K2_SpareIntArr1_RCP_RI_2").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr1_RCP_RI_3.Value = rsSrc.Fields("GEN_K2_SpareIntArr1_RCP_RI_3").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr1_RCP_RI_4.Value = rsSrc.Fields("GEN_K2_SpareIntArr1_RCP_RI_4").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr1_RCP_RI_5.Value = rsSrc.Fields("GEN_K2_SpareIntArr1_RCP_RI_5").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr1_RCP_RI_6.Value = rsSrc.Fields("GEN_K2_SpareIntArr1_RCP_RI_6").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr1_RCP_RI_7.Value = rsSrc.Fields("GEN_K2_SpareIntArr1_RCP_RI_7").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr1_RCP_RI_8.Value = rsSrc.Fields("GEN_K2_SpareIntArr1_RCP_RI_8").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr1_RCP_RI_9.Value = rsSrc.Fields("GEN_K2_SpareIntArr1_RCP_RI_9").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr2_RCP_RI_1.Value = rsSrc.Fields("GEN_K2_SpareIntArr2_RCP_RI_1").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr2_RCP_RI_10.Value = rsSrc.Fields("GEN_K2_SpareIntArr2_RCP_RI_10").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr2_RCP_RI_2.Value = rsSrc.Fields("GEN_K2_SpareIntArr2_RCP_RI_2").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr2_RCP_RI_3.Value = rsSrc.Fields("GEN_K2_SpareIntArr2_RCP_RI_3").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr2_RCP_RI_4.Value = rsSrc.Fields("GEN_K2_SpareIntArr2_RCP_RI_4").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr2_RCP_RI_5.Value = rsSrc.Fields("GEN_K2_SpareIntArr2_RCP_RI_5").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr2_RCP_RI_6.Value = rsSrc.Fields("GEN_K2_SpareIntArr2_RCP_RI_6").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr2_RCP_RI_7.Value = rsSrc.Fields("GEN_K2_SpareIntArr2_RCP_RI_7").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr2_RCP_RI_8.Value = rsSrc.Fields("GEN_K2_SpareIntArr2_RCP_RI_8").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr2_RCP_RI_9.Value = rsSrc.Fields("GEN_K2_SpareIntArr2_RCP_RI_9").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr3_RCP_RI_1.Value = rsSrc.Fields("GEN_K2_SpareIntArr3_RCP_RI_1").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr3_RCP_RI_10.Value = rsSrc.Fields("GEN_K2_SpareIntArr3_RCP_RI_10").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr3_RCP_RI_2.Value = rsSrc.Fields("GEN_K2_SpareIntArr3_RCP_RI_2").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr3_RCP_RI_3.Value = rsSrc.Fields("GEN_K2_SpareIntArr3_RCP_RI_3").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr3_RCP_RI_4.Value = rsSrc.Fields("GEN_K2_SpareIntArr3_RCP_RI_4").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr3_RCP_RI_5.Value = rsSrc.Fields("GEN_K2_SpareIntArr3_RCP_RI_5").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr3_RCP_RI_6.Value = rsSrc.Fields("GEN_K2_SpareIntArr3_RCP_RI_6").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr3_RCP_RI_7.Value = rsSrc.Fields("GEN_K2_SpareIntArr3_RCP_RI_7").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr3_RCP_RI_8.Value = rsSrc.Fields("GEN_K2_SpareIntArr3_RCP_RI_8").Value
    AllK2Tags.DB.GEN_K2_SpareIntArr3_RCP_RI_9.Value = rsSrc.Fields("GEN_K2_SpareIntArr3_RCP_RI_9").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr1_RCP_RI_1.Value = rsSrc.Fields("GEN_K2_SpareRealArr1_RCP_RI_1").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr1_RCP_RI_10.Value = rsSrc.Fields("GEN_K2_SpareRealArr1_RCP_RI_10").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr1_RCP_RI_2.Value = rsSrc.Fields("GEN_K2_SpareRealArr1_RCP_RI_2").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr1_RCP_RI_3.Value = rsSrc.Fields("GEN_K2_SpareRealArr1_RCP_RI_3").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr1_RCP_RI_4.Value = rsSrc.Fields("GEN_K2_SpareRealArr1_RCP_RI_4").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr1_RCP_RI_5.Value = rsSrc.Fields("GEN_K2_SpareRealArr1_RCP_RI_5").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr1_RCP_RI_6.Value = rsSrc.Fields("GEN_K2_SpareRealArr1_RCP_RI_6").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr1_RCP_RI_7.Value = rsSrc.Fields("GEN_K2_SpareRealArr1_RCP_RI_7").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr1_RCP_RI_8.Value = rsSrc.Fields("GEN_K2_SpareRealArr1_RCP_RI_8").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr1_RCP_RI_9.Value = rsSrc.Fields("GEN_K2_SpareRealArr1_RCP_RI_9").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr2_RCP_RI_1.Value = rsSrc.Fields("GEN_K2_SpareRealArr2_RCP_RI_1").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr2_RCP_RI_10.Value = rsSrc.Fields("GEN_K2_SpareRealArr2_RCP_RI_10").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr2_RCP_RI_2.Value = rsSrc.Fields("GEN_K2_SpareRealArr2_RCP_RI_2").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr2_RCP_RI_3.Value = rsSrc.Fields("GEN_K2_SpareRealArr2_RCP_RI_3").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr2_RCP_RI_4.Value = rsSrc.Fields("GEN_K2_SpareRealArr2_RCP_RI_4").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr2_RCP_RI_5.Value = rsSrc.Fields("GEN_K2_SpareRealArr2_RCP_RI_5").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr2_RCP_RI_6.Value = rsSrc.Fields("GEN_K2_SpareRealArr2_RCP_RI_6").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr2_RCP_RI_7.Value = rsSrc.Fields("GEN_K2_SpareRealArr2_RCP_RI_7").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr2_RCP_RI_8.Value = rsSrc.Fields("GEN_K2_SpareRealArr2_RCP_RI_8").Value
    AllK2Tags.DB.GEN_K2_SpareRealArr2_RCP_RI_9.Value = rsSrc.Fields("GEN_K2_SpareRealArr2_RCP_RI_9").Value
    AllK2Tags.DB.K2_HEC_SpareReal_RCP_RO.Value = rsSrc.Fields("K2_HEC_SpareReal_RCP_RO").Value
    AllK2Tags.DB.K2_HEC_TfHead_RCP_RI.Value = rsSrc.Fields("K2_HEC_TfHead_RCP_RI").Value
    AllK2Tags.DB.K2_HEC_TfHeadAccTime_RCP_RO.Value = rsSrc.Fields("K2_HEC_TfHeadAccTime_RCP_RO").Value
    AllK2Tags.DB.K2_HEC_TfHeadRampRateFac_RCP_RI.Value = rsSrc.Fields("K2_HEC_TfHeadRampRateFac_RCP_RI").Value
    AllK2Tags.DB.K2_HEC_TfTail_RCP_RI.Value = rsSrc.Fields("K2_HEC_TfTail_RCP_RI").Value
    AllK2Tags.DB.K2_HEC_TfTailAccTime_RCP_RO.Value = rsSrc.Fields("K2_HEC_TfTailAccTime_RCP_RO").Value
    AllK2Tags.DB.K2_HEC_TfTailRampRateFac_RCP_RI.Value = rsSrc.Fields("K2_HEC_TfTailRampRateFac_RCP_RI").Value
    AllK2Tags.DB.K2_HEC_TfTailTimeDelay_RCP_RO.Value = rsSrc.Fields("K2_HEC_TfTailTimeDelay_RCP_RO").Value
    AllK2Tags.DB.K2_HEC_TfTimeDelay_RCP_RO.Value = rsSrc.Fields("K2_HEC_TfTimeDelay_RCP_RO").Value
    AllK2Tags.DB.K2_HEC_TfTimeDelayFact_RCP_RI.Value = rsSrc.Fields("K2_HEC_TfTimeDelayFact_RCP_RI").Value
    AllK2Tags.DB.K2_TEN_SpareReal_RCP_RI.Value = rsSrc.Fields("K2_TEN_SpareReal_RCP_RI").Value
    AllK2Tags.DB.K2_TEN_Tf_RCP_RI.Value = rsSrc.Fields("K2_TEN_Tf_RCP_RI").Value
    AllK2Tags.DB.K2_TEN_TfActual_RCP_RO.Value = rsSrc.Fields("K2_TEN_TfActual_RCP_RO").Value
    AllK2Tags.DB.LPR_Config_RCP_RI.Value = rsSrc.Fields("LPR_Config_RCP_RI").Value
    AllK2Tags.DB.LPR_DnReacTime_RCP_RI.Value = rsSrc.Fields("LPR_DnReacTime_RCP_RI").Value
    AllK2Tags.DB.LPR_HeightSetpoint_RCP_RI.Value = rsSrc.Fields("LPR_HeightSetpoint_RCP_RI").Value
    AllK2Tags.DB.LPR_Spare_RCP_RI.Value = rsSrc.Fields("LPR_Spare_RCP_RI").Value
    AllK2Tags.DB.LRP_UpReacTime_RCP_RI.Value = rsSrc.Fields("LRP_UpReacTime_RCP_RI").Value
   ' AllK2Tags.DB.RCPDate.Value = rsSrc.Fields("RCPDate").Value
   ' AllK2Tags.DB.RcpDsc.Value = rsSrc.Fields("RCPDsc").Value
    AllK2Tags.DB.RcpGrade.Value = rsSrc.Fields("RcpGrade").Value
    AllK2Tags.DB.RcpID.Value = rsSrc.Fields("RcpID").Value
    AllK2Tags.DB.STD_Area_RCP_RI_1.Value = rsSrc.Fields("STD_Area_RCP_RI_1").Value
    AllK2Tags.DB.STD_Area_RCP_RI_10.Value = rsSrc.Fields("STD_Area_RCP_RI_10").Value
    AllK2Tags.DB.STD_Area_RCP_RI_2.Value = rsSrc.Fields("STD_Area_RCP_RI_2").Value
    AllK2Tags.DB.STD_Area_RCP_RI_3.Value = rsSrc.Fields("STD_Area_RCP_RI_3").Value
    AllK2Tags.DB.STD_Area_RCP_RI_4.Value = rsSrc.Fields("STD_Area_RCP_RI_4").Value
    AllK2Tags.DB.STD_Area_RCP_RI_5.Value = rsSrc.Fields("STD_Area_RCP_RI_5").Value
    AllK2Tags.DB.STD_Area_RCP_RI_6.Value = rsSrc.Fields("STD_Area_RCP_RI_6").Value
    AllK2Tags.DB.STD_Area_RCP_RI_7.Value = rsSrc.Fields("STD_Area_RCP_RI_7").Value
    AllK2Tags.DB.STD_Area_RCP_RI_8.Value = rsSrc.Fields("STD_Area_RCP_RI_8").Value
    AllK2Tags.DB.STD_Area_RCP_RI_9.Value = rsSrc.Fields("STD_Area_RCP_RI_9").Value
    AllK2Tags.DB.STD_Config_RCP_RI_1.Value = rsSrc.Fields("STD_Config_RCP_RI_1").Value
    AllK2Tags.DB.STD_Config_RCP_RI_1.Value = rsSrc.Fields("STD_Config_RCP_RI_1").Value
    AllK2Tags.DB.STD_Config_RCP_RI_10.Value = rsSrc.Fields("STD_Config_RCP_RI_10").Value
    AllK2Tags.DB.STD_Config_RCP_RI_2.Value = rsSrc.Fields("STD_Config_RCP_RI_2").Value
    AllK2Tags.DB.STD_Config_RCP_RI_3.Value = rsSrc.Fields("STD_Config_RCP_RI_3").Value
    AllK2Tags.DB.STD_Config_RCP_RI_4.Value = rsSrc.Fields("STD_Config_RCP_RI_4").Value
    AllK2Tags.DB.STD_Config_RCP_RI_5.Value = rsSrc.Fields("STD_Config_RCP_RI_5").Value
    AllK2Tags.DB.STD_Config_RCP_RI_6.Value = rsSrc.Fields("STD_Config_RCP_RI_6").Value
    AllK2Tags.DB.STD_Config_RCP_RI_7.Value = rsSrc.Fields("STD_Config_RCP_RI_7").Value
    AllK2Tags.DB.STD_Config_RCP_RI_8.Value = rsSrc.Fields("STD_Config_RCP_RI_8").Value
    AllK2Tags.DB.STD_Config_RCP_RI_9.Value = rsSrc.Fields("STD_Config_RCP_RI_9").Value
    AllK2Tags.DB.STD_ERD_RCP_RO_1.Value = rsSrc.Fields("STD_ERD_RCP_RO_1").Value
    AllK2Tags.DB.STD_ERD_RCP_RO_10.Value = rsSrc.Fields("STD_ERD_RCP_RO_10").Value
    AllK2Tags.DB.STD_ERD_RCP_RO_2.Value = rsSrc.Fields("STD_ERD_RCP_RO_2").Value
    AllK2Tags.DB.STD_ERD_RCP_RO_3.Value = rsSrc.Fields("STD_ERD_RCP_RO_3").Value
    AllK2Tags.DB.STD_ERD_RCP_RO_4.Value = rsSrc.Fields("STD_ERD_RCP_RO_4").Value
    AllK2Tags.DB.STD_ERD_RCP_RO_5.Value = rsSrc.Fields("STD_ERD_RCP_RO_5").Value
    AllK2Tags.DB.STD_ERD_RCP_RO_6.Value = rsSrc.Fields("STD_ERD_RCP_RO_6").Value
    AllK2Tags.DB.STD_ERD_RCP_RO_7.Value = rsSrc.Fields("STD_ERD_RCP_RO_7").Value
    AllK2Tags.DB.STD_ERD_RCP_RO_8.Value = rsSrc.Fields("STD_ERD_RCP_RO_8").Value
    AllK2Tags.DB.STD_ERD_RCP_RO_9.Value = rsSrc.Fields("STD_ERD_RCP_RO_9").Value
    AllK2Tags.DB.STD_ERDActual_RCP_RO_1.Value = rsSrc.Fields("STD_ERDActual_RCP_RO_1").Value
    AllK2Tags.DB.STD_ERDActual_RCP_RO_10.Value = rsSrc.Fields("STD_ERDActual_RCP_RO_10").Value
    AllK2Tags.DB.STD_ERDActual_RCP_RO_2.Value = rsSrc.Fields("STD_ERDActual_RCP_RO_2").Value
    AllK2Tags.DB.STD_ERDActual_RCP_RO_3.Value = rsSrc.Fields("STD_ERDActual_RCP_RO_3").Value
    AllK2Tags.DB.STD_ERDActual_RCP_RO_4.Value = rsSrc.Fields("STD_ERDActual_RCP_RO_4").Value
    AllK2Tags.DB.STD_ERDActual_RCP_RO_5.Value = rsSrc.Fields("STD_ERDActual_RCP_RO_5").Value
    AllK2Tags.DB.STD_ERDActual_RCP_RO_6.Value = rsSrc.Fields("STD_ERDActual_RCP_RO_6").Value
    AllK2Tags.DB.STD_ERDActual_RCP_RO_7.Value = rsSrc.Fields("STD_ERDActual_RCP_RO_7").Value
    AllK2Tags.DB.STD_ERDActual_RCP_RO_8.Value = rsSrc.Fields("STD_ERDActual_RCP_RO_8").Value
    AllK2Tags.DB.STD_ERDActual_RCP_RO_9.Value = rsSrc.Fields("STD_ERDActual_RCP_RO_9").Value
    AllK2Tags.DB.STD_Gap_RCP_RI_1.Value = rsSrc.Fields("STD_Gap_RCP_RI_1").Value
    AllK2Tags.DB.STD_Gap_RCP_RI_10.Value = rsSrc.Fields("STD_Gap_RCP_RI_10").Value
    AllK2Tags.DB.STD_Gap_RCP_RI_2.Value = rsSrc.Fields("STD_Gap_RCP_RI_2").Value
    AllK2Tags.DB.STD_Gap_RCP_RI_3.Value = rsSrc.Fields("STD_Gap_RCP_RI_3").Value
    AllK2Tags.DB.STD_Gap_RCP_RI_4.Value = rsSrc.Fields("STD_Gap_RCP_RI_4").Value
    AllK2Tags.DB.STD_Gap_RCP_RI_5.Value = rsSrc.Fields("STD_Gap_RCP_RI_5").Value
    AllK2Tags.DB.STD_Gap_RCP_RI_6.Value = rsSrc.Fields("STD_Gap_RCP_RI_6").Value
    AllK2Tags.DB.STD_Gap_RCP_RI_7.Value = rsSrc.Fields("STD_Gap_RCP_RI_7").Value
    AllK2Tags.DB.STD_Gap_RCP_RI_8.Value = rsSrc.Fields("STD_Gap_RCP_RI_8").Value
    AllK2Tags.DB.STD_Gap_RCP_RI_9.Value = rsSrc.Fields("STD_Gap_RCP_RI_9").Value
    AllK2Tags.DB.STD_Gear_SEL_RCP_RI.Value = rsSrc.Fields("STD_Gear_SEL_RCP_RI").Value
    AllK2Tags.DB.STD_HECFront_RCP_RO_1.Value = rsSrc.Fields("STD_HECFront_RCP_RO_1").Value
    AllK2Tags.DB.STD_HECFront_RCP_RO_10.Value = rsSrc.Fields("STD_HECFront_RCP_RO_10").Value
    AllK2Tags.DB.STD_HECFront_RCP_RO_2.Value = rsSrc.Fields("STD_HECFront_RCP_RO_2").Value
    AllK2Tags.DB.STD_HECFront_RCP_RO_3.Value = rsSrc.Fields("STD_HECFront_RCP_RO_3").Value
    AllK2Tags.DB.STD_HECFront_RCP_RO_4.Value = rsSrc.Fields("STD_HECFront_RCP_RO_4").Value
    AllK2Tags.DB.STD_HECFront_RCP_RO_5.Value = rsSrc.Fields("STD_HECFront_RCP_RO_5").Value
    AllK2Tags.DB.STD_HECFront_RCP_RO_6.Value = rsSrc.Fields("STD_HECFront_RCP_RO_6").Value
    AllK2Tags.DB.STD_HECFront_RCP_RO_7.Value = rsSrc.Fields("STD_HECFront_RCP_RO_7").Value
    AllK2Tags.DB.STD_HECFront_RCP_RO_8.Value = rsSrc.Fields("STD_HECFront_RCP_RO_8").Value
    AllK2Tags.DB.STD_HECFront_RCP_RO_9.Value = rsSrc.Fields("STD_HECFront_RCP_RO_9").Value
    AllK2Tags.DB.STD_HECTail_RCP_RO_1.Value = rsSrc.Fields("STD_HECTail_RCP_RO_1").Value
    AllK2Tags.DB.STD_HECTail_RCP_RO_10.Value = rsSrc.Fields("STD_HECTail_RCP_RO_10").Value
    AllK2Tags.DB.STD_HECTail_RCP_RO_2.Value = rsSrc.Fields("STD_HECTail_RCP_RO_2").Value
    AllK2Tags.DB.STD_HECTail_RCP_RO_3.Value = rsSrc.Fields("STD_HECTail_RCP_RO_3").Value
    AllK2Tags.DB.STD_HECTail_RCP_RO_4.Value = rsSrc.Fields("STD_HECTail_RCP_RO_4").Value
    AllK2Tags.DB.STD_HECTail_RCP_RO_5.Value = rsSrc.Fields("STD_HECTail_RCP_RO_5").Value
    AllK2Tags.DB.STD_HECTail_RCP_RO_6.Value = rsSrc.Fields("STD_HECTail_RCP_RO_6").Value
    AllK2Tags.DB.STD_HECTail_RCP_RO_7.Value = rsSrc.Fields("STD_HECTail_RCP_RO_7").Value
    AllK2Tags.DB.STD_HECTail_RCP_RO_8.Value = rsSrc.Fields("STD_HECTail_RCP_RO_8").Value
    AllK2Tags.DB.STD_HECTail_RCP_RO_9.Value = rsSrc.Fields("STD_HECTail_RCP_RO_9").Value
    AllK2Tags.DB.STD_ImpDrop_RCP_RI_1.Value = rsSrc.Fields("STD_ImpDrop_RCP_RI_1").Value
    AllK2Tags.DB.STD_ImpDrop_RCP_RI_10.Value = rsSrc.Fields("STD_ImpDrop_RCP_RI_10").Value
    AllK2Tags.DB.STD_ImpDrop_RCP_RI_2.Value = rsSrc.Fields("STD_ImpDrop_RCP_RI_2").Value
    AllK2Tags.DB.STD_ImpDrop_RCP_RI_3.Value = rsSrc.Fields("STD_ImpDrop_RCP_RI_3").Value
    AllK2Tags.DB.STD_ImpDrop_RCP_RI_4.Value = rsSrc.Fields("STD_ImpDrop_RCP_RI_4").Value
    AllK2Tags.DB.STD_ImpDrop_RCP_RI_5.Value = rsSrc.Fields("STD_ImpDrop_RCP_RI_5").Value
    AllK2Tags.DB.STD_ImpDrop_RCP_RI_6.Value = rsSrc.Fields("STD_ImpDrop_RCP_RI_6").Value
    AllK2Tags.DB.STD_ImpDrop_RCP_RI_7.Value = rsSrc.Fields("STD_ImpDrop_RCP_RI_7").Value
    AllK2Tags.DB.STD_ImpDrop_RCP_RI_8.Value = rsSrc.Fields("STD_ImpDrop_RCP_RI_8").Value
    AllK2Tags.DB.STD_ImpDrop_RCP_RI_9.Value = rsSrc.Fields("STD_ImpDrop_RCP_RI_9").Value
    AllK2Tags.DB.STD_LeadSpeed_RCP_RI_1.Value = rsSrc.Fields("STD_LeadSpeed_RCP_RI_1").Value
    AllK2Tags.DB.STD_LeadSpeed_RCP_RI_10.Value = rsSrc.Fields("STD_LeadSpeed_RCP_RI_10").Value
    AllK2Tags.DB.STD_LeadSpeed_RCP_RI_2.Value = rsSrc.Fields("STD_LeadSpeed_RCP_RI_2").Value
    AllK2Tags.DB.STD_LeadSpeed_RCP_RI_3.Value = rsSrc.Fields("STD_LeadSpeed_RCP_RI_3").Value
    AllK2Tags.DB.STD_LeadSpeed_RCP_RI_4.Value = rsSrc.Fields("STD_LeadSpeed_RCP_RI_4").Value
    AllK2Tags.DB.STD_LeadSpeed_RCP_RI_5.Value = rsSrc.Fields("STD_LeadSpeed_RCP_RI_5").Value
    AllK2Tags.DB.STD_LeadSpeed_RCP_RI_6.Value = rsSrc.Fields("STD_LeadSpeed_RCP_RI_6").Value
    AllK2Tags.DB.STD_LeadSpeed_RCP_RI_7.Value = rsSrc.Fields("STD_LeadSpeed_RCP_RI_7").Value
    AllK2Tags.DB.STD_LeadSpeed_RCP_RI_8.Value = rsSrc.Fields("STD_LeadSpeed_RCP_RI_8").Value
    AllK2Tags.DB.STD_LeadSpeed_RCP_RI_9.Value = rsSrc.Fields("STD_LeadSpeed_RCP_RI_9").Value
    AllK2Tags.DB.STD_LinSpeed_RCP_RI_1.Value = rsSrc.Fields("STD_LinSpeed_RCP_RI_1").Value
    AllK2Tags.DB.STD_LinSpeed_RCP_RI_10.Value = rsSrc.Fields("STD_LinSpeed_RCP_RI_10").Value
    AllK2Tags.DB.STD_LinSpeed_RCP_RI_2.Value = rsSrc.Fields("STD_LinSpeed_RCP_RI_2").Value
    AllK2Tags.DB.STD_LinSpeed_RCP_RI_3.Value = rsSrc.Fields("STD_LinSpeed_RCP_RI_3").Value
    AllK2Tags.DB.STD_LinSpeed_RCP_RI_4.Value = rsSrc.Fields("STD_LinSpeed_RCP_RI_4").Value
    AllK2Tags.DB.STD_LinSpeed_RCP_RI_5.Value = rsSrc.Fields("STD_LinSpeed_RCP_RI_5").Value
    AllK2Tags.DB.STD_LinSpeed_RCP_RI_6.Value = rsSrc.Fields("STD_LinSpeed_RCP_RI_6").Value
    AllK2Tags.DB.STD_LinSpeed_RCP_RI_7.Value = rsSrc.Fields("STD_LinSpeed_RCP_RI_7").Value
    AllK2Tags.DB.STD_LinSpeed_RCP_RI_8.Value = rsSrc.Fields("STD_LinSpeed_RCP_RI_8").Value
    AllK2Tags.DB.STD_LinSpeed_RCP_RI_9.Value = rsSrc.Fields("STD_LinSpeed_RCP_RI_9").Value
    AllK2Tags.DB.STD_Mode_RCP_RI_1.Value = rsSrc.Fields("STD_Mode_RCP_RI_1").Value
    AllK2Tags.DB.STD_Mode_RCP_RI_10.Value = rsSrc.Fields("STD_Mode_RCP_RI_10").Value
    AllK2Tags.DB.STD_Mode_RCP_RI_2.Value = rsSrc.Fields("STD_Mode_RCP_RI_2").Value
    AllK2Tags.DB.STD_Mode_RCP_RI_3.Value = rsSrc.Fields("STD_Mode_RCP_RI_3").Value
    AllK2Tags.DB.STD_Mode_RCP_RI_4.Value = rsSrc.Fields("STD_Mode_RCP_RI_4").Value
    AllK2Tags.DB.STD_Mode_RCP_RI_5.Value = rsSrc.Fields("STD_Mode_RCP_RI_5").Value
    AllK2Tags.DB.STD_Mode_RCP_RI_6.Value = rsSrc.Fields("STD_Mode_RCP_RI_6").Value
    AllK2Tags.DB.STD_Mode_RCP_RI_7.Value = rsSrc.Fields("STD_Mode_RCP_RI_7").Value
    AllK2Tags.DB.STD_Mode_RCP_RI_8.Value = rsSrc.Fields("STD_Mode_RCP_RI_8").Value
    AllK2Tags.DB.STD_Mode_RCP_RI_9.Value = rsSrc.Fields("STD_Mode_RCP_RI_9").Value
    AllK2Tags.DB.STD_ORD_RCP_RI_1.Value = rsSrc.Fields("STD_ORD_RCP_RI_1").Value
    AllK2Tags.DB.STD_ORD_RCP_RI_10.Value = rsSrc.Fields("STD_ORD_RCP_RI_10").Value
    AllK2Tags.DB.STD_ORD_RCP_RI_2.Value = rsSrc.Fields("STD_ORD_RCP_RI_2").Value
    AllK2Tags.DB.STD_ORD_RCP_RI_3.Value = rsSrc.Fields("STD_ORD_RCP_RI_3").Value
    AllK2Tags.DB.STD_ORD_RCP_RI_4.Value = rsSrc.Fields("STD_ORD_RCP_RI_4").Value
    AllK2Tags.DB.STD_ORD_RCP_RI_5.Value = rsSrc.Fields("STD_ORD_RCP_RI_5").Value
    AllK2Tags.DB.STD_ORD_RCP_RI_6.Value = rsSrc.Fields("STD_ORD_RCP_RI_6").Value
    AllK2Tags.DB.STD_ORD_RCP_RI_7.Value = rsSrc.Fields("STD_ORD_RCP_RI_7").Value
    AllK2Tags.DB.STD_ORD_RCP_RI_8.Value = rsSrc.Fields("STD_ORD_RCP_RI_8").Value
    AllK2Tags.DB.STD_ORD_RCP_RI_9.Value = rsSrc.Fields("STD_ORD_RCP_RI_9").Value
    AllK2Tags.DB.STD_PassNumber_RCP_RI_1.Value = rsSrc.Fields("STD_PassNumber_RCP_RI_1").Value
    AllK2Tags.DB.STD_PassNumber_RCP_RI_10.Value = rsSrc.Fields("STD_PassNumber_RCP_RI_10").Value
    AllK2Tags.DB.STD_PassNumber_RCP_RI_2.Value = rsSrc.Fields("STD_PassNumber_RCP_RI_2").Value
    AllK2Tags.DB.STD_PassNumber_RCP_RI_3.Value = rsSrc.Fields("STD_PassNumber_RCP_RI_3").Value
    AllK2Tags.DB.STD_PassNumber_RCP_RI_4.Value = rsSrc.Fields("STD_PassNumber_RCP_RI_4").Value
    AllK2Tags.DB.STD_PassNumber_RCP_RI_5.Value = rsSrc.Fields("STD_PassNumber_RCP_RI_5").Value
    AllK2Tags.DB.STD_PassNumber_RCP_RI_6.Value = rsSrc.Fields("STD_PassNumber_RCP_RI_6").Value
    AllK2Tags.DB.STD_PassNumber_RCP_RI_7.Value = rsSrc.Fields("STD_PassNumber_RCP_RI_7").Value
    AllK2Tags.DB.STD_PassNumber_RCP_RI_8.Value = rsSrc.Fields("STD_PassNumber_RCP_RI_8").Value
    AllK2Tags.DB.STD_PassNumber_RCP_RI_9.Value = rsSrc.Fields("STD_PassNumber_RCP_RI_9").Value
    AllK2Tags.DB.STD_Reduction_RCP_RI_1.Value = rsSrc.Fields("STD_Reduction_RCP_RI_1").Value
    AllK2Tags.DB.STD_Reduction_RCP_RI_10.Value = rsSrc.Fields("STD_Reduction_RCP_RI_10").Value
    AllK2Tags.DB.STD_Reduction_RCP_RI_2.Value = rsSrc.Fields("STD_Reduction_RCP_RI_2").Value
  ' AllK2Tags.DB.STD_Reduction_RCP_RI_3.Value = rsSrc.Fields("STD_Reduction_RCP_RI_3").Value
  ' AllK2Tags.DB.STD_Reduction_RCP_RI_4.Value = rsSrc.Fields("STD_Reduction_RCP_RI_4").Value
  ' AllK2Tags.DB.STD_Reduction_RCP_RI_5.Value = rsSrc.Fields("STD_Reduction_RCP_RI_5").Value
  ' AllK2Tags.DB.STD_Reduction_RCP_RI_6.Value = rsSrc.Fields("STD_Reduction_RCP_RI_6").Value
  ' AllK2Tags.DB.STD_Reduction_RCP_RI_7.Value = rsSrc.Fields("STD_Reduction_RCP_RI_7").Value
  ' AllK2Tags.DB.STD_Reduction_RCP_RI_8.Value = rsSrc.Fields("STD_Reduction_RCP_RI_8").Value
  ' AllK2Tags.DB.STD_Reduction_RCP_RI_9.Value = rsSrc.Fields("STD_Reduction_RCP_RI_9").Value
    AllK2Tags.DB.STD_Rfact_RCP_RI_1.Value = rsSrc.Fields("STD_Rfact_RCP_RI_1").Value
    AllK2Tags.DB.STD_Rfact_RCP_RI_10.Value = rsSrc.Fields("STD_Rfact_RCP_RI_10").Value
    AllK2Tags.DB.STD_Rfact_RCP_RI_2.Value = rsSrc.Fields("STD_Rfact_RCP_RI_2").Value
    AllK2Tags.DB.STD_Rfact_RCP_RI_3.Value = rsSrc.Fields("STD_Rfact_RCP_RI_3").Value
    AllK2Tags.DB.STD_Rfact_RCP_RI_4.Value = rsSrc.Fields("STD_Rfact_RCP_RI_4").Value
    AllK2Tags.DB.STD_Rfact_RCP_RI_5.Value = rsSrc.Fields("STD_Rfact_RCP_RI_5").Value
    AllK2Tags.DB.STD_Rfact_RCP_RI_6.Value = rsSrc.Fields("STD_Rfact_RCP_RI_6").Value
    AllK2Tags.DB.STD_Rfact_RCP_RI_7.Value = rsSrc.Fields("STD_Rfact_RCP_RI_7").Value
    AllK2Tags.DB.STD_Rfact_RCP_RI_8.Value = rsSrc.Fields("STD_Rfact_RCP_RI_8").Value
    AllK2Tags.DB.STD_Rfact_RCP_RI_9.Value = rsSrc.Fields("STD_Rfact_RCP_RI_9").Value
    AllK2Tags.DB.STD_RollSetID_RCP_RI_1.Value = rsSrc.Fields("STD_RollSetID_RCP_RI_1").Value
    AllK2Tags.DB.STD_RollSetID_RCP_RI_10.Value = rsSrc.Fields("STD_RollSetID_RCP_RI_10").Value
    AllK2Tags.DB.STD_RollSetID_RCP_RI_2.Value = rsSrc.Fields("STD_RollSetID_RCP_RI_2").Value
    AllK2Tags.DB.STD_RollSetID_RCP_RI_3.Value = rsSrc.Fields("STD_RollSetID_RCP_RI_3").Value
    AllK2Tags.DB.STD_RollSetID_RCP_RI_4.Value = rsSrc.Fields("STD_RollSetID_RCP_RI_4").Value
    AllK2Tags.DB.STD_RollSetID_RCP_RI_5.Value = rsSrc.Fields("STD_RollSetID_RCP_RI_5").Value
    AllK2Tags.DB.STD_RollSetID_RCP_RI_6.Value = rsSrc.Fields("STD_RollSetID_RCP_RI_6").Value
    AllK2Tags.DB.STD_RollSetID_RCP_RI_7.Value = rsSrc.Fields("STD_RollSetID_RCP_RI_7").Value
    AllK2Tags.DB.STD_RollSetID_RCP_RI_8.Value = rsSrc.Fields("STD_RollSetID_RCP_RI_8").Value
    AllK2Tags.DB.STD_RollSetID_RCP_RI_9.Value = rsSrc.Fields("STD_RollSetID_RCP_RI_9").Value
    AllK2Tags.DB.STD_RollSetID2_RCP_RI_1.Value = rsSrc.Fields("STD_RollSetID2_RCP_RI_1").Value
    AllK2Tags.DB.STD_RollSetID2_RCP_RI_10.Value = rsSrc.Fields("STD_RollSetID2_RCP_RI_10").Value
    AllK2Tags.DB.STD_RollSetID2_RCP_RI_2.Value = rsSrc.Fields("STD_RollSetID2_RCP_RI_2").Value
    AllK2Tags.DB.STD_RollSetID2_RCP_RI_3.Value = rsSrc.Fields("STD_RollSetID2_RCP_RI_3").Value
    AllK2Tags.DB.STD_RollSetID2_RCP_RI_4.Value = rsSrc.Fields("STD_RollSetID2_RCP_RI_4").Value
    AllK2Tags.DB.STD_RollSetID2_RCP_RI_5.Value = rsSrc.Fields("STD_RollSetID2_RCP_RI_5").Value
    AllK2Tags.DB.STD_RollSetID2_RCP_RI_6.Value = rsSrc.Fields("STD_RollSetID2_RCP_RI_6").Value
    AllK2Tags.DB.STD_RollSetID2_RCP_RI_7.Value = rsSrc.Fields("STD_RollSetID2_RCP_RI_7").Value
    AllK2Tags.DB.STD_RollSetID2_RCP_RI_8.Value = rsSrc.Fields("STD_RollSetID2_RCP_RI_8").Value
    AllK2Tags.DB.STD_RollSetID2_RCP_RI_9.Value = rsSrc.Fields("STD_RollSetID2_RCP_RI_9").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_1.Value = rsSrc.Fields("STD_RollShape_RCP_RI_1").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_10.Value = rsSrc.Fields("STD_RollShape_RCP_RI_10").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_2.Value = rsSrc.Fields("STD_RollShape_RCP_RI_2").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_3.Value = rsSrc.Fields("STD_RollShape_RCP_RI_3").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_4.Value = rsSrc.Fields("STD_RollShape_RCP_RI_4").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_5.Value = rsSrc.Fields("STD_RollShape_RCP_RI_5").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_6.Value = rsSrc.Fields("STD_RollShape_RCP_RI_6").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_7.Value = rsSrc.Fields("STD_RollShape_RCP_RI_7").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_8.Value = rsSrc.Fields("STD_RollShape_RCP_RI_8").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_9.Value = rsSrc.Fields("STD_RollShape_RCP_RI_9").Value
    AllK2Tags.DB.STD_RPM_RCP_RO_1.Value = rsSrc.Fields("STD_RPM_RCP_RO_1").Value
    AllK2Tags.DB.STD_RPM_RCP_RO_10.Value = rsSrc.Fields("STD_RPM_RCP_RO_10").Value
    AllK2Tags.DB.STD_RPM_RCP_RO_2.Value = rsSrc.Fields("STD_RPM_RCP_RO_2").Value
    AllK2Tags.DB.STD_RPM_RCP_RO_3.Value = rsSrc.Fields("STD_RPM_RCP_RO_3").Value
    AllK2Tags.DB.STD_RPM_RCP_RO_4.Value = rsSrc.Fields("STD_RPM_RCP_RO_4").Value
    AllK2Tags.DB.STD_RPM_RCP_RO_5.Value = rsSrc.Fields("STD_RPM_RCP_RO_5").Value
    AllK2Tags.DB.STD_RPM_RCP_RO_6.Value = rsSrc.Fields("STD_RPM_RCP_RO_6").Value
    AllK2Tags.DB.STD_RPM_RCP_RO_7.Value = rsSrc.Fields("STD_RPM_RCP_RO_7").Value
    AllK2Tags.DB.STD_RPM_RCP_RO_8.Value = rsSrc.Fields("STD_RPM_RCP_RO_8").Value
    AllK2Tags.DB.STD_RPM_RCP_RO_9.Value = rsSrc.Fields("STD_RPM_RCP_RO_9").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_1.Value = rsSrc.Fields("STD_RollShape_RCP_RI_1").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_10.Value = rsSrc.Fields("STD_RollShape_RCP_RI_10").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_2.Value = rsSrc.Fields("STD_RollShape_RCP_RI_2").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_3.Value = rsSrc.Fields("STD_RollShape_RCP_RI_3").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_4.Value = rsSrc.Fields("STD_RollShape_RCP_RI_4").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_5.Value = rsSrc.Fields("STD_RollShape_RCP_RI_5").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_6.Value = rsSrc.Fields("STD_RollShape_RCP_RI_6").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_7.Value = rsSrc.Fields("STD_RollShape_RCP_RI_7").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_8.Value = rsSrc.Fields("STD_RollShape_RCP_RI_8").Value
    AllK2Tags.DB.STD_RollShape_RCP_RI_9.Value = rsSrc.Fields("STD_RollShape_RCP_RI_9").Value
    AllK2Tags.DB.STD_SpareInt_RCP_RI_1.Value = rsSrc.Fields("STD_SpareInt_RCP_RI_1").Value
    AllK2Tags.DB.STD_SpareInt_RCP_RI_10.Value = rsSrc.Fields("STD_SpareInt_RCP_RI_10").Value
    AllK2Tags.DB.STD_SpareInt_RCP_RI_2.Value = rsSrc.Fields("STD_SpareInt_RCP_RI_2").Value
    AllK2Tags.DB.STD_SpareInt_RCP_RI_3.Value = rsSrc.Fields("STD_SpareInt_RCP_RI_3").Value
    AllK2Tags.DB.STD_SpareInt_RCP_RI_4.Value = rsSrc.Fields("STD_SpareInt_RCP_RI_4").Value
    AllK2Tags.DB.STD_SpareInt_RCP_RI_5.Value = rsSrc.Fields("STD_SpareInt_RCP_RI_5").Value
    AllK2Tags.DB.STD_SpareInt_RCP_RI_6.Value = rsSrc.Fields("STD_SpareInt_RCP_RI_6").Value
    AllK2Tags.DB.STD_SpareInt_RCP_RI_7.Value = rsSrc.Fields("STD_SpareInt_RCP_RI_7").Value
    AllK2Tags.DB.STD_SpareInt_RCP_RI_8.Value = rsSrc.Fields("STD_SpareInt_RCP_RI_8").Value
    AllK2Tags.DB.STD_SpareInt_RCP_RI_9.Value = rsSrc.Fields("STD_SpareInt_RCP_RI_9").Value
    AllK2Tags.DB.STD_SpareReal_RCP_RI_1.Value = rsSrc.Fields("STD_SpareReal_RCP_RI_1").Value
    AllK2Tags.DB.STD_SpareReal_RCP_RI_10.Value = rsSrc.Fields("STD_SpareReal_RCP_RI_10").Value
    AllK2Tags.DB.STD_SpareReal_RCP_RI_2.Value = rsSrc.Fields("STD_SpareReal_RCP_RI_2").Value
    AllK2Tags.DB.STD_SpareReal_RCP_RI_3.Value = rsSrc.Fields("STD_SpareReal_RCP_RI_3").Value
    AllK2Tags.DB.STD_SpareReal_RCP_RI_4.Value = rsSrc.Fields("STD_SpareReal_RCP_RI_4").Value
    AllK2Tags.DB.STD_SpareReal_RCP_RI_5.Value = rsSrc.Fields("STD_SpareReal_RCP_RI_5").Value
    AllK2Tags.DB.STD_SpareReal_RCP_RI_6.Value = rsSrc.Fields("STD_SpareReal_RCP_RI_6").Value
    AllK2Tags.DB.STD_SpareReal_RCP_RI_7.Value = rsSrc.Fields("STD_SpareReal_RCP_RI_7").Value
    AllK2Tags.DB.STD_SpareReal_RCP_RI_8.Value = rsSrc.Fields("STD_SpareReal_RCP_RI_8").Value
    AllK2Tags.DB.STD_SpareReal_RCP_RI_9.Value = rsSrc.Fields("STD_SpareReal_RCP_RI_9").Value
    AllK2Tags.DB.STD_TangentAngle_RCP_RI_1.Value = rsSrc.Fields("STD_TangentAngle_RCP_RI_1").Value
    AllK2Tags.DB.STD_TangentAngle_RCP_RI_10.Value = rsSrc.Fields("STD_TangentAngle_RCP_RI_10").Value
    AllK2Tags.DB.STD_TangentAngle_RCP_RI_2.Value = rsSrc.Fields("STD_TangentAngle_RCP_RI_2").Value
    AllK2Tags.DB.STD_TangentAngle_RCP_RI_3.Value = rsSrc.Fields("STD_TangentAngle_RCP_RI_3").Value
    AllK2Tags.DB.STD_TangentAngle_RCP_RI_4.Value = rsSrc.Fields("STD_TangentAngle_RCP_RI_4").Value
    AllK2Tags.DB.STD_TangentAngle_RCP_RI_5.Value = rsSrc.Fields("STD_TangentAngle_RCP_RI_5").Value
    AllK2Tags.DB.STD_TangentAngle_RCP_RI_6.Value = rsSrc.Fields("STD_TangentAngle_RCP_RI_6").Value
    AllK2Tags.DB.STD_TangentAngle_RCP_RI_7.Value = rsSrc.Fields("STD_TangentAngle_RCP_RI_7").Value
    AllK2Tags.DB.STD_TangentAngle_RCP_RI_8.Value = rsSrc.Fields("STD_TangentAngle_RCP_RI_8").Value
    AllK2Tags.DB.STD_TangentAngle_RCP_RI_9.Value = rsSrc.Fields("STD_TangentAngle_RCP_RI_9").Value

    Exit Sub

ErrHandler:
    MsgBox Err.Description

End Sub

Private Function MoveProductEntry(ByRef mp As MoveProduct, Optional bErase As Boolean = False)
    Dim bTxt As Boolean
    Dim i As Integer
'    Dim strFld, strVal As String
    Dim cmd As New ADODB.Command
    Dim rsSrc As New ADODB.Recordset
    On Error GoTo ErrHandler


    ' the whole contents of the destination table must be erased, e.g download operation,
    ' where a single product entry is copied and the destination is the download table
    If (bErase) Then
        cmd.ActiveConnection = mp.cnDst
        cmd.CommandText = "DELETE FROM " & mp.strTable
        cmd.Execute

        cmd.CommandText = "SELECT * FROM " & mp.strTable & " WHERE RcpID = '" & mp.strId & "'"
        rsSrc.Open cmd.CommandText, mp.cnSrc

        If (rsSrc.BOF And rsSrc.EOF) Then
            MoveProductEntry = -1
            Exit Function
        End If
  ' a single product entry with a particular ID from the destination table must be erased, e.g upload operation,
    ' where a single product entry is copied and the destination is the main recipe table
    Else
        cmd.CommandText = "SELECT * FROM " & mp.strTable
        rsSrc.Open cmd.CommandText, mp.cnSrc

        If (rsSrc.BOF And rsSrc.EOF) Then
            MoveProductEntry = -1
            Exit Function
        End If

        If (rsSrc.BOF = False) Then
            rsSrc.MoveFirst
        End If

        cmd.CommandText = "SELECT * FROM " & mp.strTable & " WHERE RcpID = '" & rsSrc("RcpID") & "'"
        rsDst.Open cmd.CommandText, mp.cnDst

        If ((rsDst.BOF And rsDst.EOF) = False) Then
            cmd.ActiveConnection = mp.cnDst
            cmd.CommandText = "DELETE FROM " & mp.strTable & " WHERE RcpID = '" & rsSrc("RcpID") & "'"
            cmd.Execute
        End If
    End If

    If (rsSrc.BOF = False) Then
        rsSrc.MoveFirst
    End If

        cmd.CommandText = "INSERT INTO [Perryman_Temp]." & mp.strTable & " SELECT * FROM [Perryman]." & mp.strTable & " WHERE RcpID = '" & rsSrc("RcpID") & "'"
        cmd.ActiveConnection = mp.cnDst
        cmd.Execute

        rsSrc.MoveNext

    Exit Function

ErrHandler:
    MsgBox Err.Description

End Function

Private Sub Display_KeyUp(ByVal KeyCode As Integer, ByVal Shift As Integer)

End Sub

' * * * * * * * * THIS ROUTINE WORKS - DO NOT MODIFY IT  * * * * * * * *


Private Sub Display_Load()
 Set ThisDisplay.MyTagGroup = Application.CreateTagGroup(ThisDisplay.AreaName)

 InductoATagsModule.AddInductoAGroup
 InductoBTagsModule.AddInductoBGroup
 K2SetupTagModule.AddK2SetupGroup
 KocksSetupTagModule.AddKocksSetupGroup
 QSetupTagModule.AddQSetupGroup
 MasterTagModule.AddMasterTag
 QProdModule.AddQProdGroup
 PopUpTagModule.AddPopUpTag



' Defining Height and Width for flxResult object Column
 flxResult.ColWidth(1) = 5000
 flxResult.ColWidth(2) = 1000
 flxResult.ColWidth(3) = 1000
 flxResult.ColWidth(4) = 1500
 flxResult.ColWidth(5) = 8500
 flxResult.ColWidth(6) = 2200

 RcpID.Width = 155
 RcpID.Height = 25
 RcpGrade.Width = 155
 RcpGrade.Height = 25
 RcpRough.Width = 155
 RcpRough.Height = 25
 RcpFinish.Width = 155
 RcpFinish.Height = 25
 RcpDsc.Width = 155
 RcpDsc.Height = 25

 'AddCbLt "RcpGrade"
 'AddLtEntry "RcpGrade", "0", "Undefined"
 'AddLtEntry "RcpGrade", "1", "TI 6/4"
 'AddLtEntry "RcpGrade", "2", "NI"
 'AddLtEntry "RcpGrade", "3", "CP"
 'AddLtEntry "RcpGrade", "4", "Steel"
 'AddLtEntry "RcpGrade", "", "Other"


' Define how many colum and Row the Matrix will have
'   flxResult.Cols = 6
'   flxResult.Rows = 20
    flxResult.TextMatrix(0, 1) = "Setup ID"
    flxResult.TextMatrix(0, 2) = "Grade"
    flxResult.TextMatrix(0, 3) = "Rough"
    flxResult.TextMatrix(0, 4) = "Finish"
    flxResult.TextMatrix(0, 5) = "Description"
    flxResult.TextMatrix(0, 6) = "Date"

    strTable = "dbo.Master"
    strCdn = ""
    strSql = "SELECT * FROM " & strTable
    clType.RemoveAll

'Initializa ComboBox
    InitCb
    flxResult.TextMatrix(0, 1) = "Setup ID"
    flxResult.TextMatrix(0, 2) = "Grade"
    flxResult.TextMatrix(0, 3) = "Rough"
    flxResult.TextMatrix(0, 4) = "Finish"
    flxResult.TextMatrix(0, 5) = "Description"
    flxResult.TextMatrix(0, 6) = "Date"

End Sub


' * * * * * * * * THIS ROUTINE WORKS - DO NOT MODIFY IT  * * * * * * * *


Private Sub InitCb() 'THIS ROUTINE WORKS - DO NOT MODIFY IT
    Dim strCol, strSql, strVal, strDsc As String
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset

    RcpID.Clear
    RcpID.AddItem "N/A"
    RcpGrade.Clear
    RcpGrade.AddItem "N/A"
    RcpRough.Clear
    RcpRough.AddItem "N/A"
    RcpFinish.Clear
    RcpFinish.AddItem "N/A"
    RcpDsc.Clear
    RcpDsc.AddItem "N/A"


    cn.Open ("DSN=DSN_Perryman")

 ' * * * * * * * * * Recipe ID * * * * * * * * *
    strCol = RcpID.Name
    LTrim (strCol)
    RTrim (strCol)

    If (strCol = "") Then
        Exit Sub
    End If

    strSql = "SELECT DISTINCT " & strCol & " FROM dbo.Master"

    rs.Open strSql, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly

    If ((rs.Fields(0).Type = ADODB.DataTypeEnum.adVarChar) Or (rs.Fields(0).Type = ADODB.DataTypeEnum.adWChar)) Then
        clType.Add RcpID.Name, ""
    End If

    If (rs.BOF And rs.EOF) Then
        Exit Sub
    End If

    rs.MoveFirst
    While (rs.EOF = False)
        strVal = ""
        If ((rs.Fields(0) Is Nothing) = False) Then
            strVal = rs.Fields(0).Value
        End If

        LTrim (strVal)
        RTrim (strVal)

        If (strVal <> "") Then
            strDsc = ""
            If (clLtDb.Exists(RcpID.Name)) Then
                GetLtDsc RcpID.Name, CStr(strVal), strDsc
                strDsc = LTrim(strDsc)
                strDsc = RTrim(strDsc)
                If (strDsc <> "") Then
                    RcpID.AddItem (strDsc)
                End If
            Else
                RcpID.AddItem (strVal)
            End If
        End If
        rs.MoveNext
    Wend

    If (RcpID.ListCount > 0) Then
        RcpID.ListIndex = 0
    End If

    rs.Close



 ' * * * * * * * * * Recipe Grade * * * * * * * * *
    strCol = RcpGrade.Name
    LTrim (strCol)
    RTrim (strCol)

    If (strCol = "") Then
        Exit Sub
    End If

    strSql = "SELECT DISTINCT " & strCol & " FROM dbo.Master"

    rs.Open strSql, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly

    If ((rs.Fields(0).Type = ADODB.DataTypeEnum.adVarChar) Or (rs.Fields(0).Type = ADODB.DataTypeEnum.adWChar)) Then
        clType.Add RcpGrade.Name, ""
    End If

    If (rs.BOF And rs.EOF) Then
        Exit Sub
    End If

    rs.MoveFirst
    While (rs.EOF = False)
        strVal = ""
        If ((rs.Fields(0) Is Nothing) = False) Then
            strVal = rs.Fields(0).Value
        End If

        LTrim (strVal)
        RTrim (strVal)

        If (strVal <> "") Then
            strDsc = ""
            If (clLtDb.Exists(RcpGrade.Name)) Then
                GetLtDsc RcpGrade.Name, CStr(strVal), strDsc
                strDsc = LTrim(strDsc)
                strDsc = RTrim(strDsc)
                If (strDsc <> "") Then
                    RcpGrade.AddItem (strDsc)
                End If
            Else
                RcpGrade.AddItem (strVal)
            End If
        End If
        rs.MoveNext
    Wend

    If (RcpGrade.ListCount > 0) Then
        RcpGrade.ListIndex = 0
    End If

    rs.Close


' * * * * * * * * * Recipe Rough * * * * * * * * *
    strCol = RcpRough.Name
    LTrim (strCol)
    RTrim (strCol)
    If (strCol = "") Then
        Exit Sub
    End If
    strSql = "SELECT DISTINCT " & strCol & " FROM dbo.Master"
    rs.Open strSql, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly
    If ((rs.Fields(0).Type = ADODB.DataTypeEnum.adVarChar) Or (rs.Fields(0).Type = ADODB.DataTypeEnum.adWChar)) Then
        clType.Add RcpRough.Name, ""
    End If
    If (rs.BOF And rs.EOF) Then
        Exit Sub
    End If
    rs.MoveFirst
    While (rs.EOF = False)
        strVal = ""
        If ((rs.Fields(0) Is Nothing) = False) Then
            strVal = rs.Fields(0).Value
        End If
        LTrim (strVal)
        RTrim (strVal)
        If (strVal <> "") Then
            strDsc = ""
            If (clLtDb.Exists(RcpRough.Name)) Then
                GetLtDsc RcpRough.Name, CStr(strVal), strDsc
                strDsc = LTrim(strDsc)
                strDsc = RTrim(strDsc)
                If (strDsc <> "") Then
                    RcpRough.AddItem (strDsc)
                End If
            Else
                RcpRough.AddItem (strVal)
            End If
        End If
        rs.MoveNext
    Wend
    If (RcpRough.ListCount > 0) Then
        RcpRough.ListIndex = 0
    End If
    rs.Close

 ' * * * * * * * * * Recipe Finish * * * * * * * * *
    strCol = RcpFinish.Name
    LTrim (strCol)
    RTrim (strCol)
    If (strCol = "") Then
        Exit Sub
    End If
    strSql = "SELECT DISTINCT " & strCol & " FROM dbo.Master"
    rs.Open strSql, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly
    If ((rs.Fields(0).Type = ADODB.DataTypeEnum.adVarChar) Or (rs.Fields(0).Type = ADODB.DataTypeEnum.adWChar)) Then
        clType.Add RcpFinish.Name, ""
    End If
    If (rs.BOF And rs.EOF) Then
        Exit Sub
    End If
    rs.MoveFirst
    While (rs.EOF = False)
        strVal = ""
        If ((rs.Fields(0) Is Nothing) = False) Then
            strVal = rs.Fields(0).Value
        End If
        LTrim (strVal)
        RTrim (strVal)
        If (strVal <> "") Then
            strDsc = ""
            If (clLtDb.Exists(RcpFinish.Name)) Then
                GetLtDsc RcpFinish.Name, CStr(strVal), strDsc
                strDsc = LTrim(strDsc)
                strDsc = RTrim(strDsc)
                If (strDsc <> "") Then
                    RcpFinish.AddItem (strDsc)
                End If
            Else
                RcpFinish.AddItem (strVal)
            End If
        End If
        rs.MoveNext
    Wend
    If (RcpFinish.ListCount > 0) Then
        RcpFinish.ListIndex = 0
    End If
    rs.Close

 ' * * * * * * * * * Recipe Description * * * * * * * * *
    strCol = RcpDsc.Name
    LTrim (strCol)
    RTrim (strCol)
    If (strCol = "") Then
        Exit Sub
    End If
    strSql = "SELECT DISTINCT " & strCol & " FROM dbo.Master"
    rs.Open strSql, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly
    If ((rs.Fields(0).Type = ADODB.DataTypeEnum.adVarChar) Or (rs.Fields(0).Type = ADODB.DataTypeEnum.adWChar)) Then
        clType.Add RcpDsc.Name, ""
    End If
    If (rs.BOF And rs.EOF) Then
        Exit Sub
    End If
    rs.MoveFirst
    While (rs.EOF = False)
        strVal = ""
        If ((rs.Fields(0) Is Nothing) = False) Then
            strVal = rs.Fields(0).Value
        End If
        LTrim (strVal)
        RTrim (strVal)
        If (strVal <> "") Then
            strDsc = ""
            If (clLtDb.Exists(RcpDsc.Name)) Then
                GetLtDsc RcpDsc.Name, CStr(strVal), strDsc
                strDsc = LTrim(strDsc)
                strDsc = RTrim(strDsc)
                If (strDsc <> "") Then
                    RcpDsc.AddItem (strDsc)
                End If
            Else
                RcpDsc.AddItem (strVal)
            End If
        End If
        rs.MoveNext
    Wend
    If (RcpDsc.ListCount > 0) Then
        RcpDsc.ListIndex = 0
    End If
    rs.Close

    cn.Close

End Sub



' * * * * * * * * THIS ROUTINE WORKS - DO NOT MODIFY IT  * * * * * * * *



Private Sub AddCbCondition() 'ByRef cb As ComboBox, ByRef strCdn As String)
    Dim rc As Integer
    Dim strVal, trDsc As String

    strVal = ""
    strCdn = ""

    If (RcpID.Text = "N/A" And RcpGrade.Text = "N/A" And RcpFinish.Text = "N/A" And RcpRough.Text = "N/A" And RcpDsc.Text = "N/A") Then
        Exit Sub
    End If

' * * * * * * * * * Recipe Identfication * * * * * * * * *
 If (RcpID.Text <> "N/A") Then
    If (clLtDb.Exists(RcpID.Name)) Then
        strDsc = RcpID.Text
        strVal = GetLtVal(RcpID.Name, strDsc, (strVal))
    Else
        strVal = RcpID.Text
    End If
    LTrim (strVal)
    RTrim (strVal)

    If (strVal = "") Then
        Exit Sub
    End If

    If (Len(strCdn) = 0) Then
        strCdn = " WHERE "
    Else
        strCdn = strCdn & " AND "
    End If
    strCdn = strCdn & RcpID.Name & " = '"

    If (clType.Exists(RcpID.Name)) Then
        If (TypeName(clType(RcpID.Name)) = "String") Then
            strCdn = strCdn & strVal & "'"
        End If
    End If
End If

' * * * * * * * * * Recipe Grade * * * * * * * * *
 If (RcpGrade.Text <> "N/A") Then
    If (clLtDb.Exists(RcpGrade.Name)) Then
        strDsc = RcpGrade.Text
        strVal = GetLtVal(RcpGrade.Name, strDsc, (strVal))
    Else
        strVal = RcpGrade.Text
    End If
    LTrim (strVal)
    RTrim (strVal)

    If (strVal = "") Then
        Exit Sub
    End If

    If (Len(strCdn) = 0) Then
        strCdn = " WHERE "
    Else
        strCdn = strCdn & " AND "
    End If
    strCdn = strCdn & RcpGrade.Name & " = '"

    If (clType.Exists(RcpGrade.Name)) Then
        If (TypeName(clType(RcpGrade.Name)) = "String") Then
            strCdn = strCdn & strVal & "'"
        End If
    End If
End If


' * * * * * * * * * Recipe Rough * * * * * * * * *
 If (RcpRough.Text <> "N/A") Then
    If (clLtDb.Exists(RcpRough.Name)) Then
        strDsc = RcpRough.Text
        strVal = GetLtVal(RcpRough.Name, strDsc, (strVal))
    Else
        strVal = RcpRough.Text
    End If
    LTrim (strVal)
    RTrim (strVal)

    If (strVal = "") Then
        Exit Sub
    End If

    If (Len(strCdn) = 0) Then
        strCdn = " WHERE "
    Else
        strCdn = strCdn & " AND "
    End If
    strCdn = strCdn & RcpRough.Name & " = " & strVal

 '   If (clType.Exists(RcpRough.Name)) Then
 '       If (TypeName(clType(RcpRough.Name)) = "String") Then
 '           strCdn = strCdn & strVal & "'"
 '       End If
 '   End If

End If


' * * * * * * * * * Recipe Finish * * * * * * * * *
 If (RcpFinish.Text <> "N/A") Then
    If (clLtDb.Exists(RcpFinish.Name)) Then
        strDsc = RcpFinish.Text
        strVal = GetLtVal(RcpFinish.Name, strDsc, (strVal))
    Else
        strVal = RcpFinish.Text
    End If
    LTrim (strVal)
    RTrim (strVal)

    If (strVal = "") Then
        Exit Sub
    End If

    If (Len(strCdn) = 0) Then
        strCdn = " WHERE "
    Else
        strCdn = strCdn & " AND "
    End If
    strCdn = strCdn & RcpFinish.Name & " = " & strVal

'    If (clType.Exists(RcpFinish.Name)) Then
'        If (TypeName(clType(RcpFinish.Name)) = "String") Then
'            strCdn = strCdn & strVal & "'"
'        End If
'    End If
End If


' * * * * * * * * * Recipe Description * * * * * * * * *
 If (RcpDsc.Text <> "N/A") Then
    If (clLtDb.Exists(RcpDsc.Name)) Then
        strDsc = RcpDsc.Text
        strVal = GetLtVal(RcpDsc.Name, strDsc, (strVal))
    Else
        strVal = RcpDsc.Text
    End If
    LTrim (strVal)
    RTrim (strVal)

    If (strVal = "") Then
        Exit Sub
    End If

    If (Len(strCdn) = 0) Then
        strCdn = " WHERE "
    Else
        strCdn = strCdn & " AND "
    End If
    strCdn = strCdn & RcpDsc.Name & " = '"

    If (clType.Exists(RcpDsc.Name)) Then
        If (TypeName(clType(RcpDsc.Name)) = "String") Then
            strCdn = strCdn & strVal & "'"
        End If
    End If
End If

End Sub


Private Sub Display_Unload()
flxResult.Clear

End Sub

Private Sub flxResult_Click()
Dim Data As FlexgridData
Dim cnSrc As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim AllMTags As MasterTags


    'Creates all tags
    AllMTags = TGroup.LoadMasterTags

    ' Saves the row clicked on by user and stores it so we can query all tables in the database with the selected row
    iRow = flxResult.RowSel
    If (iRow < 1) Then
        Exit Sub
    End If

    ' Populates the UDT
    Data.RcpID = flxResult.TextMatrix(iRow, 1)

    cnSrc.Open ("DSN=DSN_Perryman")
    cmd.ActiveConnection = cnSrc
    cmd.CommandText = "SELECT * FROM dbo.Master WHERE [RcpID]= '" & Data.RcpID & "'"
    rs.Open cmd.CommandText, cnSrc

    ' Case where the table is empty
    If (rs.BOF And rs.EOF) Then
            Exit Sub
        End If

    ' Case where not at the beginning of the table
    If (rs.BOF = False) Then
        rs.MoveFirst
    End If

    'Set values to tags
    AllMTags.RcpID.Value = rs.Fields("RcpID").Value
    AllMTags.RcpGrade.Value = rs.Fields("RcpGrade").Value
    AllMTags.RcpRough.Value = rs.Fields("RcpRough").Value
    AllMTags.RcpFinish.Value = rs.Fields("RcpFinish").Value
    AllMTags.RcpDsc.Value = rs.Fields("RcpDsc").Value

    ' Sets the RcpID_Delete tag in the event that the row selected will be deleted
    RcpIDtobeDeleted = flxResult.TextMatrix(iRow, 1)
    MyTagGroup.Add "{RCP\RcpID_Delete}"
    Set Tag_RcpIDtobeDeleted = MyTagGroup.Item("{RCP\RcpID_Delete}")
    Tag_RcpIDtobeDeleted.Value = RcpIDtobeDeleted


ErrHandler:
    Exit Sub

End Sub

Private Sub flxResult_KeyUp(KeyCode As Integer, ByVal Shift As Integer)

End Sub

Private Sub flxResult_LeaveCell()

End Sub

Private Sub Group43_Click()

End Sub

Private Sub RcpGrade_Change()
    S = RcpGrade.ProgID
End Sub
Private Sub BtnDeleteRcp_Released()
    Dim cnSrc As New ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim rs As ADODB.Recordset
    Dim RcpIDtobeDeleted As String
    Dim Value As Integer
    On Error GoTo ErrHandler

    iRow = flxResult.RowSel
    If (iRow < 1) Then
        Exit Sub
    End If

    RcpIDtobeDeleted = flxResult.TextMatrix(iRow, 1)

    cnSrc.Open ("DSN=DSN_Perryman")
    cmd.ActiveConnection = cnSrc

    cmd.CommandText = "DELETE FROM Inducto_A" & " WHERE RcpID = '" & RcpIDtobeDeleted & "'"
    cmd.Execute

    cmd.CommandText = "DELETE FROM Inducto_B" & " WHERE RcpID = '" & RcpIDtobeDeleted & "'"
    cmd.Execute

    cmd.CommandText = "DELETE FROM Kocks_Setup" & " WHERE RcpID = '" & RcpIDtobeDeleted & "'"
    cmd.Execute

    cmd.CommandText = "DELETE FROM K2_Setup" & " WHERE RcpID = '" & RcpIDtobeDeleted & "'"
    cmd.Execute

    cmd.CommandText = "DELETE FROM Master" & " WHERE RcpID = '" & RcpIDtobeDeleted & "'"
    cmd.Execute

    cmd.CommandText = "DELETE FROM Q_Prod" & " WHERE RcpID = '" & RcpIDtobeDeleted & "'"
    cmd.Execute

    cmd.CommandText = "DELETE FROM Q_Setup" & " WHERE RcpID = '" & RcpIDtobeDeleted & "'"
    cmd.Execute


    flxResult.RemoveItem (iRow)
    Set MyTagGroup = Nothing

    Exit Sub

ErrHandler:
    Exit Sub

End Sub
Private Sub LoginButton_Press()

Set MyTagGroup = Application.CreateTagGroup(Me.AreaName)
MyTagGroup.Add "{Username}"
MyTagGroup.Add "{Password}"
MyTagGroup.Add "{Login_Accepted}"

Dim Username As String
Dim Password As String
Dim Accepted As Integer

Username = "Admin"
Password = "Password1"

Dim Tag_Username As Tag
Dim Tag_Password As Tag
Dim Tag_Accepted As Tag

Set Tag_Username = MyTagGroup.Item("{Username}")
Set Tag_Password = MyTagGroup.Item("{Password}")
Set Tag_Accepted = MyTagGroup.Item("{Login_Accepted}")

If Tag_Username.Value = Username Then

        If Tag_Password.Value = Password Then
           Tag_Accepted.Value = 1
        Else
            Tag_Accepted.Value = 0
            Tag_Password.Value = "Invalid Password"
        End If
Else
    Tag_Username.Value = "Invalid User"
End If

End Sub
Private Sub BtnSearch_Released()
    Dim i As Integer
    'Dim strSql, strCdn, strGrade As String
    'Dim strGrade As String
    Dim strRough As String
    Dim StrFinish As String
    Dim TextArray() As String
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset

    ThisDisplay.flxResult.Redraw = False

    strTable = "dbo.Master"

    strCdn = ""
    strSql = "SELECT * FROM " & strTable

    AddCbCondition

    flxResult.Clear

    strSql = strSql & strCdn
    strSql = strSql & " ORDER BY RcpId, RcpGrade, RcpRough"
    cn.Open ("DSN=DSN_Perryman")
'    rs.Open strSql, cn, ADODB.adOpenStatic ', ADODB.adLockReadOnly
    rs.Open strSql, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly

    If (rs.BOF = False) Then
        rs.MoveFirst
    End If

    i = 1

    'flxResult.Rows = 2
    'strGrade = ""
    While (rs.EOF = False)
        flxResult.TextMatrix(i, 0) = i
        flxResult.TextMatrix(i, 1) = rs.Fields("RcpId").Value
        flxResult.TextMatrix(i, 2) = rs.Fields("RcpGrade").Value
        'GetLtDsc RcpGrade.Name, CStr(rs.Fields("RcpGrade").Value), strGrade
        'flxResult.TextMatrix(i, 2) = strGrade

        'Makes Rough 3 decimal places in display only
        strRough = CStr(rs.Fields("RcpRough").Value) & ".0"
        TextArray = Split(strRough, ".")
        If Len(TextArray(1)) = 1 Then
            strRough = TextArray(0) & "." & TextArray(1) & "00"

        ElseIf Len(TextArray(1)) = 2 Then

            strRough = TextArray(0) & "." & TextArray(1) & "0"

        Else

            strRough = TextArray(0) & "." & TextArray(1)

        End If
        flxResult.TextMatrix(i, 3) = strRough
        'makes Finish 3 decimal places in display only

        StrFinish = CStr(rs.Fields("RcpFinish").Value) & ".0"
        TextArray = Split(StrFinish, ".")
        If Len(TextArray(1)) = 1 Then
            StrFinish = TextArray(0) & "." & TextArray(1) & "00"

        ElseIf Len(TextArray(1)) = 2 Then
            StrFinish = TextArray(0) & "." & TextArray(1) & "0"

        Else

            StrFinish = TextArray(0) & "." & TextArray(1)

        End If

        flxResult.TextMatrix(i, 4) = StrFinish
        flxResult.TextMatrix(i, 5) = rs.Fields("RcpDsc").Value
        flxResult.TextMatrix(i, 6) = rs.Fields("RcpDate").Value

        rs.MoveNext

        i = i + 1
        flxResult.Rows = flxResult.Rows + 1
    Wend

    flxResult.Rows = flxResult.Rows - 1

    rs.Close
    cn.Close

    For i = 1 To 5

    flxResult.ColAlignment(i) = flexAlignCenterTop

    Next

    ThisDisplay.flxResult.Redraw = True

End Sub
Private Sub BtnUpldIndA_Released()
    Dim Source As String
    Dim Destination As String
    Source = "PLC"
    Destination = "TAG"

    'Calls function that will upload plc tags into hmi tags
    InductoATagsModule.TransferInductoA Destination, Source

End Sub