Function Main()	

	Const DTSSQLStgFlag_Default =  0 
	Const DTSStepExecResult_Failure =  1 
	
	Dim oStep, sMessage, bStatus
	
	' используем пакет с шаблоном'
	Dim objPackage

             'для изменения парметров ODBC Connection'
	Dim FileDSN, FileDSNStream
             
             'список кодов складов и путей к базам данных'
	Dim countr, cnStr
	Dim RS

	set RS = CreateObject( "ADODB.Recordset" )
	set RS = DTSGlobalVariables( "rsPathsBest" ).Value
	RS.MoveFirst
	for countr =  1  to RS.RecordCount

		set FileDSN = CreateObject( "Scripting.FileSystemObject" )
		set FileDSNStream = FileDSN.CreateTextFile( "\\KOSMO\dsDataBase\Snapshotbest\DataSources\Magazin.dsn" , True)
		FileDSNStream.WriteLine( "[ODBC]" )
		FileDSNStream.WriteLine( "DRIVER=Microsoft Visual FoxPro Driver" )
		FileDSNStream.WriteLine( "UID=" )
		FileDSNStream.WriteLine( "Deleted=No" )
		FileDSNStream.WriteLine( "Null=Yes" )
		FileDSNStream.WriteLine( "Collate=RUSSIAN" )
		FileDSNStream.WriteLine( "BackgroungFetch=Yes" )
		FileDSNStream.WriteLine( "Exclusive=No" )
		FileDSNStream.WriteLine( "SourceType=DBF" )
		cnStr= "SourceDB="  & RS.Fields( "PathBest" ).value+ "\SCLAD" 
		FileDSNStream.WriteLine(cnStr)
		FileDSNStream.WriteBlankLines( 1 )
		set FileDSN = nothing
		set FileDSNStream = nothing

		Set objPackage = CreateObject( "DTS.Package" )
		objPackage.LoadFromSQLServer  "SQLSERVER" , "sa" , "",DTSSQLStgFlag_Default,"  ","  ","  "," Шаблон импорта данных из БЭСТа в SnapShotBEST "

		'присвоим глобальной переменной путь к текущей базе данных'
		objPackage.GlobalVariables.Item(" PathBest ").Value = RS.Fields(" PathBest ").value+" \SCLAD "
		
		'присвоим глобальной переменной код склада'
		objPackage.GlobalVariables.Item(" gID_Sclad ").Value = RS.Fields(" ID_Sclad ").value 
		
		'выполнение пакета '
		objPackage.Execute

		bStatus = True
		sMessage = " № слада -  " & objPackage.GlobalVariables.Item(" gID_Sclad ").Value & "   Путь -  " & objPackage.GlobalVariables.Item(" PathBest ").Value & Chr(13 ) & Chr( 10 )
		For Each oStep In objPackage.Steps
			sMessage = sMessage & "Step [ " & oStep.Name & " ]  "  & "  -  "
			If oStep.ExecutionResult = DTSStepExecResult_Failure Then
				sMessage = sMessage & "  failed " & Chr(13 ) & Chr( 10 )
				bStatus = False
			Else
				sMessage = sMessage & " succeeded " & Chr(13 ) & Chr( 10 )
			End If
			sMessage = sMessage & "Task " &  objPackage.Tasks(oStep.TaskName).Description &  "  -  "
		Next
	
		If bStatus Then
			sMessage = sMessage & "     Package [ " & objPackage.Name & " ] succeeded " & Chr(13 ) & Chr( 10 )
		Else
			sMessage = sMessage & "    Package [ " & objPackage.Name & " ] failed" & Chr( 13 ) & Chr( 10 )
		End If
		'MsgBox sMessage'

		objPackage.UnInitialize
		set objPackage = nothing
		set objConn = nothing

		RS.MoveNext
	Next
	
	Main = DTSTaskExecResult_Success
End Function

		cnProp =  "Driver={Microsoft Visual FoxPro Driver};UID=;PWD=;SourceDB=" 
		cnProp = cnProp & RS.Fields( "PathBest" ).value+ "\SCLAD;" 
		cnProp = cnProp &  "SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=RUSSIAN;Null=Yes;Deleted=No;" 
		set objConn = objPackage.Connections( "Магазин" )
		objConn.ConnectionProperties( "Extended Properties" ).Value = cnProp