Protected Sub GridView1_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GridView1.RowCommand
        If (e.CommandName = "Stampa") Then
            If RadioButton3.Checked = False And RadioButton4.Checked = False Then
                prompt = New ImpromptuPrompt
                prompt.Options.Buttons.Add("Chiudi", "ok")
                prompt.Options.Top = 350
                prompt.Options.PromptSpeed = "slow"
                prompt.Options.Show = "show"
                prompt.Message = "Scegliere il tipo di stampa"
                ImpromptuHelper.ShowPrompt(prompt)
                Return
            End If
            Dim index As Integer = Convert.ToInt32(e.CommandArgument)
            Dim gvRow As GridViewRow = GridView1.Rows(index)
            Getperiodo()
            Dim cod As Integer = gvRow.Cells(1).Text
            Dim tiporeport As String = ""
            If RadioButton3.Checked = True Then
                tiporeport = 6
            ElseIf RadioButton4.Checked = True Then
                tiporeport = 7
            End If
            Dim url As String = "stampe.aspx?tiporeport=" + tiporeport + "&codcomune=" + Hfcodcomune.Value + "&dalgiorno=" + data1.Value + "&algiorno=" + data2.Value + "&codstruttura=" + CStr(cod)
            ScriptManager.RegisterStartupScript(Page, Page.GetType(), "OpenWin", "apristampa('" & url & "');", True)
        End If
    End Sub