Discussion :

[Spirou92]

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?

[aieeeuuuuu]

Bonjour,

La notion de variable statique n'existe pas en TSQL...

Vous pourriez stocker les valeurs dans une table pour obtenir un comportement similaire...

Mais votre fonction n'est pas traduisible telle quelle en TSQL.

dans quel contexte est-elle utilisée ? pourquoi la traduire en TSQL ?

Dites-en un peu plus qu'on puisse mieux vous orienter.

[Spirou92]

Actuellement dans le cadre d'un projet, je dois migrer une base Access, sur du SQLServer. Dans l'ensemble tout se passe correctement hormis pour quelques requêtes qui utilisent donc quelques fonctions créées sous Access et quelques crosstab.

[aieeeuuuuu]

Alors il faudrait connaitre le périmètre...

Dans quelles requêtes cette fonction est-elle utilisée ?

[Spirou92]

Bah voila un exemple d'une requête SQL qui a besoin d'utiliser la fonction numauto:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
CREATE PROCEDURE [351_13_Ajout_Ordres_Sans_Num] 
AS
BEGIN
INSERT INTO [100_20_Ordres]  (  [Depot], [Code_Article], [Groupe_Article], [Statut_Ordre], [Categorie_ordre], [Numero_ordre], [Ligne_ordre], [Sous_Ligne_Ordre], [Qte_Ordre_Article], [Code_Compose_Ou_fournisseur], [Date_Planif_Num], [Date_Planif_Date], [Message_Action], [Incrementer_Stock], [Numero_de_lot], [Code_Fournisseur] ) SELECT [000_20_Ordres_IMPORT].[Depot],
      [000_20_Ordres_IMPORT].[Article],
      [000_20_Ordres_IMPORT].[Gr_Article],
      [000_20_Ordres_IMPORT].[Stt],
      [000_20_Ordres_IMPORT].[Categorie_ordre],
      numauto([Categorie_ordre],[Article],[Date_planif]) AS [Expr4],
      [000_20_Ordres_IMPORT].[Ligne_ordre],
      [000_20_Ordres_IMPORT].[Num_SousLigne],
      [000_20_Ordres_IMPORT].[Qte_trans],
 
     CASE  WHEN [Categorie_ordre]='250' Or [Categorie_ordre]='251' THEN [Texte_reference] ELSE 
     CASE  WHEN CHARINDEX(' ',[Texte_reference],1)>0 THEN LEFT([Texte_reference],CHARINDEX(' ',[Texte_reference],1)-1) ELSE [Texte_reference] END END AS [Expr2],
      [000_20_Ordres_IMPORT].[Date_planif],
      CONVERT(DATETIME,CASE  WHEN [000_20_Ordres_IMPORT].[Date_planif]=0 THEN '' ELSE CONVERT(DATETIME,RIGHT([000_20_Ordres_IMPORT].[Date_planif],2) + '/' + LEFT(RIGHT([000_20_Ordres_IMPORT].[Date_planif],4),2) + '/' + LEFT([000_20_Ordres_IMPORT].[Date_planif],4)) END) AS [Expr3],
      [000_20_Ordres_IMPORT].[MA],
      [000_20_Ordres_IMPORT].[MaJ_Dispo_article],
      [000_20_Ordres_IMPORT].[Numero_de_lot],
      'Aucun' AS [Expr1] 
FROM [000_20_Ordres_IMPORT] 
WHERE ((([000_20_Ordres_IMPORT].[Categorie_ordre])='960' Or ([000_20_Ordres_IMPORT].[Categorie_ordre])='020'))
End

[aieeeuuuuu]

Donc, vous numérotez les lignes en fonction de leur données.
Cependant, je ne vois aucune notion d'ordre dans votre requête, le résultat de votre requête n'est donc pas déterministe et dépendra du comportement d'access au moment où il exécutera la requête. Je pense donc qu'il y a un bug dans cette fonction. pouvez vous détaillez le fonctionnel ?

Quelle est votre version de SQL Server ?

[Spirou92]

A vrai dire, ce n'est pas mon code ni mon point fort. La version est du SQL Server 2008 Express.

[aieeeuuuuu]

Vous pourrez sûrement obtenir ce que vous voulez en utilisant les fonctions analytiques, comme ROW_NUMBER() ou DENSE_RANK()...

Vous pouvez aussi utiliser votre code VB l'incluant dans un assembly integré a SQL Server (SQL CLR)

[Spirou92]

Ok merci je vais me renseigner.