VB开发的ERP系统

VERSION 5.00
Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
Begin VB.Form CL_NoSaveList 
   Caption         =   "未保存的凭证列表"
   ClientHeight    =   2475
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4995
   HelpContextID   =   130407
   Icon            =   "处理_凭证未保存列表.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2475
   ScaleWidth      =   4995
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmd_Exit 
      Appearance      =   0  'Flat
      Caption         =   "退出(&E)"
      Height          =   300
      Left            =   3750
      TabIndex        =   0
      Top             =   2100
      Width           =   1120
   End
   Begin VSFlex8Ctl.VSFlexGrid vsflex1 
      Height          =   1890
      Left            =   90
      TabIndex        =   1
      Top             =   120
      Width           =   4785
      _ExtentX        =   8440
      _ExtentY        =   3334
      Appearance      =   0
      BorderStyle     =   1
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MousePointer    =   0
      BackColor       =   -2147483643
      ForeColor       =   0
      BackColorFixed  =   -2147483633
      ForeColorFixed  =   -2147483630
      BackColorSel    =   16711680
      ForeColorSel    =   -2147483639
      BackColorBkg    =   8421504
      BackColorAlternate=   -2147483643
      GridColor       =   -2147483633
      GridColorFixed  =   -2147483632
      TreeColor       =   -2147483630
      FloodColor      =   0
      SheetBorder     =   -2147483630
      FocusRect       =   1
      HighLight       =   1
      AllowSelection  =   0   'False
      AllowBigSelection=   0   'False
      AllowUserResizing=   3
      SelectionMode   =   0
      GridLines       =   1
      GridLinesFixed  =   2
      GridLineWidth   =   1
      Rows            =   5
      Cols            =   3
      FixedRows       =   1
      FixedCols       =   0
      RowHeightMin    =   0
      RowHeightMax    =   0
      ColWidthMin     =   0
      ColWidthMax     =   0
      ExtendLastCol   =   0   'False
      FormatString    =   ""
      ScrollTrack     =   0   'False
      ScrollBars      =   3
      ScrollTips      =   0   'False
      MergeCells      =   0
      MergeCompare    =   0
      AutoResize      =   -1  'True
      AutoSizeMode    =   0
      AutoSearch      =   0
      MultiTotals     =   -1  'True
      SubtotalPosition=   1
      OutlineBar      =   0
      OutlineCol      =   0
      Ellipsis        =   0
      ExplorerBar     =   0
      PicturesOver    =   0   'False
      FillStyle       =   0
      RightToLeft     =   0   'False
      PictureType     =   0
      TabBehavior     =   0
      OwnerDraw       =   0
      Editable        =   0   'False
      ShowComboButton =   -1  'True
      WordWrap        =   0   'False
      TextStyle       =   0
      TextStyleFixed  =   0
      OleDragMode     =   0
      OleDropMode     =   0
      DataMode        =   0
      VirtualData     =   -1  'True
   End
End
Attribute VB_Name = "CL_NoSaveList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*********************************************************************************************************
'*    模 块 名 称 :未存盘转帐凭证列表
'*    功 能 描 述 :本次转帐未保存的凭证
'*    程序员姓名  : 杨波
'*    最后修改人  : 杨波
'*    开始设计时间：
'*    最后修改时间:2001/4/29
'*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
'*
'*    1.每次调入外部功能窗体，均要加锁ChangeLock=True,窗体关闭后解锁ChangeLock=false
'*
'*
'*********************************************************************************************************

Dim jsq As Long         '临时计数器
Dim SjhHeight As Long   '数据行高度

Private Sub cmd_exit_Click()
    
    Unload Me
    
End Sub

Private Sub Form_Load()

    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
    With vsflex1
        .Rows = 7
        .Cols = 4
        .ScrollBars = flexScrollBarBoth
        .TextMatrix(0, 0) = "凭证来源"
        .TextMatrix(0, 1) = "制单日期"
        .TextMatrix(0, 2) = "单据号"
        .TextMatrix(0, 3) = "仓库"
        SjhHeight = 250
        .Width = 0
        For jsq = 0 To .Cols - 1
            .ColAlignment(jsq) = flexAlignCenterCenter
            .ColWidth(jsq) = 1200
            .Width = .Width + .ColWidth(jsq)
        Next jsq
        .Height = 0
        For jsq = 0 To .Rows - 1
            .RowHeight(jsq) = SjhHeight
            .Height = .Height + .RowHeight(jsq)
        Next jsq
        .Height = .Height + 8
    End With
    Call NoSaveList
    
End Sub

Private Sub NoSaveList()

    Dim count As Integer
    Dim countrow As Integer
    Dim jsq As Integer
    Dim Billnum As String
    Dim Billnum1 As String
    Dim WCode As String
    Dim WCode1 As String
    
    If CL_PzFrm.lbl_Tag.Caption = "0" Then
        For count = CL_MakeVoucherSub.vsFlex_PzMain.FixedRows To CL_MakeVoucherSub.vsFlex_PzMain.Rows - CL_MakeVoucherSub.vsFlex_PzMain.FixedRows
            If Trim(CL_MakeVoucherSub.vsFlex_PzMain.TextMatrix(count, 3)) <> "1" Then
                jsq = jsq + 1
                For countrow = CL_MakeVoucher.CxbbGrid.FixedRows To CL_MakeVoucher.CxbbGrid.Rows - CL_MakeVoucher.CxbbGrid.FixedRows
                    If InStr(1, "1301,1302,1303", Trim(CL_MakeVoucher.CxbbGrid.TextMatrix(countrow, 6))) Then
                        If Trim(CL_MakeVoucher.CxbbGrid.TextMatrix(countrow, 9)) = Trim(CL_MakeVoucherSub.vsFlex_PzMain.TextMatrix(count, 0)) Then
                            If jsq > vsflex1.Rows - 1 Then
                                vsflex1.AddItem ""
                                vsflex1.RowHeight(jsq) = SjhHeight
                            End If
                            vsflex1.TextMatrix(jsq, 0) = "存货核算"
                            vsflex1.TextMatrix(jsq, 1) = Trim(CL_MakeVoucherSub.vsFlex_PzMain.TextMatrix(count, 1))
                            vsflex1.TextMatrix(jsq, 2) = Trim(CL_MakeVoucher.CxbbGrid.TextMatrix(countrow, 12))
                            vsflex1.TextMatrix(jsq, 3) = Trim(CL_MakeVoucher.CxbbGrid.TextMatrix(countrow, 15))
                        End If
                    Else
                        If Trim(CL_MakeVoucher.CxbbGrid.TextMatrix(countrow, 8)) = Trim(CL_MakeVoucherSub.vsFlex_PzMain.TextMatrix(count, 0)) Then
                            If jsq > vsflex1.Rows - 1 Then
                                vsflex1.AddItem ""
                                vsflex1.RowHeight(jsq) = SjhHeight
                            End If
                            vsflex1.TextMatrix(jsq, 0) = "存货核算"
                            vsflex1.TextMatrix(jsq, 1) = Trim(CL_MakeVoucherSub.vsFlex_PzMain.TextMatrix(count, 1))
                            vsflex1.TextMatrix(jsq, 2) = Trim(CL_MakeVoucher.CxbbGrid.TextMatrix(countrow, 12))
                            vsflex1.TextMatrix(jsq, 3) = Trim(CL_MakeVoucher.CxbbGrid.TextMatrix(countrow, 15))
                        End If
                    End If
                Next countrow
                vsflex1.BackColorSel = &HFFFFFF
                vsflex1.ForeColorSel = &H0&
            End If
        Next count
    End If
    
    If CL_PzFrm.lbl_Tag.Caption = "1" Then
        For countrow = CL_MakeVoucher.CxbbGrid.FixedRows To CL_MakeVoucher.CxbbGrid.Rows - CL_MakeVoucher.CxbbGrid.FixedRows
            If Trim(CL_MakeVoucher.CxbbGrid.TextMatrix(countrow, 11)) Then
                If Billnum1 <> Trim(CL_MakeVoucher.CxbbGrid.TextMatrix(countrow, 12)) Then
                    Billnum1 = Trim(CL_MakeVoucher.CxbbGrid.TextMatrix(countrow, 12))
                    If Billnum1 <> "" And Billnum <> "" Then
                        Billnum = Billnum + "、" + Billnum1
                    Else
                        Billnum = Billnum1
                    End If
                End If
                If WCode1 <> Trim(CL_MakeVoucher.CxbbGrid.TextMatrix(countrow, 15)) Then
                    WCode1 = Trim(CL_MakeVoucher.CxbbGrid.TextMatrix(countrow, 15))
                    If WCode1 <> "" And WCode <> "" Then
                        WCode = WCode + "、" + WCode1
                    Else
                        WCode = WCode1
                    End If
                End If
            End If
        Next countrow
        vsflex1.AddItem ""
        vsflex1.RowHeight(1) = SjhHeight
        vsflex1.TextMatrix(1, 0) = "存货核算"
        vsflex1.TextMatrix(1, 1) = Format(Xtrq, "yyyy-mm-dd")
        vsflex1.TextMatrix(1, 2) = Billnum
        vsflex1.TextMatrix(1, 3) = WCode
        vsflex1.BackColorSel = &HFFFFFF
        vsflex1.ForeColorSel = &H0&
    
    End If
    
End Sub