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