edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ENS HMRC

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-17 10:51:30 +01:00
parent cb798cd22b
commit dfeb92035e
5 changed files with 256 additions and 161 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
UID/usrctlProcedures.vb
View File

@@ -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")