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