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

Merge branch 'master' of https://dev.azure.com/VeragAG/_git/AVISO

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-11-04 16:35:04 +01:00
parent eace488c3d db856534bb
commit 37f8f58a1b
1 changed files with 81 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

128
Aviso/usrCntlSND_ATBGestellung.vb
View File

@@ -52,66 +52,100 @@ Public Class usrCntlSND_ATBGestellung
Private Sub btnGesSicherheit_Click(sender As Object, e As EventArgs) Handles btnGesSicherheit.Click Private Sub btnGesSicherheit_Click(sender As Object, e As EventArgs) Handles btnGesSicherheit.Click
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim gsnr As Integer = 0
Dim sqlWhere = ""
Dim dt As New DataTable
'erster Schritt -> Gestellung nach ATB-NR
If txtATBT1.Text <> "" Then If txtATBT1.Text <> "" Then
Dim SQLString As String = "Select top (1) gs_gsNr from [tblGesamtsicherheit] where [gs_ATBNr] = '" & txtATBT1.Text & "'"
dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
If dt.Rows.Count > 0 Then
gsnr = dt.Rows(0).Item("gs_gsNr")
End If
End If
Dim Standort = "" 'falls nicht gefunden, 2 Schritt -> Gestellung nach AVISO ID, oder Aberftigungsnrand FilialNr
If gsnr = 0 Then
Dim SQLString As String = "Select top (1) gs_gsNr from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' "
dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
If dt.Rows.Count > 0 Then
gsnr = dt.Rows(0).Item("gs_gsNr")
End If
End If
Select Case SND.FilialenNr
Case 4803, 4809
Standort = "VERAG AG" : firmaId = 1 If gsnr > 0 Then
Case 5601
Standort = "Unisped GmbH" : firmaId = 21 Dim gessicherheit As New cSicherheiten(gsnr)
Case 5701 Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(gessicherheit.gs_standort)
Standort = "AMBAR" : firmaId = 24 Dim frm As New frmGesamtsicherheitenNEU
Case 4810,
Standort = "VERAG GmbH" : firmaId = 1 Select Case gessicherheit.gs_standort
Case 5103 Case "Verag GmbH"
Standort = "VERAG CS" : firmaId = 11 firmaId = 1
Case 5501 Case "Verag AG"
Standort = "IMEX" : firmaId = 20 firmaId = 2
Case "Unisped GmbH"
firmaId = 21
Case "AMBAR"
firmaId = 24
Case "Verag CS"
firmaId = 11
Case "IMEX"
firmaId = 20
End Select End Select
With frm
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort) .currentGesSichRef = GesSichRef
.gessicherheitID = gessicherheit.gs_gsNr
.datum = gessicherheit.gs_datum
.Standort = gessicherheit.gs_standort
.FilialNummer = SND.FilialenNr
.Abfertigungsnummer = SND.AbfertigungsNr
.warenortID = gessicherheit.gs_warenort
.LKWKZ = gessicherheit.gs_LKWKZ
.avisoID = gessicherheit.gs_avisoId
.firmaId = firmaId
End With
If GesSichRef Is Nothing Then AddHandler frm.FormClosing, Function()
Exit Sub GesSichRef.CalcSaldo()
End If Me.BringToFront()
End Function
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL frm.Show()
Dim gsid As Integer = 0 Else
Dim SQLString As String = "Select top (1) gs_gsNr from [tblGesamtsicherheit] where [gs_ATBNr] = '" & txtATBT1.Text & "' or ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' "
Dim Standort As String = ""
Dim dt As New DataTable Select Case SND.FilialenNr
dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True) Case 4803, 4809, 4810
If dt.Rows.Count > 0 Then Standort = "VERAG GmbH" : firmaId = 1
gsid = dt.Rows(0).Item("gs_gsNr") Case 5601
End If Standort = "Unisped GmbH" : firmaId = 21
Case 5701
Standort = "AMBAR" : firmaId = 24
Dim frm As New frmGesamtsicherheitenNEU Case 5103
Standort = "VERAG CS" : firmaId = 11
Case 5501
Standort = "IMEX" : firmaId = 20
If gsid > 0 Then End Select
Dim gessicherheit As New cSicherheiten(gsid)
With frm
.currentGesSichRef = GesSichRef
.gessicherheitID = gessicherheit.gs_gsId
.Standort = Standort
.FilialNummer = gessicherheit.gs_filialenNr
.Abfertigungsnummer = gessicherheit.gs_abfertigungsnr
.warenortID = gessicherheit.gs_warenort
.LKWKZ = gessicherheit.gs_LKWKZ
.firmaId = firmaId
End With
AddHandler frm.FormClosing, Function() Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
GesSichRef.CalcSaldo() Dim frm As New frmGesamtsicherheitenNEU
Me.BringToFront()
End Function
frm.Show() If GesSichRef Is Nothing Then
Else Exit Sub
End If
With frm With frm
@@ -131,7 +165,7 @@ Public Class usrCntlSND_ATBGestellung
End If End If
End If
End Sub End Sub