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

fix Speditionsbucheintrag

Browse Source
This commit is contained in:
d.breimaier
2026-07-24 09:01:49 +02:00
parent 67494e8547
commit e134904c17
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -2055,7 +2055,7 @@ Public Class frmSendungsdetailsNEU
End Select
Dim vorhanden = False
Dim vorhanden = 0
If SENDUNG_LIST(CURRENT_INDEX).FilialenNr > 0 AndAlso SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr > 0 Then
vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "' AND AbfertigungsNr='" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "'
End If
@@ -2654,7 +2654,7 @@ Public Class frmSendungsdetailsNEU
txtAbfertigungsnummer.Text = posnr.Abfertigungsnummer
txtUnterNr.Text = posnr.UnterNr
'cbxSpedBuch.Checked = (posnr.Filiale > 0 And posnr.Abfertigungsnummer > 0 And posnr.UnterNr >= 0) ' Wenn Sped Eintrag gelöscht-> - 1, dann ist der Eintrag nicht mehr vorhanden
Dim vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & cboFiliale._value & "' AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "'
Dim vorhanden As Integer = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & cboFiliale._value & "' AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "'
'cbxSpedBuch.Checked = (vorhanden > 0)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)

4
Aviso/usrcntlAktDetails.vb
View File

@@ -764,7 +764,7 @@ Public Class usrcntlAktDetails
c.Name = "SenungUebernehmen"
c.Image = My.Resources.personCheck_gray_small : c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.ToolTipText = "Senung übernehmen"
c.ToolTipText = "Sendung übernehmen"
.Columns.Add(c)
' End If
@@ -772,7 +772,7 @@ Public Class usrcntlAktDetails
c.Name = "SenungWeiterleiten"
c.Image = My.Resources.tranparent30Perc : c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.ToolTipText = "Senung weiterleiten"
c.ToolTipText = "Sendung weiterleiten"
.Columns.Add(c)
' End If