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

Belegmail Betreff; Greenpulse

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-11-27 09:46:54 +01:00
parent 8e9e964c02
commit 901716de41
3 changed files with 82 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
UID/usrctlProcedures.vb
View File

@@ -4154,18 +4154,24 @@ Public Class usrctlProcedures
MsgBox(EZA.eza_MRN)
MsgBox(EZA.eza_ObjectName)
' Objekt
Dim rec = cDakosyEZA_Greenpulse.BuildByMrn(EZA)
' Dim rec = cATEZ_Greenpulse_KafkaDecs.BuildDemo()
'' JSON (schön formatiert)
'Dim json As String = cATEZ_Greenpulse_KafkaDecsBuilder_DAKOSY.BuildJsonByMrn(mrn, pretty:=True)
'Console.WriteLine(json)
'Dim rec = cDakosyEZA_Greenpulse.BuildByMrn(EZA)
'Dim key = cATEZ_Greenpulse_KafkaDecs.GetUniqueKey_Pipe("DE", "DAKOSY", mrn)
'Dim dr = cATEZ_Greenpulse_KafkaDecs.InsertOrUpdateToKafkaSync(rec, key, 30000)
Dim key = cATEZ_Greenpulse_KafkaDecs.GetUniqueKey_Pipe("DE", "DAKOSY", mrn)
' Objekt
Dim rec = cDakosyEZA_Greenpulse.BuildByMrn(EZA)
Dim dr = cATEZ_Greenpulse_KafkaDecs.InsertOrUpdateToKafkaSync(rec, key, 30000)
MessageBox.Show($"OK: {dr.Status} @ {dr.TopicPartitionOffset}")
'Unlerlagen
Dim rec_inv = cDakosyEZA_Greenpulse.BuildByMrnInvoices(EZA)
Dim dr_inv = cATEZ_Greenpulse_KafkaInvoices.InsertOrUpdateToKafkaSync(rec_inv, key, 30000)
MessageBox.Show($"OK_Dec: {dr.Status} @ {dr.TopicPartitionOffset}")
MessageBox.Show($"OK_Inv: {dr_inv.Status} @ {dr_inv.TopicPartitionOffset}")
Catch ex As Exception
MessageBox.Show(ex.Message)