RO übersetzungen MDM Abholinfos, NCTS_TR ATEZ Anpassungen

VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb

@@ -84,12 +84,12 @@ Public Class cAvisoBenachrichtigungen
     End Function
 
     Public Shared Function BESTAETIGEN_BENACHRICHTIGUNG_ALL(ab_AvisoID, onlytype) As Boolean
-        Dim sqlstr = " Update [tblAvisoBenachrichtigungen] SET ab_Status = 1,ab_Bestaetigt_MaId=-1,ab_Bestaetigt_Datum=getDate() WHERE ab_AvisoID=" & ab_AvisoID & If(onlytype, " and ab_art='A' ", "")
+        Dim sqlstr = " Update [tblAvisoBenachrichtigungen] SET ab_Status = 1,ab_Bestaetigt_MaId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "',ab_Bestaetigt_Datum=getDate() WHERE ab_AvisoID=" & ab_AvisoID & If(onlytype, " and ab_art='A' ", "")
         Return SQL.doSQL(sqlstr, "AVISO")
     End Function
 
     Public Shared Function BESTAETIGEN_BENACHRICHTIGUNG_SND([ab_SendungID], onlytype) As Boolean
-        Dim sqlstr = " Update [tblAvisoBenachrichtigungen] SET ab_Status = 1,ab_Bestaetigt_MaId=-1,ab_Bestaetigt_Datum=getDate() WHERE [ab_SendungID]=" & [ab_SendungID]
+        Dim sqlstr = " Update [tblAvisoBenachrichtigungen] SET ab_Status = 1,ab_Bestaetigt_MaId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "',ab_Bestaetigt_Datum=getDate() WHERE [ab_SendungID]=" & [ab_SendungID]
         Return SQL.doSQL(sqlstr, "AVISO")
     End Function
 
@@ -235,3 +235,15 @@ Public Class cAvisoBenachrichtigungen
 
 
 End Class
+
+Public Class cAvisoBenachrichtigungenCodes
+
+    Public Shared Neukunde_bitte_Abklärung As Integer = 1
+    Public Shared Neukunde_abgeklärt As Integer = 2
+    Public Shared An_Abklärung As Integer = 3
+    Public Shared Abklärung_OK As Integer = 4
+    Public Shared Vermerke_Reminder As Integer = 5
+    Public Shared Vorauskasse_OK As Integer = 6
+    Public Shared ZOLL_Dokumentenbeschau As Integer = 7
+
+End Class

VERAG_PROG_ALLGEMEIN/Classes/cEZB_Waehrungskurse.vb

@@ -146,4 +146,14 @@ Public Class cEZB_Waehrungskurse
         Return (New SQL).doSQL(sqlstr, "FMZOLL")
     End Function
 
+    Shared Function GET_KURS(ezb_waehrungscode As String, datum As Date) As Double
+        Dim sqlstr = " SELECT TOP 1 [ezb_kurs]  FROM [tblEZB_Waehrungskurse]  where ezb_waehrungscode='" & ezb_waehrungscode & "' and ezb_datum<='" & datum.ToShortTimeString & "' order by ezb_datum desc"
+        Return (New SQL).getValueTxtBySql(sqlstr, "FMZOLL",,, 0)
+    End Function
+
+    Shared Function EXCHANGE(betrag As Double, waehrungscode As String, datum As Date) As Double
+        Dim sqlstr = " SELECT TOP 1 [ezb_kurs]  FROM [tblEZB_Waehrungskurse]  where ezb_waehrungscode='" & waehrungscode & "' and ezb_datum<='" & datum.ToShortTimeString & "' order by ezb_datum desc"
+        Return (New SQL).getValueTxtBySql(sqlstr, "FMZOLL",,, 0) * betrag
+    End Function
+
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb

@@ -981,7 +981,9 @@ Public Class cNCTS_TR_Sicherheitsangaben
     Property nctsSA_ArtCode As Object = Nothing
     Property nctsSA_BezeichnungBescheinigun As Object = Nothing
     Property nctsSA_AbgabenBetrag As Object = Nothing
+    Property nctsSA_AbgabenBetragFremdWaehrung As Object = Nothing
     Property nctsSA_GRN As Object = Nothing
+    Property nctsSA_Waerung As Object = Nothing
     Property nctsSA_Zugriffcode As Object = Nothing
     Property nctsSA_TIN As Object = Nothing
 
@@ -1008,6 +1010,8 @@ Public Class cNCTS_TR_Sicherheitsangaben
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_BezeichnungBescheinigun", nctsSA_BezeichnungBescheinigun))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_AbgabenBetrag", nctsSA_AbgabenBetrag))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_GRN", nctsSA_GRN))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_AbgabenBetragFremdWaehrung", nctsSA_AbgabenBetragFremdWaehrung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_Waerung", nctsSA_Waerung))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_Zugriffcode", nctsSA_Zugriffcode))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsSA_TIN", nctsSA_TIN))