'===============================================================================
'   -  PlatTrFormBr
'===============================================================================
sub Init_ComponentsPlTr
with PlatTrFormBr
 .Left = 143
 .Top = 110
 .BorderStyle = "bsDialog"
 .Caption = " "
 .ClientHeight = 432
 .ClientWidth = 561
 .Color = "clBtnFace"
 .Font.Charset = 204
 .Font.Color = "clWindowText"
 .Font.Height = -11
 .Font.Name = "MS Sans Serif"
 .Font.Style = ""
 .OldCreateOrder = False
 .PixelsPerInch = 96
 PlatTrFormBr.add "C02_PTFGroupBox1", "TGroupBox"
 with C02_PTFGroupBox1
  .Left = 0
  .Top = 15
  .Width = 561
  .Height = 104
  .Align = "alTop"
  .Caption = ""
  .Ctl3D = False
  .Font.Charset = 204
  .Font.Color = "clWindowText"
  .Font.Height = -11
  .Font.Name = "Arial"
  .Font.Style = ""
  .ParentCtl3D = False
  .ParentFont = False
  .TabOrder = 0
  C02_PTFGroupBox1.add "C02_PTFTBXLabel1", "TLabel"
 with C02_PTFTBXLabel1
   .Left = 129
   .Top = 11
   .Width = 31
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox1.add "C02_PTFTBXLabel2", "TLabel"
 with C02_PTFTBXLabel2
   .Left = 8
   .Top = 12
   .Width = 38
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox1.add "C02_PTFTBXLabel3", "TLabel"
 with C02_PTFTBXLabel3
   .Left = 241
   .Top = 12
   .Width = 77
   .Height = 15
   .Caption = " "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox1.add "C02_PTFPAYKIND", "TDBEditEh"
 with C02_PTFPAYKIND
   .Left = 320
   .Top = 12
   .Width = 120
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 3
   .Visible = True
   end with
  C02_PTFGroupBox1.add "C02_PTFPDOCNUM", "TDBEditEh"
 with C02_PTFPDOCNUM
   .Left = 51
   .Top = 11
   .Width = 74
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 4
   .Visible = True
   end with
  C02_PTFGroupBox1.add "C02_PTFTBXLabel10", "TLabel"
 with C02_PTFTBXLabel10
   .Left = 444
   .Top = 11
   .Width = 75
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox1.add "C02_PTFPAYQUEUE", "TDBEditEh"
 with C02_PTFPAYQUEUE
   .Left = 523
   .Top = 10
   .Width = 30
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 6
   .Visible = True
   end with
  C02_PTFGroupBox1.add "C02_PTFTBXLabel33", "TLabel"
 with C02_PTFTBXLabel33
   .Left = 8
   .Top = 81
   .Width = 101
   .Height = 15
   .Caption = " "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox1.add "C02_PTFSUMPROP", "TDBEditEh"
 with C02_PTFSUMPROP
   .Left = 116
   .Top = 78
   .Width = 438
   .Height = 18
   .TabStop = False
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 8
   .Visible = True
   end with
  C02_PTFGroupBox1.add "C02_PTFPDOCDATE", "TDBEditEh"
 with C02_PTFPDOCDATE
   .Left = 161
   .Top = 11
   .Width = 74
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 9
   .Visible = True
   end with
  C02_PTFGroupBox1.add "C02_PTFTBXLabel9", "TLabel"
 with C02_PTFTBXLabel9
   .Left = 287
   .Top = 58
   .Width = 40
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox1.add "C02_PTFSUM", "TDBEditEh"
 with C02_PTFSUM
   .Left = 331
   .Top = 56
   .Width = 134
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 11
   .Visible = True
   end with
  C02_PTFGroupBox1.add "C02_PTFTBXLabel13", "TLabel"
 with C02_PTFTBXLabel13
   .Left = 161
   .Top = 58
   .Width = 81
   .Height = 15
   .Caption = " "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox1.add "C02_PTFTBXLabel11", "TLabel"
 with C02_PTFTBXLabel11
   .Left = 8
   .Top = 35
   .Width = 95
   .Height = 15
   .Caption = " "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox1.add "C02_PTFDBEditEh1", "TDBEditEh"
 with C02_PTFDBEditEh1
   .Left = 116
   .Top = 33
   .Width = 438
   .Height = 18
   .TabStop = False
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 14
   .Visible = True
   end with
  C02_PTFGroupBox1.add "C02_PTFTBXLabel12", "TLabel"
 with C02_PTFTBXLabel12
   .Left = 8
   .Top = 58
   .Width = 104
   .Height = 15
   .Caption = "  "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox1.add "C02_PTFDBEditEh2", "TDBEditEh"
 with C02_PTFDBEditEh2
   .Left = 116
   .Top = 56
   .Width = 33
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 16
   .Visible = True
   end with
  C02_PTFGroupBox1.add "C02_PTFPAYCODE", "TDBEditEh"
 with C02_PTFPAYCODE
   .Left = 247
   .Top = 56
   .Width = 30
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 17
   .Visible = True
   end with
  end with
 PlatTrFormBr.add "C02_PTFGroupBox5", "TGroupBox"
 with C02_PTFGroupBox5
  .Left = 0
  .Top = 119
  .Width = 561
  .Height = 108
  .Align = "alTop"
  .Caption = ""
  .Ctl3D = False
  .Font.Charset = 204
  .Font.Color = "clBlack"
  .Font.Height = -12
  .Font.Name = "Arial"
  .Font.Style = "fsBold"
  .ParentCtl3D = False
  .ParentFont = False
  .TabOrder = 1
  C02_PTFGroupBox5.add "C02_PTFLabel1", "TLabel"
 with C02_PTFLabel1
   .Left = 6
   .Top = 18
   .Width = 56
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox5.add "C02_PTFTBXLabel20", "TLabel"
 with C02_PTFTBXLabel20
   .Left = 349
   .Top = 16
   .Width = 31
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox5.add "C02_PTFTBXLabel21", "TLabel"
 with C02_PTFTBXLabel21
   .Left = 31
   .Top = 38
   .Width = 30
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox5.add "C02_PTFPAYERNAME", "TDBEditEh"
 with C02_PTFPAYERNAME
   .Left = 67
   .Top = 16
   .Width = 275
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 0
   .Visible = True
   end with
  C02_PTFGroupBox5.add "C02_PTFPAYERACC", "TDBEditEh"
 with C02_PTFPAYERACC
   .Left = 388
   .Top = 15
   .Width = 165
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 3
   .Visible = True
   end with
  C02_PTFGroupBox5.add "C02_PTFPAYERINN", "TDBEditEh"
 with C02_PTFPAYERINN
   .Left = 67
   .Top = 37
   .Width = 146
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 4
   .Visible = True
   end with
  C02_PTFGroupBox5.add "C02_PTFTBXLabel29", "TLabel"
 with C02_PTFTBXLabel29
   .Left = 29
   .Top = 61
   .Width = 31
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox5.add "C02_PTFPAYERBANKNAME", "TDBEditEh"
 with C02_PTFPAYERBANKNAME
   .Left = 67
   .Top = 60
   .Width = 487
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 6
   .Visible = True
   end with
  C02_PTFGroupBox5.add "C02_PTFTBXLabel26", "TLabel"
 with C02_PTFTBXLabel26
   .Left = 225
   .Top = 84
   .Width = 27
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox5.add "C02_PTFPAYERBIC", "TDBEditEh"
 with C02_PTFPAYERBIC
   .Left = 256
   .Top = 81
   .Width = 129
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 8
   .Visible = True
   end with
  C02_PTFGroupBox5.add "C02_PTFTBXLabel27", "TLabel"
 with C02_PTFTBXLabel27
   .Left = 8
   .Top = 84
   .Width = 56
   .Height = 15
   .Caption = ". "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox5.add "C02_PTFPAYERCORACC", "TDBEditEh"
 with C02_PTFPAYERCORACC
   .Left = 67
   .Top = 81
   .Width = 151
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 10
   .Visible = True
   end with
  end with
 PlatTrFormBr.add "C02_PTFGroupBox2", "TGroupBox"
 with C02_PTFGroupBox2
  .Left = 0
  .Top = 227
  .Width = 561
  .Height = 108
  .Align = "alTop"
  .Caption = ""
  .Ctl3D = False
  .Font.Charset = 204
  .Font.Color = "clMaroon"
  .Font.Height = -12
  .Font.Name = "Arial"
  .Font.Style = "fsBold"
  .ParentCtl3D = False
  .ParentFont = False
  .TabOrder = 2
  C02_PTFGroupBox2.add "C02_PTFLabel2", "TLabel"
 with C02_PTFLabel2
   .Left = 6
   .Top = 18
   .Width = 56
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox2.add "C02_PTFTBXLabel5", "TLabel"
 with C02_PTFTBXLabel5
   .Left = 31
   .Top = 38
   .Width = 30
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox2.add "C02_PTFRECIPIENTACC", "TDBEditEh"
 with C02_PTFRECIPIENTACC
   .Left = 388
   .Top = 15
   .Width = 165
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 1
   .Visible = True
   end with
  C02_PTFGroupBox2.add "C02_PTFRECIPIENTINN", "TDBEditEh"
 with C02_PTFRECIPIENTINN
   .Left = 67
   .Top = 37
   .Width = 146
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 2
   .Visible = True
   end with
  C02_PTFGroupBox2.add "C02_PTFTBXLabel6", "TLabel"
 with C02_PTFTBXLabel6
   .Left = 29
   .Top = 61
   .Width = 31
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox2.add "C02_PTFRECEIVERBANKNAME", "TDBEditEh"
 with C02_PTFRECEIVERBANKNAME
   .Left = 67
   .Top = 60
   .Width = 487
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 4
   .Visible = True
   end with
  C02_PTFGroupBox2.add "C02_PTFTBXLabel7", "TLabel"
 with C02_PTFTBXLabel7
   .Left = 225
   .Top = 84
   .Width = 27
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox2.add "C02_PTFRECIPIENTBIC", "TDBEditEh"
 with C02_PTFRECIPIENTBIC
   .Left = 256
   .Top = 81
   .Width = 129
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 6
   .Visible = True
   end with
  C02_PTFGroupBox2.add "C02_PTFTBXLabel8", "TLabel"
 with C02_PTFTBXLabel8
   .Left = 8
   .Top = 84
   .Width = 56
   .Height = 15
   .Caption = ". "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox2.add "C02_PTFRECEIVERCORACC", "TDBEditEh"
 with C02_PTFRECEIVERCORACC
   .Left = 67
   .Top = 81
   .Width = 151
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 8
   .Visible = True
   end with
  C02_PTFGroupBox2.add "C02_PTFTBXLabel4", "TLabel"
 with C02_PTFTBXLabel4
   .Left = 349
   .Top = 16
   .Width = 31
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C02_PTFGroupBox2.add "C02_PTFRECEIVERNAME", "TDBEditEh"
 with C02_PTFRECEIVERNAME
   .Left = 67
   .Top = 16
   .Width = 275
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 10
   .Visible = True
   end with
  end with
 PlatTrFormBr.add "C02_PTFPanel1", "TPanel"
 with C02_PTFPanel1
  .Left = 0
  .Top = 403
  .Width = 561
  .Height = 29
  .Caption = ""
  .Align = "alBottom"
  .TabOrder = 3
  C02_PTFPanel1.add "C02_PTFBitBtn1", "TBitBtn"
 with C02_PTFBitBtn1
   .Left = 461
   .Top = 2
   .Width = 97
   .Height = 25
   .Kind = "bkCancel"
   .Caption = ""
   .TabOrder = 0
   end with
  C02_PTFPanel1.add "C02_PTPrevOrderBtn", "TBitBtn", TRUE
 with C02_PTPrevOrderBtn
   .Left = 337
   .Top = 2
   .Width = 117
   .Height = 25
   .Caption = "&. "
   .TabOrder = 1
   end with
  end with
 PlatTrFormBr.add "C02_PTFPanel", "TPanel"
 with C02_PTFPanel
  .Left = 0
  .Top = 0
  .Width = 561
  .Height = 15
  .Align = "alTop"
  .Caption = ""
  .BevelOuter = "bvNone"
  .Color = 10972474
  .Font.Charset = 204
  .Font.Color = "clWhite"
  .Font.Height = -11
  .Font.Name = "MS Sans Serif"
  .Font.Style = "fsBold"
  .ParentFont = False
  .TabOrder = 4
  end with
 PlatTrFormBr.add "C02_PTFGroupBox3", "TGroupBox"
 with C02_PTFGroupBox3
  .Left = 0
  .Top = 335
  .Width = 561
  .Height = 66
  .Align = "alTop"
  .Caption = " "
  .Ctl3D = False
  .Font.Charset = 204
  .Font.Color = "clBlack"
  .Font.Height = -12
  .Font.Name = "Arial"
  .Font.Style = "fsBold"
  .ParentCtl3D = False
  .ParentFont = False
  .TabOrder = 5
  C02_PTFGroupBox3.add "C02_PTFGROUND", "TMemo"
 with C02_PTFGROUND
   .Left = 1
   .Top = 16
   .Width = 559
   .Height = 49
   .Align = "alClient"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clBlack"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .ReadOnly = False
   .ScrollBars = "ssVertical"
   .TabOrder = 0
   end with
  end with
 end with
end sub


sub mainPlatTrFormBr

  set FS=CreateObject("Scripting.FileSystemObject")
  tt=FS.GetFolder("macroses")
  tt=tt+"\..\pictures\PreView.bmp"
  C02_PTPrevOrderBtn.Glyph.LoadFromFile(tt)


  set qPT=Self.Controls("IBQuery1")
' if (PriznakQuery=1) then set qPT=Self.Controls("IBQuery1")

  ' 
  C02_PTFPDOCNUM.Text = ""
  C02_PTFPDOCDATE.Text = ""
  C02_PTFPAYKIND.Text = ""
  C02_PTFPAYQUEUE.Text = ""
  C02_PTFPAYCODE.Text = ""
  C02_PTFSUM.Text = ""
  C02_PTFSUMPROP.Text = ""
  C02_PTFPAYERNAME.Text = ""
  C02_PTFPAYERACC.Text = ""
  C02_PTFPAYERINN.Text = ""
  C02_PTFPAYERBANKNAME.Text = ""
  C02_PTFPAYERCORACC.Text = ""
  C02_PTFPAYERBIC.Text = ""
  C02_PTFRECEIVERNAME.Text = ""
  C02_PTFRECIPIENTACC.Text = ""
  C02_PTFRECIPIENTINN.Text = ""
  C02_PTFRECEIVERBANKNAME.Text = ""
  C02_PTFRECEIVERCORACC.Text = ""
  C02_PTFRECIPIENTBIC.Text = ""
'  KBK.Text = ""
'  OKATO.Text = ""
'  OSN.Text = ""
'  NALPER.Text = ""
'  NOMERDOC.Text = ""
'  EDATEDOC.Text = ""
'  TYPE1.Text = ""
  C02_PTFGROUND.Lines.Clear
  
  C02_PTFDBEditEh1.Text = ""
  C02_PTFDBEditEh2.Text = ""

  '  
  '
  C02_PTFPDOCNUM.Text = qPT.FieldByNameString("PDOCNUM")
  '
  C02_PTFPDOCDATE.Text = qPT.FieldByNameString("PDOCDATE")
  ' 
  C02_PTFPAYKIND.Text = qPT.FieldByNameString("PAYKIND")
  '
  C02_PTFPAYQUEUE.Text = qPT.FieldByNameString("PAYQUEUE")
  
  ' 
  C02_PTFDBEditEh1.Text = "" 'qPT.FieldByNameString("PLATCOND")
  '  
  C02_PTFDBEditEh2.Text = "" 'qPT.FieldByNameString("PAYDATE")

  ' 
  C02_PTFPAYCODE.Text = qPT.FieldByNameString("PAYCODE")
  '
   qqq = qPT.FieldByNameString("SUM")
   RetVal = MTStrFormat1(qqq)

  C02_PTFSUM.Text = RetVal
  ' 
  C02_PTFSUMPROP.Text = SummaPr

  '------------------------------

  '
  '
  C02_PTFPAYERNAME.Text = qPT.FieldByNameString("PAYERNAME")
  '
  C02_PTFPAYERACC.Text = qPT.FieldByNameString("PAYERACC")
  '
  C02_PTFPAYERINN.Text = qPT.FieldByNameString("PAYERINN")
  '
  C02_PTFPAYERBANKNAME.Text = qPT.FieldByNameString("PAYERBANKNAME")
  '. 
  C02_PTFPAYERCORACC.Text = qPT.FieldByNameString("PAYERCORACC")
  '
  C02_PTFPAYERBIC.Text = qPT.FieldByNameString("PAYERBIC")

  '------------------------------

  '
  '
  C02_PTFRECEIVERNAME.Text = qPT.FieldByNameString("RECEIVERNAME")
  '
  C02_PTFRECIPIENTACC.Text = qPT.FieldByNameString("RECIPIENTACC")
  '
  C02_PTFRECIPIENTINN.Text = qPT.FieldByNameString("RECIPIENTINN")
  '
  C02_PTFRECEIVERBANKNAME.Text = qPT.FieldByNameString("RECEIVERBANKNAME")
  '. 
  C02_PTFRECEIVERCORACC.Text = qPT.FieldByNameString("RECEIVERCORACC")
  '
  C02_PTFRECIPIENTBIC.Text = qPT.FieldByNameString("RECIPIENTBIC")

  '------------------------------

  '  
  '  

  '

'  IPFKBK.Text = qPT.FieldByNameString("KBK")
  'OKATO
'  IPFOKATO.Text = qPT.FieldByNameString("OKATO")
  '
'  IPFOSN.Text = qPT.FieldByNameString("NALOSNOVAN")
  '. 
'  IPFNALPER.Text = qPT.FieldByNameString("NALPER")
  ' .
'  IPFNOMERDOC.Text = qPT.FieldByNameString("NOMNALDOC")
  '
'  IPFEDATEDOC.Text = qPT.FieldByNameString("DATNALDOC")
  '
'  IPFTYPE1.Text = qPT.FieldByNameString("TPNALPLAT")

  '----------------------

  ' 
  C02_PTFGROUND.Lines.Clear
  C02_PTFGROUND.Lines.Add(qPT.FieldByNameString("GROUND"))
  C02_PTFGROUND.ReadOnly = False
  C02_PTFGROUND.ReadOnly = True

  set fs=nothing
end sub

'  

if(isEmpty(PlatTrFormBr)) then
 self.Add "PlatTrFormBr","TForm"
 call Init_ComponentsPlTr
end if

call mainPlatTrFormBr()
c=PlatTrFormBr.ShowModal
