Discussion :

[zaghi]

Bonsoir mes amis,
j'ai un formulaire qui génère un fichier EXCEL pour les mouvements de stock de 1500 articles :

Le problème c'est il prend beaucoup du temps environ 30 minutes et au même temps il se plante

Voici le code de traitement que j'ai fait :

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
Private Sub traitement()
        Try
            Dim _date1 As New Date(DateTimePicker1.Value.Year, DateTimePicker1.Value.Month, DateTimePicker1.Value.Day, 0, 0, 0)
            Dim _date2 As New Date(DateTimePicker2.Value.Year, DateTimePicker2.Value.Month, DateTimePicker2.Value.Day, 23, 59, 59)
 
            Dim articles As New DataTable
            articles = db_centrale_foxpro.execute_select("select code,libelle,0.O,0.O,0.0,0.0,0.0 from article order by code asc")
 
            Dim ligne As DataRow = dernierInventaire()
            Dim code_inventaire As String = ligne.Item(0)
            Dim date_inventaire As Date = ligne.Item(1)
 
            Dim tampxls As New StringBuilder()
            tampxls.Append(vbTab).Append(vbTab).Append("MOUVEMENT DES ARTICLES   ").Append(vbTab).Append(vbTab).Append(vbTab).Append("Exporter Le:").Append(vbTab).Append(Date.Now()).Append(vbCr).Append(vbCr)
            tampxls.Append("Magasin :").Append(vbTab).Append(liste_depots.Text.ToString).Append(vbCr).Append(vbCr)
            tampxls.Append("Du").Append(vbTab).Append(DateTimePicker1.Value.Date.ToString).Append(vbTab).Append("A").Append(vbTab).Append(DateTimePicker2.Value.Date.ToString).Append(vbCr).Append(vbCr)
            tampxls.Append("code").Append(vbTab).Append("libelle").Append(vbTab).Append(vbTab).Append(vbTab).Append("QteInitial").Append(vbTab).Append("QteEntrer").Append(vbTab).Append("QteSortie").Append(vbTab).Append("CA").Append(vbTab).Append("StokFinal").Append(vbTab).Append(vbTab).Append(vbCr)
 
 
            For Each article As DataRow In articles.Rows
                If article.Item(0).ToString.Trim <> "" Then
                    'qte initial
                    article.Item(2) = (qteInventaire(article.Item(0).ToString, code_inventaire) + qteInterDepot(article.Item(0).ToString, date_inventaire, _date1) + qteBonRetour(article.Item(0).ToString, date_inventaire, _date1)) - qteBonLivraison(article.Item(0).ToString, date_inventaire, _date1)
                    'qte entrer
                    article.Item(3) = qteInterDepot(article.Item(0).ToString, _date1, _date2) + qteBonRetour(article.Item(0).ToString, _date1, _date2)
                    'qte sortie
                    article.Item(4) = qteBonLivraison(article.Item(0).ToString, _date1, _date2)
                    'CA
                    article.Item(5) = chiffreAffaire(article.Item(0).ToString, _date1, _date2)
                    'stock final
                    article.Item(6) = (article.Item(2) + article.Item(3)) - article.Item(4)
 
 
                    tampxls.Append(article.Item(0).ToString).Append(vbTab)
                    tampxls.Append(article.Item(1).ToString).Append(vbTab).Append(vbTab).Append(vbTab)
                    tampxls.Append(article.Item(2).ToString).Append(vbTab)
                    tampxls.Append(article.Item(3).ToString).Append(vbTab)
                    tampxls.Append(article.Item(4).ToString).Append(vbTab)
                    tampxls.Append(article.Item(5).ToString).Append(vbTab)
                    tampxls.Append(article.Item(6).ToString).Append(vbTab).Append(vbCr)
 
                End If
            Next
 
 
            tampxls.Append(vbCr).Append(vbTab).Append(vbTab).Append(vbTab).Append(vbTab).Append(vbTab).Append(vbTab).Append("TOTAL CA :").Append(vbTab).Append(vbTab).Append("0.0").Append(vbCr)
            tampxls.Append(vbCr).Append(vbTab).Append(vbTab).Append(vbTab).Append(vbTab).Append(vbTab).Append(vbTab).Append("TOTAL QteSortie :").Append(vbTab).Append(vbTab).Append("0.0").Append(vbCr)
            tampxls.Append(vbCr).Append(vbTab).Append(vbTab).Append(vbTab).Append(vbTab).Append(vbTab).Append(vbTab).Append("TOTAL QteEntrer :").Append(vbTab).Append(vbTab).Append("0.0").Append(vbCr)
 
 
            RichTextBox1.Text = tampxls.ToString()
            RichTextBox1.SaveFile("fichier.xls", RichTextBoxStreamType.PlainText)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Voici un exemple d'une fonction parmi les fonctions que j'ai utilisé dans le traitement :

Code :

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

1
2
3
4
5
6
7
8
9
Private Function qteBonLivraison(ByVal code_article As String, ByVal date1 As Date, ByVal date2 As Date) As Decimal
        Dim qte As Decimal
        Try
            qte = db_centrale_foxpro.valeurUnique("SELECT SUM(lblivre.qte) FROM lblivre WHERE lblivre.code='" & code_article & "' AND lblivre.nbl in (SELECT nbl FROM bonlivra WHERE bonlivra.depote=" & liste_depots.SelectedValue.ToString & " AND bonlivra.valide =.T. AND bonlivra.date BETWEEN " & General.toDateFoxPro(date1) & " AND " & General.toDateFoxPro(date2) & ")")
        Catch ex As Exception
            qte = 0
        End Try
        Return qte
    End Function

Merci de votre aide ^^