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

Bugfix gesamtsicherheiten: Typo "avisioId"

Browse Source
This commit is contained in:
d.breimaier
2022-11-23 10:38:01 +01:00
parent ea6a3f1135
commit 51f2e33a10
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Aviso/frmGesamtsicherheitenNEU.vb
View File

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