Как узнать дату, время, номер рейса и имя файла входящего файла из коррсчетов?

Макрос показывает информацию о документе, пришедшим из корр.счетов. Выводится: дата, время, номер рейса, имя загрузившего операциониста и имя файла из которого был загружен документ.


FILE rd (recdoc) KEY 4;
FILE el (edlink) KEY 3;
FILE sr (srlog) KEY 2;
FILE tout () TXT;
MACRO Main (doc)
rd.ApplicationKey = doc.ApplicationKey;
rd.iApplicationKind = doc.iApplicationKind;
ed = TBFile ("edlist", "R", 0, "edlist.dbt", "bank.def");
r_rs_Sess = TRecHandler("SessionID.", "ed.def", ed, 0, 875 , TRUE);
IF (GetEQ (rd))
PrintLn (" Дата загрузки: " + String(rd.UploadDate:f));
PrintLn ("Время загрузки: " + String(rd.UploadTime));
ed.rec.EDID = rd.EDID;
IF (ed.GetEQ)
PrintLn (" Номер рейса: " + r_rs_Sess.Rec.SessionID);
sr.SessionID = ed.rec.SessionID;
IF (GetEQ (sr))
PrintLn (" Операционист: " + GetFIOOper(sr.Oper) + " [" + sr.Oper + "]");
ELSE
Println ("Информация о номере рейса и имени файла в журнале не найдена.");
END;
Print (" Имя файла: ");
ed0 = TBFile ("edlist", "R", 0, "edlist.dbt", "bank.def");
r_rs_File = TRecHandler("rs_file.", "ed.def", ed0, 0, ed0.fldoffset("Data") , TRUE);
el.LinkID = ed.rec.EDID;
IF (GetEQ (el))
pos=GetPos(el); el.LinkID = el.EDID;
IF (NOT GetEQ (el))
// Пришло отдельных пакетом
GetDirect(el, pos)
END;
ed0.rec.EDID = el.EDID;
IF (ed0.GetEQ)
SplitFile (r_rs_File.rec.url, fname, fext);
PrintLn (fname+fext);
ELSE
PrintLn ("Не установлено");
END;
ELSE
PrintLn ("Не установлено");
END;
ELSE
Println ("Информация о номере рейса и имени файла не найдена.");
END;
ELSE
Println ("Документ не найден в корр.счетах.");
END;
Open (Tout, SetOutput(GetTxtFileName("temp"), true)); ViewFile(tout); Close(tout); SetOutput (Null);
END;

Добавить комментарий

Ваш e-mail не будет опубликован.