forms/ledgers/frmLedgerUnPost.vb

（开头部分） 17KB

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

Imports System.ComponentModel

Public Class frmLedgerUnPost

    Private m_workPeriodList As List(Of ClsTWorkPeriod) = New List(Of ClsTWorkPeriod)()
    Private m_curPeriod As ClsTWorkPeriod = Nothing
    Private m_rowIndex As Integer = -1
    Private m_working As Boolean = False
    Private m_unPostOk As Boolean = False
    Private m_unSettleOk As Boolean = False

    Private Delegate Sub UnPostDone(ByVal wp As ClsTWorkPeriod)
    Private m_UnPostDoneSub As UnPostDone = New UnPostDone(AddressOf UnpostHandle)

    '窗体调用主窗体显示过程
    Private Delegate Sub SetMainShowInfo(ByVal info As String)
    Private m_showInfoInMainForm As SetMainShowInfo = New SetMainShowInfo(AddressOf SetMessageToMianForm)

    ''' <summary>
    ''' 在MDI主窗体上显示信息
    ''' </summary>
    ''' <param name="info"></param>
    Private Sub SetMessageToMianForm(ByVal info As String)
        sysFrmMdiMain.SetNotifyText(info)
    End Sub

    Private Sub frmLedgerUnPost_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '加载期间数据
        Me.btnUnPost.Enabled = False
        Me.btnUnSettle.Enabled = False
        Me.btnClose.Enabled = False
        Dim tmpWPDb As ClsTWorkPeriodDbAccess = New ClsTWorkPeriodDbAccess(sysUserDataConnectionString)
        '取出当前年度的全部期间过账及结账数据
        m_workPeriodList = tmpWPDb.GetWorkPeriodByYear(sysCurrentLedgerSetting.LedgerWorkYear.Substring(0, 4))
        '初始化列表数据
        InitialListView()

        m_working = False

        '准备按钮状态
        CheckButtonsState()

    End Sub

    ''' <summary>
    ''' 检查按钮状态
    ''' </summary>
    Private Sub CheckButtonsState()
        If m_rowIndex <> -1 Then
            '有选择行，则进一步判断是否可以反过账或反结账。
            If m_curPeriod.Settled Then
                Me.btnUnSettle.Enabled = True
                '已结账，则必须先反结，才能反过
                Me.btnUnPost.Enabled = False
            Else
                Me.btnUnSettle.Enabled = False
                '如果没有结账，则查看是否可以反过
                If m_curPeriod.Posted Then
                    Me.btnUnPost.Enabled = True
                Else
后面还有 430 行代码，解锁后查看完整代码

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。