diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index f31b3c1..91af997 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 69367dc..4bb7d9e 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -1138,9 +1138,9 @@ Public Class frmHauptfenster sqlStr &= " AND (Status = 3 ) " Case Color.Orange ' sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) " - sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) " + sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, " & getDaysVorschreiben(1) & ",GETDATE()) AS DATE) ) ) " Case Color.Yellow - sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY,2,GETDATE()) AS DATE) AND cast(DATEADD(DAY,3,GETDATE()) AS DATE) ) ) " + sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY," & getDaysVorschreiben(2) & ",GETDATE()) AS DATE) AND cast(DATEADD(DAY," & getDaysVorschreiben(3) & ",GETDATE()) AS DATE) ) ) " End Select End If ''Farbe @@ -1439,9 +1439,15 @@ Public Class frmHauptfenster ' r.DefaultCellStyle.BackColor = Color.LightYellow 'End If - If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'heute + 'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'heute + ' r.DefaultCellStyle.BackColor = Color.Orange + 'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'morgen + ' r.DefaultCellStyle.BackColor = Color.LightYellow + 'End If + + If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(1).ToShortDateString) Then 'heute r.DefaultCellStyle.BackColor = Color.Orange - ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'morgen + ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(3).ToShortDateString) Then 'morgen r.DefaultCellStyle.BackColor = Color.LightYellow End If @@ -1478,6 +1484,25 @@ Public Class frmHauptfenster + Function getDateVorschreiben(addDays) As Date + Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren + + While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays)) + addDays += 1 + End While + Return Now.AddDays(addDays) + End Function + + Function getDaysVorschreiben(addDays) As Integer + Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren + + While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays)) + addDays += 1 + End While + Return addDays + End Function + + Private Sub dgvSendungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridMyAviso.CellClick Try If e.RowIndex > 0 Then @@ -5371,6 +5396,7 @@ Public Class AvisoStatusFunctions SendFreigabeEmail(Aviso) + VERAG_PROG_ALLGEMEIN.cMessenger.SET_LKWCHAT_INAKTIV(Aviso.AvisoID) If True Then diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb index af6ff53..0bc010e 100644 --- a/Aviso/frmSendungsdetailsNEU.Designer.vb +++ b/Aviso/frmSendungsdetailsNEU.Designer.vb @@ -114,6 +114,7 @@ Partial Class frmSendungsdetailsNEU Me.pnlDetails = New System.Windows.Forms.Panel() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.Label12 = New System.Windows.Forms.Label() Me.Label10 = New System.Windows.Forms.Label() Me.btn_FrachtkostenBerechnen = New System.Windows.Forms.Button() Me.txtFrachtkostenGesamt = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -392,7 +393,8 @@ Partial Class frmSendungsdetailsNEU Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem() Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.Label12 = New System.Windows.Forms.Label() + Me.lblSNDChat_MsgCnt = New System.Windows.Forms.Label() + Me.picAVISOMessengerSNDChat = New System.Windows.Forms.PictureBox() Me.pnl.SuspendLayout() Me.Panel4.SuspendLayout() Me.TabControl1.SuspendLayout() @@ -451,6 +453,7 @@ Partial Class frmSendungsdetailsNEU Me.ctxtWeitereFormulare.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip2.SuspendLayout() + CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl @@ -1545,6 +1548,15 @@ Partial Class frmSendungsdetailsNEU Me.TabPage4.Text = "Aktendeckel" Me.TabPage4.UseVisualStyleBackColor = True ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(266, 42) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(40, 13) + Me.Label12.TabIndex = 64 + Me.Label12.Text = "Fracht:" + ' 'Label10 ' Me.Label10.AutoSize = True @@ -3885,6 +3897,8 @@ Partial Class frmSendungsdetailsNEU ' Me.Panel5.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel5.Controls.Add(Me.lblSNDChat_MsgCnt) + Me.Panel5.Controls.Add(Me.picAVISOMessengerSNDChat) Me.Panel5.Controls.Add(Me.txtAnzahlPos) Me.Panel5.Controls.Add(Me.Label4) Me.Panel5.Controls.Add(Me.lblAbfNrExists) @@ -5113,14 +5127,32 @@ Partial Class frmSendungsdetailsNEU Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30) Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen" ' - 'Label12 + 'lblSNDChat_MsgCnt ' - Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(266, 42) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(40, 13) - Me.Label12.TabIndex = 64 - Me.Label12.Text = "Fracht:" + Me.lblSNDChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red + Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold) + Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White + Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(1073, 41) + Me.lblSNDChat_MsgCnt.Name = "lblSNDChat_MsgCnt" + Me.lblSNDChat_MsgCnt.Size = New System.Drawing.Size(22, 13) + Me.lblSNDChat_MsgCnt.TabIndex = 113 + Me.lblSNDChat_MsgCnt.Text = "99" + Me.lblSNDChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.lblSNDChat_MsgCnt.Visible = False + ' + 'picAVISOMessengerSNDChat + ' + Me.picAVISOMessengerSNDChat.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.picAVISOMessengerSNDChat.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger + Me.picAVISOMessengerSNDChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picAVISOMessengerSNDChat.Cursor = System.Windows.Forms.Cursors.Hand + Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(1040, 7) + Me.picAVISOMessengerSNDChat.Name = "picAVISOMessengerSNDChat" + Me.picAVISOMessengerSNDChat.Size = New System.Drawing.Size(42, 44) + Me.picAVISOMessengerSNDChat.TabIndex = 112 + Me.picAVISOMessengerSNDChat.TabStop = False + Me.picAVISOMessengerSNDChat.Visible = False ' 'frmSendungsdetailsNEU ' @@ -5215,6 +5247,7 @@ Partial Class frmSendungsdetailsNEU Me.ctxtWeitereFormulare.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip2.ResumeLayout(False) + CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -5584,4 +5617,6 @@ Partial Class frmSendungsdetailsNEU Friend WithEvents txtFrachtkostenGesamt As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label10 As Label Friend WithEvents Label12 As Label + Friend WithEvents lblSNDChat_MsgCnt As Label + Friend WithEvents picAVISOMessengerSNDChat As PictureBox End Class diff --git a/Aviso/frmSendungsdetailsNEU.resx b/Aviso/frmSendungsdetailsNEU.resx index fe9d07e..438880e 100644 --- a/Aviso/frmSendungsdetailsNEU.resx +++ b/Aviso/frmSendungsdetailsNEU.resx @@ -117,45 +117,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 404, 17 - - - 765, 17 - - - - /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB - AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID - BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA - GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA - AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA - AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM - w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7 - VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl - CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv - 8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/ - ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697 - KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z - - - - - /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB - AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID - BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA - GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA - AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA - AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM - w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7 - VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl - CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv - 8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/ - ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697 - KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z - - iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V @@ -1800,6 +1762,44 @@ rGp33g/w9ql7NoGnXyWw0LUP726+A48ybH5BknCWWY7Lq2TVaSzNVMvnjcLjoYqrHD5NUxOdyqYOtXoR rY7H4jHYSnSdT2lHL8uwNOUI/FU+hyHGUMfjc2xVDEQxsJvDOOIVCrQdKLqYyNPBKNaFOo4UMPToVZT5 eWpiMRXkm9o//9k= + + + + 404, 17 + + + 765, 17 + + + + /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB + AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID + BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA + GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA + AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA + AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM + w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7 + VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl + CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv + 8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/ + ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697 + KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z + + + + + /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB + AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID + BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA + GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA + AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA + AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM + w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7 + VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl + CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv + 8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/ + ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697 + KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 5ddf1f5..906446d 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -1392,6 +1392,9 @@ Public Class frmSendungsdetailsNEU initGesColliGewicht() ' initKdInfo(-1) + initSND_CHAT(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) + + SENDUNG_LIST(CURRENT_INDEX).LOAD_VORKOSTEN() If tbcntr.SelectedTab Is tbBAR Then initDGVBelege() @@ -5439,4 +5442,43 @@ Public Class frmSendungsdetailsNEU End If End Sub + + + Sub initSND_CHAT(SendungsID) + + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("LKW_CHAT") Then + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("LKW_CHAT", Me.FindForm) Then + + + picAVISOMessengerSNDChat.Visible = True + lblSNDChat_MsgCnt.Visible = False + Dim newMsgSnd = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_SendungsID(SendungsID) + If newMsgSnd > 0 Then + lblSNDChat_MsgCnt.Text = newMsgSnd + lblSNDChat_MsgCnt.Visible = True + lblSNDChat_MsgCnt.BringToFront() + End If + + + End If + End If + + End Sub + + Private Sub picAVISOMessengerSNDChat_Click(sender As Object, e As EventArgs) Handles picAVISOMessengerSNDChat.Click, lblSNDChat_MsgCnt.Click + SAVE_ME() + + If SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr <= 0 Then MsgBox("Bitte zuerst AbfertigungsNr und FilialenNr vergeben!") : Exit Sub + If SENDUNG_LIST(CURRENT_INDEX).FilialenNr <= 0 Then MsgBox("Bitte zuerst AbfertigungsNr und FilialenNr vergeben!") : Exit Sub + + + + Me.Cursor = Cursors.WaitCursor + + If VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat.openSND_Chat(AVISO, SENDUNG_LIST(CURRENT_INDEX)) Then + initSND_CHAT(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) + End If + + Me.Cursor = Cursors.Default + End Sub End Class diff --git a/Aviso/usrcntlAktDetails.Designer.vb b/Aviso/usrcntlAktDetails.Designer.vb index 984d85b..890f47f 100644 --- a/Aviso/usrcntlAktDetails.Designer.vb +++ b/Aviso/usrcntlAktDetails.Designer.vb @@ -23,17 +23,17 @@ Partial Class usrcntlAktDetails _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + 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() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails)) - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.pnlDetailsRechts = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel() Me.SplitContainer = New System.Windows.Forms.SplitContainer() @@ -45,17 +45,13 @@ Partial Class usrcntlAktDetails Me.cboGrenzstelle = New System.Windows.Forms.ComboBox() Me.Label11 = New System.Windows.Forms.Label() Me.lnlSendungText = New System.Windows.Forms.Label() - Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pnlSBG = New System.Windows.Forms.Panel() Me.lblSndFremd = New System.Windows.Forms.Label() Me.Label21 = New System.Windows.Forms.Label() - Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.lblFiskde = New System.Windows.Forms.Label() - Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblFiskAT = New System.Windows.Forms.Label() - Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxSammelakt = New System.Windows.Forms.CheckBox() Me.Button5 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() @@ -73,14 +69,11 @@ Partial Class usrcntlAktDetails Me.Button12 = New System.Windows.Forms.Button() Me.Button11 = New System.Windows.Forms.Button() Me.btnKasse_User = New System.Windows.Forms.Button() - Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label4 = New System.Windows.Forms.Label() Me.Button8 = New System.Windows.Forms.Button() Me.btnLZDruck = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button() Me.btnKasse_LG = New System.Windows.Forms.Button() - Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) - Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) Me.Button18 = New System.Windows.Forms.Button() Me.gridVermerke = New System.Windows.Forms.DataGridView() Me.pnlVermerkeTop = New System.Windows.Forms.Panel() @@ -104,7 +97,9 @@ Partial Class usrcntlAktDetails Me.txtMAinfo_Vorgeschrieben = New System.Windows.Forms.TextBox() Me.txtMAinfo_VorbereitetQs = New System.Windows.Forms.TextBox() Me.Panel8 = New System.Windows.Forms.Panel() + Me.lblLKWChat_MsgCnt = New System.Windows.Forms.Label() Me.lblBarZuKassierenSumme = New System.Windows.Forms.Label() + Me.picAVISOMessenger = New System.Windows.Forms.PictureBox() Me.btnAktUebernehmen = New System.Windows.Forms.Button() Me.Button7 = New System.Windows.Forms.Button() Me.btnLkwBeleg = New System.Windows.Forms.Button() @@ -169,8 +164,15 @@ Partial Class usrcntlAktDetails Me.btnÄndern = New System.Windows.Forms.Button() Me.btnTV = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button() - Me.Label1 = New System.Windows.Forms.Label() - Me.picAVISOMessenger = New System.Windows.Forms.PictureBox() + Me.lblSNDChat_MsgCnt = New System.Windows.Forms.Label() + Me.picAVISOMessengerSNDChat = New System.Windows.Forms.PictureBox() + Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) + Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) Me.pnlDetailsRechts.SuspendLayout() Me.Panel3.SuspendLayout() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() @@ -193,6 +195,7 @@ Partial Class usrcntlAktDetails CType(Me.picMAinfo_Vorgeschrieben, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picMAinfo_VorbereitetQs, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel8.SuspendLayout() + CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlAbgeschlossen.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.FlowLayoutPanel.SuspendLayout() @@ -206,7 +209,7 @@ Partial Class usrcntlAktDetails Me.conMenuVermerke.SuspendLayout() Me.cntxtFormulare.SuspendLayout() Me.pnlOptionen.SuspendLayout() - CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnlDetailsRechts @@ -364,32 +367,6 @@ Partial Class usrcntlAktDetails Me.lnlSendungText.TabIndex = 2 Me.lnlSendungText.Text = "Sendung" ' - 'txtSendungen - ' - Me.txtSendungen._DateTimeOnly = False - Me.txtSendungen._numbersOnly = True - Me.txtSendungen._numbersOnlyKommastellen = "" - Me.txtSendungen._numbersOnlyTrennzeichen = True - Me.txtSendungen._Prozent = False - Me.txtSendungen._ShortDateNew = False - Me.txtSendungen._ShortDateOnly = False - Me.txtSendungen._TimeOnly = False - Me.txtSendungen._TimeOnly_Seconds = False - Me.txtSendungen._value = "" - Me.txtSendungen._Waehrung = False - Me.txtSendungen._WaehrungZeichen = True - Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSendungen.ForeColor = System.Drawing.Color.Black - Me.txtSendungen.Location = New System.Drawing.Point(22, 17) - Me.txtSendungen.MaxLineLength = -1 - Me.txtSendungen.MaxLines_Warning = "" - Me.txtSendungen.MaxLines_Warning_Label = Nothing - Me.txtSendungen.Name = "txtSendungen" - Me.txtSendungen.Size = New System.Drawing.Size(32, 26) - Me.txtSendungen.TabIndex = 1 - Me.txtSendungen.Text = "1" - Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'pnlSBG ' Me.pnlSBG.Controls.Add(Me.lblSndFremd) @@ -426,33 +403,6 @@ Partial Class usrcntlAktDetails Me.Label21.Text = "1" Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtSndFremd - ' - Me.txtSndFremd._DateTimeOnly = False - Me.txtSndFremd._numbersOnly = True - Me.txtSndFremd._numbersOnlyKommastellen = "" - Me.txtSndFremd._numbersOnlyTrennzeichen = True - Me.txtSndFremd._Prozent = False - Me.txtSndFremd._ShortDateNew = False - Me.txtSndFremd._ShortDateOnly = False - Me.txtSndFremd._TimeOnly = False - Me.txtSndFremd._TimeOnly_Seconds = False - Me.txtSndFremd._value = "" - Me.txtSndFremd._Waehrung = False - Me.txtSndFremd._WaehrungZeichen = True - Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSndFremd.ForeColor = System.Drawing.Color.Black - Me.txtSndFremd.Location = New System.Drawing.Point(149, 5) - Me.txtSndFremd.MaxLineLength = -1 - Me.txtSndFremd.MaxLines_Warning = "" - Me.txtSndFremd.MaxLines_Warning_Label = Nothing - Me.txtSndFremd.Name = "txtSndFremd" - Me.txtSndFremd.Size = New System.Drawing.Size(32, 26) - Me.txtSndFremd.TabIndex = 83 - Me.txtSndFremd.Text = "0" - Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.txtSndFremd.Visible = False - ' 'Label20 ' Me.Label20.AutoSize = True @@ -480,32 +430,6 @@ Partial Class usrcntlAktDetails Me.lblFiskde.TabIndex = 6 Me.lblFiskde.Text = "Fiskal DE" ' - 'txtSndFiskalDE - ' - Me.txtSndFiskalDE._DateTimeOnly = False - Me.txtSndFiskalDE._numbersOnly = True - Me.txtSndFiskalDE._numbersOnlyKommastellen = "" - Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True - Me.txtSndFiskalDE._Prozent = False - Me.txtSndFiskalDE._ShortDateNew = False - Me.txtSndFiskalDE._ShortDateOnly = False - Me.txtSndFiskalDE._TimeOnly = False - Me.txtSndFiskalDE._TimeOnly_Seconds = False - Me.txtSndFiskalDE._value = "" - Me.txtSndFiskalDE._Waehrung = False - Me.txtSndFiskalDE._WaehrungZeichen = True - Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black - Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34) - Me.txtSndFiskalDE.MaxLineLength = -1 - Me.txtSndFiskalDE.MaxLines_Warning = "" - Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing - Me.txtSndFiskalDE.Name = "txtSndFiskalDE" - Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26) - Me.txtSndFiskalDE.TabIndex = 5 - Me.txtSndFiskalDE.Text = "0" - Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'lblFiskAT ' Me.lblFiskAT.AutoSize = True @@ -515,32 +439,6 @@ Partial Class usrcntlAktDetails Me.lblFiskAT.TabIndex = 4 Me.lblFiskAT.Text = "Fiskal AT" ' - 'txtSndFiskalAT - ' - Me.txtSndFiskalAT._DateTimeOnly = False - Me.txtSndFiskalAT._numbersOnly = True - Me.txtSndFiskalAT._numbersOnlyKommastellen = "" - Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True - Me.txtSndFiskalAT._Prozent = False - Me.txtSndFiskalAT._ShortDateNew = False - Me.txtSndFiskalAT._ShortDateOnly = False - Me.txtSndFiskalAT._TimeOnly = False - Me.txtSndFiskalAT._TimeOnly_Seconds = False - Me.txtSndFiskalAT._value = "" - Me.txtSndFiskalAT._Waehrung = False - Me.txtSndFiskalAT._WaehrungZeichen = True - Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black - Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5) - Me.txtSndFiskalAT.MaxLineLength = -1 - Me.txtSndFiskalAT.MaxLines_Warning = "" - Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing - Me.txtSndFiskalAT.Name = "txtSndFiskalAT" - Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26) - Me.txtSndFiskalAT.TabIndex = 3 - Me.txtSndFiskalAT.Text = "0" - Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'cbxSammelakt ' Me.cbxSammelakt.AutoSize = True @@ -600,46 +498,46 @@ Partial Class usrcntlAktDetails Me.dgvSendungen.AllowUserToAddRows = False Me.dgvSendungen.AllowUserToDeleteRows = False Me.dgvSendungen.AllowUserToResizeRows = False - DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvSendungen.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 Me.dgvSendungen.ColumnHeadersHeight = 34 Me.dgvSendungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing - DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle13 + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle3 Me.dgvSendungen.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvSendungen.Location = New System.Drawing.Point(0, 0) Me.dgvSendungen.MultiSelect = False Me.dgvSendungen.Name = "dgvSendungen" Me.dgvSendungen.ReadOnly = True - DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle14 + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvSendungen.RowHeadersVisible = False Me.dgvSendungen.RowHeadersWidth = 62 Me.dgvSendungen.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle15 + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle5 Me.dgvSendungen.RowTemplate.Height = 20 Me.dgvSendungen.RowTemplate.ReadOnly = True Me.dgvSendungen.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] @@ -667,7 +565,7 @@ Partial Class usrcntlAktDetails Me.btnQuckScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnQuckScan.Image = CType(resources.GetObject("btnQuckScan.Image"), System.Drawing.Image) Me.btnQuckScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnQuckScan.Location = New System.Drawing.Point(468, 202) + Me.btnQuckScan.Location = New System.Drawing.Point(468, 203) Me.btnQuckScan.Name = "btnQuckScan" Me.btnQuckScan.Size = New System.Drawing.Size(107, 34) Me.btnQuckScan.TabIndex = 107 @@ -682,9 +580,9 @@ Partial Class usrcntlAktDetails Me.picArrowDown.BackgroundImage = Global.AVISO.My.Resources.Resources.arrow_down_orange Me.picArrowDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.picArrowDown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.picArrowDown.Location = New System.Drawing.Point(1, 234) + Me.picArrowDown.Location = New System.Drawing.Point(1, 221) Me.picArrowDown.Name = "picArrowDown" - Me.picArrowDown.Size = New System.Drawing.Size(34, 34) + Me.picArrowDown.Size = New System.Drawing.Size(36, 50) Me.picArrowDown.TabIndex = 104 Me.picArrowDown.TabStop = False Me.picArrowDown.Visible = False @@ -841,17 +739,6 @@ Partial Class usrcntlAktDetails Me.btnKasse_User.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnKasse_User.UseVisualStyleBackColor = False ' - 'cboFormulareRgAn - ' - Me.cboFormulareRgAn._allowedValuesFreiText = Nothing - Me.cboFormulareRgAn._allowFreiText = False - Me.cboFormulareRgAn._value = "" - Me.cboFormulareRgAn.FormattingEnabled = True - Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2) - Me.cboFormulareRgAn.Name = "cboFormulareRgAn" - Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21) - Me.cboFormulareRgAn.TabIndex = 108 - ' 'Label4 ' Me.Label4.AutoSize = True @@ -926,42 +813,13 @@ Partial Class usrcntlAktDetails Me.btnKasse_LG.Text = "Dispo.Haft" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)" Me.btnKasse_LG.UseVisualStyleBackColor = False ' - 'cbxLZRg - ' - Me.cbxLZRg._value = "" - Me.cbxLZRg.AutoSize = True - Me.cbxLZRg.Checked = True - Me.cbxLZRg.Checked_value = False - Me.cbxLZRg.CheckedValue = False - Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxLZRg.Location = New System.Drawing.Point(134, 93) - Me.cbxLZRg.Name = "cbxLZRg" - Me.cbxLZRg.Size = New System.Drawing.Size(88, 17) - Me.cbxLZRg.TabIndex = 115 - Me.cbxLZRg.Text = "Rechnungen" - Me.cbxLZRg.UseVisualStyleBackColor = True - ' - 'cbxLZT1 - ' - Me.cbxLZT1._value = "" - Me.cbxLZT1.AutoSize = True - Me.cbxLZT1.Checked_value = False - Me.cbxLZT1.CheckedValue = False - Me.cbxLZT1.Location = New System.Drawing.Point(223, 93) - Me.cbxLZT1.Name = "cbxLZT1" - Me.cbxLZT1.Size = New System.Drawing.Size(39, 17) - Me.cbxLZT1.TabIndex = 114 - Me.cbxLZT1.Text = "T1" - Me.cbxLZT1.UseVisualStyleBackColor = True - Me.cbxLZT1.Visible = False - ' 'Button18 ' Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image) Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button18.Location = New System.Drawing.Point(447, 235) + Me.Button18.Location = New System.Drawing.Point(447, 236) Me.Button18.Name = "Button18" Me.Button18.Size = New System.Drawing.Size(128, 34) Me.Button18.TabIndex = 103 @@ -975,53 +833,53 @@ Partial Class usrcntlAktDetails Me.gridVermerke.AllowUserToAddRows = False Me.gridVermerke.AllowUserToDeleteRows = False Me.gridVermerke.AllowUserToResizeRows = False - DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16 + DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 Me.gridVermerke.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17 + DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7 Me.gridVermerke.ColumnHeadersHeight = 34 Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing - DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle18 + DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle8 Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill Me.gridVermerke.Location = New System.Drawing.Point(0, 30) Me.gridVermerke.MultiSelect = False Me.gridVermerke.Name = "gridVermerke" Me.gridVermerke.ReadOnly = True - DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle19 + DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle9 Me.gridVermerke.RowHeadersVisible = False Me.gridVermerke.RowHeadersWidth = 62 Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle20 + DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle10 Me.gridVermerke.RowTemplate.Height = 20 Me.gridVermerke.RowTemplate.ReadOnly = True Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.gridVermerke.ShowCellErrors = False Me.gridVermerke.ShowRowErrors = False - Me.gridVermerke.Size = New System.Drawing.Size(575, 214) + Me.gridVermerke.Size = New System.Drawing.Size(575, 208) Me.gridVermerke.TabIndex = 70 Me.gridVermerke.TabStop = False ' @@ -1162,25 +1020,27 @@ Partial Class usrcntlAktDetails ' 'pnlMAInfo ' + Me.pnlMAInfo.Controls.Add(Me.lblSNDChat_MsgCnt) Me.pnlMAInfo.Controls.Add(Me.picMAinfo_TRVorgeschrieben) Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_TRVorgeschrieben) Me.pnlMAInfo.Controls.Add(Me.picMAinfo_AbklaerungTR) + Me.pnlMAInfo.Controls.Add(Me.picAVISOMessengerSNDChat) Me.pnlMAInfo.Controls.Add(Me.picMAinfo_Vorgeschrieben) Me.pnlMAInfo.Controls.Add(Me.picMAinfo_VorbereitetQs) Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_AbklaerungTR) Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_Vorgeschrieben) Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_VorbereitetQs) Me.pnlMAInfo.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlMAInfo.Location = New System.Drawing.Point(0, 244) + Me.pnlMAInfo.Location = New System.Drawing.Point(0, 238) Me.pnlMAInfo.Name = "pnlMAInfo" - Me.pnlMAInfo.Size = New System.Drawing.Size(575, 28) + Me.pnlMAInfo.Size = New System.Drawing.Size(575, 34) Me.pnlMAInfo.TabIndex = 106 ' 'picMAinfo_TRVorgeschrieben ' Me.picMAinfo_TRVorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv Me.picMAinfo_TRVorgeschrieben.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(437, 3) + Me.picMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(451, 3) Me.picMAinfo_TRVorgeschrieben.Name = "picMAinfo_TRVorgeschrieben" Me.picMAinfo_TRVorgeschrieben.Size = New System.Drawing.Size(26, 21) Me.picMAinfo_TRVorgeschrieben.TabIndex = 111 @@ -1194,11 +1054,11 @@ Partial Class usrcntlAktDetails Me.txtMAinfo_TRVorgeschrieben.Cursor = System.Windows.Forms.Cursors.Hand Me.txtMAinfo_TRVorgeschrieben.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) Me.txtMAinfo_TRVorgeschrieben.ForeColor = System.Drawing.Color.Black - Me.txtMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(469, 5) + Me.txtMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(481, 5) Me.txtMAinfo_TRVorgeschrieben.MaxLength = 0 Me.txtMAinfo_TRVorgeschrieben.Name = "txtMAinfo_TRVorgeschrieben" Me.txtMAinfo_TRVorgeschrieben.ReadOnly = True - Me.txtMAinfo_TRVorgeschrieben.Size = New System.Drawing.Size(105, 14) + Me.txtMAinfo_TRVorgeschrieben.Size = New System.Drawing.Size(90, 14) Me.txtMAinfo_TRVorgeschrieben.TabIndex = 112 Me.txtMAinfo_TRVorgeschrieben.TabStop = False Me.txtMAinfo_TRVorgeschrieben.Text = "-" @@ -1208,7 +1068,7 @@ Partial Class usrcntlAktDetails ' Me.picMAinfo_AbklaerungTR.BackgroundImage = Global.AVISO.My.Resources.Resources.abklaerungTR_Inaktiv Me.picMAinfo_AbklaerungTR.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picMAinfo_AbklaerungTR.Location = New System.Drawing.Point(36, 4) + Me.picMAinfo_AbklaerungTR.Location = New System.Drawing.Point(76, 4) Me.picMAinfo_AbklaerungTR.Name = "picMAinfo_AbklaerungTR" Me.picMAinfo_AbklaerungTR.Size = New System.Drawing.Size(26, 21) Me.picMAinfo_AbklaerungTR.TabIndex = 109 @@ -1218,7 +1078,7 @@ Partial Class usrcntlAktDetails ' Me.picMAinfo_Vorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv Me.picMAinfo_Vorgeschrieben.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(304, 4) + Me.picMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(326, 4) Me.picMAinfo_Vorgeschrieben.Name = "picMAinfo_Vorgeschrieben" Me.picMAinfo_Vorgeschrieben.Size = New System.Drawing.Size(26, 21) Me.picMAinfo_Vorgeschrieben.TabIndex = 107 @@ -1228,7 +1088,7 @@ Partial Class usrcntlAktDetails ' Me.picMAinfo_VorbereitetQs.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorbereitet_InAktiv Me.picMAinfo_VorbereitetQs.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picMAinfo_VorbereitetQs.Location = New System.Drawing.Point(160, 4) + Me.picMAinfo_VorbereitetQs.Location = New System.Drawing.Point(200, 4) Me.picMAinfo_VorbereitetQs.Name = "picMAinfo_VorbereitetQs" Me.picMAinfo_VorbereitetQs.Size = New System.Drawing.Size(26, 21) Me.picMAinfo_VorbereitetQs.TabIndex = 0 @@ -1241,7 +1101,7 @@ Partial Class usrcntlAktDetails Me.txtMAinfo_AbklaerungTR.Cursor = System.Windows.Forms.Cursors.Hand Me.txtMAinfo_AbklaerungTR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) Me.txtMAinfo_AbklaerungTR.ForeColor = System.Drawing.Color.Black - Me.txtMAinfo_AbklaerungTR.Location = New System.Drawing.Point(68, 6) + Me.txtMAinfo_AbklaerungTR.Location = New System.Drawing.Point(105, 6) Me.txtMAinfo_AbklaerungTR.MaxLength = 0 Me.txtMAinfo_AbklaerungTR.Name = "txtMAinfo_AbklaerungTR" Me.txtMAinfo_AbklaerungTR.ReadOnly = True @@ -1257,11 +1117,11 @@ Partial Class usrcntlAktDetails Me.txtMAinfo_Vorgeschrieben.Cursor = System.Windows.Forms.Cursors.Hand Me.txtMAinfo_Vorgeschrieben.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) Me.txtMAinfo_Vorgeschrieben.ForeColor = System.Drawing.Color.Black - Me.txtMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(336, 6) + Me.txtMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(355, 6) Me.txtMAinfo_Vorgeschrieben.MaxLength = 0 Me.txtMAinfo_Vorgeschrieben.Name = "txtMAinfo_Vorgeschrieben" Me.txtMAinfo_Vorgeschrieben.ReadOnly = True - Me.txtMAinfo_Vorgeschrieben.Size = New System.Drawing.Size(105, 14) + Me.txtMAinfo_Vorgeschrieben.Size = New System.Drawing.Size(90, 14) Me.txtMAinfo_Vorgeschrieben.TabIndex = 108 Me.txtMAinfo_Vorgeschrieben.TabStop = False Me.txtMAinfo_Vorgeschrieben.Text = "-" @@ -1273,11 +1133,11 @@ Partial Class usrcntlAktDetails Me.txtMAinfo_VorbereitetQs.Cursor = System.Windows.Forms.Cursors.Hand Me.txtMAinfo_VorbereitetQs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) Me.txtMAinfo_VorbereitetQs.ForeColor = System.Drawing.Color.Black - Me.txtMAinfo_VorbereitetQs.Location = New System.Drawing.Point(192, 6) + Me.txtMAinfo_VorbereitetQs.Location = New System.Drawing.Point(230, 6) Me.txtMAinfo_VorbereitetQs.MaxLength = 0 Me.txtMAinfo_VorbereitetQs.Name = "txtMAinfo_VorbereitetQs" Me.txtMAinfo_VorbereitetQs.ReadOnly = True - Me.txtMAinfo_VorbereitetQs.Size = New System.Drawing.Size(105, 14) + Me.txtMAinfo_VorbereitetQs.Size = New System.Drawing.Size(90, 14) Me.txtMAinfo_VorbereitetQs.TabIndex = 106 Me.txtMAinfo_VorbereitetQs.TabStop = False Me.txtMAinfo_VorbereitetQs.Text = "-" @@ -1285,7 +1145,7 @@ Partial Class usrcntlAktDetails 'Panel8 ' Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel8.Controls.Add(Me.Label1) + Me.Panel8.Controls.Add(Me.lblLKWChat_MsgCnt) Me.Panel8.Controls.Add(Me.lblBarZuKassierenSumme) Me.Panel8.Controls.Add(Me.picAVISOMessenger) Me.Panel8.Controls.Add(Me.btnAktUebernehmen) @@ -1313,6 +1173,20 @@ Partial Class usrcntlAktDetails Me.Panel8.Size = New System.Drawing.Size(575, 120) Me.Panel8.TabIndex = 92 ' + 'lblLKWChat_MsgCnt + ' + Me.lblLKWChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lblLKWChat_MsgCnt.BackColor = System.Drawing.Color.Red + Me.lblLKWChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) + Me.lblLKWChat_MsgCnt.ForeColor = System.Drawing.Color.White + Me.lblLKWChat_MsgCnt.Location = New System.Drawing.Point(187, 106) + Me.lblLKWChat_MsgCnt.Name = "lblLKWChat_MsgCnt" + Me.lblLKWChat_MsgCnt.Size = New System.Drawing.Size(25, 13) + Me.lblLKWChat_MsgCnt.TabIndex = 104 + Me.lblLKWChat_MsgCnt.Text = "99" + Me.lblLKWChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.lblLKWChat_MsgCnt.Visible = False + ' 'lblBarZuKassierenSumme ' Me.lblBarZuKassierenSumme.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -1326,6 +1200,19 @@ Partial Class usrcntlAktDetails Me.lblBarZuKassierenSumme.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.lblBarZuKassierenSumme.Visible = False ' + 'picAVISOMessenger + ' + Me.picAVISOMessenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.picAVISOMessenger.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger + Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand + Me.picAVISOMessenger.Location = New System.Drawing.Point(167, 74) + Me.picAVISOMessenger.Name = "picAVISOMessenger" + Me.picAVISOMessenger.Size = New System.Drawing.Size(36, 40) + Me.picAVISOMessenger.TabIndex = 103 + Me.picAVISOMessenger.TabStop = False + Me.picAVISOMessenger.Visible = False + ' 'btnAktUebernehmen ' Me.btnAktUebernehmen.BackColor = System.Drawing.Color.WhiteSmoke @@ -2174,32 +2061,177 @@ Partial Class usrcntlAktDetails Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button10.UseVisualStyleBackColor = False ' - 'Label1 + 'lblSNDChat_MsgCnt ' - Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.Label1.BackColor = System.Drawing.Color.Red - Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.0!, System.Drawing.FontStyle.Bold) - Me.Label1.ForeColor = System.Drawing.Color.White - Me.Label1.Location = New System.Drawing.Point(197, 105) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(20, 13) - Me.Label1.TabIndex = 104 - Me.Label1.Text = "99" - Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - Me.Label1.Visible = False + Me.lblSNDChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red + Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold) + Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White + Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(53, 21) + Me.lblSNDChat_MsgCnt.Name = "lblSNDChat_MsgCnt" + Me.lblSNDChat_MsgCnt.Size = New System.Drawing.Size(22, 11) + Me.lblSNDChat_MsgCnt.TabIndex = 111 + Me.lblSNDChat_MsgCnt.Text = "99" + Me.lblSNDChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.lblSNDChat_MsgCnt.Visible = False ' - 'picAVISOMessenger + 'picAVISOMessengerSNDChat ' - Me.picAVISOMessenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.picAVISOMessenger.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger - Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand - Me.picAVISOMessenger.Location = New System.Drawing.Point(168, 75) - Me.picAVISOMessenger.Name = "picAVISOMessenger" - Me.picAVISOMessenger.Size = New System.Drawing.Size(36, 40) - Me.picAVISOMessenger.TabIndex = 103 - Me.picAVISOMessenger.TabStop = False - Me.picAVISOMessenger.Visible = False + Me.picAVISOMessengerSNDChat.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.picAVISOMessengerSNDChat.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger + Me.picAVISOMessengerSNDChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picAVISOMessengerSNDChat.Cursor = System.Windows.Forms.Cursors.Hand + Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(30, 1) + Me.picAVISOMessengerSNDChat.Name = "picAVISOMessengerSNDChat" + Me.picAVISOMessengerSNDChat.Size = New System.Drawing.Size(32, 30) + Me.picAVISOMessengerSNDChat.TabIndex = 110 + Me.picAVISOMessengerSNDChat.TabStop = False + Me.picAVISOMessengerSNDChat.Visible = False + ' + 'txtSendungen + ' + Me.txtSendungen._DateTimeOnly = False + Me.txtSendungen._numbersOnly = True + Me.txtSendungen._numbersOnlyKommastellen = "" + Me.txtSendungen._numbersOnlyTrennzeichen = True + Me.txtSendungen._Prozent = False + Me.txtSendungen._ShortDateNew = False + Me.txtSendungen._ShortDateOnly = False + Me.txtSendungen._TimeOnly = False + Me.txtSendungen._TimeOnly_Seconds = False + Me.txtSendungen._value = "" + Me.txtSendungen._Waehrung = False + Me.txtSendungen._WaehrungZeichen = True + Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSendungen.ForeColor = System.Drawing.Color.Black + Me.txtSendungen.Location = New System.Drawing.Point(22, 17) + Me.txtSendungen.MaxLineLength = -1 + Me.txtSendungen.MaxLines_Warning = "" + Me.txtSendungen.MaxLines_Warning_Label = Nothing + Me.txtSendungen.Name = "txtSendungen" + Me.txtSendungen.Size = New System.Drawing.Size(32, 26) + Me.txtSendungen.TabIndex = 1 + Me.txtSendungen.Text = "1" + Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtSndFremd + ' + Me.txtSndFremd._DateTimeOnly = False + Me.txtSndFremd._numbersOnly = True + Me.txtSndFremd._numbersOnlyKommastellen = "" + Me.txtSndFremd._numbersOnlyTrennzeichen = True + Me.txtSndFremd._Prozent = False + Me.txtSndFremd._ShortDateNew = False + Me.txtSndFremd._ShortDateOnly = False + Me.txtSndFremd._TimeOnly = False + Me.txtSndFremd._TimeOnly_Seconds = False + Me.txtSndFremd._value = "" + Me.txtSndFremd._Waehrung = False + Me.txtSndFremd._WaehrungZeichen = True + Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSndFremd.ForeColor = System.Drawing.Color.Black + Me.txtSndFremd.Location = New System.Drawing.Point(149, 5) + Me.txtSndFremd.MaxLineLength = -1 + Me.txtSndFremd.MaxLines_Warning = "" + Me.txtSndFremd.MaxLines_Warning_Label = Nothing + Me.txtSndFremd.Name = "txtSndFremd" + Me.txtSndFremd.Size = New System.Drawing.Size(32, 26) + Me.txtSndFremd.TabIndex = 83 + Me.txtSndFremd.Text = "0" + Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtSndFremd.Visible = False + ' + 'txtSndFiskalDE + ' + Me.txtSndFiskalDE._DateTimeOnly = False + Me.txtSndFiskalDE._numbersOnly = True + Me.txtSndFiskalDE._numbersOnlyKommastellen = "" + Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True + Me.txtSndFiskalDE._Prozent = False + Me.txtSndFiskalDE._ShortDateNew = False + Me.txtSndFiskalDE._ShortDateOnly = False + Me.txtSndFiskalDE._TimeOnly = False + Me.txtSndFiskalDE._TimeOnly_Seconds = False + Me.txtSndFiskalDE._value = "" + Me.txtSndFiskalDE._Waehrung = False + Me.txtSndFiskalDE._WaehrungZeichen = True + Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black + Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34) + Me.txtSndFiskalDE.MaxLineLength = -1 + Me.txtSndFiskalDE.MaxLines_Warning = "" + Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing + Me.txtSndFiskalDE.Name = "txtSndFiskalDE" + Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26) + Me.txtSndFiskalDE.TabIndex = 5 + Me.txtSndFiskalDE.Text = "0" + Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtSndFiskalAT + ' + Me.txtSndFiskalAT._DateTimeOnly = False + Me.txtSndFiskalAT._numbersOnly = True + Me.txtSndFiskalAT._numbersOnlyKommastellen = "" + Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True + Me.txtSndFiskalAT._Prozent = False + Me.txtSndFiskalAT._ShortDateNew = False + Me.txtSndFiskalAT._ShortDateOnly = False + Me.txtSndFiskalAT._TimeOnly = False + Me.txtSndFiskalAT._TimeOnly_Seconds = False + Me.txtSndFiskalAT._value = "" + Me.txtSndFiskalAT._Waehrung = False + Me.txtSndFiskalAT._WaehrungZeichen = True + Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black + Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5) + Me.txtSndFiskalAT.MaxLineLength = -1 + Me.txtSndFiskalAT.MaxLines_Warning = "" + Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing + Me.txtSndFiskalAT.Name = "txtSndFiskalAT" + Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26) + Me.txtSndFiskalAT.TabIndex = 3 + Me.txtSndFiskalAT.Text = "0" + Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'cboFormulareRgAn + ' + Me.cboFormulareRgAn._allowedValuesFreiText = Nothing + Me.cboFormulareRgAn._allowFreiText = False + Me.cboFormulareRgAn._value = "" + Me.cboFormulareRgAn.FormattingEnabled = True + Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2) + Me.cboFormulareRgAn.Name = "cboFormulareRgAn" + Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21) + Me.cboFormulareRgAn.TabIndex = 108 + ' + 'cbxLZRg + ' + Me.cbxLZRg._value = "" + Me.cbxLZRg.AutoSize = True + Me.cbxLZRg.Checked = True + Me.cbxLZRg.Checked_value = False + Me.cbxLZRg.CheckedValue = False + Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxLZRg.Location = New System.Drawing.Point(134, 93) + Me.cbxLZRg.Name = "cbxLZRg" + Me.cbxLZRg.Size = New System.Drawing.Size(88, 17) + Me.cbxLZRg.TabIndex = 115 + Me.cbxLZRg.Text = "Rechnungen" + Me.cbxLZRg.UseVisualStyleBackColor = True + ' + 'cbxLZT1 + ' + Me.cbxLZT1._value = "" + Me.cbxLZT1.AutoSize = True + Me.cbxLZT1.Checked_value = False + Me.cbxLZT1.CheckedValue = False + Me.cbxLZT1.Location = New System.Drawing.Point(223, 93) + Me.cbxLZT1.Name = "cbxLZT1" + Me.cbxLZT1.Size = New System.Drawing.Size(39, 17) + Me.cbxLZT1.TabIndex = 114 + Me.cbxLZT1.Text = "T1" + Me.cbxLZT1.UseVisualStyleBackColor = True + Me.cbxLZT1.Visible = False ' 'usrcntlAktDetails ' @@ -2237,6 +2269,7 @@ Partial Class usrcntlAktDetails CType(Me.picMAinfo_VorbereitetQs, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel8.ResumeLayout(False) Me.Panel8.PerformLayout() + CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlAbgeschlossen.ResumeLayout(False) Me.pnlAbgeschlossen.PerformLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() @@ -2258,7 +2291,7 @@ Partial Class usrcntlAktDetails Me.conMenuVermerke.ResumeLayout(False) Me.cntxtFormulare.ResumeLayout(False) Me.pnlOptionen.ResumeLayout(False) - CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -2398,6 +2431,8 @@ Partial Class usrcntlAktDetails Friend WithEvents Button16 As Button Friend WithEvents picMAinfo_TRVorgeschrieben As PictureBox Friend WithEvents txtMAinfo_TRVorgeschrieben As TextBox - Friend WithEvents Label1 As Label + Friend WithEvents lblLKWChat_MsgCnt As Label Friend WithEvents picAVISOMessenger As PictureBox + Friend WithEvents lblSNDChat_MsgCnt As Label + Friend WithEvents picAVISOMessengerSNDChat As PictureBox End Class diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index f90b380..981ff24 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -116,6 +116,10 @@ Public Class usrcntlAktDetails lblSendungsanzahl.Visible = False '___________ + + initLKW_CHAT() + + If dgvSendungen.RowCount = 0 Then pnlAlt.Visible = True Else @@ -125,7 +129,39 @@ Public Class usrcntlAktDetails End If End Sub + Sub initLKW_CHAT() + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("LKW_CHAT") Then + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("LKW_CHAT", Me.FindForm) Then + picAVISOMessenger.Visible = True + lblLKWChat_MsgCnt.Visible = False + Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_AVISOID(AvisoID) + If newMsg > 0 Then + lblLKWChat_MsgCnt.Text = newMsg + lblLKWChat_MsgCnt.Visible = True + lblLKWChat_MsgCnt.BringToFront() + End If + End If + End If + + End Sub + Sub initSND_CHAT(SendungsID) + + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("LKW_CHAT") Then + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("LKW_CHAT", Me.FindForm) Then + + picAVISOMessengerSNDChat.Visible = True + lblSNDChat_MsgCnt.Visible = False + Dim newMsgSnd = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_SendungsID(SendungsID) + If newMsgSnd > 0 Then + lblSNDChat_MsgCnt.Text = newMsgSnd + lblSNDChat_MsgCnt.Visible = True + lblSNDChat_MsgCnt.BringToFront() + End If + End If + End If + + End Sub 'Private Sub Me_shown(sender As Object, e As EventArgs) Handles Me.Shown ' MsgBox("shown") @@ -204,11 +240,7 @@ Public Class usrcntlAktDetails Button2.Visible = True End If - If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("LKW_CHAT") Then - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("LKW_CHAT", Me.FindForm) Then - picAVISOMessenger.Visible = True - End If - End If + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then ' tbcntlVermerke.TabPages.Remove(tbAnhang) 'End If @@ -813,6 +845,8 @@ Public Class usrcntlAktDetails sendwhere = " AND VermerkArt='S' AND SendungID=" & dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value + initSND_CHAT(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value) + '--------------------------------------------------------- 'MA INFO '--------------------------------------------------------- @@ -3511,43 +3545,34 @@ Public Class usrcntlAktDetails End Sub Private Sub picAVISOMessenger_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click - Dim CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat(AvisoID, -1) - - If CHAT.chat_id <= 0 Then - 'Neuer Chat - Dim chatName = "LKW CHAT: " & AVISO.LKW_Nr & " (LKW-Id: " & AVISO.AvisoID & ")" - - Dim MB_LIST As New List(Of Integer) - MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) - - VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(chatName, MB_LIST, CHAT, "LKW_CHAT", AvisoID, -1) + Me.Cursor = Cursors.WaitCursor + If VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat.openLKW_Chat(AVISO) Then + initLKW_CHAT() End If - If CHAT IsNot Nothing Then - If Not CHAT.CHAT_MEMBERS.Exists(Function(x) x.chatMb_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) Then - If vbYes <> MsgBox("Möchten Sie dem LKW Chat beitreten?", vbYesNoCancel) Then - Exit Sub - Else 'weiter... - End If - End If + Me.Cursor = Cursors.Default + + + + End Sub + + Private Sub picAVISOMessengerSNDChat_Click(sender As Object, e As EventArgs) Handles picAVISOMessengerSNDChat.Click, lblSNDChat_MsgCnt.Click + + If dgvSendungen.SelectedRows.Count > 0 Then + + If dgvSendungen.SelectedRows(0).Cells("AbfertigungsNr").Value = "0/0" Then MsgBox("Bitte zuerst AbfertigungsNr/FilialenNr vergeben!") : Exit Sub Me.Cursor = Cursors.WaitCursor - 'For Each openForm In Application.OpenForms() - ' If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then - ' CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal - ' CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront() - ' Me.Cursor = Cursors.Default : Exit Sub - ' End If - 'Next - Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger() - f.Location = Cursor.Position - f.AvisoId = AvisoID - f.Show(Me) + Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value) + If VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat.openSND_Chat(AVISO, SND) Then + initSND_CHAT(SND.tblSnd_SendungID) + End If + Me.Cursor = Cursors.Default - End If + End If End Sub End Class