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

Greenpulse DYEZA

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-09-08 13:46:33 +02:00
parent 504a1b7967
commit fe0f9d9bab
7 changed files with 1142 additions and 877 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
UID/usrctlProcedures.vb
View File

@@ -10,6 +10,7 @@ Imports System.Xml
Imports System.Xml.Serialization
Imports Chilkat
Imports Confluent.Kafka
Imports DAKOSY_Worker
Imports GrapeCity
Imports iTextSharp.text.pdf
Imports Microsoft.Office.Interop
@@ -586,7 +587,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
@@ -648,7 +649,7 @@ Public Class usrctlProcedures
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)
@@ -4147,15 +4148,18 @@ Public Class usrctlProcedures
Catch ex As Exception
MessageBox.Show("Datei nicht vorhanden.")
Finally
End Try
End Sub
Private Sub Button49_Click_1(sender As Object, e As EventArgs) Handles Button49.Click
Private Sub Button99_Click_1(sender As Object, e As EventArgs) Handles Button99.Click
Try
Dim mrn As String = "ATC400003850720243230"
Dim mrn As String = "25DE7458GCA002Q3R4"
Dim EZA = cDakosyEZA.LOADByMRN(mrn, True)
MsgBox(EZA.eza_MRN)
MsgBox(EZA.eza_ObjectName)
' Objekt
Dim rec = cATEZ_Greenpulse_KafkaDecsBuilder_DAKOSY.BuildByMrn(mrn)
Dim rec = cDakosyEZA_Greenpulse.BuildByMrn(EZA)
' Dim rec = cATEZ_Greenpulse_KafkaDecs.BuildDemo()
'' JSON (schön formatiert)