bonsoir,
J'ai un problème avec mon appli sur l'impression des états qui se pose que sous vista.
Vista m'indique que l'aperçu avant impression a cessé de fonctionner et ferme mon application.
Cette application fonctionne tres bien sous XP.
Je développe en WD10 mais j'ai compilé mon appli en WD12 chez un ami et même problème.
Bizarre
mon code n'a rien d'exceptionnel, juste quelques réglage pour mes requetes:
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71 // selection d'un profil si activé Refprofil=0 SI Parametres.profilactivé = Vrai ALORS Ouvre(FEN_selecprofil) SINON FIN // gestion des déplacements affichés SI SAI_PériodeD="" OU SAI_Au="" ALORS SI SEL_Affichage=1 ALORS REQ_frais.Param2=COMBO_Personnel.IDPersonnel HExécuteRequête(REQ_frais,hModifieFichier) SINON REQ_frais.Param1=0 REQ_frais.Param2=COMBO_Personnel.IDPersonnel HExécuteRequête(REQ_frais,hModifieFichier) FIN SINON SI SEL_Affichage=1 ALORS REQ_frais.Param2=COMBO_Personnel.IDPersonnel REQ_frais.Param3=SAI_PériodeD REQ_frais.Param4=SAI_Au HExécuteRequête(REQ_frais,hModifieFichier) SINON REQ_frais.Param1=0 REQ_frais.Param2=COMBO_Personnel.IDPersonnel REQ_frais.Param3=SAI_PériodeD REQ_frais.Param4=SAI_Au HExécuteRequête(REQ_frais,hModifieFichier) FIN FIN //boucle pour passer tous les déplacements à fait. HLitPremier(REQ_frais) TANTQUE PAS HEnDehors(REQ_frais) REQ_frais.fait = 1 HModifie(REQ_frais) HLitSuivant(REQ_frais) FIN iAperçu(i100) iImprimeEtat(ETAT_feuillefrais) //mise à jour des modif (fait=1 lorsque déplacements imprimés) SI SAI_PériodeD="" OU SAI_Au="" ALORS SI SEL_Affichage=1 ALORS REQ_deplacement.Param2=COMBO_Personnel.IDPersonnel HExécuteRequête(REQ_deplacement,hModifieFichier) SINON REQ_deplacement.Param1=0 REQ_deplacement.Param2=COMBO_Personnel.IDPersonnel HExécuteRequête(REQ_deplacement,hModifieFichier) FIN SINON SI SEL_Affichage=1 ALORS REQ_deplacement.Param2=COMBO_Personnel.IDPersonnel REQ_deplacement.Param3=SAI_PériodeD REQ_deplacement.Param4=SAI_Au HExécuteRequête(REQ_deplacement,hModifieFichier) SINON REQ_deplacement.Param1=0 REQ_deplacement.Param2=COMBO_Personnel.IDPersonnel REQ_deplacement.Param3=SAI_PériodeD REQ_deplacement.Param4=SAI_Au HExécuteRequête(REQ_deplacement,hModifieFichier) FIN FIN TableAffiche(TABLE_deplacement)
Quelqu'un a t'il déjà eu ce problème????
Partager