edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Kundenübersicht

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-05-24 22:22:31 +02:00
parent bdc1d8112d
commit 9b8570b8f7
5 changed files with 19 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -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) "

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.4.8")>
<Assembly: AssemblyFileVersion("1.2.4.8")>
<Assembly: AssemblyVersion("1.2.4.9")>
<Assembly: AssemblyFileVersion("1.2.4.9")>

8
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

@@ -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

3
SDL/kunden/usrCntlKundenuebersicht.resx
View File

@@ -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>

2
SDL/kunden/usrCntlLKW.vb
View File

@@ -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)