edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Vorauskassen Benachtrichtigung

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-01-23 08:15:10 +01:00
parent e447102eab
commit e953226288
9 changed files with 53 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/Auswertung/usrctlStatVERIMEX.vb
View File

@@ -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

2
Aviso/Aviso.vbproj
View File

@@ -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>

23
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb
View File

@@ -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

20
Aviso/My Project/Resources.Designer.vb generated
View File

@@ -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>

6
Aviso/My Project/Resources.resx
View File

@@ -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>

BIN
Aviso/Resources/vorauszahlung11.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 14 KiB

BIN
Aviso/Resources/vorauszahlung_bg.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 916 B

2
Aviso/frmHauptfenster.vb
View File

@@ -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"))