Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub send_SMS()
- Console.WriteLine("Begining of the send_SMS() ")
- Dim dt As New DataTable
- Dim st1, sql As String
- Dim fetcheduser, fetchedpno As String
- Dim J As Integer
- J = Now.Hour
- Console.WriteLine("J Now.Hour =: " + J.ToString)
- 'A shift
- If J >= 14 And J < 22 Then
- sql = " SELECT * FROM YKPI_VALUE "
- sql = sql & " WHERE KPV_USER_ID='QEXP' "
- sql = sql & " AND KPV_TYP_ID='A' "
- sql = sql & " AND KPV_FROM_DATE=TO_CHAR(SYSDATE,'YYYYMMDD') "
- Console.WriteLine("J = 14 ")
- st.Text = "A"
- End If
- 'B Shift
- If J >= 22 And J < 6 Then
- sql = " SELECT * FROM YKPI_VALUE "
- sql = sql & " WHERE KPV_USER_ID='QEXP' "
- sql = sql & " AND KPV_TYP_ID='B' "
- sql = sql & " AND KPV_FROM_DATE=TO_CHAR(SYSDATE,'YYYYMMDD') "
- Console.WriteLine("J = 22 ")
- st.Text = "B"
- End If
- 'C Shift
- If J >= 6 And J < 14 Then
- sql = " SELECT * FROM YKPI_VALUE "
- sql = sql & " WHERE KPV_USER_ID='QEXP' "
- sql = sql & " AND KPV_TYP_ID='C' "
- sql = sql & " AND KPV_FROM_DATE=TO_CHAR(SYSDATE-1,'YYYYMMDD') "
- Console.WriteLine("J = 6 ")
- st.Text = "C"
- DAT = DAT.AddDays(-1)
- End If
- Dim DA As New OracleDataAdapter(sql, oraconn)
- DA.Fill(dt)
- Console.WriteLine("Before dt.Rows count ")
- Dim MaxRows, MaxColums, inc As Integer
- MaxRows = dt.Rows.Count
- MaxColums = dt.Columns.Count
- Dim multiarray(,) As String = New String(MaxRows, MaxColums) {}
- Console.WriteLine("Value of MaxRows = " + MaxRows.ToString)
- Console.WriteLine("Value of MaxColums = " + MaxColums.ToString)
- If (inc <> MaxRows) Then
- 'inc = inc + 1
- Console.WriteLine("Inside dt.Rows and Before for loop ")
- For inc = 0 To MaxRows - 1
- 'For col = 0 To MaxColums
- dt.Rows(inc).Item(10) = dt.Rows(inc).Item(10).ToString.Replace("Q", "")
- multiarray(inc, 1) = dt.Rows(inc).Item(2).ToString()
- multiarray(inc, 2) = dt.Rows(inc).Item(4).ToString()
- multiarray(inc, 3) = dt.Rows(inc).Item(10).ToString()
- Next
- End If
- Dim queryusr As String
- queryusr = ""
- Dim sql_CMD_TD As New OracleCommand(sql, oraconn)
- If Not oraconn.State = ConnectionState.Open Then
- oraconn.Open()
- End If
- Dim doNotSendSMS = False
- Dim sqldr As OracleDataReader = sql_CMD_TD.ExecuteReader()
- If sqldr.HasRows Then
- oraconn.Close()
- queryusr = " SELECT TSU_USER,TSU_USERNAME FROM T_SDM_USERS "
- queryusr = queryusr & "WHERE TSU_SCREENID='QESMS'AND TSU_VALIDITY='Y' "
- dt = New DataTable
- DA = New OracleDataAdapter(queryusr, oraconn)
- DA.Fill(dt)
- If Not doNotSendSMS Then
- Dim ora_CMD_SMS As New OracleCommand(queryusr, oraconn)
- If oraconn.State = ConnectionState.Closed Then
- oraconn.Open()
- End If
- st1 = st.Text
- Dim ORA_DR As OracleDataReader = ora_CMD_SMS.ExecuteReader()
- If ORA_DR.HasRows Then
- While ORA_DR.Read()
- fetcheduser = ORA_DR("TSU_USERNAME")
- fetchedpno = ORA_DR("TSU_USER")
- Console.WriteLine("Before insertIntoSMS function call ")
- Console.WriteLine(" Value of st1 :" + st1.ToString)
- insertIntoSMS_hbf(fetcheduser, fetchedpno, st1, multiarray, MaxRows, MaxColums)
- Console.WriteLine("Outside of insertIntoSMS function call ")
- End While
- ORA_DR.Close()
- End If
- If oraconn.State = ConnectionState.Open Then
- oraconn.Close()
- End If
- End If
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement