neu

Aviso/usrcntlAktDetails.vb

@@ -793,6 +793,12 @@ Public Class usrcntlAktDetails
                     txtMAinfo_AbklaerungTR.Text = "-"
                     txtMAinfo_AbklaerungTR.Tag = ""
 
+                    picMAinfo_TRVorgeschrieben.BackgroundImage = My.Resources.abfetigungTR_inaktiv
+                    txtMAinfo_TRVorgeschrieben.Text = "-"
+                    txtMAinfo_TRVorgeschrieben.Tag = ""
+                    txtMAinfo_TRVorgeschrieben.Visible = False
+                    picMAinfo_TRVorgeschrieben.Visible = False
+
                     'picMAinfo_AbfertigungTR.BackgroundImage = My.Resources.AbfertigungTR_Inaktiv
                     'txtMAinfo_AbfertigungTR.Text = "-"
                     'txtMAinfo_AbfertigungTR.Tag = ""
@@ -837,6 +843,16 @@ Public Class usrcntlAktDetails
                             txtMAinfo_Vorgeschrieben.Tag = dgvSendungen.SelectedRows(0).Cells("tblSnd_VG_MA").Value
                         End If
                         '---------------------------------------------------------
+                        'AbfertigungTR
+                        If dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR").Value IsNot DBNull.Value Then
+                            picMAinfo_TRVorgeschrieben.BackgroundImage = My.Resources.abfetigungTR_aktiv
+                            txtMAinfo_TRVorgeschrieben.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR_MA").Value & "'", "ADMIN", "-")
+                            txtMAinfo_TRVorgeschrieben.Tag = dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR_MA").Value
+
+                            txtMAinfo_TRVorgeschrieben.Visible = True
+                            picMAinfo_TRVorgeschrieben.Visible = True
+                        End If
+                        '---------------------------------------------------------
                     Else
                         sendwhere = " AND 1=0 " ' 1=0, damit keine Zeile angezeigt wird, wenn keine Sendung ausgewählt
                     End If
@@ -1784,8 +1800,24 @@ Public Class usrcntlAktDetails
             Case "StatusAbfertigungTR"
                 sendAktiv = False
                 Me.Cursor = Cursors.WaitCursor
-                If FUNC.setSendungAbfertigungTR(SendungsId, AvisoID) Then
-                    initDgvSendungen()
+
+                Dim anzahl As String = "0"
+                Dim anzahlPos As String = "0"
+                Dim doStatus = True
+                If dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_AbfertigungTR").Value Is DBNull.Value Then
+                    Dim f As New frmAbfertigungTR_ExportAnz
+                    If f.ShowDialog = DialogResult.OK Then
+                        anzahl = f.txtAnz._value
+                        anzahlPos = f.txtAnzPos._value
+                    Else
+                        doStatus = False
+                    End If
+                End If
+
+                If doStatus Then
+                    If FUNC.setSendungAbfertigungTR(SendungsId, AvisoID, anzahl, anzahlPos) Then
+                        initDgvSendungen()
+                    End If
                 End If
 
                 Me.Cursor = Cursors.Default
@@ -3141,12 +3173,12 @@ Public Class usrcntlAktDetails
                     End If
                 End If
 
-                Dim Printername = ""
-                Dim oPS As New System.Drawing.Printing.PrinterSettings
-                Try
-                    Printername = oPS.PrinterName
-                Catch ex As System.Exception
-                End Try
+                'Dim Printername = ""
+                'Dim oPS As New System.Drawing.Printing.PrinterSettings
+                'Try
+                '    Printername = oPS.PrinterName
+                'Catch ex As System.Exception
+                'End Try
 
                 For Each s In SPEDBUCHLIST
                     If s.DokumentId_Steuerbeleg IsNot Nothing AndAlso s.DokumentId_Steuerbeleg > 0 Then
@@ -3364,7 +3396,7 @@ Public Class usrcntlAktDetails
         ArrowDown_ShowHide()
     End Sub
 
-    Private Sub txtMAinfo_VorbereitetQs_TextChanged(sender As Object, e As EventArgs) Handles txtMAinfo_VorbereitetQs.Click, txtMAinfo_Vorgeschrieben.Click, txtMAinfo_AbklaerungTR.Click
+    Private Sub txtMAinfo_VorbereitetQs_TextChanged(sender As Object, e As EventArgs) Handles txtMAinfo_VorbereitetQs.Click, txtMAinfo_Vorgeschrieben.Click, txtMAinfo_AbklaerungTR.Click, txtMAinfo_TRVorgeschrieben.Click
         If sender.tag IsNot DBNull.Value AndAlso sender.tag IsNot Nothing Then
             If IsNumeric(sender.tag) Then
                 Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche(sender.tag)
@@ -3465,5 +3497,9 @@ Public Class usrcntlAktDetails
             AvisoStatusFunctions.SendStatusEmail(AVISO, mailTo)
         End If
     End Sub
+
+    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
+        Process.Start("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID))
+    End Sub
 End Class