diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index f738ce3a..1881bd99 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/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) " diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 680da2b5..b3e4d7d1 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -90,7 +90,7 @@ false - Test.pfx + SDL_TemporaryKey.pfx diff --git a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb index 645034d7..2c2a5687 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb +++ b/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 diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb index ccfa083d..257ed9f6 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb +++ b/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 diff --git a/SDL/kunden/usrCntlKundenuebersicht.resx b/SDL/kunden/usrCntlKundenuebersicht.resx index 64004a24..8e390f33 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.resx +++ b/SDL/kunden/usrCntlKundenuebersicht.resx @@ -239,4 +239,7 @@ 1303, 17 + + 17, 56 + \ No newline at end of file diff --git a/SDL/kunden/usrCntlLKW.vb b/SDL/kunden/usrCntlLKW.vb index eecf0850..713b5ff5 100644 --- a/SDL/kunden/usrCntlLKW.vb +++ b/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)