'===============================================================================
'   -  PlatPorFormBr
'===============================================================================
sub Init_ComponentsPlPor
with PlatPorFormBr
 .Left = 143
 .Top = 110
 .BorderStyle = "bsDialog"
 .Caption = " "
 .ClientHeight = 456
 .ClientWidth = 561
 .Color = "clBtnFace"
 .Font.Charset = 204
 .Font.Color = "clWindowText"
 .Font.Height = -11
 .Font.Name = "MS Sans Serif"
 .Font.Style = ""
 .OldCreateOrder = False
 .PixelsPerInch = 96
 PlatPorFormBr.add "C01_PPFGroupBox1", "TGroupBox"
 with C01_PPFGroupBox1
  .Left = 0
  .Top = 15
  .Width = 561
  .Height = 75
  .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
  C01_PPFGroupBox1.add "C01_TBXLabel1", "TLabel"
 with C01_TBXLabel1
   .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
  C01_PPFGroupBox1.add "C01_PPFTBXLabel2", "TLabel"
 with C01_PPFTBXLabel2
   .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
  C01_PPFGroupBox1.add "C01_PPFTBXLabel3", "TLabel"
 with C01_PPFTBXLabel3
   .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
  C01_PPFGroupBox1.add "C01_PPFPAYKIND", "TDBEditEh"
 with C01_PPFPAYKIND
   .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
  C01_PPFGroupBox1.add "C01_PPFPDOCNUM", "TDBEditEh"
 with C01_PPFPDOCNUM
   .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
  C01_PPFGroupBox1.add "C01_PPFTBXLabel10", "TLabel"
 with C01_PPFTBXLabel10
   .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
  C01_PPFGroupBox1.add "C01_PPFPAYQUEUE", "TDBEditEh"
 with C01_PPFPAYQUEUE
   .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
  C01_PPFGroupBox1.add "C01_PPFTBXLabel33", "TLabel"
 with C01_PPFTBXLabel33
   .Left = 53
   .Top = 57
   .Width = 101
   .Height = 15
   .Caption = " "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C01_PPFGroupBox1.add "C01_PPFSUMPROP", "TDBEditEh"
 with C01_PPFSUMPROP
   .Left = 159
   .Top = 54
   .Width = 394
   .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
  C01_PPFGroupBox1.add "C01_PPFPDOCDATE", "TDBEditEh"
 with C01_PPFPDOCDATE
   .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
  C01_PPFGroupBox1.add "C01_PPFTBXLabel9", "TLabel"
 with C01_PPFTBXLabel9
   .Left = 135
   .Top = 36
   .Width = 50
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C01_PPFGroupBox1.add "C01_PPFSUM", "TDBEditEh"
 with C01_PPFSUM
   .Left = 179
   .Top = 33
   .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
  C01_PPFGroupBox1.add "C01_PPFTBXLabel13", "TLabel"
 with C01_PPFTBXLabel13
   .Left = 9
   .Top = 35
   .Width = 81
   .Height = 15
   .Caption = " "
   .Font.Charset = "RUSSIAN_CHARSET"
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  end with
 PlatPorFormBr.add "C01_PPFGroupBox5", "TGroupBox"
 with C01_PPFGroupBox5
  .Left = 0
  .Top = 90
  .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
  C01_PPFGroupBox5.add "C01_PPFLabel1", "TLabel"
 with C01_PPFLabel1
   .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
  C01_PPFGroupBox5.add "C01_PPFTBXLabel20", "TLabel"
 with C01_PPFTBXLabel20
   .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
  C01_PPFGroupBox5.add "C01_PPFTBXLabel21", "TLabel"
 with C01_PPFTBXLabel21
   .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
  C01_PPFGroupBox5.add "C01_PPFPAYERNAME", "TDBEditEh"
 with C01_PPFPAYERNAME
   .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
  C01_PPFGroupBox5.add "C01_PPFPAYERACC", "TDBEditEh"
 with C01_PPFPAYERACC
   .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
  C01_PPFGroupBox5.add "C01_PPFPAYERINN", "TDBEditEh"
 with C01_PPFPAYERINN
   .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
  C01_PPFGroupBox5.add "C01_PPFTBXLabel29", "TLabel"
 with C01_PPFTBXLabel29
   .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
  C01_PPFGroupBox5.add "C01_PPFPAYERBANKNAME", "TDBEditEh"
 with C01_PPFPAYERBANKNAME
   .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
  C01_PPFGroupBox5.add "C01_PPFTBXLabel26", "TLabel"
 with C01_PPFTBXLabel26
   .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
  C01_PPFGroupBox5.add "C01_PPFPAYERBIC", "TDBEditEh"
 with C01_PPFPAYERBIC
   .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
  C01_PPFGroupBox5.add "C01_PPFTBXLabel27", "TLabel"
 with C01_PPFTBXLabel27
   .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
  C01_PPFGroupBox5.add "C01_PPFPAYERCORACC", "TDBEditEh"
 with C01_PPFPAYERCORACC
   .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
' self.add "TBXLabel13", "TLabel"
' with TBXLabel13
'  .Left = 9
'  .Top = 53
'  .Width = 81
'  .Height = 15
'  .Caption = " "
'  .Font.Charset = 204
'  .Font.Color = "clWindowText"
'  .Font.Height = -12
'  .Font.Name = "Arial"
'  .Font.Style = ""
'  .ParentFont = False
'  end with
 PlatPorFormBr.add "C01_PPFPAYCODE", "TDBEditEh"
 with C01_PPFPAYCODE
  .Left = 95
  .Top = 49
  .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 = 3
  .Visible = True
  end with
 PlatPorFormBr.add "C01_PPFGroupBox2", "TGroupBox"
 with C01_PPFGroupBox2
  .Left = 0
  .Top = 198
  .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 = 4
  C01_PPFGroupBox2.add "C01_PPFLabel2", "TLabel"
 with C01_PPFLabel2
   .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
  C01_PPFGroupBox2.add "C01_PPFTBXLabel5", "TLabel"
 with C01_PPFTBXLabel5
   .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
  C01_PPFGroupBox2.add "C01_PPFRECIPIENTACC", "TDBEditEh"
 with C01_PPFRECIPIENTACC
   .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
  C01_PPFGroupBox2.add "C01_PPFRECIPIENTINN", "TDBEditEh"
 with C01_PPFRECIPIENTINN
   .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
  C01_PPFGroupBox2.add "C01_PPFTBXLabel6", "TLabel"
 with C01_PPFTBXLabel6
   .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
  C01_PPFGroupBox2.add "C01_PPFRECEIVERBANKNAME", "TDBEditEh"
 with C01_PPFRECEIVERBANKNAME
   .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
  C01_PPFGroupBox2.add "C01_PPFTBXLabel7", "TLabel"
 with C01_PPFTBXLabel7
   .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
  C01_PPFGroupBox2.add "C01_PPFRECIPIENTBIC", "TDBEditEh"
 with C01_PPFRECIPIENTBIC
   .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
  C01_PPFGroupBox2.add "C01_PPFTBXLabel8", "TLabel"
 with C01_PPFTBXLabel8
   .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
  C01_PPFGroupBox2.add "C01_PPFRECEIVERCORACC", "TDBEditEh"
 with C01_PPFRECEIVERCORACC
   .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
  C01_PPFGroupBox2.add "C01_PPFTBXLabel4", "TLabel"
 with C01_PPFTBXLabel4
   .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
  C01_PPFGroupBox2.add "C01_PPFRECEIVERNAME", "TDBEditEh"
 with C01_PPFRECEIVERNAME
   .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
 PlatPorFormBr.add "C01_PPFGroupBox3", "TGroupBox"
 with C01_PPFGroupBox3
  .Left = 0
  .Top = 361
  .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
  C01_PPFGroupBox3.add "C01_PPFGROUND", "TMemo"
 with C01_PPFGROUND
   .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
 PlatPorFormBr.add "C01_PPFPanel1", "TPanel"
 with C01_PPFPanel1
  .Left = 0
  .Top = 427
  .Width = 561
  .Height = 29
  .Caption = ""
  .Align = "alBottom"
  .TabOrder = 6
  C01_PPFPanel1.add "C01_PPFBitBtn1", "TBitBtn"
 with C01_PPFBitBtn1
   .Left = 461
   .Top = 2
   .Width = 97
   .Height = 25
   .Kind = "bkCancel"
   .Caption = ""
   .TabOrder = 0
   end with
  C01_PPFPanel1.add "C01_PPPrevPlatPorBtn", "TBitBtn", TRUE
 with C01_PPPrevPlatPorBtn
   .Left = 337
   .Top = 2
   .Width = 117
   .Height = 25
   .Caption = "&. "
   .TabOrder = 1
   end with
  end with
 PlatPorFormBr.add "C01_PPFPanel", "TPanel"
 with C01_PPFPanel
  .Left = 0
  .Top = 0
  .Width = 561
  .Height = 15
  .Caption = ""
  .Align = "alTop"
  .BevelOuter = "bvNone"
  .Color = 10972474
  .Font.Charset = 204
  .Font.Color = "clWhite"
  .Font.Height = -11
  .Font.Name = "MS Sans Serif"
  .Font.Style = "fsBold"
  .ParentFont = False
  .TabOrder = 7
  end with
 PlatPorFormBr.add "C01_PPFGroupBox4", "TGroupBox"
 with C01_PPFGroupBox4
  .Left = 0
  .Top = 306
  .Width = 561
  .Height = 55
  .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 = 8
  C01_PPFGroupBox4.add "C01_PPFTBXLabel12", "TLabel"
 with C01_PPFTBXLabel12
   .Left = 6
   .Top = 11
   .Width = 28
   .Height = 15
   .Caption = "KBK"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C01_PPFGroupBox4.add "C01_PPFTBXLabel16", "TLabel"
 with C01_PPFTBXLabel16
   .Left = 63
   .Top = 11
   .Width = 41
   .Height = 15
   .Caption = "OKATO"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C01_PPFGroupBox4.add "C01_PPFTBXLabel17", "TLabel"
 with C01_PPFTBXLabel17
   .Left = 159
   .Top = 11
   .Width = 64
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C01_PPFGroupBox4.add "C01_PPFKBK", "TDBEditEh"
 with C01_PPFKBK
   .Left = 5
   .Top = 27
   .Width = 55
   .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
  C01_PPFGroupBox4.add "C01_PPFOKATO", "TDBEditEh"
 with C01_PPFOKATO
   .Left = 63
   .Top = 27
   .Width = 93
   .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
  C01_PPFGroupBox4.add "C01_PPFOSN", "TDBEditEh"
 with C01_PPFOSN
   .Left = 160
   .Top = 27
   .Width = 65
   .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 = 5
   .Visible = True
   end with
  C01_PPFGroupBox4.add "C01_PPFTBXLabel18", "TLabel"
 with C01_PPFTBXLabel18
   .Left = 229
   .Top = 11
   .Width = 74
   .Height = 15
   .Caption = ". "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C01_PPFGroupBox4.add "C01_PPFNALPER", "TDBEditEh"
 with C01_PPFNALPER
   .Left = 229
   .Top = 27
   .Width = 66
   .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 = 7
   .Visible = True
   end with
  C01_PPFGroupBox4.add "C01_PPFTBXLabel19", "TLabel"
 with C01_PPFTBXLabel19
   .Left = 304
   .Top = 11
   .Width = 40
   .Height = 15
   .Caption = " ."
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C01_PPFGroupBox4.add "C01_PPFNOMERDOC", "TDBEditEh"
 with C01_PPFNOMERDOC
   .Left = 303
   .Top = 27
   .Width = 93
   .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
  C01_PPFGroupBox4.add "C01_PPFTBXLabel22", "TLabel"
 with C01_PPFTBXLabel22
   .Left = 399
   .Top = 11
   .Width = 28
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C01_PPFGroupBox4.add "C01_PPFEDATEDOC", "TDBEditEh"
 with C01_PPFEDATEDOC
   .Left = 399
   .Top = 27
   .Width = 93
   .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
  C01_PPFGroupBox4.add "C01_PPFTBXLabel23", "TLabel"
 with C01_PPFTBXLabel23
   .Left = 495
   .Top = 11
   .Width = 22
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C01_PPFGroupBox4.add "C01_PPFTYPE1", "TDBEditEh"
 with C01_PPFTYPE1
   .Left = 495
   .Top = 27
   .Width = 32
   .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 = 13
   .Visible = True
   end with
  end with
 end with
end sub


sub mainPlatPorFormBr

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


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

  ' 
  C01_PPFPDOCNUM.Text = ""
  C01_PPFPDOCDATE.Text = ""
  C01_PPFPAYKIND.Text = ""
  C01_PPFPAYQUEUE.Text = ""
  C01_PPFPAYCODE.Text = ""
  C01_PPFSUM.Text = ""
  C01_PPFSUMPROP.Text = ""
  C01_PPFPAYERNAME.Text = ""
  C01_PPFPAYERACC.Text = ""
  C01_PPFPAYERINN.Text = ""
  C01_PPFPAYERBANKNAME.Text = ""
  C01_PPFPAYERCORACC.Text = ""
  C01_PPFPAYERBIC.Text = ""
  C01_PPFRECEIVERNAME.Text = ""
  C01_PPFRECIPIENTACC.Text = ""
  C01_PPFRECIPIENTINN.Text = ""
  C01_PPFRECEIVERBANKNAME.Text = ""
  C01_PPFRECEIVERCORACC.Text = ""
  C01_PPFRECIPIENTBIC.Text = ""
'  KBK.Text = ""
'  OKATO.Text = ""
'  OSN.Text = ""
'  NALPER.Text = ""
'  NOMERDOC.Text = ""
'  EDATEDOC.Text = ""
'  TYPE1.Text = ""
  C01_PPFGROUND.Lines.Clear

'  PPFDBEditEh1.Text = ""
'  PPFDBEditEh2.Text = ""

  '  
  '
  C01_PPFPDOCNUM.Text = qPP.FieldByNameString("PDOCNUM")
  '
  C01_PPFPDOCDATE.Text = qPP.FieldByNameString("PDOCDATE")
  ' 
  C01_PPFPAYKIND.Text = qPP.FieldByNameString("PAYKIND")
  '
  C01_PPFPAYQUEUE.Text = qPP.FieldByNameString("PAYQUEUE")

  ' 
'  PPFDBEditEh1.Text = "" 'qPP.FieldByNameString("PLATCOND")
  '  
'  PPFDBEditEh2.Text = "" 'qPP.FieldByNameString("PAYDATE")

  ' 
  C01_PPFPAYCODE.Text = qPP.FieldByNameString("PAYCODE")
  '
   qqq = qPP.FieldByNameString("SUM")
   RetVal = MTStrFormat1(qqq)

  C01_PPFSUM.Text = RetVal
  ' 
  C01_PPFSUMPROP.Text = SummaPr

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

  '
  '
  C01_PPFPAYERNAME.Text = qPP.FieldByNameString("PAYERNAME")
  '
  C01_PPFPAYERACC.Text = qPP.FieldByNameString("PAYERACC")
  '
  C01_PPFPAYERINN.Text = qPP.FieldByNameString("PAYERINN")
  '
  C01_PPFPAYERBANKNAME.Text = qPP.FieldByNameString("PAYERBANKNAME")
  '. 
  C01_PPFPAYERCORACC.Text = qPP.FieldByNameString("PAYERCORACC")
  '
  C01_PPFPAYERBIC.Text = qPP.FieldByNameString("PAYERBIC")

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

  '
  '
  C01_PPFRECEIVERNAME.Text = qPP.FieldByNameString("RECEIVERNAME")
  '
  C01_PPFRECIPIENTACC.Text = qPP.FieldByNameString("RECIPIENTACC")
  '
  C01_PPFRECIPIENTINN.Text = qPP.FieldByNameString("RECIPIENTINN")
  '
  C01_PPFRECEIVERBANKNAME.Text = qPP.FieldByNameString("RECEIVERBANKNAME")
  '. 
  C01_PPFRECEIVERCORACC.Text = qPP.FieldByNameString("RECEIVERCORACC")
  '
  C01_PPFRECIPIENTBIC.Text = qPP.FieldByNameString("RECIPIENTBIC")

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

  '  
  '  

  '

  C01_PPFKBK.Text = qPP.FieldByNameString("KBK")
  'OKATO
  C01_PPFOKATO.Text = qPP.FieldByNameString("OKATO")
  '
  C01_PPFOSN.Text = qPP.FieldByNameString("NALOSNOVAN")
  '. 
  C01_PPFNALPER.Text = qPP.FieldByNameString("NALPER")
  ' .
  C01_PPFNOMERDOC.Text = qPP.FieldByNameString("NOMNALDOC")
  '
  C01_PPFEDATEDOC.Text = qPP.FieldByNameString("DATNALDOC")
  '
  C01_PPFTYPE1.Text = qPP.FieldByNameString("TPNALPLAT")

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

  ' 
  C01_PPFGROUND.Lines.Clear
  C01_PPFGROUND.Lines.Add(qPP.FieldByNameString("GROUND"))
  C01_PPFGROUND.ReadOnly = False
  C01_PPFGROUND.ReadOnly = True

  set fs=nothing
end sub


'  

if(isEmpty(PlatPorFormBr)) then
 self.Add "PlatPorFormBr","TForm"
 call Init_ComponentsPlPor
end if

call mainPlatPorFormBr()
a=PlatPorFormBr.ShowModal
