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

SND

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-04-09 10:59:04 +02:00
parent 0ca273c006
commit 6b2e60a3a2
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/frmHauptfenster.vb
View File

@@ -1513,7 +1513,7 @@ ELSE_ATILLA:
sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' OR FIRMA='ATILLA' ) " sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' OR FIRMA='ATILLA' ) "
Else Else
sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) " sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
' MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
' '+AMBAR ' '+AMBAR
' sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) ) " ' sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) ) "

8
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -1915,10 +1915,6 @@ Public Class frmSendungsdetailsNEU
Sub initSendungs_Status() Sub initSendungs_Status()
Dim vorhanden = 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)
btnStatusAbklaerungTR.BackgroundImage = My.Resources.abklaerungTR_Inaktiv btnStatusAbklaerungTR.BackgroundImage = My.Resources.abklaerungTR_Inaktiv
@@ -2025,6 +2021,10 @@ Public Class frmSendungsdetailsNEU
End Select 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 & "'
'cbxSpedBuch.Checked = (vorhanden > 0)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
End Sub End Sub