I solve error with this code:

set content = %request.Content
Set whoIs = content.whoIs 
Set templates = content.templates 
Set templateCount = templates.Count() 
for i=1:1:templateCount {
Set row = templates.GetAt(i) Set codeForm = row.codeForm
Set codeName = row.codeName
Set orderNumber = row.orderNumber
Set codeFormat = row.codeFormat
Set headerXLS = row.headerXLS
Set headerDBF = row.headerDBF
Set dbfFormatType = row.dbfFormatType
Set dbfFormatLength = row.dbfFormatLength
Set valueFrom = row.valueFrom
}

Find this way to solve problem

Set %response.Status = ..#HTTP401UNAUTHORIZED

it's works!