Anlage des Repos

archive/FNCUST_GET_PROPERTY_VALUES/Aufruf Beispiel.txt

@@ -0,0 +1,33 @@
+	dim conn
+	Set conn = CWLStart.CurrentCompany.Connection 
+
+	 Set SQLResult_DateOfDelivery = conn.Select ("Select * from [FNCUST_GET_PROPERTY_VALUES](<EigenschaftsID>,'<Kontonr>',3,null,null,null) --(NOLOCK)") 
+	 If (SQLResult_DateOfDelivery.RowCount > 0) Then 
+	 
+	 	'Loop for every found property value
+	 	Do 
+
+			DateOfDelivery_GUID		= Cint(SQLResult_DateOfDelivery.value(0))
+			DateOfDelivery_Count 		= Cint(SQLResult_DateOfDelivery.value(1))
+			DateOfDelivery_LoopValue	= Cstr(SQLResult_DateOfDelivery.value(2))
+
+			If (VarType(DateOfDelivery_LoopValue) <> vbEmpty) Then
+
+				DateOfDelivery_TempValue  = GetDateByWeekdayname(DateOfDelivery_LoopValue)
+				DateOfDelivery_Difference = DateDiff("d",Date,DateOfDelivery_TempValue)
+
+				If (DateOfDelivery_Difference > 0) And (DateOfDelivery_Difference < DateOfDelivery_FinalValue) Then
+					DateOfDelivery_FinalValue = DateOfDelivery_Difference
+					'msgbox DateOfDelivery_FinalValue
+
+				End If
+
+			End If
+
+		 	If SQLResult_DateOfDelivery.NextRecord = False Then
+		 		Exit Do 
+		 	End If 
+
+	 	Loop
+
+	End If