Delphi-Projects

1
unit Plat;
2

3
interface
4
uses
5
  SysUtils, Classes;
6

7
type
8
  TPlat = class
9
    //[File]
10
    Created: TDateTime;
11
    Is866: Boolean;
12
    Ver: Integer;
13
    Version: string;
14
    HomePath: string;
15

16
    //[Payment]
17
    DocNo: string; //Integer;
18
    DocDate: string; //TDateTime;
19
    Sum: string; //Currency;
20
    Queue: string;
21
    Details: string;
22

23
    //[From]
24
    Name: string;
25
    INN: string;
26
    KPP: string;
27
    LS: string;
28

29
    //[To]
30
    Name2: string;
31
    INN2: string;
32
    KPP2: string;
33
    LS2: string;
34
    BIC2: string;
35
    //Bank2: string;
36
    //Place2: string;
37
    KS2: string;
38

39
    SS: string;
40
    NAL1: string;
41
    NAL2: string;
42
    NAL3: string;
43
    NAL4: string;
44
    NAL5: string;
45
    NAL6: string;
46
    NAL7: string;
47
  end;
48

49
  TPlatFile = class(TPlat)
50
    FilePath: string;
51
    FileNameExt: string;
52
    FileExt: string;
53
    InFileName: string;
54
    RepFileName: string;
55
  end;
56

57
implementation
58

59
end.
60