neu

SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb

@@ -1820,5 +1820,104 @@ Public Class usrCntlSpeditionsBuchSuche
         End Select
     End Sub
 
+    Private Sub ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Click
+        lblKdAusFortschritt.Text = "lädt..."
+        Me.Cursor = Cursors.WaitCursor
+        Try
 
+            'Dim dt As DataTable = SQL.loadDgvBySql("SELECT   CAST(Rechnungsausgang.[FilialenNr] as varchar) + '/' + CAST(Rechnungsausgang.[AbfertigungsNr] as varchar) Abfertigungsnummer
+            '               ,[RechnungsNr],RechnungsKundenNr
+            '                  ,cast([RechnungsDatum] as date)RechnungsDatum
+            '                  ,[AbsenderName 1]Absender
+            '               ,(SteuerfreierGesamtbetrag+SteuerpflichtigerGesamtbetrag) Betrag
+            '                 ,Speditionsbuch.BelegNr
+            '                  ,Rechnungsausgang.[FilialenNr],Rechnungsausgang.[AbfertigungsNr] ,Speditionsbuch.Abfertigungsart
+            '              FROM [Rechnungsausgang] inner join Speditionsbuch ON Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr
+            '              where RechnungsKundenNr IN (714869) and rechnungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "'", "FMZOLL")
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT   CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer
+	                           ,cast([Abfertigungsdatum] as date)Abfertigungsdatum
+                              ,Absender
+	                          ,Rechnungsbetrag Betrag 
+  	                          ,BelegNr
+                              ,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung
+                          FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart
+                          where EmpfängerKundenNr IN (714869) and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29)", "FMZOLL")
+
+            Dim Path = ""
+            If dt IsNot Nothing And dt.Rows.Count > 0 Then
+
+
+                Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\"
+                If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
+                    My.Computer.FileSystem.CreateDirectory(sPath)
+                End If
+
+
+                Dim exclApp As Object 'as Application
+                Dim Datei As Object 'as WorkBook
+                Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
+                exclApp = CreateObject("Excel.Application")
+
+                With exclApp
+                    .Visible = False
+
+                    Try
+                        Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx"
+                        While System.IO.File.Exists(Path)
+                            Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                        End While
+                        My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF, False)
+                    Catch ex As System.Exception
+                        '  MsgBox(ex.Message)
+                        MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
+                        Me.Cursor = Cursors.Default
+
+                        Exit Sub
+                    End Try
+
+                    Datei = .Workbooks.Open(Path) 'Anpassen
+                    Blatt = Datei.Worksheets(1) 'Anpassen
+
+                    Blatt.Range("H1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
+
+                    Dim cnt = 3
+                    For Each r In dt.Rows
+                        Blatt.Range("A" & cnt).Value = cnt - 2
+                        Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer")
+                        '   Blatt.Range("C" & cnt).Value = r("RechnungsNr")
+                        Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum")
+                        Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung")
+                        Blatt.Range("E" & cnt).Value = r("Absender")
+                        Blatt.Range("F" & cnt).Value = "" 'r("Betrag")
+                        Blatt.Range("H" & cnt).Value = r("BelegNr")
+
+                        Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
+                        If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "") Then
+                            Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis
+                            Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
+                        End If
+
+                        lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count
+                        Me.Refresh()
+                        cnt += 1
+                    Next
+                    Datei.Save
+
+                    If False Then
+                        Blatt.PrintOutEx()
+                    Else
+                        'Process.Start(Path)
+                        .Visible = True
+
+                    End If
+                End With
+
+            End If
+            lblKdAusFortschritt.Text = "fertig"
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+            lblKdAusFortschritt.Text = "Fehler"
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class