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

cWorker, dakosyEinarbeitung, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-03-24 08:11:22 +01:00
parent 7f6ad215e3
commit 6f30c0230c
3 changed files with 24 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -198,7 +198,6 @@ Anzeige:
Next
End If
End If
@@ -427,8 +426,7 @@ Anzeige:
Try
If VeralteteWeitereRegistriernummer = "" Then Return False
If VeralteteWeitereRegistriernummer = "" Then Return False 'warum nochmals, kann das weg???
Dim filiale As String = ""
Dim abfertigungsnummer = ""
@@ -828,21 +826,23 @@ Anzeige:
Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
With SicherheitsPos
.gsp_gsId = gsrightRow("gs_gsId")
.gsp_gspPosId = gsrightRow.Item("gs_posNr")
.gsp_warenwert = IIf(isCompletelyFinished, Warenwert, 0)
.gsp_sicherheitsbetrag = IIf(isCompletelyFinished, Sicherheitsbetrag, 0)
.gsp_freitext = IIf(isCompletelyFinished, DAKOSY_STATUS.IMPORTED, DAKOSY_STATUS.NOTCOMPLETED)
Dim SicherheitsPos As New cGesamtsicherheitsPositionen(gsrightRow("gs_gsId"), gsrightRow.Item("gs_posNr"))
With SicherheitsPos
'.gsp_gsId = gsrightRow("gs_gsId")
'.gsp_gspPosId = gsrightRow.Item("gs_posNr")
.gsp_filialenNr = gsrightRow("gs_filialenNr")
.gsp_art = "CLOSE"
.gsp_gsNr = gsrightRow("gs_gsnr")
.gsp_abfertigungsNr = gsrightRow("gs_abfertigungsnr")
.gsp_datum = nachrichtenDatum
.gsp_erstellungsdatum = DateTime.Now
.gsp_ust = gsrightRow("gs_ust")
.gsp_gsNr = gsrightRow("gs_gsnr")
.gsp_abfertigungsNr = gsrightRow("gs_abfertigungsnr")
.gsp_datum = nachrichtenDatum
.gsp_erstellungsdatum = DateTime.Now
.gsp_ust = gsrightRow("gs_ust")
.gsp_EH_Anzahl += AnzahlStückErledigt
If .gsp_EH_Anzahl = CInt(gsrightRow.Item("gs_EH_Anzahl")) Then isCompletelyFinished = True 'wenn alle Teile da sind, dann komplett!
.gsp_freitext = IIf(isCompletelyFinished, DAKOSY_STATUS.IMPORTED, DAKOSY_STATUS.NOTCOMPLETED)
.gsp_warenwert = IIf(isCompletelyFinished, Warenwert, 0)
.gsp_sicherheitsbetrag = IIf(isCompletelyFinished, Sicherheitsbetrag, 0)
If isCompletelyFinished Then
If Not isNCTS Then
.gsp_ATCNr = IIf(veralteteregNR = "", MRNNR, veralteteregNR)
@@ -852,12 +852,9 @@ Anzeige:
.gsp_MRNNr = IIf(regNR = "", MRNNR.Trim(), regNR.Trim())
End If
End If
.gsp_avisoId = gsrightRow("gs_avisoID")
.gsp_systemuser = "DAKOSY-AUTO"
.gsp_EH_Anzahl = AnzahlStückErledigt
End With
.gsp_systemuser = "DAKOSY-AUTO"
End With
SicherheitsPos.SAVE()
@@ -865,12 +862,9 @@ Anzeige:
If sendInfoMail Then
Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY " & IIf(isNCTS, "T1 ", "") & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
End If
Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY " & IIf(isNCTS, "T1 ", "") & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
End If
End If