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:
- Hexécuterequête
- Windev avis - Forum Windev
- Programmation - Guide
- Télécharger windev 20 complet gratuit - Forum Windev
- Application de programmation - Guide
- Windev decompiler - Forum Windev
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