K3 BOS¿ª·¢°ÙÎÊ°Ù´ð ÏÂÔر¾ÎÄ

¿Í»§»¯¿ª·¢¼¼Êõ×ÊÁÏ¡ª¡ª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Ò³

ºÏͬ½ð¶î