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

gesamtsicherheiten

Browse Source
This commit is contained in:
d.breimaier
2025-12-11 09:19:31 +01:00
parent 15d42beecf
commit cad6bf2731
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -713,7 +713,7 @@ Public Class frmGesamtsicherheitenNEU
Case Else
With OPEN
.gs_posNr = getLatestPosNr(gessicherheitID, txtSicherheitATBNr.Text) + 1
.gs_posSubNr = getLatestSPosNr(gessicherheitID, txtMRNNr.Text) + 1
.gs_posSubNr = getLatestSubPosNr(gessicherheitID, txtMRNNr.Text) + 1
End With
attachPosNrToExistingATB = True
indexGsId = OPEN.SAVEOBJECT()
@@ -776,7 +776,7 @@ Public Class frmGesamtsicherheitenNEU
.gs_gsNr = gessicherheitID
.gs_ATBNr = ""
.gs_MRNNr = ""
.gs_posSubNr = Me.getLatestSPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1
.gs_posSubNr = Me.getLatestSubPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1
.gs_posNr = Me.getLatestPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_ATBNr) + 1
.gs_datum = DateTimeString2DateTimeKonvertinator(txtPosDat.Text, txtPosTime.Text)
.gs_warenwert = 0
@@ -1002,7 +1002,7 @@ Public Class frmGesamtsicherheitenNEU
.gs_ATBNr = txtSicherheitATBNr.Text
.gs_MRNNr = txtMRNNr.Text
.gs_posNr = Integer.Parse(setNullToZero(txtAnzahlPos.Text))
.gs_posSubNr = IIf(Integer.Parse(setNullToZero(txtSPosNr.Text)) <> 0, Integer.Parse(setNullToZero(txtSPosNr.Text)), Me.getLatestSPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1)
.gs_posSubNr = IIf(Integer.Parse(setNullToZero(txtSPosNr.Text)) <> 0, Integer.Parse(setNullToZero(txtSPosNr.Text)), Me.getLatestSubPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1)
.gs_datum = DateTimeString2DateTimeKonvertinator(txtSicherheitDat.Text, txtSicherheitTime.Text)
.gs_warenwert = Double.Parse(txtSicherheitWarenwert.Text)
.gs_sicherheitsbetrag = Double.Parse(txtSicherheitSicherheitsbetrag.Text)
@@ -1191,7 +1191,7 @@ Public Class frmGesamtsicherheitenNEU
End Function
Private Function getLatestSPosNr(gs_gsnr As Integer, gs_MRNNr As String) As Integer
Private Function getLatestSubPosNr(gs_gsnr As Integer, gs_MRNNr As String) As Integer
Dim posNr As Integer = 0
Dim sqlq As String = "Select MAX([gs_posSubNr]) As MaxPosNr from [tblGesamtsicherheit] where gs_gsnr = " & gs_gsnr & " And gs_MRNNr = '" & gs_MRNNr & "'"
Dim dt As New DataTable
@@ -1943,7 +1943,7 @@ Public Class frmGesamtsicherheitenNEU
.gs_ATBNr = "Korrekt. Rundungsdiff. " & gessicherheitID
.gs_MRNNr = ""
.gs_posNr = Me.getLatestPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_ATBNr) + 1
.gs_posSubNr = Me.getLatestSPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1
.gs_posSubNr = Me.getLatestSubPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1
.gs_datum = DateTime.Now
.gs_warenwert = 0
.gs_sicherheitsbetrag = 0