new

DAKOSY_Worker/cZOLL_IMPORT.vb

@@ -139,6 +139,17 @@ Public Class cZOLL_IMPORT
 
                             Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer
                             ABGABEN.SAVE(errHInweis)
+
+
+                            Dim EDIFACTNachrichtenNr = ""
+                            'Aufschub - Überwachung:
+                            Select Case CInt(ABGABEN.AKTO)
+                                Case 3027279 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 1, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum)
+                                    'UNISPED Case XXX: tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag,XXX, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum)
+
+                                    'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer)
+                            End Select
+
                         End If
                     End If
                 End If
@@ -147,6 +158,52 @@ Public Class cZOLL_IMPORT
         End If
     End Sub
 
+
+    Public Function tryToInsertProgramm(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_fileline, brgak_faelligkeitsdatum) As Boolean
+
+        Dim sql As String = " begin tran" &
+                            " if Not exists (select * from tblBrgAufschub with (updlock,serializable) where brgak_filename = @brgak_filename AND  brgak_fileline=@brgak_fileline ) " &
+                                   " begin " &
+                                   " INSERT INTO tblBrgAufschub " &
+                                   " (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc,brgak_fileline,brgak_faelligkeitsdatum) VALUES " &
+                                   " (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,@brgak_fileline,@brgak_faelligkeitsdatum) " &
+                                " End " &
+                                " commit tran "
+
+
+        Dim cn As System.Data.SqlClient.SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN
+
+        Using cn
+            Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn)
+                cmd.Parameters.AddWithValue("@brgak_datum", brgak_datum)
+                cmd.Parameters.AddWithValue("@brgak_betrag", brgak_betrag)
+                cmd.Parameters.AddWithValue("@brgak_brgaktoId", brgak_brgaktoId)
+                cmd.Parameters.AddWithValue("@brgak_filename", brgak_filename)
+                cmd.Parameters.AddWithValue("@brgak_atc", brgak_atc)
+                cmd.Parameters.AddWithValue("@brgak_fileline", brgak_fileline)
+                cmd.Parameters.AddWithValue("@brgak_faelligkeitsdatum", brgak_faelligkeitsdatum)
+                Try
+                    cmd.ExecuteNonQuery()
+
+                    'Lösche File:
+
+
+                    Return True
+                Catch ex As System.Data.SqlClient.SqlException
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                End Try
+            End Using
+        End Using
+        cn.Close()
+        Return False
+    End Function
+
+
+
+
+
+
+
     Shared Function getLeistungsBez(LeistungsBez)
         Select Case LeistungsBez
             Case "0ML"