USTVA, Mahnungen,etc.

This commit is contained in:
2026-02-23 15:47:39 +01:00
parent 80de7c2cf9
commit 794df0a03e
8 changed files with 272 additions and 168 deletions

View File

@@ -642,6 +642,9 @@ Public Class ustCntlUSTV_AntragPosition
Private Sub scanSonstiges_FileDeleted() Handles scanSonstiges.FileDeleted
getValues(UStV_POS, True)
UStV_POS.UStVPo_daId = Nothing
sql.doSQL("update tblUStVPositionen set UStVPo_daId = NULL where UStVAn_ID = " & UStV_POS.UStVAn_ID & " and UStVPo_daId > 0 and isnull(UStVPo_daId, 0) not in (select da_id from tblDatenarchiv) ", "FMZOLL")
If UStV_POS.SAVE() Then RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
End Sub