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

divers layout, etc

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-07-19 23:31:12 +02:00
parent 244564b24c
commit 844172dec5
37 changed files with 3630 additions and 688 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -2055,7 +2055,10 @@ Public Class frmSendungsdetailsNEU
End Select
Dim 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 vorhanden = False
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
'cbxSpedBuch.Checked = (vorhanden > 0)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)