ENS HMRC

UID/usrctlProcedures.Designer.vb

@@ -113,6 +113,8 @@ Partial Class usrctlProcedures
         Me.Button32 = New System.Windows.Forms.Button()
         Me.lblStatus = New System.Windows.Forms.Label()
         Me.Button33 = New System.Windows.Forms.Button()
+        Me.Button34 = New System.Windows.Forms.Button()
+        Me.Button35 = New System.Windows.Forms.Button()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -963,10 +965,30 @@ Partial Class usrctlProcedures
         Me.Button33.Text = "DAKOSY CSV Importieren"
         Me.Button33.UseVisualStyleBackColor = True
         '
+        'Button34
+        '
+        Me.Button34.Location = New System.Drawing.Point(694, 3)
+        Me.Button34.Name = "Button34"
+        Me.Button34.Size = New System.Drawing.Size(145, 49)
+        Me.Button34.TabIndex = 65
+        Me.Button34.Text = "HMRC"
+        Me.Button34.UseVisualStyleBackColor = True
+        '
+        'Button35
+        '
+        Me.Button35.Location = New System.Drawing.Point(550, 3)
+        Me.Button35.Name = "Button35"
+        Me.Button35.Size = New System.Drawing.Size(145, 49)
+        Me.Button35.TabIndex = 66
+        Me.Button35.Text = "HMRC"
+        Me.Button35.UseVisualStyleBackColor = True
+        '
         'usrctlProcedures
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.Button35)
+        Me.Controls.Add(Me.Button34)
         Me.Controls.Add(Me.Button33)
         Me.Controls.Add(Me.lblStatus)
         Me.Controls.Add(Me.Button32)
@@ -1124,4 +1146,6 @@ Partial Class usrctlProcedures
     Friend WithEvents Button32 As Button
     Friend WithEvents lblStatus As Label
     Friend WithEvents Button33 As Button
+    Friend WithEvents Button34 As Button
+    Friend WithEvents Button35 As Button
 End Class

UID/usrctlProcedures.vb

@@ -15,6 +15,7 @@ Imports System.Text
 Imports System.Xml.Serialization
 Imports System.Xml
 Imports System.Data.OleDb
+Imports Chilkat
 'Imports Microsoft.Office.Interop
 
 Public Class usrctlProcedures
@@ -580,7 +581,7 @@ Public Class usrctlProcedures
             For Each file As String In System.IO.Directory.GetFiles("C:\Users\DEVELOPER1\Desktop\Verpfl\Fahrer_NCTS_Verpflichtungserklärungen\") ' Ermittelt alle Dateien des Ordners 
                 Try
 
-                    Dim pdf As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(file)
+                    Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(file)
                     Dim stamper = New PdfStamper(pdf, New FileStream("C:\Users\DEVELOPER1\Desktop\Verpfl\tmp.pdf", FileMode.Create))
                     Dim f = stamper.AcroFields
 
@@ -641,9 +642,8 @@ Public Class usrctlProcedures
         End While
         Return file
     End Function
-
     Sub pdf2()
-        Dim pdf As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader("C:\Users\DEVELOPER1\Desktop\Verpfl\test.pdf")
+        Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader("C:\Users\DEVELOPER1\Desktop\Verpfl\test.pdf")
 
 
         Using fw As New FileStream("C:\Users\DEVELOPER1\Desktop\Verpfl\tmp.pdf", FileMode.Open)
@@ -1336,14 +1336,14 @@ Public Class usrctlProcedures
         Dim newUri As New Uri(proxyaddress)
         myProxy.Address = newUri
         myReq.Proxy = myProxy
-        Dim post As Stream = myReq.GetRequestStream
+        Dim post As System.IO.Stream = myReq.GetRequestStream
 
         post.Write(buffer, 0, buffer.Length)
         post.Close()
 
         ' MsgBox(myReq)
         Dim myResponse As HttpWebResponse = myReq.GetResponse
-        Dim responsedata As Stream = myResponse.GetResponseStream
+        Dim responsedata As System.IO.Stream = myResponse.GetResponseStream
         Dim responsereader As New StreamReader(responsedata)
 
         response = responsereader.ReadToEnd
@@ -1403,14 +1403,14 @@ Public Class usrctlProcedures
         Dim newUri As New Uri(proxyaddress)
         myProxy.Address = newUri
         myReq.Proxy = myProxy
-        Dim post As Stream = myReq.GetRequestStream
+        Dim post As System.IO.Stream = myReq.GetRequestStream
 
         post.Write(buffer, 0, buffer.Length)
         post.Close()
 
         ' MsgBox(myReq)
         Dim myResponse As HttpWebResponse = myReq.GetResponse
-        Dim responsedata As Stream = myResponse.GetResponseStream
+        Dim responsedata As System.IO.Stream = myResponse.GetResponseStream
         Dim responsereader As New StreamReader(responsedata)
 
         response = responsereader.ReadToEnd
@@ -3697,6 +3697,20 @@ Public Class usrctlProcedures
 
     End Sub
 
+    Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click
+        VERAG_PROG_ALLGEMEIN.cHMRC_ENS.insertENS(Nothing, "")
+    End Sub
+
+    Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click
+        VERAG_PROG_ALLGEMEIN.cHMRC_ENS.helloWorldENS("")
+        'VERAG_PROG_ALLGEMEIN.cHMRC.checkVAT_UK("389356931", "")
+
+    End Sub
+
+    Private Sub usrctlProcedures_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
 
     'Private Sub Button26_Click(sender As Object, e As EventArgs)
     '    For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")