Крохотный Extension для разблокирования subj по совету Олега Руденко.
Просто подключается туда, где описаны файлы. Надоело вручную вставлять проверки.
Код: Выделить всё
#Template(TpsLog,'Исправление ошибки в транзакциях Topspeed'),Family('ABC')
#Extension(TpsLogout,'Topspeed Logout Error'),Application
#Display('')
#Display('Разблокируется файл после Logout')
#Display('')
#AT (%GlobalMap)
MODULE('Topspeed Driver')
TopSpeedDrv(LONG _Oper,FILE _File,LONG _BufAddr),NAME('TOPSPEED'),DLL(dll_mode)
End
#ENDAT
#At(%FileManagerCodeSection,,'FunctionDone','(SIGNED opCode,*Params Parameters,*CSTRING ErrCode,*CSTRING ErrMsg),BYTE'),Priority(5001)
#If (%FileDriver='TOPSPEED')
If Inlist(OpCode,DriverOp:StartTran,DriverOp:Logout,21)
If ErrorCode()
TopspeedDrv(DriverOp:EndTran,Self.File,0)
End
End
#EndIf
#EndAt
C уважением,
Юрий Философов,
Главный программист
Корпорация "Диполь", Саратов
E-mail yufil@tacis-dipol.ru (служ)
yufil@mail.ru (дом)
ICQ#75924439
Написал: ClaList(2)
