frmdlselectsalereceipt.frm

金算盘软件代码

                 mfrmToFormname.grdCol.TextMatrix(k, 3) = msgGrid.TextMatrix(j, 28)
                 mfrmToFormname.grdCol.TextMatrix(k, 30) = msgGrid.TextMatrix(j, 27)
                 mfrmToFormname.grdCol.TextMatrix(k, 4) = msgGrid.TextMatrix(j, 25)
                 mfrmToFormname.grdCol.TextMatrix(k, 31) = msgGrid.TextMatrix(j, 10)
                 mfrmToFormname.grdCol.TextMatrix(k, 5) = msgGrid.TextMatrix(j, n)
                 mfrmToFormname.grdCol.TextMatrix(k, 6) = msgGrid.TextMatrix(j, 12)
                 mfrmToFormname.grdCol.TextMatrix(k, 14) = msgGrid.TextMatrix(j, l)
                 mfrmToFormname.grdCol.TextMatrix(k, 8) = msgGrid.TextMatrix(j, 11)
                 mfrmToFormname.grdCol.TextMatrix(k, 11) = msgGrid.TextMatrix(j, 26)
                 mfrmToFormname.grdCol.TextMatrix(k, 32) = msgGrid.TextMatrix(j, 13)
                 mfrmToFormname.grdCol.TextMatrix(k, 21) = msgGrid.TextMatrix(j, 29)
                 mfrmToFormname.grdCol.TextMatrix(k, 33) = msgGrid.TextMatrix(j, 14)
                 mfrmToFormname.grdCol.TextMatrix(k, 22) = msgGrid.TextMatrix(j, 30)
                 mfrmToFormname.grdCol.TextMatrix(k, 23) = msgGrid.TextMatrix(j, 31)
                 mfrmToFormname.grdCol.TextMatrix(k, 24) = msgGrid.TextMatrix(j, 32)
                 mfrmToFormname.grdCol.TextMatrix(k, 25) = msgGrid.TextMatrix(j, 33)
                 mfrmToFormname.grdCol.TextMatrix(k, 26) = msgGrid.TextMatrix(j, 34)
                 mfrmToFormname.grdCol.TextMatrix(k, 27) = msgGrid.TextMatrix(j, 35)
                 mfrmToFormname.grdCol.TextMatrix(k, 34) = msgGrid.TextMatrix(j, 15)
                 mfrmToFormname.grdCol.TextMatrix(k, 35) = msgGrid.TextMatrix(j, 16)
                 mfrmToFormname.grdCol.TextMatrix(k, 36) = msgGrid.TextMatrix(j, 17)
                 mfrmToFormname.grdCol.TextMatrix(k, 37) = msgGrid.TextMatrix(j, 18)
                 mfrmToFormname.grdCol.TextMatrix(k, 38) = msgGrid.TextMatrix(j, 19)
                 mfrmToFormname.grdCol.TextMatrix(k, 39) = msgGrid.TextMatrix(j, 20)
                 mfrmToFormname.grdCol.TextMatrix(k, 40) = msgGrid.TextMatrix(j, 23)
             End If
       End If
       blnColse = IIf(Trim(msgGrid.TextMatrix(j, m)) = "√", True, False)
       slh = "Update SaleOrderDetail Set blnIsClose =" & blnColse & " Where lngSaleOrderDetailID=" & getnumber(j, 0) & ""
       gclsBase.ExecSQL slh
       j = j + 1
    Wend
    j = 1
    Do While j < mfrmToFormname.grdCol.Rows       '=0为未覆盖标志
       mfrmToFormname.CalcAmount j
       j = j + 1
    Loop
'    MousePointer = vbDefault
    If kkk = 1 Then
       Unload Me
    End If
'Exit Sub
'Err:
'     MousePointer = vbDefault
'    ShowMsg Me.hWnd, "系统出错！    ", MB_SYSTEMMODAL + MB_ICONEXCLAMATION, "选择销售订单"
'    Update Cancel
End Sub

'关联


'重定窗体中各控件的位置、大小
Private Sub Form_Resize()
    If mblnFormNoRezise Then Exit Sub
    If Me.WindowState = 1 Then
       Exit Sub
    End If
    On Error Resume Next
    If Me.Height < intFormHeight Then Me.Height = intFormHeight
    If Me.Width < intFormWidth Then Me.Width = intFormWidth
    RedrawForm
End Sub
Private Sub RedrawForm()
    '重画MS FlexGrid 控件
    Dim leftx As Integer
    On Error Resume Next
    With msgGrid
        .Width = Me.ScaleWidth - DlListFormLeft - DlListFormRight * 2 - DlFormButtonWidth
        
        .Height = Me.ScaleHeight - DlListUpAreaHeight - DlListDownAreaHeight - DlListFormBottom
    End With
    
    '重画其余控件
    leftx = Me.ScaleLeft + Me.ScaleWidth - DlFormButtonWidth - DlListFormRight + 18
    Cmdall(4).Left = leftx
    Cmdall(7).Left = leftx
    Cmdall(1).Left = leftx
    Cmdall(2).Left = leftx
    Cmdall(3).Left = leftx
    Cmdall(5).Left = leftx
    Cmdall(6).Left = leftx
    
    Lbbz(1).top = 120
    Cmdall(7).top = Me.ScaleTop + Lbbz(1).Height + Lbbz(1).top
    Cmdall(1).top = Cmdall(7).top + 9 + Cmdall(0).Height
    Cmdall(2).top = Cmdall(1).top + 133 + Cmdall(1).Height
    Cmdall(3).top = Cmdall(2).top + 9 + Cmdall(2).Height
    Cmdall(5).top = Cmdall(3).top + 133 + Cmdall(3).Height
    Cmdall(6).top = Cmdall(5).top + 9 + Cmdall(5).Height
    Label1(0).top = 120
    lbdw.top = 120
    Label1(0).Left = msgGrid.Left
    lbdw.Left = msgGrid.Left + 600
    lbdw.Width = msgGrid.Width / 2
'
    Lbbz(0).top = 120
    Lbbz(1).Width = Int(msgGrid.Width / 7)
    Lbbz(1).Left = msgGrid.Width - Lbbz(1).Width
    Lbbz(0).Left = Lbbz(1).Left - Lbbz(0).Width + 135
    mclsGrid.TotalRowAdjust
    Me.Refresh
End Sub
'Flexgrid显示栏目设置
Private Sub setColumn()
Dim i As Integer
On Error GoTo Err
'If msgGrid.Rows > 1 Then
    i = 1
    strWorkID = ""
    Do While i < msgGrid.Rows
       If msgGrid.TextMatrix(i, 1) = "√" Then
          If Len(strWorkID) > 0 Then
              strWorkID = strWorkID & "," & CStr(getnumber(i, 0))
          Else
              strWorkID = CStr(getnumber(i, 0))
          End If
       End If
       i = i + 1
    Loop
    strWorkID = "( " & strWorkID & " )"
    If msgGrid.Rows > 1 Then
       If ShowMsg(Me.hwnd, "栏目设置后，你刚刚做的选择将被取消，需要先存盘吗", MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2 + MB_SYSTEMMODAL, "选择销售订单") = IDYES Then
          SaveData (0)
       End If
       mclsGrid.GridToListSet
    End If
    mclsGrid.ListSet.SaveList
    If mclsGrid.ListSet.ShowListSet(mclsGrid.ListSet.ViewId) Then
        GetList
        mclsGrid.SetupStyle
    End If
    isinit = True
'End If
Exit Sub
Err:
    ShowMsg Me.hwnd, "栏目设置操作不成功 ", MB_SYSTEMMODAL + MB_ICONEXCLAMATION, "选择销售订单"
End Sub

Private Sub Form_Load()
    Set mclsGrid = New NewGrid
    Set mclsGrid.Grid = msgGrid
    Set mclsGrid.Form = Me
    Set bsdate = New Base
    blnIsCancel = False
    SetHelpID Me.hwnd, 17009
    hldate = bsdate.BaseDate
    mblnFormNoRezise = False
    mclsGrid.ColOfs = intfixl
    GetList
    mclsGrid.ListSetToGrid
    mclsGrid.SetupStyle
    Cmdall(7).Picture = Utility.GetFormResPicture(1001, 0)
    Cmdall(1).Picture = Utility.GetFormResPicture(1002, 0)
    Cmdall(4).Picture = Utility.GetFormResPicture(1010, 0)
    lbdw.Caption = Customernm
    Lbbz(1).Caption = Currencynm
    Set Me.Icon = Utility.GetFormResPicture(139, vbResIcon)
    mfrmToFormname.MousePointer = vbDefault
End Sub


Private Sub Form_Unload(Cancel As Integer)
    mfrmToFormname.MousePointer = vbDefault
    If blnIsCancel = False And msgGrid.Rows > 1 Then
       If Balance.IsChange(msgGrid, 1) Then
            If ShowMsg(Me.hwnd, "确定退出选择销售订单吗", MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2 + MB_SYSTEMMODAL, "选择销售订单") = IDNO Then
                Cancel = True
                Exit Sub
            End If
       End If
    End If
   
    If msgGrid.Rows > 1 Then
        mclsGrid.GridToListSet
        mclsGrid.ListSet.SaveList
    End If
    Set mclsGrid = Nothing
    Set mfrmToFormname = Nothing
    Set mlhls = Nothing
'    Set bsdata = Nothing
    Utility.RemoveFormResPicture 1001
    Utility.RemoveFormResPicture 1002
    Utility.RemoveFormResPicture 1010
End Sub
'从Flexgrid中取出数字值
Private Function getnumber(getx As Integer, gety As Integer) As Double
    If (Len(msgGrid.TextMatrix(getx, gety)) = 0 Or IsNull(msgGrid.TextMatrix(getx, gety))) Then
        getnumber = 0
    Else
        getnumber = CDbl(msgGrid.TextMatrix(getx, gety))
    End If
End Function

'本函数用于做结算与非结算处理
Private Sub msgGrid_Click()
Dim i As Integer, k As Integer, intCount As Integer
Dim n As Integer, xx As Double, temp As Double
On Error GoTo Err
    ytextRow = msgGrid.MouseRow
    ytextCol = msgGrid.MouseCol
     i = intfixl
     k = intfixl
     n = intfixl
    '本循环找出本次收款及本次折扣所在的列
'    While (msgGrid.TextMatrix(0, i) <> "销售金额")
'           i = i + 1
'    Wend
'    While (msgGrid.TextMatrix(0, k) <> "销售数量")
'           k = k + 1
'    Wend
    While (msgGrid.TextMatrix(0, n) <> "关闭")
           n = n + 1
    Wend
    If ytextRow > 0 And msgGrid.ColSel > 0 And msgGrid.MouseRow > 0 Then
        If (msgGrid.TextMatrix(0, 1) = "选择") And (msgGrid.MouseCol = 1) Then
           
           If ((msgGrid.TextMatrix(ytextRow, 1) = "") And Trim(msgGrid.TextMatrix(ytextRow, n)) <> "√") Then
           'Or (getnumber(ytextRow, k) <> getnumber(ytextRow, 4)) Or (getnumber(ytextRow, i) <> getnumber(ytextRow, 5))) And Trim(msgGrid.TextMatrix(ytextRow, n)) <> "√" Then     '打√情况
               msgGrid.TextMatrix(ytextRow, 1) = "√"
'               xx = getnumber(ytextRow, 5) - getnumber(ytextRow, i)
'               hlb(i).Caption = CStr(CDbl(IIf(Len(hlb(i).Caption) = 0, "0", hlb(i).Caption)) + xx)
'               msgGrid.TextMatrix(ytextRow, k) = msgGrid.TextMatrix(ytextRow, 4)
'               msgGrid.TextMatrix(ytextRow, i) = msgGrid.TextMatrix(ytextRow, 5)
           Else
             If Trim(msgGrid.TextMatrix(ytextRow, n)) <> "√" Then
                msgGrid.TextMatrix(ytextRow, 1) = ""       '取消打√(结算)情况
'                hlb(i).Caption = CStr(CDbl(hlb(i).Caption) - getnumber(ytextRow, i))
'                msgGrid.TextMatrix(ytextRow, i) = ""
'                msgGrid.TextMatrix(ytextRow, k) = ""
             End If
           End If
        Else
            If (msgGrid.TextMatrix(0, 1) <> "选择") Then
               ShowMsg Me.hwnd, ("请将选择栏放在第一列上！！"), MB_SYSTEMMODAL + MB_ICONEXCLAMATION, msgcaption
            End If
            If msgGrid.TextMatrix(0, ytextCol) = "关闭" Then
                If Trim(msgGrid.TextMatrix(ytextRow, ytextCol) = "√") Then
                   msgGrid.TextMatrix(ytextRow, ytextCol) = ""
                Else
                   msgGrid.TextMatrix(ytextRow, ytextCol) = "√"
'                   msgGrid.TextMatrix(ytextRow, i) = ""
'                   msgGrid.TextMatrix(ytextRow, k) = ""
                   msgGrid.TextMatrix(ytextRow, 1) = ""       '取消打√(结算)情况
'                   hlb(i).Caption = CStr(CDbl(hlb(i).Caption) - getnumber(ytextRow, i))
                End If
            End If
        End If
        Me.Refresh
     End If
Exit Sub
Err:
    ShowMsg Me.hwnd, "系统出错！    ", MB_SYSTEMMODAL + MB_ICONEXCLAMATION, "选择销售订单"
End Sub

Private Sub msgGrid_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    With msgGrid
        If .MouseCol = 1 Or msgGrid.TextMatrix(0, .MouseCol) = "关闭" Then
            .MousePointer = vbCustom
        Else
            .MousePointer = vbDefault
        End If
    End With
End Sub

'右键菜单
Private Sub msgGrid_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = vbRightButton And msgGrid.Rows > 1 Then
        PopupMenu Me.menuchk, , x + 118, y + 418
    End If
End Sub
Public Sub GivemeParameter(ToForm As Object, Optional dwID As Long = 0, Optional bzID As Long = 0, Optional ywID As Long = 0)
    Dim strTmp As String
    CustomerID = dwID
    CurrencyID = bzID
    Set mfrmToFormname = ToForm
    mfrmToFormname.MousePointer = vbHourglass
    DetailID = mfrmToFormname.getID
    CustomerID = C2Lng(mfrmToFormname.lblHead(0).Tag)
    DispartString mfrmToFormname.lblHead(1).Caption, Currencynm, Customernm
    CurrencyID = mfrmToFormname.GetFID(7)
    Currencynm = mfrmToFormname.lblField(7).Caption
    DispartString Currencynm, strTmp, Currencynm
    If CustomerID < 1 Then
       mfrmToFormname.MousePointer = vbDefault
       ShowMsg mfrmToFormname.hwnd, "请先输入单位！", MB_SYSTEMMODAL + MB_ICONEXCLAMATION, "选择订单"
       Exit Sub
    End If
    If CurrencyID < 1 Then
       mfrmToFormname.MousePointer = vbDefault
       ShowMsg mfrmToFormname.hwnd, "请先输入币种！", MB_SYSTEMMODAL + MB_ICONEXCLAMATION, "选择订单"
       Exit Sub
    End If
    isinit = True
    Me.Show 1
End Sub