[Resolvido] Alert com ASP.Net

[Faccruz 0]

Bom dia, tenho essa função funcionando perfeitamente

 

Sub ChamadosAbertos()
        Dim UserSys = Membership.GetUser(HttpContext.Current.User.Identity.Name)
        'Avisa Qndo existe Chamados a mais de 5 dias aberto como NOVO
        Try
            If cnn.State = ConnectionState.Closed Then
                cnn.Open()
            End If

            Dim strSQL As String = "select count(*) Qtd from chamados"
            strSQL += " where StatusChamado = 2"
            strSQL += "   and Date_Sub(Date_Format(now(),'%Y-%m-%d'), interval 5 day) >= "
            strSQL += " Date_Format(DtHoraAberto, '%Y-%m-%d')"

            Dim cmd As New MySqlCommand(strSQL, cnn)

            Dim drChamado As MySqlDataReader = cmd.ExecuteReader
            drChamado.Read()

            If (UserSys.UserName.ToUpper = "LEANDRO" Or UserSys.UserName.ToUpper = "FERNANDO" Or UserSys.UserName.ToUpper = "FABIO") Then
                If drChamado("Qtd") > 0 Then
                    ClientScript.RegisterStartupScript(Me.GetType(), "Aviso", String.Format("<script language=JavaScript>alert('Atenção! Existem {0} chamados com o STATUS NOVO \n abertos com 5 dias ou mais.');</script>", drChamado("Qtd")))
                End If
            End If


        Catch ex As Exception
            ClientScript.RegisterStartupScript(Me.GetType(), "Err", String.Format("<script language=JavaScript>alert('{0}');</script>", ex.Message))

        Finally
            cnn.Close()

        End Try
    End Sub

    Sub ChamadosAndamento()
        Dim UserSys = Membership.GetUser(HttpContext.Current.User.Identity.Name)
        'Avisa Qndo existe Chamados a mais de 5 dias aberto como NOVO
        Try
            If cnn.State = ConnectionState.Closed Then
                cnn.Open()
            End If

            Dim strSQL As String = "select count(*) Qtd from chamados"
            strSQL += " where StatusChamado = 3"
            strSQL += "   and Date_Sub(Date_Format(now(),'%Y-%m-%d'), interval 5 day) >= "
            strSQL += " Date_Format(DtHoraAberto, '%Y-%m-%d')"

            Dim cmd As New MySqlCommand(strSQL, cnn)

            Dim drChamado As MySqlDataReader = cmd.ExecuteReader
            drChamado.Read()

            If (UserSys.UserName.ToUpper = "LEANDRO" Or UserSys.UserName.ToUpper = "FERNANDO" Or UserSys.UserName.ToUpper = "FABIO") Then
                If drChamado("Qtd") > 0 Then
                    ClientScript.RegisterStartupScript(Me.GetType(), "Aviso", String.Format("<script language=JavaScript>alert('Atenção! Existem {0} chamados com o STATUS ANDAMENTO \n com 5 dias ou mais.');</script>", drChamado("Qtd")))
                End If
            End If


        Catch ex As Exception
            ClientScript.RegisterStartupScript(Me.GetType(), "Err", String.Format("<script language=JavaScript>alert('{0}');</script>", ex.Message))

        Finally
            cnn.Close()

        End Try
    End Sub

Mas em alguns casos, qndo cai nas 2 funções, uma mensagem (alert) mata a outra, exibindo apenas a primeira. Como poderia resolver isso?

[quintelab 91]

Acredito que não será possível, o asp.net não irá parar o processamento para exibir o Alert, ele exibirá somente 1.

 

Abraço...

[Faccruz 0]

Entendi.

 

Vou agrupar as 2 funções então e tratar a exibição da mensagem.

 

Obrigado.