USTVA, Mahnungen,etc.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user