Bugfix gesamtsicherheiten: Typo "avisioId"

This commit is contained in:
2022-11-23 10:38:01 +01:00
parent ea6a3f1135
commit 51f2e33a10

View File

@@ -32,7 +32,7 @@ Public Class frmGesamtsicherheitenNEU
Public warenortID As String Public warenortID As String
Public avisioID As Integer Public avisoID As Integer
Dim indexGsId As Integer Dim indexGsId As Integer
@@ -312,14 +312,14 @@ Public Class frmGesamtsicherheitenNEU
dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True)
If dt.Rows.Count > 0 Then If dt.Rows.Count > 0 Then
Me.avisioID = setNullToZero(dt.Rows(0).Item("gs_avisioId")) Me.avisoID = setNullToZero(dt.Rows(0).Item("gs_avisoId"))
Me.LKWKZ = setNullToZero(dt.Rows(0).Item("gs_LKWKZ")) Me.LKWKZ = setNullToZero(dt.Rows(0).Item("gs_LKWKZ"))
Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialenNr")) Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialenNr"))
Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr")) Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr"))
Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort")) Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort"))
End If End If
If Me.avisioID.ToString.Length > 0 Then lblGestellungNr.Text &= "Aviso-ID: " & Me.LKWKZ & " " If Me.avisoID.ToString.Length > 0 Then lblGestellungNr.Text &= "Aviso-ID: " & Me.LKWKZ & " "
If Me.LKWKZ.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWKZ & " " If Me.LKWKZ.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWKZ & " "
If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " " If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " "
If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " " If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " "
@@ -452,7 +452,7 @@ Public Class frmGesamtsicherheitenNEU
.gs_saldo = currentGesSichRef.brgakto_gs_aktSaldo .gs_saldo = currentGesSichRef.brgakto_gs_aktSaldo
.gs_atr = setNullToZero(cboSicherheitATR.SelectedItem) .gs_atr = setNullToZero(cboSicherheitATR.SelectedItem)
.gs_zollsatz = Me.Zollsatz .gs_zollsatz = Me.Zollsatz
.gs_avisoId = Me.avisioID .gs_avisoId = Me.avisoID
setEnviromentDataToObject(OPEN, Me) setEnviromentDataToObject(OPEN, Me)
End With End With
@@ -495,7 +495,7 @@ Public Class frmGesamtsicherheitenNEU
.gsp_erstellungsdatum = Me.datum .gsp_erstellungsdatum = Me.datum
.gsp_avisoId = "" .gsp_avisoId = ""
.gsp_ust = "" .gsp_ust = ""
.gsp_avisoId = Me.avisioID .gsp_avisoId = Me.avisoID
'.gsp_ATCNr = "" '.gsp_ATCNr = ""
.gsp_gsNr = OPEN.gs_gsNr .gsp_gsNr = OPEN.gs_gsNr
End With End With
@@ -540,7 +540,7 @@ Public Class frmGesamtsicherheitenNEU
.gs_saldo = currentGesSichRef.brgakto_gs_aktSaldo .gs_saldo = currentGesSichRef.brgakto_gs_aktSaldo
.gs_atr = setNullToZero(cboSicherheitATR.SelectedItem) .gs_atr = setNullToZero(cboSicherheitATR.SelectedItem)
.gs_zollsatz = Me.Zollsatz .gs_zollsatz = Me.Zollsatz
.gs_avisoId = Me.avisioID .gs_avisoId = Me.avisoID
setEnviromentDataToObject(OPEN, Me) setEnviromentDataToObject(OPEN, Me)
End With End With
@@ -561,7 +561,7 @@ Public Class frmGesamtsicherheitenNEU
.gsp_erstellungsdatum = DateTimeString2DateTimeKonvertinator(txtPosDate.Text, txtPosTime.Text) .gsp_erstellungsdatum = DateTimeString2DateTimeKonvertinator(txtPosDate.Text, txtPosTime.Text)
.gsp_ust = currentSicherheit.gs_ust .gsp_ust = currentSicherheit.gs_ust
.gsp_ATCNr = txtPositionenCRN.Text .gsp_ATCNr = txtPositionenCRN.Text
.gsp_avisoId = Me.avisioID .gsp_avisoId = Me.avisoID
End With End With
SicherheitsPos.SAVE() SicherheitsPos.SAVE()