PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV (précédentes versions) → saisie semi-automatique
saisie semi-automatique
Débuté par mick, 12 jan. 2004 10:47 - 4 réponses
#1
Posté le 12 janvier 2004 - 10:47
Est-ce que qelqu'un aurai deja developpé ou utilisé un systeme de saisie semi
automatique dans un champ.
Si vous avez une astuce. Merci
#2
Posté le 12 janvier 2004 - 16:19
Bonjour,

Ce mécanisme est disponible en standard dans la version 8 de WinDev. Il
suffit de cocher « saisie assistée » dans la description du champ.



Nous vous conseillons vivement de passer à WINDEV 8, aucune migration n'est
nécessaire. Une simple recompilation suffit (zéro erreur, zéro warning).


--
Cordialement,

Le Support Technique Gratuit

"mick" <mickael.brosse@wanadoo.fr> a écrit dans le message de
news:40025f2b$1@news....


Est-ce que qelqu'un aurai deja developpé ou utilisé un systeme de saisie

semi
automatique dans un champ.
Si vous avez une astuce. Merci
#3
Posté le 12 janvier 2004 - 16:44
"mick" a écrit >

Est-ce que qelqu'un aurai deja developpé ou utilisé un systeme de saisie

semi
automatique dans un champ.
Si vous avez une astuce. Merci

J'ai ça, qui marche trés bien en V5.5 et V7.5 :

// dans le code de modification du champ

SI MonChamp <> "" ALORS
Sel1 est un entier = Taille(MonChamp)
Sel2 est un entier
// Modifier la sélection :
em_setsel est un entier = 0xB1

HLitRecherche(Fichier,Base,MonChamp)
SI HTrouve ALORS
St_Trouve est une chaîne = FI.Valeur
HLitSuivant(Fichier,Base)
SI PAS HTrouve ALORS

Sel2 = Taille(St_Trouve)

MonChamp = St_Trouve

// sélection du caractère X à Y
SendMessage(Handle("MonChamp"), em_setsel , Sel1 , Sel1+Sel2 )
RETOUR
FIN
FIN

FIN
#4
Posté le 05 février 2004 - 18:08
Peut être petite amélioration de la solution proposée
//Code dans le champ concerné par la saisie assisté
pgsaisieassistée("PRODUIT",MoiMême..Nom,MoiMême)
// code de la procédure pour windev 7,5
PROCEDURE pgsaisieassistée(lfFichier,lfRu,lfChamp)
Sel1 est un entier=Taille(lfChamp)
SI Sel1>1 ALORS
//si en progresse dans la saisie
SI Val(lfChamp..Note)<Taille(lfChamp) ALORS
Sel2 est un entier
// Modifier la sélection :
em_setsel est un entier=0xB1
HLitRecherchePremier(lfFichier,lfRu,MoiMême,hGénérique)
SI HTrouve ET PAS HEnDehors ALORS
St_Trouve est une chaîne = {lfFichier+"."+lfRu}
HLitSuivant(lfFichier,lfRu)
SI PAS HEnDehors() ALORS
Sel2=Taille(St_Trouve)
lfChamp=St_Trouve
// sélection du caractère X à Y
SendMessage(Handle(lfChamp), em_setsel,Sel1,Sel1+Sel2 )
lfChamp..Note=NumériqueVersChaine(Taille(lfChamp))
RETOUR
FIN
FIN
FIN
FIN
MoiMême..Note=NumériqueVersChaine(Taille(MoiMême))


"mick" <mickael.brosse@wanadoo.fr> wrote:


Est-ce que qelqu'un aurai deja developpé ou utilisé un systeme de saisie

semi
automatique dans un champ.
Si vous avez une astuce. Merci
#5
Posté le 05 février 2004 - 18:22
Bonjour,

Une des nouveautés de la version 8 est la possibilité de brancher une saisie
assistée sur les champs. Sur n'importe quel champ relié à une rubrique, il
suffit de cocher « saisie assistée » pour activer cette nouvelle
fonctionnalité.



Nous vous conseillons vivement de passer à WINDEV 8.

Vous disposerez ainsi automatiquement des fonctionnalités avancées que vos
utilisateurs attendent !

Rappel : aucune migration n'est nécessaire. Une simple recompilation suffit
(zéro erreur, zéro warning).

---

Cordialement,

Le Support Technique Gratuit

"Herrero José" <jlh@ecus.fr> a écrit dans le message de
news:40226e58@news.pcsoft.fr...


Peut être petite amélioration de la solution proposée
//Code dans le champ concerné par la saisie assisté
pgsaisieassistée("PRODUIT",MoiMême..Nom,MoiMême)
// code de la procédure pour windev 7,5
PROCEDURE pgsaisieassistée(lfFichier,lfRu,lfChamp)
Sel1 est un entier=Taille(lfChamp)
SI Sel1>1 ALORS
//si en progresse dans la saisie
SI Val(lfChamp..Note)<Taille(lfChamp) ALORS
Sel2 est un entier
// Modifier la sélection :
em_setsel est un entier=0xB1
HLitRecherchePremier(lfFichier,lfRu,MoiMême,hGénérique)
SI HTrouve ET PAS HEnDehors ALORS
St_Trouve est une chaîne = {lfFichier+"."+lfRu}
HLitSuivant(lfFichier,lfRu)
SI PAS HEnDehors() ALORS
Sel2=Taille(St_Trouve)
lfChamp=St_Trouve
// sélection du caractère X à Y
SendMessage(Handle(lfChamp), em_setsel,Sel1,Sel1+Sel2 )
lfChamp..Note=NumériqueVersChaine(Taille(lfChamp))
RETOUR
FIN
FIN
FIN
FIN
MoiMême..Note=NumériqueVersChaine(Taille(MoiMême))


"mick" <mickael.brosse@wanadoo.fr> wrote:


Est-ce que qelqu'un aurai deja developpé ou utilisé un systeme de saisie
semi

automatique dans un champ.
Si vous avez une astuce. Merci

→ Revenir à WINDEV (précédentes versions)