Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Aviso/Auswertung/usrctlStatVERIMEX.vb

@@ -53,7 +53,7 @@ Public Class usrctlStatVERIMEX
                   " & whereFiliale & "
                   group by mit_vname,mit_nname"
             'früher: Datum statt tblSnd_AbfertigungTR
-            'MsgBox(sqlstr)
+            MsgBox(sqlstr)
             dgvAbfertigungTR.DataSource = SQL.loadDgvBySql(sqlstr, "AVISO")
 
         End With

Aviso/Aviso.vbproj

@@ -1512,6 +1512,8 @@
     <None Include="Resources\VK1.jpg" />
     <None Include="Resources\istLog.png" />
     <None Include="Resources\ge_transport.png" />
+    <None Include="Resources\vorauszahlung11.png" />
+    <None Include="Resources\vorauszahlung_bg.jpg" />
     <Content Include="Resources\WLAN\RunNHide.exe">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb

@@ -327,4 +327,27 @@ Public Class usrCntlBenachrichtigungen
     Private Sub cbxNeukunden_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNeukunden.CheckedChanged
         initDgvAvisoBenachrichtigungen(True, Me.Font)
     End Sub
+
+    Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAvisoBenachrichtigungen.CellPainting
+        If e.RowIndex <> -1 AndAlso gridAvisoBenachrichtigungen.Columns(e.ColumnIndex).Name = "ab_Art" Then
+            If gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_BenachrichtigungCode").Value = "6" Then
+
+                If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then
+                    'e.Graphics.Clear(Color.White)
+                    e.Graphics.DrawImage(My.Resources.vorauszahlung_bg, e.CellBounds.X + 5, e.CellBounds.Y + 1, 18, e.CellBounds.Height - 2)
+                    ' e.CellStyle.ForeColor = Color.White
+                    gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = ""
+                    '  e.PaintContent(e.CellBounds)
+                End If
+
+
+                If Not e.Handled Then
+                    e.Handled = True
+                    e.PaintContent(e.CellBounds)
+                End If
+            End If
+        End If
+
+    End Sub
+
 End Class

Aviso/My Project/Resources.Designer.vb

@@ -1674,6 +1674,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property vorauszahlung_bg() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("vorauszahlung_bg", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1684,6 +1694,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property vorauszahlung11() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("vorauszahlung11", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

Aviso/My Project/Resources.resx

@@ -652,4 +652,10 @@
   <data name="ATANAK_Instructions_Import" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\atanak_instructions_import.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
+  <data name="vorauszahlung11" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\vorauszahlung11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="vorauszahlung_bg" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\vorauszahlung_bg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

Aviso/frmHauptfenster.vb

@@ -6184,7 +6184,7 @@ Public Class AvisoStatusFunctions
             ' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
 
             SENDUNG_TMP.tblSnd_AbfertigungTR = Now                     'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & "(Anz:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahl & ", Pos:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahlPos & ")")
         Else
             SENDUNG_TMP.tblSnd_AbfertigungTR = Nothing
             AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))