neu

2020-03-23 11:37:40 +01:00
parent cc28d5a6cf
commit 00c51ba4a4
23 changed files with 862 additions and 143 deletions
--- a/SDL/mdm/usrCntlKartenDaten.vb
+++ b/SDL/mdm/usrCntlKartenDaten.vb
@@ -679,7 +679,7 @@ Public Class usrCntlKartenDaten
        End If

        btnRetourniert.Enabled = False
-        If (sdlNr = 202 Or sdlNr = 203 Or sdlNr = 209 Or sdlNr = 210 Or sdlNr = 211 Or sdlNr = 213) Then
+        If (sdlNr = 202 Or sdlNr = 203 Or sdlNr = 209 Or sdlNr = 210 Or sdlNr = 211 Or sdlNr = 213 Or sdlNr = 214 Or sdlNr = 215 Or sdlNr = 216) Then
            btnRetourniert.Enabled = True
        End If

@@ -1092,6 +1092,9 @@ Public Class usrCntlKartenDaten
            Case 210 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\SI.doc"
            Case 211 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\MULTIBOX.doc"
            Case 213 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\HUGO.doc"
+            Case 214 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE.doc"
+            Case 215 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE_IT.doc"
+            Case 216 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE_CZ.doc"
        End Select

        If Not System.IO.File.Exists(pfad) Then
@@ -1114,6 +1117,9 @@ Public Class usrCntlKartenDaten
                Case 210 : odoc = getWordRetourniert_SI(odoc, kdNr, datum)
                Case 211 : odoc = getWordRetourniert_MULTI(odoc, kdNr, datum)
                Case 213 : odoc = getWordRetourniert_HUGO(odoc, kdNr, datum)
+                Case 214 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum)
+                Case 215 : odoc = getWordRetourniert_PLOSE_IT(odoc, kdNr, datum)
+                Case 216 : odoc = getWordRetourniert_PLOSE_CZ(odoc, kdNr, datum)
                Case Else : odoc.Close() : MsgBox("Falsche Leistung")
            End Select

@@ -1235,6 +1241,78 @@ Public Class usrCntlKartenDaten
        End Try
        Return odoc
    End Function
+    Function getWordRetourniert_PLOSE_CZ(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document
+        Try
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=216 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("Anzahl").Range.Text = dt.Rows.Count
+            odoc.FormFields("KdName").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
+            odoc.FormFields("KdStrasse").Range.Text = KUNDE.Straße
+            odoc.FormFields("KdOrt").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
+            odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
+            odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
+            odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+
+            If odoc.Range.Bookmarks.Exists("TabelleKarten2") Then
+                If odoc.Bookmarks("TabelleKarten2").Range.Tables.Count > 0 Then
+                    oTable = odoc.Bookmarks("TabelleKarten2").Range.Tables(1)
+                    Dim i = 1
+                    For Each r As DataRow In dt.Rows
+                        oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
+                        oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
+                        oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("OBUID"))
+                        If i < dt.Rows.Count Then oTable.Rows.Add()
+                        i += 1
+                    Next
+                End If
+            Else
+                MessageBox.Show("Textmarke nicht vorhanden!")
+            End If
+        Catch ex As Exception
+            MessageBox.Show(ex.ToString)
+        End Try
+        Return odoc
+    End Function
+    Function getWordRetourniert_PLOSE(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document
+        Try
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=214 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("Anzahl").Range.Text = dt.Rows.Count
+            odoc.FormFields("KdName").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
+            odoc.FormFields("KdStrasse").Range.Text = KUNDE.Straße
+            odoc.FormFields("KdOrt").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
+            odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
+            odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
+            odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+
+            If odoc.Range.Bookmarks.Exists("TabelleKarten2") Then
+                If odoc.Bookmarks("TabelleKarten2").Range.Tables.Count > 0 Then
+                    oTable = odoc.Bookmarks("TabelleKarten2").Range.Tables(1)
+                    Dim i = 1
+                    For Each r As DataRow In dt.Rows
+                        oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
+                        oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
+                        oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("OBUID"))
+                        If i < dt.Rows.Count Then oTable.Rows.Add()
+                        i += 1
+                    Next
+                End If
+            Else
+                MessageBox.Show("Textmarke nicht vorhanden!")
+            End If
+        Catch ex As Exception
+            MessageBox.Show(ex.ToString)
+        End Try
+        Return odoc
+    End Function

    Function getWordRetourniert_MULTI(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document
        Try
@@ -1347,6 +1425,43 @@ Public Class usrCntlKartenDaten
        Return odoc
    End Function

+    Function getWordRetourniert_PLOSE_IT(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document
+        Try
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=215 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("Anzahl").Range.Text = dt.Rows.Count
+            odoc.FormFields("KdName").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
+            odoc.FormFields("KdStrasse").Range.Text = KUNDE.Straße
+            odoc.FormFields("KdOrt").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
+            odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
+            odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
+            odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+
+            If odoc.Range.Bookmarks.Exists("TabelleKarten2") Then
+                If odoc.Bookmarks("TabelleKarten2").Range.Tables.Count > 0 Then
+                    oTable = odoc.Bookmarks("TabelleKarten2").Range.Tables(1)
+                    Dim i = 1
+                    For Each r As DataRow In dt.Rows
+                        oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
+                        oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("VIACARD"))
+                        oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("TELEPASS-Nr"))
+                        If i < dt.Rows.Count Then oTable.Rows.Add()
+                        i += 1
+                    Next
+                End If
+            Else
+                MessageBox.Show("Textmarke nicht vorhanden!")
+            End If
+        Catch ex As Exception
+            MessageBox.Show(ex.ToString)
+        End Try
+        Return odoc
+    End Function
+
    Private Sub Button8_Click_1(sender As Object, e As EventArgs) Handles Button8.Click
        Me.Cursor = Cursors.WaitCursor
        cProgramFunctions.genExcelFromDGV_NEW(dgvSDL, True, True)