neu

Aviso/frmHauptfenster.vb

@@ -2708,8 +2708,57 @@ Public Class frmHauptfenster
     End Sub
 
     Private Sub TESTToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TESTToolStripMenuItem.Click
+        'VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({"C:\Users\DEVELOPER1\Desktop\Reiter.pdf"})
+        ' VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder("C:\Users\DEVELOPER1\Desktop\20191017092932604.pdf", 489919001, 1234)
 
-        VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder("C:\Users\DEVELOPER1\Desktop\20191017092932604.pdf", 489919001, 1234)
+        TryPDF()
+    End Sub
+
+    Shared Sub TryPDF()
+        '  Spire.License.LicenseProvider.SetLicenseKey("0xMEMAEABRiC6jPC4G3HMNAremyuZ15w8z1KmLKr9LnNmK8HaKpB6Q2+qrwh1uG0h5ui52KoJSRMg1suH9cs+IW+GtPapLk/UMMWbBlil6FmO/3TvpVJeLs3UetAz3YYCThbpPViCAY/6vBZrGePq9jMpST0Ln3PgEAVK6Obm4NELOjk9GNUdQGXgdCQ7ry9QIXR5DPYOSi2gSkQ+WihEx9K1hS5bl6VYOmIeAg109mcPIzdlja8O8z8wvIrqBwdivQXCN88B0NzEoBr7EiKl3mQEIcm1W8B3ppWmYPeZt3xfkR9H+xdVVfRnK8AEEgfB+/YEA9K2hQZpTPhaz3cHq31hHqeS2/NgQxaTx0/QghmPaLnoxqR2v2dDRe2oOxfXqmeHTI5e9cl8nWcgYl2fRhaDSvYYOs7GeO8tmiOlgMCdg+JO3EMQByyQ+AACEKRuTB8TI7OIU9POPs6dWaEZyu3YuWSDk4rGnCmdpJ3gHCJ7Qy9qoBtv+psnJAe/ylQCbqdvejSAKKtUonSpolK2zhqFljWqsWclgxk4NdvOd4tphER9c7H5sr2cn/SZgCXRftpk+G6zT/JPcY7LH5OP4kgQR9pH3g7O67C0YPCE7+20gLsTNaPfv7/mGoIMzTbUoteJN5D9jTLipYtfh8eLaEsLWL1rJ+sqr+MQvoYDNeWq6oG8bjkTyFe2GQkOZlBZEmpmR7W2QliMC7uSfbuJe6XHpM3dgROIluQHJQDAKge+LlYOd+QU5QPsI754noJZttSNKthzPxI9rP/FN+otlvvG8nddbx8v+PZAJ6KovIvexH7lWITw/Xrak4wzzaXCoeC5wUM2M5Y/4PL8tbKM+qIrH0kMZPHAdGIM4wJ8PA1UoEqB9Hgml6ggzk69WA1zY88W0y03js/7a/tWgwa+sEK9YK+cJXy54FpsLRFqkpSA0mOcJa3ukST9wnCOzVdN+Z4K4mCUzR++VJPVNkAA+KxEHrOOWG5kaUwUAk0sVRB8j8pjB83InevzxZJGX0+F+agjZJHQpzPdF1blS9WQqrW9p80fco3YI63i9+K78Q5TIuSlHOlPTLvuC1dxglzD3WkLsxnBd9woA5zQLVMdfYTfGntOuAEiBYqyVIMo35J/ese8SxczTqKOCcxBdLYCtE4S23yik6gL1YifmvjboavpRl6BPEf9M8iLe2xLRiJ+63rXTnexITUUYsq2XqCOj2YDdDnQywjMfnQ74WRQfD1vrGu7xcCTDCDkfql8uF2f8w00kqCS9UgpnsEuw5FoElVrgPNLvOlDSgqLdHOG0yiL9wwzPxtUZBiq6vNxkEkc+w0ZaQr012bHQoDyR/uMKPoLgmANaCb7qnsWLeoo+IrhfjwpUW6dXnIo7ENAFS0U6kjwGMrWDJU2JaH3M+8Iz//HLDO3Yr3eWC+wtt/I3Ii48Ra6CgPYTOfeRL3L+NkEBYfCVdxpQ==")
+
+        Dim tmpFile = "C:\Users\DEVELOPER1\Desktop\Base\" & "27 AVN 83.pdf"
+        'Test file: 16 AST 87 AVIS.PDF'
+        Dim oldPdf As New Spire.Pdf.PdfDocument()
+        oldPdf.LoadFromFile(tmpFile)
+        For i As Integer = 0 To oldPdf.Pages.Count - 1
+            extractFirstPage(tmpFile, i)
+        Next i
+    End Sub
+
+    Shared Sub extractFirstPage(ByRef TmpFile, i)
+        Dim oldPdf As New Spire.Pdf.PdfDocument()
+        oldPdf.LoadFromFile(TmpFile)
+
+        Dim SplitPdf As New Spire.Pdf.PdfDocument()
+        Dim page1 As Spire.Pdf.PdfPageBase
+        page1 = SplitPdf.Pages.Add(oldPdf.Pages(0).Size, New Spire.Pdf.Graphics.PdfMargins(0))
+        oldPdf.Pages(0).CreateTemplate().Draw(page1, New PointF(0, 0))
+        Dim result As String = String.Format("C:\Users\DEVELOPER1\Desktop\Base\" & "output2\SplitOutput{0}.pdf", i)
+        SplitPdf.SaveToFile(result, Spire.Pdf.FileFormat.PDF)
+
+
+        Dim pdfNew As New Spire.Pdf.PdfDocument()
+        Dim page As Spire.Pdf.PdfPageBase
+
+        For j As Integer = 1 To oldPdf.Pages.Count - 1
+            Dim pageOLD As Spire.Pdf.PdfPageBase = oldPdf.Pages(j)
+            If pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle90 Then
+                page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0))
+            ElseIf pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle270 Then
+                page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0))
+            Else
+                page = pdfNew.Pages.Add(pageOLD.Size, New Spire.Pdf.Graphics.PdfMargins(0))
+            End If
+            oldPdf.Pages(j).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
+
+        Next
+
+        pdfNew.SaveToFile("C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf")
+
+        pdfNew.Dispose()
+        System.IO.File.Delete(TmpFile)
+        TmpFile = "C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf"
 
     End Sub
 End Class
@@ -3547,10 +3596,10 @@ Public Class AvisoStatusFunctions
                 End Try
         End Select
 
-        If False Then
+        If True Then
 
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", CONTROL.FindForm) Then
-                Dim doAutoNacherf = (vbYes = MsgBox("Autonacherfassung durchführen?", vbYesNoCancel))
+                Dim doAutoNacherf = True ' (vbYes = MsgBox("Autonacherfassung durchführen?", vbYesNoCancel))
                 If doAutoNacherf Then
                     AUTONACHERFASSUNG(CONTROL, AvisoID)
                 End If
@@ -3575,10 +3624,23 @@ Public Class AvisoStatusFunctions
             Next
 
             For Each s In SENDUNG_LIST
-                Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT
-                If ZOLL_IMPORT.AUTO_IMPORT(s.tblSnd_SendungID) Then
-                    s.tblSnd_SpeditionsbuchEingetragen = 1
-                    s.SAVE()
+                If s.tblSnd_Abfertigungsart_ID = 23 Then
+                    If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FMZollPersID Then
+                        Dim Personalnummer = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FMZollPersID
+
+                        Dim SPEDITIONSBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
+                        Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT
+                        Dim notFound As Boolean = True
+                        SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, AvisoID, s.tblSnd_SendungID, "", "", "", "", "", notFound, True, Personalnummer)
+                        If ZOLL_IMPORT.checkIfAutoOK Then
+                            SPEDITIONSBUCH.SAVE()
+                        End If
+
+                        If ZOLL_IMPORT.AUTO_IMPORT(s.tblSnd_SendungID) Then
+                            s.tblSnd_SpeditionsbuchEingetragen = 1
+                            s.SAVE()
+                        End If
+                    End If
                 End If
             Next