frmarivd.frm

制造业产供销与往来系统源码,包括进销存及全部控件！

         End If
      
   End Select
   
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub Flex_RowColChange(Index As Integer)
On Error GoTo Errorhandle

   Select Case Index
   Case FlexArivdh
   
         If Flex(FlexArivdh).Rows > 1 Then
            Set oArivdh = oArivdhs(CStr(Flex(FlexArivdh).RowData(Flex(FlexArivdh).Row)))
            SetValueToControl
         Else
            Set oArivdh = Nothing
            Clearcontrol
         End If
   
   Case FlexArivd
   
         If Flex(FlexArivd).Row <> Flex(FlexArivd).Rows - 1 Then
            Set oArivd = oArivdh.Arivds(CStr(Flex(FlexArivd).RowData(Flex(FlexArivd).Row)))
         Else
            Set oArivd = Nothing
         End If
   
   End Select
   
Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub SetValueToControl()
On Error GoTo Errorhandle

   Text(TxtArivdhDocno).Text = oArivdh.ArivdhDocno
   Text(TxtArivdhDat).Text = gPublicFunction.ConvStringToDate(oArivdh.ArivdhDat)
   Text(TxtArivdh_CwqjCode).Text = oArivdh.Arivdh_CwQjCode
   Combo(CBxArivdh_KhCode).Text = oArivdh.Kh.KhCode
   Combo(CBxArivdh_CwBzCode).Text = oArivdh.CwBz.CwBzCode
   LoadDataIntoGrid
   
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error GoTo Errorhandle

   Set oArivdhs = Nothing
   Set oArivdh = Nothing
   Set oArivd = Nothing
   
   gPublicFunction.SaveFormSet Me
    
Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub muEdit_Click(Index As Integer)
   Dim mFrmArivdGen As frmArivdGen
On Error GoTo Errorhandle

Select Case muEdit(Index).Tag
Case "ARIVDGEN"
      If Tlbaction(TlbArivd).Tag <> "" Then
         SetValueToObject
         Set mFrmArivdGen = New frmArivdGen
         Set mFrmArivdGen.Arivdh = oArivdh
         mFrmArivdGen.Show vbModal
         Set mFrmArivdGen = Nothing
         LoadDataIntoGrid
      End If
End Select

Exit Sub
Errorhandle:
   Set mFrmArivdGen = Nothing
   MsgBox Err.Description
End Sub

Private Sub Text_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
On Error GoTo Errorhandle

gPublicFunction.FormKeyDown Me, KeyCode, Shift, Text(Index)

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
On Error GoTo Errorhandle

   gPublicFunction.InputCheck Me, Text(Index), KeyAscii

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub SetControlToFlex()
   Dim mCurCol As Integer
   Dim mCurRow As Integer
On Error GoTo Errorhandle
  
   If Tlbaction(TlbArivd).Tag = "" Then
      Exit Sub
   End If

   mCurRow = Flex(FlexArivd).Row
   mCurCol = Flex(FlexArivd).Col
   
   Select Case Flex(FlexArivd).ColKey(Flex(FlexArivd).Col)
   Case "HWBMCODE"
         If oArivd Is Nothing Then
            AddNewRecord
         Else
            oArivd.Arivd_HwBmCode = Trim(Flex(FlexArivd).TextMatrix(mCurRow, mCurCol))
            Flex(FlexArivd).TextMatrix(mCurRow, Flex(FlexArivd).ColIndex("HWBMMC")) = oArivd.Arivd_HwBmMc
            Flex(FlexArivd).TextMatrix(mCurRow, Flex(FlexArivd).ColIndex("HWDWCODE")) = oArivd.Arivd_HwDwCode
            Flex(FlexArivd).TextMatrix(mCurRow, Flex(FlexArivd).ColIndex("Arivd_HWDWCONV")) = oArivd.Arivd_HwDwConv
         End If
   
   Case "HWDWCODE"
         If Not oArivd Is Nothing Then
            oArivd.Arivd_HwDwCode = Trim(Flex(FlexArivd).TextMatrix(mCurRow, mCurCol))
         End If
         
   Case "ARIVD_HWDWCONV"
         If Not oArivd Is Nothing Then
            oArivd.Arivd_HwDwConv = Val(Flex(FlexArivd).TextMatrix(mCurRow, mCurCol))
         End If
            
   Case "ARIVDQTY"
         If Not oArivd Is Nothing Then
            oArivd.ArivdQty = Val(Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, mCurCol))
            Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, Flex(FlexArivd).ColIndex("ARIVDNTAMT")) = oArivd.ArivdNtAmt
            Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, Flex(FlexArivd).ColIndex("ARIVDTAMT")) = oArivd.ArivdTAmt
            Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, Flex(FlexArivd).ColIndex("ARIVDAMT")) = oArivd.ArivdAmt
         End If
   
   Case "ARIVDPRICE"
         If Not oArivd Is Nothing Then
            oArivd.ArivdPrice = Val(Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, mCurCol))
            Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, Flex(FlexArivd).ColIndex("ARIVDNTAMT")) = oArivd.ArivdNtAmt
            Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, Flex(FlexArivd).ColIndex("ARIVDTAMT")) = oArivd.ArivdTAmt
            Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, Flex(FlexArivd).ColIndex("ARIVDAMT")) = oArivd.ArivdAmt
         End If
   
   Case "ARIVDNTAMT"
         If Not oArivd Is Nothing Then
            oArivd.ArivdNtAmt = Val(Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, mCurCol))
            Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, Flex(FlexArivd).ColIndex("ARIVDPRICE")) = oArivd.ArivdPrice
            Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, Flex(FlexArivd).ColIndex("ARIVDTAMT")) = oArivd.ArivdTAmt
            Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, Flex(FlexArivd).ColIndex("ARIVDAMT")) = oArivd.ArivdAmt
         End If
   
   Case "ARIVDAMT"
         If Not oArivd Is Nothing Then
            oArivd.ArivdAmt = Val(Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, mCurCol))
            Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, Flex(FlexArivd).ColIndex("ARIVDPRICE")) = oArivd.ArivdPrice
            Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, Flex(FlexArivd).ColIndex("ARIVDNTAMT")) = oArivd.ArivdNtAmt
            Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, Flex(FlexArivd).ColIndex("ARIVDTAMT")) = oArivd.ArivdTAmt
         End If
   
   Case "CWSMCODE"
         If Not oArivd Is Nothing Then
            oArivd.Arivd_CwSmCode = Trim(Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, mCurCol))
         End If
   
   Case "ArivdBZ"
         If Not oArivd Is Nothing Then
            oArivd.ArivdBz = Trim(Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, mCurCol))
         End If
   
   End Select
   
   If UCase(Flex(FlexArivd).ColKey(Flex(FlexArivd).Col)) = "ARIVDQTY" Or UCase(Flex(FlexArivd).ColKey(Flex(FlexArivd).Col)) = "ARIVDPRICE" Or UCase(Flex(FlexArivd).ColKey(Flex(FlexArivd).Col)) = "ARIVDNTAMT" Or UCase(Flex(FlexArivd).ColKey(Flex(FlexArivd).Col)) = "ARIVDTAMT" Or UCase(Flex(FlexArivd).ColKey(Flex(FlexArivd).Col)) = "ARIVDAMT" Then
      gPublicFunction.SumFlexQtyAmt Flex(FlexArivd), "ARIVDQTY,ARIVDNTAMT,ARIVDTAMT,ARIVDAMT", Text(TxtTotalQty), Text(TxtTotalNtAmt), Text(TxtTotalTAmt), Text(TxtTotalAmt)
   End If

Exit Sub
Errorhandle:
   Flex(FlexArivd).TextMatrix(mCurRow, mCurCol) = mCurColOldValue
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub AddNewRecord()
   Dim mCurRow As Integer
On Error GoTo Errorhandle

   mCurRow = Flex(FlexArivd).Row

   If Trim(Flex(FlexArivd).TextMatrix(mCurRow, Flex(FlexArivd).Col)) <> "" Then
      Set oArivd = New Arivd
      Set oArivd.Arivdh = oArivdh
      oArivd.Arivd_HwBmCode = Trim(Flex(FlexArivd).TextMatrix(mCurRow, Flex(FlexArivd).Col))
      oArivd.Arivd_CwSmCode = oArivdh.Kh.Kh_CwSmCode
      Flex(FlexArivd).TextMatrix(mCurRow, Flex(FlexArivd).ColIndex("HWBMMC")) = oArivd.Arivd_HwBmMc
      Flex(FlexArivd).TextMatrix(mCurRow, Flex(FlexArivd).ColIndex("HWDWCODE")) = oArivd.Arivd_HwDwCode
      Flex(FlexArivd).TextMatrix(mCurRow, Flex(FlexArivd).ColIndex("ARIVD_HWDWCONV")) = oArivd.Arivd_HwDwConv
      Flex(FlexArivd).TextMatrix(mCurRow, Flex(FlexArivd).ColIndex("CWSMCODE")) = oArivdh.Kh.Kh_CwSmCode
      oArivdh.Arivds.Add oArivd, 0
      Flex(FlexArivd).RowData(Flex(FlexArivd).Rows - 1) = oArivd.ArivdKey
      Flex(FlexArivd).AddItem ""
   End If

Exit Sub
Errorhandle:
   Set oArivd = Nothing
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub Form_Resize()
On Error GoTo Errorhandle
   gPublicFunction.ResizeForm Me
Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Text_LostFocus(Index As Integer)
On Error GoTo Errorhandle

   Select Case Index
   Case TxtArivdhDat
         
         If Tlbaction(TlbArivd).Tag <> "" And Trim(Text(TxtArivdhDat).Text) <> "" Then
            Text(TxtArivdhDat).Text = gPublicFunction.SetDateFormat(Text(TxtArivdhDat).Text)
            oArivdh.ArivdhDat = gPublicFunction.ConvDateToString(Text(TxtArivdhDat).Text)
            Text(TxtArivdh_CwqjCode).Text = oArivdh.Arivdh_CwQjCode
         End If
         
   Case TxtArivdhDocno
   
           If Tlbaction(TlbArivd).Tag = "" Then
               If Trim(Text(Index).Text) = "" Then
                  Exit Sub
               End If
               
               If Not oArivdh Is Nothing Then
                  If oArivdh.ArivdhDocno = Text(TxtArivdhDocno).Text Then
                     Exit Sub
                  End If
               End If
   
               Set oArivdh = New Arivdh
               If oArivdh.Requery(Text(TxtArivdhDocno).Text) = 1 Then
                   SetValueToControl
               Else
                   Set oArivdh = Nothing
                   Dim vArivddocno As String
                   vArivddocno = Text(TxtArivdhDocno).Text
                   AddRecord "ADD"
                   Text(TxtArivdhDocno).Text = vArivddocno
               End If
        End If

   End Select

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Tlbaction_ButtonClick(Index As Integer, ByVal Button As MSComctlLib.Button)
    Dim Action, RecordName As String
On Error GoTo Errorhandle

   Action = (Mid(Button.Key, 1, 3))
   RecordName = Button.Key

   If Action = "SAV" Then
      Text(TxtArivdhDocno).SetFocus
   End If
   
   Select Case Action
   Case "ADD"
        AddRecord RecordName
   Case "CHG"
        ChgRecord RecordName
   Case "CAN"
        CancelRecord RecordName
   Case "SAV"
        SaveRecord RecordName
   Case "DEL", "DEF"
        DelRecord RecordName
   Case "EXI"
        Unload Me
   Case "FIN"
        ShowBmQuery
   Case Else
   
   End Select

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   Dim mButton As Button
On Error GoTo Errorhandle

   Set mButton = gPublicFunction.GetToolBarButton(Me, KeyCode)
   
   If Not mButton Is Nothing Then
      Tlbaction_ButtonClick TlbArivd, mButton
   End If
  
Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub ShowBmQuery()
   Dim mCodeType As String
   Dim mQueryValue As String
On Error GoTo Errorhandle

   If Tlbaction(TlbArivd).Tag = "" Then
      Exit Sub
   End If
   
   If Me.ActiveControl Is Nothing Then
      Exit Sub
   End If
   
   If Me.ActiveControl Is Flex(FlexArivd) Then
      Select Case UCase(Flex(FlexArivd).ColKey(Flex(FlexArivd).Col))
      Case "HWBMCODE", "HWDWCODE", "CWSMCODE"
            mCodeType = UCase(Flex(FlexArivd).ColKey(Flex(FlexArivd).Col))
      End Select
   
      If mCodeType <> "" Then
         mQueryValue = gPublicFunction.GetBmQueryValue(Me, mCodeType)
         If mQueryValue <> "" Then
            Flex(FlexArivd).TextMatrix(Flex(FlexArivd).Row, Flex(FlexArivd).Col) = mQueryValue
            Flex(FlexArivd).EditCell
            SetControlToFlex
         End If
      End If
   
   Else
   
      Select Case Mid(UCase(Me.ActiveControl.Tag), 4)
      Case "CWQJCODE", "KHCODE", "CWBZCODE"
            mCodeType = Mid(UCase(Me.ActiveControl.Tag), 4)
      End Select
   
      If mCodeType <> "" Then
         mQueryValue = gPublicFunction.GetBmQueryValue(Me, mCodeType)
         If mQueryValue <> "" Then
            Me.ActiveControl.Text = mQueryValue
         End If
      End If
   
   End If
   
   
  
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub