Question

我想通过UFT代码在ALM中上传和excel文件。问题是我们已激活版本控制，然后我需要在上传文件之前签出资源。我在文档中看到方法CheckOut但是......不起作用。在网上我发现了这个：

Set fVersionControl = oNewResource.VC
fVersionControl.CheckOut -1, "comment", False

但是不起作用......

我的代码是：

For iNowResourceNum = 1 To resourceCount
    nowResource = oCurrentResources.Item(iNowResourceNum).Name
    If UCase(nowResource) = UCase(QcResourceName) Then
        Set oNewResource = oCurrentResources.Item(iNowResourceNum)
        resourceFound = "True"
    End If
Next

If resourceFound="True" Then
    Set fVersionControl = oNewResource.VC
    fVersionControl.CheckOut -1, "comment", False
    oNewResource.FileName=fileName
    oNewResource.ResourceType="Data table"
    oNewResource.Post
    oNewResource.UploadResource pathToSave, True
    fVersionControl.CheckIn "",""
    Reporter.ReportEvent micPass, "Resource found", "Resource Found"
else
    Reporter.ReportEvent micFail, "Resource doesnt found", "Resource doesnt found"
End If

oNewResource = null
nowResource = null
oCurrentResources = null
QCResourceManager = null

如何查看资源？

感谢您的关注。

Answer 1

你可以试试这个：

1 - 将

设置CheckoutEntity = fVersionControl

fVersionControl.CheckOut评论

2-通过

替换“fVersionControl.CheckIn”“，”“”

设置CheckinEntity = fVersionControl

fVersionControl.Checkin评论

这对我有用。希望它会有所帮助

如何从UFT中的代码签出资源

1 个答案: