Dim bDittaPresente As Boolean = False
                                
                For I = 0 To lstCodDitta.Items.Count - 1
                    If lstCodDitta.Items(I).Text = IDE_BARCODE.Text Then
                        bDittaPresente = True
                    End If
                Next

                If bDittaPresente Then
                    Me.ClientScript.RegisterStartupScript(Me.GetType, "Attenzione", "alert('Ditta già inserita in consegna !');", True)
                    IDE_BARCODE.Text = ""
                Else
                    lstCodDitta.Items.Add(IDE_BARCODE.Text)
                End If