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

Fakt, MDM-Datenverarb, Mahnlauf, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-04-17 12:08:53 +02:00
parent cf3f634ff7
commit 7916e25f05
11 changed files with 209 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
SDL/kunden/frmKundenblatt.vb
View File

@@ -265,12 +265,30 @@ Public Class frmKundenblatt
Case "tbVERAGCard" : initTABVERAGCard()
Case "tbSDLKarten" : initTABSDLDATEN()
Case "tbDokumente"
Dim ADR As New cAdressen(kdNr)
Dim isEU As Boolean = True
If Not IsDBNull(ADR.LandKz) Then
isEU = SQL.getValueTxtBySql("select MitgliedslandEU as bit from Währungstabelle where LandKz ='" & ADR.LandKz & "'", "FMZOLL")
End If
If Not isEU Then
scanEULizenz._TEXT_PDF = "Transportlizenz"
scanEULizenz.Name = scanEULizenz._TEXT_PDF
scanEULizenz.INIT(kdNr, "KUNDENDATEN")
Else
scanEULizenz._TEXT_PDF = "EU-Lizenz"
scanEULizenz.Name = scanEULizenz._TEXT_PDF
scanEULizenz.INIT(kdNr, "KUNDENDATEN")
End If
scanVertragVeragKd.INIT(kdNr, "KUNDENDATEN")
scanBankGarantie.INIT(kdNr, "KUNDENDATEN")
scanPersonalAusweisGF.INIT(kdNr, "KUNDENDATEN")
scanHRA.INIT(kdNr, "KUNDENDATEN")
scanHKA.INIT(kdNr, "KUNDENDATEN")
scanEULizenz.INIT(kdNr, "KUNDENDATEN")
scanSonstiges.INIT(kdNr, "KUNDENDATEN")
scanUebernahmebestätigungen.INIT(kdNr, "KUNDENDATEN", "Übernahmebestätigungen")
Case "tbBesuchsberichte" : initTABBesuchsberichte()
@@ -294,17 +312,6 @@ Public Class frmKundenblatt
End Select
If tbcntrMDM.SelectedTab.Name = "tbDokumente" Then
Dim ADR As New cAdressen(kdNr)
Dim isEU As Boolean = True
If Not IsDBNull(ADR.LandKz) Then
isEU = SQL.getValueTxtBySql("select MitgliedslandEU as bit from Währungstabelle where LandKz ='" & ADR.LandKz & "'", "FMZOLL")
End If
If Not isEU Then
scanEULizenz._TEXT_PDF = "Transportlizenz"
scanEULizenz.Name = scanEULizenz._TEXT_PDF
End If
End If
End If
'tbcntrMDM.ResumeLayout()