Maut, QU-Kontrolle, MAhnlauf, Kundebearbeiten, etc.

SDL/kunden/frmKundenblatt.vb

@@ -15,6 +15,7 @@ Public Class frmKundenblatt
     Dim lkwKzChange As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
     ' Dim KUNDE As cKunde = Nothing
     Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
+    Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
 
     '  Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing
 
@@ -285,7 +286,7 @@ Public Class frmKundenblatt
 
                     End Select
                 Case "tbZoll" : initTZOLL()
-                Case "tbOfferte" : UsrCntlOfferte1.init(kdNr)
+                Case "tbOfferte" : UsrCntlOfferte1.init(kdNr, isVerag360)
 
             End Select
         End If
@@ -608,7 +609,7 @@ Public Class frmKundenblatt
             If kdNr > 0 Then
                 KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) 'kundenSQL.getKundeByKdNr(kdNr)
                 ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr) 'kundenSQL.getKundeByKdNr(kdNr)
-
+                KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
                 'Me.dataAdapterFirma = Nothing
                 ' Me.dataFirma.Clear()
                 'SDL!
@@ -628,6 +629,7 @@ Public Class frmKundenblatt
                 lblFirmenname2.Text = checkNullStr(ADRESSE.Name_2)
 
                 lblStrasse.Text = checkNullStr(ADRESSE.Straße)
+                lblAdressenzusatz.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz)
                 lblLandPlzOrt.Text = checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort)
 
                 lblPostfach.Text = checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach)
@@ -1239,6 +1241,7 @@ Public Class frmKundenblatt
         '  scanJaraVertretung.Visible = False
         scanErstbestellung.Visible = False
         scanMWSTAgreement.Visible = False
+        Button7.Visible = False
 
         If dgvSDLLeistungenFull.SelectedRows.Count > 0 Then
             Panel2.Visible = True
@@ -1252,7 +1255,7 @@ Public Class frmKundenblatt
 
             Select Case tmpSDLNr
                 Case 100 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.IDSKundenNr 'IDS
-                Case 200 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.ATKundenNr 'AT
+                Case 200 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.ATKundenNr : Button7.Visible = True 'AT
                 Case 212 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.UTAKundenNr 'UTA
                 Case 101 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.WölflKundenNr 'WÖLFL
                 Case 202 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr 'TELEPASS
@@ -1295,6 +1298,7 @@ Public Class frmKundenblatt
                     'gibt keine Einträge
                 Case 200 : kundenSQL.setPartnerKdNrFromFMZOLL_AT(kdNr, txtPartnerKdNr.Text) 'AT
                     kundenSQL.setPartnerKdNrSDL("KartenNr", txtPartnerKdNr.Text, kdNr, sdlNrTmp)  'UTA
+
                 Case 212 : kundenSQL.setPartnerKdNrFromFMZOLL("UTAKundenNr", txtPartnerKdNr.Text, kdNr)  'UTA
                     kundenSQL.setPartnerKdNrSDL("CLIENT-Nr", txtPartnerKdNr.Text, kdNr, sdlNrTmp)  'UTA
                 Case 101 : kundenSQL.setPartnerKdNrFromFMZOLL("WölflKundenNr", txtPartnerKdNr.Text, kdNr) 'WÖLFL
@@ -1706,7 +1710,6 @@ Public Class frmKundenblatt
     End Sub
 
     Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
-
         changeTab(4, sender)
     End Sub
 
@@ -1985,5 +1988,10 @@ Public Class frmKundenblatt
             initDGVOffenePosten()
         End If
     End Sub
+
+    Private Sub Button7_Click_1(sender As Object, e As EventArgs) Handles Button7.Click
+        Dim f As New frmGoMautBoxen_Bestellung(KUNDE, ADRESSE, KUNDE_ERW)
+        f.ShowDialog()
+    End Sub
 End Class