Exemples de scripts permettant de créer des règles personnalisées

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

Option Explicit 
          ' Vérifie si les données du tableau correspondent au résultat
' column1 - colonne de prix
' column2 - colonne de quantités
' resultField - champs obtenus (<Total> ou équivalent )
' docObj - nœud de document en cours de vérification
          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
          ' récapitulatif des données du tableau 
    sum = 0
          For i = 0 To costItems.Count - 1
        curCost = costItems.Item(i).Value
        curNum = numItems.Item(i).Value
        sum = sum + curNum * curCost
Next
             ' Précision de la comparaison – résultat arrondi au 2ème chiffre après la virgule
    result = resultField.Value
          If (Round(result, 2) = Round(sum, 2)) Then
        docObj.CheckSucceeded = True
             Else
        docObj.CheckSucceeded = False
        docObj.ErrorMessage = "Les données du tableau ne correspondent pas à la valeur du résultat"
        resultField.Suggest sum
             End If
Exit Sub
err_h:
              docObj.ErrorMessage = Err.Description
    docObj.CheckSucceeded = False
End Sub
        

[VBScript]
'mémoriser la valeur du champ
Dim fieldValue
fieldValue = me.Field("Field6").Value
          ' Crée la liste des valeurs à vérifier
Dim list(5)
dim i
          for i = 0 to 4
    list(i) = "2" & i
next
          dim success
success = false
          'Vérifier si la valeur d'un champ correspond aux valeurs de la liste
for i = 0 to 4
    if list(i) = fieldValue Then
        success = true
        exit for
              end if
next
          'Définir le niveau de certitude correspondant pour le champ en fonction du résultat de la vérification
me.Field("Field6").IsVerified = success
          'remplir la liste de suggestions pour le champ – la suggestion peut être l'une des 
'valeurs appropriées
if success = false then
              for i = 0 to 4
        me.Field("Field6").Suggest( list(i) )
    next
end if
          'placer un indicateur d'erreur
me.CheckSucceeded = success
          [JScript]
// mémoriser la valeur du champ
var fieldValue = Field("Field6").Value;
          // créer la liste des valeurs à vérifier
var list = new Array(5);
          for( i = 0; i < 5; i++ ) {
    list[i] = "2" + i
}
          var success = false;
// faire correspondre la valeur du champ aux valeurs de la liste 
for( i = 0; i < 5; i++ ) {
              if( list[i] == fieldValue ) {
        success = true;
        break;
    }
}
          // Définir le niveau de certitude correspondant pour le champ en fonction du résultat de la vérification
Field("Field6").IsVerified = success;
          // remplir la liste de suggestions pour le champ – la suggestion peut être l'une des 
// valeurs appropriées
if( !success ) {
              for( i = 0; i < 5; i++ ) {
        Field("Field6").Suggest( list[i] );
    }
          }
// placer un indicateur d'erreur
CheckSucceeded = success;
        

[VBScript]
if me.Field("InvoiceNumber").IsMatched then
 me.CheckSucceeded = true
else
           me.CheckSucceeded = false
 me.ErrorMessage = "Le champ InvoiceNumber ne correspond pas"
end if
          [JScript]
if( Field("InvoiceNumber ").IsMatched ) {
 CheckSucceeded = true;
} else {
           CheckSucceeded = false;
 ErrorMessage = "Le champ InvoiceNumber ne correspond pas";
}
        

[VBScript]
if me.Field("Page status").Value then
    me.CheckSucceeded = true
          else
    me.CheckSucceeded = false
    me.ErrorMessage = "Le statut de la page n'est pas vérifié"
  me.FocusedField = me.Field(Page status)  ""
end if
          [JScript]
if( Field("Page status").Value ) {
    CheckSucceeded = true;
} else {
              CheckSucceeded = false;
    ErrorMessage = "Le statut de la page n'est pas vérifié";
    FocusedField = Field("Page status");
}
        

[VBScript]
if me.Fields.Count = 0 then
    me.CheckSucceeded = false
    me.ErrorMessage = "Aucune coche dans le groupe"
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
          [JScript]
if( Fields.Count == 0 ) {
    CheckSucceeded = false;
    ErrorMessage = "Aucune coche dans le groupe";
} 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;
}
        

[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
          [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 = ""
}
        

[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
next
        

[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 = "Nombre incorrect de documents dans le lot :" & " " & AcQty& ". " & "Nombre attendu :" & " " & 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 = "Nombre incorrect de documents dans le lot :" + " " + AcQty + "." + "Nombre attendu :" + " " + DQty +"!" ;
}
        

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 = "Type d'éléments inconnus dans l'ensemble";
               }
          }
          Context.Field("Field").Text = subDocumentsCount.ToString() + " " + pagesCount.ToString();