neu

Aviso/frmHauptfenster.vb

@@ -2212,7 +2212,7 @@ Public Class frmHauptfenster
             Button6.Visible = False
             tbcntrAviso.TabPages.RemoveAt(2)
             btnWichtigeStandort.Visible = False
-            pnlLinks.Visible = False
+            Panel2.Visible = False
             Label4.Visible = False
             cboGrenzstelle.Visible = False
             BürgschaftenExcelToolStripMenuItem.Visible = True
@@ -2222,10 +2222,12 @@ Public Class frmHauptfenster
             'btnGenerelleGestellungen.Visible = False
             ToolStripMenuItem4.Visible = True
             ToolStripMenuItem5.Visible = True
+            ToolStripMenuItem6.Visible = True
         Else 'VERAG
             BürgschaftenExcelToolStripMenuItem.Visible = True
             ToolStripMenuItem4.Visible = True
             ToolStripMenuItem5.Visible = True
+            ToolStripMenuItem6.Visible = True
             If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
                 Button5.Visible = True
             End If
@@ -2406,6 +2408,8 @@ Public Class frmHauptfenster
 
 
         Dim tmpY As Integer = Me.Height
+        If tmpY <= 0 Then tmpY = My.Computer.Screen.WorkingArea.Height
+
         For Each ft As Form In Application.OpenForms
             If ft.GetType.ToString = "AVISO.frmNotify" Then
                 If ft.Location.Y < tmpY Then tmpY = ft.Location.Y
@@ -2960,7 +2964,7 @@ Public Class frmHauptfenster
     End Sub
 
     Private Sub LeereRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LeereRechnungToolStripMenuItem.Click
-        Dim f As New SDL.frmAbrechnungsMaskeEinzeln
+        Dim f As New SDL.frmAbrechnungsMaskeEinzeln(-1, -1)
         f.Show(Me)
     End Sub
 
@@ -3376,6 +3380,12 @@ Public Class frmHauptfenster
         SplitContainer3.Panel1Collapsed = Not SplitContainer3.Panel1Collapsed
         Button10.Text = If(Button10.Text = "<", ">", "<")
     End Sub
+
+    Private Sub ToolStripMenuItem6_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "IMEX", "", "Gesamtsicherheit_IMEX")
+        'MsgBox(DS.da_id)
+        DS.OPEN_SINGLE_ORIG()
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions
@@ -4725,6 +4735,29 @@ Public Class AvisoStatusFunctions
 
     End Function
 
+    Public Function setSendungFakturiert(SendungsId, AvisoID) As Boolean
+
+        If SendungsId Is Nothing Then Return False
+        If Not IsNumeric(SendungsId) Then Return False
+        If AvisoID Is Nothing Then Return False
+        If Not IsNumeric(AvisoID) Then Return False
+
+        Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
+
+        SENDUNG_TMP.saveSachbearbeiter = False
+
+        If SENDUNG_TMP.tblSnd_Fakturiert Is Nothing Then
+
+            SENDUNG_TMP.tblSnd_Fakturiert = Now                     'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
+            AvisoDAL.addAenderung(AvisoID, "Sendung auf FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+        Else
+            SENDUNG_TMP.tblSnd_Fakturiert = Nothing
+            AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+        End If
+        Return SENDUNG_TMP.SAVE()
+
+    End Function
+
 
     Public Function openSnd(sendId, AvisoID) As Form
         If sendId Is Nothing Then Return Nothing
@@ -4980,7 +5013,7 @@ Public Class AvisoStatusFunctions
                         Dim found = False
                         Select Case s.tblSnd_Abfertigungsart_ID
                             Case 5, 6, 18, 24, 32, 33, 34, 37, 40
-                                getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID, s.tblSnd_DakosyRef)
+                               getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID, s.tblSnd_DakosyRef)
                                 If KUNDE_ERW.EmailFreigabe_VBDPDF And IsNumeric(DsId) Then 'VBD anhängen
                                     Try
                                         Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
@@ -5008,11 +5041,11 @@ Public Class AvisoStatusFunctions
                                         Try
                                             If IsNumeric(DsId) Then
                                                 Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
-                                                anhaenge.Add(PathTmp) : found = True
+                                                If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
                                             End If
                                             If IsNumeric(DsId) Then
                                                 Dim PathTmp2 = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId2)).GET_TOP1_PATH(False)
-                                                anhaenge.Add(PathTmp2) : found = True
+                                                If PathTmp2 <> "" Then anhaenge.Add(PathTmp2) : found = True
                                             End If
                                         Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
                                         If Not found Then