Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -48,12 +48,15 @@ Public Class frmAbrechnungsMaske
             FirmaTmp = "VERAGIMEX"
         End If
 
+        MyComboBox2.Items.Clear()
+
         Select Case FirmaTmp
             Case "VERAG"
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "MDM" Then
                     cboFirma.fillWithSQL("Select [Firma_ID],[Firma_Bez]  FROM  [tblFirma] WHERE FIRMENGRUPPE In ('VERAG360') ", False, "FMZOLL")
                     cboFirma.changeItem("1")
                     MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND  (mit_abteilung IN ('VRR','BH')	OR [mit_id] IN (SELECT  [beroz_bergrId]  FROM [tblBerechtigungsObjekteZuordnung]  where [beroz_beroId]=90 AND  beroz_art='B')) order by mit_username", False, "ADMIN", True)
+                    MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*BAUBÖCK", "BAUBOECK"))
                 Else
                     cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez]  FROM  [tblFirma] WHERE FIRMENGRUPPE IN ('VERAG','VERAGUNISPED','FRONTOFFICE','ATILLA') ", False, "FMZOLL")
                     cboFirma.changeItem("1")
@@ -78,6 +81,7 @@ Public Class frmAbrechnungsMaske
                     Case "IMEX" : cboFirma.changeItem("20")
                 End Select
                 MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where  mit_firma IN ('IMEX','VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") AND mit_gekuendigt=0 AND  (mit_abteilung IN ('VRR','BH')	OR (SELECT COUNT(*)  FROM [tblBerechtigungsObjekteZuordnung]  where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)
+                MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*BAUBÖCK", "BAUBOECK"))
         End Select
 
         ' MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Benutzerwechsel
@@ -167,6 +171,7 @@ Public Class frmAbrechnungsMaske
         Dim sqlstr = ""
         Dim srchSB = "" ' "NÖBAUER ANJA" 'VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
         srchSB = MyComboBox2._value
+
         Select Case filterSR
             Case "ER" : sqlstr &= " And Rechnungsausgang.Sammelrechnung IN (0) "
             Case "SR" : sqlstr &= " And Rechnungsausgang.Sammelrechnung NOT IN (0,6) "

SDL/SDL.vbproj

@@ -90,7 +90,7 @@
     <SignAssembly>false</SignAssembly>
   </PropertyGroup>
   <PropertyGroup>
-    <AssemblyOriginatorKeyFile>Test.pfx</AssemblyOriginatorKeyFile>
+    <AssemblyOriginatorKeyFile>SDL_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="Accessibility" />

SDL/kunden/frmKundenUebersichtZOLL.Designer.vb

@@ -970,7 +970,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbFiskaluebersicht.Name = "tbFiskaluebersicht"
         Me.tbFiskaluebersicht.Size = New System.Drawing.Size(1182, 697)
         Me.tbFiskaluebersicht.TabIndex = 7
-        Me.tbFiskaluebersicht.Text = "Fiskaluebersicht"
+        Me.tbFiskaluebersicht.Text = "Fiskal-Analyse"
         Me.tbFiskaluebersicht.UseVisualStyleBackColor = True
         '
         'UsrcntlFiskaluebersicht1
@@ -1229,7 +1229,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.mnueFiskaluebersicht.Margin = New System.Windows.Forms.Padding(0, 10, 0, 0)
         Me.mnueFiskaluebersicht.Name = "mnueFiskaluebersicht"
         Me.mnueFiskaluebersicht.Size = New System.Drawing.Size(107, 64)
-        Me.mnueFiskaluebersicht.Text = "Fiskalübersicht"
+        Me.mnueFiskaluebersicht.Text = "Fiskal-Analyse"
         Me.mnueFiskaluebersicht.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.mnueFiskaluebersicht.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
         Me.mnueFiskaluebersicht.Visible = False

SDL/kunden/usrCntlKundenuebersicht.Designer.vb

@@ -251,6 +251,7 @@ Partial Class usrCntlKundenuebersicht
         Me.GültigungültigToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.btnReloadOP = New System.Windows.Forms.Button()
         Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.SessionService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService()
         Me.cntxtAddVM.SuspendLayout()
         Me.tbWeitereKundenDetails.SuspendLayout()
         Me.tbOfferten.SuspendLayout()
@@ -3274,6 +3275,12 @@ Partial Class usrCntlKundenuebersicht
         Me.cboFirmaFMZOLL.TabIndex = 10
         Me.cboFirmaFMZOLL.Visible = False
         '
+        'SessionService1
+        '
+        Me.SessionService1.Credentials = Nothing
+        Me.SessionService1.Url = "https://finanzonline.bmf.gv.at/fonws/ws/session"
+        Me.SessionService1.UseDefaultCredentials = False
+        '
         'usrCntlKundenuebersicht
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3579,4 +3586,5 @@ Partial Class usrCntlKundenuebersicht
     Friend WithEvents txtVerzolltBeiExport As TextBox
     Friend WithEvents btnCreditsafe As Button
     Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents SessionService1 As VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService
 End Class

SDL/kunden/usrCntlKundenuebersicht.resx

@@ -239,4 +239,7 @@
   <metadata name="ContextMenuStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1303, 17</value>
   </metadata>
+  <metadata name="SessionService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
 </root>

SDL/kunden/usrCntlLKW.vb

@@ -437,7 +437,7 @@ Public Class usrCntlLKW
                                                 End Sub
 
 
-                ElseIf dgvSDLLeistungen.SelectedRows(0).Cells(2).Value = 2017 Then ' PLOSE CZ
+                ElseIf dgvSDLLeistungen.SelectedRows(0).Cells(2).Value = 217 Then ' PLOSE CZ
                     Dim usrcntl As New usrCntlSDLLeistungenPLOSE_MEDPASS(dgvSDLLeistungen.SelectedRows(0).Cells(0).Value, dgvSDLLeistungen.SelectedRows(0).Cells(1).Value, dgvSDLLeistungen.SelectedRows(0).Cells(2).Value, dgvSDLLeistungen.SelectedRows(0).Cells(3).Value)
                     pnlSDLLeistungenDetails.Controls.Add(usrcntl)
                     AddHandler usrcntl.LKWChanged, Sub(kdNr, newKfz, SDLNr, History)