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

Timas, Kundensicherheiten fix, cbam fix, fakt (IBAN Zugferd), etc.

Browse Source
This commit is contained in:
d.breimaier
2026-10-19 15:31:16 +02:00
parent 7d89c05b4e
commit 03f69d2204
3 changed files with 89 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
UID/usrctlProcedures.vb
View File

@@ -3463,6 +3463,7 @@ Public Class usrctlProcedures
Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click
Dim cnt = 0
Dim cntSaved = 0
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim kdnr_tmp = ""
@@ -3696,17 +3697,19 @@ Public Class usrctlProcedures
DYIMPORT.Importstatus = isleernothing((currentRow(139)))
DYIMPORT.Importdate = Now()
DYIMPORT.Importfile = System.IO.Path.GetFileName(fd.FileName)
If DYIMPORT.SAVE() Then
If DYIMPORT.SAVE(False) Then
TextBox10.Text &= DYIMPORT.Id & vbNewLine
If Not savedDY Then savedDY = True
If Not savedDY Then
savedDY = True
cntSaved += 1
End If
Else
MsgBox("FEHLER: " & currentRow(2).Trim() & " - " & currentRow(3).Trim())
'MsgBox("FEHLER: " & currentRow(2).Trim() & " - " & currentRow(3).Trim())
End If
End If
If cnt Mod 10 = 0 Then
Application.DoEvents()
lblDakosyImport.Text = (cnt + 1)
End If
@@ -3718,10 +3721,12 @@ Public Class usrctlProcedures
cnt += 1
'Next
Catch ex As Exception
MsgBox(kdnr_tmp & " " & ex.Message & ex.StackTrace)
'MsgBox(kdnr_tmp & " " & ex.Message & ex.StackTrace)
End Try
End While
MsgBox("Von " & cnt & " Zeilen wurden " & cntSaved & " erfolgreich eingelesen")
If savedDY Then
'zuerst alle doppelten löschen und die fehlerhaften zuerst
sql.doSQL("EXECUTE dbo.sp_DeleteDuplicateZollmeldungen_ohne_Importfile", "AVISO")