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

DAkosy, cWorker_verwahrung, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-04-02 17:13:31 +02:00
parent a4dee79338
commit 2096d56db8
3 changed files with 67 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -1016,18 +1016,67 @@ Anzeige:
End With
SicherheitsPos.SAVE()
GesSichRef.CalcSaldo()
SicherheitsPos.SAVE()
GesSichRef.CalcSaldo()
Dim differenz As Double = cSicherheiten.getDifferenz(gsrightRow("gs_gsnr"))
If Math.Abs(differenz) <= 0.02 AndAlso Math.Abs(differenz) > 0 Then
Dim OPEN_RUNDIF As New cSicherheiten()
With OPEN_RUNDIF
.gs_gsNr = gsrightRow("gs_gsnr")
.gs_ATBNr = "Korrekt. Rundungsdiff. " & gsrightRow("gs_gsnr")
.gs_MRNNr = ""
.gs_posNr = OPEN_RUNDIF.getLatestPosNr(OPEN_RUNDIF.gs_gsNr, OPEN_RUNDIF.gs_ATBNr) + 1
.gs_posSubNr = Nothing
.gs_datum = DateTime.Now
.gs_warenwert = 0
.gs_sicherheitsbetrag = IIf(differenz < 0, Math.Abs(differenz), 0)
.gs_standort = gsrightRow("gs_standort")
.gs_art = "OPEN"
.gs_erstellungsdatum = DateTime.Now
.gs_freitext = ""
.gs_saldo = saldo
.gs_zollsatz = gsrightRow("gs_zollsatz")
.gs_avisoId = gsrightRow("gs_avisoID")
.gs_isRundungsdiff = True
.gs_dakoyimport = 1
.gs_systemuser = DAKOSY_STATUS.USER
End With
Dim gs_gsId = OPEN_RUNDIF.SAVEOBJECT()
Dim CLOSED_RUNDIF As New cGesamtsicherheitsPositionen()
With CLOSED_RUNDIF
.gsp_gsId = gs_gsId
.gsp_gspPosId = OPEN_RUNDIF.gs_posNr
.gsp_warenwert = 0
.gsp_sicherheitsbetrag = IIf(differenz > 0, Math.Abs(differenz), 0)
.gsp_freitext = ""
.gsp_filialenNr = gsrightRow("gs_filialenNr")
.gsp_art = "CLOSE"
.gsp_gsNr = gsrightRow("gs_gsnr")
.gsp_abfertigungsNr = gsrightRow("gs_abfertigungsNr")
.gsp_datum = DateTime.Now
.gsp_erstellungsdatum = DateTime.Now
.gsp_MRNNr = "Korrekt. Rundungsdiff. " & gsrightRow("gs_gsnr")
.gsp_isPosRundungsdiff = True
.gsp_avisoId = gsrightRow("gs_avisoID")
.gsp_systemuser = DAKOSY_STATUS.USER
End With
CLOSED_RUNDIF.SAVE()
End If
If sendInfoMail Then
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
End If
End If