Jangogo : 
'获得一个PAZU对象,用于处理远程SC代码
Function GetPAZU(ByVal sSCPage As String, 
                  Optional stoneA As String, 
                  Optional includeA As String,
                  Optional ByVal sSysCall As String,                 
                  Optional ByVal strJSON As String
) as Object

sSCPage  :  后台代码ID, 如 inventory.bill  表示 进销存模块的单据 stoneA : 要动态附加的SC代码

includeA : 要动态附件的后台代码ID

sSysCall : 在执行后台代码前先调用系统过程

strJSON:  sSysCall 时附带的参数

 

如果执行sSysCall 后有结果返回,则这个结果放在PAZU对象的SysResultString属性中

 

如果sSysCall参数中包含"."(如:mySysClass.obj)则需要你自己实现一个 mySysClass.obj 的类,并实现一个方法:

 

VB
  1. Public Function exec(ByVal s As String, Session As object) As String  

 

Session 是一个 Collection 对象,有以下键值对:

 

VB
  1. Session.add s, "CNStr"  
  2. Session.add s, "UserID"  
  3. Session.add s, "UserName"  
  4. Session.add s, "DBType"  
  5. Session.add bool, "isReg"  
  6. Session.add s, "LikeAllChr"  
  7. Session.add s, "AccYear"  
  8. Session.add s, "AccType"  
  9. Session.add s, "Arrow"  
  10. Session.add s, "DateBrkt"  
  11. Session.add s, "DateFormat"  
  12. Session.add s, "AppPath"  
文档中心
Copyright © 2000-2016 粤ICP05021785号
地址:广州市天河区员村二横路8号全丰商业大厦808室 邮编:510600