1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| sReqsql="select distinct(imgid) from history where imgid in (select imgid from images where idxid in(select idxid from indexdata where natid=1 and idxstatus=10))and hisdat between '"+...
DateVersChaîne(SAI_Date_debut)+" "+HeureVersChaîne(SAI_Heure_debut)+"' and '"+...
DateVersChaîne(SAI_Date_fin)+" "+HeureVersChaîne(SAI_Heure_fin)+"' and hisstat=10 and usrid!=1"
SI SQLExec(sReqsql, "SELECT_HISTORY") ALORS
fEcritLigne(nNumlog,DateSys()+"-"+HeureSys()+" : Selection : "+sReqsql)
TANTQUE SQLAvance("SELECT_HISTORY") =0
sImgid=SQLLitCol("SELECT_HISTORY", 1)
LIB_Msg="Traitement image "+sImgid+"....."
sReqsql="insert into history (imgid, usrid, hisdat, hisact, hisstat) values("+sImgid+",1,'"+DateVersChaîne(SAI_Date_maj)+" "+HeureVersChaîne(SAI_Heure_Maj)+"',3,10)"
// fEcritLigne(nNumlog,DateSys()+"-"+HeureSys()+" : Insert test : "+sReqsql)
SI SQLExec(sReqsql, "INSERT_HISTORY") ALORS
fEcritLigne(nNumlog,DateSys()+"-"+HeureSys()+" : Insert OK :"+ sReqsql)
SQLFerme("INSERT_HISTORY")
SINON
SQLInfoGene()
Info(NumériqueVersChaîne(gnIdconnectionBdBWize),SQL.Erreur,SQL.MesErreur,SQL.Base,sReqsql)
fEcritLigne(nNumlog,DateSys()+"-"+HeureSys()+" : Insert KO : "+sReqsql)
fFerme(nNumlog)
Ferme()
FIN
FIN
SQLFerme("SELECT_HISTORY") |
Partager