NecroTYN
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
Option Explicit
Const adOpenStatic = 3
Const adLockOptimistic = 3
Dim strDatabase
Dim lngID
Dim objFSO
Dim objConnection
Dim objRecordset
Dim dtStartDate
Dim dtEndDate
Dim lngCount
Dim prevLocale
If WScript.Arguments.Count = 2 Then
strDatabase = Mid(WScript.Arguments.Item(0), 2)
lngID = Mid(WScript.Arguments.Item(1), 2)
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objConnection = WScript.CreateObject("ADODB.Connection")
Set objRecordset = WScript.CreateObject("ADODB.Recordset")
If objFSO.FileExists(strDatabase) Then
objConnection.Open "Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = '" & strDatabase & "'"
With objRecordset
.Open "SELECT * FROM qdfOrders WHERE ID = " & CStr(lngID) & "", objConnection, adOpenStatic, adLockOptimistic
dtStartDate = CDate(.Fields.Item("OrderDate").Value)
.Close
.Open "SELECT * FROM tblHolidays", objConnection, adOpenStatic, adLockOptimistic
dtEndDate = dtStartDate
lngCount = 0
Do Until lngCount >= 21
dtEndDate = DateAdd("d", 1, dtEndDate)
Select Case WeekdayName(Weekday(dtEndDate))
Case "суббота", "воскресенье"
Case Else
prevLocale = SetLocale("en-us")
.Filter = "HolidayDate = #" & dtEndDate & "#"
SetLocale(prevLocale)
If .RecordCount = 0 Then
lngCount = lngCount + 1
End If
End Select
Loop
.Close
End With
prevLocale = SetLocale("en-us")
objConnection.Execute "UPDATE qdfOrders SET DoneDate = #" & dtEndDate & "# WHERE ID = " & CStr(lngID) & ""
SetLocale(prevLocale)
objConnection.Close
Else
WScript.Echo "Database file [" & strDatabase & "] not found"
End If
Set objRecordset = Nothing
Set objConnection = Nothing
Set objFSO = Nothing
Else
WScript.Echo "Usage from toolbar on [Склад и торговля]:"
WScript.Echo "" & WScript.ScriptName & " /[CurrentDB] /[ID]"
End If
WScript.Quit 0 |
|
Всего записей: 141 | Зарегистр. 22-04-2007 | Отправлено: 09:32 23-07-2012 | Исправлено: NecroTYN, 09:37 23-07-2012 |
|
