Bonjour à tous,

J'aimerai obtenir de l'aide. Je souhaite convertir une fonction VBA en une fonction TSQL.

Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Function numauto(Categorie As String, Article As String, Date_Planif As Double) As String
    Static ln_Categorie As String
    Static ln_Article As String
    Static ln_Date_Planif As Double
    Static compt
    If ln_Categorie <> Categorie Or ln_Article <> Article Or ln_Date_Planif <> Date_Planif Then
        compt = Val(compt) + 1
        ln_Categorie = Categorie
        ln_Article = Article
        ln_Date_Planif = Date_Planif
    End If
    numauto = CStr(Categorie & "00" & Left(CStr(compt), 6))
End Function


Quelqu'un pourrait-il avoir la gentillesse de m'aider?