33 lines
1.0 KiB
Plaintext
33 lines
1.0 KiB
Plaintext
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 |