15-08-23

2023-08-15 13:27:50 +02:00
parent 775418fb7a
commit ea8ed48d25
7 changed files with 101 additions and 18 deletions
--- a/Connectors.Form/Modules/slt/sltSync.vb
+++ b/Connectors.Form/Modules/slt/sltSync.vb
@@ -63,11 +63,15 @@ Namespace slt
                        End If

                        Dim oSQL = String.Format(Config.SQLQueryExport, oDocument.ExtDocId, oFileName)
-                        Await Database.ExecuteNonQueryAsync(oSQL)
-
-                        RaiseFileProcessed(oFilePath)
+                        If Await Database.ExecuteNonQueryAsync(oSQL) = True Then
+                            RaiseFileProcessed(oFilePath)
+                        Else
+                            Throw New ApplicationException("Database entry could not be written!")
+                        End If

                    Catch ex As Exception
+                        RaiseFileError(oDocId)
+
                        Logger.Error(ex)
                        AddWarnEntry("Error while running Sync: " & ex.Message)
                    End Try