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

SND Abrechung

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-04-17 14:23:13 +02:00
parent 663a1f817b
commit 6697922adb
12 changed files with 823 additions and 303 deletions
Download Patch File Download Diff File Expand all files Collapse all files

208
Aviso/frmHauptfenster.vb
View File

@@ -4587,63 +4587,140 @@ ELSE_ATILLA:
' Dim dt As DataTable = SQL.loadDgvBySql("", "EZOLL")
Dim slist As New List(Of String)
slist.Add("510322017583")
slist.Add("510322017588")
slist.Add("510322017594")
slist.Add("510322017789")
slist.Add("510322017825")
slist.Add("510322017898")
slist.Add("510322017884")
slist.Add("510322018006")
slist.Add("510322017982")
slist.Add("510322018045")
slist.Add("510322018174")
slist.Add("510322018180")
slist.Add("480322071811")
slist.Add("510322018187")
slist.Add("510322018188")
slist.Add("510322018190")
slist.Add("510322018193")
slist.Add("510322018195")
slist.Add("510322018207")
slist.Add("510322018211")
slist.Add("510322018225")
slist.Add("510322018226")
slist.Add("510322018233")
slist.Add("510322018234")
slist.Add("510322018249")
slist.Add("480322072358")
slist.Add("510322018012")
slist.Add("510322018181")
slist.Add("510322018255")
slist.Add("510322018295")
slist.Add("510322018318")
slist.Add("510322018319")
slist.Add("510322018413")
slist.Add("510322018424")
slist.Add("510322018425")
slist.Add("510322018440")
slist.Add("510322018498")
slist.Add("510322018409")
slist.Add("510322018594")
slist.Add("510322018595")
slist.Add("510322018600")
slist.Add("510322018603")
slist.Add("510322018604")
slist.Add("510322018615")
slist.Add("510322018632")
slist.Add("510322018728")
slist.Add("510322018762")
slist.Add("510322018835")
slist.Add("510322018869")
slist.Add("510322018898")
slist.Add("510322018937")
slist.Add("510322018938")
slist.Add("510322018939")
slist.Add("510322018947")
slist.Add("510322018984")
slist.Add("510322018985")
slist.Add("510322019045")
slist.Add("510322010193")
slist.Add("510322011571")
slist.Add("480322050190")
slist.Add("480322050410")
slist.Add("510322013047")
slist.Add("480322052547")
slist.Add("510322014009")
slist.Add("480322056856")
slist.Add("510322014450")
slist.Add("510322015430")
slist.Add("480322064453")
slist.Add("510322010825")
slist.Add("510322010960")
slist.Add("510322011010")
slist.Add("510322011054")
slist.Add("510322011220")
slist.Add("510322011416")
slist.Add("510322011334")
slist.Add("510322015642")
slist.Add("510322015821")
slist.Add("510322015984")
slist.Add("510322015883")
slist.Add("510322016423")
slist.Add("510322016609")
slist.Add("510322017257")
slist.Add("510322017397")
slist.Add("510322011605")
slist.Add("510322011813")
slist.Add("510322012097")
slist.Add("510322012102")
slist.Add("510322012106")
slist.Add("510322011759")
slist.Add("510322012131")
slist.Add("510322012220")
slist.Add("510322012248")
slist.Add("510322011680")
slist.Add("510322012454")
slist.Add("510322012499")
slist.Add("510322012495")
slist.Add("510322012477")
slist.Add("510322012565")
slist.Add("510322012924")
slist.Add("510322013000")
slist.Add("510322009806")
slist.Add("510322009814")
slist.Add("510322009820")
slist.Add("510322010007")
slist.Add("510322010221")
slist.Add("510322010223")
slist.Add("510322010237")
slist.Add("510322010321")
slist.Add("510322010115")
slist.Add("510322010427")
slist.Add("510322010497")
slist.Add("510322010362")
slist.Add("510322010651")
slist.Add("510322010698")
slist.Add("510322013133")
slist.Add("510322013407")
slist.Add("510322013581")
slist.Add("510322013558")
slist.Add("510322013713")
slist.Add("510322013714")
slist.Add("510322013736")
slist.Add("510322016954")
slist.Add("510322017014")
slist.Add("510322016978")
slist.Add("510322017065")
slist.Add("510322017044")
slist.Add("510322017078")
slist.Add("510322017062")
slist.Add("510322017308")
slist.Add("510322017406")
slist.Add("510322017408")
slist.Add("510322017398")
slist.Add("510322015326")
slist.Add("510322015332")
slist.Add("510322015340")
slist.Add("510322015350")
slist.Add("510322015631")
slist.Add("510322015635")
slist.Add("510322015634")
slist.Add("510322015639")
slist.Add("510322015626")
slist.Add("510322015907")
slist.Add("510322016034")
slist.Add("510322017410")
slist.Add("510322017402")
slist.Add("510322017323")
slist.Add("510322017407")
slist.Add("510322017401")
slist.Add("510322017619")
slist.Add("510322017599")
slist.Add("510322013950")
slist.Add("510322013929")
slist.Add("510322013960")
slist.Add("510322014077")
slist.Add("510322014084")
slist.Add("510322014268")
slist.Add("510322014301")
slist.Add("510322014451")
slist.Add("510322016288")
slist.Add("510322016371")
slist.Add("510322016384")
slist.Add("510322016380")
slist.Add("510322016459")
slist.Add("510322016709")
slist.Add("510322016736")
slist.Add("510322016644")
slist.Add("510322016787")
slist.Add("510322016793")
slist.Add("510322014437")
slist.Add("510322014373")
slist.Add("510322014675")
slist.Add("510322014682")
slist.Add("510322014679")
slist.Add("510322014751")
slist.Add("510322014750")
slist.Add("510322014849")
slist.Add("510322014853")
slist.Add("510322014894")
slist.Add("510322014915")
slist.Add("510322014914")
slist.Add("510322014912")
slist.Add("510322014947")
slist.Add("510322015084")
slist.Add("510322015101")
slist.Add("510322015059")
slist.Add("510322014880")
slist.Add("510322015143")
slist.Add("510322015234")
slist.Add("510322015260")
slist.Add("510322015295")
slist.Add("510322015235")
@@ -5076,6 +5153,13 @@ ELSE_ATILLA:
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
saveLukowaPDFsFromTherefore()
Exit Sub
MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("AW: Kennzeichen: CB4178EB | Grenze SUB DE007701 Suben | Absender CEMOBSAN;TEKIRDAG | Gewicht: 7.200,0"))
MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("*00*Fwd: Abgabenbescheid 5003/25001269 T31M492"))
MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("AW: Warenbeschreibung in T1-Dokumenten - 5003/25000389"))
@@ -5652,8 +5736,13 @@ Public Class AvisoStatusFunctions
'Prüfen ob WO oder ZA, in dem Fall keine Mail senden
Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(GrenzstelleMail)
If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
If GRZ.grz_Zollamt Then GrenzstelleMail = "" 'KEINE MAIL
If GRZ.grz_Warenort Then GrenzstelleMail = "" 'KEINE MAIL
If Not GRZ.grz_AvisoStatusVorOrt Then
GrenzstelleMail = "" 'KEINE MAIL
End If
'If GRZ.grz_Zollamt Then GrenzstelleMail = "" 'KEINE MAIL
'If GRZ.grz_Warenort Then GrenzstelleMail = "" 'KEINE MAIL
End If
@@ -7197,7 +7286,6 @@ ELSE_ATILLA:
Select Case art
Case "5"
'Dim linkAviso = "https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID)
Dim linkAviso = "https://status.app.verag.ag/aviso-status/" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID)
hText = hText.Replace("%Link%", "<div style=""border: 1px solid #333;width:300px;height:50px;background-color:#eee;color:#003680""><br>&emsp;<a href=""" & linkAviso & """><b>Tracking shipment status<br></b></a></div>")