Re: [Scol-tech] Module Devin

[iri <ir...@ir...>]

J'ai déjà utilisé ce module ... Je regarderais si j'ai pas modifié 
quelque chose car je ne me rappelle pas de ce genre de pb ...
On peut d'ailleurs l'utiliser pour autre chose que des pédictions ;-)

Chanduroi a écrit :

>
> Bonjour/soir
>
> Il y a un petit  problème avec le module devin.  C'est un module qui 
> donne une prédiction aléatoire  sur unr base de 24 heures et qui 
> fonctionne à l'aide à l'aide d'une base de donnée à 2 tables. L'une de 
> ses tables contient 3 colonnes soit login, DernierePrediction, 
> NumDernierePrediction.
> C'est la colonne DernierePrediction qui pose un problème normalement 
> si l'on se fie au code du fichier devins.pkg, la valeur numérique 
> inscrite dans cette colonne doit être supérieur à zéro. Cette valeur 
> est exprimé en secondes et est calcullé sur une base de 24 heures. 
> Donc le plugin vérifie si la valeur est supérieur ou inférieur à 86400 
> pour générer une nouvelle prédiction ou non selon la date de la 
> dernière requête donc si 24 heures se sont écoulés depuis la dernière 
> prédiction..
>
> Or dans mon cas la valeur inscrite est toujours négative et commence 
> par -1044596xxx  .
> J'ai vérifié différentes valeurs qui s'incrivent selon des temps 
> écoulés différent  et c'est bien des secondes qui décomptent comme 
> valeur inscrites.
> Donc en théorie, une nouvelle prédiction possible par le plugin tout 
> les 33 ans et des poussières....
>
> Le bout de code qui s'occupe de la question est:
> SqlRequest DBConnection (strcatn "UPDATE "::SLoginTableName::" SET 
> NumDernierePrediction = "::
>
> (itoa IpredictionNumber)::", DernierePrediction = "::(itoa time)::
>
> " WHERE login = ?"::nil)
>
> (SQL_CHAR (_DMSgetLogin UtoC u))::nil ;
>
>
> let SqlDescErr DBConnection -> [ _ _ _ IlineCount ] in
>
> (
>
> let SqlCod DBConnection -> IerrorCode in
>
> (
>
> if ( IerrorCode == SQL_SUCCESS ) && (IlineCount == 1) then
>
> (
>
> _DMSeventTag this u "sendRandomPrediction" SreadPrediction nil nil ;
>
> 0 ;
>
> )
>
> else
>
> (
>
> let strcatn (_DMSgetName this)::( _loc this "ErreurSQLUpdateLogin" nil)
>
> ::(_DMSgetLogin UtoC u)::nil -> SerrorMsg in
>
> (
>
> ErrorMessage SerrorMsg;
>
> LastSQLErrorMessage;
>
> 0
>
> )
>
> )
>
> )
>
> )
>
> )
>
> )
>
> )
>
> Où est le problème?? une petite idée???
>
> merci.
>
>
>
> -------------------------------------------------------
> SF email is sponsored by - The IT Product Guide
> Read honest & candid reviews on hundreds of IT Products from real users.
> Discover which products truly live up to the hype. Start reading now. 
> http://productguide.itmanagersjournal.com/
> _______________________________________________
> Scol-tech mailing list
> Sco...@li...
> https://lists.sourceforge.net/lists/listinfo/scol-tech
>
>