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

div. Änderungen

Browse Source
This commit is contained in:
d.breimaier
2024-05-08 09:37:40 +02:00
parent 8e74142d59
commit 7ba4fdf8f1
10 changed files with 205 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb
View File

@@ -96,8 +96,6 @@ Public Class cFinanzOnlineWebService
If AD.UstIdKz IsNot Nothing AndAlso AD.UstIdNr IsNot Nothing Then
Try
If AskIfDouble Then
If IsDate(AD.UstIdGeprüft) AndAlso CDate(AD.UstIdGeprüft).ToShortDateString = Now.ToShortDateString Then
@@ -210,8 +208,10 @@ Public Class cFinanzOnlineWebService
If (UID_TMP.uid_valid) Then 'OK
If SaveErgInAdressen Then
AD_new.UstIdGeprüft = Now.ToShortDateString
AD_new.SAVE()
AD_new.UpdateSpecialField("UstIdGeprüft", Now.ToShortDateString)
'AD_new.UstIdGeprüft = Now.ToShortDateString
'AD_new.SAVE()
End If
End If
@@ -223,8 +223,11 @@ Public Class cFinanzOnlineWebService
If (returnInt = 0) Then 'OK
If SaveErgInAdressen Then
AD.UstIdGeprüft = Now.ToShortDateString
AD.SAVE()
AD.UpdateSpecialField("UstIdGeprüft", Now.ToShortDateString)
'AD.UstIdGeprüft = Now.ToShortDateString
'AD.SAVE()
End If
End If