[WD10] plantage appli avec vista sur impression Etat
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:
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????
