K/3 BOSÓ¦Óÿª·¢°ÙÎʰٴð
¡¾½â´ð¡¿
µ¥¾ÝÌåµÄÒѼµÄÌõÊýÓÃÏÂÃæµÄ·½·¨¿ÉµÃµ½¡£ m_BillInterface.Data(\
×¢Ò⣺×îºóÒ»Ìõ¿ÉÄÜÊǿռǼ£¬ÒªÅжÏ(if ·Ö¼¹Ø¼ü×Ӷλò±ØÌî×Ö¶Î<>\¡£
¡¾ÕªÒª¡¿²å¼þÖлñÈ¡µ¥¾ÝÉϿؼþµÄλÖᢳߴçÐÅÏ¢
°æ±¾£ºK310.2SP1
ÎÊÌâÃèÊö£ºÇëÎÊÔÚBOS²å¼þ¿ª·¢ÖУ¬¿É·ñÓôúÂë»ñÈ¡BOSµ¥¾ÝÉÏij¸ö¿Ø¼þµÄλÖᢳߴçÐÅÏ¢£¿ÒÔ¼°ÄÜ·ñÓôúÂ붯̬ÐÞ¸ÄËüÃǵÄλÖã¿
¡¾½â´ð¡¿
ÔÚK/3BOS²å¼þÖлñÈ¡¿Ø¼þµÄλÖõķ½·¨£º
m_BillInterface.BillHeads(1).BOSFields(\£¬ÆäÖС°FDate¡±ÊǿؼþµÄÃû³Æ£¬Ò²¿ÉÒÔÓÃËüÀ´¸Ä±ä¿Ø¼þµÄλÖá£
¡¾ÕªÒª¡¿¹ØÁª×Ô¶¨ÒåºËËãÏîÄ¿
°æ±¾£ºK310.2SP2
ÎÊÌâÃèÊö£ºÇëÎÊÔÚн¨µÄBOSµ¥»òÔÓеÄBOSµ¥ÉÏÈçºÎ¹ØÁª×Ô¶¨ÒåµÄºËËãÏîÄ¿»ù´¡×ÊÁÏ£¿
¡¾½â´ð¡¿
ÐÞ¸ÄICClassTableInfoÖÐ
FLookupClassID,FSRCFieldName,FSRCTableName,FDSPFieldName,FFNDFieldName¡£
¡¾ÕªÒª¡¿ÊÇ·ñÔÊÐí²å¼þ×Ô¶¨Òå²éѯÌõ¼þ£¿
°æ±¾£ºK310.2SP2
ÎÊÌâÃèÊö£ºÐèÒªÔÚÐòʲ¾²éѯ¹ý³Ì£¬¸ù¾ÝÈËÔ±½ÇÉ«²»Í¬£¬×Ô¶¯½«ËùÄÜ¿´µ½µÄÊý¾Ý½øÐйýÂË£¬ÇëÎÊ´ËÀàÎÊÌâÔõôʵÏÖ£¬BOSÐòʲ¾ÊÇ·ñÔÊÐí²å¼þ×Ô¶¨Òå²éѯÌõ¼þ£¿
¡¾½â´ð¡¿
¿ÉÒÔͨ¹ýÔÚÐòʲ¾²å¼þµÄshowÖÐÖ±½ÓÐÞ¸ÄListFilterStringÊôÐÔµÄÖµÀ´×Ô¶¨Òå²éѯÌõ¼þ. ʾÀýÈçÏ£º
With m_listinterface
If len(.listfilterstring)>0 then
.listfilterstring=.listfilterstring & ¡° and FDeptID=984¡± Else
.listfilterstring=¡± FDeptID=984¡± End if End with
¡¾ÕªÒª¡¿Ìî³ä·Ö¼ÐУ¿ °æ±¾£ºK310.2SP2
µÚ4Ò³
K/3 BOSÓ¦Óÿª·¢°ÙÎʰٴð
ÎÊÌâÃèÊö£ºÒ»Õŵ¥¾ÝÓм¸°ÙÌõ·Ö¼, ÿÌõ·Ö¼Êý¾Ý¶¼ÊÇͨ¹ý²å¼þÌîÈëµÄ.µ«ÊÇÈç¹ûʹÓà setFieldValue ·½·¨Ò»¸ö×Ö¶ÎÒ»¸ö×Ö¶ÎÌîµÄ»°, Ëٶȷdz£Âý. ÊDz»ÊÇÓиüºÃµÄ·½·¨Ìî³äÐÐÊý¾Ý?
¡¾½â´ð¡¿
¿ÉÒÔÓÃinsertnewrowandfill·½·¨²åÈëÒ»ÐÂÐС£ ʾÀýÈçÏ£º 'ÅúÁ¿²åÈëÐÐÊý¾Ý Dim i As Long For i = 1 To 10
m_BillInterface.InsertNewRowAndFill 2, i, \
\ Next
ÐèҪעÒâµÄÊDzéÕÒÀàÐ͵Ä×Ö¶ÎÖ»Òª¸ø³ö±àÂë¼´¿É£¬»ù´¡×ÊÁÏÊôÐÔ£¨ÈçÎïÁÏÃû³ÆµÈ£©²»ÐèÒª¸³Öµ¡£
¡¾ÕªÒª¡¿ÔÚBosµ¥¾Ý°´F7²éѯ¹©Ó¦ÉÌÐÅÏ¢£¬°´F9²éѯ²É¹º¼Û¸ñ¹ÜÀíÐÅÏ¢¡£
°æ±¾£ºK310.2SP1+PT0704
ÎÊÌâÃèÊö£ºÔÚÐÂÔö²É¹ºÉêÇ뵥ʱ,ÔÚ·Ö¼ÖеũӦḚ́´F7ÄÜÑ¡Ôñ¹©Ó¦ÉÌÐÅÏ¢,°´F9ÄÜÑ¡µ½²É¹º¼Û¸ñ¹ÜÀíÐÅÏ¢,ÎÒÏÖÔÚÏëÔÚе¥ÖÐÒ²Ìí¼ÓÒ»¸ö¹©Ó¦ÉÌ,ҲʵÏÖÉÏÊö¹¦ÄÜ.¸ÃʲôʵÏÖ£¿
¡¾½â´ð¡¿
ʹÓÃMenuBarClickʼþʵÏÖF7 1¡¢ BeginEditʼþ
If dct(\Òª´¦Àí×Ö¶ÎFKey¡° Then
m_BillInterface.MenuBar.BOSTools(\End If 2¡¢ MenuBarClick
If BOSTool.ToolName = \ m_BillInterface.GetActiveField dct, col, row If dct(\
m_BillInterface.BillCtl.DoSelBill 200000104 '(Ôµ¥µÄClassTypeID) End If End If
3¡¢ ²É¹º¼Û¸ñ¹ÜÀíµÄµ÷Óýӿڣ¬½áºÏÉÏÊöËù˵ʹÓãº
Dim obj As Object
Set obj = CreateObject(\With obj
.CallByBill = True
.SelICItemID = 'µ±Ç°ÎïÁÏÐÐÄÚÂë .CategoryBySupply = false .SelSupID = '¹©Ó¦ÉÌÄÚÂë .PriceType = 1 .Show 1
End With
µÚ5Ò³
K/3 BOSÓ¦Óÿª·¢°ÙÎʰٴð
Set obj = Nothing
¡¾ÕªÒª¡¿ÓÐûÓпÉÒÔÈ¡µ½µ¥¾Ý±àºÅµÄ×é¼þÄØ£¿
°æ±¾£ºK310.2SP2
ÎÊÌâÃèÊö£º¿Í»§Òªµ¼ÈëÒ»ÕÅ×é×°µ¥£¬×é×°µ¥ÊÇÒ»ÕÅBOSµ¥¾Ý¡£ÓÐûÓÐÒ»¸öרÃŵõ½µ¥¾Ý±àºÅµÄ×é¼þÄØ£¿Óеϰ£¬½Ó¿ÚÊÇʲô£¿
¡¾½â´ð¡¿
Set obj = CreateObject(\
GetThisBillNo = obj.GetBillNo(sDsn, ClassID, sKey, bGetDeleteNo, bSave) ½Ó¿ÚÃèÊö£º
'/*ÃèÊö:µÃµ½Ò»ÖÖÒµÎñÀàÐ͵ıàºÅ '/*²ÎÊý:
'/*@ bGetDeleteNo ÊÇ·ñ»ñÈ¡¿ÕºÅ£¬ÕâÖÖµ¥¾ÝÉèÖÃÁËɾ³ýµÄ¿ÕºÅ±»±£´æ²ÅÓÐЧ£¬ÒѾÎÞЧ£¬Ö»ÊDZ£³Ö¼æÈݵ÷ÓýӿÚ
'/*@ bSave ÊÇ·ñÐèÒªÐÞ¸ÄеÄ×î´óµ¥¾ÝºÅ '/*@ ClassID ÀàÐÍ '/*@ sDsn Á¬½Ó´®ÐÅÏ¢
'/*@ sKey ÐèÒª´¦ÀíµÄ¹Ø¼ü×Ö¡£
¡¾ÕªÒª¡¿ÊÇ·ñ¿ÉÒÔÖ±½ÓÔÚÊý¾Ý¿â±íÖÐÖ±½ÓÐÞ¸ÄBosµ¥¾ÝÖеÄ×Ö¶ÎÀàÐÍ£¿
°æ±¾£ºK310.2SP1+Sp2+10.3
ÎÊÌâÃèÊö£ºÏÖÔÚÔÚBosµ¥¾ÝÖмÓÈëÒ»±¸×¢×ֶΣ¬²¢±£´æÁËÊý¾Ý£¬¿É·ñ½«±¸×¢×ֶθÄΪÎı¾×ֶΣ¬±£Ö¤Êý¾Ý²»¶ªÊ§£¿
¡¾½â´ð¡¿
¿ÉÒÔÐ޸ıíIcclasstableinfoµÄFCtlType×ֶΣ¬Ê¾ÀýÈçÏ¡£
update icclasstableinfo set fcaption_chs='Îı¾1',fcaption_cht='Îı¾
1',fcaption_En='Text1',FKey='FText1',FFieldName='FText1',FCtlType=1 where fid=8438 update icclasstype set fid=fid ----µ¥¾ÝµÄʱ¼äËó
×¢ÒâÔÚºóÃæ¸üÐÂicclasstableinfo±íÀ´Ð޸ĵ¥¾Ý£¬Ò»¶¨Òª¸üÐÂÒ»ÏÂicclasstype,·ñÔòÇ°ÃæµÄ¸üÐÂÔÚBosÉè¼Æ»·¾³·´Ó³²»³öÀ´¸üС£
¡¾ÕªÒª¡¿Ëø¶¨µ¥¾Ý×Ö¶Î
°æ±¾£ºK310.2SP1+Sp2+10.3
ÎÊÌâÃèÊö£ºÈçºÎÔÚ²å¼þÖÐËø¶¨µ¥¾Ý×ֶΡ£
¡¾½â´ð¡¿
¿ÉÒÔÓÃlockcell·½·¨Ëø¶¨,ÈçËø¶¨µ¥¾ÝÍ·±Ò±ð:
Set dcttemp = m_BillInterface.GetFieldInfoByKey(\
If Not dcttemp Is Nothing Then m_BillInterface.BillCtl.LockCell dcttemp, -1, True µÚ¶þ¸ö²ÎÊýΪ·Ö¼ÐкÅ,µ±Îª-1Ê±Ëø¶¨ËùÓÐÐС£
µÚ6Ò³
K/3 BOSÓ¦Óÿª·¢°ÙÎʰٴð
×¢Òâ:Éè¼Æ×´Ì¬Ã»ÓÐÉè¼ÆÎª\Ëø¶¨\µÄ×Ö¶Î,²Å¿ÉÒÔÔÚÔËÐÐ×´Ì¬Ëø¶¨»ò½âËø¡£
¡¾ÕªÒª¡¿É¾³ý·ûºÏÌõ¼þµÄµ¥¾Ý
°æ±¾£ºK310.2SP1+Sp2+10.3
ÎÊÌâÃèÊö£º·ûºÏÒ»¶¨Ìõ¼þµÄµ¥¾Ý²»ÔÊÐíɾ³ý¡£ÊÇ·ñÓÐɾ³ýǰµÄʼþ¿ÉÒÔµ÷Ó㬻òÕ߯äËû·½·¨£¿
¡¾½â´ð¡¿
¿ÉÒÔÔÚÖмä²ã²å¼þµÄBeforedelʼþÖÐд´úÂëʵÏÖ¡£
¡¾ÕªÒª¡¿¶¯Ì¬¹ýÂË»ù´¡×ÊÁÏ
°æ±¾£ºK310.2SP1+Sp2+10.3
ÎÊÌâÃèÊö£ºÓÃK/3 BOSн¨µÄµ¥¾ÝÉϵÄÌí¼Ó»ù´¡×ÊÁÏʱ,ÄÜ·ñ¸ø¶¨Ä³ÖÖ¹ýÂËÌõ¼þ?±ÈÈç:ÎÒÑ¡Ôñij¸öÎïÁÏ×ÊÁÏ,ÎÒÒªÇóÖ»ÏÔʾָ¶¨µÄij¸ö²¿ÃŵÄÎïÁÏ×ÊÁÏ,ÆäËüµÄÎïÁϲ»ÏÔʾ,²»Çå³þÕâÖÖÇé¿öÄÜ·ñʵÏÖ,»¹ÊÇ¿ÉÒÔͨ¹ýÆäËü·½·¨À´ÊµÏָù¦ÄÜ¡£
¡¾½â´ð¡¿
¿ÉÒÔÔÚµ¥¾ÝµÄChangeʼþÖÐдÈçÏ´úÂëÀ´ÊµÏÖ¶¯Ì¬¹ýÂËÌõ¼þ¡£
If dct(¡°FKey¡±)=¡±FDeptID¡± then
m_BillInterface.DataSrv.TableInfo(m_BillInterface.TableInfo(\= \¡¯¡± & m_BillInterface.getfieldvalue(¡°FDeptID¡± ) & ¡°¡¯¡± End if
×¢Òâ:ÉÏÃæµÄ´úÂë²»Ö§³Öµ÷ÊÔ,Èç¹ûµ÷ÊÔ,·¢ÏÖ¸³ÖµÎª¿Õ,ûÓн«¹ýÂËÌõ¼þ¸³Öµ³É¹¦,µ«±àÒëºóÔËÐÐûÓÐÎÊÌâ¡£
¡¾ÕªÒª¡¿µ¥¾Ý±£´æ³ö´í
°æ±¾£ºK310.2SP2
ÎÊÌâÃèÊö£ºÐÂÔöBOSµ¥¾Ý,µ¥¾ÝµÄ±íÉèΪpoRequest, µ¥¾ÝÌåµÄ±íÉèΪ poRequestEntry,È»ºó±£´æ,³öÏÖÈçÏÂÌáʾ´íÎóÐÅÏ¢£º¡±Ë÷Òý¡¯IX_PoRequest_FBillNo¡¯ÒÀÀµÓÚÁС¯FBillNo¡¯¡±,ÇëÎÊÕâÊÇÔõô»ØÊ£¿ÄÜɾ³ý´ËË÷ÒýÂð£¿
¡¾½â´ð¡¿
ÕâÊÇ10.2µÄÒ»¸öÉè¼Æ²»ºÏÀíµÄµØ·½£¬10.3ûÓÐÕâ¸öÎÊÌâÁË¡£¿ÉÒÔÏÈɾ³ý£¬Éè¼Æ³É¹¦ºó¼ÓÉϾͺÃÁË¡£
¡¾ÕªÒª¡¿±íÌåµ±Öеĵ±Ç°¼Ç¼ºÅ£¬²»ÄÜÔÚÌ×´òÖдòÓ¡¡£ °æ±¾£ºK310.2SP1+PT0704
ÎÊÌâÃèÊö£º±íÌåµ±Öеĵ±Ç°¼Ç¼ºÅ£¬²»ÄÜÔÚÌ×´òÖдòÓ¡¡£
¡¾½â´ð¡¿
µ±Ç°ÐкŴòÓ¡µÄ²¹¶¡PT003411ÒѾ½â¾ö¡£
µÚ7Ò³