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

Aviso Redesign

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-27 10:08:20 +01:00
parent 0e00ec3a2a
commit d134027977
122 changed files with 2696 additions and 1394 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Aviso/ATEZ/frmATEZ_NCTS.vb
View File

@@ -72,7 +72,7 @@ Public Class frmATEZ_NCTS
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click
Try
@@ -148,6 +148,11 @@ Public Class frmATEZ_NCTS
saveRoute(atez_data)
setDurchgangszolstellen()
setRoute()
If sender Is Button2 Then
MsgBox(getJSONAtezData(atez_data, atez))
Exit Sub
End If
If sendAtezData(atez_data, atez) Then
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG.tblSnd_SendungID, SENDUNG.tblSnd_AvisoID, "An ATEZ gesendet", 109)
Me.Close()
@@ -165,6 +170,10 @@ Public Class frmATEZ_NCTS
End Sub
Private Function getJSONAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As String
Dim jsonData = atez.setJsonPDF(atezData, dgvAnhaenge)
Return (jsonData.Emit())
End Function
Private Function sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As Boolean
Dim failreDesc As String
@@ -446,7 +455,7 @@ Public Class frmATEZ_NCTS
when [anh_Art] = 'Sonstiges' then 'OTHER'
when [anh_Art] ='' then 'OTHER' End
[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge]
WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ = 'PDF'
WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ NOT IN ('MSG', 'SONSTIGES')
ORDER BY anh_SendungsId desc,
case
when [anh_Art] = 'ATR-EUR1' then 0