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

ATEZ und Digicust

Browse Source
This commit is contained in:
d.breimaier
2023-09-08 17:11:35 +02:00
parent 1dbaa56e9e
commit b48531626d
10 changed files with 500 additions and 817 deletions
Download Patch File Download Diff File Expand all files Collapse all files

176
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -411,6 +411,10 @@ Public Class frmSendungsdetailsNEU
Button20.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DIGICUST", Me) Then
Button19.Visible = True
End If
cboFiliale._allowFreiText = Nothing
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
@@ -3069,6 +3073,8 @@ Public Class frmSendungsdetailsNEU
initAnhang()
ElseIf TabControl1.SelectedTab Is tbKundenInfo Then
initdgvATEZ()
ElseIf TabControl1.SelectedTab Is tbDigicust Then
initdgvDigicust()
ElseIf TabControl1.SelectedTab Is tbKundenInfo Then
Dim kdSrc As VERAG_PROG_ALLGEMEIN.KdSearchBox = txtAuftraggeber
If kdSrc.KdNr_value <= 0 Then kdSrc = txtEmpfaenger
@@ -3973,9 +3979,9 @@ Public Class frmSendungsdetailsNEU
Next
End Sub
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click
cntxtAnh.Show(Cursor.Position)
End Sub
'Private Sub Button20_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click
' cntxtAnh.Show(Cursor.Position)
'End Sub
Private Sub KopierenZwischenablageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenZwischenablageToolStripMenuItem.Click
If dgvAnhang.SelectedRows.Count >= 1 Then
@@ -6278,28 +6284,24 @@ Public Class frmSendungsdetailsNEU
Me.Cursor = Cursors.Default
End Sub
Private Sub Button20_Click_1(sender As Object, e As EventArgs) Handles Button20.Click
SAVE_ME()
'Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
' SAVE_ME()
cntxAPI.Show(Cursor.Position)
Try
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.Show(Me)
End If
' cntxAPI.Show(Cursor.Position)
' Try
' If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
' Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
' Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
' frmAttilaATEZNCTS.Show(Me)
' End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Me.Cursor = Cursors.Default
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
' Me.Cursor = Cursors.Default
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
'End Sub
Private Sub Button20_Click_1(sender As Object, e As EventArgs) Handles Button20.Click
SAVE_ME()
@@ -6307,8 +6309,9 @@ Public Class frmSendungsdetailsNEU
Try
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"), dgvATEZNCTS)
frmAttilaATEZNCTS.Show(Me)
initdgvATEZ()
End If
Catch ex As Exception
@@ -6316,48 +6319,48 @@ Public Class frmSendungsdetailsNEU
End Try
Me.Cursor = Cursors.Default
SAVE_ME()
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
Dim frMZA As New SDL.frmZollanmeldung("T1", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"), "MODALTRANS")
frMZA.Show()
AddHandler frMZA.FormClosed, Sub()
initdgvZollAnmeldungen()
End Sub
'SAVE_ME()
'If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
'Dim frMZA As New SDL.frmZollanmeldung("T1", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"), "MODALTRANS")
'frMZA.Show()
'AddHandler frMZA.FormClosed, Sub()
' initdgvZollAnmeldungen()
' End Sub
End Sub
Private Sub ATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATEZToolStripMenuItem.Click
Try
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.Show(Me)
End If
'Private Sub ATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATEZToolStripMenuItem.Click
' Try
' If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
' Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
' Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
' frmAttilaATEZNCTS.Show(Me)
' End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Me.Cursor = Cursors.Default
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
' Me.Cursor = Cursors.Default
End Sub
'End Sub
Private Sub DigicustToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DigicustToolStripMenuItem.Click
Try
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
If AVISO.ImEx.ToLower() <> "import" Then
MsgBox("API unterstützt nur Importe!" & vbNewLine & "Aktenübersicht-Einstellungen kontrollieren")
Exit Sub
End If
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frm = New frmDigicust(AVISO, SND, Now.ToString("yy"))
frm.Show(Me)
End If
'Private Sub DigicustToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DigicustToolStripMenuItem.Click
' Try
' If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
' If AVISO.ImEx.ToLower() <> "import" Then
' MsgBox("API unterstützt nur Importe!" & vbNewLine & "Aktenübersicht-Einstellungen kontrollieren")
' Exit Sub
' End If
' Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
' Dim frm = New frmDigicust(AVISO, SND, Now.ToString("yy"))
' frm.Show(Me)
' End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Me.Cursor = Cursors.Default
End Sub
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' End Try
' Me.Cursor = Cursors.Default
'End Sub
Sub initdgvATEZ()
With dgvATEZNCTS
@@ -6390,16 +6393,71 @@ Public Class frmSendungsdetailsNEU
Private Sub dgvATEZNCTS_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvATEZNCTS.CellDoubleClick
Try
Me.Cursor = Cursors.WaitCursor
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0)
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value, AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.Show(Me)
Me.Refresh()
End If
Cursor = Cursors.Default
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Sub dgvATEZNCTS_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvATEZNCTS.KeyUp
If e.KeyCode = Keys.Delete Then
If dgvATEZNCTS.SelectedRows.Count > 0 AndAlso dgvATEZNCTS.SelectedRows(0).Cells("Status").Value <> "Sent" Then
If vbYes = MsgBox("Möchten Sie diesen Request wirklich löschen?", vbYesNoCancel) Then
Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value)
atez.delete()
initdgvATEZ()
End If
End If
End If
End Sub
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
Try
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frm = New frmDigicust(AVISO, SND, Now.ToString("yy"), dgvATEZNCTS)
frm.Show(Me)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Me.Cursor = Cursors.Default
End Sub
Sub initdgvDigicust()
With dgvDigicust
.Columns.Clear()
.ReadOnly = False
.DataSource = SQL.loadDgvBySql("select * FROM [tblDigicust_Sessions]", "FMZOLL")
If .Columns.Count <= 0 Then Exit Sub
'Ä.Columns("txtStatus").ReadOnly = False
.Columns("session_Id").Visible = True
.Columns("token").HeaderText = "Token"
.Columns("token").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("datetime").HeaderText = "Erstellt"
.Columns("datetime").Width = 100
.Columns("datetime").DefaultCellStyle.Format = "dd.MM.yy HH:mm"
.Columns("datetime").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.ReadOnly = False
End With
End Sub
End Class