Документ группы шаблона TemplGrp

Документ группы шаблона печати TemplGrp описывается програмистом в скриптах в виде документа. Пользователь не может его ни добавлять, ни редактировать, ни удалять. Он задается в скриптах с помощью функции CreateDoc("TemplGrp"), после чего задаются код группы, наименование и т.д. Документ TemplGrp, помимо главных реквизитов, имеет еще грид таблицу DataGrps, в котором хранятся группы данных, передаваемых документу. Документ TemplGrp задается следующим образом:


           Dim docA1N As AsDoc 
           docA1N("Code") = "A1N" 
           docA1N("Name") = #BalanceSheet 
           docA1N("EName") = #e_BalanceSheet 
           docA1N.Grid("DataGrps").AddRow 
           docA1N.Grid("DataGrps").Value(0, "Code") = "01" 
           docA1N.Grid("DataGrps").Value(0, "Name") = "5" 
           docA1N.Grid("DataGrps").Value(0, "EName") = "5" 
           docA1N.Store
    

После задания групп, необходимо передать их в описание шаблона TEMPLATE следующим образом:


           NAME = BusCert;  
           CAPTION = #BusTCertificate+"(doc)"; 
           ECAPTION = #e_BusTCertificate+"(doc)"; 
           TYPE = "0";
           Group = A1N;
           DataGroups = "01"
    

Каждый шаблон может принадлежать только одной группе, и каждый шаблон может иметь много групп данных, которые будут перечисляться через запятые, например: DataGroups = "01,05"

Обший вид документа TemplGrp следующий:


           Name = TemplGrp;
           Caption = "Տպելու ձևանմուշի խումբ";
           ECaption = "Template group";
           Page { Caption = #General;       ECaption = #e_General;
             Rekvizit {Name = Code;  Caption = #Code;  ECaption = #e_Code;  Type = "C(20)";  ATRIBUTS = "R"; };
             Rekvizit {Name = Name;  Caption = #Name;  ECaption = #e_Name;  Type = "C(50)";  ATRIBUTS = "R"; };
             Rekvizit {Name = EName; Caption = #EName; ECaption = #e_EName; Type = "C(50)";                  };
             GRID {Name = DataGrps; Caption = "Տվյալների խմբեր"; ECaption = "Data groups";  Width = 9000; Height = 2000; 
              COLUMN {Name = Code;  Caption = #Code;  ECaption = #e_Code;  Type = "C(20)";  ATRIBUTS = "UR"; };
              COLUMN {Name = Name;  Caption = #Name;  ECaption = #e_Name;  Type = "C(50)";  ATRIBUTS = "R"; };       
              COLUMN {Name = EName; Caption = #EName; ECaption = #e_EName; Type = "C(50)";  };       
             };
            };