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

verwahrung

Browse Source
This commit is contained in:
d.breimaier
2026-04-09 13:45:55 +02:00
parent 4090be9977
commit 52f4d6ba16
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -596,6 +596,10 @@ Anzeige:
Select Case filiale Select Case filiale
Case "4803", "4809" Case "4803", "4809"
Standort = "VERAG AG" Standort = "VERAG AG"
Case "5601"
Standort = "Unisped GmbH"
Case "5701"
Standort = "AMBAR GmbH"
Case "4810", "5103", "5901" Case "4810", "5103", "5901"
Standort = "VERAG GmbH" Standort = "VERAG GmbH"
Case "5501" Case "5501"
@@ -604,7 +608,6 @@ Anzeige:
Return False Return False
End Select End Select
Dim dy_SendungsId = VWI.Transaktion.IOReferenz Dim dy_SendungsId = VWI.Transaktion.IOReferenz
If filiale <> "" AndAlso abfertigungsnummer <> "" AndAlso IsNumeric(filiale) AndAlso IsNumeric(abfertigungsnummer) Then If filiale <> "" AndAlso abfertigungsnummer <> "" AndAlso IsNumeric(filiale) AndAlso IsNumeric(abfertigungsnummer) Then