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
2020-05-31 22:26:21 +02:00
parent a40477b387
commit 6e3e35ac70
37 changed files with 2287 additions and 437 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
UID/usrctlProcedures.vb
View File

@@ -1703,15 +1703,15 @@ Public Class usrctlProcedures
End Function
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Dim pf As New cProgramFunctions
'Dim pf As New cProgramFunctions
For i = CInt(TextBox6.Text) To CInt(TextBox7.Text)
'For i = CInt(TextBox6.Text) To CInt(TextBox7.Text)
Dim kw = i
Dim jahr = TextBox5.Text
pf.KWAbschluss(TextBox4.Text, jahr, kw, getSchicht(kw, jahr))
' Dim kw = i
' Dim jahr = TextBox5.Text
' pf.KWAbschluss(TextBox4.Text, jahr, kw, getSchicht(kw, jahr))
Next
'Next
End Sub
Function getSchicht(aktWoche, aktJahr) As String