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

Fiskal-Checkliste / AT ZOLL eingereicht

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-15 22:29:37 +01:00
parent e0c0d74b9a
commit a27e324a71
7 changed files with 127 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -739,18 +739,23 @@ Public Class frmSendungsdetailsNEU
InfoText &= "ABFERTIGUNGSVERBOT!" & vbNewLine
End Select
If If(kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund, "") <> "" Then InfoText &= kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund & vbNewLine
If If(kdSearch.KdData_KUNDE.Besonderheiten, "") <> "" Then
pic.Visible = True
InfoText &= "BESONDERHEITEN:" & vbNewLine
InfoText &= kdSearch.KdData_KUNDE.Besonderheiten
If If(kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund, "") <> "" Then
InfoText &= kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund & vbNewLine
End If
End If
'BESONDERHEITEN HERVORGEHOBEN
Dim BH_LIST As New VERAG_PROG_ALLGEMEIN.cKundenBesonderheiten_LIST(kdSearch.KdData_KUNDE.KundenNr, Nothing, "'ZOLL','VERIMEX'")
If BH_LIST.LIST IsNot Nothing AndAlso BH_LIST.LIST.Count > 0 Then
pic.Visible = True
InfoText &= "BESONDERHEITEN:" & vbNewLine
For Each BH In BH_LIST.LIST
InfoText &= "(" & BH.kdb_kategorie & ") " & BH.kdb_text & vbNewLine
Next
End If
End If
ToolTip.SetToolTip(pic, InfoText.Trim)