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

fakt.

Browse Source
This commit is contained in:
d.breimaier
2025-10-15 15:51:34 +02:00
parent e5fd8f9dab
commit 70aee2d1b9
1 changed files with 29 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2129,12 +2129,23 @@ Public Class cFakturierung
Dim KundePLZ As String = "" Dim KundePLZ As String = ""
Dim KundeOrt As String = "" Dim KundeOrt As String = ""
If RECHNUNG_AD IsNot Nothing AndAlso RECHNUNG_AD.Postfach IsNot Nothing AndAlso RECHNUNG_AD IsNot Nothing Then If RECHNUNG_AD IsNot Nothing Then
KundePLZ = RECHNUNG_AD.Postfach
KundeOrt = RECHNUNG_AD.PLZ If RECHNUNG_AD.PLZ IsNot Nothing Then
KundePLZ = RECHNUNG_AD.PLZ
ElseIf RECHNUNG_AD.PLZPF IsNot Nothing Then
KundePLZ = RECHNUNG_AD.PLZPF
End If
If RECHNUNG_AD.Ort IsNot Nothing Then
KundeOrt = RECHNUNG_AD.Ort
ElseIf RECHNUNG_AD.Postfach IsNot Nothing Then
KundeOrt = RECHNUNG_AD.Postfach
End If
End If End If
desc.SetBuyer(RECHNUNG.RechnungsName_1, IIf(KundePLZ <> "", KundePLZ, RECHNUNG.RechnungsOrt), IIf(KundeOrt <> "", KundeOrt, RECHNUNG.RechnungsOrt), RECHNUNG.RechnungsStraße, GetCountryCodeFromLandKZ(RECHNUNG.RechnungsLandKz, vatBuyer), IIf(Not IsDBNull(RECHNUNG.KundenNrZentrale), RECHNUNG.KundenNrZentrale, "")) 'im RECHNUNG.RechnungsOrt befinden sich Ort und PLZ kombiniert!
desc.SetBuyer(RECHNUNG.RechnungsName_1 & IIf(RECHNUNG.RechnungsName_2 <> "", " " & RECHNUNG.RechnungsName_2, ""), IIf(KundePLZ <> "", KundePLZ, RECHNUNG.RechnungsOrt), IIf(KundeOrt <> "", KundeOrt, RECHNUNG.RechnungsOrt), RECHNUNG.RechnungsStraße, GetCountryCodeFromLandKZ(RECHNUNG.RechnungsLandKz, vatBuyer), IIf(Not IsDBNull(RECHNUNG.KundenNrZentrale), RECHNUNG.KundenNrZentrale, ""))
Dim FirmaOrt = FIRMA.Firma_Ort Dim FirmaOrt = FIRMA.Firma_Ort
FirmaOrt = FirmaOrt.Replace(FIRMA.Firma_LandKz & "-" & FIRMA.Firma_PLZ & " ", "") FirmaOrt = FirmaOrt.Replace(FIRMA.Firma_LandKz & "-" & FIRMA.Firma_PLZ & " ", "")
@@ -2394,10 +2405,21 @@ Public Class cFakturierung
Dim KundePLZ As String = "" Dim KundePLZ As String = ""
Dim KundeOrt As String = "" Dim KundeOrt As String = ""
If RECHNUNG_AD IsNot Nothing AndAlso RECHNUNG_AD.Postfach IsNot Nothing AndAlso RECHNUNG_AD.PLZ IsNot Nothing AndAlso RECHNUNG_AD.Postfach <> "" AndAlso RECHNUNG_AD.PLZ <> "" Then If RECHNUNG_AD IsNot Nothing Then
KundePLZ = RECHNUNG_AD.Postfach If RECHNUNG_AD.PLZ IsNot Nothing AndAlso RECHNUNG_AD.PLZ <> "" Then
KundeOrt = RECHNUNG_AD.PLZ KundePLZ = RECHNUNG_AD.PLZ
ElseIf RECHNUNG_AD.PLZPF IsNot Nothing AndAlso RECHNUNG_AD.PLZPF <> "" Then
KundePLZ = RECHNUNG_AD.PLZPF
End If
If RECHNUNG_AD.Ort IsNot Nothing AndAlso RECHNUNG_AD.Ort <> "" Then
KundeOrt = RECHNUNG_AD.Ort
ElseIf RECHNUNG_AD.Postfach IsNot Nothing AndAlso RECHNUNG_AD.Postfach <> "" Then
KundeOrt = RECHNUNG_AD.Postfach
End If
Else Else
'Rechnungsort ist kombination aus PLZ und Ort!
KundePLZ = RechnungsOrt KundePLZ = RechnungsOrt
KundeOrt = RechnungsOrt KundeOrt = RechnungsOrt