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
| Private Sub traitement()
Try
Dim ligne As DataRow = dernierInventaire()
Dim code_inventaire As String = ligne.Item(0)
Dim date_inventaire As Date = ligne.Item(1)
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 article As Data.OleDb.OleDbDataReader
Dim cnx As New Data.OleDb.OleDbConnection(db_centrale_foxpro.connexion.ConnectionString)
Dim cmd As New Data.OleDb.OleDbCommand("select code,libelle from article order by code asc", cnx)
cnx.Open()
article = cmd.ExecuteReader
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)
Dim a As New Stopwatch
a.Start()
Dim qte_initial, qte_entrer, qte_sortie, chiffre_affaire, stock_final As Decimal
Dim code_article, libelle_article As String
While article.Read
code_article = article.GetString(0)
libelle_article = article.GetString(1)
If code_article.Trim <> "" Then
qte_initial = (qteInventaire(code_article, code_inventaire) + qteInterDepot(code_article, date_inventaire, _date1) + qteBonRetour(code_article, date_inventaire, _date1)) - qteBonLivraison(code_article, date_inventaire, _date1)
qte_entrer = qteInterDepot(code_article, _date1, _date2) + qteBonRetour(code_article, _date1, _date2)
qte_sortie = qteBonLivraison(code_article, _date1, _date2)
chiffre_affaire = chiffreAffaire(code_article, _date1, _date2)
stock_final = (qte_initial + qte_entrer) - qte_sortie
tampxls.Append(code_article).Append(vbTab)
tampxls.Append(libelle_article).Append(vbTab).Append(vbTab).Append(vbTab)
tampxls.Append(qte_initial.ToString).Append(vbTab)
tampxls.Append(qte_entrer.ToString).Append(vbTab)
tampxls.Append(qte_sortie.ToString).Append(vbTab)
tampxls.Append(chiffre_affaire.ToString).Append(vbTab)
tampxls.Append(stock_final.ToString).Append(vbTab).Append(vbCr)
End If
End While
article.Close()
cnx.Close()
a.Stop()
MsgBox(a.ElapsedMilliseconds / 60000)
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 |
Partager