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

VerwahrungTmstmp

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-11-07 08:42:01 +01:00
parent 37f8f58a1b
commit a1dfb2ad85
5 changed files with 72 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
Aviso/usrCntlSND_ATBGestellung.vb
View File

@@ -124,48 +124,48 @@ Public Class usrCntlSND_ATBGestellung
Dim Standort As String = ""
Select Case SND.FilialenNr
Case 4803, 4809, 4810
Standort = "VERAG GmbH" : firmaId = 1
Case 5601
Standort = "Unisped GmbH" : firmaId = 21
Case 5701
Standort = "AMBAR" : firmaId = 24
Select Case SND.FilialenNr
Case 4803, 4809, 4810
Standort = "VERAG GmbH" : firmaId = 1
Case 5601
Standort = "Unisped GmbH" : firmaId = 21
Case 5701
Standort = "AMBAR" : firmaId = 24
Case 5103
Standort = "VERAG CS" : firmaId = 11
Case 5501
Standort = "IMEX" : firmaId = 20
Case 5103
Standort = "VERAG CS" : firmaId = 11
Case 5501
Standort = "IMEX" : firmaId = 20
End Select
End Select
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
Dim frm As New frmGesamtsicherheitenNEU
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
Dim frm As New frmGesamtsicherheitenNEU
If GesSichRef Is Nothing Then
Exit Sub
End If
With frm
.currentGesSichRef = GesSichRef
.Standort = Standort
.datum = Date.Now
.Neu = True
.FilialNummer = SND.FilialenNr
.Abfertigungsnummer = SND.AbfertigungsNr
.firmaId = firmaId
End With
AddHandler frm.FormClosing, Function()
GesSichRef.CalcSaldo()
Me.BringToFront()
End Function
frm.Show(Me)
If GesSichRef Is Nothing Then
Exit Sub
End If
With frm
.currentGesSichRef = GesSichRef
.Standort = Standort
.datum = Date.Now
.Neu = True
.FilialNummer = SND.FilialenNr
.Abfertigungsnummer = SND.AbfertigungsNr
.firmaId = firmaId
End With
AddHandler frm.FormClosing, Function()
GesSichRef.CalcSaldo()
Me.BringToFront()
End Function
frm.Show(Me)
End If
End Sub