Imports System.Data.SqlClient

Imports System.Data

 

 

 

 

 

 

Partial Class MAEChart_1024_x_768

 

    Inherits System.Web.UI.Page

 

    Protected Sub lblDate_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles lblDate.Load

 

        Dim Mydate As DateTime = Now

 

        lblDate.Text = Mydate

 

 

    End Sub

 

 

    Protected Sub DropDownList1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.Load

 

 

 

 

        If DropDownList1.Text = "RED" Then

            DropDownList1.BackColor = Drawing.Color.Red

 

 

        ElseIf DropDownList1.Text = "YELLOW" Then

            DropDownList1.BackColor = Drawing.Color.Yellow

 

 

        Else

            DropDownList1.BackColor = Drawing.Color.Green

 

 

        End If

 

    End Sub

 

    Protected Sub DropDownList2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList2.Load

        If DropDownList2.Text = "RED" Then

            DropDownList2.BackColor = Drawing.Color.Red

 

 

        ElseIf DropDownList2.Text = "YELLOW" Then

            DropDownList2.BackColor = Drawing.Color.Yellow

 

 

        Else

            DropDownList2.BackColor = Drawing.Color.Green

 

 

        End If

    End Sub

 

    Protected Sub DropDownList3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList3.Load

        If DropDownList3.Text = "RED" Then

            DropDownList3.BackColor = Drawing.Color.Red

 

 

        ElseIf DropDownList3.Text = "YELLOW" Then

            DropDownList3.BackColor = Drawing.Color.Yellow

 

 

        Else

            DropDownList3.BackColor = Drawing.Color.Green

        End If

    End Sub

 

    Protected Sub DropDownList4_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList4.Load

 

        If DropDownList4.Text = "RED" Then

            DropDownList4.BackColor = Drawing.Color.Red

 

 

        ElseIf DropDownList4.Text = "YELLOW" Then

            DropDownList4.BackColor = Drawing.Color.Yellow

 

 

        Else

            DropDownList4.BackColor = Drawing.Color.Green

        End If

 

 

    End Sub

 

    Protected Sub DropDownList5_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList5.Load

 

        If DropDownList5.Text = "RED" Then

            DropDownList5.BackColor = Drawing.Color.Red

 

 

        ElseIf DropDownList5.Text = "YELLOW" Then

            DropDownList5.BackColor = Drawing.Color.Yellow

 

 

        Else

            DropDownList5.BackColor = Drawing.Color.Green

        End If

 

 

    End Sub

 

    Protected Sub ddlPersonnel_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlPersonnel.Load

 

 

        If ddlPersonnel.Text = "RED" Then

            ddlPersonnel.BackColor = Drawing.Color.Red

 

 

        ElseIf ddlPersonnel.Text = "YELLOW" Then

            ddlPersonnel.BackColor = Drawing.Color.Yellow

 

 

        Else

            ddlPersonnel.BackColor = Drawing.Color.Green

        End If

 

    End Sub

 

    Protected Sub ddlFlowDays_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlFlowDays.Load

 

 

        If ddlFlowDays.Text = "RED" Then

            ddlFlowDays.BackColor = Drawing.Color.Red

 

 

        ElseIf ddlFlowDays.Text = "YELLOW" Then

            ddlFlowDays.BackColor = Drawing.Color.Yellow

 

 

        Else

            ddlFlowDays.BackColor = Drawing.Color.Green

        End If

 

    End Sub

 

    Protected Sub ddlCRI_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlCRI.Load

 

        If ddlCRI.Text = "RED" Then

            ddlCRI.BackColor = Drawing.Color.Red

 

 

        ElseIf ddlCRI.Text = "YELLOW" Then

            ddlCRI.BackColor = Drawing.Color.Yellow

 

 

        Else

            ddlCRI.BackColor = Drawing.Color.Green

        End If

 

 

    End Sub

 

    Protected Sub ddlParts_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlParts.Load

 

        If ddlParts.Text = "RED" Then

            ddlParts.BackColor = Drawing.Color.Red

 

 

        ElseIf ddlParts.Text = "YELLOW" Then

            ddlParts.BackColor = Drawing.Color.Yellow

 

 

        Else

            ddlParts.BackColor = Drawing.Color.Green

        End If

 

 

    End Sub

 

 

    Protected Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click

        Response.Redirect("~/MAE.aspx", True)

    End Sub

 

 

 

 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim sqlconn As New SqlConnection

        sqlconn.ConnectionString = "Server = WINSRVR03VMWARE; Database = MAE_Drep; integrated security=true"

        'Trusted_Connection=True

        Dim sqlcomm As New SqlCommand

        Dim r As SqlDataReader

 

 

        Dim sql As String

 

 

        Dim FSC As String

        Dim NIIN As String

        Dim MMAC As String

        Dim Subs As String

        Dim TMS As String

        Dim PN As String

        Dim SOS As String

        Dim PSSD As String

        Dim Noun As String

        Dim PDN As String

        Dim Org As String

        Dim Final As String

        Dim RO As String

        Dim BaseOH As String

        Dim POSAuth As String

        Dim RSPAuth As String

        Dim WL As String

        Dim _09OH As String

        Dim TOTBOs As String

        Dim DueOuts As String

        Dim MICAPs As String

        Dim FieldMICAP As String

        Dim NRO As String

        Dim CRI As String

        Dim Goal As String

        Dim MDR As String

        Dim MAEOWO As String

        Dim MAEProd As String

        Dim RouteOWO As String

        Dim RouteProd As String

        Dim MAEForecast As String

        Dim RouteForecast As String

        Dim FirstFail As String

        Dim Carc As String

        Dim Parts As String

        Dim Hours As String

        Dim Funds As String

        Dim Sorts As String

        Dim EQUIP1 As String

        Dim EQUIP2 As String

        Dim EQUIP3 As String

        Dim _1QTRAddl As String

        Dim _2QTRAddl As String

        Dim _3QTRAddl As String

        Dim _1QTRMXC As String

        Dim _2QTRMXC As String

        Dim _3QTRMXC As String

        Dim Personnel As String

        Dim IM As String

        Dim PH As String

        Dim STD As String

        Dim ACT As String

        Dim AWPDays As String

        Dim Other As String

        Dim CarcBottom As String

        Dim AWPF As String

        Dim AWPG As String

        Dim PartsProblem As String

 

 

        ''''''''''''''''''   Dim QDR As String

 

 

        '  If PostBackOptions Then

 

        Try

            sqlconn.Open()

            ' MsgBox("It workd")

            sql = "Select top 1 * from [chart]"

            'DetailsView1.SelectedValu()

            sqlcomm.CommandText = sql

            sqlcomm.Connection = sqlconn

 

            r = sqlcomm.ExecuteReader

            While r.Read()

 

                If IsDBNull(r("FSC")) Then

                    FSC = ""

                Else

                    FSC = CStr(r("FSC"))

                End If

 

 

                If IsDBNull(r("NIIN")) Then

                    NIIN = ""

                Else

                    NIIN = CStr(r("NIIN"))

                End If

 

 

 

                If IsDBNull(r("MMAC")) Then

                    MMAC = ""

                Else

                    MMAC = CStr(r("MMAC"))

                End If

 

 

                If IsDBNull(r("I&S")) Then

                    Subs = "Subs"

                Else

                    Subs = CStr(r("I&S"))

                End If

 

 

                If IsDBNull(r("TMS")) Then

                    TMS = ""

                Else

                    TMS = CStr(r("TMS"))

                End If

 

 

                If IsDBNull(r("P_N")) Then

                    PN = ""

                Else

                    PN = CStr(r("P_N"))

                End If

 

 

                If IsDBNull(r("SOS")) Then

                    SOS = ""

                Else

                    SOS = CStr(r("SOS"))

                End If

 

 

                If IsDBNull(r("PSSD")) Then

                    PSSD = ""

                Else

                    PSSD = CStr(r("PSSD"))

                End If

 

 

                If IsDBNull(r("Noun")) Then

                    Noun = ""

                Else

                    Noun = CStr(r("Noun"))

                End If

 

 

                If IsDBNull(r("PDN")) Then

                    PDN = ""

                Else

                    PDN = CStr(r("PDN"))

                End If

 

 

                If IsDBNull(r("Org")) Then

                    Org = ""

                Else

                    Org = CStr(r("Org"))

                End If

 

 

                If IsDBNull(r("FINAL")) Then

                    Final = ""

                Else

                    Final = CStr(r("FINAL"))

                End If

 

 

 

                If IsDBNull(r("RO")) Then

                    RO = ""

                Else

                    RO = CStr(r("RO"))

                End If

 

 

                If IsDBNull(r("Base Assets")) Then

                    BaseOH = ""

                Else

                    BaseOH = CStr(r("Base Assets"))

                End If

 

 

                If IsDBNull(r("POS_A")) Then

                    POSAuth = ""

                Else

                    POSAuth = CStr(r("POS_A"))

                End If

 

 

                If IsDBNull(r("RSP_A")) Then

                    RSPAuth = ""

                Else

                    RSPAuth = CStr(r("RSP_A"))

                End If

 

 

                If IsDBNull(r("WL")) Then

                    WL = ""

                Else

                    WL = CStr(r("WL"))

                End If

 

 

                If IsDBNull(r("09 Assets")) Then

                    _09OH = ""

                Else

                    _09OH = CStr(r("09 Assets"))

                End If

 

 

                If IsDBNull(r("Total Backorders")) Then

                    TOTBOs = ""

                Else

                    TOTBOs = CStr(r("Total Backorders"))

                End If

 

 

                If IsDBNull(r("Due Out")) Then

                    DueOuts = ""

                Else

                    DueOuts = CStr(r("Due Out"))

                End If

 

 

                If IsDBNull(r("MICAPs")) Then

                    MICAPs = ""

                Else

                    MICAPs = CStr(r("MICAPs"))

                End If

 

 

                If IsDBNull(r("Field MICAP")) Then

                    FieldMICAP = ""

                Else

                    FieldMICAP = CStr(r("Field MICAP"))

                End If

 

 

                If IsDBNull(r("NRO")) Then

                    NRO = ""

                Else

                    NRO = CStr(r("NRO"))

                End If

 

 

                If IsDBNull(r("CRI")) Then

                    CRI = ""

                Else

                    CRI = CStr(r("CRI"))

                End If

 

 

                If IsDBNull(r("Target")) Then

                    Goal = ""

                Else

                    Goal = CStr(r("Target"))

                End If

 

 

 

                '''''''''''''''  If IsDBNull(r("QDR")) Then

                '''''''''''''''MDR = ""

                '''''''''''''''Else

                ''''''''''''''''txtMDR.Text = (QDR / 3)

                ''''''''''''''''MDR = CStr(r("QDR"))

                ''''''''''''''''End If

 

 

                If IsDBNull(r("OWO")) Then

                    MAEOWO = ""

                Else

                    MAEOWO = CStr(r("OWO"))

                End If

 

 

                ''''''''''      If IsDBNull(r("IIf(Month(Date()) Mod 3=1,[Prod],IIf(Month(Date()) Mod 3=2,[prod]-[end month1

prod],[prod]-[end month2 prod]))")) Then

                '''''''''MAEProd = ""

                '''''''''  Else

                ''''''''''   MAEProd = CStr(r("ContOWO"))

               ''''''' '   End If

 

 

                If IsDBNull(r("Contract_OWO")) Then

                    RouteOWO = ""

                Else

                    RouteOWO = CStr(r("Contract_OWO"))

                End If

 

 

                If IsDBNull(r("Cont_Prod")) Then

                    RouteProd = ""

                Else

                    RouteProd = CStr(r("Cont_Prod"))

                End If

 

 

                If IsDBNull(r("Forecast")) Then

                    MAEForecast = ""

                Else

                    MAEForecast = CStr(r("Forecast"))

                End If

 

 

                If IsDBNull(r("Cont_forecast")) Then

                    RouteForecast = ""

                Else

                    RouteForecast = CStr(r("Cont_forecast"))

                End If

 

 

                If IsDBNull(r("Item_Count")) Then

                    FirstFail = ""

                Else

                    FirstFail = CStr(r("Item_Count"))

                End If

 

 

                If IsDBNull(r("Carc_Avail")) Then

                    Carc = ""

                Else

                    Carc = CStr(r("Carc_Avail"))

                End If

 

 

                If IsDBNull(r("Parts_avail")) Then

                    Parts = ""

                Else

                    Parts = CStr(r("Parts_avail"))

                End If

 

 

                If IsDBNull(r("Hours_Avail")) Then

                    Hours = ""

                Else

                    Hours = CStr(r("Hours_Avail"))

                End If

 

 

                If IsDBNull(r("Funds_Avail")) Then

                    Funds = ""

                Else

                    Funds = CStr(r("Funds_Avail"))

                End If

 

 

                If IsDBNull(r("Sort_Value")) Then

                    Sorts = ""

                Else

                    Sorts = CStr(r("Sort_Value"))

                End If

 

 

 

                If IsDBNull(r("Equip 1")) Then

                    EQUIP1 = ""

                Else

                    EQUIP1 = CStr(r("Equip 1"))

                End If

 

 

                If IsDBNull(r("Equip 2")) Then

                    EQUIP2 = ""

                Else

                    EQUIP2 = CStr(r("Equip 2"))

                End If

 

 

                If IsDBNull(r("Equip 3")) Then

                    EQUIP3 = ""

                Else

                    EQUIP3 = CStr(r("Equip 3"))

                End If

 

 

                If IsDBNull(r("FirstQuarterPastAddlRepair")) Then

                    _1QTRAddl = ""

                Else

                    _1QTRAddl = CStr(r("FirstQuarterPastAddlRepair"))

                End If

 

 

                If IsDBNull(r("SecondQuarterPastAddlRepair")) Then

                    _2QTRAddl = ""

                Else

                    _2QTRAddl = CStr(r("SecondQuarterPastAddlRepair"))

                End If

 

 

 

                If IsDBNull(r("ThirdQuarterPastAddlRepair")) Then

                    _3QTRAddl = ""

                Else

                    _3QTRAddl = CStr(r("ThirdQuarterPastAddlRepair"))

                End If

 

 

                If IsDBNull(r("FirstQuarterPastRepair")) Then

                    _1QTRMXC = ""

                Else

                    _1QTRMXC = CStr(r("FirstQuarterPastRepair"))

                End If

 

 

                If IsDBNull(r("SecondQuarterPastRepair")) Then

                    _2QTRMXC = ""

                Else

                    _2QTRMXC = CStr(r("SecondQuarterPastRepair"))

                End If

 

 

                If IsDBNull(r("ThirdQuarterPastRepair")) Then

                    _3QTRMXC = ""

                Else

                    _3QTRMXC = CStr(r("ThirdQuarterPastRepair"))

                End If

 

 

                If IsDBNull(r("Personnel")) Then

                    Personnel = ""

                Else

                    Personnel = CStr(r("Personnel"))

                End If

 

 

                If IsDBNull(r("NAME")) Then

                    IM = ""

                Else

                    IM = CStr(r("NAME"))

                End If

 

 

                If IsDBNull(r("PHONE")) Then

                    PH = ""

                Else

                    PH = CStr(r("PHONE"))

                End If

 

 

                If IsDBNull(r("Flow Days")) Then

                    STD = ""

                Else

                    STD = CStr(r("Flow Days"))

                End If

 

 

                If IsDBNull(r("Act_FD")) Then

                    ACT = ""

                Else

                    ACT = CStr(r("Act_FD"))

                End If

 

 

                If IsDBNull(r("AWP Days")) Then

                    AWPDays = ""

                Else

                    AWPDays = CStr(r("AWP Days"))

                End If

 

 

                If IsDBNull(r("Other")) Then

                    Other = ""

                Else

                    Other = CStr(r("Other"))

                End If

 

 

                If IsDBNull(r("CRI")) Then

                    CarcBottom = ""

                Else

                    CarcBottom = CStr(r("CRI"))

                End If

 

 

                If IsDBNull(r("AWP_F")) Then

                    AWPF = ""

                Else

                    AWPF = CStr(r("AWP_F"))

                End If

 

 

                If IsDBNull(r("AWP_G")) Then

                    AWPG = ""

                Else

                    AWPG = CStr(r("AWP_G"))

                End If

 

 

                If IsDBNull(r("Parts Problem")) Then

                    PartsProblem = ""

                Else

                    PartsProblem = CStr(r("Parts Problem"))

                End If

 

            End While

 

 

            txtFSC.Text = FSC.ToString

            txtNIIN.Text = NIIN.ToString

            txtMMAC.Text = MMAC.ToString

            txtSubs.Text = Subs.ToString

            txtTMS.Text = TMS.ToString

            txtPN.Text = PN.ToString

            txtSOS.Text = SOS.ToString

            txtPSSD.Text = PSSD.ToString

            txtNoun.Text = Noun.ToString

            txtPDN.Text = PDN.ToString

            txtOrg.Text = Org.ToString

            txtFinal.Text = Final.ToString

            txtRO.Text = RO.ToString

            txtBaseOH.Text = BaseOH.ToString

            txtPOSAuth.Text = POSAuth.ToString

            txtRSPAuth.Text = RSPAuth.ToString

            txtWL.Text = WL.ToString

            txt09OH.Text = _09OH.ToString

            txtTOTBos.Text = TOTBos.ToString

            txtDueOuts.Text = DueOuts.ToString

            txtMICAPS.Text = MICAPs.ToString

            txtFieldMICAP.Text = FieldMICAP.ToString

            txtNRO.Text = NRO.ToString

            txtCRI.Text = CRI.ToString

            txtGoal.Text = Goal.ToString

            '''''''''''''''''''''txtMDR.Text = MDR.ToString

            txtMAEOWO.Text = MAEOWO.ToString

            '''''''''''''''''' txtMAEProd.Text = MAEProd.ToString

            txtRouteOWO.Text = RouteOWO.ToString

            txtRouteProd.Text = RouteProd.ToString

            '  txtContCRI.text = ContCRI.ToString    excluded because it does not show up whent the form is running in MS ACCESS, is not

declared and no Check for Null Value

            txtMAEForecast.Text = MAEForecast.ToString

            txtRouteForecast.Text = RouteForecast.ToString

            txtFirstFail.Text = FirstFail.ToString

            txtCarc.Text = Carc.ToString

            txtParts.Text = Parts.ToString

            txtHours.Text = Hours.ToString

            txtFunds.Text = Funds.ToString

            txtSorts.Text = Sorts.ToString

            txtEQUIP1.Text = EQUIP1.ToString

            txtEQUIP2.Text = EQUIP2.ToString

            txtEQUIP3.Text = EQUIP3.ToString

            txt1QTRAddl.Text = _1QTRAddl.ToString

            txt2QTRAddl.Text = _2QTRAddl.ToString

            txt3QTRAddl.Text = _3QTRAddl.ToString

            txt1QTRMXC.Text = _1QTRMXC.ToString

            txt2QTRMXC.Text = _2QTRMXC.ToString

            txt3QTRMXC.Text = _3QTRMXC.ToString

            txtPersonnel.Text = Personnel.ToString

            txtIM.Text = IM.ToString

            txtPH.Text = PH.ToString

            txtSTD.Text = STD.ToString

            txtACT.Text = ACT.ToString

            txtAWPDays.Text = AWPDays.ToString

            txtOther.Text = Other.ToString

            txtCarc.Text = CarcBottom.ToString

            txtAWPF.Text = AWPF.ToString

            txtAWPG.Text = AWPG.ToString

            txtPartsProblem.Text = PartsProblem.ToString

 

 

 

        Catch ex As Exception

 

            MsgBox(ex.Message.ToString)

 

 

        End Try

        '  End If

 

 

 

 

 

 

        ' If sqlconn.State = 1 Then

        'Me.text = "You are connected to SQL Server!"

        'Me.backcolor = Color.cadetBlue()

        'End If

 

        ' Dim dt As New

 

        'MyConnection.ConnectionString = "server=(WINSRVR03VMWARE);database=Problems_table;Trusted_Connection=True"

        'Dim MyAdapter As SqlAdapter

        'MyAdapter = New SqlAdapter

        '

        '       txtniin.Text = "GridView1"

 

        '  

        '     GridView1 = System.Web.UI.WebControls.GridView1 = ""

        ' txtniin.Text = SqlDataSource1

        Dim MAE_DREPDatasource As New SqlDataSource()

        MAE_DREPDatasource.ConnectionString = ConfigurationManager.ConnectionStrings("MAE_DREPConnectionString").ToString()

        MAE_DREPDatasource.InsertCommandType = SqlDataSourceCommandType.Text

        MAE_DREPDatasource.InsertCommand = ""

    End Sub

 

  

End Class