merge

Aviso/frmSendungsdetailsNEU.vb

@@ -1129,28 +1129,34 @@ Public Class frmSendungsdetailsNEU
         initZollTarife(c.KdNr)
     End Sub
     Private Sub frmSendungsdetailsShown(sender As Object, e As EventArgs) Handles Me.Shown
-        If False Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
-            Dim u As New SDL.usrCntlATLAS_NCTS(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.T2, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "")
-            u.Dock = DockStyle.Fill
-            tbZollabfertigung.Controls.Clear()
-            tbZollabfertigung.Controls.Add(u)
-        Else
-            'TabControl1.TabPages.Remove(tbZollabfertigung)
-        End If
+        Try
 
-        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetails", Me) And Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetailsNEU", Me) Then
-            Me.Close()
-        End If
-        If TabControl1.SelectedTab Is tbKundenInfo Then
-            txtAuftraggeber.Focus() ' Damit in tbKundeninfo ausgewählt 
-        End If
-        '  Button13.Location = New Point(Button13.Left, 0)
-        '   Dim ber As Integer = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG(Me)
-        ' If ber >= 99 Then
-        'Me.Dispose()
-        'Me.Close()
-        ' Exit Sub
-        'nd If
+
+            If False Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
+                Dim u As New SDL.usrCntlATLAS_NCTS(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.T2, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "")
+                u.Dock = DockStyle.Fill
+                tbZollabfertigung.Controls.Clear()
+                tbZollabfertigung.Controls.Add(u)
+            Else
+                'TabControl1.TabPages.Remove(tbZollabfertigung)
+            End If
+
+            If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetails", Me) And Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetailsNEU", Me) Then
+                Me.Close()
+            End If
+            If TabControl1.SelectedTab Is tbKundenInfo Then
+                txtAuftraggeber.Focus() ' Damit in tbKundeninfo ausgewählt 
+            End If
+            '  Button13.Location = New Point(Button13.Left, 0)
+            '   Dim ber As Integer = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG(Me)
+            ' If ber >= 99 Then
+            'Me.Dispose()
+            'Me.Close()
+            ' Exit Sub
+            'nd If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
     End Sub
 
     Sub changeSelectedButton()
@@ -4425,7 +4431,7 @@ Public Class frmSendungsdetailsNEU
                 Dim f As SDL.frmFormulare = Nothing
                 SDL.FormularManagerNEU.OPEN_FORM_Byref(SDL.FormularManagerArten.Importaviso, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE},, f)
                 AddHandler f.FormClosing, Sub()
-                                              If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Firma <> 24 Then
+                                              If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Firma <> "24" Then
                                                   If f.printed Then AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Auftrag fehlt - angefordert", 1)
                                               End If
 
@@ -8303,7 +8309,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusAbklaerungTR_Click(sender As Object, e As EventArgs) Handles btnStatusAbklaerungTR.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungAbklaerungTR(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungAbklaerungTR(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8312,7 +8318,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusVorbereitetQS_Click(sender As Object, e As EventArgs) Handles btnStatusVorbereitetQS.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungVorbereitetQS(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungVorbereitetQS(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8321,7 +8327,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusVorgeschrieben_Click(sender As Object, e As EventArgs) Handles btnStatusVorgeschrieben.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungVorgeschrieben(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungVorgeschrieben(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8330,7 +8336,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusAbfertigungTR_Click(sender As Object, e As EventArgs) Handles btnStatusAbfertigungTR.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungAbfertigungTR(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungAbfertigungTR(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8340,7 +8346,7 @@ Public Class frmSendungsdetailsNEU
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
         If Not cbxFremdspedition.Checked Then
-            If AVISOFUNC.setSendungSpeditionsbuchEintrag(SendungID, AvisoId) Then
+            If AVISOFUNC.setSendungSpeditionsbuchEintrag(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
                 initDataBinding()
             End If
         End If
@@ -8350,7 +8356,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnSendungFakturiert_Click(sender As Object, e As EventArgs) Handles btnSendungFakturiert.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungFakturiert(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungFakturiert(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default