Discussion :

[BAHIRI]

Bonjour à tous,

J'ai un problème avec une procédure qui concerne deux fenêtres. J'ai soumis le problème au support PcSoft. Ce dernier me demande de lui envoyer un mini Projet qui doit contenir que les deux fenêtres.

J'avoue que je ne sais pas quoi mettre dedans. Je suis tenté de mettre plus d'éléments pour qu'il fonctionne.

Merci pour votre aide.

Cordialement

[lololebricoleur]

Slt,

Quel est ton problème ?

[BAHIRI]

Bonjour,

J'ai deux fenêtres pour gérer les vente : Chaque nouvelle vente récupère les paramètre de la vente précédente : clôturée, Facturée et Attribuée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
cloture=FVENTE.VenteCloture
	facturation=FVENTE.VenteFacturation
	attribution=FVENTE.VenteAttribution

ci-dessous le code des deux fenêtres et Merci pour ton aide:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
//Code première fenêtre
 
MoiMême..Visible=Vrai
 
GLOBAL
ajoute est un booléen
HLitDernier("FVENTE","NumVent1")
FichierVersEcran
HLitDernier("FVENTE","NumVent1")
FichierVersEcran
 
Ouvre(fenvente2)
HLitRecherche("FVENTE","NumVent1",NUMVENT1)
 
SI HTrouve() ALORS
	GlobNumVente=fenvente.NUMVENT1
	Typevente=FVENTE.VenteType
	cloture=FVENTE.VenteCloture
	facturation=FVENTE.VenteFacturation
	attribution=FVENTE.VenteAttribution
	Utilise(philamdi)
 
SINON
	Erreur("Le numéro de vente que vous avez saisi n'existe pas.")
	NUMVENT1=""
	RepriseSaisie("numvent1")
	RETOUR
FIN
RAZ()
HRecherche("FVENTE","NumVent1",NUMVENT1)
SI HTrouve() ALORS
	VenteDebut=FVENTE.VenteDebut
	VenteFin=FVENTE.VenteFin
	VenteType=FVENTE.VenteType
FIN
Ferme(fenvente)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
//Code deuxième fenêtre
 
 
MoiMême..Visible=Vrai
 
HLitDernier("FVENTE","NumVent1")
FVENTE.NumVent1=FVENTE.NumVent1+1
FichierVersEcran()
 
INITCOMBO(TYPEV,"TYPVENTE","TypVCode","TypVLib")
VenteDateDebut=""
 
 
VenteDateCloture=""
 
 
HGèreIntégrité(TYPFVE_1,"*",hCardinalité,Faux)
 
EcranVersFichier
SI HAjoute(FVENTE) = Faux ALORS
	SI HErreurIntégrité() ALORS	
		Erreur("Erreur d'integrité")
	FIN
	SI HErreurDoublon() ALORS
		Erreur("L'enregistrement ne peut pas être ajouté.",...
		"une vente porte déjà le même numéro de vente")
		//fenvente.NUMVENT1=""
	FIN
FIN
HRAZ(FVENTE)
 
HGèreIntégrité(TYPFVE_1,"*",hCardinalité,Vrai)
 
Ferme("FenVente2")
HLitPremier("FVENTE","NumVent")
RAZ()
Ferme("FenVente2")
 
PROCEDURE INITCOMBO(ChpCombo,NomFic,NomRubEnClair,NomRubCle)
 
NumEnr est un entier   = 1
Sablier
H.EnDehors=0
 
TANTQUE PAS HEnDehors()
	HLit(NomFic,NumEnr)
	SI (HEtat()=hEtatActif) ET PAS HEnDehors() ALORS 
		ListeAjoute(ChpCombo..Nom,{NomFic+"."+NomRubEnClair}+gLien(NumériqueVersChaîne({NomFic+"."+NomRubCle})))
	FIN
	NumEnr++
FIN
 
gLienActive(ChpCombo..Nom,Vrai)

[lololebricoleur]

Ok, ça c'est le contexte.
Mais quel est le problème avec tes procédures ?
Est-ce ce que tu dis au début "Chaque nouvelle vente récupère les paramètres de la vente précédente" ?

[BAHIRI]

Bonjour,

Le seule élément à récupérer c'est le numéro de la vente +1 (numéro de la novelle vente). Il est probable qu'il faut un raz pour mettre à jour les paramètres de la ventes.

[lololebricoleur]

Ok.

Pourquoi ton numéro de vente n'est pas géré automatiquement ?
Perso, j'ai pour habitude de mettre un id automatique dans tous mes fichiers de données, même si je dois gérer en parallèle une réf ou un code manuel.
Cela t'évitera d'avoir à le gérer.

Pour t'aider, j'ai besoin d'en savoir plus.
Je suppose que tu as 2 fenêtres pour 2 utilités différentes, exact ?
A vue de nez, je dirais qu'une de sert pour afficher une vente existante et que l'autre de sert à en créer une nouvelle. Est-ça ?

Pour ce qui est de ton problème, il est normal que la 2ème fenêtre récupère les données de la dernière vente, cela vient de la fonction fichierversecran() que tu utilises dans ton code.
Tu travail sur quelle version de windev ?

[BAHIRI]

Bonsoir,

J'ai la eu la solution :

En effet, au lancement de l'application le bouton "Nouveau" de la fenêtre1 ouvre le fenêtre2. Le numéro de la vente est défini par défaut (N+1) avec la possibilité de le modifier. Après validation je récupère la dernière vente clôturée et facturée et je retourne à la fenêtre1. En validant, avant de sortir de fenêtre1 je ne faisais pas de RAZ pour réinitialiser la vente pour quelle ne soit ni facturée ni clôturée.

J'utilise la version 19.

Merci