ds_cailiaofukuan.vb

本软件设计为在"采购部""工程部""财务部""总经理"等部门之间的采购审核流转等事宜

        Friend ReadOnly Property 开户银行Column As DataColumn
            Get
                Return Me.column开户银行
            End Get
        End Property
        
        Friend ReadOnly Property 银行帐号Column As DataColumn
            Get
                Return Me.column银行帐号
            End Get
        End Property
        
        Friend ReadOnly Property 付款依据Column As DataColumn
            Get
                Return Me.column付款依据
            End Get
        End Property
        
        Friend ReadOnly Property 付款方式Column As DataColumn
            Get
                Return Me.column付款方式
            End Get
        End Property
        
        Friend ReadOnly Property 合同金额Column As DataColumn
            Get
                Return Me.column合同金额
            End Get
        End Property
        
        Friend ReadOnly Property 已付金额Column As DataColumn
            Get
                Return Me.column已付金额
            End Get
        End Property
        
        Friend ReadOnly Property 本次申请金额Column As DataColumn
            Get
                Return Me.column本次申请金额
            End Get
        End Property
        
        Friend ReadOnly Property 余额Column As DataColumn
            Get
                Return Me.column余额
            End Get
        End Property
        
        Friend ReadOnly Property 付款说明Column As DataColumn
            Get
                Return Me.column付款说明
            End Get
        End Property
        
        Friend ReadOnly Property 备注Column As DataColumn
            Get
                Return Me.column备注
            End Get
        End Property
        
        Friend ReadOnly Property 采购文员Column As DataColumn
            Get
                Return Me.column采购文员
            End Get
        End Property
        
        Friend ReadOnly Property 录入时间Column As DataColumn
            Get
                Return Me.column录入时间
            End Get
        End Property
        
        Friend ReadOnly Property 采购经理Column As DataColumn
            Get
                Return Me.column采购经理
            End Get
        End Property
        
        Friend ReadOnly Property 采购经理审批意见Column As DataColumn
            Get
                Return Me.column采购经理审批意见
            End Get
        End Property
        
        Friend ReadOnly Property 采购经理审批结果Column As DataColumn
            Get
                Return Me.column采购经理审批结果
            End Get
        End Property
        
        Friend ReadOnly Property 采购经理审批时间Column As DataColumn
            Get
                Return Me.column采购经理审批时间
            End Get
        End Property
        
        Friend ReadOnly Property 财务经理Column As DataColumn
            Get
                Return Me.column财务经理
            End Get
        End Property
        
        Friend ReadOnly Property 财务经理审批意见Column As DataColumn
            Get
                Return Me.column财务经理审批意见
            End Get
        End Property
        
        Friend ReadOnly Property 财务经理审批结果Column As DataColumn
            Get
                Return Me.column财务经理审批结果
            End Get
        End Property
        
        Friend ReadOnly Property 财务经理审批日期Column As DataColumn
            Get
                Return Me.column财务经理审批日期
            End Get
        End Property
        
        Friend ReadOnly Property 总经理Column As DataColumn
            Get
                Return Me.column总经理
            End Get
        End Property
        
        Friend ReadOnly Property 总经理审批意见Column As DataColumn
            Get
                Return Me.column总经理审批意见
            End Get
        End Property
        
        Friend ReadOnly Property 总经理审批结果Column As DataColumn
            Get
                Return Me.column总经理审批结果
            End Get
        End Property
        
        Friend ReadOnly Property 总经理审批日期Column As DataColumn
            Get
                Return Me.column总经理审批日期
            End Get
        End Property
        
        Friend ReadOnly Property 标志Column As DataColumn
            Get
                Return Me.column标志
            End Get
        End Property
        
        Friend ReadOnly Property 是否为退回Column As DataColumn
            Get
                Return Me.column是否为退回
            End Get
        End Property
        
        Friend ReadOnly Property 是否为变更Column As DataColumn
            Get
                Return Me.column是否为变更
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As fk_cailiao_shenqingdanRow
            Get
                Return CType(Me.Rows(index),fk_cailiao_shenqingdanRow)
            End Get
        End Property
        
        Public Event fk_cailiao_shenqingdanRowChanged As fk_cailiao_shenqingdanRowChangeEventHandler
        
        Public Event fk_cailiao_shenqingdanRowChanging As fk_cailiao_shenqingdanRowChangeEventHandler
        
        Public Event fk_cailiao_shenqingdanRowDeleted As fk_cailiao_shenqingdanRowChangeEventHandler
        
        Public Event fk_cailiao_shenqingdanRowDeleting As fk_cailiao_shenqingdanRowChangeEventHandler
        
        Public Overloads Sub Addfk_cailiao_shenqingdanRow(ByVal row As fk_cailiao_shenqingdanRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Addfk_cailiao_shenqingdanRow( _
                    ByVal 申请单编号 As String,  _
                    ByVal 订购单编号 As String,  _
                    ByVal 收货单编号 As String,  _
                    ByVal 工程名称 As String,  _
                    ByVal 工程编号 As String,  _
                    ByVal 发文日期 As Date,  _
                    ByVal 付款内容 As String,  _
                    ByVal 付款日期 As Date,  _
                    ByVal 收款单位名称 As String,  _
                    ByVal 开户银行 As String,  _
                    ByVal 银行帐号 As String,  _
                    ByVal 付款依据 As String,  _
                    ByVal 付款方式 As String,  _
                    ByVal 合同金额 As Double,  _
                    ByVal 已付金额 As Double,  _
                    ByVal 本次申请金额 As Double,  _
                    ByVal 余额 As Double,  _
                    ByVal 付款说明 As String,  _
                    ByVal 备注 As String,  _
                    ByVal 采购文员 As String,  _
                    ByVal 录入时间 As Date,  _
                    ByVal 采购经理 As String,  _
                    ByVal 采购经理审批意见 As String,  _
                    ByVal 采购经理审批结果 As String,  _
                    ByVal 采购经理审批时间 As Date,  _
                    ByVal 财务经理 As String,  _
                    ByVal 财务经理审批意见 As String,  _
                    ByVal 财务经理审批结果 As String,  _
                    ByVal 财务经理审批日期 As Date,  _
                    ByVal 总经理 As String,  _
                    ByVal 总经理审批意见 As String,  _
                    ByVal 总经理审批结果 As String,  _
                    ByVal 总经理审批日期 As Date,  _
                    ByVal 标志 As String,  _
                    ByVal 是否为退回 As String,  _
                    ByVal 是否为变更 As String) As fk_cailiao_shenqingdanRow
            Dim rowfk_cailiao_shenqingdanRow As fk_cailiao_shenqingdanRow = CType(Me.NewRow,fk_cailiao_shenqingdanRow)
            rowfk_cailiao_shenqingdanRow.ItemArray = New Object() {申请单编号, 订购单编号, 收货单编号, 工程名称, 工程编号, 发文日期, 付款内容, 付款日期, 收款单位名称, 开户银行, 银行帐号, 付款依据, 付款方式, 合同金额, 已付金额, 本次申请金额, 余额, 付款说明, 备注, 采购文员, 录入时间, 采购经理, 采购经理审批意见, 采购经理审批结果, 采购经理审批时间, 财务经理, 财务经理审批意见, 财务经理审批结果, 财务经理审批日期, 总经理, 总经理审批意见, 总经理审批结果, 总经理审批日期, 标志, 是否为退回, 是否为变更}
            Me.Rows.Add(rowfk_cailiao_shenqingdanRow)
            Return rowfk_cailiao_shenqingdanRow
        End Function
        
        Public Function FindBy申请单编号(ByVal 申请单编号 As String) As fk_cailiao_shenqingdanRow
            Return CType(Me.Rows.Find(New Object() {申请单编号}),fk_cailiao_shenqingdanRow)
        End Function
        
        Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        Public Overrides Function Clone() As DataTable
            Dim cln As fk_cailiao_shenqingdanDataTable = CType(MyBase.Clone,fk_cailiao_shenqingdanDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New fk_cailiao_shenqingdanDataTable
        End Function
        
        Friend Sub InitVars()
            Me.column申请单编号 = Me.Columns("申请单编号")
            Me.column订购单编号 = Me.Columns("订购单编号")
            Me.column收货单编号 = Me.Columns("收货单编号")
            Me.column工程名称 = Me.Columns("工程名称")
            Me.column工程编号 = Me.Columns("工程编号")
            Me.column发文日期 = Me.Columns("发文日期")
            Me.column付款内容 = Me.Columns("付款内容")
            Me.column付款日期 = Me.Columns("付款日期")
            Me.column收款单位名称 = Me.Columns("收款单位名称")
            Me.column开户银行 = Me.Columns("开户银行")
            Me.column银行帐号 = Me.Columns("银行帐号")
            Me.column付款依据 = Me.Columns("付款依据")
            Me.column付款方式 = Me.Columns("付款方式")
            Me.column合同金额 = Me.Columns("合同金额")
            Me.column已付金额 = Me.Columns("已付金额")
            Me.column本次申请金额 = Me.Columns("本次申请金额")
            Me.column余额 = Me.Columns("余额")
            Me.column付款说明 = Me.Columns("付款说明")
            Me.column备注 = Me.Columns("备注")
            Me.column采购文员 = Me.Columns("采购文员")
            Me.column录入时间 = Me.Columns("录入时间")
            Me.column采购经理 = Me.Columns("采购经理")
            Me.column采购经理审批意见 = Me.Columns("采购经理审批意见")
            Me.column采购经理审批结果 = Me.Columns("采购经理审批结果")
            Me.column采购经理审批时间 = Me.Columns("采购经理审批时间")
            Me.column财务经理 = Me.Columns("财务经理")
            Me.column财务经理审批意见 = Me.Columns("财务经理审批意见")
            Me.column财务经理审批结果 = Me.Columns("财务经理审批结果")
            Me.column财务经理审批日期 = Me.Columns("财务经理审批日期")
            Me.column总经理 = Me.Columns("总经理")
            Me.column总经理审批意见 = Me.Columns("总经理审批意见")
            Me.column总经理审批结果 = Me.Columns("总经理审批结果")
            Me.column总经理审批日期 = Me.Columns("总经理审批日期")
            Me.column标志 = Me.Columns("标志")
            Me.column是否为退回 = Me.Columns("是否为退回")
            Me.column是否为变更 = Me.Columns("是否为变更")
        End Sub
        
        Private Sub InitClass()
            Me.column申请单编号 = New DataColumn("申请单编号", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column申请单编号)
            Me.column订购单编号 = New DataColumn("订购单编号", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column订购单编号)
            Me.column收货单编号 = New DataColumn("收货单编号", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column收货单编号)
            Me.column工程名称 = New DataColumn("工程名称", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column工程名称)
            Me.column工程编号 = New DataColumn("工程编号", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column工程编号)
            Me.column发文日期 = New DataColumn("发文日期", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column发文日期)
            Me.column付款内容 = New DataColumn("付款内容", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column付款内容)
            Me.column付款日期 = New DataColumn("付款日期", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column付款日期)