Fiskalkunden

SDL/Classes/cEORIWebService.vb

@@ -229,12 +229,16 @@ Public Class cEORIWebService
 
     Shared Sub setEORIEntry(kdnr As Integer, SendungsID As Integer, EORI_ERG As EoriResponseModel)
         Dim EORIPruefung = New cEORIPruefung()
+        Dim kdErw = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
 
         Select Case EORI_ERG.Result(0).Status
             Case 0 : EORIPruefung.eori_valid = 1
             Case 1 : EORIPruefung.eori_valid = 0
         End Select
 
+        kdErw.kde_EORIgeprueftAm = Now()
+        kdErw.SAVE()
+
         EORIPruefung.eori_datum = Now()
         EORIPruefung.eori_KdNr = kdnr
         EORIPruefung.eori_maid = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID