Постановка задачи

В каждой версии документа с ИД=124727 необходимо проверить наличие электронной подписи. Если версия подписана, для каждой подписи формируется штамп по формату Министерства связи и массовых коммуникаций Российской Федерации.

Программный код

 

// Ввести ИД документа.

DocID = 124727

// Указать путь до папки, в которую будут размещены PNG-изображения штампов

// в формате Министерства связи и массовых коммуникаций Российской Федерации.

FolderPath = 'C:\Stamp\'

// Указать путь до папки с PNG-изображением эмблемы штампа.

GerbPath = 'C:\Stamp\Gerb.png'

 

EDocument = EDocuments.GetObjectByID(DocID)

foreach DocVersion in EDocument.Versions

  if DocVersion.Signed

    foreach Sign in DocVersion.Signatures

      Certificate = Sign.Certificate

      StampPath = Format('%s%s%s'; ArrayOf(FolderPath;

         Certificate.SubjectName ; ".png"))

      ValidDate = Format('c %s по %s';

         ArrayOf(Certificate.ValidFromDate; Certificate.ValidToDate))

      GenerateStateStamp(GerbPath; Certificate.SerialNumber;

         Certificate.SubjectName; ValidDate; StampPath)

    endforeach

  endif

endforeach

© 2016 Компания DIRECTUM

Сообщество пользователей DIRECTUM