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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-11-18 14:59:04 +01:00
parent 05280436a4
commit 98378dd496
51 changed files with 4647 additions and 763 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
UID/usrctlProcedures.vb
View File

@@ -2801,7 +2801,8 @@ Public Class usrctlProcedures
Dim kdnr As Integer = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(2400000, 2499999) '+ 1
Dim kdnr As Integer = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(
0, 2499999) '+ 1
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
If True Then 'Not KD.hasEntry Then
@@ -3248,6 +3249,12 @@ Public Class usrctlProcedures
KD_BESONSERHEITEN.SAVE()
End Sub
Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL(717858)
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
End Sub
'Private Sub Button26_Click(sender As Object, e As EventArgs)
' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
' Dim fi As New FileInfo(d)