1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| 'Recherche des fiches de travail dont la clé est ftSearch:
' non présente dans la table t_prep_del
' presente dans la table T_FT
'qui ne sont pas des GL/BT
'qui sont receptionné par CE/STOCK
'qui ne sont pas en sortie magasin
'qui sont de type FICHE DE TRAVAIL DE DELIVRANCE
'préparation de la requete
requete = "SELECT " _
& "T_FT.[Clé] AS CLEF," _
& "T_FT.[Code unité] AS CODE," _
& "T_FT.[N° FT] AS NUMFT," _
& "T_FT.[NNO] AS NNO," _
& "T_FT.[N° Fraction] AS FS," _
& "T_FT.[Quantité à préparer] AS QTE," _
& "T_FT.[Entrée Magasin] AS ENTREE," _
& "T_FT.[Sortie Magasin] AS SORTIE," _
& "T_Materiels.[DESIGNATION] AS DESIGNATION," _
& "T_Unites.[DESIGNATION] AS UNITE " _
& "FROM T_FT " _
& "INNER JOIN T_Unites " _
& "ON T_FT.[Code unité] = T_Unites.[CODEe] " _
& "INNER JOIN t_prep_del " _
& "ON T_FT.[Clé] = t_prep_del.[numeroFtId] " _
& "INNER JOIN T_Materiels " _
& "ON T_FT.[NNO] = T_Materiels.[OTAN] " _
& "WHERE T_FT.[Clé]='" & ftSearch & "' " _
& "AND t_prep_del.[numeroFtId] = null " _
& "AND T_FT.[N° FT] NOT LIKE '*GL/BT*' " _
& "AND T_FT.[Entrée Magasin] <> null " _
& "AND T_FT.|Sortie Magasin] = null" |
Partager