neu

SDL/Classes/cGenWord.vb

@@ -155,6 +155,74 @@ Public Class cGenWord
     End Function
 
 
+
+    Public Function genUebernahmebestaetigungKuvert(dt As DataTable, kdNr As Integer, sachbearbeiter As String, autodruck As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
+        Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
+        Try
+            pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Uebernahmebestätigung\ÜBERNAHMEBESTÄTIGUNG_Kuvert.dotx"
+            Dim oWord As New Microsoft.Office.Interop.Word.Application
+            odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
+
+            '    Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
+            Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
+            If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
+            '  Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+
+            Dim oTable As Word.Table
+
+            odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
+            odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
+            odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
+            '  odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
+            ' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
+            odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+            odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
+            odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
+            odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
+
+            If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
+                If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
+                    oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
+                    Dim i = 1
+                    Dim kfzTmp = ""
+                    For Each r As DataRow In dt.Rows
+                        If r("KfzKennzeichen").ToString <> "" And r("KartenNr").ToString <> "" Then
+                            If cSqlDb.checkNullStr(r("KfzKennzeichen")) <> kfzTmp Then
+                                kfzTmp = cSqlDb.checkNullStr(r("KfzKennzeichen"))
+                                oTable.Rows(i + 1).Cells(1).Range.Text = kfzTmp
+                            Else
+                                oTable.Rows(i + 1).Cells(1).Range.Text = ""
+                            End If
+                            oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KarteBoxBezeichnung"))
+                            oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
+                            ' oTable.Rows(i + 1).Cells(4).Range.Text = cSqlDb.checkNullStr(r("PIN"))
+                            If i < dt.Rows.Count Then oTable.Rows.Add()
+                            i += 1
+                        End If
+                    Next
+                End If
+            Else
+                MessageBox.Show("Textmarke nicht vorhanden!")
+            End If
+
+            odoc.Save() : odoc.Activate()
+
+
+            If autodruck Then
+                Dim t As New Threading.Thread(Sub()
+                                                  print(odoc, PrinterName)
+                                              End Sub)
+                t.IsBackground = True
+                t.Start()
+            End If
+
+        Catch ex As Exception
+            MessageBox.Show(ex.ToString)
+        End Try
+        Return odoc
+    End Function
+
+
     Sub print(odoc As Microsoft.Office.Interop.Word.Document, PrinterName As String)
         odoc.Application.WordBasic.FilePrintSetup(Printer:=PrinterName, DoNotSetAsSysDefault:=1)
         odoc.Application.PrintOut() ': odoc.Close()