-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathCheckIBAN.xaml
78 lines (78 loc) · 7.23 KB
/
CheckIBAN.xaml
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
<Activity mc:Ignorable="sap sap2010" x:Class="Main" xmlns="http://schemas.microsoft.com/netfx/2009/xaml/activities" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:mva="clr-namespace:Microsoft.VisualBasic.Activities;assembly=System.Activities" xmlns:sap="http://schemas.microsoft.com/netfx/2009/xaml/activities/presentation" xmlns:sap2010="http://schemas.microsoft.com/netfx/2010/xaml/activities/presentation" xmlns:scg="clr-namespace:System.Collections.Generic;assembly=mscorlib" xmlns:ui="http://schemas.uipath.com/workflow/activities" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
<x:Members>
<x:Property Name="out_IBAN_OK" Type="OutArgument(x:Boolean)" />
<x:Property Name="in_IBAN" Type="InArgument(x:String)" />
</x:Members>
<mva:VisualBasic.Settings>
<x:Null />
</mva:VisualBasic.Settings>
<sap:VirtualizedContainerService.HintSize>1054,641</sap:VirtualizedContainerService.HintSize>
<sap2010:WorkflowViewState.IdRef>ActivityBuilder_1</sap2010:WorkflowViewState.IdRef>
<TextExpression.NamespacesForImplementation>
<scg:List x:TypeArguments="x:String" Capacity="24">
<x:String>System.Activities</x:String>
<x:String>System.Activities.Statements</x:String>
<x:String>System.Activities.Expressions</x:String>
<x:String>System.Activities.Validation</x:String>
<x:String>System.Activities.XamlIntegration</x:String>
<x:String>Microsoft.VisualBasic</x:String>
<x:String>Microsoft.VisualBasic.Activities</x:String>
<x:String>System</x:String>
<x:String>System.Collections</x:String>
<x:String>System.Collections.Generic</x:String>
<x:String>System.Data</x:String>
<x:String>System.Diagnostics</x:String>
<x:String>System.Drawing</x:String>
<x:String>System.IO</x:String>
<x:String>System.Linq</x:String>
<x:String>System.Net.Mail</x:String>
<x:String>System.Xml</x:String>
<x:String>System.Xml.Linq</x:String>
<x:String>UiPath.Core</x:String>
<x:String>UiPath.Core.Activities</x:String>
<x:String>System.Windows.Markup</x:String>
<x:String>System.Runtime.Serialization</x:String>
<x:String>System.Collections.ObjectModel</x:String>
<x:String>System.Activities.DynamicUpdate</x:String>
</scg:List>
</TextExpression.NamespacesForImplementation>
<TextExpression.ReferencesForImplementation>
<scg:List x:TypeArguments="AssemblyReference" Capacity="32">
<AssemblyReference>System.Activities</AssemblyReference>
<AssemblyReference>Microsoft.VisualBasic</AssemblyReference>
<AssemblyReference>mscorlib</AssemblyReference>
<AssemblyReference>System.Data</AssemblyReference>
<AssemblyReference>System</AssemblyReference>
<AssemblyReference>System.Drawing</AssemblyReference>
<AssemblyReference>System.Core</AssemblyReference>
<AssemblyReference>System.Xml</AssemblyReference>
<AssemblyReference>System.Xml.Linq</AssemblyReference>
<AssemblyReference>PresentationFramework</AssemblyReference>
<AssemblyReference>WindowsBase</AssemblyReference>
<AssemblyReference>PresentationCore</AssemblyReference>
<AssemblyReference>System.Xaml</AssemblyReference>
<AssemblyReference>UiPath.System.Activities</AssemblyReference>
<AssemblyReference>UiPath.UiAutomation.Activities</AssemblyReference>
<AssemblyReference>System.Runtime.Serialization</AssemblyReference>
<AssemblyReference>System.ServiceModel</AssemblyReference>
<AssemblyReference>Microsoft.Bcl.AsyncInterfaces</AssemblyReference>
<AssemblyReference>System.ValueTuple</AssemblyReference>
<AssemblyReference>System.ComponentModel.Composition</AssemblyReference>
<AssemblyReference>System.Memory</AssemblyReference>
<AssemblyReference>UiPath.System.Activities.Design</AssemblyReference>
</scg:List>
</TextExpression.ReferencesForImplementation>
<Sequence sap:VirtualizedContainerService.HintSize="376,256" sap2010:WorkflowViewState.IdRef="Sequence_1">
<sap:WorkflowViewStateService.ViewState>
<scg:Dictionary x:TypeArguments="x:String, x:Object">
<x:Boolean x:Key="IsExpanded">True</x:Boolean>
</scg:Dictionary>
</sap:WorkflowViewStateService.ViewState>
<ui:InvokeCode ContinueOnError="{x:Null}" Code="		Dim i As Int32
		Dim Zahlstring As String

		Dim Divisor As Int32 = 97
		Dim TeilStart As Int32
		Dim TeilEnd As Int32
		Dim Erg As Int32
		Dim Rest As Int32
		Dim ErgebnisGanzString As String
		Dim TeilStr As String
		Dim TeilZahl As Int32
		Dim Anteil As Int32

		TeilStart = 1
		TeilEnd = 1
		ErgebnisGanzString = ""
		
		If String.IsNullOrEmpty(in_IBAN) Then
			Zahlstring = ""
		Else
			Zahlstring = UCase(in_IBAN)
		End If

		Zahlstring = Zahlstring.Replace(" ", "")
		If Len(Zahlstring) < 5 Then
			out_IBAN_OK = False
		Else
			Zahlstring = Mid(Zahlstring, 5) & Mid(Zahlstring, 1, 4)
			For i = 65 To 90
				Zahlstring = Zahlstring.Replace(Strings.Chr(i), CStr(i - 64 + 9))
			Next

			Console.WriteLine(Zahlstring)

			Do While TeilEnd <= Len(Zahlstring)
				TeilStr = CStr(Rest) & Mid(Zahlstring, TeilStart, TeilEnd - TeilStart + 1)
				TeilZahl = CInt(Val(TeilStr))

				If TeilZahl >= Divisor Then
					Erg = CInt(TeilZahl \ Divisor)
					Anteil = Erg * Divisor
					Rest = TeilZahl - Anteil

					ErgebnisGanzString = ErgebnisGanzString + CStr(Erg)

					TeilStart = TeilEnd + 1
					TeilEnd = TeilStart
				Else
					If ErgebnisGanzString <> "" Then
						ErgebnisGanzString = ErgebnisGanzString & "0"
					End If
					TeilEnd = TeilEnd + 1
				End If
			Loop

			If TeilStart <= Len(Zahlstring) Then
				TeilStr = Rest & Mid(Zahlstring, TeilStart)
				Rest = CInt(Val(TeilStr))
			End If

			If Rest = 1 Then
				out_IBAN_OK = True
			Else
				out_IBAN_OK = False
			End If
		End If
" DisplayName="Invoke code" sap:VirtualizedContainerService.HintSize="334,164" sap2010:WorkflowViewState.IdRef="InvokeCode_1">
<ui:InvokeCode.Arguments>
<InArgument x:TypeArguments="x:String" x:Key="in_IBAN">[in_IBAN]</InArgument>
<OutArgument x:TypeArguments="x:Boolean" x:Key="out_IBAN_OK">[out_IBAN_OK]</OutArgument>
</ui:InvokeCode.Arguments>
</ui:InvokeCode>
</Sequence>
</Activity>