Imports DevExpress.Web
Imports DevExpress.Web.Data

Public Class Documenti
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub
    Protected Sub detailGrid_BeforePerformDataSelect(ByVal sender As Object, ByVal e As EventArgs)
        Session("IDDocumentiTestata") = (TryCast(sender, ASPxGridView)).GetMasterRowKeyValue()
    End Sub


    'Private Sub detailGrid_RowInserting(sender As Object, e As ASPxDataInsertingEventArgs) Handles detailGrid.RowInserting

    '    ' Database editing is not allowed in online examples
    '    e.NewValues("Ins_DataOra") = Session("IDDocumentiTestata")
    'End Sub
    'Private Sub detailGrid_Init(sender As Object, e As DevExpress.Web.Data.ASPxDataInitNewRowEventArgs)

    '    'e.NewValues["CustomerID"] = (sender as ASPxGridView).GetMasterRowKeyValue()
    '    e.NewValues("Ins_DataOra") = Session("IDDocumentiTestata")
    'End Sub
    Private Sub masterGrid_RowUpdating(sender As Object, e As ASPxDataUpdatingEventArgs) Handles masterGrid.RowUpdating
        ' Database editing is not allowed in online examples
        'e.Cancel = True
    End Sub

    Private Sub masterGrid_RowInserting(sender As Object, e As ASPxDataInsertingEventArgs) Handles masterGrid.RowInserting


        ' Database editing is not allowed in online examples
        'e.Cancel = True
    End Sub

    Private Sub masterGrid_RowDeleting(sender As Object, e As ASPxDataDeletingEventArgs) Handles masterGrid.RowDeleting
        ' Database editing is not allowed in online examples
        'e.Cancel = True
    End Sub

    Private Sub masterGrid_HtmlRowPrepared(sender As Object, e As ASPxGridViewTableRowEventArgs) Handles masterGrid.HtmlRowPrepared

        If e.RowType = GridViewRowType.Detail Then
            Session("IDDocumentiTestata") = e.GetValue("IDDocumentiTestata")
        End If

    End Sub

    Private Sub masterGrid_FocusedRowChanged(sender As Object, e As EventArgs) Handles masterGrid.FocusedRowChanged
        '--- cambia la riga selezionata del gridview1
        'Dim fieldValues As List(Of Object) = masterGrid.GetSelectedFieldValues(New String() {"IDDocumentiTestata", "Titolo"})
        'For Each item As Object() In fieldValues
        '    Session("IDDocumentiTestata") = item(0).ToString()

        'Next item
    End Sub

    Private Sub masterGrid_InitNewRow(sender As Object, e As ASPxDataInitNewRowEventArgs) Handles masterGrid.InitNewRow
        'e.NewValues("IDDocumentiTestata") = 9999
    End Sub

    'Protected Sub detailGrid_InitNewRow(sender As Object, e As Data.ASPxDataInitNewRowEventArgs) Handles detailGrid.InitNewRow
    '    ' If e.RowType = GridViewRowType.Detail Then

    '    '--- prepara prepara i default per la nuova riga di dettaglio con l'ID del master ---
    '    e.NewValues("IDITLibraryQ") = 0

    '    If Val(Session("sIDITLibraryQ")) > 0 Then
    '        e.NewValues("IDITLibraryQ") = Session("sIDITLibraryQ")
    '        e.NewValues("UserName") = Session("pUserLogon")
    '        e.NewValues("DataInserimento") = Date.Now
    '    End If
    '    'End If
    'End Sub
End Class