frmscdmtld.frm

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

            Caption         =   "前移"
            Key             =   "PRE_SYSTABLE"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "后移"
            Key             =   "NEX_SYSTABLE"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "最后"
            Key             =   "LAS_SYSTABLE"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查找"
            Key             =   "FIN_SYSTABLE"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Key             =   "PRN_SYSTABLE"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "HLP_SYSTABLE"
            ImageIndex      =   10
         EndProperty
         BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "EXI_SYSTABLE"
            ImageIndex      =   11
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
   Begin MSComctlLib.ImageList Img 
      Index           =   0
      Left            =   0
      Top             =   300
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   21
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":0542
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":0A84
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":0FC6
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":10D8
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":162A
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":1B7C
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":20CE
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":2620
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":2732
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":2844
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":2956
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":2A68
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":2B7A
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":2C8C
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":2D9E
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":2EB0
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":31CA
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":32DC
            Key             =   ""
         EndProperty
         BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":33F0
            Key             =   ""
         EndProperty
         BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmScdmTld.frx":3504
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu mFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu muFile 
         Caption         =   ""
         Index           =   0
      End
   End
   Begin VB.Menu mEdit 
      Caption         =   "编辑(&E)"
      Begin VB.Menu muEdit 
         Caption         =   "据生产工单退料"
         Index           =   0
         Tag             =   "SCDMTLDGEN"
      End
   End
   Begin VB.Menu mView 
      Caption         =   "查看(&V)"
      Begin VB.Menu muView 
         Caption         =   ""
      End
   End
   Begin VB.Menu mHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu muHelp 
         Caption         =   ""
         Index           =   0
      End
   End
End
Attribute VB_Name = "frmScdmTld"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Const TlbScdmFld = 0
Const ImgScdmFld = 0
Const SbarScdmFld = 0

Const FrmScdmFldh = 0

Const FlexScdmFldh = 1
Const FlexScdmFld = 0

Const TxtScdmFldhDocno = 0
Const TxtScdmFldhDat = 6
Const TxtScdmFldh_CwqjCode = 5

Const CBxScdmFldh_PsBmCode = 0

Const TxtTotalQty = 1
Const TxtTotalAmt = 2

Dim mCurColOldValue As String

Dim oScdmFldh As ScdmFldh
Dim oScdmFld As ScdmFld

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

   Text(TxtScdmFldhDocno).Text = vDocno
   Text_LostFocus TxtScdmFldhDocno

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 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(TlbScdmFld).Tag = "" Then
      Cancel = True
   End If
   
   If oScdmFldh Is Nothing Then
      Cancel = True
   End If

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

   Select Case Flex(FlexScdmFld).ColKey(Col)
         
   Case "HWCKMC", "SCDMFLD_HWDWCONV", "SCDMFLDQTY", "SCDMFLDPRICE", "SCDMFLDAMT", "SCFMFLDBZ"
         If oScdmFld Is Nothing Then
            Cancel = True
         End If
         
   Case "HWDWCODE"
         If oScdmFld 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(TxtScdmFldhDocno).SetFocus
  
Exit Sub
ErrorHandle:
   MsgBox Err.Description
End Sub

Private Sub Form_Load()
On Error GoTo ErrorHandle
  
   Flex(FlexScdmFld).Editable = flexEDKbdMouse
   
   Flex(FlexScdmFld).ColKey(1) = "SCDDOCNO"
   Flex(FlexScdmFld).ColKey(2) = "HWBMCODE"
   Flex(FlexScdmFld).ColKey(3) = "HWBMMC"
   Flex(FlexScdmFld).ColKey(4) = "HWDWCODE"
   Flex(FlexScdmFld).ColKey(5) = "SCDMFLD_HWDWCONV"
   Flex(FlexScdmFld).ColKey(6) = "HWCKMC"
   Flex(FlexScdmFld).ColKey(7) = "SCDMQTY"
   Flex(FlexScdmFld).ColKey(8) = "SCDMFQTY"
   Flex(FlexScdmFld).ColKey(9) = "SCDMFLDQTY"
   Flex(FlexScdmFld).ColKey(10) = "SCDMFLDPRICE"
   Flex(FlexScdmFld).ColKey(11) = "SCDMFLDAMT"
   Flex(FlexScdmFld).ColKey(12) = "SCDMFLDBZ"
      
   gPublicFunction.LoadFormSet Me, Tlbaction(TlbScdmFld), Img(ImgScdmFld), SBar(SbarScdmFld)
   gPublicCommon.gForms(UCase(Me.Name)).ControlBegEnds.Add "ScdmFld", "TXTSCDMFLDHDOCNO", "CBXPSBMCODE"
   
   gPublicCommon.gForms(UCase(Me.Name)).ControlStatus.Add "", Flex(FlexScdmFld), Text(TxtScdmFldhDocno)
   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(CBxScdmFldh_PsBmCode), "SELECT PsBmCODE,PsBmNO FROM PsBmREC ORDER BY PsBmCODE", "PsBmNO", 0
  
Exit Sub
ErrorHandle:
   MsgBox Err.Description
End Sub

Private Sub LoadDataIntoGrid()
   Dim Itemstr As String
   Dim mScdmFldh As ScdmFldh
   Dim mScdmFld As ScdmFld
On Error GoTo ErrorHandle
   
   Flex(FlexScdmFld).Rows = 1
   Flex(FlexScdmFld).AddItem ""
   
   oScdmFldh.ScdmFlds.FillbyDb oScdmFldh
   
   For Each mScdmFld In oScdmFldh.ScdmFlds
      Itemstr = vbTab & mScdmFld.ScdmFld_ScdDocno & vbTab & mScdmFld.ScdmFld_HwBmCode & vbTab & mScdmFld.ScdmFld_HwBmMc
      Itemstr = Itemstr & vbTab & mScdmFld.ScdmFld_HwDwCode & vbTab & mScdmFld.ScdmFld_HwDwConv & vbTab & mScdmFld.ScdmFld_HwCkMc
      Itemstr = Itemstr & vbTab & mScdmFld.ScdmFld_ScdmQty & vbTab & mScdmFld.ScdmFld_ScdmFQty & vbTab & mScdmFld.ScdmFldQty & vbTab & mScdmFld.ScdmFldPrice & vbTab & mScdmFld.ScdmFldAmt & vbTab & mScdmFld.ScdmFldBz
      Flex(FlexScdmFld).AddItem Itemstr, Flex(FlexScdmFld).Rows - 1
      Flex(FlexScdmFld).RowData(Flex(FlexScdmFld).Rows - 2) = mScdmFld.ScdmFldKey
   Next
   If Flex(FlexScdmFld).Rows > 2 Then
      Flex(FlexScdmFld).Row = 1
      Set oScdmFld = oScdmFldh.ScdmFlds(CStr(Flex(FlexScdmFld).RowData(1)))
   Else
      Set oScdmFld = Nothing
   End If
   
   gPublicFunction.SumFlexQtyAmt Flex(FlexScdmFld), "SCDMFLDQTY,SCDMFLDAMT", Text(TxtTotalQty), Text(TxtTotalAmt)


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

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

   Set oScdmFldh = New ScdmFldh
   Set oScdmFld = Nothing
   Clearcontrol
   Text(TxtScdmFldhDocno).SetFocus
   
   If Text(TxtScdmFldhDat).Text = "" Then
      Text(TxtScdmFldhDat).Text = gPublicCommon.PublicSysDatas("SYSTEMDATE").SysDataValue
   End If
   
   oScdmFldh.ScdmFldhDat = Trim(Text(TxtScdmFldhDat).Text)
   Text(TxtScdmFldh_CwqjCode).Text = oScdmFldh.ScdmFldh_CwQjCode
   
   gPublicFunction.SetToolbarStatu Me, Tlbaction(TlbScdmFld), RecordName
   
Exit Sub
ErrorHandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

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

   Text(TxtScdmFldhDocno).SetFocus
   gPublicFunction.SetToolbarStatu Me, Tlbaction(TlbScdmFld), RecordName
    
Exit Sub
ErrorHandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

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

   If oScdmFldh.ScdmFldhId = -1 Then
      Clearcontrol
      Set oScdmFld = Nothing
      Set oScdmFldh = Nothing
   Else
      oScdmFldh.Requery oScdmFldh.ScdmFldhDocno
      SetValueToControl
   End If
   
   gPublicFunction.SetToolbarStatu Me, Tlbaction(TlbScdmFld), RecordName
   
Exit Sub
ErrorHandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub