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
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
A voir également:
- Votre programmation n'a pas pu être posée
- Nous n'avons pas pu terminer les mises à jour - Forum Windows 10
- Paypal nous n'avons pas pu confirmer votre identité - Forum Google Chrome
- Le serveur de récupération n'a pas pu être contacté - Forum MacOS
- Votre colis n'a pas pu vous être remis. - Forum Consommation & Internet
- Mysqli::real_connect(): (hy000/2002): aucune connexion n’a pu être établie car l’ordinateur cible l’a expressément refusée. - Forum PHP
1 réponse
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
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)
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)
19 mars 2011 à 00:25
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
19 mars 2011 à 00:31