diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cGesamtsicherheitsPositionen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cGesamtsicherheitsPositionen.vb index 7fb80402..d9af8f82 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cGesamtsicherheitsPositionen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cGesamtsicherheitsPositionen.vb @@ -22,6 +22,7 @@ Public Class cGesamtsicherheitsPositionen Property gsp_systemuser As Object = Nothing Property gsp_datum As Object = Nothing Property gsp_EH_Anzahl As Object = Nothing + Property gsp_dakosystatusID As Object = Nothing Public hasEntry = False @@ -58,6 +59,7 @@ Public Class cGesamtsicherheitsPositionen list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_zuletztgeandert", gsp_zuletztgeandert)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_MRNNr", gsp_MRNNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_EH_Anzahl", gsp_EH_Anzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_dakosystatusID", gsp_dakosystatusID)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb b/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb index 67740f23..93c26be6 100644 --- a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb +++ b/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb @@ -45,6 +45,7 @@ Public Class cSicherheiten Property gs_EH_Anzahl As Object = Nothing Property gs_DK_laufnr As Object = Nothing Property gs_gewicht As Object = Nothing + Property gs_dakosystatusID As Object = Nothing Public hasEntry = False @@ -113,6 +114,7 @@ Public Class cSicherheiten list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_EH_Anzahl", gs_EH_Anzahl)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_DK_laufnr", gs_DK_laufnr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_gewicht", gs_gewicht)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_dakosystatusID", gs_dakosystatusID)) If Not WithoutPosSubNr Then list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_posSubNr", gs_posSubNr)) Return list @@ -475,7 +477,7 @@ Public Class cSicherheiten FROM tblGesamtsicherheit gs_waiting INNER JOIN tblGesamtsicherheitsPositionen gsp_waiting ON gs_waiting.gs_gsId = gsp_waiting.gsp_gsId - WHERE gs_waiting.gs_gsnr = 32041 + WHERE gs_waiting.gs_gsnr = " & gs_gsnr & " AND gs_waiting.gs_dakoyimport = 1 AND gsp_waiting.gsp_freitext = 'DAKOSY-WAITING' )