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

StartOpt, Proc, Plose

Browse Source
This commit is contained in:
d.breimaier
2025-09-23 16:15:47 +02:00
parent bf6eb37000
commit 767d6be341
5 changed files with 198 additions and 167 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
UID/usrctlProcedures.vb
View File

@@ -3463,6 +3463,8 @@ Public Class usrctlProcedures
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim savedDY As Boolean = False
Dim fd As New OpenFileDialog
If fd.ShowDialog = DialogResult.OK Then
If fd.FileName.ToLower.EndsWith(".csv") Then
@@ -3678,8 +3680,10 @@ Public Class usrctlProcedures
DYIMPORT.UST_ID_Fiskalvertreter = isleernothing((currentRow(137)))
DYIMPORT.Shipmentnummer = isleernothing((currentRow(138)))
DYIMPORT.Importstatus = isleernothing((currentRow(139)))
DYIMPORT.Importdate = Now()
If DYIMPORT.SAVE() Then
TextBox10.Text &= DYIMPORT.Id & vbNewLine
If Not savedDY Then savedDY = True
Else
MsgBox("FEHLER: " & currentRow(2).Trim() & " - " & currentRow(3).Trim())
End If
@@ -3691,32 +3695,6 @@ Public Class usrctlProcedures
Label10.Text = (cnt + 1)
End If
Else
Dim STDOF As New cStandardofferten(currentRow(0), currentRow(1), currentRow(2), currentRow(3))
If STDOF.hasEntry Then
Dim save As Boolean = False
If isleernothing(currentRow(12)) IsNot Nothing AndAlso isleernothing(currentRow(12)) <> "NULL" Then
save = True
STDOF.LeistungsBez_EN = isleernothing(currentRow(12))
End If
If isleernothing(currentRow(13)) IsNot Nothing AndAlso isleernothing(currentRow(13)) <> "NULL" Then
save = True
STDOF.LeistungsBez_RO = isleernothing(currentRow(13))
End If
If isleernothing(currentRow(14)) IsNot Nothing AndAlso isleernothing(currentRow(14)) <> "NULL" Then
save = True
STDOF.LeistungsBez_TR = isleernothing(currentRow(14))
End If
If save Then STDOF.SAVE()
End If
'MsgBox(currentRow(2))
End If
End If
End If
@@ -3728,6 +3706,11 @@ Public Class usrctlProcedures
MsgBox(kdnr_tmp & " " & ex.Message & ex.StackTrace)
End Try
End While
If savedDY Then
sql.doSQL("EXECUTE dbo.sp_DeleteDuplicateZollmeldungen", "FMZOLL")
End If
End Using
End If
End If