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

18
UID/usrctlProcedures.Designer.vb generated
View File

@@ -144,7 +144,7 @@ Partial Class usrctlProcedures
Me.Button43 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button49 = New System.Windows.Forms.Button()
Me.Button99 = New System.Windows.Forms.Button()
Me.Label17 = New System.Windows.Forms.Label()
Me.Label18 = New System.Windows.Forms.Label()
Me.Label19 = New System.Windows.Forms.Label()
@@ -1343,18 +1343,18 @@ Partial Class usrctlProcedures
'
'Button49
'
Me.Button49.Location = New System.Drawing.Point(741, 654)
Me.Button49.Name = "Button49"
Me.Button49.Size = New System.Drawing.Size(75, 23)
Me.Button49.TabIndex = 66
Me.Button49.Text = "Kafka TEST"
Me.Button49.UseVisualStyleBackColor = True
Me.Button99.Location = New System.Drawing.Point(741, 654)
Me.Button99.Name = "Button99"
Me.Button99.Size = New System.Drawing.Size(75, 23)
Me.Button99.TabIndex = 66
Me.Button99.Text = "Kafka TEST"
Me.Button99.UseVisualStyleBackColor = True
'
'usrctlProcedures
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Button49)
Me.Controls.Add(Me.Button99)
Me.Controls.Add(Me.Button43)
Me.Controls.Add(Me.Button33)
Me.Controls.Add(Me.lblStatus)
@@ -1554,5 +1554,5 @@ Partial Class usrctlProcedures
Friend WithEvents Label19 As Label
Friend WithEvents Label18 As Label
Friend WithEvents Label17 As Label
Friend WithEvents Button49 As Button
Friend WithEvents Button99 As Button
End Class

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)