¿Í»§»¯¿ª·¢¼¼Êõ×ÊÁÏ¡ª¡ªK/3 BOS¿ª·¢°ÙÎÊ°Ù´ð
Ò»¡¢²å¼þ¿ª·¢Æª
¡¾ÎÊÌâ1¡¿ÔÚ²å¼þÖÐÒÔÐÂÔö¡¢Ð޸ĺͲ鿴·½Ê½´ò¿ªÁíÒ»µ¥¾Ý ¡¾½â´ð¡¿
ʹÓôúÂëµ÷ÓÃÐòʱ²¾
'******************************************** '¹¦ÄÜ£ºÏÔʾBOSµ¥¾Ý£¬ÏÔʾµÄ·½Ê½ÎªÐÂÔö¡¢Ð޸ĺÍä¯ÀÀ '²ÎÊý£ºlClassTypeID¡ªÏÔʾBOSµ¥¾ÝµÄID '******************************************** Private Sub ShowBill(ByVal lClassTypeID As Long)
Dim oDataSrv As Object Dim oBill As Object
On Error GoTo err_ctr
Set oDataSrv = m_BillInterface.K3Lib.CreateK3Object(\ oDataSrv.ClassTypeID = lClassTypeID
Set oBill = CreateObject(\ With oBill
.DataSrv = oDataSrv .ISNetControl = True .ISCheckRight = True .Show
'********************** 'Show ²ÎÊýÀàÐÍ
'µÚÒ»¸ö²ÎÊý Optional ByVal lID As Long = 0 £»ÃèÊöÐ޸Ļò²é¿´µÄµ¥¾ÝID
'µÚ¶þ¸ö²ÎÊý Optional ByVal bShowGroup As Boolean = False £»ÈçÊÇ»ù´¡×ÊÁÏʱ£¬ÊÇ·ñÏÔʾ·Ö×é
'µÚÈý¸ö²ÎÊý Optional ByVal BillStatus As Long = Enu_BillStatus_New £»ÏÔʾ·½Ê½ 0¡ª²é¿´£»1¡ªÐÂÔö£»2¡ªÐÞ¸Ä
'µÚËĸö²ÎÊý Optional ByVal dctData As KFO.Dictionary 'µ¥¾Ý³õʼֵ '********************** End With
Set oDataSrv = Nothing Set oBill = Nothing
Exit Sub err_ctr:
Set oDataSrv = Nothing
µÚ1Ò³
¿Í»§»¯¿ª·¢¼¼Êõ×ÊÁÏ¡ª¡ªK/3 BOS¿ª·¢°ÙÎÊ°Ù´ð
Set oBill = Nothing
End Sub
¡¾ÎÊÌâ2¡¿ÎÒÏëÔÚͶÁϱä¸üµ¥µÄ²Ëµ¥ÉϼÓÈëÒ»¸ö²Ëµ¥ÏÐèÒª²åÈëÒ»¸ö²å¼þ£¬µ«Í¶Áϱä¸üµ¥ÉÏÒѾÓÐÒ»¸ö²å¼þÁË£¬ÎÒÏëÁ˽âÒ»ÏÂÔõÑù²Å¿ÉÒÔÔÙ²åÈëÒ»¸ö²å¼þÄØ£¿ ¡¾½â´ð¡¿
µã²å¼þ¹ÜÀíÖеİ´Å¥£¬¿ÉÒÔͨ¹ýä¯ÀÀÀ´Ñ¡Ôñ×Ô¶¨Òå²å¼þ£¬²¢Ñ¡Ôñ¶à¸ö²å¼þ¶ÔÏó£¬BOSÔÊÐí¶à¸ö²å¼þͬʱ´æÔÚ¡£
¡¾ÎÊÌâ3¡¿ÈçºÎͨ¹ý²å¼þ´úÂ붯̬ÉèÖûù´¡×ÊÁÏ»òÒµÎñµ¥¾ÝÐòʱ±¡¹ýÂËÌõ¼þ ¡¾½â´ð¡¿
ÒµÎñ³¡¾°£º
ÔÚ¿ª·¢BOSµ¥¾Ýʱ£¬¾³£ÐèÒª¸ù¾ÝÇ°Ãæ¼ÈëµÄ×Ö¶ÎÖµÀ´¹ýÂËÑ¡Ôñ
µÄ»ù´¡×ÊÁÏ¡£ÀýÈç¼Èë¿Í»§ºó£¬ÔÚÑ¡Ôñ¿Í»§¶ÔÓ¦¿Í»§µØÖ·»ù´¡×ÊÁÏʱ£¬ÔÚ»ù´¡×ÊÁÏF7²éѯ½çÃæÖ»ÏÔʾµ±Ç°µ¥¾ÝÉÏ¿Í»§¶ÔÓ¦µØÖ·¡£¸ù¾Ýµ±Ç°ÎïÁÏ£¬ÔÚÑ¡ÔñÎïÁ϶ÔÓ¦Åú´Î¡£
ÎÒÃÇÏÂÃæ¾ÍÒÔÅú´ÎΪÀý˵Ã÷ʵÏÖ·½·¨£º
ÐèÇó£ºÔÚÑ¡ÔñÅú´ÎÇ°ÒªÇó±ØÐë¼ÈëÎïÁÏ£¬Åú´Î²éѯ½çÃæÖ»ÏÔʾÎïÁ϶ÔÓ¦µÄÅú´Î ¿ª·¢²½Ö裺
¼ÙÉ裺ÎïÁ϶ÔÓ¦FKey=¡°FItemID¡±£¬Åú´Î¶ÔÓ¦FKey=\µ¥¾ÝÀàÐÍ 200000001
Ö»Ðè¸üжÔÓ¦ÔªÊý¾Ý¼´¿ÉʵÏÖ£º
update ICClassTableinfo set FFilter='(FItemID=GetFldValue(FItemID,1))' where FKey=\
Èç¹û²»ÒªÇóÏȼÈëÎïÁÏ
update ICClassTableinfo set FFilter='(FItemID=GetFldValue(FItemID,0))' where FKey=\
ÔپٸöÀý×Ó
¸ù¾Ý¹¤ÒÕ·Ïß¹ýÂ˹¤ÐòÃû³Æ
¼ÙÉ裺¹¤ÒÕ·ÏßFKey=¡°FNewRoutingID¡±£¬¹¤ÐòÃû³ÆFKey=\µ¥¾ÝÀàÐÍ 200000001
update ICClassTableinfo set FFilter='FInterID In (Select FOperID from t_routingoper where FinterID=GetFldValue(FNewRoutingID,1))' where FKey='FOperID' and FClassTypeID=200000001
ÆäÖÐGetFldValueΪBOSÄÚ²¿º¯Êý£¬È¡µ¥¾ÝÉÏÖ¸¶¨×Ö¶ÎÖµ£¬
µÚÒ»¸ö²ÎÊýΪ×ֶζÔÓ¦FKey£¬µÚ¶þ¸ö²ÎÊýΪÊÇ·ñÒªÇó¸Ã×Ö¶ÎÏȼÈ룬1 ÒªÇó 0 ²»ÒªÇó
´Ë·½·¨ËäÄÜʵÏÖ£¬µ«²»ÊÇ×îºÃ·½·¨¡£Ï£ÍûÄÜÔÚ²å¼þ½Ó¿ÚÖÐÌṩÔÚº¯Êý¡£
µÚ2Ò³
¿Í»§»¯¿ª·¢¼¼Êõ×ÊÁÏ¡ª¡ªK/3 BOS¿ª·¢°ÙÎÊ°Ù´ð
¡¾ÎÊÌâ4¡¿ÔÚ²å¼þÖе÷ÓÃÐòʱ²¾²¢·µ»ØÑ¡ÖеÄÊý¾Ý ¡¾»Ø´ð¡¿
Çë²Î¿¼ÏÂÃæ´úÂë
'******************************************** '¹¦ÄÜ£ºÏÔʾBOSÐòʱ²¾²¢·µ»ØÑ¡ÖеÄÖµ '²ÎÊý£ºlClassTypeID¡ªÏÔʾBOSµ¥¾ÝµÄID '********************************************
Private Function ShowListByReturn(ByVal lClassTypeID As Long) As Object Dim oDataSrv As Object Dim objLookup As Object
On Error GoTo err_ctr
Set oDataSrv = m_BillInterface.K3Lib.CreateK3Object(\ oDataSrv.ClassTypeID = lClassTypeID If oDataSrv.showfilter Then
Set objLookup = CreateObject(\ objLookup.ClassTypeID = lClassTypeID Set objLookup.DataSrv = oDataSrv
objLookup.Lookup
Set ShowListByReturn = objLookup.VectReturn End If
Set oDataSrv = Nothing Set objLookup = Nothing
Exit Function err_ctr:
Set oDataSrv = Nothing Set objLookup = Nothing End Function
¡¾ÎÊÌâ5¡¿ÔÚ×Ô¶¨ÒåµÄBOSµ¥¾ÝÉÏ£¬Í¨¹ý²å¼þ×÷Éú³Éƾ֤µÄ¹¦ÄÜ£¬µ«ÊÇÔÚµ÷ÓÃƾ֤µÄ×é¼þʱ£¬ÐèÒªÒ»¸ö¶þ´ÎµÇ¼ºó²ÅÄÜʹÓÃÏàÓ¦µÄÄ£¿é¡£ÇëÎÊ£ºÈçºÎ´¦ÀíÒþÉíµÄ¶þ´ÎµÇ¼£¬»òÕßÆäËûµÄ±äͨ´¦Àí¡£ ¡¾½â´ð¡¿
1. 2.
ƾ֤×é¼þµÄµ÷ÓÃÊDz»ÐèÒª¶þ´ÎµÇ¼µÄ£¬¿ÉÄÜÄãÊÇÔÚVBµ÷ÊÔ״̬ÏÂÔËÐУ¬±àÒëºó¾ÍûÊÂÁË¡£ Çë²Î¿¼ÏÂÃæ´úÂë
µÚ3Ò³
¿Í»§»¯¿ª·¢¼¼Êõ×ÊÁÏ¡ª¡ªK/3 BOS¿ª·¢°ÙÎÊ°Ù´ð
Private Sub m_BillInterface_MenuBarClick(ByVal BOSTool As K3ClassEvents.BOSTool, Cancel As Boolean)
Dim glvch As Object 'Öмä²ãƾ֤¶ÔÏó Dim mvch As KFO.Dictionary '´ý±£´æƾ֤ͷ Dim mvchentry As KFO.Vector '´ý±£´æƾ֤·Ö¼¼¯ Dim entry As KFO.Dictionary '´ý±£´æƾ֤·Ö¼ Dim mvchdetail As KFO.Vector 'ºËËãÏîÄ¿Ã÷ϸ¼¯ Dim detail As KFO.Dictionary 'ºËËãÏîÄ¿Ã÷ϸ Dim i, iCount As Long Dim vValue As Variant
'TODO: ÇëÔÚ´Ë´¦Ìí¼Ó´úÂëÏìӦʼþ MenuBarClick Select Case BOSTool.ToolName Case \Éú³Éƾ֤\
vValue = m_BillInterface.GetFieldValue(\
If Not (CStr(vValue) = \
MsgBox \µ±Ç°ºÏͬÒѾÉú³Éƾ֤£¡\½ðµûÌáʾ\ Exit Sub End If
'´Ë´¦Ìí¼Ó´¦Àí Éú³Éƾ֤ ²Ëµ¥¶ÔÏóµÄ Click ʼþ Set mvch = New KFO.Dictionary mvch(\
mvch(\½ð»ªÌ©ÏîÄ¿\
mvch(\ Set mvchentry = New KFO.Vector
vValue = m_BillInterface.GetFieldValue(\
'´´½¨Æ¾Ö¤·Ö¼
Set entry = New KFO.Dictionary
entry(\ entry(\ entry(\
entry(\ 'ÊýÁ¿&µ¥¼Û
entry(\ entry(\ entry(\ '´´½¨ºËËãÏîÄ¿Ã÷ϸ
Set mvchdetail = New KFO.Vector Set detail = New KFO.Dictionary detail(\
µÚ4Ò³
ºÏͬ½ð¶î