Datev Export, Schnittstelle für HKT (AMBAR), Essensbestellungen,

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -1879,6 +1879,12 @@ Public Class usrCntlKundenuebersicht
     End Sub
 
     Private Sub btnPruf_Click(sender As Object, e As EventArgs) Handles Button3.Click
+
+        checkEORI()
+
+        Exit Sub
+
+
         'Create an object that calls the name for the 
         'Web service used in the added Web Reference. 
 
@@ -2446,6 +2452,12 @@ Public Class usrCntlKundenuebersicht
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
+
+
+
+
+
         Me.Cursor = Cursors.WaitCursor
         'printEORI(KUNDE.EORITIN, "C:\Users\DEVELOPER1\Desktop\test.pdf")
 
@@ -3148,4 +3160,23 @@ Public Class usrCntlKundenuebersicht
     End Sub
 
 
+    Private Sub checkEORI()
+
+        Me.Cursor = Cursors.WaitCursor
+
+        Dim EORI_NR = KUNDE.EORITIN.ToString()
+
+        EORI_NR.Replace("-", "").Replace(" ", "").Trim()
+
+        If EORI_NR = "" Then Me.Cursor = Cursors.Default : Exit Sub
+
+        Dim url = SDL.cEORIWebService.genEORI_Formular(kdNr, EORI_NR)
+
+        'Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
+        'If pdf <> "" Then Process.Start(pdf)
+
+
+        Me.Cursor = Cursors.Default
+    End Sub
+
 End Class