Vollmachten

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -77,6 +77,9 @@ Public Class cKundenErweitert
     Property kde_EORIgeprueftAm As Object = Nothing
     Property kde_AdressZusatz As Object = Nothing
     Property kde_abweichendesZZVL As Object = Nothing
+    Property kde_HRNr As Object = Nothing
+    Property kde_Kapital As Object = Nothing
+    Property dke_KapitalWaehrung As Object = Nothing
 
     Dim SQL As New SQL
 
@@ -155,6 +158,9 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_EORIgeprueftAm", kde_EORIgeprueftAm))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AdressZusatz", kde_AdressZusatz))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_abweichendesZZVL", kde_abweichendesZZVL))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_HRNr", kde_HRNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Kapital", kde_Kapital))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dke_KapitalWaehrung", dke_KapitalWaehrung))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb

@@ -96,6 +96,12 @@ Public Class cKundenKontakte
     Property kkd_AnsprechpartnerAnrede As Object = Nothing
     Property kkd_AnsprechpartnerVorname As Object = Nothing
     Property kkd_AnsprechpartnerNachname As Object = Nothing
+    Property kkd_Ort As Object = Nothing
+    Property kkd_PLZ As Object = Nothing
+    Property kkd_Adresse As Object = Nothing
+    Property kkd_GebDatum As Object = Nothing
+    Property kkd_Land As Object = Nothing
+
 
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
@@ -125,6 +131,12 @@ Public Class cKundenKontakte
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_AnsprechpartnerAnrede", kkd_AnsprechpartnerAnrede))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_AnsprechpartnerVorname", kkd_AnsprechpartnerVorname))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_AnsprechpartnerNachname", kkd_AnsprechpartnerNachname))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Adresse", kkd_Adresse))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Ort", kkd_Ort))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_PLZ", kkd_PLZ))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_GebDatum", kkd_GebDatum))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Land", kkd_Land))
+
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb

@@ -24,6 +24,7 @@ Partial Class frmMessenger
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -38,12 +39,12 @@ Partial Class frmMessenger
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
         Me.SplitContainer = New System.Windows.Forms.SplitContainer()
         Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
-        Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Panel6 = New System.Windows.Forms.Panel()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
         Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
-        Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Panel5 = New System.Windows.Forms.Panel()
         Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.PictureBox2 = New System.Windows.Forms.PictureBox()
@@ -64,7 +65,7 @@ Partial Class frmMessenger
         Me.btnNeu = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
-        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
+        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
         Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.btnTeilnehmer = New System.Windows.Forms.Button()
@@ -92,9 +93,9 @@ Partial Class frmMessenger
         Me.btnSendAtt = New System.Windows.Forms.Button()
         Me.btnSenden = New System.Windows.Forms.Button()
         Me.rtbChatMessage = New System.Windows.Forms.RichTextBox()
-        Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer()
-        Me.Timer_REFRESH = New System.Windows.Forms.Timer()
-        Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
+        Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components)
+        Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
+        Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem()
         Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -1014,6 +1015,7 @@ Partial Class frmMessenger
         Me.Controls.Add(Me.SplitContainer)
         Me.DoubleBuffered = True
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MinimizeBox = False
         Me.Name = "frmMessenger"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "Messenger"

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -1364,5 +1364,15 @@ Public Class frmMessenger
         'End If
     End Sub
 
+    Private Sub UsrCntlChat_Art_Btn1_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_MACHAT.CLICKED
 
+    End Sub
+
+    Private Sub UsrCntlChat_Art_Btn2_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_LKWCHAT.CLICKED
+
+    End Sub
+
+    Private Sub UsrCntlChat_Art_snd_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_SNDCHAT.CLICKED
+
+    End Sub
 End Class

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb

@@ -759,7 +759,7 @@ Public Class cATEZ_NCTS_IN
 
             Dim responseStatusCode = rest.ReadResponseHeader()
             If (responseStatusCode < 0) Then
-                For i = 0 To 30 'Versuche den Header 16x abzufragen (funktioniert ab und zu nicht).
+                For i = 0 To 30 'Versuche den Header 30x abzufragen (funktioniert ab und zu nicht).
                     responseStatusCode = rest.ReadResponseHeader()
                     If responseStatusCode > 0 Then Exit For
                     Thread.Sleep(5000)