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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-12-13 21:31:40 +01:00
parent 14a7113144
commit 62315eaef7
5 changed files with 111 additions and 1536 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -697,6 +697,21 @@ Public Class frmStartOptions
' LC.Add(New VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse(Code, Description, StartDate, EndDate))
' VERAG_PROG_ALLGEMEIN.
getEZB_Waehrungskurse = True
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
SQL.doSQL("IF NOT EXISTS (SELECT * FROM baskur WHERE baskur_code ='" & EZB.ezb_waehrungscode & "' AND baskur_gbdat =cast(getdate() as date) )
BEGIN
INSERT INTO [baskur]
([baskur_code],[baskur_typ],[baskur_bez],[baskur_faktor],[baskur_kurs],[baskur_gvdat],[baskur_gbdat],[baskur_edat],[baskur_adat],[baskur_sb],[baskur_cdealt],[baskur_wkz])
VALUES ('" & EZB.ezb_waehrungscode & "',1,'-',1," & Entry.Attributes("rate").Value & ",cast(getdate() as date),cast(getdate() as date),getdate(),getdate(),'VRG',000,'EUR')
END", "ATLAS")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Next
End If
VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.UPDATE_Waehrungstabelle(datum) ' Waehrungstabelle befüllen
@@ -730,7 +745,7 @@ Public Class frmStartOptions
Dim list As New List(Of String)
list.Add(PDF)
Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
Body &= "<br><br>Automatisch generiertes E-Mail."
@@ -797,6 +812,25 @@ Public Class frmStartOptions
' LC.Add(New VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse(Code, Description, StartDate, EndDate))
' VERAG_PROG_ALLGEMEIN.
getEZB_Waehrungskurse90D = True
'MsgBox(datum.ToShortDateString & " - " & Now.ToShortDateString)
'If datum.ToShortDateString = Now.ToShortDateString Then 'aktuellen TAG sichern.
' Try
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
' SQL.doSQL("INSERT INTO [baskur]
' ([baskur_code],[baskur_typ],[baskur_bez],[baskur_faktor],[baskur_kurs],[baskur_gvdat],[baskur_gbdat],[baskur_edat],[baskur_adat],[baskur_sb],[baskur_cdealt],[baskur_wkz])
' VALUES ('" & EZB.ezb_waehrungscode & "',1,'-',1," & Entry.Attributes("rate").Value & ",cast(getdate() as date),cast(getdate() as date),getdate(),getdate(),'VRG',000,'EUR')", "ATLAS")
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
'End If
Next