Aviso Redesign

Aviso/usrcntlAktDetails.vb

@@ -281,7 +281,7 @@ Public Class usrcntlAktDetails
         cboFormulareRgAn.changeItem("AVISIERER")
 
         'AVISO_TRIPS
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_TRIPS") Then
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_TRIPS") Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then
             Panel5.Visible = True
         End If
 
@@ -1664,25 +1664,7 @@ Public Class usrcntlAktDetails
         rtb.Text = t
         f.ShowDialog()
     End Sub
-    Private Sub SpeditionsbuchEintrag()
 
-        If dgvSendungen.SelectedRows.Count = 0 Then Exit Sub
-        Dim sndIdTmp = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
-
-        Dim posnr As posNr = FUNC.SpeditionsbuchEintrag(AvisoID, sndIdTmp)
-        If posnr IsNot Nothing Then
-            Dim sndEntry As New VERAG_PROG_ALLGEMEIN.cSendungen(sndIdTmp)
-            sndEntry.FilialenNr = posnr.Filiale
-            sndEntry.AbfertigungsNr = posnr.Abfertigungsnummer
-            sndEntry.UnterNr = posnr.UnterNr
-            'sndEntry.tblSnd_SpeditionsbuchEingetragen = (posnr.Filiale > 0 And posnr.Abfertigungsnummer > 0 And posnr.UnterNr >= 0) ' Wenn Sped Eintrag gelöscht-> - 1, dann ist der Eintrag nicht mehr vorhanden
-            Dim vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & sndEntry.FilialenNr & "' AND AbfertigungsNr='" & sndEntry.AbfertigungsNr & "' AND UnterNr='" & sndEntry.UnterNr & "'", "FMZOLL")
-            sndEntry.tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
-            sndEntry.SAVE()
-            reload(AvisoID)
-        End If
-        'Vermerke_anzeigen()
-    End Sub
 
     ' Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
     Private Sub dgvSendungen_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSendungen.CellDoubleClick
@@ -1952,7 +1934,17 @@ Public Class usrcntlAktDetails
                 sendAktiv = False
                 Me.Cursor = Cursors.WaitCursor
                 If Not dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_Fremdspedition").Value Then
-                    SpeditionsbuchEintrag()
+
+                    If dgvSendungen.SelectedRows.Count > 0 Then
+                        Dim sndIdTmp = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
+                        FUNC.setSendungSpeditionsbuchEintrag(sndIdTmp, AvisoID)
+                        reload(AvisoID)
+                    End If
+
+
+
+
+
                 End If
                 Me.Cursor = Cursors.Default