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

Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-10 16:39:07 +01:00
parent 6dfcfbe925 c94d3adfd2
commit 04367593bb
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -106,7 +106,7 @@ Public Class cWorker_Verwahrung
Anzeige: Anzeige:
FORM.addDGVEinarbeitung("VW: Verwahrungsinfo", STATUS.dySt_BezugsNr) FORM.addDGVEinarbeitung("VW: Eingang", STATUS.dySt_BezugsNr)
End If End If
@@ -220,7 +220,7 @@ Anzeige:
Anzeige: Anzeige:
FORM.addDGVEinarbeitung("VW: Erledigungsinformation-Vorpapier", STATUS.dySt_BezugsNr) FORM.addDGVEinarbeitung("VW: Ausgang", STATUS.dySt_BezugsNr)
End If End If
End If End If
@@ -700,7 +700,7 @@ Anzeige:
If MRNNR <> POS.Item("IDRegNrSumA") Then If MRNNR <> POS.Item("IDRegNrSumA") Then
MRNNR = POS.Item("IDRegNrSumA") MRNNR = POS.Item("IDRegNrSumA")
Dim firmaID = -1 'Dim firmaID = -1
Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsnr = gs.gs_gsnr where [gs_VeralteteWeitereRegistriernummer] = '" & MRNNR & "' order by gsp_gspPosId", "AVISO") Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsnr = gs.gs_gsnr where [gs_VeralteteWeitereRegistriernummer] = '" & MRNNR & "' order by gsp_gspPosId", "AVISO")
@@ -712,7 +712,7 @@ Anzeige:
Dim rows = dtGesamtsicherheit.Select("gsp_gspPosId = " & gs_row("gs_posNr") & " AND gsp_MRNNr IS NOT NULL") Dim rows = dtGesamtsicherheit.Select("gsp_gspPosId = " & gs_row("gs_posNr") & " AND gsp_MRNNr IS NOT NULL")
If rows.Length > 0 Then If rows.Length > 0 Then
Exit Sub 'bereits vorhanden Exit Sub 'bereits vorhanden -> keine INFO
End If End If
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gs_row("gs_standort")) Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gs_row("gs_standort"))

6
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -150,12 +150,16 @@ Public Class frmStartOptions
Case "DY_EINARBEITUNG" Case "DY_EINARBEITUNG"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Dim f As New frmDYNachrichtenVerarbeitung(True) Dim f As New frmDYNachrichtenVerarbeitung(True)
f.saveVerwahrung = cbxGestellungspeichern.Checked
f.sendMail = cbxVW_Infomail.Checked
'Me.Visible = False ' irgend ein Grund 'Me.Visible = False ' irgend ein Grund
f.Show() f.Show()
AddHandler f.FormClosed, AddressOf closeMe AddHandler f.FormClosed, AddressOf closeMe
Case "DY_EINARBEITUNG_PROD" Case "DY_EINARBEITUNG_PROD"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim f As New frmDYNachrichtenVerarbeitung(True) Dim f As New frmDYNachrichtenVerarbeitung(True)
f.saveVerwahrung = cbxGestellungspeichern.Checked
f.sendMail = cbxVW_Infomail.Checked
' Me.Visible = False ' irgend ein Grund ' Me.Visible = False ' irgend ein Grund
f.Show() f.Show()
AddHandler f.EV_FINISHED, AddressOf closeMe AddHandler f.EV_FINISHED, AddressOf closeMe
@@ -214,6 +218,8 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
Dim f As New frmDYNachrichtenVerarbeitung(True) Dim f As New frmDYNachrichtenVerarbeitung(True)
f.saveVerwahrung = cbxGestellungspeichern.Checked
f.sendMail = cbxVW_Infomail.Checked
' Me.Visible = False ' Me.Visible = False
f.Show() f.Show()
AddHandler f.EV_FINISHED, AddressOf closeMe AddHandler f.EV_FINISHED, AddressOf closeMe