\u041c\u0430\u043a\u0440\u043e\u0441 \u043f\u043e\u043a\u0430\u0437\u044b\u0432\u0430\u0435\u0442 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043e \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0435, \u043f\u0440\u0438\u0448\u0435\u0434\u0448\u0438\u043c \u0438\u0437 \u043a\u043e\u0440\u0440.\u0441\u0447\u0435\u0442\u043e\u0432. \u0412\u044b\u0432\u043e\u0434\u0438\u0442\u0441\u044f: \u0434\u0430\u0442\u0430, \u0432\u0440\u0435\u043c\u044f, \u043d\u043e\u043c\u0435\u0440 \u0440\u0435\u0439\u0441\u0430, \u0438\u043c\u044f \u0437\u0430\u0433\u0440\u0443\u0437\u0438\u0432\u0448\u0435\u0433\u043e \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u043e\u043d\u0438\u0441\u0442\u0430 \u0438 \u0438\u043c\u044f \u0444\u0430\u0439\u043b\u0430 \u0438\u0437 \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u0431\u044b\u043b \u0437\u0430\u0433\u0440\u0443\u0436\u0435\u043d \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442.
\n
\n
\nFILE rd (recdoc) KEY 4;
\nFILE el (edlink) KEY 3;
\nFILE sr (srlog) KEY 2;
\nFILE tout () TXT;
\nMACRO Main (doc)
\n rd.ApplicationKey = doc.ApplicationKey;
\n rd.iApplicationKind = doc.iApplicationKind;
\n ed = TBFile (\"edlist\", \"R\", 0, \"edlist.dbt\", \"bank.def\");
\n r_rs_Sess = TRecHandler(\"SessionID.\", \"ed.def\", ed, 0, 875 , TRUE);
\n IF (GetEQ (rd))
\n PrintLn (\" \u0414\u0430\u0442\u0430 \u0437\u0430\u0433\u0440\u0443\u0437\u043a\u0438: \" + String(rd.UploadDate:f));
\n PrintLn (\"\u0412\u0440\u0435\u043c\u044f \u0437\u0430\u0433\u0440\u0443\u0437\u043a\u0438: \" + String(rd.UploadTime));
\n ed.rec.EDID = rd.EDID;
\n IF (ed.GetEQ)
\n PrintLn (\" \u041d\u043e\u043c\u0435\u0440 \u0440\u0435\u0439\u0441\u0430: \" + r_rs_Sess.Rec.SessionID);
\n sr.SessionID = ed.rec.SessionID;
\n IF (GetEQ (sr))
\n PrintLn (\" \u041e\u043f\u0435\u0440\u0430\u0446\u0438\u043e\u043d\u0438\u0441\u0442: \" + GetFIOOper(sr.Oper) + \" [\" + sr.Oper + \"]\");
\n ELSE
\n Println (\"\u0418\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044f \u043e \u043d\u043e\u043c\u0435\u0440\u0435 \u0440\u0435\u0439\u0441\u0430 \u0438 \u0438\u043c\u0435\u043d\u0438 \u0444\u0430\u0439\u043b\u0430 \u0432 \u0436\u0443\u0440\u043d\u0430\u043b\u0435 \u043d\u0435 \u043d\u0430\u0439\u0434\u0435\u043d\u0430.\");
\n END;
\n Print (\" \u0418\u043c\u044f \u0444\u0430\u0439\u043b\u0430: \");
\n ed0 = TBFile (\"edlist\", \"R\", 0, \"edlist.dbt\", \"bank.def\");
\n r_rs_File = TRecHandler(\"rs_file.\", \"ed.def\", ed0, 0, ed0.fldoffset(\"Data\") , TRUE);
\n el.LinkID = ed.rec.EDID;
\n IF (GetEQ (el))
\n pos=GetPos(el); el.LinkID = el.EDID;
\n IF (NOT GetEQ (el))
\n \/\/ \u041f\u0440\u0438\u0448\u043b\u043e \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u0445 \u043f\u0430\u043a\u0435\u0442\u043e\u043c
\n GetDirect(el, pos)
\n END;
\n ed0.rec.EDID = el.EDID;
\n IF (ed0.GetEQ)
\n SplitFile (r_rs_File.rec.url, fname, fext);
\n PrintLn (fname+fext);
\n ELSE
\n PrintLn (\"\u041d\u0435 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u043e\");
\n END;
\n ELSE
\n PrintLn (\"\u041d\u0435 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u043e\");
\n END;
\n ELSE
\n Println (\"\u0418\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044f \u043e \u043d\u043e\u043c\u0435\u0440\u0435 \u0440\u0435\u0439\u0441\u0430 \u0438 \u0438\u043c\u0435\u043d\u0438 \u0444\u0430\u0439\u043b\u0430 \u043d\u0435 \u043d\u0430\u0439\u0434\u0435\u043d\u0430.\");
\n END;
\n ELSE
\n Println (\"\u0414\u043e\u043a\u0443\u043c\u0435\u043d\u0442 \u043d\u0435 \u043d\u0430\u0439\u0434\u0435\u043d \u0432 \u043a\u043e\u0440\u0440.\u0441\u0447\u0435\u0442\u0430\u0445.\");
\n END;
\n Open (Tout, SetOutput(GetTxtFileName(\"temp\"), true)); ViewFile(tout); Close(tout); SetOutput (Null);
\nEND;
\n<\/code><\/pre><\/p>\n","protected":false},"excerpt":{"rendered":"\u041c\u0430\u043a\u0440\u043e\u0441 \u043f\u043e\u043a\u0430\u0437\u044b\u0432\u0430\u0435\u0442 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043e \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0435, \u043f\u0440\u0438\u0448\u0435\u0434\u0448\u0438\u043c \u0438\u0437 \u043a\u043e\u0440\u0440.\u0441\u0447\u0435\u0442\u043e\u0432. \u0412\u044b\u0432\u043e\u0434\u0438\u0442\u0441\u044f: \u0434\u0430\u0442\u0430, \u0432\u0440\u0435\u043c\u044f, \u043d\u043e\u043c\u0435\u0440 \u0440\u0435\u0439\u0441\u0430, \u0438\u043c\u044f \u0437\u0430\u0433\u0440\u0443\u0437\u0438\u0432\u0448\u0435\u0433\u043e \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u043e\u043d\u0438\u0441\u0442\u0430 \u0438 \u0438\u043c\u044f \u0444\u0430\u0439\u043b\u0430 \u0438\u0437 \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u0431\u044b\u043b \u0437\u0430\u0433\u0440\u0443\u0436\u0435\u043d \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[28],"tags":[64,66,67,68,70,62,65,69,63],"_links":{"self":[{"href":"http:\/\/sasablog.ru\/prof\/wp-json\/wp\/v2\/posts\/165"}],"collection":[{"href":"http:\/\/sasablog.ru\/prof\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/sasablog.ru\/prof\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/sasablog.ru\/prof\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/sasablog.ru\/prof\/wp-json\/wp\/v2\/comments?post=165"}],"version-history":[{"count":5,"href":"http:\/\/sasablog.ru\/prof\/wp-json\/wp\/v2\/posts\/165\/revisions"}],"predecessor-version":[{"id":192,"href":"http:\/\/sasablog.ru\/prof\/wp-json\/wp\/v2\/posts\/165\/revisions\/192"}],"wp:attachment":[{"href":"http:\/\/sasablog.ru\/prof\/wp-json\/wp\/v2\/media?parent=165"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/sasablog.ru\/prof\/wp-json\/wp\/v2\/categories?post=165"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/sasablog.ru\/prof\/wp-json\/wp\/v2\/tags?post=165"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}