K3 BOSÓ¦Óÿª·¢°ÙÎʰٴð(V1.0) ÏÂÔØ±¾ÎÄ

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Ò³