From 9b8570b8f7f62e44d843f664ad0a39effa0d91b0 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 24 May 2023 22:22:31 +0200 Subject: [PATCH] =?UTF-8?q?Kunden=C3=BCbersicht?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/Fakturierung/frmAbrechnungsMaske.vb | 5 +++++ SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/kunden/usrCntlKundenuebersicht.Designer.vb | 8 ++++++++ SDL/kunden/usrCntlKundenuebersicht.resx | 3 +++ SDL/kunden/usrCntlLKW.vb | 2 +- 5 files changed, 19 insertions(+), 3 deletions(-) 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/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 044c7dda..0b7b6f9b 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb index 744f4e27..5d45ff01 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)