VERIFICATION RIB AVEC MODULO 97

Messages postés
296
Date d'inscription
dimanche 14 mars 2004
Statut
Membre
Dernière intervention
18 décembre 2014
- - Dernière réponse : cs_eli42
Messages postés
132
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
12 novembre 2019
- 22 juil. 2008 à 08:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/47367-verification-rib-avec-modulo-97

cs_eli42
Messages postés
132
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
12 novembre 2019
-
Bien vu, faut dire que j'utilise la premiere formule, la deuxieme etait juste la pour faire comprendre mon case, la je dois partir j'ai pas le temps de corriger aujourd'hui pour ceux que ca interesse a la ligne 155 rajouter :

if Length(Compte) <> 23 Then
begin
BT2.Caption := 'Saisie Erroné';
Exit;
end;

Je mettrais le source a jour demain.
Oniria
Messages postés
296
Date d'inscription
dimanche 14 mars 2004
Statut
Membre
Dernière intervention
18 décembre 2014
2 -
Bonjour,

J'ai juste un petit commentaire à faire : Que se passe - il si l'utilisateur n'écrit pas tous les champs dans le deuxième cas ? A mon avis, un joli plantage. Essaye d'utiliser try ... except ... end pour les strtoint.
Sinon, pas mal du tout.

Oniriabot