Discussion :

[AhmedZineb]

bonjour ,
J'essai d'utiliser un timer dans un service windows. Le problème que le timer n'a pas l'air de se déclancher. c'est a dire le script que j'ai met
dans Tupdate_Tick n'execute pas

voila le code

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
  Protected Overrides Sub OnStart(ByVal args() As String)
        Maclass.GPassage.chaine = "Provider=VFPOLEDB.1;Data Source=\\192.168.1.26\atlascom_old\UNIVERS2013\UNIVERS2013\bdgestc.dbc;"
        Tupdate.Interval = 100
        Tupdate.Enabled = True
      End Sub
    Protected Overrides Sub OnShutdown()
        Tupdate.Dispose()
    End Sub
Private Sub Tupdate_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tupdate.Tick
        affectertax()
    End Sub
Sub affectertax()
        ds = Maclass.getdataset(" SELECT  Nfact,Sum(Qte) As QteTSFB from lFacturec  where Nfact in (select Nfact from Facturec where  Anouveau=.f. And Valide=.T.  And len(alltrim(Message))=0  )  And Code in (select code from article where Sfamille='TSFB') group by Nfact  Order By Nfact desc")
        If ds.Tables(0).Rows.Count <> 0 Then
            'If CInt(ds.Tables(0).Rows(0).Item("QteTSFB")) >= 1000 Then
            qtetonne = CInt(ds.Tables(0).Rows(0).Item("QteTSFB")) / 1000
 
            If Maclass.Execute("UPDATE FACTUREC SET Message=' Dont TSB =" & CDec(qtetonne) * CDec(parametretaxe) & " Dhs'    where NfACT=" & ds.Tables(0).Rows(0).Item("Nfact")) = True Then
                doc.Load(My.Application.Info.DirectoryPath & "\Facture.xml")
                fact = doc.CreateElement("Facture")
                Nfact = doc.CreateElement("Nfact")
                message = doc.CreateElement("observation")
                dtmodif = doc.CreateElement("Date")
                Nfact.InnerText = ds.Tables(0).Rows(0).Item("nfact")
                message.InnerText = " Dont TSB =" & CDec(qtetonne) * CDec(parametretaxe) & " Dhs"
                dtmodif.InnerText = Date.Now
                fact.AppendChild(Nfact)
                fact.AppendChild(message)
                fact.AppendChild(dtmodif)
                doc.DocumentElement.AppendChild(fact)
 
                doc.Save(My.Application.Info.DirectoryPath & "\Facture.xml")
            End If
            'End If
 
        End If
    End Sub

Merci beaucoup de me répondre

[Pol63]

les windows.forms.timer ne fonctionnent pas dans les services
il y a 2 autres timers dans le framework (genre threading.timer) qui eux doivent fonctionner, sinon un thread avec une boucle et du sleep

[AhmedZineb]

merci beaucoup pour votre réponse

mais comment je peux utiliser (threading.timer )

j'ai aucune aidé je suis débutante merci bqqqqq pour m'aider

[Pol63]

tu tapes threading.timer dans google, tu vas tomber sur l'aide de vb (msdn), tu lis les explications et tu fais des tests

c'est valable pour tout ...

[youtpout978]

En consultant le msdn : http://msdn.microsoft.com/fr-fr/libr...ing.timer.aspx

Edit: grilled

[AhmedZineb]

voila ça se marche bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Dim myTimer As New System.Timers.Timer()
 Protected Overrides Sub OnStart(ByVal args() As String)
        Maclass.GPassage.chaine = "Provider=VFPOLEDB.1;Data Source=\\192.168.1.26\atlascom_old\UNIVERS2013\UNIVERS2013\bdgestc.dbc;"
        AddHandler myTimer.Elapsed, AddressOf OnTimedEvent
        myTimer.Interval = 1000
        myTimer.Enabled = True
        myTimer.Start()
    End Sub
 Private Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs)
 
        affectertax()
 
    End Sub

mais le traitement de l'enregistrement dans fichier xml ne marche pas méme les modification sont bien effectuer
voila le procedure

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
 Sub affectertax()
        myTimer.Stop()
        Try
            ds = Maclass.getdataset(" SELECT  Nfact,Sum(Qte) As QteTSFB from lFacturec  where Nfact in (select Nfact from Facturec where  Anouveau=.f. And Valide=.T.  And len(alltrim(Message))=0  )  And Code in (select code from article where Sfamille='TSFB') group by Nfact  Order By Nfact desc")
            If ds.Tables(0).Rows.Count <> 0 Then
                'If CInt(ds.Tables(0).Rows(0).Item("QteTSFB")) >= 1000 Then
                qtetonne = CInt(ds.Tables(0).Rows(0).Item("QteTSFB")) / 1000
 
                If Maclass.Execute("UPDATE FACTUREC SET Message=' Dont TSB =" & CDec(qtetonne) * CDec(parametretaxe) & " Dhs'    where NfACT=" & ds.Tables(0).Rows(0).Item("Nfact")) = True Then
                    doc.Load(My.Application.Info.DirectoryPath & "E:\Facture.xml")
                    fact = doc.CreateElement("Facture")
                    Nfact = doc.CreateElement("Nfact")
                    message = doc.CreateElement("observation")
                    dtmodif = doc.CreateElement("Date")
                    Nfact.InnerText = ds.Tables(0).Rows(0).Item("nfact")
                    message.InnerText = " Dont TSB =" & CDec(qtetonne) * CDec(parametretaxe) & " Dhs"
                    dtmodif.InnerText = Date.Now
                    fact.AppendChild(Nfact)
                    fact.AppendChild(message)
                    fact.AppendChild(dtmodif)
                    doc.DocumentElement.AppendChild(fact)
 
                    doc.Save(My.Application.Info.DirectoryPath & "E:\Facture.xml")
                End If
                'End If
 
            End If
        Catch ex As Exception
        Finally
            myTimer.Start()
        End Try
 
        myTimer.Start()
    End Sub

merci de me repondre

[Pol63]

mais le traitement de l'enregistrement dans fichier xml ne marche pas

on est pas là pour tester ton code et te donner le code qui marche
donc si tu as un problème, tu le décris !
"ca ne marche pas" ca n'a jamais mené à rien ...

Catch ex As Exception

c'est cool d'intercepter les erreurs, mais si c'est pour ne rien faire ca ne sert à rien
tu peux enregistrer les détails de l'erreur dans un fichier

[AhmedZineb]

Merci bq

mais j'ai voulu dire que le code ca se marche bien dans windows form je l'ai testé
mais dans windows service s'éxécute pas et il ne génére aucun error

[Pol63]

le service s'arrete t il ? (actualiser la fenetre services)

[AhmedZineb]

je l'ai actualisé et tjr rien
j'ai essayé avec fichier txt au lieux de xml et il ca marche bien

merci beaucoup