Bonjour!
Pour ce qui on intervenu sur ma dernière discussion, mon problème n'est pas fini jusqu'à présent.
Dans l'éditeur de windev tout est ok et après l'installation mon portable sur le quel je travail tout est ok aussi.
Mais j'ai installé sur une autre machine et je me suis rendu compte que la connexion ne marche pas.
j'utilisais le SQLConnecte("D:\MARCHANDISES\LG_MARCHANDISE.WDD", "", "") car je travaillais avec le D.
J'ai donc changé par SQLConnecte("C:\MARCHANDISES\LG_MARCHANDISE.WDD", "", "") car j'installe sur le C.
Mais jusqu'à présent ça ne marche pas.
Est ce quelle que chose doit être installé sur la machine avant?
voici mon code au complet en bas:
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94 d est un entier=0 q est un entier=0 qt1 est un entier=0 qt2 est un entier=0 TexteRequête1 est une chaîne TexteRequête2 est une chaîne j est une Date i est une chaîne k est une chaîne o est une chaîne x est une chaîne y est une Date //sParam2 est une chaine HLitRechercheDernier(Comporte,Comporte.Designation,FEN_Fiche_Contient.SC_Fiche.COMBO_Designation) SI HTrouve(Comporte) ALORS FEN_Fiche_Contient.SC_Fiche.SAI_Date_peremption=Comporte.Date_peremption FEN_Fiche_Contient.SC_Fiche.COMBO_Nom_magasin=Comporte.Nom_magasin o=Comporte.Nom_magasin x=FEN_Fiche_Contient.SC_Fiche.COMBO_Designation y=Comporte.Date_peremption SQLConnecte("D:\MARCHANDISES\LG_MARCHANDISE.WDD", "", "") TexteRequête1 = "SELECT DISTINCT Designation , Nom_magasin ,Date_peremption , Qte FROM Comporte " SQLExec(TexteRequête1, "REQ1") TANTQUE SQLAvance("REQ1") = 0 i=SQLLitCol("REQ1", 1) SI i=x ALORS k=SQLLitCol("REQ1", 2) SI k=o ALORS j=SQLLitCol("REQ1", 3) SI j=y ALORS HLitDernier(COPIECOMPORTE) COPIECOMPORTE.RQC = SQLLitCol("REQ1", 4) COPIECOMPORTE.RQCI=0 HAjoute(COPIECOMPORTE) FIN FIN FIN FIN SQLFerme("REQ1") TexteRequête2 ="SELECT DISTINCT Designation , Nom_magasin , Date_peremption , Qte FROM Contient " SQLExec(TexteRequête2, "REQ2") TANTQUE SQLAvance("REQ2") = 0 i=SQLLitCol("REQ2", 1) SI i=x ALORS k=SQLLitCol("REQ2", 2) SI k=o ALORS j=SQLLitCol("REQ2", 3) SI j=y ALORS HLitDernier(COPIECOMPORTE) COPIECOMPORTE.RQC=0 COPIECOMPORTE.RQCI = SQLLitCol("REQ2", 4) HAjoute(COPIECOMPORTE) FIN FIN FIN FIN SQLFerme("REQ2") HLitPremier(COPIECOMPORTE) TANTQUE PAS HEnDehors(COPIECOMPORTE) SI COPIECOMPORTE.RQC<>"" ALORS qt1+=COPIECOMPORTE.RQC FIN SI COPIECOMPORTE.RQCI<>"" ALORS qt2+=COPIECOMPORTE.RQCI FIN HLitSuivant(COPIECOMPORTE) FIN HSupprimeTout(COPIECOMPORTE) q=qt1-qt2 HLitPremier(Dureperemption) SI DateValide( Comporte.Date_peremption) ALORS d=DateVersEntier(Comporte.Date_peremption)-DateVersEntier(DateSys()) SI d<Dureperemption.Dure ET d>0 ALORS SI qt1>qt2 ALORS Info((q)+RC+"quantite(s) de"+RC+Comporte.Designation+RC+"sera perimé dans "+RC+d+RC+"jour(s)"+RC+"date de peremption:"+RC+Comporte.Date_peremption) FIN FIN FIN FIN HLitRecherche(PRODUIT,Designation,FEN_Fiche_Contient.SC_Fiche.COMBO_Designation) SI HTrouve(PRODUIT) ALORS FEN_Fiche_Contient.SC_Fiche.SAI_Pv=PRODUIT.Pv FEN_Fiche_Contient.SC_Fiche.SAI_TVA=PRODUIT.Pv*PRODUIT.Taux_TVA FEN_Fiche_Contient.SC_Fiche.SAI_TPvHT=PRODUIT.Pv*FEN_Fiche_Contient.SC_Fiche.SAI_Qte FEN_Fiche_Contient.SC_Fiche.SAI_TPvTTC=FEN_Fiche_Contient.SC_Fiche.SAI_TPvHT+FEN_Fiche_Contient.SC_Fiche.SAI_TVA FEN_Fiche_Contient.SC_Fiche.SAI_Remise=FEN_Fiche_Contient.SC_Fiche.SAI_TPvTTC*PRODUIT.Taux_remise FEN_Fiche_Contient.SC_Fiche.SAI_Qte=q FIN
Partager