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

Compare commits

base: edv:a9dbb8c784c6c4589ee06edd52d9593616c2d75d
Branches Tags
edv:master edv:ADMIN
..
compare: edv:4090be9977c5fd1ae5bb65a69b03d81701d20dbc
Branches Tags
edv:ADMIN edv:master

2 Commits
a9dbb8c784 ... 4090be9977

Author SHA1 Message Date
d.breimaier
4090be9977 Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN 2026-04-09 12:48:15 +02:00
d.breimaier
70d48458b6 div. Änderungen 2026-04-09 12:48:05 +02:00
1 changed files with 7 additions and 7 deletions
Expand all files Collapse all files

14
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -655,7 +655,7 @@ Anzeige:
Return False
End If
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(DUMMYSicherheit.gs_standort)
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(DUMMYSicherheit.gs_standort)
Dim saldo = GesSichRef.CalcSaldo()
If SND.FilialenNr > 0 Then filiale = SND.FilialenNr
@@ -811,7 +811,7 @@ Anzeige:
If sendInfoMail Then
Dim InfoText As String = createInfoMail(MRN_SUMA, posGestellung, "VW-EINGANG", newSicherheit)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
End If
Return True
@@ -870,7 +870,7 @@ Anzeige:
Else
End If
sqlString = "Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsId = gs.gs_gsId where ([gs_MRNNr] = '" & MRN_SUMA & "'" & StringSub & ") and [gs_dakoyimport] = 1 order by gsp_gspPosId, gsp_MRNNr"
sqlString = "Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsId = gs.gs_gsId where ([gs_MRNNr] = '" & MRN_SUMA & "' or [gs_VeralteteWeitereRegistriernummer] = '" & MRN_SUMA & "'" & StringSub & ") and [gs_dakoyimport] = 1 order by gsp_gspPosId, gsp_MRNNr"
End If
@@ -888,7 +888,7 @@ Anzeige:
Dim gsrightRow As DataRow = gs_row(0) 'es gibt dann immer nur 1 Eintrag!
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gsrightRow("gs_standort"))
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(gsrightRow("gs_standort").ToString)
Dim saldo As Double = GesSichRef.CalcSaldo()
@@ -929,7 +929,7 @@ Anzeige:
WarenwertEUR = Warenwert_temp
End If
Sicherheitsbetrag = Math.Round(WarenwertEUR * (GesSichRef.gsr_zollsatz / 100), 2)
Sicherheitsbetrag = Math.Round(WarenwertEUR * (GesSichRef.brgakto_gs_zollsatz / 100), 2)
End If
End If
@@ -1074,8 +1074,8 @@ Anzeige:
If sendInfoMail Then
Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS, sonstigeMRNNr)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
End If
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungsausgang aus DAKOSY " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
End If
End If