PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WEBDEV 2024 → Retraitement automatique des données envoyer par API REST dans un WBS
Retraitement automatique des données envoyer par API REST dans un WBS
Started by Ralph IGCI, Jan., 09 2020 3:35 PM - No answer
Posted on January, 09 2020 - 3:35 PM
Bonjour,
J'ai des données que j'envoie dans le serveur par API rest. C'est parfait, les données arrivent.
J'ai une procédure qui doit se déclencher tous les 5 minutes dans le Web services.
J'ai essayé, tous, la procédure ne se déclenche pas.
J'ai même appeler les THREAD, rien.
AVez-vous essayé ? Et comment le faite vous ?
les procedures traitements ont été essayé sans succès.
Je suis en httpost, et si je ne mets aucun traitement, tous est bon, Seulement ce qui compte est le traitement

Procedure importfichierjours(codeagence,sNomfichier sont des chaînes):mastructureretourne

sMoagence est une chaîne=codeagence


maficheretour est une mastructureretourne
IF SansEspace(codeagence)="" THEN
maficheretour.bretour=Faux
WebserviceEcritCodeHTTP(510, "Vous avez oublié le code agence" +RC+ ExceptionInfo(errMessage))
RENVOYER maficheretour
END
IF SansEspace(sNomfichier)="" THEN
maficheretour.bretour=Faux
WebserviceEcritCodeHTTP(511, "Vous avez oublié le nom du fichier" +RC+ ExceptionInfo(errMessage))
RENVOYER maficheretour
END
// Vérification de l'authentification.
SI AuthentificationG() = Faux ALORS
// Echec de l'authentification.
// Le code a rencontré en une erreur. Le code de traitement des erreurs fait un appel de WebserviceEcritCodeHTTP : le serveur d'application WEBDEV va ignorer la valeur de retour de la procédure.
maficheretour.bretour=Faux
RENVOYER maficheretour
FIN



// Définition du contenu du client à modifier (format JSON)
bufClientAAjouter est une Buffer = WebserviceParamètre(paramBuffer)
//cc est une chaîne
sReep est une chaîne =fRepDonnées()+""
sree est une chaîne=ComplèteRep(sReep)+"DONNESJOURS"
IF fRépertoireExiste(sree)=Faux THEN
fRepCrée(sree)
END
sFic est une chaîne =ComplèteRep(sree)+sNomfichier


HLitRecherchePremier(FICHIERSTEMPORAIRES,nOMDufichier,sNomfichier)
IF NOT HTrouve THEN
HRAZ(FICHIERSTEMPORAIRES)

FICHIERSTEMPORAIRES.CL_AG=codeagence
FICHIERSTEMPORAIRES.nOMDufichier=sNomfichier
FICHIERSTEMPORAIRES.etattraitement=0
//FICHIERSTEMPORAIRES.contenufichier=fChargeBuffer(sFic)
//HAttacheMémo(FICHIERSTEMPORAIRES,contenufichier,sFic)



HAjoute(FICHIERSTEMPORAIRES)

SI ErreurDétectée ALORS
WebserviceEcritCodeHTTP(501, "Echec ajout"+RC+ ExceptionInfo(errMessage))
maficheretour.bretour=Faux

RENVOYER maficheretour
FIN
fSauveBuffer(sFic,bufClientAAjouter)
maficheretour.bretour=Faux
RENVOYER maficheretour

END
IF fFichierExiste(sFic)=Faux THEN
fEcritLigne(nIDFichier,"Fichier inexistant")

ELSE
//traitementfichier(sFic)
END


//traitementjournalierdirect(codeagence,sNomfichier,sFic)//=Vrai THEN




maficheretour.bretour=Vrai


RENVOYER maficheretour