bos_deductbill.cls

金蝶地磅称重插件

    If lCheckMode = 0 And lBusinessLevel = lCheckMaxLevel And lCheckStatus = 1 Then
       Set rs = m_BillInterface.K3Lib.GetData("select FRInstockWeight,FIsCompClosed,FMergedFlag FROM t_ST_SC_BalanceBillEntry where fEntryID=" & m_BillInterface.GetFieldValue("FBEntryID"))
       If Not rs.EOF Then
          If rs("FRInstockWeight") > 0 Then
             MsgBox "对应捡斤单已经入库，不允许驳回审核！", , "金蝶提示"
             Cancel = True
          End If
          
          If rs("FIsCompClosed") > 1 Then
             MsgBox "对应捡斤单已经结算，不允许驳回审核！", , "金蝶提示"
             Cancel = True
          End If
          
          If rs("FMergedFlag") > 1 Then
             MsgBox "对应捡斤单已经合并，不允许驳回审核！", , "金蝶提示"
             Cancel = True
          End If
            
          '删除扣杂数量
          m_BillInterface.K3Lib.GetData "update t_ST_SC_BalanceBillEntry set FDeductWeight = 0 where fEntryID=" & m_BillInterface.GetFieldValue("FBEntryID")
          
       End If
    End If
End Sub

Private Sub m_BillInterface_AfterUnMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckLevel As Long, ByVal lCheckStatus As Long, ByVal Success As Boolean)
    ''驳回审核后触发
'    If lCheckMode = 0 And lBusinessLevel = lCheckMaxLevel And lCheckStatus = 0 Then
'        '检斤单分录的扣杂数量清为零
'       m_BillInterface.K3Lib.GetData "update t_ST_SC_BalanceBillEntry set FDeductWeight = 0,finstockweight=fnetweight/1000 where fEntryID=" & m_BillInterface.GetFieldValue("FBEntryID")
'
'       '更新物理单的数量
'        Set rs = m_BillInterface.K3Lib.GetData("select sum(Fentryqty) from t_ST_SC_DeductBillentry where Fid=" & m_BillInterface.CurBillID)
'        If Not rs.EOF Then
'
'            ''如果是外购生铁，则调整质检单的数量
'            If m_BillInterface.GetFieldValue("FMItemID", , Enu_ValueType_FDSP) = "外购生铁" Then
'                m_BillInterface.K3Lib.UpdateData "exec BjSp_UpdateQmFeQty 'KZD0',0,0," & m_BillInterface.CurBillID
'            Else
'                m_BillInterface.K3Lib.UpdateData "update t4 set t4.FQuantity=t4.FQuantity+" & IIf(IsNull(rs.Fields(0)), 0, rs.Fields(0)) & " from t_ST_SC_DeductBill t1 inner join t_ST_SC_DeductBillentry t2 on t1.FId=t2.Fid and t1.Fid=" & m_BillInterface.CurBillID & " left join t_ST_SC_BalanceBill t3 on t1.FBillNo=t3.FBillno left join t_boszjwld t4 on t3.FStatus_Wl=t4.FInterid"
'                m_BillInterface.K3Lib.UpdateData "update t5 set t5.Ftempqu=t5.Ftempqu+" & IIf(IsNull(rs.Fields(0)), 0, rs.Fields(0)) & "     from t_ST_SC_DeductBill t1 inner join t_ST_SC_DeductBillentry t2 on t1.FId=t2.Fid and t1.Fid=" & m_BillInterface.CurBillID & " left join t_ST_SC_BalanceBill t3 on t1.FBillNo=t3.FBillno left join t_boszjwld t4 on t3.FStatus_Wl=t4.FInterid left join t_boszjwldentry  t5 on t4.FInterid=t5.FInterId and t5.Ftempqu>0"
'            End If
'        End If
'    End If
End Sub

Private Sub m_ListInterface_AfterMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckLevel As Long, ByVal lCheckStatus As Long, ByVal Success As Boolean)
    ''多级审核发生后
'If lCheckMode = 0 And lBusinessLevel = lCheckMaxLevel And lCheckLevel = lCheckMaxLevel And lCheckStatus = GetCheckLevel(lCheckMaxLevel) Then
'   Dim D As Dictionary
'   Set D = m_ListInterface.GetCurrentSelRowInfo()
'   Set rs = m_ListInterface.K3Lib.GetData("select sum(Fentryqty) from t_ST_SC_DeductBillentry where Fid=" & D.GetValue("FID"))
'   If Not rs.EOF Then
'      m_ListInterface.K3Lib.UpdateData "update t4 set t4.FQuantity=t4.FQuantity-" & IIf(IsNull(rs.Fields(0)), 0, rs.Fields(0)) & " from t_ST_SC_DeductBill t1 inner join t_ST_SC_DeductBillentry t2 on t1.FId=t2.Fid and t1.Fid=" & D.GetValue("FID") & " left join t_ST_SC_BalanceBill t3 on t1.FBillNo=t3.FBillno left join t_boszjwld t4 on t3.FStatus_Wl=t4.FInterid"
'      m_ListInterface.K3Lib.UpdateData "update t5 set t5.Ftempqu=t5.Ftempqu-" & IIf(IsNull(rs.Fields(0)), 0, rs.Fields(0)) & " from t_ST_SC_DeductBill t1 inner join t_ST_SC_DeductBillentry t2 on t1.FId=t2.Fid and t1.Fid=" & D.GetValue("FID") & "  left join t_ST_SC_BalanceBill t3 on t1.FBillNo=t3.FBillno left join t_boszjwld t4 on t3.FStatus_Wl=t4.FInterid left join t_boszjwldentry  t5 on t4.FInterid=t5.FInterId and t5.Ftempqu>0"
'
'     '设置扣杂数量
'      m_ListInterface.K3Lib.GetData "update t_ST_SC_BalanceBillEntry set  FDeductWeight =( select isnull(sum(FEntryQty),0) from t_ST_SC_DeductBillEntry where FID=" & D.GetValue("FID") & " ) " & _
'                                    " ,FInstockWeight = FInstockWeight - ( select isnull(sum(FEntryQty),0) from t_ST_SC_DeductBillEntry where FID= " & D.GetValue("FID") & ") " & _
'                                    " where FEntryID = (select top 1 FBEntryID from t_ST_SC_DeductBill where FID =  " & D.GetValue("FID") & ") "
'
'        ''如果是外购生铁，则调整质检单的数量
'        Set rs = m_ListInterface.K3Lib.GetData("select t2.fname from t_ST_SC_DeductBill t1 inner join t_icitem t2 on t1.FMItemID=t2.fitemid where t1.Fid=" & D.GetValue("FID"))
'        If rs.Fields("Fname") = "外购生铁" Then
'           m_ListInterface.K3Lib.UpdateData "exec BjSp_UpdateQmFeQty 'KZD1',0,0," & D.GetValue("FID")
'        End If
'   End If
'End If
End Sub

Private Sub m_ListInterface_MultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckLevel As Long, ByVal lCheckStatus As Long, bSendCheckMessage As Boolean, bSendAcceptMessage As Boolean, sMessageTitle As String, sMessage As String, Cancel As Boolean)
    Dim dctCurrRowInfo As Dictionary
    Set dctCurrRowInfo = m_ListInterface.GetCurrentSelRowInfo()
    
    If lCheckMode = 0 And lBusinessLevel = lCheckMaxLevel And lCheckStatus = GetCheckLevel(lCheckMaxLevel - 1) Then
       Set rs = m_ListInterface.K3Lib.GetData("select FDeductWeight from t_ST_SC_BalanceBillEntry where FentryID=(select fbentryid from t_ST_SC_DeductBill where Fid=" & dctCurrRowInfo.GetValue("FID") & ")")
       If rs.RecordCount > 0 Then
          If rs("FDeductWeight") > 0 Then
             MsgBox "对应捡斤单已经扣杂，不允许审核！", , "金蝶提示"
             Cancel = True
          Else
          End If
       End If
    End If

End Sub

Private Sub m_ListInterface_UnMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckStatus As Long, ByVal lLastCheckFrom As Long, ByVal lLastCheckTo As Long, bSendMessage As Boolean, Cancel As Boolean)
    ''驳回审核时触发
    Dim dctCurrRowInfo As Dictionary
    Set dctCurrRowInfo = m_ListInterface.GetCurrentSelRowInfo()
    
    If lCheckMode = 0 And lBusinessLevel = lCheckMaxLevel And lCheckStatus = 1 Then
       Set rs = m_ListInterface.K3Lib.GetData("select FRInstockWeight,FIsCompClosed,FMergedFlag from t_ST_SC_BalanceBillEntry where fEntryID=(select fbentryid from t_ST_SC_DeductBill where Fid=" & dctCurrRowInfo.GetValue("FID") & ")")
       If rs.RecordCount > 0 Then
          If rs("FRInstockWeight") > 0 Then
             MsgBox "对应捡斤单已经入库，不允许驳回审核！", , "金蝶提示"
             Cancel = True
          End If
          
          If rs("FIsCompClosed") > 1 Then
             MsgBox "对应捡斤单已经结算，不允许驳回审核！", , "金蝶提示"
             Cancel = True
          End If
          
          If rs("FMergedFlag") > 1 Then
             MsgBox "对应捡斤单已经合并，不允许驳回审核！", , "金蝶提示"
             Cancel = True
          End If
            
          '删除扣杂数量
           m_ListInterface.K3Lib.GetData "update t_ST_SC_BalanceBillEntry set FDeductWeight = 0 where fEntryID=(select fbentryid from t_ST_SC_DeductBill where Fid=" & dctCurrRowInfo.GetValue("FID") & ")"
       End If
    End If
End Sub

Private Sub m_ListInterface_AfterUnMultiCheck(ByVal lCheckMode As Long, ByVal lCheckMaxLevel As Long, ByVal lBusinessLevel As Long, ByVal lCheckLevel As Long, ByVal lCheckStatus As Long, ByVal Success As Boolean)
    ''驳回审核后触发
'    Dim dctCurrRowInfo As Dictionary
'    Set dctCurrRowInfo = m_ListInterface.GetCurrentSelRowInfo()
'
'    If lCheckMode = 0 And lBusinessLevel = lCheckMaxLevel And lCheckStatus = 0 Then
'        '更新检斤单的扣杂数量为零
'       m_ListInterface.K3Lib.GetData "update t_ST_SC_BalanceBillEntry set FDeductWeight = 0,finstockweight=fnetweight/1000 where fEntryID=(select fbentryid from t_ST_SC_DeductBill where Fid=" & dctCurrRowInfo.GetValue("FID") & ")"
'
'       '更新物理单的数量
'       Set rs = m_ListInterface.K3Lib.GetData("select sum(Fentryqty) from t_ST_SC_DeductBillentry where Fid=" & dctCurrRowInfo.GetValue("FID"))
'       If Not rs.EOF Then
'
'            ''如果是外购生铁，则调整质检单的数量
'            Set rs = m_ListInterface.K3Lib.GetData("select t2.Fname from t_ST_SC_DeductBill t1 inner join t_icitem t2 on t1.FMItemID=t2.fitemid where t1.Fid=" & dctCurrRowInfo.GetValue("FID"))
'            If rs.Fields("Fname") = "外购生铁" Then
'               m_ListInterface.K3Lib.UpdateData "exec BjSp_UpdateQmFeQty 'KZD0',0,0," & dctCurrRowInfo.GetValue("FID")
'            Else
'                m_ListInterface.K3Lib.UpdateData "update t4 set t4.FQuantity=t4.FQuantity+" & IIf(IsNull(rs.Fields(0)), 0, rs.Fields(0)) & " from t_ST_SC_DeductBill t1 inner join t_ST_SC_DeductBillentry t2 on t1.FId=t2.Fid and t1.Fid=" & dctCurrRowInfo.GetValue("FID") & " left join t_ST_SC_BalanceBill t3 on t1.FBillNo=t3.FBillno left join t_boszjwld t4 on t3.FStatus_Wl=t4.FInterid"
'                m_ListInterface.K3Lib.UpdateData "update t5 set t5.Ftempqu=t5.Ftempqu+" & IIf(IsNull(rs.Fields(0)), 0, rs.Fields(0)) & " from t_ST_SC_DeductBill t1 inner join t_ST_SC_DeductBillentry t2 on t1.FId=t2.Fid and t1.Fid=" & dctCurrRowInfo.GetValue("FID") & "  left join t_ST_SC_BalanceBill t3 on t1.FBillNo=t3.FBillno left join t_boszjwld t4 on t3.FStatus_Wl=t4.FInterid left join t_boszjwldentry  t5 on t4.FInterid=t5.FInterId and t5.Ftempqu>0"
'            End If
'       End If
'    End If
End Sub