Fakturierung Parkplatz (VERAG AG-DE), ATR

SDL/Fakturierung/cFakturierung.vb

@@ -524,6 +524,14 @@ Public Class cFakturierung
             'End If
 
             Select Case RECHNUNG.Firma_ID
+                Case 4
+                    Dim PARK = RECHNUNG.POSITIONEN.FindAll(Function(x) (x.LeistungsNr = 313 Or x.LeistungsNr = 312))
+                    If PARK IsNot Nothing AndAlso PARK.Count > 0 Then
+                        Select Case RECHNUNG.RechnungSprache
+                            Case "EN" : strText = strText & "Place of fulfilment: DE-94152 Neuhaus am Inn " & vbCrLf & "The tax was paid at the tax office DE-94032 Passau under the tax number 153/105/80268 (UID:DE245897610)" & vbCrLf
+                            Case Else : strText = strText & "Leistungsort: DE-94152 Neuhaus am Inn " & vbCrLf & "Die Steuer wurde beim Finanzamt DE-94032 Passau unter angabe der Steuernummer 153/105/80268 abgeführt (UID:DE245897610)" & vbCrLf
+                        End Select
+                    End If
                 Case 21, 22, 23
                     Dim VORL = RECHNUNG.POSITIONEN.FindAll(Function(x) (x.LeistungsNr = 700 Or x.LeistungsNr = 710))
                     If VORL IsNot Nothing AndAlso VORL.Count > 0 Then