neu

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -90,8 +90,41 @@ Public Class cProgramFunctions
     End Function
 
 
+    Public Shared Function fktEuroKurs(varVonWährung As Object, Rechnungsdatum As Date) As Object 'Funktioniert nciht mit datum!!!!!!!!!!!!!!!!!!!
+        '(FixeTaxe, "ATS", RECHNUNG.Währungscode)
+        'Dim varVonWährung As Object
+        'Dim varNachWährung As Object
+        Dim varKurs As Object
 
-    Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional openPDF As Boolean = True) As String
+        If varVonWährung Is Nothing Then Return Nothing
+
+        If varVonWährung = "EUR" Then  ' Sind beide Währungen gleich,
+            Return 1                ' ist keine Umrechnung erforderlich
+            Exit Function ' und die Funktion wird beendet
+        End If
+
+        If Not IsNumeric(varVonWährung) Then
+            varVonWährung = SQL.DLookup("[Währungsschlüssel]", "Währungstabelle", "[Währungscode] = '" & varVonWährung & "' order by Währungsschlüssel DESC", "FMZOLL")
+        End If
+
+        Dim varBetrag = 1
+        If varVonWährung <> 900 Then    ' Eingangswährung in Euro umrechnen.
+            varKurs = SQL.DLookup("[Eurokurs]", "Währungstabelle", "[Währungsschlüssel] = " & varVonWährung & "  order by Währungsschlüssel DESC", "FMZOLL")
+            If varKurs = "" OrElse varKurs = 0 Then
+                MsgBox("(1) Die Währungstabelle enthält keinen Umrechnungskurs für den Währungsschlüssel " & varVonWährung, , "fktEuro")
+                fktEuroKurs = Nothing
+                Exit Function
+            End If
+            varBetrag = Int(varBetrag / varKurs * 100 + 0.5) / 100
+        End If
+
+        fktEuroKurs = varBetrag
+
+    End Function
+
+
+
+    Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional openPDF As Boolean = True, Optional optFileName As String = "") As String
         Try
 
             Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName
@@ -127,9 +160,16 @@ Public Class cProgramFunctions
 
             End If
 
+            Dim filename As String = ""
+            If optFileName <> "" Then
+                filename = sPath & optFileName & ".xlsx"
+                If IO.File.Exists(filename) Then
+                    filename = sPath & optFileName & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                End If
+            Else
+                filename = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+            End If
 
-
-            Dim filename As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
             wb.SaveAs(filename)
 
             If openPDF Then Process.Start(filename)
@@ -157,6 +197,15 @@ Public Class cProgramFunctions
                 myCredentials.Password = "$up0Rt2809!"
                 mySmtpsvr.Host = "owa.verag.ag"
                 mySmtpsvr.Port = 587
+            Case "AMBAR"
+                ' myCredentials.UserName = "office@ambarlog.com"
+                ' myCredentials.Password = "Naq30716"
+                myCredentials.UserName = "import@ambarlog.com"
+                myCredentials.Password = "Meh062020"
+                mySmtpsvr.Host = "smtp.office365.com"
+                mySmtpsvr.Port = 587
+                mySmtpsvr.EnableSsl = True
+                '    eMailfrom = "import@ambarlog.com"
             Case Else
                 myCredentials.UserName = "support@verag.ag"
                 myCredentials.Password = "$up0Rt2809!"