Set base = CreateObject("V77.Application")
With base
result = .Initialize(.RMTrade, "/d f:\base1c\NashaFirma\ /Nuser /Ppassword","NO_SPLASH_SHOW")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open("Provider=SQLOLEDB;Data Source=SERVANT1\SQLEXPRESS;Initial Catalog=Materials;User Id=kuku;Password=parol;")
Set Cmd = CreateObject("ADODB.Command")
Cmd.ActiveConnection = objConnection
Cmd.CommandTimeOut = 600

dStartDate = DateAdd("m", -2, Now)
dEndDate = Now()


	Set sQuery = .CreateObject("Query")
End With

QueryText ="Период с '" & dStartDate & "' по '" & dEndDate & "';" _             
	& " sNumber = Document.ПриходнаяНакладная.НомерПриходнойНакладной;" _
	& " sKontragent = Document.ПриходнаяНакладная.Контрагент.Наименование;" _
	& " sGoods = Document.ПриходнаяНакладная.ТМЦ;" _
	& " sQuantity = Document.ПриходнаяНакладная.Кво;" _
	& " sUnit = Document.ПриходнаяНакладная.Ед.Наименование;" _                   
	& " sCenaBezNDS = Document.ПриходнаяНакладная.ЦенаБезНДС;" _
	& " sSumBezNDS = Document.ПриходнаяНакладная.СуммаБезНДС;" _
	& " sName = Document.ПриходнаяНакладная.НомерДок;" _
	& " sDate = Document.ПриходнаяНакладная.ДатаДок;" _
	& " Group sGoods;" _
	& " Group Document;"
	
With sQuery	
	If .Execute(QueryText) = 0 Then
		Set base = Nothing
		WScript.Quit
	End If

			
	While .Group(1) = 1
	While .Group(2) = 1
		ssGoods = Replace(.OrderValue(1), Chr(39), Chr(34))
		sKontr = Replace(.sKontragent, Chr(39), Chr(34))
		sQuant = Replace(CStr(.sQuantity), ",", ".")
		sCena = Replace(CStr(.sCenaBezNDS), ",", ".")
		sSum = Replace(CStr(.sSumBezNDS), ",", ".")
		arrDate = Split(.sDate, ".")
		ssDate = arrDate(2) & "-" & arrDate(1) & "-" & arrDate(0)
		
Cmd.CommandText="INSERT INTO MaterialsOut (kontragent, docname, docnum, ddate, tmc, kolvo,  tunit, cenaBezNDS, sumBezNDS)" _
 & " VALUES('" & sKontr  & "', '"  & .sName  & "', '" & .sNumber  _
& "', CONVERT(datetime,'" & ssDate  & "',102), '" &  ssGoods  & "', " & sQuant & ", '" &  .sUnit  & "', " & sCena & ", " _
& sSum & ")"
	Cmd.Execute()
	Wend
	Wend


End With