Примеры скриптов для создания пользовательских правил

[JScript]
 var autoRule = new ActiveXObject( "AutomationRule.CheckDoc" );
autoRule.CheckResult( Field("cost"), Field("number"),
    Field("Result"), this );
          [VBScript]
dim autoRule
set autoRule = CreateObject( "AutomationRule.CheckDoc" )
autoRule.CheckResult me.FIELD("cost"), me.FIELD("number"), me.FIELD("Result"), me
          

          

Option Explicit 
          ' Проверяет соответствие данных таблицы значению в итоговом поле
' column1 - цена
' column2 - количество
' resultField - итоговое поле (<Total> или эквивалентное)
' docObj - проверка узла документа
Public Sub CheckResult(ByRef column1 As Object, ByRef column2 As Object, _
ByRef resultField As Object, ByRef docObj As Object)
On Error GoTo err_h
Dim costItems AsObject, numItems AsObject
Dim curCost AsDouble, curNum AsLong, sum AsDouble
Dim result AsDouble
Dim i AsLong
Set costItems = column1.Items
Set numItems = column2.Items
' суммирование данных таблицы
    sum = 0
For i = 0 To costItems.Count - 1
        curCost = costItems.Item(i).Value
        curNum = numItems.Item(i).Value
        sum = sum + curNum * curCost
Next
   ' округление точности сравнения результата до двух знаков после запятой
    result = resultField.Value
If (Round(result, 2) = Round(sum, 2)) Then
        docObj.CheckSucceeded = True
   Else
        docObj.CheckSucceeded = False
        docObj.ErrorMessage = "Данные таблицы не соответствуют результирующему значению"
        resultField.Suggest sum
   End If
Exit Sub
err_h:
    docObj.ErrorMessage = Err.Description
    docObj.CheckSucceeded = False
End Sub
        

[JScript]
// запомнить значение поля
var fieldValue = Field("Field6").Value;

// создать список значений для проверки
var list = new Array(5);
for( i = 0; i < 5; i++ ) {
    list[i] = "2" + i
}
var success = false;
          
// проверить значение поля на соответствие значениям из списка
for( i = 0; i < 5; i++ ) {
    if( list[i] == fieldValue ) {
        success = true;
        break;
    }
}
          
// в зависимости от результатов проверки выставить уверенность полю
Field("Field6").IsVerified = success;

// заполнить список подсказок для поля - подсказкой может быть любое из
// подходящих значений
if( !success ) {
    for( i = 0; i < 5; i++ ) {
        Field("Field6").Suggest( list[i] );
    }
}
// установить флажок ошибки
CheckSucceeded = success;
[/JScript]

[VBScript]
'запомнить значение поля
Dim fieldValue
fieldValue = me.Field("Field6").Value

'создать список значений для проверки
Dim list(5)
dim i
for i = 0 to 4
    list(i) = "2" & i
next
dim success
success = false
'проверить значение поля на соответствие значениям из списка
for i = 0 to 4
    if list(i) = fieldValue Then
        success = true
        exit for
    end if
next

'в зависимости от результатов проверки выставить уверенность полю
me.Field("Field6").IsVerified = success

'заполнить список подсказок для поля - подсказкой может быть любое из
'подходящих значений
if success = false then
    for i = 0 to 4
        me.Field("Field6").Suggest( list(i) )
    next
end if

'установить флажок ошибки
me.CheckSucceeded = success
[/VBScript]
        

Код правила, приведенный ниже, определяет, наложилось ли проверяемое поле.
          [JScript]
if( Field("InvoiceNumber ").IsMatched ) {
 CheckSucceeded = true;
} else {
 CheckSucceeded = false;
 ErrorMessage = "Поле InvoiceNumber не наложилось";
}
[/JScript]

[VBScript]
if me.Field("InvoiceNumber").IsMatched then
 me.CheckSucceeded = true
else
 me.CheckSucceeded = false
 me.ErrorMessage = "Поле InvoiceNumber не наложилось"
end if
[/VBScript]
          
        

[JScript]
if( Field("Page status").Value ) {
    CheckSucceeded = true;
} else {
    CheckSucceeded = false;
    ErrorMessage = "Статус страницы не отмечен";
    FocusedField = Field("Page status");
}
[/JScript]

[VBScript]
if me.Field("Page status").Value then
    me.CheckSucceeded = true
else
    me.CheckSucceeded = false
    me.ErrorMessage = "Статус страницы не отмечен"
  me.FocusedField = me.Field(Page status)  ""
end if
[/VBScript]
          
        

[JScript]
if( Fields.Count == 0 ) {
    CheckSucceeded = false;
    ErrorMessage = "В группе нет меток";
} else {
    var isChosen = false;
    var i;
    for( i = 0; i < Fields.Count; i++ ) {
        if( Fields.Item( i ).Value ) {
            isChosen = true;
            break;
      }
    }
    if( !isChosen ) {
        Fields.Item(0).Value = true;
    }
    CheckSucceeded = true;
}
[/JScript]

[VBScript]
if me.Fields.Count = 0 then
    me.CheckSucceeded = false
    me.ErrorMessage = "В группе нет меток"
else
    dim isChosen, i
    isChosen = false
    for i = 0 to me.Fields.Count - 1
       if me.Fields.Item( i ).Value then
            isChosen = true
            exit for
       end if
    next
    if Not isChosen then
        me.Fields.Item(0).Value = true
    end if
    me.CheckSucceeded = true
end if
[/VBScript]
        

[JScript]
var susp, qty, strpos, i, SC, strposPrev
strposPrev = 1
qty = 0
SC = "1"
susp = SuspiciousSymbols
 
  for ( i = 0; i < susp.length; i++) {
    strpos = susp.indexOf (SC,i)
    if ((strpos != strposPrev) && (strpos != -1)) {
      qty = qty + 1
      strposPrev = strpos
    }
  }
 
if (qty >= 3) {
  text = ""
}
[/JScript]

[VBScript]
Dim totQty, suspQty
Dim i
totQty = me.Symbols.Count
suspQty = 0
for i = 0 to totQty - 1
  if me.Symbols.Item(i).IsSuspicious = true then
    suspQty = suspQty + 1
  end if
next
if suspQty >= 3 then
  me.Text = ""
end if
[/VBScript]
        

[VBScript]
Dim totQty
Dim i
totQty = me.Symbols.Count
for i = 0 to totQty - 1
  if me.Symbols(i).Symbol = "+" then
    me.Symbols(i).Symbol = "&"
  end if
[/VBScript]
        

[VBScript]
dim DQty
dim i
for i = 0 to me.Batch.Documents.Count - 1
  if me.Batch.Documents.Item(i).DefinitionName = "Inv" then
    DQty = me.Batch.Documents.Item(i).IndexedItemValue("DocQty")
    exit for
  end if
next
           
          dim AcQty
AcQty = me.Batch.Documents.Count
if acqty <> DQty then
  me.CheckSucceeded = false
  me.ErrorMessage = "Некорректное количество документов в пакете:" & " " & AcQty& ". " & "Должно быть:" & " " & DQty & "!"
end if
[JScript]
for ( i = 0; i < [Batch.Documents.Count - 1]; i++ ) {
  var TemplName = Batch.Documents.Item(0).DefinitionName;
  if (TemplName = "Inv") {
    var DQty = Batch.Documents.Item(i).IndexedItemValue("DocQty");
    break ;
  }
}
 
var AcQty = Batch.Documents.Count -1
  if (AcQty != DQty) {
    CheckSucceeded = false;
    ErrorMessage = "Некорректное количество документов в пакете:" + " " + AcQty + "." + "Должно быть:" + " " + DQty +"!" ;
}
        

[C# .Net]
using System;

int subDocumentsCount = 0;
          int pagesCount = 0;
          IBatchItem asBatchItem = Context.Document.AsBatchItem;
          IBatchItems items = asBatchItem.ChildItems;
          
          foreach (IBatchItem item in items) 
          {
              if ( item.Type == TBatchItemType.BIT_Page ) 
              {   pagesCount ++;  } 
              else if( item.Type == TBatchItemType.BIT_Document ) 
              {   subDocumentsCount ++; } 
              else 
              {
                  Context.CheckSucceeded = false;
                  Context.ErrorMessage = "Неизвестный тип элемента";
               }
          }
          Context.Field("Field").Text = subDocumentsCount.ToString() + " " + pagesCount.ToString();
[/C# .Net]