neu

Aviso/usrcntlAktDetailsATILLANeu.vb

@@ -91,10 +91,13 @@ Public Class usrcntlAktDetailsATILLANeu
         pnlDetailsRechts.Cursor = Cursors.Default
 
         loaded = True
-        Vermerke_anzeigen()
-        initDgvSpeditionsbuch()
-        initdgvZollAnmeldungen()
-        initAnhaenge()
+        initTbCntr()
+
+        'bei selchanged:
+        'Vermerke_anzeigen()
+        'initDgvSpeditionsbuch() 
+        'initdgvZollAnmeldungen()
+        'initAnhaenge()
 
         If AVISO IsNot Nothing Then
 
@@ -294,6 +297,7 @@ Public Class usrcntlAktDetailsATILLANeu
         '   lblTimeVorbereitet.Text = formatdate(AVISO.Vorbereitet)
         lblTimeVorgeschreiben.Text = formatdate(AVISO.Vorgeschrieben)
 
+        intiAktUebernehmenBtn()
         Vermerke_anzeigen()
         'Button6.Focus()
         '  pnlDetailsRechts.Visible = True
@@ -465,9 +469,9 @@ Public Class usrcntlAktDetailsATILLANeu
 
         With dgvanhaenge
 
-            .RowTemplate.MinimumHeight = 20
+            .RowTemplate.MinimumHeight = 30
             .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
-            .Columns("anh_id").Visible = False     'VermerkID nicht anzeigen
+            .Columns("anh_id").Visible = False     'VermerkID nicht anzeigenconMenuVermerke
             .Columns("anh_docId").Visible = False     'AvisoID nicht anzeigen
 
             .Columns("anh_Name").MinimumWidth = 150
@@ -738,7 +742,7 @@ Public Class usrcntlAktDetailsATILLANeu
     End Sub
 
 
-    Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridVermerke.CellMouseClick
+    Private Sub grid_CellMouseClickAnh(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridVermerke.CellMouseClick
         If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
         'If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
         'gridMyAviso.ClearSelection() 'WARUM?
@@ -755,6 +759,23 @@ Public Class usrcntlAktDetailsATILLANeu
 
         End If
     End Sub
+
+    Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvanhaenge.CellMouseClick
+        If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
+
+        DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
+        If e.Button = MouseButtons.Right Then
+            If AVISO.Abgeschlossen Then Exit Sub
+            If sender Is dgvanhaenge Then
+                If dgvanhaenge.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
+                '  AvisoID = CInt(dgvanhaenge.Rows(e.RowIndex).Cells("AvisoId").Value)
+                dgvanhaenge.CurrentCell = dgvanhaenge.Rows(e.RowIndex).Cells(e.ColumnIndex)
+                cntxt.Show(Cursor.Position)
+            End If
+
+        End If
+    End Sub
+
     Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs)
         Dim cF As Color = DirectCast(sender, Button).ForeColor
         Dim cB As Color = DirectCast(sender, Button).BackColor
@@ -1086,13 +1107,37 @@ Public Class usrcntlAktDetailsATILLANeu
 
     End Sub
 
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
-        If FUNC.AktUebernehmen(AvisoID) Then
-            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnAktUebernehmen.Click
+        'If FUNC.AktUebernehmen(AvisoID) Then
+        '    frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+        '    frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+        'End If
+
+        If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
+            Dim f As New frmAvisoWeiterleiten("A", AvisoID) '--> Weitereliten
+            If f.ShowDialog(Me) = DialogResult.OK Then
+                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                Vermerke_anzeigen()
+            End If
+        Else
+            If FUNC.AktUebernehmen(AvisoID, False) Then
+                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            End If
         End If
     End Sub
 
+    Sub intiAktUebernehmenBtn()
+        If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
+            btnAktUebernehmen.Image = My.Resources.weiterleiten_small1
+            btnAktUebernehmen.Text = "Akt weiterleiten..."
+        Else
+            btnAktUebernehmen.Image = My.Resources.personCheck_small
+            btnAktUebernehmen.Text = "Akt übernehmen"
+        End If
+
+    End Sub
     Private Sub UsrCntlVermerkeATilla1_VERMERKEingetragen() Handles UsrCntlVermerkeATilla1.VERMERKEingetragen
         reload(AvisoID)
     End Sub
@@ -1292,7 +1337,7 @@ Public Class usrcntlAktDetailsATILLANeu
             If f.SMS IsNot Nothing Then
                 Dim FahrerHandy = If(f.SMS.sms_Vorwahl, "") & If(f.SMS.sms_Handynummer, "")
                 If FahrerHandy <> "" Then
-                    SDL.cSMSOptions.insertVermerk(AvisoID, FahrerHandy, Now)
+                    SDL.cSMSOptions.insertVermerkSMS(AvisoID, FahrerHandy, f.SMS.sms_id, Now)
                     If If(AVISO.FahrerHandy, "") = "" Then
                         AVISO.UPDATE_FahrerHandy(FahrerHandy)
                     End If
@@ -1310,4 +1355,118 @@ Public Class usrcntlAktDetailsATILLANeu
     Private Sub SGSNCTSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SGSNCTSToolStripMenuItem.Click
         genZollantrag("T2", "SGS")
     End Sub
+
+    Private Sub btnQuckScan_Click(sender As Object, e As EventArgs) Handles btnQuckScan.Click
+
+        Try
+            Me.Cursor = Cursors.WaitCursor
+            If frmSendungAnhangImport.quickScan(AvisoID) Then
+                initAnhaenge()
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub tbcntr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntr.SelectedIndexChanged
+        initTbCntr()
+    End Sub
+
+    Sub initTbCntr()
+        If tbcntr.SelectedTab Is tbAnhaenge Then
+            initAnhaenge()
+        ElseIf tbcntr.SelectedTab Is tbSpedBuch Then
+            initDgvSpeditionsbuch()
+        ElseIf tbcntr.SelectedTab Is tbZollanmeldungen Then
+            initdgvZollAnmeldungen()
+        ElseIf tbcntr.SelectedTab Is tbVermerke Then
+            Vermerke_anzeigen()
+        End If
+    End Sub
+
+    Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
+        If dgvanhaenge.SelectedRows.Count = 0 Then Exit Sub
+        If vbNo = MsgBox("Wollen Sie den ausgewählten Anhang wirklich löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Anhang löschen") Then
+            Exit Sub
+        End If
+
+        For Each r As DataGridViewRow In dgvanhaenge.SelectedRows
+            Dim anh_id = dgvanhaenge.SelectedRows(0).Cells("anh_id").Value
+            Dim anh_docId = dgvanhaenge.SelectedRows(0).Cells("anh_docId").Value
+            frmSendungAnhangImport.deleteElement(anh_docId, anh_id, False)
+        Next
+        initAnhaenge()
+    End Sub
+
+    Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click
+        Try
+            If dgvanhaenge.SelectedRows.Count = 0 Then Exit Sub
+
+            Dim anh_id = dgvanhaenge.SelectedRows(0).Cells("anh_id").Value
+            Dim FILE_NAME = dgvanhaenge.SelectedRows(0).Cells("anh_Name").Value
+
+            Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(anh_id)
+            Dim f As New frmSendungAnhangUmbenennenUmkateg(FILE_NAME, ANH.anh_Art)
+            If f.ShowDialog = DialogResult.OK Then
+
+                ANH.anh_Name = f.txtBezeichnung.Text
+                ANH.anh_Art = f.cboArt._value
+                ANH.SAVE()
+                FILE_NAME = f.txtBezeichnung.Text
+
+                initAnhaenge()
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
+        If frmSendungAnhangImport.addData_SendungAnhangFD(AvisoID) Then
+            initAnhaenge()
+        End If
+    End Sub
+
+    Private Sub MarkiertePDFsDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MarkiertePDFsDruckenToolStripMenuItem.Click
+        For Each r As DataGridViewRow In dgvanhaenge.SelectedRows
+            Select Case r.Cells("anh_Typ").Value
+                Case "PDF" : VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)})
+                Case "BILD" : VERAG_PROG_ALLGEMEIN.cFormularManager.Print_PICTURE({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)})
+            End Select
+
+        Next
+    End Sub
+
+    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
+        Dim data As IDataObject = Clipboard.GetDataObject
+        If True Then 'data.GetDataPresent(DataFormats.FileDrop) Then
+            For Each s As String In My.Computer.Clipboard.GetFileDropList() 'GetData(DataFormats.) 'data.GetData(DataFormats.FileDrop) 'DataFormats.FileDrop)
+                ' Dim F_listItem As String = Path.Combine("c:\mynewpath", Path.GetFileName(s))
+                ' File.Copy(s, newFile)
+                '  MsgBox(s)
+                If IO.File.Exists(s) Then
+
+                    Dim fi As New FileInfo(s)
+                    Dim filename = fi.Name
+                    If filename = "" Then
+                        MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & s)
+                    Else
+
+                        Dim da_id = -1
+                        Dim anhId = -1
+                        Dim destPath = ""
+
+                        Dim Typ = ""
+                        If frmSendungAnhangImport.getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then
+                            frmSendungAnhangImport.saveToDS(AvisoID, filename, s, "", Typ, da_id, anhId, destPath)
+                        End If
+                    End If
+                End If
+            Next
+            initAnhaenge()
+        End If
+    End Sub
+
+
 End Class