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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-01 16:11:12 +02:00
parent 7f5057dc3e
commit 4b6d595a89
48 changed files with 1650 additions and 753 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -105,6 +105,9 @@ Public Class usrcntlKundeBearbeitenFull
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AWOR", "SDL") Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4000000-4099999: AWOR", "4001000-4099999"))
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_UNISPED_BREXIT", "SDL") Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2800000-2899999: UNISPED BREXIT", "2800000-2899999"))
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "AMBAR" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AMBAR", "SDL") Then
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
@@ -1180,7 +1183,9 @@ Public Class usrcntlKundeBearbeitenFull
Select Case cboKundenkreis._value
Case "1080000-1099990" : cbxFiBu.Checked = True : cboFirma.changeItem("20") : cboFiliale.changeItem("5501")
Case "2000000-2099990" : cbxFiBu.Checked = True : cboFirma.changeItem("21") : cboFiliale.changeItem("5601")
Case "2800000-2899999" : cbxFiBu.Checked = True : cboFirma.changeItem("26") : cboFiliale.changeItem("7003")
Case "3000000-3099990" : cbxFiBu.Checked = True : cboFirma.changeItem("24") : cboFiliale.changeItem("5701")
Case "4001000-4099999" : cbxFiBu.Checked = True : cboFirma.changeItem("26") : cboFiliale.changeItem("7002")
Case "728000-799999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
Case "30000-49999" : cbxFiBu.Checked = True : cboFirma.changeItem("11") : cboFiliale.changeItem("4803")
Case "500000-599999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
@@ -1333,7 +1338,7 @@ Public Class usrcntlKundeBearbeitenFull
cboKundenkreis.changeItem("4001000-4099999")
End If
If cboFiliale._value = 7003 Then
cboKundenkreis.changeItem("2000000-2099999")
cboKundenkreis.changeItem("2800000-2899999")
End If
End Sub
@@ -1388,4 +1393,33 @@ Public Class usrcntlKundeBearbeitenFull
' sender.BackgroundImage = My.Resources.fragezeichen
'End If
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
genUIDEORIList(KUNDE.KundenNr, "UID")
End Sub
Sub genUIDEORIList(kdNr, typeListe)
If kdNr <= 0 Then Exit Sub
Dim frmList As New frmKundenUIDEORI_List
Select Case typeListe
Case "UID"
Dim dt = sql.loadDgvBySql("SELECT [uid_id],[uid_KundenNr] KundenNr,[uid_UstIdKz]UstIdKz,[uid_UstIdNr]UstIdNr,[uid_Datum]Datum,[uid_valid]Gültig,[uid_Sachbearbeiter]Sachbearbeiter,[uid_stufe]Stufe FROM [tblUIDPruefung]where uid_KundenNr='" & kdNr & "' ORDER BY uid_Datum desc", "FMZOLL")
If dt IsNot Nothing Then
frmList.dgv.DataSource = dt
frmList.dgv.Columns("uid_id").Visible = False
AddHandler frmList.dgv.CellDoubleClick, Sub()
Dim PdfTmp = SDL.FormularManagerNEU.UID_PRUEFUNG_PROTOKOLL(frmList.dgv.SelectedRows(0).Cells("uid_id").Value)
If PdfTmp <> "" Then
Process.Start(PdfTmp)
End If
End Sub
frmList.Show(Me)
End If
Case "EORI"
End Select
End Sub
End Class