谁写过制单功能(调用凭证制单控件) 帮帮忙

下雨______天

按U8开发实例的写了
'事例2: 制单 (其他产品)
'总账公用函数实例化
    If Not Login("PM") Then Exit Sub
    Dim UfDb As New UfDbKit.UfDatabase
    Dim SQL  As String
    UfDb.OpenDatabase m_login.UfDbName
   
    Set m_ZwPub = New clsPub
    m_ZwPub.InitPubs2 "SA", m_login.UfSystemDb, UfDb, m_login.cacc_id, m_login.cIYear, m_login.cUserId, m_login.CurDate, m_login.SysPassword
    '准备数据 , 临时表结构参见总账数据库结构文档的凭证表
    Dim I As Integer, rstVouch As UfRecordset
    SQL = "select * from " & m_ZwPub.WbTableName
    Set rstVouch = m_ZwPub.DataMdb.OpenRecordset(SQL)
    For I = 0 To 1
        rstVouch.AddNew
        rstVouch!ioutperiod = 9
        rstVouch!coutsign = "项目"
        rstVouch!coutno_id = "123456"
        rstVouch!coutsysname = "SA"
        rstVouch!cbill = m_login.cUserName
        rstVouch!inid = I
        '以上字段必填
        If I = 0 Then
            rstVouch!md = 100
        Else
            rstVouch!mc = 200
        End If
        rstVouch.Update
    Next I '调用凭证对象
    Set m_objPz = New clsPZ
    Set m_objPz.zzLogin = m_login
    Set m_objPz.zzSys = m_ZwPub
   
    m_objPz.StartUpPz "PM", "PM034", Pz_ZD
    Set m_objPz = Nothing
    Set m_ZwPub = Nothing



这样调用后的凭证界面是出来了,但内容不能修改
sysname改为"GL"的话,不能预置数据,调出来是空白内容的凭证
sysname不为"GL"时,不能修改

不知道有没有方法外部制单可以修改内容的呢? 哪位好心人教一下!

amani10

       rstVouch.Fields("bvouchedit").Value = True                       '----凭证是否可修改
       rstVouch.Fields("bvouchaddordele").Value = True                  '----凭证分录是否可删除
       rstVouch.Fields("bvalueedit").Value = True                       '----分录数值是否可修改
       rstVouch.Fields("bcodeedit").Value = True                        '----科目是否可修改
       rstVouch.Fields("bPCSedit").Value = True                         '----往来项是否可修改
       rstVouch.Fields("bDeptedit").Value = True                        '----部门信息是否可修改
       rstVouch.Fields("bItemedit").Value = True                        '----项目信息是否可修改
       rstVouch.Fields("bCusSupInput").Value = True                    '----往来信息是否必须



把这些代码也加上

下雨______天

真是感谢万分
现在又有个问题,参照档案时出错, 是什么原因呢?