Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

SDL/Fakturierung/frmFaktEmail.vb

@@ -225,6 +225,13 @@ Public Class frmFaktEmail
             End If
         End If
 
+        'Parsan  
+        If SPEDBUCH IsNot Nothing Then
+            If (RECHNUNG.RechnungsKundenNr = 712814) Then
+                If Not SR Then TextHTMLADD = addRgData_Parsan(RechnungsLandKz)
+            End If
+        End If
+
 
         Dim TextHTML = ""
         Select Case RechnungsLandKz
@@ -500,6 +507,34 @@ Public Class frmFaktEmail
         ' addRgData_ZF_Passau = RichTextBox.Text.Replace("Mit freundlichen Grüßen", "")
 
 
+    End Function
+    Function addRgData_Parsan(RechnungsLandKz) As String
+        addRgData_Parsan = vbNewLine & vbNewLine
+        Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
+
+        Select Case RechnungsLandKz
+            Case "TR"
+                ' addRgData_Parsan &= "Sender: " & RECHNUNG.AbsenderName_1 & ", " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine
+                If ZOLLANMELDUNG.getDataByBezugsnummer(RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr, SPEDBUCH.Abfertigungsart, "", SPEDBUCH.Grenzstelle) Then
+                    addRgData_Parsan &= "Invoice-No.: " & ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) & vbNewLine
+                    addRgData_Parsan &= "Invoice-Total: " & ZOLLANMELDUNG.Rechnungspreis & vbNewLine
+                End If
+            Case "A", "AT", "D", "DE", "CH"
+                ' addRgData_Parsan &= "Absender: " & RECHNUNG.AbsenderName_1 & ", " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine
+                If ZOLLANMELDUNG.getDataByBezugsnummer(RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr, SPEDBUCH.Abfertigungsart, "", SPEDBUCH.Grenzstelle) Then
+                    addRgData_Parsan &= "Handelsrechnungs-Nr.: " & ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) & vbNewLine
+                    addRgData_Parsan &= "Handelsrechnungs-Betrag: " & ZOLLANMELDUNG.Rechnungspreis & vbNewLine
+                End If
+            Case Else
+                'addRgData_Parsan &= "Sender: " & RECHNUNG.AbsenderName_1 & ", " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine
+                If ZOLLANMELDUNG.getDataByBezugsnummer(RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr, SPEDBUCH.Abfertigungsart, "", SPEDBUCH.Grenzstelle) Then
+                    addRgData_Parsan &= "Invoice-No.: " & ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) & vbNewLine
+                    addRgData_Parsan &= "Invoice-Total: " & ZOLLANMELDUNG.Rechnungspreis & vbNewLine
+                End If
+        End Select
+
+
+
     End Function
 
     Sub send_StbFAMail(KundenNr, RgAbfNr, RechnungsNr)

SDL/SDL.vbproj

@@ -90,7 +90,7 @@
     <SignAssembly>false</SignAssembly>
   </PropertyGroup>
   <PropertyGroup>
-    <AssemblyOriginatorKeyFile>Test.pfx</AssemblyOriginatorKeyFile>
+    <AssemblyOriginatorKeyFile>SDL_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="Accessibility" />

SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb

@@ -78,7 +78,7 @@
             FIRMA_DY = "AMBAR"
         ElseIf FilialenNr = 5601 Then
             FIRMA_DY = "UNISPED"
-        ElseIf FilialenNr = 4801 Then
+        ElseIf FilialenNr = 4801 Or FilialenNr = 4802 Then
             FIRMA_DY = "ATILLA"
         Else
             If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
@@ -94,6 +94,8 @@
                         Me.Close()
                     End If
                 End If
+            Else
+                FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(FilialenNr)
             End If
         End If