***

[Злой Ворон]

У Ворона есть небольшой говнокодик в виде макроса, который из нашей древней DMS делает отчет по продаже запчастей дилерам
ВНЕЗАПНО Женька Касперский счал считать его высокой угрозой

Результат\Описание: Обнаружено
Результат\Тип: Троянская программа
Результат\Название: HEUR:Trojan-Downloader.sсriрt.Generic
Результат\Степень угрозы: Высокая
Результат\Точность: Эвристический анализ

'NarcoDEALERS :)
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Dealers..."

setupConnection = "Driver={Microsoft Visual Foxpro Driver};UID=;SourceType=DBC;SourceDB=\\awt-bavaria\Autoplus\Autoplus\Autoplus.dbc;Exclusive=No"
Set openConnection = CreateObject("ADODB.Connection")
openConnection.CommandTimeout = 3600 'таймаут 60 минут, можно покурить
openConnection.Open setupConnection 'Используются дефолтные значения: ServerSideCursor|CursorForwardOnly
Set FetchData = CreateObject("ADODB.Recordset")

strSQL = "SELECT ff_41020.klantnr as [Dealer], SUM(ff_42020.bedrag*IIF(ff_41020.fakc=1,-1,1)) as [Sales], SUM(ff_42020.aankpr*ff_42020.aantal*IIF(ff_41020.fakc=1,-1,1)) as [CostOfSales] FROM ff_41020 LEFT JOIN ff_42020 ON (ff_42020.faknr=ff_41020.faknr) WHERE ff_41020.g='1' AND ff_42020.bkt='4' AND ff_41020.fakdat>={^" & FromDate & "} AND ff_41020.fakdat<={^" & ToDate & "} AND ff_41020.KLANTNR IN ('222003','222002','222007','222019','222004','222018','222014','222020','222010','222021','222017','222016','222022','222023') GROUP BY ff_41020.klantnr;"
FetchData.Open strSQL, openConnection 'На этом месте можно отойти и неспеша сделать себе кофе
FetchData.MoveFirst

Do While Not FetchData.EOF
    strDealerNumber = Mid(FetchData("Dealer"), 4, 3)
    iPosition = CInt(Mid(strDealerPlace, InStr(1, strDealerPlace, strDealerNumber) + 4, 2)) + iDealerStart
    
    Me.ActiveSheet.Cells(iPosition, 2).Value = FetchData("Sales")
    Me.ActiveSheet.Cells(iPosition, 3).Value = FetchData("CostOfSales")
    
    FetchData.MoveNext
Loop

FetchData.Close
openConnection.Close
Set FetchData = Nothing
Set openConnection = Nothing

Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar

@темы: Программазм