Protected Sub btnApplicaSconto_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnApplicaSconto.Click

        Dim clsGen As New ClassGenerali

        If Page.IsValid Then
            Try
                Dim lblCartTotale As Label = PanelCarrello.FindControl("lblCartTotale")
                Dim lblCartTotaleProdotti As Label = PanelCarrello.FindControl("lblCartTotaleProdotti")
                Dim lblSpeseSpedizione As Label = PanelCarrello.FindControl("lblCartSpeseSpedizione")
                Dim lblScontoApplicato As Label = PanelCarrello.FindControl("lblScontoApplicato")

                Dim txtSconto As TextBox = PanelCarrello.FindControl("txtSconto")

                '+++ controllo InjSQL
                If clsGen.DataInjectionControl(txtSconto.Text) = True Then
                    clsGen.MostraMessaggio(HttpContext.Current.Handler, Resources.ResourceMsg.Errore, Resources.ResourceMsg.ErroreDatiInseritiNonConsentiti)
                    txtSconto.Text = ""
                    Exit Sub
                End If
                '+++

                '+++ ESTRAZIONE DEL VALORE DEL CODICE DA DB +++

                '+++ il campo è sicuramente valorizzato grazie al ValidatorControl applicato +++
                Dim dmlSconto As Decimal
                dmlSconto = clsGen.EstraiCodiceSconto(CStr(txtSconto.Text))

                If dmlSconto > 0 Then
                    lblCartTotale.Text = String.Format("{0:N2}", (CInt(lblCartTotaleProdotti.Text) + CInt(lblSpeseSpedizione.Text) - CInt(dmlSconto)))
                    txtSconto.Enabled = False
                    btnApplicaSconto.Enabled = False
                    lblScontoApplicato.Text = Resources.ResourceCatalogo.lblScontoApplicato & " " & Resources.ResourceGenerali.lblEuroSimbolo & " " & dmlSconto
                    lblScontoApplicato.CssClass = "TestiVerdiBIG"
                Else
                    lblCartTotale.Text = String.Format("{0:N2}", (CInt(lblCartTotaleProdotti.Text) + CInt(lblSpeseSpedizione.Text)))
                    txtSconto.Enabled = True
                    btnApplicaSconto.Enabled = True
                    lblScontoApplicato.Text = Resources.ResourceCatalogo.lblScontoNonApplicato
                    lblScontoApplicato.CssClass = "TestiRossi"
                End If

                lblCartTotale.Text = String.Format("{0:c}", lblCartTotale.Text)

            Catch ex As Exception
                If ViewMsgDebug = True Then clsGen.MostraMessaggio(HttpContext.Current.Handler, Resources.ResourceMsg.Errore, ex.Message)

                'SEND MAIL CON ERRORE ESTESO
                Call clsGen.ScriviLog("Carrello.aspx.vb.btnApplicaSconto_Click", ex.Message)
                'clsGen.SendMailProblemi(ex.Message & "<br><br>Errore in fase di Load del Carrello")
            End Try

            clsGen = Nothing

        End If

    End Sub