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

Compare commits

base: edv:67494e854776bf3a477d62f1935227693c7003a3
Branches Tags
edv:master edv:Aviso_Murad edv:essensbestellungen edv:change_VM_logic edv:SDL
...
compare: edv:906f3450b7272307d2823a7b7ae6fa064a2019fd
Branches Tags
edv:master edv:Aviso_Murad edv:essensbestellungen edv:change_VM_logic edv:SDL

2 Commits
67494e8547 ... 906f3450b7

Author SHA1 Message Date
d.breimaier
906f3450b7 fix 2026-07-24 09:12:06 +02:00
d.breimaier
e134904c17 fix Speditionsbucheintrag 2026-07-24 09:01:49 +02:00
3 changed files with 15 additions and 7 deletions
Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.3.0.0")> <Assembly: AssemblyVersion("4.3.0.1")>
<Assembly: AssemblyFileVersion("4.3.0.0")> <Assembly: AssemblyFileVersion("4.3.0.1")>

14
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -2055,9 +2055,13 @@ Public Class frmSendungsdetailsNEU
End Select End Select
Dim vorhanden = False Dim vorhanden As Integer = 0
If SENDUNG_LIST(CURRENT_INDEX).FilialenNr > 0 AndAlso SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr > 0 Then 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 & "' Dim result As String = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "' AND AbfertigungsNr='" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "'", "FMZOLL")
If result <> "" Then
vorhanden = CInt(result)
End If
' AND UnterNr='" & txtUnterNr.Text & "'
End If End If
'cbxSpedBuch.Checked = (vorhanden > 0) 'cbxSpedBuch.Checked = (vorhanden > 0)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0) SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
@@ -2654,8 +2658,12 @@ Public Class frmSendungsdetailsNEU
txtAbfertigungsnummer.Text = posnr.Abfertigungsnummer txtAbfertigungsnummer.Text = posnr.Abfertigungsnummer
txtUnterNr.Text = posnr.UnterNr 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 '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 = 0 ' AND UnterNr='" & txtUnterNr.Text & "'
Dim result As String = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & cboFiliale._value & "' AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'", "FMZOLL")
'cbxSpedBuch.Checked = (vorhanden > 0) 'cbxSpedBuch.Checked = (vorhanden > 0)
If result <> "" Then
vorhanden = CInt(result)
End If
SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0) SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
End If End If

4
Aviso/usrcntlAktDetails.vb
View File

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