設計研究所での改訂と通信。 easla.comとTDMSの統合

この記事では、ドキュメント固有のワークフロー手順に焦点を当てますが、技術的なワークフロー（この場合はTDMSに基づく）と外部通信の統合に焦点を当てます。 他のタイプの企業にも同様のニーズがある可能性があります。したがって、easla.comとの統合または自動化に関する質問がある場合は、記事を読むことも理にかなっています。興味深い技術的な詳細を説明しています。



私はPJSC Giprotyumenneftegazの年次会議で講演するつもりでしたが、現在の強い負荷のために、準備する時間がありませんでした。 友達や同僚の期待に応えられなかったもの（小さな公開討論が期待されていた）。 以下で説明するソリューションには、組織の観点から革新的なものは含まれていませんが、私は願っていますが、まだ注目に値します。





この記事の最初のいくつかのポイントは、「なぜ」に当てられています。 次に、「How」（VBScript、 MS SQL + XML）。 より興味深い方法であれば、5番目の段落に進んでください。

---

1.改訂。 それは何ですか。

リビジョンはドキュメントのバージョンです。 単語自体は、21のシリーズのGOSTが配布されていない外国の標準から来ました。 そこに、「彼ら」、主な碑文の文書には「Rev.」というフィールドがあり、実際には「改訂」を表しています。



プロジェクト文書を開発する過程で、設計者は図面を描くだけではありません。 デザイナーは、顧客の専門家や メーカーのデザイナーと非常に積極的にコミュニケーションを取っています。 非公式および正式の両方 。 つまり カバーレター付きの 承認の ためにドキュメントを 送信し、 コメントに応答し 、修正を行い、カバーレター付きでドキュメントを再度送信するなど.. 最後まで。 まだ同意していません。 開発中の各ドキュメント。



動作する正しい方法は、送信する前に文書をアーカイブに送信することです。 アーカイブに配信されると、インベントリ番号が割り当てられ、図面に変更番号が付けられ ます。 ただし、アーカイブへの送信には時間がかかるため、 少なくとも 2つのユニットが必要です。 したがって、設計者は、承認のために提出されるたびにドキュメントをアーカイブに提出することを避けます。 また 、設計者だけがGUI を避けた場合、チーフエンジニア、 さらに は顧客自身で さえ 、ドキュメントの承認手続きを遅らせることに関心 があり ません 。





つまり 監査会計が実装されているかどうか-「アーカイブなし」の交換はどのような場合でもあります。 また、変更番号をアーカイブに入れずに置くこともできません。 そして結果は混乱です。 ドキュメンテーションは、最初に顧客 （デザイナーからの手紙の発信番号で識別可能）に送られ 、次に専門家 （そしてここでは顧客からの発信番号！デザイナーからの手紙の番号が消えました！）に送られます。 お客様のスペシャリストは、異なるバージョンのドキュメントを異なるエキスパートに転送（および合格）できます（そしてお客様には多くのエキスパートがいます）。 これは 、結果報告が始まるまで理解できません。



混乱を防ぐため、監査会計が導入されています。 電子または紙の形式で送信される各ドキュメントには、改訂番号、リリース日、およびコメントが含まれています。 したがって、設計者と専門家に電話で連絡すると、改訂番号によって、同じ文書を手に持っているかどうかが明確になります。

---

2.監査と通常どのように連携するか。

悲しいことに、ほとんどの組織では、今日まで「手動自動化」が一般的な状況です。 つまり アカウンティング機能はマシンではなく人によって実行されます。 たとえば、 Excelを使用します。 「良い」ケースでは、ドキュメントを送信するプロセスを制御するリリースグループがあります。 無視されている （珍しいことではありません） -そのようなグループは存在せず、デザイナー自身が記録を保持しています。



つまり 文書を顧客に転送するために、設計技術者は改訂番号を割り当て、文書を印刷し、グループの頭に行き、署名し、次にチーフスペシャリストに、 署名し、部門の頭に、次に標準のコントローラーに、そしておそらくコーディネーターに部門、最後に、GUIに、そして-それをスキャンすることができます（手動で!!!）。 スキャン後 、カバーレターを作成し、 署名し、スキャンを収集して、たとえばGUIアシスタントまたはワークフローを担当する特別に指定された人に渡す 必要 があります。 この人はすべてをチェックします、神は喜んで-彼は間違いを見つけることはありません（ これをすべてやり直すのがどんなものか想像できますか？）。 そして、最後に、アプリケーション付きのレターが送信されます（ そうです、署名があるため、レター もスキャンされます！）。



顧客は、私が言わなければならない、異なるに出くわす必要があります。 確かに郵便でしなければなりません。 たとえ数ギガバイトがあっても。 他の人に-デザイナーリソースへのリンクを介して必ず。 第三に、顧客のリソースですべてを特定の順序で配置する必要があります。 一般に、多くのオプションがあります。 これも通常、手動で行われます。

---

3.会計以外のレビューには何が必要ですか？

ドキュメントの転送後、楽しみが始まります。 多くのドキュメントがあるので、設計から始まる最初のほとんどはドキュメントレジストリです（もちろん、タイトルリストはありませんが、これ はこの記事の範囲外です ）。 このレジストリによると、原則として、仕事の準備が制御されます。 各ドキュメントは、準備の観点から、次のいずれかのステータスにあります。

• 「開発中」-まだ顧客に転送されていません。
• 「送信済み」-文字番号が必要です。
• 「最終化」-コメントがあります。
• 「同意」-文書は同意されています。

また、調整は多段階プロセスであり、内部検査があり、GlavGosExpertizaがあり、設計ドキュメントへのリンクがあるなども考慮する必要があります。



「無視された」ケースでは、このようなレジストリを作成することは可能ですが、2週間かかり、20％のケースでエラーが発生します。 「手動自動化」の場合、それはより簡単なようです-なぜなら ドキュメントの転送とその承認を昼と夜 （少なくとも必須）を監視する特別な人がいます。 任意ですが、それでも集中化。 結果はほぼ「隔日」であり、エラーの10〜15％です。 なんで？ しかし、調整は多段階のプロセスであり、「責任」は多くの場合設計から遠いため、ニュアンスを理解していません。 正確には、調整プロセスは設計者によって監視されます。



さらに、ドキュメントの相互の適合性を制御する問題もあります。 プロジェクト文書は、しばしば他のプロジェクト文書に言及します。 特別な「参照および添付ドキュメントのリスト」もコンパイルされます。 GOSTによると、メモには文書の変更番号を示す必要があります。 したがって、変更番号を含むドキュメントの登録に従って、ドキュメントがリンクに関して正しいかどうか、または古いデータに基づいているかどうかを追跡できます。 改訂を会計処理する場合、原則として 、変更番号に加えて、改訂識別子を指定する必要があります。 同じ目的で。

---

4.監査の会計処理を自動化する方法。

監査会計を導入する際、2つの仮定から進めました。 まず 、デザイナーの作業量を削減する必要があります（これらすべての印刷とスキャン）。 次に 、承認プロセスを追跡するツールを提供する必要があります。 誰かに。 デザイナーに最適。 承認を追跡する特別な人はいません 。 したがって-デザイナーにとって、このツールは便利なはずです！



最初の点から始めましょう。 監査会計の実装時には、すでにアーカイブへの送信プロセスが確立されており、署名付きのPDFが作成されていました。 デザイナーは、署名を使用して印刷とスキャンを回避するためにそれらを最大限に使用しました（ただし、アーカイブは大変な負担でした）。 そのため、オブジェクトにいくつかのフィールドが追加され、署名付きのPDFの自動作成を含むリビジョン修正手順が実装されました。



その後、最初は、ドキュメントファイル（ソースとPDF）の簡単なアップロードが実装されました。 そしてその後、追跡プロセスに関する混乱の半分をすぐに許容する機能が実装されました-TDMSでは、デザイナーは修正されたリビジョンで、[電子メールに追加]ボタンをクリックし、文字を選択し、リビジョン自体がeasla.comで電子メールに入り、リンクも確立されますTDMSのリビジョンオブジェクトごと。 些細なことのように思えますが、それはいくつの問題を解決します！ 設計者はTDMSからの 抽出 、資料の収集、アーカイブ、ドキュメント管理サービスへの転送にかかる時間を節約し、GUIは5分で送信されたものの信頼できるリストを取得できます！



それでも、多くの時間を費やして資料をアーカイブし、それらをお客様に正しく転送する人はいません。







段落2では、次の機能が実装されました。TDMSでは、デザイナーはドキュメントの改訂を選択し、「承認レター」ボタンをクリックして、ドキュメントの承認に関する情報を含む受信レターをリストから選択します。 また、文書が同意されるかどうか 、 またはコメントがあるかどうかも選択されます。 それだけです



その結果、何が得られますか？ その結果、デザイナーは次のことを行います。

• お客様および関連部門のために開発したすべてのオプションをシステムに保存する方法を取得します。
• どの手紙をどのオプションで送ったかをシステムで直接示すことができます。
• 以前のように1〜2日送信するのではなく、1時間だけ送信します（上級エキスパートによる確認が必要です）。
• 彼自身が自分の作品がどのような状態にあるかを確認します（多くのドキュメントがあり、すべてを覚えているわけではありません）。
• 顧客の要求に応じてレポートを準備するのに週に数回気を散らすことはありません。ISU 自体が5分で登録を準備します。
• など

レジストリの例：







設計者はレジストリを作成する必要はありません-TDMSに は特別な選択があり、選択したポジションの転送と承認に関する情報が表示されます。

---

5.技術的側面。 EASLA.COMとのTDMS統合。

統合は3つのポイントで実装されます。

1. メール機能に追加
2. 機能「承認書」
3. 機能「レジストリの準備」

タスクの特性は、easla.comのレターからアプリケーションを削除すると、レジストリに影響することです。 さらに、デザイナーが手紙を準備し、文書をその中に入れて、準備の過程でそこに何か間違ったことを追加したことを理解したら、 彼はこの「何か間違ったこと」を手紙から取り除く必要があります。 他のシステムのオブジェクトへのリンクは、この特定のファイルに対して「死ぬ」必要があります。



各アプリケーションファイルには、情報を保存するためのフィールドがあります。 さらに、すべてのアプリケーションファイルで、easla.comでは、256バイト（他のシステムで最もよく行われる）の長さの説明フィールドだけでなく、「名前」を保存できる各要素に「ファイル構成」のリスト全体を保存できます。 、「リビジョン番号」、「リビジョン名」、「バージョンオプション」：





実際、私たちはこの機能easla.comの顧客であり、非常に役に立ちました。 さまざまな顧客がさまざまな方法でアーカイブを作成するように求めています。 複数のアーカイブを1つのアーカイブに含めることができます。

---

5.1。 機能「レターに追加」および機能「契約書」

TDMSのビジネスロジックの開発は、VBSで行われます。 TDMS開発者に感謝します。 はい、VBSは既に時代遅れであり、.Netであればより良いでしょうが、少なくとも特別なプログラミング言語を発明しませんでした。 私たちのマシンの制限や不具合から私たちを救ったもの。 BASICは学校で書くことを教えられていることは言うまでもありません。



さらに、easla.comにはシステムを操作するためのCOMインターフェイスがあります。 すべての職場にインストールされているエージェントに組み込まれています。 このインターフェイスは、いくつかの便利なツールを実装しています。 この場合、次のようなリストアイテムを選択するツールを使用しました。





上部には要素をフィルタリングするための行があり、下部にはオブジェクトのリストがあります（この場合は発信文字です が 、他の要素がある場合もあります）。



以下は、統合の実装方法を示すコードの一部です。 コードの一部は驚くほど専門的なレベルではないので、もっとコンパクトできれいに書くことができますが、どうすればいいですか -神はポットを燃やしません。 主なことは、それが機能することです。



easla.comから送信メールを受信する

Function GetOutingLetter() Set GetOutingLetter = Nothing Dim ea On Error Resume Next Err = 0 Set ea = CreateObject("Easla.Agent") If Err <> 0 Then MsgBox "EaslaAgent  .   ", VbOKOnly & VbCritical, "" Set ea = Nothing Exit Function End If '   « » Set process = ea.getProcessCOM("crs_management") If process Is Nothing Then MsgBox "EaslaAgent   .   ", VbOKOnly & VbCritical, "" Set ea = Nothing Exit Function End If '   «» Set object_def = ea.getObjectdefCOM(process, "crs_management_outgoing", 0) Dim arr1(2) arr1(0) = "crs_management_outgoing_regnum" arr1(1) = "crs_management_outgoing_document" arr1(2) = "crs_management_outgoing_attachments" '  ,    –   Set d = ea.CreateKeyValuesPairSoapItemCOM("status", Array("crs_management_outgoing_created")) '   Set result = ea.getObjectrefsCOM(object_def, arr1, Array(d)) '      Set kvps1 = CreateObject("EaslaAgent.com.easla.KeyValuePairSoap") kvps1.key = "" kvps1.value = "id" Set kvps2 = CreateObject("EaslaAgent.com.easla.KeyValuePairSoap") kvps2.key = "" kvps2.value = "description" Set kvps3 = CreateObject("EaslaAgent.com.easla.KeyValuePairSoap") kvps3.key = " " kvps3.value = "createtime" Set kvps4 = CreateObject("EaslaAgent.com.easla.KeyValuePairSoap") kvps4.key = "" kvps4.value = "status.name" '  Err = 0 Set ooo = ea.ShowSelectObjectDialogCOM(result, Array(kvps1, kvps2, kvps3, kvps4)) If Err = 0 Then Set GetOutingLetter = ooo End If Set ea = Nothing End Function
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

ファイルをeasla.comにアップロードし、オプションを設定します

 'o –   'commonname –    'revision –      'filename –      'revdata –      'guids –    TDMS  TDMSSheet   « » Function AddFileToOutingLetter(o, commonname, revision, filename, guids, revdata) Set AddFileTotOutingLetter = Nothing Dim ea On Error Resume Next Err = 0 Set ea = CreateObject("Easla.Agent") If Err <> 0 Then MsgBox "EaslaAgent  .   ", VbOKOnly & VbCritical, "" Set ea = Nothing Exit Function End If Set process = ea.getProcessCOM("crs_management") If process Is Nothing Then MsgBox "EaslaAgent   .   ", VbOKOnly & VbCritical, "" Set ea = Nothing Exit Function End If ' – ,       (- easla.com ,     ) '  ,   –    set attrs = ea.GetAttrsFromObjectCOM(o) colKeys = attrs.Keys For Each strKey In colKeys If attrs.Item(strKey).code = "crs_management_outgoing_attachments" Then For Each f In attrs.Item(strKey).values If f.nowname = commonname And f.isdeleted = "0" Then MsgBox " :           " & commonname, VbOKOnly & VbCritical, "" Exit Function End If Next End If Next '  easla.com Set orss = CreateObject("EaslaAgent.com.easla.ObjectrefSimpleSoap") orss.id = o.id Err = 0 '  set uploadfile = ea.uploadFileCOM(orss, code, filename) If Err <> 0 or uploadfile is Nothing Then MsgBox "       .   ", VbOKOnly & VbCritical, "" Set ea = Nothing Exit Function End If Set kvps1 = CreateObject("EaslaAgent.com.easla.KeyValuePairSoap") kvps1.key = "srcname" kvps1.value = commonname Set kvps2 = CreateObject("EaslaAgent.com.easla.KeyValuePairSoap") kvps2.key = "revcode" kvps2.value = revision Set kvps4 = CreateObject("EaslaAgent.com.easla.KeyValuePairSoap") kvps4.key = "revdata" kvps4.value = revdata '     set ooo = ea.updateFileCOM(uploadfile, Array(kvps1, kvps2,kvps4)) If Err = 0 Then Dim arrFCSS() ReDim Preserve arrFCSS(0) '  « » For Each ob in guids.Objects n = UBound(arrFCSS) ReDim Preserve arrFCSS(n + 1) arrFCSS(n) = ob.description '  n = UBound(arrFCSS) ReDim Preserve arrFCSS(n + 1) arrFCSS(n) = ob.guid '   TDMS n = UBound(arrFCSS) ReDim Preserve arrFCSS(n + 1) arrFCSS(n) = ob.Attributes("REV_LETTER").Classifier.Code & ob.Attributes("REV_NUM") ' n = UBound(arrFCSS) ReDim Preserve arrFCSS(n + 1) arrFCSS(n) = ob.Attributes("REV_DESCRIPTION") '  Next '   Set AddFileTotOutingLetter = ea.updateFileConsistCOM2(ooo, arrFCSS) End If Set ea = Nothing End Function
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

文字番号を受け取るという点での「文字に追加」と「承認文字」の機能は双子に似ているため、読者がeasla.comからの発信文字の番号を受け取ることに時間を費やしません。

---

5.2。 機能「レジスタの準備」

システムには、手紙と改訂の関係に関するデータがありますが、今では、レポートの準備のためにこのデータを抽出することに注意する価値があります。 QueryAfterExecuteイベントを使用してeasla.comから受信した情報と通信する TDMSサンプルに基づいてレポートを作成できますが、処理速度の理由から、easla.comにはSQLクエリでデータを受信する機能があるため、SQLを使用してこれを行うことにしました。 これを行うには、easla.comデータベースから情報を抽出できるようにする拡張機能がMS SQLサーバーにインストールされます。



リクエストのコード全体を引用するのではなく、重要な点について説明します。



ドキュメント識別子のリストから文字のリストを取得する

 CREATE PROCEDURE [dbo].[PR_TDMSReport_GetDocList_SENT] ( @guid uniqueidentifier – ,      ) AS BEGIN declare @id bigint select @id = f_objid from tngptdms.dbo.tobject (nolock) where f_guid = @guid; declare @temp_revs table ([guid_rev] uniqueidentifier --GUID  ,descr varchar(max) --  ,letter varchar(10) --1-  -  ,id varchar(10) --2-  -  ,t datetime --   ,objid_rev bigint -- -  ); --  ,     insert into @temp_revs EXEC [TNGP].[dbo].[PR_TDMSRevision_GetListByObject] @guid = @guid --  GUID-  XML-  ESLA declare @subquery varchar (MAX) set @subquery = cast ((select '{'+cast([guid_rev] as varchar(50))+'}' from @temp_revs for xml path('item'), elements, type) as varchar(MAX)) --     XML- declare @query XML set @query = '<conditions> <item> <key>crs_management_outgoing_attachments</key> <values>' + @subquery + '</values> </item> </conditions>' --    ,   easla.com declare @temquerytbl table ( regnum varchar(32), regdate varchar(32), revguids xml, [SentStatus] varchar(40) ) --,     easla.com DECLARE @organization_id AS INT; DECLARE @process_id AS INT; DECLARE @objectdef_id AS INT; DECLARE @user_id AS INT; declare @ret int declare @logined int set @logined = 0 if(@subquery is not NULL) begin -- , –           ESLA,      -- EASLAlogin –     easla.com select @logined = [master].[dbo].[EASLAlogin](,) IF (@logined = 1) BEGIN --     easla.com SELECT @organization_id = organization.id, @process_id = process.id, @objectdef_id = objectdef.id FROM [master].[dbo].[EASLAgetOrganization] ('TNGP') AS organization LEFT JOIN [master].[dbo].[EASLAgetAllProcesses] () AS process ON process.oid = organization.id LEFT JOIN [master].[dbo].[EASLAgetAllObjectdefs] () AS objectdef ON objectdef.pid = process.id WHERE process.code = 'crs_management' AND objectdef.code = 'crs_management_outgoing'; -- -   easla.com SELECT @user_id = id FROM [master].[dbo].[EASLAgetOrganizationUser] (@organization_id, ) --  easla.com   insert into @temquerytbl SELECT attributerefs.value('(ArrayOfAttributerefSimpleSoap[1]/AttributerefSimpleSoap[1]/values/item/node())[1]','varchar(30)') as letternum ,attributerefs.value('(ArrayOfAttributerefSimpleSoap[1]/AttributerefSimpleSoap[2]/values/item/node())[1]','varchar(30)') as regdate ,cast(attributerefs.query('(ArrayOfAttributerefSimpleSoap[1]/AttributerefSimpleSoap[3]/values/item/consist/item/revdata)')as varchar(max)) as revguid ,cast([status].query('(StatusSimpleSoap[1]/name[1]/node())')as varchar(max)) as sentstatus from master.[dbo].[EASLAgetobjectrefs]( @process_id, @objectdef_id --   ,CAST(' <attributerefs> <item>crs_management_outgoing_regnum</item> <item>crs_management_outgoing_sentdate</item> <item>crs_management_outgoing_attachments</item> </attributerefs> ' AS XML) ,@query, @user_id ); end declare @temquerytbl1 table ( revguid varchar(50), regnum varchar(30), regdate varchar(30), sentstatus varchar(40) ) insert into @temquerytbl1 select cast(t2.loc.query('(./node())') as varchar(50)), regnum,replace(regdate,'/','.'),sentstatus from @temquerytbl as T CROSS APPLY revguids.nodes('/revdata') as T2(Loc) END IF (@logined = 1) BEGIN select @logined = 1 - [master].[dbo].[EASLAlogout]() end …
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

同様の手順PR_TDMSReport_GetDocList_RECEIVEDもあります。この手順では、承認状に関する情報が要求されます。 承認レターが示されている属性はTDMSに格納されている ため、違いがありますが、一般的には動作原理を説明することは重要ではありません。



JOIN操作では、このすべてのデータとTDMSのデータ（設計エリア、建設現場、一般計画の位置など、約50のパラメーター）を組み合わせた一連の手順があります。 いくつかの手順があります。 一部のお客様には非常に具体的な要件があります。 これらは 、MS Excelドキュメントのマクロから 呼び出さ れます 。 約10個のドキュメントテンプレートがあります-レポートは異なります。顧客ごとに独自のバージョンがあります。

---

結論

私の経験では、非常に少数のタイプの会計を導入することは、監査を実装するのと同じくらいスムーズです。 実装後、最も基本的なタスクではなく、デザイナーが時間を大幅に短縮する機会を得たため、アーカイブは本当に「生きた」ものになりました。 2年間 （これは一定レベルの安定性を物語っています）、 2万通以上の文字 （着信および発信）が既に登録されており、その大部分はプロジェクト文書に関連しています。 当社の顧客が、他の企業と比較した調整プロセスの組織という点で重要な違いを認識していることは間違いありません 。



easla.com開発者との良好な連絡先が利用できることは、良い役割を果たしました。 機能の実装に対する正当化された要求 （「ファイル構成」など）は、常にタイムリーに議論および実装されました。