| 55 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 56 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 57 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 58 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 58 | 
   | 
 function AKEV(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 59 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 60 | 
   | 
   types: array[0..16] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 73 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 74 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 75 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 77 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 76 | 
   | 
 function AKOT(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 77 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 78 | 
   | 
   types: array[0..4] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 90 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 91 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 92 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 95 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 93 | 
   | 
 function CBPI(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 94 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 95 | 
   | 
   i: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 104 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 105 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 106 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 110 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 107 | 
   | 
 function CBPM(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 108 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 109 | 
   | 
   i: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 118 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 119 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 120 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 125 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 121 | 
   | 
 function CONS(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 122 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 123 | 
   | 
   types: array[0..1] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 135 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 136 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 137 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 143 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 138 | 
   | 
 function CRSA(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 139 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 140 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 155 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 156 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 157 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 164 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 158 | 
   | 
 function DOOR(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 159 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 160 | 
   | 
   types: array[0..2] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 172 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 173 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 174 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 182 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 175 | 
   | 
 function DPge(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 176 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 177 | 
   | 
   types: array[0..0] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 189 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 190 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 191 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 200 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 192 | 
   | 
 function FILM(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 193 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 194 | 
   | 
   types: array[0..1] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 206 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 207 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 208 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 218 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 209 | 
   | 
 function FXLR(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 210 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 211 | 
   | 
   types: array[0..1] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 223 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 224 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 225 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 236 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 226 | 
   | 
 function GMAN(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 227 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 228 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 243 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 244 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 245 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 257 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 246 | 
   | 
 function HPge(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 247 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 248 | 
   | 
   types: array[0..0] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 260 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 261 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 262 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 275 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 263 | 
   | 
 function IGHH(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 264 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 265 | 
   | 
   types: array[0..1] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 277 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 278 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 279 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 293 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 280 | 
   | 
 function IGPA(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 281 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 282 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 297 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 298 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 299 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 314 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 300 | 
   | 
 function IGPG(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 301 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 302 | 
   | 
   types: array[0..3] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 318 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 319 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 320 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 336 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 321 | 
   | 
 function IGSA(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 322 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 323 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 338 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 339 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 340 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 357 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 341 | 
   | 
 function IGSt(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 342 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 343 | 
   | 
   types: array[0..0] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 355 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 356 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 357 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 375 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 358 | 
   | 
 function Impt(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 359 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 360 | 
   | 
   types: array[0..0] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 372 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 373 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 374 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 393 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 375 | 
   | 
 function IPge(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 376 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 377 | 
   | 
   types: array[0..0] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 389 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 390 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 391 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 411 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 392 | 
   | 
 function KeyI(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 393 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 394 | 
   | 
   i: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 403 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 404 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 405 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 426 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 406 | 
   | 
 function M3GA(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 407 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 408 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 423 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 424 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 425 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 447 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 426 | 
   | 
 function M3GM(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 427 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 428 | 
   | 
   types: array[0..7] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 440 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 441 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 442 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 465 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 443 | 
   | 
 function Mtrl(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 444 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 445 | 
   | 
   types: array[0..0] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 457 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 458 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 459 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 483 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 460 | 
   | 
 function OBDC(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 461 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 462 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 477 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 478 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 479 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 504 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 480 | 
   | 
 function OBOA(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 481 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 482 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 505 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 506 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 507 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 533 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 508 | 
   | 
 function OFGA(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 509 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 510 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 533 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 534 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 535 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 562 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 536 | 
   | 
 function ONCC(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 537 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 538 | 
   | 
   i: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 581 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 582 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 583 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 611 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 584 | 
   | 
 function ONCV(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 585 | 
   | 
 begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 586 | 
   | 
   SetLength(Result, 1); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 590 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 591 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 592 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 621 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 593 | 
   | 
 function ONLV(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 594 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 595 | 
   | 
   types: array[0..12] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 617 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 618 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 619 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 649 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 620 | 
   | 
 function ONOA(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 621 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 622 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 637 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 638 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 639 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 670 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 640 | 
   | 
 function ONSK(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 641 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 642 | 
   | 
   i: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 651 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 652 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 653 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 685 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 654 | 
   | 
 function ONVL(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 655 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 656 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 671 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 672 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 673 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 706 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 674 | 
   | 
 function ONWC(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 675 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 676 | 
   | 
   i: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 715 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 716 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 717 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 751 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 718 | 
   | 
 function OPge(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 719 | 
   | 
 begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 720 | 
   | 
   SetLength(Result, 1); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 724 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 725 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 726 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 761 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 727 | 
   | 
 function PSpc(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 728 | 
   | 
 begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 729 | 
   | 
   SetLength(Result, 1); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 733 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 734 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 735 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 771 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 736 | 
   | 
 function PSpL(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 737 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 738 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 753 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 754 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 755 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 792 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 756 | 
   | 
 function PSUI(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 757 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 758 | 
   | 
   i: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 767 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 768 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 769 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 807 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 770 | 
   | 
 function StNA(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 771 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 772 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 787 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 788 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 789 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 828 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 790 | 
   | 
 function TMRA(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 791 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 792 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 807 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 808 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 809 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 849 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 810 | 
   | 
 function TRAC(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 811 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 812 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 830 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 831 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 832 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 873 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 833 | 
   | 
 function TRAM(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 834 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 835 | 
   | 
   i: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 844 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 845 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 846 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 888 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 847 | 
   | 
 function TRAS(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 848 | 
   | 
 begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 849 | 
   | 
   SetLength(Result, 1); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 853 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 854 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 855 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 898 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 856 | 
   | 
 function TRBS(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 857 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 858 | 
   | 
   i: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 867 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 868 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 869 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 913 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 870 | 
   | 
 function TRCM(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 871 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 872 | 
   | 
   types: array[0..2] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 884 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 885 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 886 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 931 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 887 | 
   | 
 function TRGA(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 888 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 889 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 904 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 905 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 906 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 952 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 907 | 
   | 
 function TRGE(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 908 | 
   | 
 begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 909 | 
   | 
   SetLength(Result, 1); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 913 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 914 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 915 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 962 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 916 | 
   | 
 function TRIG(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 917 | 
   | 
 const | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 918 | 
   | 
   types: array[0..3] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 936 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 937 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 938 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 986 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 939 | 
   | 
 function TRMA(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 940 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 941 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 956 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 957 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 958 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 1007 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 959 | 
   | 
 function TRSC(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 960 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 961 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 976 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 977 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 978 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 1028 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 979 | 
   | 
 function TSFF(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 980 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 981 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1000 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1001 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1002 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 1053 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1003 | 
   | 
 function TSFT(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1004 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1005 | 
   | 
   i: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1014 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1015 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1016 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 1068 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1017 | 
   | 
 function TURR(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1018 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1019 | 
   | 
   i: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1038 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1039 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1040 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 1093 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1041 | 
   | 
 function TXAN(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1042 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1043 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1058 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1059 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1060 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 1114 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1061 | 
   | 
 function TXMA(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1062 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1063 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1078 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1079 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1080 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 1135 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1081 | 
   | 
 function TXMB(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1082 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1083 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1098 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1099 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1100 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 1156 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1101 | 
   | 
 function TXMP(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1102 | 
   | 
 begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1103 | 
   | 
   SetLength(Result, 2); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1110 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1111 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1112 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 1169 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1113 | 
   | 
 function TxtC(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1114 | 
   | 
 begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1115 | 
   | 
   SetLength(Result, 1); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1119 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1120 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1121 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 1179 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1122 | 
   | 
 function WMCL(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1123 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1124 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1139 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1140 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1141 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 1200 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1142 | 
   | 
 function WMDD(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1143 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1144 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1159 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1160 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1161 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 1221 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1162 | 
   | 
 function WMMB(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1163 | 
   | 
 var | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1164 | 
   | 
   packages: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1179 | 
   | 
 end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1180 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1181 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 | 1242 | 
 – | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1182 | 
   | 
 function WPge(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1183 | 
   | 
 begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1184 | 
   | 
   SetLength(Result, 2); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1251 | 
   | 
   DatLinksManager.InsertDatLinkHandler('AISA', AISA); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1252 | 
   | 
   DatLinksManager.InsertDatLinkHandler('AKEV', AKEV); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1253 | 
   | 
   DatLinksManager.InsertDatLinkHandler('AKOT', AKOT); | 
 
 
 
 
 
 
 
 
 
 
 
 | 1254 | 
 < | 
   DatLinksManager.InsertDatLinkHandler('CBPI', AISA); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1255 | 
 < | 
   DatLinksManager.InsertDatLinkHandler('CBPM', AKEV); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1256 | 
 < | 
   DatLinksManager.InsertDatLinkHandler('CONS', AKOT); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1257 | 
 < | 
   DatLinksManager.InsertDatLinkHandler('CRSA', AISA); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1258 | 
 < | 
   DatLinksManager.InsertDatLinkHandler('DOOR', AKEV); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1259 | 
 < | 
   DatLinksManager.InsertDatLinkHandler('DPge', AKOT); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1260 | 
 < | 
   DatLinksManager.InsertDatLinkHandler('FILM', AISA); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1261 | 
 < | 
   DatLinksManager.InsertDatLinkHandler('FXLR', AKEV); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1262 | 
 < | 
   DatLinksManager.InsertDatLinkHandler('GMAN', AKOT); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1263 | 
 < | 
   DatLinksManager.InsertDatLinkHandler('HPge', AISA); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1264 | 
 < | 
   DatLinksManager.InsertDatLinkHandler('IGHH', AKEV); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1265 | 
 < | 
   DatLinksManager.InsertDatLinkHandler('IGPA', AKOT); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1266 | 
 < | 
 end. | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1254 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('CBPI', CBPI); | 
 
 
 
 
 
 | 1255 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('CBPM', CBPM); | 
 
 
 
 
 
 | 1256 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('CONS', CONS); | 
 
 
 
 
 
 | 1257 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('CRSA', CRSA); | 
 
 
 
 
 
 | 1258 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('DOOR', DOOR); | 
 
 
 
 
 
 | 1259 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('DPge', DPge); | 
 
 
 
 
 
 | 1260 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('FILM', FILM); | 
 
 
 
 
 
 | 1261 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('FXLR', FXLR); | 
 
 
 
 
 
 | 1262 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('GMAN', GMAN); | 
 
 
 
 
 
 | 1263 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('HPge', HPge); | 
 
 
 
 
 
 | 1264 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('IGHH', IGHH); | 
 
 
 
 
 
 | 1265 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('IGPA', IGPA); | 
 
 
 
 
 
 | 1266 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('IGPG', IGPG); | 
 
 
 
 
 
 | 1267 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('IGSA', IGSA); | 
 
 
 
 
 
 | 1268 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('IGSt', IGSt); | 
 
 
 
 
 
 | 1269 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('Impt', Impt); | 
 
 
 
 
 
 | 1270 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('IPge', IPge); | 
 
 
 
 
 
 | 1271 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('KeyI', KeyI); | 
 
 
 
 
 
 | 1272 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('M3GA', M3GA); | 
 
 
 
 
 
 | 1273 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('M3GM', M3GM); | 
 
 
 
 
 
 | 1274 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('Mtrl', Mtrl); | 
 
 
 
 
 
 | 1275 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('OBDC', OBDC); | 
 
 
 
 
 
 | 1276 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('OBOA', OBOA); | 
 
 
 
 
 
 | 1277 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('OFGA', OFGA); | 
 
 
 
 
 
 | 1278 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('ONCC', ONCC); | 
 
 
 
 
 
 | 1279 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('ONCV', ONCV); | 
 
 
 
 
 
 | 1280 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('ONLV', ONLV); | 
 
 
 
 
 
 | 1281 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('ONOA', ONOA); | 
 
 
 
 
 
 | 1282 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('ONSK', ONSK); | 
 
 
 
 
 
 | 1283 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('ONVL', ONVL); | 
 
 
 
 
 
 | 1284 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('ONWC', ONWC); | 
 
 
 
 
 
 | 1285 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('OPge', OPge); | 
 
 
 
 
 
 | 1286 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('PSpc', PSpc); | 
 
 
 
 
 
 | 1287 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('PSpL', PSpL); | 
 
 
 
 
 
 | 1288 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('PSUI', PSUI); | 
 
 
 
 
 
 | 1289 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('StNA', StNA); | 
 
 
 
 
 
 | 1290 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TMRA', TMRA); | 
 
 
 
 
 
 | 1291 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TRAC', TRAC); | 
 
 
 
 
 
 | 1292 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TRAM', TRAM); | 
 
 
 
 
 
 | 1293 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TRAS', TRAS); | 
 
 
 
 
 
 | 1294 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TRBS', TRBS); | 
 
 
 
 
 
 | 1295 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TRCM', TRCM); | 
 
 
 
 
 
 | 1296 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TRGA', TRGA); | 
 
 
 
 
 
 | 1297 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TRGE', TRGE); | 
 
 
 
 
 
 | 1298 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TRIG', TRIG); | 
 
 
 
 
 
 | 1299 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TRMA', TRMA); | 
 
 
 
 
 
 | 1300 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TRSC', TRSC); | 
 
 
 
 
 
 | 1301 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TSFF', TSFF); | 
 
 
 
 
 
 | 1302 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TSFT', TSFT); | 
 
 
 
 
 
 | 1303 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TURR', TURR); | 
 
 
 
 
 
 | 1304 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TXAN', TXAN); | 
 
 
 
 
 
 | 1305 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TXMA', TXMA); | 
 
 
 
 
 
 | 1306 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TXMB', TXMB); | 
 
 
 
 
 
 | 1307 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TXMP', TXMP); | 
 
 
 
 
 
 | 1308 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('TxtC', TxtC); | 
 
 
 
 
 
 | 1309 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('WMCL', WMCL); | 
 
 
 
 
 
 | 1310 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('WMDD', WMDD); | 
 
 
 
 
 
 | 1311 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('WMMB', WMMB); | 
 
 
 
 
 
 | 1312 | 
 > | 
   DatLinksManager.InsertDatLinkHandler('WPge', WPge); | 
 
 
 
 
 
 | 1313 | 
 > | 
 end. |