Programmation avec windev

Fermé

algodire - 18 janv. 2011 à 21:46
diablond Messages postés 183 Date d'inscription samedi 18 septembre 2010 Statut Membre Dernière intervention 2 mai 2011 - 19 mars 2011 à 00:31

Bonjour,

je veux créer une numérotation automatique des factures a une assurance maladie, en partant du num=1 qui est insérer dans un champ numfact dans une fichier etablissement de telle façon a chaque creation d'une facture la situtation sera comme sa facture.numfact=etablissment.numfact
etablissement.numfact=etablissement+1
j'tulise windev 12

facture N°00001/2011 puis facture N°: 00002/2011 ...etc ( a chaque creation d'une facture nouvelle)

A voir également:

Votre programmation n'a pas pu être posée
Nous n'avons pas pu terminer les mises à jour - Forum Windows 10
Un composant nécessaire n'a pas pu être installé. valorant ✓ - Forum Jeux vidéo
Mysqli::real_connect(): (hy000/2002): aucune connexion n’a pu être établie car l’ordinateur cible l’a expressément refusée. - Forum PHP
Nous n'avons pas pu nous connecter à ce réseau ✓ - Forum WiFi

1 réponse

Réponse 1 / 1

diablond Messages postés 183 Date d'inscription samedi 18 septembre 2010 Statut Membre Dernière intervention 2 mai 2011 48
18 mars 2011 à 17:47

Bonjour,
tu dois créer un champ NUM_Facture (numérique, pour faciliter la recherche) sur la fenetre de saisie de la facture
faire un controle sur le numéro avec une requete (Num existant)
dans le champ, il suffit d'ecrire le numéro de la facture et pas l'année, car il sera récupéré depuis le champ DATE
ainsi, dans ETAT_Facture, on récupère FACTURE.NumFact on ajoute les "0000"
(repete("0", 5-Taille(rub_numFact))) +"/"+année(RUB_Date)

directeur
19 mars 2011 à 00:25

j'ai cherche avec le numfact

SI TableOccurrence(Table)=0 ALORS RETOUR
Ouvre(Fiche_Facture,numFact)
TableAffiche(Table,taCourantBandeau)
le resulat la requette est vide
le code de requtte est le suivant
PROCEDURE RemplitChamps(pnIdCom)
// on remplit les champs de la commande à modifier
nIdnumfact est un entier
gfnNumfact est une entier
// Informations propres à la commande
HExécuteRequête(REQ_Facture,hRequêteDéfaut,nIdnumfact)
SI ErreurDétectée ALORS
Erreur("Impossible d'initialiser la requête.")
Ferme()
FIN

// Lignes de commande
HExécuteRequête(REQ_Lignefact1,hRequêteDéfaut,pnIdCom)
SI ErreurDétectée ALORS
Erreur("Impossible d'initialiser la requête.")
Ferme()
FIN

HLitPremier(REQ_Facture)
SI PAS HTrouve() ALORS
Erreur("Le contenu de la requête est vide.")
Ferme()
FIN

gfnNumfact = REQ_Facture.numFact
POUR TOUT REQ_Lignefact1
TableAjouteLigne(Table,REQ_Lignefact1.code_prestation,REQ_Lignefact1.NumAbm, REQ_Lignefact1.DateAbm, REQ_Lignefact1.Quantité, REQ_Lignefact1.Prix_Pres,REQ_Lignefact1.Prix_Tot,REQ_Lignefact1.Réduction)
FIN

diablond Messages postés 183 Date d'inscription samedi 18 septembre 2010 Statut Membre Dernière intervention 2 mai 2011 48
19 mars 2011 à 00:31

ça ne répond pas à la question de "algodir" qui est de mettre une numérotation automatique.

Discussions similaires

Enregristrement impossible Bbox

"Votre colis n'a pas pu vous être remis"

"Nous n'avons pas pu nous connecter à ce réseau"

impossible de publier sur instagram

High Sierra : refus de réinstallation "serveur pas contacté"