Private Sub AggiungiArticolo()
        Dim Contarighe As Integer = DataGridViewDettagli.RowCount
        Dim QtaVecchia As Integer = 0
        Dim idArt As String = IndiceIDArticolo.Text 'DataGridViewDettagli.CurrentRow.Cells("ID_Articolo").Value.ToString
        If Contarighe = 0 Then
            DataGridViewDettagli.Rows.Add(IndiceIDArticolo.Text, TextBoxCodBarre.Text, TextBoxDescrizione.Text, TextBoxQta.Text, FormatCurrency(TextBoxPrezzoUnitario.Text), TextBoxSconto1.Text, TextBoxSconto2.Text, TextBoxSconto3.Text, FormatCurrency(TextBoxTotaleRiga.Text))
        ElseIf Contarighe <> 0 Then ' se le righe sono diverse:
            '*******controllo con la routine VerificaPresenzaProdottiIngrid se esiste già il prodotto in griglia, nel caso in cui esiste aggiorno la riga in caso contrario la aggiungo
            'se la condizione è TRUE=PRODOTTO ESISTENTE IN GRIGLIA . FALSE=PRODOTTO ASSENTE IN GRIGLIA
            If VerificaPresenzaProdottiIngrid() = True Then
                For x As Integer = 0 To Contarighe - 1
                    If idArt = DataGridViewDettagli.Rows(x).Cells("ID_Articolo").Value.ToString Then
                        QtaVecchia = DataGridViewDettagli.Rows(x).Cells("R_Quantita").Value.ToString 'prelevo la quantità esistente prima della variazione
                        DataGridViewDettagli.Rows(x).Cells("R_Quantita").Value = (QtaVecchia + TextBoxQta.Text)
                    End If
                Next
            ElseIf VerificaPresenzaProdottiIngrid() = False Then
                DataGridViewDettagli.Rows.Add(IndiceIDArticolo.Text, TextBoxCodBarre.Text, TextBoxDescrizione.Text, TextBoxQta.Text, FormatCurrency(TextBoxPrezzoUnitario.Text), TextBoxSconto1.Text, TextBoxSconto2.Text, TextBoxSconto3.Text, FormatCurrency(TextBoxTotaleRiga.Text))
            End If
        End If
    End Sub