neu

Aviso/frmHauptfenster.vb

@@ -261,7 +261,7 @@ Public Class frmHauptfenster
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
             AdministrationToolStripMenuItem.Visible = True
             lblMitarbeiter.Text += " (Admin)"
-
+            Button3.Visible = True
             Button12.Visible = True
             Label22.Visible = True
             Label22.Text = "XX"
@@ -775,7 +775,7 @@ Public Class frmHauptfenster
         End If
 
         hSQL += " ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC"
-        MsgBox(hSQL)
+        ' MsgBox(hSQL)
         'If hSort = "" Then
         'hSQL += " ORDER BY Ankunft DESC, AvisoEingang DESC, Datum DESC"
         ' Else
@@ -2428,8 +2428,51 @@ Public Class frmHauptfenster
         If formTmp IsNot Nothing Then formTmp.Focus()
     End Sub
 
-    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
+    Public Function ConvertFileToBase64(ByVal fileName As String) As String
+        Return Convert.ToBase64String(System.IO.File.ReadAllBytes(fileName))
 
+    End Function
+    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
+        'Me.Cursor = Cursors.WaitCursor
+
+        Dim firma = ""
+        MsgBox("LOS" & vbNewLine & firma)
+
+        Dim path = SDL.cFinanzOnlineWebService.genUID_Formular("ATU74813856")
+        If path <> "" Then
+            Process.Start(path)
+        End If
+        'If SDL.cFinanzOnlineWebService.Call_Web_Service_MethodUID_Abfrage_NEU2020(firma, "ATU74813856") = 0 Then
+        '    MsgBox("HURRA2" & vbNewLine & firma)
+
+
+        'End If
+
+
+        Exit Sub
+
+
+        MsgBox("1" & Environment.UserDomainName)
+        MsgBox("1" & Environment.UserName)
+        Exit Sub
+        Dim file As System.IO.StreamWriter
+        file = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\DEVELOPER1\Desktop\test.txt", True)
+        file.WriteLine(ConvertFileToBase64("C:\Users\DEVELOPER1\Desktop\Example.pdf"))
+        file.Close()
+
+        MsgBox("2")
+
+        Exit Sub
+
+        Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAviso
+        SH.POSITIONS.Add(New cVERAG_in_TRAviso_shipments)
+        SH.DOCUMENTS.Add(New cVERAG_in_TRAviso_document)
+        SH.POSITIONS(0).ADDRESS.Add(New cVERAG_in_TRAviso_Adressen)
+        SH.POSITIONS(0).DOCUMENTS.Add(New cVERAG_in_TRAviso_document)
+        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")
         Dim dictData As New Dictionary(Of String, Object)