diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 9280b24..0c98f19 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/frmHauptfensterNew.Designer.vb b/Aviso/frmHauptfensterNew.Designer.vb index afbca60..a3c38c0 100644 --- a/Aviso/frmHauptfensterNew.Designer.vb +++ b/Aviso/frmHauptfensterNew.Designer.vb @@ -303,13 +303,13 @@ Partial Class frmHauptfensterNew Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() Me.pnlLeft = New System.Windows.Forms.Panel() + Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen() Me.Panel5 = New System.Windows.Forms.Panel() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage2 = New System.Windows.Forms.TabPage() Me.Panel7 = New System.Windows.Forms.Panel() Me.UidAbfrageService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService() - Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen() Me.conMenuAviso.SuspendLayout() Me.MenuStrip1.SuspendLayout() Me.pnlDetailsRechts.SuspendLayout() @@ -2543,6 +2543,14 @@ Partial Class frmHauptfensterNew Me.pnlLeft.Size = New System.Drawing.Size(367, 741) Me.pnlLeft.TabIndex = 88 ' + 'UsrCntlBenachrichtigungen2 + ' + Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 10) + Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2" + Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(367, 315) + Me.UsrCntlBenachrichtigungen2.TabIndex = 5 + ' 'Panel5 ' Me.Panel5.BackColor = System.Drawing.Color.White @@ -2580,7 +2588,7 @@ Partial Class frmHauptfensterNew Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) Me.TabPage1.Size = New System.Drawing.Size(359, 275) Me.TabPage1.TabIndex = 0 - Me.TabPage1.Text = "TabPage1" + Me.TabPage1.Text = "Chat" Me.TabPage1.UseVisualStyleBackColor = True ' 'TabPage2 @@ -2608,14 +2616,6 @@ Partial Class frmHauptfensterNew Me.UidAbfrageService1.Url = "https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/" Me.UidAbfrageService1.UseDefaultCredentials = False ' - 'UsrCntlBenachrichtigungen2 - ' - Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 10) - Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2" - Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(367, 315) - Me.UsrCntlBenachrichtigungen2.TabIndex = 5 - ' 'frmHauptfensterNew ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/Aviso/frmHauptfensterNew.vb b/Aviso/frmHauptfensterNew.vb index 12d6a26..ff07ca5 100644 --- a/Aviso/frmHauptfensterNew.vb +++ b/Aviso/frmHauptfensterNew.vb @@ -64,7 +64,7 @@ Public Class frmHauptfensterNew - Dim SEARCH_AVISO As New usrCntlHauptfenster_Suche_AVISO + Dim SEARCH_AVISO As usrCntlHauptfenster_Suche_AVISO = Nothing Dim SEARCH_AVISO_AKTIV As String = "AVISO" Public Sub New() @@ -104,11 +104,29 @@ Public Class frmHauptfensterNew SEARCH_AVISO_AKTIV = switchTO Select Case SEARCH_AVISO_AKTIV - Case "AVISO" - pnlMain.Controls.Add(SEARCH_AVISO) - SEARCH_AVISO.Dock = DockStyle.Fill - ' SEARCH_AVISO.init(Me) + Case "SND" + Dim aaaaa As New usrCntlSND_Ausfuhr + pnlMain.Controls.Add(aaaaa) initsearch("", False) ': Aviso_anzeigen("") + + Case "AVISO" + If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO + + pnlMain.Controls.Add(SEARCH_AVISO) + + 'SEARCH_AVISO.Dock = DockStyle.Fill + SEARCH_AVISO.Visible = True + SEARCH_AVISO.BringToFront() + SEARCH_AVISO.Width = pnlMain.Width + SEARCH_AVISO.Height = pnlMain.Height + + pnlMain.PerformLayout() + SEARCH_AVISO.PerformLayout() + Application.DoEvents() + + + MsgBox(pnlMain.Width & " / " & pnlMain.Height) + MsgBox(SEARCH_AVISO.Width & " / " & SEARCH_AVISO.Height) End Select End Sub @@ -322,30 +340,6 @@ Public Class frmHauptfensterNew ' lblErweitereSuche.Visible = False MDMParkplatzkartenToolStripMenuItem.Visible = False - ' SplitContainer3.Panel1Collapsed = True - ' Button10.Visible = False - - 'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then - ' Button10.Visible = True - ' SplitContainer3.Panel1Collapsed = True - 'End If - Case Else - - 'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then - ' SplitContainer3.Panel1Collapsed = True - 'End If - - 'AVISO vom PC übernehmen - Dim zeilen As Integer = OptionenDAL.setAVISOFromPcName() - Select Case zeilen - Case 0 : SEARCH_AVISO.lblAkte.Visible = False - Case 1 : SEARCH_AVISO.lblAkte.Text = zeilen & " Akt vom Arbeitsplatz übernommen" - Case Else : SEARCH_AVISO.lblAkte.Text = zeilen & " Akte vom Arbeitsplatz übernommen" - End Select - - If Not (VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then - SEARCH_AVISO.cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG - End If End Select @@ -393,7 +387,6 @@ Public Class frmHauptfensterNew End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then BREXITToolStripMenuItem.Visible = True - SEARCH_AVISO.cbx_My_Brexit.Checked = True End If 'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then @@ -3827,4 +3820,12 @@ ELSE_ATILLA: SEARCH_AVISO.RESET() Grid_aktiv = True End Sub + + Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click + Grid_aktiv = False + SWITCH_SEARCH("SND") + + ' SEARCH_AVISO.RESET() + Grid_aktiv = True + End Sub End Class diff --git a/Aviso/usrCntlHauptfenster_Suche_AVISO.vb b/Aviso/usrCntlHauptfenster_Suche_AVISO.vb index 0f240d9..6b8dc78 100644 --- a/Aviso/usrCntlHauptfenster_Suche_AVISO.vb +++ b/Aviso/usrCntlHauptfenster_Suche_AVISO.vb @@ -12,6 +12,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO Private AvisoDAL As New cAvisoDAL Private FUNC As New AvisoStatusFunctions + Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL + Public Sub RESET() cboGrenzstelle.SelectedIndex = 0 @@ -157,6 +159,35 @@ Public Class usrCntlHauptfenster_Suche_AVISO initEAviso() End If + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "ATILLA" ' Case "VERAG", "IMEX" + Case Else + + 'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then + ' SplitContainer3.Panel1Collapsed = True + 'End If + + 'AVISO vom PC übernehmen + Dim zeilen As Integer = OptionenDAL.setAVISOFromPcName() + + Select Case zeilen + Case 0 : lblAkte.Visible = False + Case 1 : lblAkte.Text = zeilen & " Akt vom Arbeitsplatz übernommen" + Case Else : lblAkte.Text = zeilen & " Akte vom Arbeitsplatz übernommen" + End Select + + If Not (VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then + cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + End If + + End Select + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then + cbx_My_Brexit.Checked = True + End If + + tbcntrAvisoLKW.Width = Panel1.Width 'tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X + getTbControlWidth(tbcntrAvisoLKW) + 80, tbcntrAvisoSND.Location.Y) diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index 7bed7f5..778470a 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -465,6 +465,7 @@ Public Class usrcntlAktDetails .Columns("VorauskasseId").Visible = False 'tblSnd_Empfaengernicht anzeigen .Columns("SMSId").Visible = False 'tblSnd_Empfaengernicht anzeigen .Columns("VermerkIDAufgehoben").Visible = False 'tblSnd_Empfaengernicht anzeigen + .Columns("Kategorie").Visible = False 'tblSnd_Empfaengernicht anzeigen .Columns("Datum").Width = 125 '110 .Columns("Datum").HeaderText = "Datum" @@ -882,7 +883,7 @@ Public Class usrcntlAktDetails End Sub Public Shared vermerkehSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," & - " CASE WHEN VermerkeCode IS NULL OR VermerkBezeichnungFixAnzeigen = 1 THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben, Datum as DatumValue" & + " CASE WHEN VermerkeCode IS NULL OR VermerkBezeichnungFixAnzeigen = 1 THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben, Datum as DatumValue, Kategorie" & " FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " & " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " & " WHERE AvisoID = [[AvisoId]] [[sendwhere]] AND HintergrundVermerk =0 " & @@ -1356,6 +1357,12 @@ Public Class usrcntlAktDetails 'r.DefaultCellStyle.ForeColor = Color.White r.DefaultCellStyle.BackColor = Color.Yellow End If + If gridvermerke.Columns.Contains("Kategorie") Then + Select Case r.Cells("Kategorie").Value.ToString + Case "ZOLL" : r.DefaultCellStyle.BackColor = Color.MistyRose + Case "ZOLL_STORNO" : r.DefaultCellStyle.BackColor = Color.IndianRed + End Select + End If If CBool(r.Cells("Geloescht").Value) Then r.DefaultCellStyle.Font = New Font(gridvermerke.Font.FontFamily, gridvermerke.Font.Size, FontStyle.Strikeout) End If