Dim pezzi As Integer = 0
        Dim SubTotale As Decimal = 0
        Dim totale As Decimal = 0
        Dim parziale As Decimal = 0
        Dim righe As Integer = DataGridViewDettaglioScarico.RowCount - 1
        For x As Integer = 0 To righe
            SubTotale = DataGridViewDettaglioScarico.Rows(x).Cells("R_SubtotaleRiga").Value.ToString
            If SubTotale > 0 Then
                totale += SubTotale
            End If

        Next
        TextBoxTotale.Text = FormatCurrency(totale)