Rhâââââ mais meeeeeerde, je conchie les boites qui ne documentent rien en interne, et qui ont pour seule réponse "T'as qu'a lire le code source" ! Mais fuuuuuu...... WTF :
Requete="SELECT LIGNES_COMMANDES.LGC_ARTICLE, ARTICLES.ART_NOM, LIGNES_COMMANDES.LGC_QTE_CMD, "+...
"LIGNES_COMMANDES.LGC_QTE_LIVREE, LIGNES_COMMANDES.LGC_LIGNE, ARTICLES.ART_UNITEVENTE "+...
"FROM LIGNES_COMMANDES INNER JOIN "+...
"ARTICLES ON LIGNES_COMMANDES.LGC_ARTICLE = ARTICLES.ART_CODE "+...
"WHERE (LIGNES_COMMANDES.LGC_SITE = '"+Site+"') AND (LIGNES_COMMANDES.LGC_PROPRIETAIRE = '"+Proprietaire+"') AND "+...
"(LIGNES_COMMANDES.LGC_NUM_CMD = '"+BP+"') AND (LIGNES_COMMANDES.LGC_TYPE = 'CC') "+...
"ORDER BY LIGNES_COMMANDES.LGC_LIGNE DESC "
Requete="SELECT LIGNES_COMMANDES.LGC_ARTICLE, ARTICLES.ART_NOM, LIGNES_COMMANDES.LGC_QTE_CMD, LIGNES_COMMANDES.LGC_QTE_LIVREE, "+...
"LIGNES_COMMANDES.LGC_LIGNE, ARTICLES.ART_UNITEVENTE, LIGNES_COMMANDES.LGC_NUM_CMD, "+...
"ISNULL(MIN(STOCKS.STOC_EMPLACEMENT), '') AS EMPLACEMENT "+...
"FROM LIGNES_COMMANDES INNER JOIN "+...
"ARTICLES ON LIGNES_COMMANDES.LGC_ARTICLE = ARTICLES.ART_CODE LEFT OUTER JOIN "+...
"STOCKS ON ARTICLES.ART_CODE = STOCKS.STOC_ARTICLE "+...
"WHERE (LIGNES_COMMANDES.LGC_SITE = '"+Site+"') AND (LIGNES_COMMANDES.LGC_PROPRIETAIRE = '"+Proprietaire+"') AND "+...
"(LIGNES_COMMANDES.LGC_TYPE = 'CC') "+...
"GROUP BY LIGNES_COMMANDES.LGC_ARTICLE, ARTICLES.ART_NOM, LIGNES_COMMANDES.LGC_QTE_CMD, LIGNES_COMMANDES.LGC_QTE_LIVREE, "+...
"LIGNES_COMMANDES.LGC_LIGNE, ARTICLES.ART_UNITEVENTE, LIGNES_COMMANDES.LGC_NUM_CMD "+...
"HAVING (LIGNES_COMMANDES.LGC_NUM_CMD = '"+BP+"') "+...
"ORDER BY MIN(STOCKS.STOC_DATE_ENTREE), LIGNES_COMMANDES.LGC_NUM_CMD, LIGNES_COMMANDES.LGC_LIGNE DESC"
Requete="SELECT LIGNES_COMMANDES.LGC_ARTICLE, ISNULL(ARTICLES.ART_NOM, '') AS DESIGNATION, LIGNES_COMMANDES.LGC_QTE_CMD, "+...
"LIGNES_COMMANDES.LGC_QTE_LIVREE, LIGNES_COMMANDES.LGC_LIGNE, ARTICLES.ART_UNITEVENTE, LIGNES_COMMANDES.LGC_NUM_CMD, "+...
"ISNULL(MIN(STOCKS.STOC_EMPLACEMENT), '') AS EMPLACEMENT "+...
"FROM LIGNES_COMMANDES LEFT OUTER JOIN "+...
"ARTICLES ON LIGNES_COMMANDES.LGC_ARTICLE = ARTICLES.ART_CODE LEFT OUTER JOIN "+...
"STOCKS ON ARTICLES.ART_CODE = STOCKS.STOC_ARTICLE "+...
"WHERE (LIGNES_COMMANDES.LGC_SITE = '"+Site+"') AND (LIGNES_COMMANDES.LGC_PROPRIETAIRE = '"+Proprietaire+"') AND "+...
"(LIGNES_COMMANDES.LGC_TYPE = 'CC') "+...
"GROUP BY LIGNES_COMMANDES.LGC_ARTICLE, ISNULL(ARTICLES.ART_NOM, ''), LIGNES_COMMANDES.LGC_QTE_CMD, "+...
"LIGNES_COMMANDES.LGC_QTE_LIVREE, LIGNES_COMMANDES.LGC_LIGNE, ARTICLES.ART_UNITEVENTE, "+...
"LIGNES_COMMANDES.LGC_NUM_CMD "+...
"HAVING (LIGNES_COMMANDES.LGC_NUM_CMD = '"+BP+"') "+...
"ORDER BY MIN(STOCKS.STOC_DATE_ENTREE), LIGNES_COMMANDES.LGC_NUM_CMD, LIGNES_COMMANDES.LGC_LIGNE DESC"
SI Filtre = Vrai ALORS
Requete="SELECT LIGNES_COMMANDES.LGC_ARTICLE, ISNULL(ART2.ART_NOM, '') AS DESIGNATION, LIGNES_COMMANDES.LGC_QTE_CMD, "+...
"LIGNES_COMMANDES.LGC_QTE_LIVREE, LIGNES_COMMANDES.LGC_LIGNE, ARTICLES.ART_UNITEVENTE, LIGNES_COMMANDES.LGC_NUM_CMD, "+...
"ISNULL(MIN(STOCKS.STOC_EMPLACEMENT), '') AS EMPLACEMENT, LGC_LIBRE1 "+...
"FROM LIGNES_COMMANDES LEFT OUTER JOIN "+...
"ARTICLES ART1 ON CASE RIGHT(LIGNES_COMMANDES.LGC_ARTICLE, 5) WHEN '_TGAP' THEN LEFT(LIGNES_COMMANDES.LGC_ARTICLE, "+...
"LEN(LIGNES_COMMANDES.LGC_ARTICLE) - 5) ELSE LIGNES_COMMANDES.LGC_ARTICLE END = ART1.ART_CODE LEFT OUTER JOIN "+...
"ARTICLES ART2 ON LIGNES_COMMANDES.LGC_ARTICLE = ART2.ART_CODE LEFT OUTER JOIN "+...
"ARTICLES ON LIGNES_COMMANDES.LGC_ARTICLE = ART2.ART_CODE LEFT OUTER JOIN "+...
"STOCKS ON ART1.ART_CODE = STOCKS.STOC_ARTICLE "+...
"WHERE (LIGNES_COMMANDES.LGC_SITE = '"+Site+"') AND (LIGNES_COMMANDES.LGC_PROPRIETAIRE = '"+Proprietaire+"') AND "+...
"(LIGNES_COMMANDES.LGC_TYPE = 'CC') AND LIGNES_COMMANDES.LGC_QTE_LIVREE < LIGNES_COMMANDES.LGC_QTE_CMD "+...
"GROUP BY LIGNES_COMMANDES.LGC_ARTICLE, ISNULL(ART2.ART_NOM, ''), LIGNES_COMMANDES.LGC_QTE_CMD, LIGNES_COMMANDES.LGC_QTE_LIVREE, "+...
"LIGNES_COMMANDES.LGC_LIGNE, ARTICLES.ART_UNITEVENTE, LIGNES_COMMANDES.LGC_NUM_CMD,LGC_LIBRE1 "+...
"HAVING (LIGNES_COMMANDES.LGC_NUM_CMD = '"+BP+"') "
SI Classement = Vrai ALORS
Requete+="ORDER BY CAST(LIGNES_COMMANDES.LGC_LIGNE AS DECIMAL)"
SINON
Requete+="ORDER BY ISNULL(MIN(STOCKS.STOC_EMPLACEMENT), '0') DESC, LIGNES_COMMANDES.LGC_LIGNE"
FIN
SINON
Requete="SELECT LIGNES_COMMANDES.LGC_ARTICLE, ISNULL(ART2.ART_NOM, '') AS DESIGNATION, LIGNES_COMMANDES.LGC_QTE_CMD, "+...
"LIGNES_COMMANDES.LGC_QTE_LIVREE, LIGNES_COMMANDES.LGC_LIGNE, ARTICLES.ART_UNITEVENTE, LIGNES_COMMANDES.LGC_NUM_CMD, "+...
"ISNULL(MIN(STOCKS.STOC_EMPLACEMENT), '') AS EMPLACEMENT,LGC_LIBRE1 "+...
"FROM LIGNES_COMMANDES LEFT OUTER JOIN "+...
"ARTICLES ART1 ON CASE RIGHT(LIGNES_COMMANDES.LGC_ARTICLE, 5) WHEN '_TGAP' THEN LEFT(LIGNES_COMMANDES.LGC_ARTICLE, "+...
"LEN(LIGNES_COMMANDES.LGC_ARTICLE) - 5) ELSE LIGNES_COMMANDES.LGC_ARTICLE END = ART1.ART_CODE LEFT OUTER JOIN "+...
"ARTICLES ART2 ON LIGNES_COMMANDES.LGC_ARTICLE = ART2.ART_CODE LEFT OUTER JOIN "+...
"ARTICLES ON LIGNES_COMMANDES.LGC_ARTICLE = ART2.ART_CODE LEFT OUTER JOIN "+...
"STOCKS ON ART1.ART_CODE = STOCKS.STOC_ARTICLE "+...
"WHERE (LIGNES_COMMANDES.LGC_SITE = '"+Site+"') AND (LIGNES_COMMANDES.LGC_PROPRIETAIRE = '"+Proprietaire+"') AND "+...
"(LIGNES_COMMANDES.LGC_TYPE = 'CC') "+...
"GROUP BY LIGNES_COMMANDES.LGC_ARTICLE, ISNULL(ART2.ART_NOM, ''), LIGNES_COMMANDES.LGC_QTE_CMD, LIGNES_COMMANDES.LGC_QTE_LIVREE, "+...
"LIGNES_COMMANDES.LGC_LIGNE, ARTICLES.ART_UNITEVENTE, LIGNES_COMMANDES.LGC_NUM_CMD,LGC_LIBRE1 "+...
"HAVING (LIGNES_COMMANDES.LGC_NUM_CMD = '"+BP+"') "
SI Classement = Vrai ALORS
Requete+="ORDER BY CAST(LIGNES_COMMANDES.LGC_LIGNE AS DECIMAL)"
SINON
Requete+="ORDER BY ISNULL(MIN(STOCKS.STOC_EMPLACEMENT), '0') DESC, LIGNES_COMMANDES.LGC_LIGNE"
FIN
FIN
Sachant que ça pourrait se 'factoriser' en :
Requete2 est une chaîne = ""
SI Filtre = Vrai ALORS
Requete2 = "AND LIGNES_COMMANDES.LGC_QTE_LIVREE < LIGNES_COMMANDES.LGC_QTE_CMD"
FIN
Requete="SELECT LIGNES_COMMANDES.LGC_ARTICLE, ISNULL(ART2.ART_NOM, '') AS DESIGNATION, LIGNES_COMMANDES.LGC_QTE_CMD, "+...
"LIGNES_COMMANDES.LGC_QTE_LIVREE, LIGNES_COMMANDES.LGC_LIGNE, ARTICLES.ART_UNITEVENTE, LIGNES_COMMANDES.LGC_NUM_CMD, "+...
"ISNULL(MIN(STOCKS.STOC_EMPLACEMENT), '') AS EMPLACEMENT, LGC_LIBRE1 "+...
"FROM LIGNES_COMMANDES LEFT OUTER JOIN "+...
"ARTICLES ART1 ON CASE RIGHT(LIGNES_COMMANDES.LGC_ARTICLE, 5) WHEN '_TGAP' THEN LEFT(LIGNES_COMMANDES.LGC_ARTICLE, "+...
"LEN(LIGNES_COMMANDES.LGC_ARTICLE) - 5) ELSE LIGNES_COMMANDES.LGC_ARTICLE END = ART1.ART_CODE LEFT OUTER JOIN "+...
"ARTICLES ART2 ON LIGNES_COMMANDES.LGC_ARTICLE = ART2.ART_CODE LEFT OUTER JOIN "+...
"ARTICLES ON LIGNES_COMMANDES.LGC_ARTICLE = ART2.ART_CODE LEFT OUTER JOIN "+...
"STOCKS ON ART1.ART_CODE = STOCKS.STOC_ARTICLE "+...
"WHERE (LIGNES_COMMANDES.LGC_SITE = '"+Site+"') AND (LIGNES_COMMANDES.LGC_PROPRIETAIRE = '"+Proprietaire+"') AND "+...
"(LIGNES_COMMANDES.LGC_TYPE = 'CC') " + Requete2 +...
"GROUP BY LIGNES_COMMANDES.LGC_ARTICLE, ISNULL(ART2.ART_NOM, ''), LIGNES_COMMANDES.LGC_QTE_CMD, LIGNES_COMMANDES.LGC_QTE_LIVREE, "+...
"LIGNES_COMMANDES.LGC_LIGNE, ARTICLES.ART_UNITEVENTE, LIGNES_COMMANDES.LGC_NUM_CMD,LGC_LIBRE1 "+...
"HAVING (LIGNES_COMMANDES.LGC_NUM_CMD = '"+BP+"') "
SI Classement = Vrai ALORS
Requete+="ORDER BY CAST(LIGNES_COMMANDES.LGC_LIGNE AS DECIMAL)"
SINON
Requete+="ORDER BY ISNULL(MIN(STOCKS.STOC_EMPLACEMENT), '0') DESC, LIGNES_COMMANDES.LGC_LIGNE"
FIN
Mais comment peut on payer des gens pour pondre des merdes pareille ? Et après ça se prétend développeur ! De mon C.. ouais ! Et tout le reste est de cet acabit ! Et je suis sensé découvrir comment ça marche et pouvoir maintenir... ça ?
Kochise