' Microsoft SQL Server Integration Services user script component 
' This is your new script component in Microsoft Visual Basic .NET 
' ScriptMain is the entrypoint class for script components 


Imports System 
Imports System.Data 
Imports System.Math 
Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper 
Imports Microsoft.SqlServer.Dts.Runtime.Wrapper 
  

Public Class ScriptMain 
    Inherits UserComponent 
  
    Dim seq As Integer 
    Dim AccumQty As Integer 
  
  
    Public Sub New() 
        seq = 0 
        AccumQty = 0 
  
    End Sub 
  
    Public Overrides Sub 입력0_ProcessInputRow(ByVal Row As 입력Buffer) 
        ' 
        ' Add your code here 
        ' 
        '일련번호
        seq += 1 
        Row.Seq = seq 

        '누적
        AccumQty = AccumQty + Row.Quantity 
        Row.AccumQuantity = AccumQty 
  
    End Sub 
  
End Class