neu

Aviso/frmHauptfenster.vb

@@ -2565,6 +2565,9 @@ Public Class frmHauptfenster
     End Function
     Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
 
+        cHMRC.hmrcTEST()
+
+        Exit Sub
 
         Dim list = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(717858, CDate("01.10.2021"), CDate("31.10.2021")) '{5})
 
@@ -2581,9 +2584,6 @@ Public Class frmHauptfenster
         VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailTo, betreff, htmlBody, , False, False)
         Exit Sub
 
-        Exit Sub
-        CHMRC.hmrcTEST()
-
         Exit Sub
         Dim ep As New SDL.cEORIWebService
         MsgBox(ep.ValidateEoriNumber("ATEOS1000000199").Result(0).Name)
@@ -2634,6 +2634,10 @@ Public Class frmHauptfenster
         Dim resultJson = FromClass(SH)
 
         MsgBox(resultJson)
+
+
+
+
         Exit Sub
 
         Dim jsonPost As New VERAG_PROG_ALLGEMEIN.cJsonPost("https://api.verag.ag/api/V001/CustomsDeclaration?value=test123")