PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile (précédentes versions) → TANTQUE htrouve()
TANTQUE htrouve()
Débuté par Cadot, 21 fév. 2019 17:00 - Aucune réponse
Posté le 21 février 2019 - 17:00
Bonjour à toutes et tous,

J'ai un programme qui envoi des SMS via une application ( WDM 23), le problème est l'envoi répétitif !
Un timer appel une procédure toute les 5 secondes.
TimerSys(SMS,5 s)

Le problème c'est que même avec l'Sms.Etat = 1, l'envoi du SMS ce fait sur le numéro!
Procedure SMS()
HLitRecherchePremier(Sms,Etat,0)
TANTQUE HTrouve(Sms)
SMS.Numéro = Sms.Telephone
SMS.Message = " Test sms"
SI SMSEnvoie() ALORS
Sms.Etat = 1 // changement de l'Etat OK
Sms.date_envoi = ChaîneVersDate(DateSys())
HEcrit(Sms)
FIN
HLitSuivant(Sms)
FIN

Merci pour votre aide.