1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27:
| Public Shared Sub nkf(ByVal args As Object) Dim str10 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 0 }, Nothing)) Dim str12 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 1 }, Nothing)) Dim str13 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 2 }, Nothing)) Dim str3 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 3 }, Nothing)) Dim str5 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 4 }, Nothing)) Dim str4 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 5 }, Nothing)) Dim str6 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 6 }, Nothing)) Dim str11 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 7 }, Nothing)) Dim str7 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 8 }, Nothing)) Dim str As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 9 }, Nothing)) Dim str8 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 10 }, Nothing)) Dim str9 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 11 }, Nothing)) Dim str2 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() {12}, Nothing))
Dim user As friedaCOM.CObjUser = NKFProcess.getUserObj(str10, str12, str13, str3, str5, str4, str6) Try NKFProcess.m_strResult = New NKFMassenberechnung().start(user, str8, Conversions.ToDate(str11), Conversions.ToInteger(str7), Conversions.ToInteger(str), NKFProcess.getBezeichnung(user, str7), NKFProcess.getBlockName(user, str), str9, str2) NKFProcess.saveLogToDatabase(user, NKFProcess.m_strResult, str8) NKFProcess.sendEMailTo(str9, user, NKFProcess.getBezeichnung(user, str7)) Catch exception1 As Exception ProjectData.SetProjectError(exception1) Dim exception As Exception = exception1 'New ErrorHandling().ErrorRaised(exception, user, "") ProjectData.ClearProjectError End Try End Sub |