Protected Sub gvConsegne_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles gvConsegne.RowDeleting
        Dim EliminaDittaDaConsegna As New ConsegnaManager
        Dim consegna As New Consegna

        consegna.INTCONS = e.Keys(0).ToString
        consegna.INTCONSDATA = e.Keys(1).ToString        

        'cancello ditta inserita nella consegna
        EliminaDittaDaConsegna.EliminaConsegna(consegna.INTCONS, IDE_CONSEGNA.Text, ddlCrd.Text, consegna.INTCONSDATA)
        'aggiorno tabella
        gvConsegne.DataBind()

        IDE_BARCODE.Focus()

    End Sub