1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| sdReq est une Source de Données
sMaReq est une chaîne
sMaReq = "SELECT TOP (100) PERCENT dbo.INVENTTRANS.DATEPHYSICAL, dbo.INVENTTRANS.TRANSTYPE, dbo.INVENTTRANS.TRANSREFID, SUM(dbo.INVENTTRANS.QTY) AS la_somme_QTY, dbo.PRODTABLE.ITEMID, dbo.PRODTABLE.NAME, dbo.PRODROUTE.WRKCTRID, dbo.PRODROUTE.WRKCTRLOADPCT,dbo.PRODROUTE.WRKCTRNUMOF, dbo.PRODROUTE.SPL_QTYDEAL, dbo.PRODROUTE.SPL_UNITDEAL, dbo.PRODROUTE.SETUPTIME, dbo.PRODROUTE.TOHOURS,dbo.PRODROUTE.OPRPRIORITY, dbo.PRODROUTE.CALCPROC, dbo.PRODROUTE.CALCSETUP, dbo.WRKCTRTABLE.EFFECTIVITYPCT,dbo.INVENTTABLE.SPL_FAMILLENUMID, dbo.INVENTTABLE.SPL_SOUSFAMILLENUM, dbo.INVENTTABLEMODULE.UNITID,dbo.INVENTTABLEMODULE.MODULETYPE"+...
"FROM dbo.PRODROUTE INNER JOIN dbo.PRODTABLE INNER JOIN dbo.INVENTTRANS ON dbo.PRODTABLE.PRODID = dbo.INVENTTRANS.TRANSREFID ON dbo.PRODROUTE.PRODID = dbo.PRODTABLE.PRODID INNER JOIN dbo.WRKCTRTABLE ON dbo.PRODROUTE.WRKCTRID = dbo.WRKCTRTABLE.WRKCTRID INNER JOIN dbo.INVENTTABLE ON dbo.INVENTTRANS.ITEMID = dbo.INVENTTABLE.ITEMID INNER JOIN dbo.INVENTTABLEMODULE ON dbo.INVENTTABLE.ITEMID = dbo.INVENTTABLEMODULE.ITEMID"+...
"WHERE (dbo.INVENTTRANS.TRANSTYPE = 2) AND (dbo.INVENTTRANS.DATEPHYSICAL BETWEEN '01/09/2012' AND '31/08/2013') AND (dbo.PRODROUTE.OPRPRIORITY = 0)"+...
"AND (dbo.PRODROUTE.WRKCTRID NOT IN ('MELANGES', 'Chaîne RTA', 'BUSS', 'MOD', 'SST', 'TAMBOUR250', 'TRIC12', 'TRIC19', 'SERTISSAGE', 'BLANC01','ARROSEURS'))"+...
"GROUP BY dbo.INVENTTRANS.DATEPHYSICAL, dbo.INVENTTRANS.TRANSTYPE, dbo.INVENTTRANS.TRANSREFID, dbo.PRODTABLE.ITEMID, dbo.PRODTABLE.NAME,"+...
"dbo.PRODROUTE.WRKCTRID,dbo.PRODROUTE.WRKCTRLOADPCT, dbo.PRODROUTE.WRKCTRNUMOF, dbo.PRODROUTE.SPL_QTYDEAL,"+...
"dbo.PRODROUTE.SPL_UNITDEAL,dbo.PRODROUTE.SETUPTIME, dbo.PRODROUTE.TOHOURS, dbo.PRODROUTE.OPRPRIORITY, dbo.PRODROUTE.CALCPROC,"+...
"dbo.PRODROUTE.CALCSETUP,dbo.WRKCTRTABLE.EFFECTIVITYPCT, dbo.INVENTTABLE.SPL_FAMILLENUMID, dbo.INVENTTABLE.SPL_SOUSFAMILLENUM,"+...
"dbo.INVENTTABLEMODULE.UNITID, dbo.INVENTTABLEMODULE.MODULETYPE"+...
"HAVING (dbo.INVENTTABLEMODULE.MODULETYPE = 0) ORDER BY dbo.INVENTTRANS.DATEPHYSICAL, dbo.INVENTTRANS.TRANSREFID"
SI PAS HExécuteRequêteSQL(sdReq, hRequêteDéfaut, sMaReq) ALORS
Erreur(HErreurInfo())
SINON
//HExécuteRequêteSQL(sdReq,sMaReq)
HLitPremier(sdReq)
Code...
FIN |
Partager