frmcgpod.frm

来自「制造业产供销与往来系统源码」· FRM 代码 · 共 1,378 行 · 第 1/4 页

Dim oCgPod As CgPod

Public Sub LetDocno(vDocno As String)
On Error GoTo Errorhandle

   Text(TxtCgPodhDocno).Text = vDocno
   Text_LostFocus TxtCgPodhDocno

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

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

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

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Combo_LostFocus(Index As Integer)
On Error GoTo Errorhandle
   
   If Tlbaction(TlbCgPod).Tag = "" Then
      Exit Sub
   End If
   
   Select Case Index
   Case CBxCgPodh_KhCode
         If Trim(Combo(CBxCgPodh_KhCode).Text) <> "" Then
            oCgPodh.CgPodh_KhCode = Combo(CBxCgPodh_KhCode).Text
            Combo(CBxCgPodh_CwBzCode).Text = oCgPodh.CgPodh_CwBzCode
         End If
   End Select

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Flex_AfterEdit(Index As Integer, ByVal Row As Long, ByVal Col As Long)
On Error GoTo Errorhandle

   SetControlToFlex

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Flex_BeforeEdit(Index As Integer, ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
On Error GoTo Errorhandle
   
   If Tlbaction(TlbCgPod).Tag = "" Then
      Cancel = True
   End If
   
   If oCgPodh Is Nothing Then
      Cancel = True
   End If

   mCurColOldValue = Trim(Flex(FlexCgPod).TextMatrix(Flex(FlexCgPod).Row, Flex(FlexCgPod).Col))

   Select Case Flex(FlexCgPod).ColKey(Col)
   Case "HWBMCODE"
         
   Case "CGPOD_HWDWCONV", "CGPODQTY", "CGPODPRICE", "CGPODAMT", "CGPODDDAT", "CGPODBZ"
         If oCgPod Is Nothing Then
            Cancel = True
         End If
         
   Case "HWDWCODE"
         If oCgPod Is Nothing Then
            Cancel = True
         End If
         
   Case "CWSMCODE"
         If oCgPod Is Nothing Then
            Cancel = True
         End If
         
   Case Else
         Cancel = True
   End Select

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

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

   gPublicFunction.FlexKeyDown Flex(Index), KeyCode

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Flex_KeyDownEdit(Index As Integer, ByVal Row As Long, ByVal Col As Long, KeyCode As Integer, ByVal Shift As Integer)
On Error GoTo Errorhandle

   gPublicFunction.FlexKeyDown Flex(Index), KeyCode

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Flex_KeyPressEdit(Index As Integer, ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)
On Error GoTo Errorhandle

   gPublicFunction.FlexInputCheck Me, Flex(Index), KeyAscii

Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Form_Activate()
On Error GoTo Errorhandle

  Text(TxtCgPodhDocno).SetFocus
  
Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub Form_Load()
On Error GoTo Errorhandle
  
   Flex(FlexCgPod).Editable = flexEDKbdMouse
   
   Flex(FlexCgPod).ColKey(1) = "HWBMCODE"
   Flex(FlexCgPod).ColKey(2) = "HWBMMC"
   Flex(FlexCgPod).ColKey(3) = "HWDWCODE"
   Flex(FlexCgPod).ColKey(4) = "CGPOD_HWDWCONV"
   Flex(FlexCgPod).ColKey(5) = "CGPODQTY"
   Flex(FlexCgPod).ColKey(6) = "CGPODPRICE"
   Flex(FlexCgPod).ColKey(7) = "CGPODAMT"
   Flex(FlexCgPod).ColKey(8) = "CWSMCODE"
   Flex(FlexCgPod).ColKey(9) = "CGPODDDAT"
   Flex(FlexCgPod).ColKey(10) = "CGPODBZ"
     
   gPublicFunction.LoadFormSet Me, Tlbaction(TlbCgPod), Img(ImgCgPod), SBar(SbarCgPod)
   gPublicCommon.gForms(UCase(Me.Name)).ControlBegEnds.Add "CGPOD", "TXTCGPODHDOCNO", "CBXBUYERCODE"
   
   gPublicCommon.gForms(UCase(Me.Name)).ControlStatus.Add "", Flex(FlexCgPod), Text(TxtCgPodhDocno)
   gPublicCommon.gForms(UCase(Me.Name)).ControlStatus.Add "ADD", Text(TxtTotalQty), Text(TxtTotalAmt)
   gPublicCommon.gForms(UCase(Me.Name)).ControlStatus.Add "CHG", Text(TxtTotalQty), Text(TxtTotalAmt)
   
   gPublicCommon.PublicFunction.EnableControl Me, ""
   
   gPublicFunction.FillComboWithSql Me, Combo(CBxCgPodh_KhCode), "SELECT KHCODE,KHNO FROM KHREC WHERE KHTYPE=2 ORDER BY KHCODE", "KHNO", 0
   gPublicFunction.FillComboWithSql Me, Combo(CBxCgPodh_CwBzCode), "SELECT CwBzCODE,CwBzNO FROM CwBzREC ORDER BY CwBzCODE", "CWBZNO", 0
   gPublicFunction.FillComboWithSql Me, Combo(CbxCgPodh_BuyerCode), "SELECT BUYERCODE,BUYERNO FROM BUYERREC ORDER BY BUYERCODE", "BUYERNO", 0
  
Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub

Private Sub LoadDataIntoGrid(Index As String)
   Dim ItemStr As String
   Dim mCgPodh As CgPodh
   Dim mCgPod As CgPod
On Error GoTo Errorhandle
   
   Select Case UCase(Index)
   
   Case "CGPOD"
   
      Flex(FlexCgPod).Rows = 1
      Flex(FlexCgPod).AddItem ""
      
      oCgPodh.CgPods.FillbyDb oCgPodh
      
      For Each mCgPod In oCgPodh.CgPods
         ItemStr = vbTab & mCgPod.CgPod_HwBmCode & vbTab & mCgPod.CgPod_HwBmMc
         ItemStr = ItemStr & vbTab & mCgPod.CgPod_HwDwCode & vbTab & mCgPod.CgPod_HwDwConv
         ItemStr = ItemStr & vbTab & mCgPod.CgPodQty & vbTab & mCgPod.CgPodPrice & vbTab & mCgPod.CgPodAmt
         ItemStr = ItemStr & vbTab & mCgPod.CgPod_CwSmCode & vbTab & gPublicFunction.ConvStringToDate(mCgPod.CgPodDDat) & vbTab & mCgPod.CgPodBz
         Flex(FlexCgPod).AddItem ItemStr, Flex(FlexCgPod).Rows - 1
         Flex(FlexCgPod).RowData(Flex(FlexCgPod).Rows - 2) = mCgPod.CgPodKey
      Next
      If Flex(FlexCgPod).Rows > 2 Then
         Flex(FlexCgPod).Row = 1
         Set oCgPod = oCgPodh.CgPods(CStr(Flex(FlexCgPod).RowData(1)))
      Else
         Set oCgPod = Nothing
      End If
      
      gPublicFunction.SumFlexQtyAmt Flex(FlexCgPod), "CGPODQTY,CGPODAMT", Text(TxtTotalQty), Text(TxtTotalAmt)
   
   End Select

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

Private Sub AddRecord(RecordName As String)
On Error GoTo Errorhandle

   Set oCgPodh = New CgPodh
   Set oCgPod = Nothing
   Clearcontrol
   Text(TxtCgPodhDocno).SetFocus
   
   If Text(TxtCgPodhDat).Text = "" Then
      Text(TxtCgPodhDat).Text = gPublicCommon.PublicSysDatas("SYSTEMDATE").SysDataValue
   End If
   
   gPublicFunction.SetToolbarStatu Me, Tlbaction(TlbCgPod), RecordName
   
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub ChgRecord(RecordName As String)
On Error GoTo Errorhandle
    
   If oCgPodh Is Nothing Then
      Exit Sub
   End If

   Text(TxtCgPodhDocno).SetFocus
   gPublicFunction.SetToolbarStatu Me, Tlbaction(TlbCgPod), RecordName
    
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub CancelRecord(RecordName As String)
On Error GoTo Errorhandle

   If oCgPodh.CgPodhId = -1 Then
      Clearcontrol
      Set oCgPod = Nothing
      Set oCgPodh = Nothing
   Else
      oCgPodh.Requery oCgPodh.CgPodhDocno
      SetValueToControl
   End If
   
   gPublicFunction.SetToolbarStatu Me, Tlbaction(TlbCgPod), RecordName
   
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub


Private Sub Clearcontrol()
On Error GoTo Errorhandle

   Text(TxtCgPodhDocno).Text = ""
   Combo(CBxCgPodh_KhCode).Text = ""
   Combo(CBxCgPodh_CwBzCode).Text = ""
   Combo(CbxCgPodh_BuyerCode).Text = ""
   
   Text(TxtTotalQty).Text = ""
   Text(TxtTotalAmt).Text = ""
   
   Flex(FlexCgPod).Rows = 1
   Flex(FlexCgPod).AddItem ""
   
   Text(TxtCgPodhDocno).SetFocus
   
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub SaveRecord(RecordName As String)
On Error GoTo Errorhandle
   
   SetValueToObject
   oCgPodh.Save
   
   gPublicFunction.SetToolbarStatu Me, Tlbaction(TlbCgPod), RecordName
   
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub SetValueToObject()
   Dim mCgPod As CgPod
   Dim I As Integer
On Error GoTo Errorhandle

   oCgPodh.CgPodhDocno = Trim(Text(TxtCgPodhDocno).Text)
   oCgPodh.CgPodhDat = gPublicFunction.ConvDateToString(Text(TxtCgPodhDat).Text)
   oCgPodh.CgPodh_KhCode = Trim(Combo(CBxCgPodh_KhCode).Text)
   oCgPodh.CgPodh_CwBzCode = Trim(Combo(CBxCgPodh_CwBzCode).Text)
   oCgPodh.CgPodh_BuyerCode = Trim(Combo(CbxCgPodh_BuyerCode).Text)
   oCgPodh.CgPodhForm = UCase(Me.Name)
   
   For I = 1 To Flex(FlexCgPod).Rows - 2
      Set mCgPod = oCgPodh.CgPods(CStr(Flex(FlexCgPod).RowData(I)))
      mCgPod.CgPod_HwBmCode = Trim(Flex(FlexCgPod).TextMatrix(I, Flex(FlexCgPod).ColIndex("HWBMCODE")))
      mCgPod.CgPod_HwDwCode = Trim(Flex(FlexCgPod).TextMatrix(I, Flex(FlexCgPod).ColIndex("HWDWCODE")))
      mCgPod.CgPod_HwDwConv = Val(Flex(FlexCgPod).TextMatrix(I, Flex(FlexCgPod).ColIndex("CGPOD_HWDWCONV")))
      mCgPod.CgPodQty = Val(Flex(FlexCgPod).TextMatrix(I, Flex(FlexCgPod).ColIndex("CGPODQTY")))
      mCgPod.CgPodPrice = Val(Flex(FlexCgPod).TextMatrix(I, Flex(FlexCgPod).ColIndex("CGPODPRICE")))
      mCgPod.CgPodAmt = Val(Flex(FlexCgPod).TextMatrix(I, Flex(FlexCgPod).ColIndex("CGPODAMT")))
      mCgPod.CgPod_CwSmCode = Trim(Flex(FlexCgPod).TextMatrix(I, Flex(FlexCgPod).ColIndex("CWSMCODE")))
      mCgPod.CgPodDDat = Trim(gPublicFunction.ConvDateToString(Trim(Flex(FlexCgPod).TextMatrix(I, Flex(FlexCgPod).ColIndex("CGPODDDAT")))))
      mCgPod.CgPodBz = Trim(Flex(FlexCgPod).TextMatrix(I, Flex(FlexCgPod).ColIndex("CGPODBZ")))
   Next
   
Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Private Sub DelRecord(RecordName As String)
On Error GoTo Errorhandle


   Select Case UCase(RecordName)
   Case "DEL"
   
         If oCgPodh Is Nothing Then
            Err.Raise vbObjectError + 1, , "无单据，不能进行删除！"
            Exit Sub
         End If
      
         If MsgBox("您真的要删除当前整张单据吗？", vbYesNo + vbQuestion) = vbYes Then
            oCgPodh.Del
            Set oCgPod = Nothing
            Set oCgPodh = Nothing
            Clearcontrol
         End If
   
   Case "DEF"