[?25l[?1c"QuoteSystem.pas" [readonly][dos] 900L, 35504Cunit QuoteSystem;

// 080629: New field ITHELPUSER saved to Var09 for Jobs and Purchases.
// 121008: TransactionType name check generalised from (6,50) to (nPos,50).
interface

uses
  Messages, SysUtils, Classes, Graphics, Controls, Dialogs,
  FileCtrl, db, dbTables;

type
  TServiceDetails = record
    Custno   : string;
    ServCode : string;
    ServiceID: string;
    RentFrom : TDateTime;
    RentTill : TDateTime;
    CallFrom : TDateTime;
    CallTill : TDateTime;
  end;

  TCallHeaderType = record
    SequenceNo      : string[7];
    ServiceID: string[17];[?25h[?0c