'****************************************************************
'Microsoft SQL Server 2000
'Visual Basic file generated for DTS Package
'File Name: D:\Pracovni\dw\xprim14 (finalni).bas
'Package Name: xprim14 (finalni)
'Package Description: 
'Generated Date: 30.5.2001
'Generated Time: 10:02:41
'****************************************************************

Option Explicit
Public goPackageOld As New DTS.Package
Public goPackage As DTS.Package2
Private Sub Main()
	set goPackage = goPackageOld

	goPackage.Name = "xprim14 (finalni)"
	goPackage.WriteCompletionStatusToNTEventLog = False
	goPackage.FailOnError = False
	goPackage.PackagePriorityClass = 2
	goPackage.MaxConcurrentSteps = 4
	goPackage.LineageOptions = 0
	goPackage.UseTransaction = True
	goPackage.TransactionIsolationLevel = 4096
	goPackage.AutoCommitTransaction = True
	goPackage.RepositoryMetadataOptions = 0
	goPackage.UseOLEDBServiceComponents = True
	goPackage.LogToSQLServer = False
	goPackage.LogServerFlags = 0
	goPackage.FailPackageOnLogFailure = False
	goPackage.ExplicitGlobalVariables = False
	goPackage.PackageType = 0
	


'---------------------------------------------------------------------------
' create package connection information
'---------------------------------------------------------------------------

Dim oConnection as DTS.Connection2

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Microsoft OLE DB Provider for SQL Server"
	oConnection.ID = 1
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Microsoft OLE DB Provider for SQL Server 2"
	oConnection.ID = 2
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Microsoft OLE DB Provider for SQL Server 4"
	oConnection.ID = 4
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Microsoft OLE DB Provider for SQL Server 6"
	oConnection.ID = 6
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Datum A"
	oConnection.ID = 7
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Datum B"
	oConnection.ID = 8
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Microsoft OLE DB Provider for SQL Server 3"
	oConnection.ID = 3
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Microsoft OLE DB Provider for SQL Server 5"
	oConnection.ID = 5
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Microsoft OLE DB Provider for SQL Server 7"
	oConnection.ID = 13
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Microsoft OLE DB Provider for SQL Server 8"
	oConnection.ID = 14
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Cinnosti A"
	oConnection.ID = 15
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Cinnosti B"
	oConnection.ID = 16
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Stredisko A"
	oConnection.ID = 17
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Stredisko B"
	oConnection.ID = 18
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Typ transakce A"
	oConnection.ID = 19
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Typ transakce B"
	oConnection.ID = 20
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Trida B"
	oConnection.ID = 21
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Trida B Copy"
	oConnection.ID = 22
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Trida B Copy 2"
	oConnection.ID = 23
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Trida B Copy 3"
	oConnection.ID = 24
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Skupina B"
	oConnection.ID = 25
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Syntetika B"
	oConnection.ID = 26
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Osnova B"
	oConnection.ID = 27
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Trida A"
	oConnection.ID = 28
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Trida A Copy"
	oConnection.ID = 29
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Trida A Copy 2"
	oConnection.ID = 30
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Trida A Copy 3"
	oConnection.ID = 31
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Skupina A"
	oConnection.ID = 32
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Syntetika A"
	oConnection.ID = 33
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Osnova A"
	oConnection.ID = 34
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Trida A Copy 4"
	oConnection.ID = 35
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Cinnost"
	oConnection.ID = 36
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Trida B Copy 4"
	oConnection.ID = 37
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Cinnost A"
	oConnection.ID = 11
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Cinnost B"
	oConnection.ID = 12
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Spolecnost A old"
	oConnection.ID = 40
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Spolecnost B old"
	oConnection.ID = 41
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Spolecnost A"
	oConnection.ID = 9
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Spolecnost B"
	oConnection.ID = 10
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "DW_VSTUP_DATA"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Fakttabulka A"
	oConnection.ID = 42
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "DW_VSTUP_DATA"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

	oConnection.ConnectionProperties("Persist Security Info") = True
	oConnection.ConnectionProperties("User ID") = "xprim14"
	oConnection.ConnectionProperties("Initial Catalog") = "xprim14"
	oConnection.ConnectionProperties("Data Source") = "146.102.64.31"
	oConnection.ConnectionProperties("Locale Identifier") = 1029
	oConnection.ConnectionProperties("Prompt") = 4
	oConnection.ConnectionProperties("General Timeout") = 0
	
	oConnection.Name = "Fakttabulka B"
	oConnection.ID = 43
	oConnection.Reusable = True
	oConnection.ConnectImmediate = False
	oConnection.DataSource = "146.102.64.31"
	oConnection.UserID = "xprim14"
	oConnection.ConnectionTimeout = 60
	oConnection.Catalog = "xprim14"
	oConnection.UseTrustedConnection = False
	oConnection.UseDSL = False
	
	'If you have a password for this connection, please uncomment and add your password below.
	'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'---------------------------------------------------------------------------
' create package steps information
'---------------------------------------------------------------------------

Dim oStep as DTS.Step2
Dim oPrecConstraint as DTS.PrecedenceConstraint

'------------- a new step defined below

Set oStep = goPackage.Steps.New

	oStep.Name = "DTSStep_DTSDataPumpTask_1"
	oStep.Description = "Datum"
	oStep.ExecutionStatus = 1
	oStep.TaskName = "DTSTask_DTSDataPumpTask_1"
	oStep.CommitSuccess = False
	oStep.RollbackFailure = False
	oStep.ScriptLanguage = "VBScript"
	oStep.AddGlobalVariables = True
	oStep.RelativePriority = 3
	oStep.CloseConnection = False
	oStep.ExecuteInMainThread = False
	oStep.IsPackageDSORowset = False
	oStep.JoinTransactionIfPresent = False
	oStep.DisableStep = False
	oStep.FailPackageOnError = False
	
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

	oStep.Name = "DTSStep_DTSDataPumpTask_2"
	oStep.Description = "Spolecnost"
	oStep.ExecutionStatus = 1
	oStep.TaskName = "DTSTask_DTSDataPumpTask_2"
	oStep.CommitSuccess = False
	oStep.RollbackFailure = False
	oStep.ScriptLanguage = "VBScript"
	oStep.AddGlobalVariables = True
	oStep.RelativePriority = 3
	oStep.CloseConnection = False
	oStep.ExecuteInMainThread = False
	oStep.IsPackageDSORowset = False
	oStep.JoinTransactionIfPresent = False
	oStep.DisableStep = False
	oStep.FailPackageOnError = False
	
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

	oStep.Name = "DTSStep_DTSDataPumpTask_4"
	oStep.Description = "Stredisko"
	oStep.ExecutionStatus = 1
	oStep.TaskName = "DTSTask_DTSDataPumpTask_4"
	oStep.CommitSuccess = False
	oStep.RollbackFailure = False
	oStep.ScriptLanguage = "VBScript"
	oStep.AddGlobalVariables = True
	oStep.RelativePriority = 3
	oStep.CloseConnection = False
	oStep.ExecuteInMainThread = False
	oStep.IsPackageDSORowset = False
	oStep.JoinTransactionIfPresent = False
	oStep.DisableStep = False
	oStep.FailPackageOnError = False
	
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

	oStep.Name = "DTSStep_DTSDataPumpTask_5"
	oStep.Description = "Typ transakce"
	oStep.ExecutionStatus = 1
	oStep.TaskName = "DTSTask_DTSDataPumpTask_5"
	oStep.CommitSuccess = False
	oStep.RollbackFailure = False
	oStep.ScriptLanguage = "VBScript"
	oStep.AddGlobalVariables = True
	oStep.RelativePriority = 3
	oStep.CloseConnection = False
	oStep.ExecuteInMainThread = False
	oStep.IsPackageDSORowset = False
	oStep.JoinTransactionIfPresent = False
	oStep.DisableStep = False
	oStep.FailPackageOnError = False
	
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

	oStep.Name = "DTSStep_DTSExecuteSQLTask_2"
	oStep.Description = "Partneri"
	oStep.ExecutionStatus = 1
	oStep.TaskName = "DTSTask_DTSExecuteSQLTask_2"
	oStep.CommitSuccess = False
	oStep.RollbackFailure = False
	oStep.ScriptLanguage = "VBScript"
	oStep.AddGlobalVariables = True
	oStep.RelativePriority = 3
	oStep.CloseConnection = False
	oStep.ExecuteInMainThread = False
	oStep.IsPackageDSORowset = False
	oStep.JoinTransactionIfPresent = False
	oStep.DisableStep = False
	oStep.FailPackageOnError = False
	
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

	oStep.Name = "DTSStep_DTSExecuteSQLTask_1"
	oStep.Description = "Vymaz"
	oStep.ExecutionStatus = 1
	oStep.TaskName = "DTSTask_DTSExecuteSQLTask_1"
	oStep.CommitSuccess = False
	oStep.RollbackFailure = False
	oStep.ScriptLanguage = "VBScript"
	oStep.AddGlobalVariables = True
	oStep.RelativePriority = 3
	oStep.CloseConnection = False
	oStep.ExecuteInMainThread = False
	oStep.IsPackageDSORowset = False
	oStep.JoinTransactionIfPresent = False
	oStep.DisableStep = False
	oStep.FailPackageOnError = False
	
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

	oStep.Name = "DTSStep_DTSDataPumpTask_6"
	oStep.Description = "Trida"
	oStep.ExecutionStatus = 1
	oStep.TaskName = "DTSTask_DTSDataPumpTask_6"
	oStep.CommitSuccess = False
	oStep.RollbackFailure = False
	oStep.ScriptLanguage = "VBScript"
	oStep.AddGlobalVariables = True
	oStep.RelativePriority = 3
	oStep.CloseConnection = False
	oStep.ExecuteInMainThread = False
	oStep.IsPackageDSORowset = False
	oStep.JoinTransactionIfPresent = False
	oStep.DisableStep = False
	oStep.FailPackageOnError = False
	
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

	oStep.Name = "DTSStep_DTSDataPumpTask_7"
	oStep.Description = "Skupina"
	oStep.ExecutionStatus = 1
	oStep.TaskName = "DTSTask_DTSDataPumpTask_7"
	oStep.CommitSuccess = False
	oStep.RollbackFailure = False
	oStep.ScriptLanguage = "VBScript"
	oStep.AddGlobalVariables = True
	oStep.RelativePriority = 3
	oStep.CloseConnection = False
	oStep.ExecuteInMainThread = False
	oStep.IsPackageDSORowset = False
	oStep.JoinTransactionIfPresent = False
	oStep.DisableStep = False
	oStep.FailPackageOnError = False
	
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

	oStep.Name = "DTSStep_DTSDataPumpTask_8"
	oStep.Description = "Syntetika"
	oStep.ExecutionStatus = 1
	oStep.TaskName = "DTSTask_DTSDataPumpTask_8"
	oStep.CommitSuccess = False
	oStep.RollbackFailure = False
	oStep.ScriptLanguage = "VBScript"
	oStep.AddGlobalVariables = True
	oStep.RelativePriority = 3
	oStep.CloseConnection = False
	oStep.ExecuteInMainThread = False
	oStep.IsPackageDSORowset = False
	oStep.JoinTransactionIfPresent = False
	oStep.DisableStep = False
	oStep.FailPackageOnError = False
	
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

	oStep.Name = "DTSStep_DTSDataPumpTask_9"
	oStep.Description = "Analytika"
	oStep.ExecutionStatus = 1
	oStep.TaskName = "DTSTask_DTSDataPumpTask_9"
	oStep.CommitSuccess = False
	oStep.RollbackFailure = False
	oStep.ScriptLanguage = "VBScript"
	oStep.AddGlobalVariables = True
	oStep.RelativePriority = 3
	oStep.CloseConnection = False
	oStep.ExecuteInMainThread = False
	oStep.IsPackageDSORowset = False
	oStep.JoinTransactionIfPresent = False
	oStep.DisableStep = False
	oStep.FailPackageOnError = False
	
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

	oStep.Name = "DTSStep_DTSDataPumpTask_10"
	oStep.Description = "Cinnost"
	oStep.ExecutionStatus = 1
	oStep.TaskName = "DTSTask_DTSDataPumpTask_10"
	oStep.CommitSuccess = False
	oStep.RollbackFailure = False
	oStep.ScriptLanguage = "VBScript"
	oStep.AddGlobalVariables = True
	oStep.RelativePriority = 3
	oStep.CloseConnection = False
	oStep.ExecuteInMainThread = False
	oStep.IsPackageDSORowset = False
	oStep.JoinTransactionIfPresent = False
	oStep.DisableStep = False
	oStep.FailPackageOnError = False
	
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

	oStep.Name = "DTSStep_DTSExecuteSQLTask_3"
	oStep.Description = "Spoluprace"
	oStep.ExecutionStatus = 1
	oStep.TaskName = "DTSTask_DTSExecuteSQLTask_3"
	oStep.CommitSuccess = False
	oStep.RollbackFailure = False
	oStep.ScriptLanguage = "VBScript"
	oStep.AddGlobalVariables = True
	oStep.RelativePriority = 3
	oStep.CloseConnection = False
	oStep.ExecuteInMainThread = False
	oStep.IsPackageDSORowset = False
	oStep.JoinTransactionIfPresent = False
	oStep.DisableStep = False
	oStep.FailPackageOnError = False
	
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

	oStep.Name = "DTSStep_DTSExecuteSQLTask_5"
	oStep.Description = "Typ tran. - dopln"
	oStep.ExecutionStatus = 1
	oStep.TaskName = "DTSTask_DTSExecuteSQLTask_5"
	oStep.CommitSuccess = False
	oStep.RollbackFailure = False
	oStep.ScriptLanguage = "VBScript"
	oStep.AddGlobalVariables = True
	oStep.RelativePriority = 3
	oStep.CloseConnection = False
	oStep.ExecuteInMainThread = False
	oStep.IsPackageDSORowset = False
	oStep.JoinTransactionIfPresent = False
	oStep.DisableStep = False
	oStep.FailPackageOnError = False
	
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

	oStep.Name = "DTSStep_DTSExecuteSQLTask_6"
	oStep.Description = "Partneri - dopln"
	oStep.ExecutionStatus = 1
	oStep.TaskName = "DTSTask_DTSExecuteSQLTask_6"
	oStep.CommitSuccess = False
	oStep.RollbackFailure = False
	oStep.ScriptLanguage = "VBScript"
	oStep.AddGlobalVariables = True
	oStep.RelativePriority = 3
	oStep.CloseConnection = False
	oStep.ExecuteInMainThread = False
	oStep.IsPackageDSORowset = False
	oStep.JoinTransactionIfPresent = False
	oStep.DisableStep = False
	oStep.FailPackageOnError = False
	
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a new step defined below

Set oStep = goPackage.Steps.New

	oStep.Name = "DTSStep_DTSDataPumpTask_3"
	oStep.Description = "Fakttabulka"
	oStep.ExecutionStatus = 1
	oStep.TaskName = "DTSTask_DTSDataPumpTask_3"
	oStep.CommitSuccess = False
	oStep.RollbackFailure = False
	oStep.ScriptLanguage = "VBScript"
	oStep.AddGlobalVariables = True
	oStep.RelativePriority = 3
	oStep.CloseConnection = False
	oStep.ExecuteInMainThread = False
	oStep.IsPackageDSORowset = False
	oStep.JoinTransactionIfPresent = False
	oStep.DisableStep = False
	oStep.FailPackageOnError = False
	
goPackage.Steps.Add oStep
Set oStep = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_1")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSExecuteSQLTask_1")
	oPrecConstraint.StepName = "DTSStep_DTSExecuteSQLTask_1"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_2")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSExecuteSQLTask_1")
	oPrecConstraint.StepName = "DTSStep_DTSExecuteSQLTask_1"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_4")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSExecuteSQLTask_1")
	oPrecConstraint.StepName = "DTSStep_DTSExecuteSQLTask_1"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_5")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSExecuteSQLTask_1")
	oPrecConstraint.StepName = "DTSStep_DTSExecuteSQLTask_1"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSExecuteSQLTask_2")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSExecuteSQLTask_1")
	oPrecConstraint.StepName = "DTSStep_DTSExecuteSQLTask_1"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_6")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSExecuteSQLTask_1")
	oPrecConstraint.StepName = "DTSStep_DTSExecuteSQLTask_1"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_7")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSDataPumpTask_6")
	oPrecConstraint.StepName = "DTSStep_DTSDataPumpTask_6"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_8")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSDataPumpTask_7")
	oPrecConstraint.StepName = "DTSStep_DTSDataPumpTask_7"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_9")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSDataPumpTask_8")
	oPrecConstraint.StepName = "DTSStep_DTSDataPumpTask_8"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_10")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSExecuteSQLTask_1")
	oPrecConstraint.StepName = "DTSStep_DTSExecuteSQLTask_1"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSExecuteSQLTask_3")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSDataPumpTask_10")
	oPrecConstraint.StepName = "DTSStep_DTSDataPumpTask_10"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSExecuteSQLTask_3")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSDataPumpTask_2")
	oPrecConstraint.StepName = "DTSStep_DTSDataPumpTask_2"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSExecuteSQLTask_3")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSDataPumpTask_4")
	oPrecConstraint.StepName = "DTSStep_DTSDataPumpTask_4"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSExecuteSQLTask_5")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSDataPumpTask_5")
	oPrecConstraint.StepName = "DTSStep_DTSDataPumpTask_5"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSExecuteSQLTask_6")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSExecuteSQLTask_2")
	oPrecConstraint.StepName = "DTSStep_DTSExecuteSQLTask_2"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_3")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSExecuteSQLTask_5")
	oPrecConstraint.StepName = "DTSStep_DTSExecuteSQLTask_5"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_3")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSDataPumpTask_1")
	oPrecConstraint.StepName = "DTSStep_DTSDataPumpTask_1"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_3")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSExecuteSQLTask_6")
	oPrecConstraint.StepName = "DTSStep_DTSExecuteSQLTask_6"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_3")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSExecuteSQLTask_3")
	oPrecConstraint.StepName = "DTSStep_DTSExecuteSQLTask_3"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'------------- a precedence constraint for steps defined below

Set oStep = goPackage.Steps("DTSStep_DTSDataPumpTask_3")
Set oPrecConstraint = oStep.PrecedenceConstraints.New("DTSStep_DTSDataPumpTask_9")
	oPrecConstraint.StepName = "DTSStep_DTSDataPumpTask_9"
	oPrecConstraint.PrecedenceBasis = 1
	oPrecConstraint.Value = 0
	
oStep.precedenceConstraints.Add oPrecConstraint
Set oPrecConstraint = Nothing

'---------------------------------------------------------------------------
' create package tasks information
'---------------------------------------------------------------------------

'------------- call Task_Sub1 for task DTSTask_DTSDataPumpTask_1 (Datum)
Call Task_Sub1( goPackage	)

'------------- call Task_Sub2 for task DTSTask_DTSDataPumpTask_2 (Spolecnost)
Call Task_Sub2( goPackage	)

'------------- call Task_Sub3 for task DTSTask_DTSDataPumpTask_4 (Stredisko)
Call Task_Sub3( goPackage	)

'------------- call Task_Sub4 for task DTSTask_DTSDataPumpTask_5 (Typ transakce)
Call Task_Sub4( goPackage	)

'------------- call Task_Sub5 for task DTSTask_DTSExecuteSQLTask_2 (Partneri)
Call Task_Sub5( goPackage	)

'------------- call Task_Sub6 for task DTSTask_DTSExecuteSQLTask_1 (Vymaz)
Call Task_Sub6( goPackage	)

'------------- call Task_Sub7 for task DTSTask_DTSDataPumpTask_6 (Trida)
Call Task_Sub7( goPackage	)

'------------- call Task_Sub8 for task DTSTask_DTSDataPumpTask_7 (Skupina)
Call Task_Sub8( goPackage	)

'------------- call Task_Sub9 for task DTSTask_DTSDataPumpTask_8 (Syntetika)
Call Task_Sub9( goPackage	)

'------------- call Task_Sub10 for task DTSTask_DTSDataPumpTask_9 (Analytika)
Call Task_Sub10( goPackage	)

'------------- call Task_Sub11 for task DTSTask_DTSDataPumpTask_10 (Cinnost)
Call Task_Sub11( goPackage	)

'------------- call Task_Sub12 for task DTSTask_DTSExecuteSQLTask_3 (Spoluprace)
Call Task_Sub12( goPackage	)

'------------- call Task_Sub13 for task DTSTask_DTSExecuteSQLTask_5 (Typ tran. - dopln)
Call Task_Sub13( goPackage	)

'------------- call Task_Sub14 for task DTSTask_DTSExecuteSQLTask_6 (Partneri - dopln)
Call Task_Sub14( goPackage	)

'------------- call Task_Sub15 for task DTSTask_DTSDataPumpTask_3 (Fakttabulka)
Call Task_Sub15( goPackage	)

'---------------------------------------------------------------------------
' Save or execute package
'---------------------------------------------------------------------------

'goPackage.SaveToSQLServer "(local)", "sa", ""
goPackage.Execute
goPackage.Uninitialize
'to save a package instead of executing it, comment out the executing package line above and uncomment the saving package line
set goPackage = Nothing

set goPackageOld = Nothing

End Sub


'------------- define Task_Sub1 for task DTSTask_DTSDataPumpTask_1 (Datum)
Public Sub Task_Sub1(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask1 As DTS.DataPumpTask2
Set oTask = goPackage.Tasks.New("DTSDataPumpTask")
Set oCustomTask1 = oTask.CustomTask

	oCustomTask1.Name = "DTSTask_DTSDataPumpTask_1"
	oCustomTask1.Description = "Datum"
	oCustomTask1.SourceConnectionID = 7
	oCustomTask1.SourceSQLStatement = "SELECT     " & vbCrLf
	oCustomTask1.SourceSQLStatement = oCustomTask1.SourceSQLStatement & "  DATUM, ROK, PULROK, NAZEV_KVARTALU, NAZEV_DNE, NAZEV_MESICE, " & vbCrLf
	oCustomTask1.SourceSQLStatement = oCustomTask1.SourceSQLStatement & "  POR_KVARTALU, POR_MESICE, POR_MESICE_V_KVARTALU," & vbCrLf
	oCustomTask1.SourceSQLStatement = oCustomTask1.SourceSQLStatement & "  POR_DEKADY, POR_DEKADY_V_KVARTALU, POR_DEKADY_V_MESICI," & vbCrLf
	oCustomTask1.SourceSQLStatement = oCustomTask1.SourceSQLStatement & "  POR_TYDNE_V_KVARTALU, POR_TYDNE_V_MESICI, POR_TYDNE, POR_DNE," & vbCrLf
	oCustomTask1.SourceSQLStatement = oCustomTask1.SourceSQLStatement & "  POR_DNE_V_KVARTALU, POR_DNE_V_DEKADE," & vbCrLf
	oCustomTask1.SourceSQLStatement = oCustomTask1.SourceSQLStatement & "  POR_DNE_V_MESICI, POR_DNE_V_TYDNU" & vbCrLf
	oCustomTask1.SourceSQLStatement = oCustomTask1.SourceSQLStatement & "FROM         " & vbCrLf
	oCustomTask1.SourceSQLStatement = oCustomTask1.SourceSQLStatement & "  dbo.DWE_C_DATUM"
	oCustomTask1.DestinationConnectionID = 8
	oCustomTask1.DestinationObjectName = "[xprim14].[xprim14].[DWE_C_DATUM]"
	oCustomTask1.ProgressRowCount = 1000
	oCustomTask1.MaximumErrorCount = 0
	oCustomTask1.FetchBufferSize = 1
	oCustomTask1.UseFastLoad = True
	oCustomTask1.InsertCommitSize = 0
	oCustomTask1.ExceptionFileColumnDelimiter = "|"
	oCustomTask1.ExceptionFileRowDelimiter = vbCrLf
	oCustomTask1.AllowIdentityInserts = False
	oCustomTask1.FirstRow = 0
	oCustomTask1.LastRow = 0
	oCustomTask1.FastLoadOptions = 2
	oCustomTask1.ExceptionFileOptions = 1
	oCustomTask1.DataPumpOptions = 0
	
Call oCustomTask1_Trans_Sub1( oCustomTask1	)
Call oCustomTask1_Trans_Sub2( oCustomTask1	)
Call oCustomTask1_Trans_Sub3( oCustomTask1	)
Call oCustomTask1_Trans_Sub4( oCustomTask1	)
Call oCustomTask1_Trans_Sub5( oCustomTask1	)
Call oCustomTask1_Trans_Sub6( oCustomTask1	)
Call oCustomTask1_Trans_Sub7( oCustomTask1	)
Call oCustomTask1_Trans_Sub8( oCustomTask1	)
Call oCustomTask1_Trans_Sub9( oCustomTask1	)
Call oCustomTask1_Trans_Sub10( oCustomTask1	)
Call oCustomTask1_Trans_Sub11( oCustomTask1	)
Call oCustomTask1_Trans_Sub12( oCustomTask1	)
Call oCustomTask1_Trans_Sub13( oCustomTask1	)
Call oCustomTask1_Trans_Sub14( oCustomTask1	)
Call oCustomTask1_Trans_Sub15( oCustomTask1	)
Call oCustomTask1_Trans_Sub16( oCustomTask1	)
Call oCustomTask1_Trans_Sub17( oCustomTask1	)
Call oCustomTask1_Trans_Sub18( oCustomTask1	)
Call oCustomTask1_Trans_Sub19( oCustomTask1	)
Call oCustomTask1_Trans_Sub20( oCustomTask1	)
		
		
goPackage.Tasks.Add oTask
Set oCustomTask1 = Nothing
Set oTask = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub1(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__1"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("DATUM" , 1)
			oColumn.Name = "DATUM"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 135
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("DATUM" , 1)
			oColumn.Name = "DATUM"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 135
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub2(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__2"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("ROK" , 1)
			oColumn.Name = "ROK"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("ROK" , 1)
			oColumn.Name = "ROK"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub3(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__3"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("PULROK" , 1)
			oColumn.Name = "PULROK"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("PULROK" , 1)
			oColumn.Name = "PULROK"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub4(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__4"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("NAZEV_KVARTALU" , 1)
			oColumn.Name = "NAZEV_KVARTALU"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 20
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("NAZEV_KVARTALU" , 1)
			oColumn.Name = "NAZEV_KVARTALU"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 20
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub5(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__5"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("NAZEV_MESICE" , 1)
			oColumn.Name = "NAZEV_MESICE"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 20
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("NAZEV_MESICE" , 1)
			oColumn.Name = "NAZEV_MESICE"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 20
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub6(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__6"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("NAZEV_DNE" , 1)
			oColumn.Name = "NAZEV_DNE"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 20
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("NAZEV_DNE" , 1)
			oColumn.Name = "NAZEV_DNE"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 20
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub7(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__7"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("POR_KVARTALU" , 1)
			oColumn.Name = "POR_KVARTALU"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POR_KVARTALU" , 1)
			oColumn.Name = "POR_KVARTALU"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub8(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__8"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("POR_MESICE" , 1)
			oColumn.Name = "POR_MESICE"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POR_MESICE" , 1)
			oColumn.Name = "POR_MESICE"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub9(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__9"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("POR_MESICE_V_KVARTALU" , 1)
			oColumn.Name = "POR_MESICE_V_KVARTALU"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POR_MESICE_V_KVARTALU" , 1)
			oColumn.Name = "POR_MESICE_V_KVARTALU"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub10(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__10"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("POR_DEKADY" , 1)
			oColumn.Name = "POR_DEKADY"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POR_DEKADY" , 1)
			oColumn.Name = "POR_DEKADY"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub11(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__11"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("POR_DEKADY_V_KVARTALU" , 1)
			oColumn.Name = "POR_DEKADY_V_KVARTALU"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POR_DEKADY_V_KVARTALU" , 1)
			oColumn.Name = "POR_DEKADY_V_KVARTALU"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub12(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__12"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("POR_DEKADY_V_MESICI" , 1)
			oColumn.Name = "POR_DEKADY_V_MESICI"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POR_DEKADY_V_MESICI" , 1)
			oColumn.Name = "POR_DEKADY_V_MESICI"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub13(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__13"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("POR_TYDNE" , 1)
			oColumn.Name = "POR_TYDNE"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POR_TYDNE" , 1)
			oColumn.Name = "POR_TYDNE"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub14(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__14"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("POR_TYDNE_V_KVARTALU" , 1)
			oColumn.Name = "POR_TYDNE_V_KVARTALU"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POR_TYDNE_V_KVARTALU" , 1)
			oColumn.Name = "POR_TYDNE_V_KVARTALU"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub15(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__15"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("POR_TYDNE_V_MESICI" , 1)
			oColumn.Name = "POR_TYDNE_V_MESICI"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POR_TYDNE_V_MESICI" , 1)
			oColumn.Name = "POR_TYDNE_V_MESICI"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub16(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__16"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("POR_DNE" , 1)
			oColumn.Name = "POR_DNE"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POR_DNE" , 1)
			oColumn.Name = "POR_DNE"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub17(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__17"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("POR_DNE_V_KVARTALU" , 1)
			oColumn.Name = "POR_DNE_V_KVARTALU"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POR_DNE_V_KVARTALU" , 1)
			oColumn.Name = "POR_DNE_V_KVARTALU"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub18(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__18"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("POR_DNE_V_MESICI" , 1)
			oColumn.Name = "POR_DNE_V_MESICI"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POR_DNE_V_MESICI" , 1)
			oColumn.Name = "POR_DNE_V_MESICI"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub19(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__19"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("POR_DNE_V_DEKADE" , 1)
			oColumn.Name = "POR_DNE_V_DEKADE"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POR_DNE_V_DEKADE" , 1)
			oColumn.Name = "POR_DNE_V_DEKADE"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask1_Trans_Sub20(ByVal oCustomTask1 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask1.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__20"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("POR_DNE_V_TYDNU" , 1)
			oColumn.Name = "POR_DNE_V_TYDNU"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POR_DNE_V_TYDNU" , 1)
			oColumn.Name = "POR_DNE_V_TYDNU"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask1.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

'------------- define Task_Sub2 for task DTSTask_DTSDataPumpTask_2 (Spolecnost)
Public Sub Task_Sub2(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask2 As DTS.DataPumpTask2
Set oTask = goPackage.Tasks.New("DTSDataPumpTask")
Set oCustomTask2 = oTask.CustomTask

	oCustomTask2.Name = "DTSTask_DTSDataPumpTask_2"
	oCustomTask2.Description = "Spolecnost"
	oCustomTask2.SourceConnectionID = 9
	oCustomTask2.SourceSQLStatement = "select" & vbCrLf
	oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement & "  ID_SPOLECNOSTI, " & vbCrLf
	oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement & "  min(NAZEV_SPOL) as NAZEV_SPOL" & vbCrLf
	oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement & "from dbo.DWE_D_SPOLECNOST" & vbCrLf
	oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement & "group by ID_SPOLECNOSTI" & vbCrLf
	oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement & "union" & vbCrLf
	oCustomTask2.SourceSQLStatement = oCustomTask2.SourceSQLStatement & "select -1, 'Neznámá'"
	oCustomTask2.DestinationConnectionID = 10
	oCustomTask2.DestinationObjectName = "[xprim14].[xprim14].[DWE_D_SPOLECNOST]"
	oCustomTask2.ProgressRowCount = 1000
	oCustomTask2.MaximumErrorCount = 0
	oCustomTask2.FetchBufferSize = 1
	oCustomTask2.UseFastLoad = True
	oCustomTask2.InsertCommitSize = 0
	oCustomTask2.ExceptionFileColumnDelimiter = "|"
	oCustomTask2.ExceptionFileRowDelimiter = vbCrLf
	oCustomTask2.AllowIdentityInserts = False
	oCustomTask2.FirstRow = 0
	oCustomTask2.LastRow = 0
	oCustomTask2.FastLoadOptions = 2
	oCustomTask2.ExceptionFileOptions = 1
	oCustomTask2.DataPumpOptions = 0
	
Call oCustomTask2_Trans_Sub1( oCustomTask2	)
Call oCustomTask2_Trans_Sub2( oCustomTask2	)
		
		
goPackage.Tasks.Add oTask
Set oCustomTask2 = Nothing
Set oTask = Nothing

End Sub

Public Sub oCustomTask2_Trans_Sub1(ByVal oCustomTask2 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask2.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__1"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("ID_SPOLECNOSTI" , 1)
			oColumn.Name = "ID_SPOLECNOSTI"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 2
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("SPOLECNOST" , 1)
			oColumn.Name = "SPOLECNOST"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask2.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask2_Trans_Sub2(ByVal oCustomTask2 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask2.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__2"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("NAZEV_SPOL" , 1)
			oColumn.Name = "NAZEV_SPOL"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 50
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("NAZEV" , 1)
			oColumn.Name = "NAZEV"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 50
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask2.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

'------------- define Task_Sub3 for task DTSTask_DTSDataPumpTask_4 (Stredisko)
Public Sub Task_Sub3(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask3 As DTS.DataPumpTask2
Set oTask = goPackage.Tasks.New("DTSDataPumpTask")
Set oCustomTask3 = oTask.CustomTask

	oCustomTask3.Name = "DTSTask_DTSDataPumpTask_4"
	oCustomTask3.Description = "Stredisko"
	oCustomTask3.SourceConnectionID = 17
	oCustomTask3.SourceSQLStatement = "select " & vbCrLf
	oCustomTask3.SourceSQLStatement = oCustomTask3.SourceSQLStatement & "  id_strediska, " & vbCrLf
	oCustomTask3.SourceSQLStatement = oCustomTask3.SourceSQLStatement & "  'Støedisko '+cast(id_strediska as char) as popis" & vbCrLf
	oCustomTask3.SourceSQLStatement = oCustomTask3.SourceSQLStatement & "from dw_vstup_data.dbo.dwe_d_stredisko" & vbCrLf
	oCustomTask3.SourceSQLStatement = oCustomTask3.SourceSQLStatement & "group by id_strediska" & vbCrLf
	oCustomTask3.SourceSQLStatement = oCustomTask3.SourceSQLStatement & "union" & vbCrLf
	oCustomTask3.SourceSQLStatement = oCustomTask3.SourceSQLStatement & "select -1, 'Neznámé';"
	oCustomTask3.DestinationConnectionID = 18
	oCustomTask3.DestinationObjectName = "[xprim14].[xprim14].[DWE_D_STREDISKO]"
	oCustomTask3.ProgressRowCount = 1000
	oCustomTask3.MaximumErrorCount = 0
	oCustomTask3.FetchBufferSize = 1
	oCustomTask3.UseFastLoad = True
	oCustomTask3.InsertCommitSize = 0
	oCustomTask3.ExceptionFileColumnDelimiter = "|"
	oCustomTask3.ExceptionFileRowDelimiter = vbCrLf
	oCustomTask3.AllowIdentityInserts = False
	oCustomTask3.FirstRow = "0"
	oCustomTask3.LastRow = "0"
	oCustomTask3.FastLoadOptions = 2
	oCustomTask3.ExceptionFileOptions = 1
	oCustomTask3.DataPumpOptions = 0
	
Call oCustomTask3_Trans_Sub1( oCustomTask3	)
Call oCustomTask3_Trans_Sub2( oCustomTask3	)
		
		
goPackage.Tasks.Add oTask
Set oCustomTask3 = Nothing
Set oTask = Nothing

End Sub

Public Sub oCustomTask3_Trans_Sub1(ByVal oCustomTask3 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask3.Transformations.New("DTSPump.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__1"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("id_strediska" , 1)
			oColumn.Name = "id_strediska"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("STREDISKO" , 1)
			oColumn.Name = "STREDISKO"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask3.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask3_Trans_Sub2(ByVal oCustomTask3 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask3.Transformations.New("DTSPump.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__2"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("popis" , 1)
			oColumn.Name = "popis"
			oColumn.Ordinal = 1
			oColumn.Flags = 112
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("NAZEV" , 1)
			oColumn.Name = "NAZEV"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 50
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask3.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

'------------- define Task_Sub4 for task DTSTask_DTSDataPumpTask_5 (Typ transakce)
Public Sub Task_Sub4(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask4 As DTS.DataPumpTask2
Set oTask = goPackage.Tasks.New("DTSDataPumpTask")
Set oCustomTask4 = oTask.CustomTask

	oCustomTask4.Name = "DTSTask_DTSDataPumpTask_5"
	oCustomTask4.Description = "Typ transakce"
	oCustomTask4.SourceConnectionID = 19
	oCustomTask4.SourceSQLStatement = "select " & vbCrLf
	oCustomTask4.SourceSQLStatement = oCustomTask4.SourceSQLStatement & "  ID_TYPU_DOKLADU, " & vbCrLf
	oCustomTask4.SourceSQLStatement = oCustomTask4.SourceSQLStatement & "  min(NAZEV_TYPU_DOKLADU) as NAZEV_TYPU_DOKLADU, " & vbCrLf
	oCustomTask4.SourceSQLStatement = oCustomTask4.SourceSQLStatement & "  min(ID_SKUPINY) as ID_SKUPINY, " & vbCrLf
	oCustomTask4.SourceSQLStatement = oCustomTask4.SourceSQLStatement & "  min(SKUPINA) as SKUPINA" & vbCrLf
	oCustomTask4.SourceSQLStatement = oCustomTask4.SourceSQLStatement & "from dbo.DWE_D_TYP_DOKLADU" & vbCrLf
	oCustomTask4.SourceSQLStatement = oCustomTask4.SourceSQLStatement & "group by ID_TYPU_DOKLADU"
	oCustomTask4.DestinationConnectionID = 20
	oCustomTask4.DestinationObjectName = "[xprim14].[xprim14].[DWE_D_TYP_TRANSAKCE]"
	oCustomTask4.ProgressRowCount = 1000
	oCustomTask4.MaximumErrorCount = 0
	oCustomTask4.FetchBufferSize = 1
	oCustomTask4.UseFastLoad = True
	oCustomTask4.InsertCommitSize = 0
	oCustomTask4.ExceptionFileColumnDelimiter = "|"
	oCustomTask4.ExceptionFileRowDelimiter = vbCrLf
	oCustomTask4.AllowIdentityInserts = False
	oCustomTask4.FirstRow = 0
	oCustomTask4.LastRow = 0
	oCustomTask4.FastLoadOptions = 2
	oCustomTask4.ExceptionFileOptions = 1
	oCustomTask4.DataPumpOptions = 0
	
Call oCustomTask4_Trans_Sub1( oCustomTask4	)
Call oCustomTask4_Trans_Sub2( oCustomTask4	)
Call oCustomTask4_Trans_Sub3( oCustomTask4	)
Call oCustomTask4_Trans_Sub4( oCustomTask4	)
		
		
goPackage.Tasks.Add oTask
Set oCustomTask4 = Nothing
Set oTask = Nothing

End Sub

Public Sub oCustomTask4_Trans_Sub1(ByVal oCustomTask4 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask4.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__1"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("ID_TYPU_DOKLADU" , 1)
			oColumn.Name = "ID_TYPU_DOKLADU"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 2
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("TYP_TRANSAKCE" , 1)
			oColumn.Name = "TYP_TRANSAKCE"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 2
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask4.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask4_Trans_Sub2(ByVal oCustomTask4 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask4.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__2"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("NAZEV_TYPU_DOKLADU" , 1)
			oColumn.Name = "NAZEV_TYPU_DOKLADU"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 40
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("NAZEV" , 1)
			oColumn.Name = "NAZEV"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 50
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask4.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask4_Trans_Sub3(ByVal oCustomTask4 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask4.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__3"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("ID_SKUPINY" , 1)
			oColumn.Name = "ID_SKUPINY"
			oColumn.Ordinal = 1
			oColumn.Flags = 120
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("SKUPINA_TRANSAKCE" , 1)
			oColumn.Name = "SKUPINA_TRANSAKCE"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask4.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask4_Trans_Sub4(ByVal oCustomTask4 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask4.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__4"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("SKUPINA" , 1)
			oColumn.Name = "SKUPINA"
			oColumn.Ordinal = 1
			oColumn.Flags = 104
			oColumn.Size = 20
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("NAZEV_SKUPINY" , 1)
			oColumn.Name = "NAZEV_SKUPINY"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 100
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask4.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

'------------- define Task_Sub5 for task DTSTask_DTSExecuteSQLTask_2 (Partneri)
Public Sub Task_Sub5(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask5 As DTS.ExecuteSQLTask2
Set oTask = goPackage.Tasks.New("DTSExecuteSQLTask")
Set oCustomTask5 = oTask.CustomTask

	oCustomTask5.Name = "DTSTask_DTSExecuteSQLTask_2"
	oCustomTask5.Description = "Partneri"
	oCustomTask5.SQLStatement = "execute xprim14.partneri_import;"
	oCustomTask5.ConnectionID = 2
	oCustomTask5.CommandTimeout = 0
	oCustomTask5.OutputAsRecordset = False
	
goPackage.Tasks.Add oTask
Set oCustomTask5 = Nothing
Set oTask = Nothing

End Sub

'------------- define Task_Sub6 for task DTSTask_DTSExecuteSQLTask_1 (Vymaz)
Public Sub Task_Sub6(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask6 As DTS.ExecuteSQLTask2
Set oTask = goPackage.Tasks.New("DTSExecuteSQLTask")
Set oCustomTask6 = oTask.CustomTask

	oCustomTask6.Name = "DTSTask_DTSExecuteSQLTask_1"
	oCustomTask6.Description = "Vymaz"
	oCustomTask6.SQLStatement = "delete xprim14.xprim14.dwe_f;" & vbCrLf
	oCustomTask6.SQLStatement = oCustomTask6.SQLStatement & "delete xprim14.xprim14.dwe_c_datum;" & vbCrLf
	oCustomTask6.SQLStatement = oCustomTask6.SQLStatement & "delete xprim14.xprim14.dwe_d_spoluprace;" & vbCrLf
	oCustomTask6.SQLStatement = oCustomTask6.SQLStatement & "delete xprim14.xprim14.dwe_d_cinnost;" & vbCrLf
	oCustomTask6.SQLStatement = oCustomTask6.SQLStatement & "delete xprim14.xprim14.dwe_d_stredisko;" & vbCrLf
	oCustomTask6.SQLStatement = oCustomTask6.SQLStatement & "delete xprim14.xprim14.dwe_d_spolecnost;" & vbCrLf
	oCustomTask6.SQLStatement = oCustomTask6.SQLStatement & "delete xprim14.xprim14.dwe_d_typ_transakce;" & vbCrLf
	oCustomTask6.SQLStatement = oCustomTask6.SQLStatement & "delete xprim14.xprim14.dwe_d_partner;" & vbCrLf
	oCustomTask6.SQLStatement = oCustomTask6.SQLStatement & "delete xprim14.xprim14.dwe_d_okres;" & vbCrLf
	oCustomTask6.SQLStatement = oCustomTask6.SQLStatement & "delete xprim14.xprim14.dwe_d_kraj;" & vbCrLf
	oCustomTask6.SQLStatement = oCustomTask6.SQLStatement & "delete xprim14.xprim14.dwe_d_stat;" & vbCrLf
	oCustomTask6.SQLStatement = oCustomTask6.SQLStatement & "delete xprim14.xprim14.dwe_osnova;" & vbCrLf
	oCustomTask6.SQLStatement = oCustomTask6.SQLStatement & "delete xprim14.xprim14.dwe_syntetika;" & vbCrLf
	oCustomTask6.SQLStatement = oCustomTask6.SQLStatement & "delete xprim14.xprim14.dwe_skupina;" & vbCrLf
	oCustomTask6.SQLStatement = oCustomTask6.SQLStatement & "delete xprim14.xprim14.dwe_trida;"
	oCustomTask6.ConnectionID = 2
	oCustomTask6.CommandTimeout = 0
	oCustomTask6.OutputAsRecordset = False
	
goPackage.Tasks.Add oTask
Set oCustomTask6 = Nothing
Set oTask = Nothing

End Sub

'------------- define Task_Sub7 for task DTSTask_DTSDataPumpTask_6 (Trida)
Public Sub Task_Sub7(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask7 As DTS.DataPumpTask2
Set oTask = goPackage.Tasks.New("DTSDataPumpTask")
Set oCustomTask7 = oTask.CustomTask

	oCustomTask7.Name = "DTSTask_DTSDataPumpTask_6"
	oCustomTask7.Description = "Trida"
	oCustomTask7.SourceConnectionID = 28
	oCustomTask7.SourceSQLStatement = "select" & vbCrLf
	oCustomTask7.SourceSQLStatement = oCustomTask7.SourceSQLStatement & "  TRIDA, " & vbCrLf
	oCustomTask7.SourceSQLStatement = oCustomTask7.SourceSQLStatement & "  min(NAZEV_TRIDY) as NAZEV_TRIDY" & vbCrLf
	oCustomTask7.SourceSQLStatement = oCustomTask7.SourceSQLStatement & "from dbo.DWE_TRIDY" & vbCrLf
	oCustomTask7.SourceSQLStatement = oCustomTask7.SourceSQLStatement & "group by TRIDA"
	oCustomTask7.DestinationConnectionID = 21
	oCustomTask7.DestinationObjectName = "[xprim14].[xprim14].[DWE_TRIDA]"
	oCustomTask7.ProgressRowCount = 1000
	oCustomTask7.MaximumErrorCount = 0
	oCustomTask7.FetchBufferSize = 1
	oCustomTask7.UseFastLoad = True
	oCustomTask7.InsertCommitSize = 0
	oCustomTask7.ExceptionFileColumnDelimiter = "|"
	oCustomTask7.ExceptionFileRowDelimiter = vbCrLf
	oCustomTask7.AllowIdentityInserts = False
	oCustomTask7.FirstRow = "0"
	oCustomTask7.LastRow = "0"
	oCustomTask7.FastLoadOptions = 2
	oCustomTask7.ExceptionFileOptions = 1
	oCustomTask7.DataPumpOptions = 0
	
Call oCustomTask7_Trans_Sub1( oCustomTask7	)
Call oCustomTask7_Trans_Sub2( oCustomTask7	)
		
		
goPackage.Tasks.Add oTask
Set oCustomTask7 = Nothing
Set oTask = Nothing

End Sub

Public Sub oCustomTask7_Trans_Sub1(ByVal oCustomTask7 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask7.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__1"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("TRIDA" , 1)
			oColumn.Name = "TRIDA"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 1
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("TRIDA" , 1)
			oColumn.Name = "TRIDA"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask7.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask7_Trans_Sub2(ByVal oCustomTask7 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask7.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__2"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("NAZEV_TRIDY" , 1)
			oColumn.Name = "NAZEV_TRIDY"
			oColumn.Ordinal = 1
			oColumn.Flags = 96
			oColumn.Size = 100
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("NAZEV" , 1)
			oColumn.Name = "NAZEV"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 50
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask7.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

'------------- define Task_Sub8 for task DTSTask_DTSDataPumpTask_7 (Skupina)
Public Sub Task_Sub8(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask8 As DTS.DataPumpTask2
Set oTask = goPackage.Tasks.New("DTSDataPumpTask")
Set oCustomTask8 = oTask.CustomTask

	oCustomTask8.Name = "DTSTask_DTSDataPumpTask_7"
	oCustomTask8.Description = "Skupina"
	oCustomTask8.SourceConnectionID = 32
	oCustomTask8.SourceSQLStatement = "select" & vbCrLf
	oCustomTask8.SourceSQLStatement = oCustomTask8.SourceSQLStatement & "  SKUPINA, " & vbCrLf
	oCustomTask8.SourceSQLStatement = oCustomTask8.SourceSQLStatement & "  min(TRIDA) as TRIDA, " & vbCrLf
	oCustomTask8.SourceSQLStatement = oCustomTask8.SourceSQLStatement & "  min(NAZEV_SKUPINY) as NAZEV_SKUPINY" & vbCrLf
	oCustomTask8.SourceSQLStatement = oCustomTask8.SourceSQLStatement & "from dbo.DWE_SKUPINY" & vbCrLf
	oCustomTask8.SourceSQLStatement = oCustomTask8.SourceSQLStatement & "group by SKUPINA"
	oCustomTask8.DestinationConnectionID = 25
	oCustomTask8.DestinationObjectName = "[xprim14].[xprim14].[DWE_SKUPINA]"
	oCustomTask8.ProgressRowCount = 1000
	oCustomTask8.MaximumErrorCount = 0
	oCustomTask8.FetchBufferSize = 1
	oCustomTask8.UseFastLoad = True
	oCustomTask8.InsertCommitSize = 0
	oCustomTask8.ExceptionFileColumnDelimiter = "|"
	oCustomTask8.ExceptionFileRowDelimiter = vbCrLf
	oCustomTask8.AllowIdentityInserts = False
	oCustomTask8.FirstRow = 0
	oCustomTask8.LastRow = 0
	oCustomTask8.FastLoadOptions = 2
	oCustomTask8.ExceptionFileOptions = 1
	oCustomTask8.DataPumpOptions = 0
	
Call oCustomTask8_Trans_Sub1( oCustomTask8	)
Call oCustomTask8_Trans_Sub2( oCustomTask8	)
Call oCustomTask8_Trans_Sub3( oCustomTask8	)
		
		
goPackage.Tasks.Add oTask
Set oCustomTask8 = Nothing
Set oTask = Nothing

End Sub

Public Sub oCustomTask8_Trans_Sub1(ByVal oCustomTask8 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask8.Transformations.New("DTSPump.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__1"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("SKUPINA" , 1)
			oColumn.Name = "SKUPINA"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 2
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("SKUPINA" , 1)
			oColumn.Name = "SKUPINA"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask8.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask8_Trans_Sub2(ByVal oCustomTask8 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask8.Transformations.New("DTSPump.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__2"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("TRIDA" , 1)
			oColumn.Name = "TRIDA"
			oColumn.Ordinal = 1
			oColumn.Flags = 96
			oColumn.Size = 1
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("TRIDA" , 1)
			oColumn.Name = "TRIDA"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask8.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask8_Trans_Sub3(ByVal oCustomTask8 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask8.Transformations.New("DTSPump.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__3"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("NAZEV_SKUPINY" , 1)
			oColumn.Name = "NAZEV_SKUPINY"
			oColumn.Ordinal = 1
			oColumn.Flags = 96
			oColumn.Size = 100
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("NAZEV" , 1)
			oColumn.Name = "NAZEV"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 50
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask8.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

'------------- define Task_Sub9 for task DTSTask_DTSDataPumpTask_8 (Syntetika)
Public Sub Task_Sub9(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask9 As DTS.DataPumpTask2
Set oTask = goPackage.Tasks.New("DTSDataPumpTask")
Set oCustomTask9 = oTask.CustomTask

	oCustomTask9.Name = "DTSTask_DTSDataPumpTask_8"
	oCustomTask9.Description = "Syntetika"
	oCustomTask9.SourceConnectionID = 33
	oCustomTask9.SourceSQLStatement = "select" & vbCrLf
	oCustomTask9.SourceSQLStatement = oCustomTask9.SourceSQLStatement & "  SYNTETIKA, " & vbCrLf
	oCustomTask9.SourceSQLStatement = oCustomTask9.SourceSQLStatement & "  min(SKUPINA) as SKUPINA,  " & vbCrLf
	oCustomTask9.SourceSQLStatement = oCustomTask9.SourceSQLStatement & "  min(NAZEV_SYNTETIKY) as NAZEV_SYNTETIKY" & vbCrLf
	oCustomTask9.SourceSQLStatement = oCustomTask9.SourceSQLStatement & "from dbo.DWE_SYNTETIKY" & vbCrLf
	oCustomTask9.SourceSQLStatement = oCustomTask9.SourceSQLStatement & "group by SYNTETIKA"
	oCustomTask9.DestinationConnectionID = 26
	oCustomTask9.DestinationObjectName = "[xprim14].[xprim14].[DWE_SYNTETIKA]"
	oCustomTask9.ProgressRowCount = 1000
	oCustomTask9.MaximumErrorCount = 0
	oCustomTask9.FetchBufferSize = 1
	oCustomTask9.UseFastLoad = True
	oCustomTask9.InsertCommitSize = 0
	oCustomTask9.ExceptionFileColumnDelimiter = "|"
	oCustomTask9.ExceptionFileRowDelimiter = vbCrLf
	oCustomTask9.AllowIdentityInserts = False
	oCustomTask9.FirstRow = 0
	oCustomTask9.LastRow = 0
	oCustomTask9.FastLoadOptions = 2
	oCustomTask9.ExceptionFileOptions = 1
	oCustomTask9.DataPumpOptions = 0
	
Call oCustomTask9_Trans_Sub1( oCustomTask9	)
Call oCustomTask9_Trans_Sub2( oCustomTask9	)
Call oCustomTask9_Trans_Sub3( oCustomTask9	)
		
		
goPackage.Tasks.Add oTask
Set oCustomTask9 = Nothing
Set oTask = Nothing

End Sub

Public Sub oCustomTask9_Trans_Sub1(ByVal oCustomTask9 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask9.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__1"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("SYNTETIKA" , 1)
			oColumn.Name = "SYNTETIKA"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 3
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("SYNTETIKA" , 1)
			oColumn.Name = "SYNTETIKA"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask9.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask9_Trans_Sub2(ByVal oCustomTask9 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask9.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__2"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("SKUPINA" , 1)
			oColumn.Name = "SKUPINA"
			oColumn.Ordinal = 1
			oColumn.Flags = 96
			oColumn.Size = 2
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("SKUPINA" , 1)
			oColumn.Name = "SKUPINA"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask9.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask9_Trans_Sub3(ByVal oCustomTask9 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask9.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__3"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("NAZEV_SYNTETIKY" , 1)
			oColumn.Name = "NAZEV_SYNTETIKY"
			oColumn.Ordinal = 1
			oColumn.Flags = 96
			oColumn.Size = 100
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("NAZEV" , 1)
			oColumn.Name = "NAZEV"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 50
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask9.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

'------------- define Task_Sub10 for task DTSTask_DTSDataPumpTask_9 (Analytika)
Public Sub Task_Sub10(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask10 As DTS.DataPumpTask2
Set oTask = goPackage.Tasks.New("DTSDataPumpTask")
Set oCustomTask10 = oTask.CustomTask

	oCustomTask10.Name = "DTSTask_DTSDataPumpTask_9"
	oCustomTask10.Description = "Analytika"
	oCustomTask10.SourceConnectionID = 34
	oCustomTask10.SourceSQLStatement = "select" & vbCrLf
	oCustomTask10.SourceSQLStatement = oCustomTask10.SourceSQLStatement & "  ANALYTIKA, " & vbCrLf
	oCustomTask10.SourceSQLStatement = oCustomTask10.SourceSQLStatement & "  min(SYNTETIKA) as SYNTETIKA, " & vbCrLf
	oCustomTask10.SourceSQLStatement = oCustomTask10.SourceSQLStatement & "  min(NAZEV_ANALYTIKY) as NAZEV_ANALYTIKY, " & vbCrLf
	oCustomTask10.SourceSQLStatement = oCustomTask10.SourceSQLStatement & "  min(POVAHA_UCTU) as POVAHA_UCTU" & vbCrLf
	oCustomTask10.SourceSQLStatement = oCustomTask10.SourceSQLStatement & "from dbo.DWE_OSNOVA" & vbCrLf
	oCustomTask10.SourceSQLStatement = oCustomTask10.SourceSQLStatement & "group by ANALYTIKA"
	oCustomTask10.DestinationConnectionID = 27
	oCustomTask10.DestinationObjectName = "[xprim14].[xprim14].[DWE_OSNOVA]"
	oCustomTask10.ProgressRowCount = 1000
	oCustomTask10.MaximumErrorCount = 0
	oCustomTask10.FetchBufferSize = 1
	oCustomTask10.UseFastLoad = True
	oCustomTask10.InsertCommitSize = 0
	oCustomTask10.ExceptionFileColumnDelimiter = "|"
	oCustomTask10.ExceptionFileRowDelimiter = vbCrLf
	oCustomTask10.AllowIdentityInserts = False
	oCustomTask10.FirstRow = 0
	oCustomTask10.LastRow = 0
	oCustomTask10.FastLoadOptions = 2
	oCustomTask10.ExceptionFileOptions = 1
	oCustomTask10.DataPumpOptions = 0
	
Call oCustomTask10_Trans_Sub1( oCustomTask10	)
Call oCustomTask10_Trans_Sub2( oCustomTask10	)
Call oCustomTask10_Trans_Sub3( oCustomTask10	)
Call oCustomTask10_Trans_Sub4( oCustomTask10	)
		
		
goPackage.Tasks.Add oTask
Set oCustomTask10 = Nothing
Set oTask = Nothing

End Sub

Public Sub oCustomTask10_Trans_Sub1(ByVal oCustomTask10 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask10.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__1"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("ANALYTIKA" , 1)
			oColumn.Name = "ANALYTIKA"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 10
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("ANALYTIKA" , 1)
			oColumn.Name = "ANALYTIKA"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 10
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask10.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask10_Trans_Sub2(ByVal oCustomTask10 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask10.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__2"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("SYNTETIKA" , 1)
			oColumn.Name = "SYNTETIKA"
			oColumn.Ordinal = 1
			oColumn.Flags = 96
			oColumn.Size = 3
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("SYNTETIKA" , 1)
			oColumn.Name = "SYNTETIKA"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask10.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask10_Trans_Sub3(ByVal oCustomTask10 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask10.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__3"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("POVAHA_UCTU" , 1)
			oColumn.Name = "POVAHA_UCTU"
			oColumn.Ordinal = 1
			oColumn.Flags = 96
			oColumn.Size = 1
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POVAHA_UCTU" , 1)
			oColumn.Name = "POVAHA_UCTU"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask10.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask10_Trans_Sub4(ByVal oCustomTask10 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask10.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__4"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("NAZEV_ANALYTIKY" , 1)
			oColumn.Name = "NAZEV_ANALYTIKY"
			oColumn.Ordinal = 1
			oColumn.Flags = 96
			oColumn.Size = 100
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("NAZEV" , 1)
			oColumn.Name = "NAZEV"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 50
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask10.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

'------------- define Task_Sub11 for task DTSTask_DTSDataPumpTask_10 (Cinnost)
Public Sub Task_Sub11(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask11 As DTS.DataPumpTask2
Set oTask = goPackage.Tasks.New("DTSDataPumpTask")
Set oCustomTask11 = oTask.CustomTask

	oCustomTask11.Name = "DTSTask_DTSDataPumpTask_10"
	oCustomTask11.Description = "Cinnost"
	oCustomTask11.SourceConnectionID = 11
	oCustomTask11.SourceSQLStatement = "select " & vbCrLf
	oCustomTask11.SourceSQLStatement = oCustomTask11.SourceSQLStatement & "  id_cinnosti, " & vbCrLf
	oCustomTask11.SourceSQLStatement = oCustomTask11.SourceSQLStatement & "  min(id_useku_cin) as id_useku_cin, " & vbCrLf
	oCustomTask11.SourceSQLStatement = oCustomTask11.SourceSQLStatement & "  'Èinnost '+id_cinnosti as popis" & vbCrLf
	oCustomTask11.SourceSQLStatement = oCustomTask11.SourceSQLStatement & "from dw_vstup_data.dbo.dwe_d_cinnost" & vbCrLf
	oCustomTask11.SourceSQLStatement = oCustomTask11.SourceSQLStatement & "group by id_cinnosti" & vbCrLf
	oCustomTask11.SourceSQLStatement = oCustomTask11.SourceSQLStatement & "union" & vbCrLf
	oCustomTask11.SourceSQLStatement = oCustomTask11.SourceSQLStatement & "select '?', -1, 'Neznámá'"
	oCustomTask11.DestinationConnectionID = 12
	oCustomTask11.DestinationObjectName = "[xprim14].[xprim14].[DWE_D_CINNOST]"
	oCustomTask11.ProgressRowCount = 1000
	oCustomTask11.MaximumErrorCount = 0
	oCustomTask11.FetchBufferSize = 1
	oCustomTask11.UseFastLoad = True
	oCustomTask11.InsertCommitSize = 0
	oCustomTask11.ExceptionFileColumnDelimiter = "|"
	oCustomTask11.ExceptionFileRowDelimiter = vbCrLf
	oCustomTask11.AllowIdentityInserts = False
	oCustomTask11.FirstRow = 0
	oCustomTask11.LastRow = 0
	oCustomTask11.FastLoadOptions = 2
	oCustomTask11.ExceptionFileOptions = 1
	oCustomTask11.DataPumpOptions = 0
	
Call oCustomTask11_Trans_Sub1( oCustomTask11	)
Call oCustomTask11_Trans_Sub2( oCustomTask11	)
Call oCustomTask11_Trans_Sub3( oCustomTask11	)
		
		
goPackage.Tasks.Add oTask
Set oCustomTask11 = Nothing
Set oTask = Nothing

End Sub

Public Sub oCustomTask11_Trans_Sub1(ByVal oCustomTask11 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask11.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__1"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("id_cinnosti" , 1)
			oColumn.Name = "id_cinnosti"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 3
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("CINNOST" , 1)
			oColumn.Name = "CINNOST"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 3
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask11.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask11_Trans_Sub2(ByVal oCustomTask11 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask11.Transformations.New("DTSPump.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__2"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("popis" , 1)
			oColumn.Name = "popis"
			oColumn.Ordinal = 1
			oColumn.Flags = 0
			oColumn.Size = 11
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("POPIS" , 1)
			oColumn.Name = "POPIS"
			oColumn.Ordinal = 1
			oColumn.Flags = 8
			oColumn.Size = 50
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask11.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask11_Trans_Sub3(ByVal oCustomTask11 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask11.Transformations.New("DTSPump.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__3"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("id_useku_cin" , 1)
			oColumn.Name = "id_useku_cin"
			oColumn.Ordinal = 1
			oColumn.Flags = 112
			oColumn.Size = 0
			oColumn.DataType = 2
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("USEK_CINNOSTI" , 1)
			oColumn.Name = "USEK_CINNOSTI"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask11.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

'------------- define Task_Sub12 for task DTSTask_DTSExecuteSQLTask_3 (Spoluprace)
Public Sub Task_Sub12(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask12 As DTS.ExecuteSQLTask2
Set oTask = goPackage.Tasks.New("DTSExecuteSQLTask")
Set oCustomTask12 = oTask.CustomTask

	oCustomTask12.Name = "DTSTask_DTSExecuteSQLTask_3"
	oCustomTask12.Description = "Spoluprace"
	oCustomTask12.SQLStatement = "execute xprim14.spoluprace_vytvor;"
	oCustomTask12.ConnectionID = 2
	oCustomTask12.CommandTimeout = 0
	oCustomTask12.OutputAsRecordset = False
	
goPackage.Tasks.Add oTask
Set oCustomTask12 = Nothing
Set oTask = Nothing

End Sub

'------------- define Task_Sub13 for task DTSTask_DTSExecuteSQLTask_5 (Typ tran. - dopln)
Public Sub Task_Sub13(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask13 As DTS.ExecuteSQLTask2
Set oTask = goPackage.Tasks.New("DTSExecuteSQLTask")
Set oCustomTask13 = oTask.CustomTask

	oCustomTask13.Name = "DTSTask_DTSExecuteSQLTask_5"
	oCustomTask13.Description = "Typ tran. - dopln"
	oCustomTask13.SQLStatement = "execute xprim14.typ_transakce_dopln;"
	oCustomTask13.ConnectionID = 2
	oCustomTask13.CommandTimeout = 0
	oCustomTask13.OutputAsRecordset = False
	
goPackage.Tasks.Add oTask
Set oCustomTask13 = Nothing
Set oTask = Nothing

End Sub

'------------- define Task_Sub14 for task DTSTask_DTSExecuteSQLTask_6 (Partneri - dopln)
Public Sub Task_Sub14(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask14 As DTS.ExecuteSQLTask2
Set oTask = goPackage.Tasks.New("DTSExecuteSQLTask")
Set oCustomTask14 = oTask.CustomTask

	oCustomTask14.Name = "DTSTask_DTSExecuteSQLTask_6"
	oCustomTask14.Description = "Partneri - dopln"
	oCustomTask14.SQLStatement = "execute xprim14.partneri_dopln"
	oCustomTask14.ConnectionID = 2
	oCustomTask14.CommandTimeout = 0
	oCustomTask14.OutputAsRecordset = False
	
goPackage.Tasks.Add oTask
Set oCustomTask14 = Nothing
Set oTask = Nothing

End Sub

'------------- define Task_Sub15 for task DTSTask_DTSDataPumpTask_3 (Fakttabulka)
Public Sub Task_Sub15(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask15 As DTS.DataPumpTask2
Set oTask = goPackage.Tasks.New("DTSDataPumpTask")
Set oCustomTask15 = oTask.CustomTask

	oCustomTask15.Name = "DTSTask_DTSDataPumpTask_3"
	oCustomTask15.Description = "Fakttabulka"
	oCustomTask15.SourceConnectionID = 42
	oCustomTask15.SourceSQLStatement = "select " & vbCrLf
	oCustomTask15.SourceSQLStatement = oCustomTask15.SourceSQLStatement & "  s.spoluprace, i.analytika, " & vbCrLf
	oCustomTask15.SourceSQLStatement = oCustomTask15.SourceSQLStatement & "  cast(substring(cast(i.cas as char), 1, 4)+'/'+substring(cast(i.cas as char), 5, 2)+'/'+substring(cast(i.cas as char), 7, 2) as datetime) as datum, " & vbCrLf
	oCustomTask15.SourceSQLStatement = oCustomTask15.SourceSQLStatement & "  i.ico as partner, i.typ_tran as typ_transakce, i.zdroj_tran, i.cislo_dokladu, i.radek_dokladu, " & vbCrLf
	oCustomTask15.SourceSQLStatement = oCustomTask15.SourceSQLStatement & "  i.md, i.dal, i.dal-i.md as obrat" & vbCrLf
	oCustomTask15.SourceSQLStatement = oCustomTask15.SourceSQLStatement & "from " & vbCrLf
	oCustomTask15.SourceSQLStatement = oCustomTask15.SourceSQLStatement & "  dw_vstup_data.dbo.dwe_import i, xprim14.xprim14.dwe_d_spoluprace s" & vbCrLf
	oCustomTask15.SourceSQLStatement = oCustomTask15.SourceSQLStatement & "where " & vbCrLf
	oCustomTask15.SourceSQLStatement = oCustomTask15.SourceSQLStatement & "  cast(replace(i.spolecnost, '?', -1) as int) = s.spolecnost and " & vbCrLf
	oCustomTask15.SourceSQLStatement = oCustomTask15.SourceSQLStatement & "  i.cinnost = s.cinnost and " & vbCrLf
	oCustomTask15.SourceSQLStatement = oCustomTask15.SourceSQLStatement & "  cast(replace(i.stredisko, '?', -1) as int) = s.stredisko;"
	oCustomTask15.DestinationConnectionID = 43
	oCustomTask15.DestinationObjectName = "[xprim14].[xprim14].[DWE_F]"
	oCustomTask15.ProgressRowCount = 1000
	oCustomTask15.MaximumErrorCount = 0
	oCustomTask15.FetchBufferSize = 1
	oCustomTask15.UseFastLoad = True
	oCustomTask15.InsertCommitSize = 0
	oCustomTask15.ExceptionFileColumnDelimiter = "|"
	oCustomTask15.ExceptionFileRowDelimiter = vbCrLf
	oCustomTask15.AllowIdentityInserts = False
	oCustomTask15.FirstRow = 0
	oCustomTask15.LastRow = 0
	oCustomTask15.FastLoadOptions = 2
	oCustomTask15.ExceptionFileOptions = 1
	oCustomTask15.DataPumpOptions = 0
	
Call oCustomTask15_Trans_Sub1( oCustomTask15	)
Call oCustomTask15_Trans_Sub2( oCustomTask15	)
Call oCustomTask15_Trans_Sub3( oCustomTask15	)
Call oCustomTask15_Trans_Sub4( oCustomTask15	)
Call oCustomTask15_Trans_Sub5( oCustomTask15	)
Call oCustomTask15_Trans_Sub6( oCustomTask15	)
Call oCustomTask15_Trans_Sub7( oCustomTask15	)
Call oCustomTask15_Trans_Sub8( oCustomTask15	)
Call oCustomTask15_Trans_Sub9( oCustomTask15	)
Call oCustomTask15_Trans_Sub10( oCustomTask15	)
Call oCustomTask15_Trans_Sub11( oCustomTask15	)
		
		
goPackage.Tasks.Add oTask
Set oCustomTask15 = Nothing
Set oTask = Nothing

End Sub

Public Sub oCustomTask15_Trans_Sub1(ByVal oCustomTask15 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask15.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__1"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("spoluprace" , 1)
			oColumn.Name = "spoluprace"
			oColumn.Ordinal = 1
			oColumn.Flags = 32784
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("SPOLUPRACE" , 1)
			oColumn.Name = "SPOLUPRACE"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask15.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask15_Trans_Sub2(ByVal oCustomTask15 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask15.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__2"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("analytika" , 1)
			oColumn.Name = "analytika"
			oColumn.Ordinal = 1
			oColumn.Flags = 104
			oColumn.Size = 10
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("ANALYTIKA" , 1)
			oColumn.Name = "ANALYTIKA"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 10
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask15.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask15_Trans_Sub3(ByVal oCustomTask15 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask15.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__3"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("datum" , 1)
			oColumn.Name = "datum"
			oColumn.Ordinal = 1
			oColumn.Flags = 120
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("DATUM" , 1)
			oColumn.Name = "DATUM"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 135
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask15.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask15_Trans_Sub4(ByVal oCustomTask15 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask15.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__4"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("partner" , 1)
			oColumn.Name = "partner"
			oColumn.Ordinal = 1
			oColumn.Flags = 104
			oColumn.Size = 255
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("PARTNER" , 1)
			oColumn.Name = "PARTNER"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 8
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask15.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask15_Trans_Sub5(ByVal oCustomTask15 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask15.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__5"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("typ_transakce" , 1)
			oColumn.Name = "typ_transakce"
			oColumn.Ordinal = 1
			oColumn.Flags = 104
			oColumn.Size = 2
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("TYP_TRANSAKCE" , 1)
			oColumn.Name = "TYP_TRANSAKCE"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 2
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask15.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask15_Trans_Sub6(ByVal oCustomTask15 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask15.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__6"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("zdroj_tran" , 1)
			oColumn.Name = "zdroj_tran"
			oColumn.Ordinal = 1
			oColumn.Flags = 104
			oColumn.Size = 1
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("ZDROJ_TRAN" , 1)
			oColumn.Name = "ZDROJ_TRAN"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 1
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask15.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask15_Trans_Sub7(ByVal oCustomTask15 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask15.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__7"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("cislo_dokladu" , 1)
			oColumn.Name = "cislo_dokladu"
			oColumn.Ordinal = 1
			oColumn.Flags = 104
			oColumn.Size = 8
			oColumn.DataType = 130
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("CISLO_DOKLADU" , 1)
			oColumn.Name = "CISLO_DOKLADU"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 8
			oColumn.DataType = 129
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask15.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask15_Trans_Sub8(ByVal oCustomTask15 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask15.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__8"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("radek_dokladu" , 1)
			oColumn.Name = "radek_dokladu"
			oColumn.Ordinal = 1
			oColumn.Flags = 120
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("RADEK_DOKLADU" , 1)
			oColumn.Name = "RADEK_DOKLADU"
			oColumn.Ordinal = 1
			oColumn.Flags = 120
			oColumn.Size = 0
			oColumn.DataType = 3
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask15.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask15_Trans_Sub9(ByVal oCustomTask15 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask15.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__11"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("md" , 1)
			oColumn.Name = "md"
			oColumn.Ordinal = 1
			oColumn.Flags = 120
			oColumn.Size = 0
			oColumn.DataType = 6
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("MD" , 1)
			oColumn.Name = "MD"
			oColumn.Ordinal = 1
			oColumn.Flags = 120
			oColumn.Size = 0
			oColumn.DataType = 6
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask15.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask15_Trans_Sub10(ByVal oCustomTask15 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask15.Transformations.New("DTS.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__12"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("dal" , 1)
			oColumn.Name = "dal"
			oColumn.Ordinal = 1
			oColumn.Flags = 120
			oColumn.Size = 0
			oColumn.DataType = 6
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("DAL" , 1)
			oColumn.Name = "DAL"
			oColumn.Ordinal = 1
			oColumn.Flags = 120
			oColumn.Size = 0
			oColumn.DataType = 6
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask15.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

Public Sub oCustomTask15_Trans_Sub11(ByVal oCustomTask15 As Object)

	Dim oTransformation As DTS.Transformation2
	Dim oTransProps as DTS.Properties
	Dim oColumn As DTS.Column
	Set oTransformation = oCustomTask15.Transformations.New("DTSPump.DataPumpTransformCopy")
		oTransformation.Name = "DTSTransformation__9"
		oTransformation.TransformFlags = 63
		oTransformation.ForceSourceBlobsBuffered = 0
		oTransformation.ForceBlobsInMemory = False
		oTransformation.InMemoryBlobSize = 1048576
		oTransformation.TransformPhases = 4
		
		Set oColumn = oTransformation.SourceColumns.New("obrat" , 1)
			oColumn.Name = "obrat"
			oColumn.Ordinal = 1
			oColumn.Flags = 112
			oColumn.Size = 0
			oColumn.DataType = 6
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = True
			
		oTransformation.SourceColumns.Add oColumn
		Set oColumn = Nothing

		Set oColumn = oTransformation.DestinationColumns.New("OBRAT" , 1)
			oColumn.Name = "OBRAT"
			oColumn.Ordinal = 1
			oColumn.Flags = 24
			oColumn.Size = 0
			oColumn.DataType = 6
			oColumn.Precision = 0
			oColumn.NumericScale = 0
			oColumn.Nullable = False
			
		oTransformation.DestinationColumns.Add oColumn
		Set oColumn = Nothing

	Set oTransProps = oTransformation.TransformServerProperties

		
	Set oTransProps = Nothing

	oCustomTask15.Transformations.Add oTransformation
	Set oTransformation = Nothing

End Sub

