Questo sito usa i cookie per fornirti un'esperienza migliore. Cliccando su "Accetta" saranno attivate tutte le categorie di cookie. Per decidere quali accettare, cliccare invece su "Personalizza". Per maggiori informazioni è possibile consultare la pagina Cookie policy.

PersonalizzaAccetta
CHIUDI
Autore Messaggio
FEBBRAIODISTRIBUZIONESRL 04/12/2024 16:44 FEBBRAIODISTRIBUZIONESRL

quantità

Option Explicit

Dim Qt
Dim DispoWeb
Dim CategoriaID

DispoWeb = Rdy.toDouble(Product.CustomField(345))
CategoriaID = Product.ProdCategory.Id 'interessa solo la 178

If DispoWeb > 10 Then
    If CategoriaID = 178 Then
        If DispoWeb > 100 Then
            Qt = 100
        Else
            Qt = DispoWeb
        End if
    Else
        Qt = 10
    End if
Else
    Qt = DispoWeb
End if

Response.Write(Rdy.toLong(Qt))

Ho questo script devo cambiare la quantità da 10 a 12 quale valore devo cambiare nella stringa?

Saluti.
Supporto 05/12/2024 09:18 Campo libero: Supporto

Buongiorno,

data l'eterogeneita' e la complessita' delle richieste non abbiamo possibilita' di fornire un supporto gratuito per lo sviluppo di script e procedure personalizzate.

Se il controllo della quantità deve essere modificato da 10 a 12 potrebbe esse sufficiente modificarlo coś:

Option Explicit

Dim Qt
Dim DispoWeb
Dim CategoriaID

DispoWeb = Rdy.toDouble(Product.CustomField(345))
CategoriaID = Product.ProdCategory.Id 'interessa solo la 178

If DispoWeb > 12 Then
    If CategoriaID = 178 Then
        If DispoWeb > 100 Then
            Qt = 100
        Else
            Qt = DispoWeb
        End if
    Else
        Qt = 12
    End if
Else
    Qt = DispoWeb
End if

Response.Write(Rdy.toLong(Qt))
FEBBRAIODISTRIBUZIONESRL 07/12/2024 10:42 FEBBRAIODISTRIBUZIONESRL

saluti.