'===============================================================================
'     PlatOrdFormBr
'===============================================================================
sub Init_PlatOrdForm
with PlatOrdForm
 .Left = 143
 .Top = 110
 .BorderStyle = "bsDialog"
 .Caption = " "
 .ClientHeight = 513
 .ClientWidth = 561
 .Color = "clBtnFace"
 .Font.Charset = 204
 .Font.Color = "clWindowText"
 .Font.Height = -11
 .Font.Name = "MS Sans Serif"
 .Font.Style = ""
 .OldCreateOrder = False
 .PixelsPerInch = 96
 PlatOrdForm.add "C16_POFGroupBox1", "TGroupBox"
 with C16_POFGroupBox1
  .Left = 0
  .Top = 15
  .Width = 561
  .Height = 75
  .Align = "alTop"
  .Ctl3D = False
  .Font.Charset = 204
  .Font.Color = "clWindowText"
  .Font.Height = -11
  .Font.Name = "Arial"
  .Font.Style = ""
  .ParentCtl3D = False
  .ParentFont = False
  .TabOrder = 0
  .Caption = ""
  C16_POFGroupBox1.add "C16_POFTBXLabel1", "TLabel"
 with C16_POFTBXLabel1
   .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
  C16_POFGroupBox1.add "C16_POFTBXLabel2", "TLabel"
 with C16_POFTBXLabel2
   .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
  C16_POFGroupBox1.add "C16_POFTBXLabel3", "TLabel"
 with C16_POFTBXLabel3
   .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
  C16_POFGroupBox1.add "C16_POFPAYKIND", "TDBEditEh"
 with C16_POFPAYKIND
   .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
  C16_POFGroupBox1.add "C16_POFPDOCNUM", "TDBEditEh"
 with C16_POFPDOCNUM
   .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
  C16_POFGroupBox1.add "C16_POFTBXLabel10", "TLabel"
 with C16_POFTBXLabel10
   .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
  C16_POFGroupBox1.add "C16_POFPAYQUEUE", "TDBEditEh"
 with C16_POFPAYQUEUE
   .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
  C16_POFGroupBox1.add "C16_POFTBXLabel33", "TLabel"
 with C16_POFTBXLabel33
   .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
  C16_POFGroupBox1.add "C16_POFSUMPROP", "TDBEditEh"
 with C16_POFSUMPROP
   .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
  C16_POFGroupBox1.add "C16_IPFTBXLabel13", "TLabel"
 with C16_IPFTBXLabel13
   .Left = 9
   .Top = 35
   .Width = 81
   .Height = 15
   .Caption = " "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C16_POFGroupBox1.add "C16_POFPDOCDATE", "TDBEditEh"
 with C16_POFPDOCDATE
   .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
  C16_POFGroupBox1.add "C16_POFTBXLabel9", "TLabel"
 with C16_POFTBXLabel9
   .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
  C16_POFGroupBox1.add "C16_POFSUM", "TDBEditEh"
 with C16_POFSUM
   .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
  end with
 PlatOrdForm.add "C16_POFGroupBox5", "TGroupBox"
 with C16_POFGroupBox5
  .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
  C16_POFGroupBox5.add "C16_POFLabel1", "TLabel"
 with C16_POFLabel1
   .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
  C16_POFGroupBox5.add "C16_POFTBXLabel20", "TLabel"
 with C16_POFTBXLabel20
   .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
  C16_POFGroupBox5.add "C16_POFTBXLabel21", "TLabel"
 with C16_POFTBXLabel21
   .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
  C16_POFGroupBox5.add "C16_POFPAYERNAME", "TDBEditEh"
 with C16_POFPAYERNAME
   .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
  C16_POFGroupBox5.add "C16_POFPAYERACC", "TDBEditEh"
 with C16_POFPAYERACC
   .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
  C16_POFGroupBox5.add "C16_POFPAYERINN", "TDBEditEh"
 with C16_POFPAYERINN
   .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
  C16_POFGroupBox5.add "C16_POFTBXLabel29", "TLabel"
 with C16_POFTBXLabel29
   .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
  C16_POFGroupBox5.add "C16_POFPAYERBANKNAME", "TDBEditEh"
 with C16_POFPAYERBANKNAME
   .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
  C16_POFGroupBox5.add "C16_POFTBXLabel26", "TLabel"
 with C16_POFTBXLabel26
   .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
  C16_POFGroupBox5.add "C16_POFPAYERBIC", "TDBEditEh"
 with C16_POFPAYERBIC
   .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
  C16_POFGroupBox5.add "C16_POFTBXLabel27", "TLabel"
 with C16_POFTBXLabel27
   .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
  C16_POFGroupBox5.add "C16_POFPAYERCORACC", "TDBEditEh"
 with C16_POFPAYERCORACC
   .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
' PlatOrdForm.add "POFTBXLabel13", "TLabel"
' with POFTBXLabel13
'  .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
 PlatOrdForm.add "C16_POFPAYCODE", "TDBEditEh"
 with C16_POFPAYCODE
  .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
 PlatOrdForm.add "C16_POFGroupBox2", "TGroupBox"
 with C16_POFGroupBox2
  .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
  C16_POFGroupBox2.add "C16_POFLabel2", "TLabel"
 with C16_POFLabel2
   .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
  C16_POFGroupBox2.add "C16_POFTBXLabel5", "TLabel"
 with C16_POFTBXLabel5
   .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
  C16_POFGroupBox2.add "C16_POFRECIPIENTACC", "TDBEditEh"
 with C16_POFRECIPIENTACC
   .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
  C16_POFGroupBox2.add "C16_POFRECIPIENTINN", "TDBEditEh"
 with C16_POFRECIPIENTINN
   .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
  C16_POFGroupBox2.add "C16_POFTBXLabel6", "TLabel"
 with C16_POFTBXLabel6
   .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
  C16_POFGroupBox2.add "C16_POFRECEIVERBANKNAME", "TDBEditEh"
 with C16_POFRECEIVERBANKNAME
   .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
  C16_POFGroupBox2.add "C16_POFTBXLabel7", "TLabel"
 with C16_POFTBXLabel7
   .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
  C16_POFGroupBox2.add "C16_POFRECIPIENTBIC", "TDBEditEh"
 with C16_POFRECIPIENTBIC
   .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
  C16_POFGroupBox2.add "C16_POFTBXLabel8", "TLabel"
 with C16_POFTBXLabel8
   .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
  C16_POFGroupBox2.add "C16_POFRECEIVERCORACC", "TDBEditEh"
 with C16_POFRECEIVERCORACC
   .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
  C16_POFGroupBox2.add "C16_POFTBXLabel4", "TLabel"
 with C16_POFTBXLabel4
   .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
  C16_POFGroupBox2.add "C16_POFRECEIVERNAME", "TDBEditEh"
 with C16_POFRECEIVERNAME
   .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
 PlatOrdForm.add "C16_POFPanel1", "TPanel"
 with C16_POFPanel1
  .Left = 0
  .Top = 484
  .Width = 561
  .Height = 29
  .Align = "alBottom"
  .TabOrder = 5
  .Caption = ""
  C16_POFPanel1.add "C16_POFBitBtn1", "TBitBtn"
 with C16_POFBitBtn1
   .Left = 461
   .Top = 2
   .Width = 97
   .Height = 25
   .Kind = "bkCancel"
   .Caption = ""
   .TabOrder = 0
   end with

  C16_POFPanel1.add "C16_POFPrevOrderBtn", "TBitBtn",TRUE
 with C16_POFPrevOrderBtn
   .Left = 337
   .Top = 2
   .Width = 117
   .Height = 25
   .Caption = "&. "
   .TabOrder = 1
   end with
  end with
 PlatOrdForm.add "C16_POFPanel", "TPanel"
 with C16_POFPanel
  .Left = 0
  .Top = 0
  .Width = 561
  .Height = 15
  .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 = 6
  .Caption = ""
  end with
 PlatOrdForm.add "C16_POFGroupBox4", "TGroupBox"
 with C16_POFGroupBox4
  .Left = 0
  .Top = 361
  .Width = 561
  .Height = 55
  .Align = "alTop"
  .Ctl3D = False
  .Font.Charset = 204
  .Font.Color = "clBlack"
  .Font.Height = -12
  .Font.Name = "Arial"
  .Font.Style = "fsBold"
  .ParentCtl3D = False
  .ParentFont = False
  .TabOrder = 7
  .Caption = ""
  C16_POFGroupBox4.add "C16_POFTBXLabel12", "TLabel"
 with C16_POFTBXLabel12
   .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
  C16_POFGroupBox4.add "C16_POFTBXLabel16", "TLabel"
 with C16_POFTBXLabel16
   .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
  C16_POFGroupBox4.add "C16_POFTBXLabel17", "TLabel"
 with C16_POFTBXLabel17
   .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
  C16_POFGroupBox4.add "C16_POFKBK", "TDBEditEh"
 with C16_POFKBK
   .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
  C16_POFGroupBox4.add "C16_POFOKATO", "TDBEditEh"
 with C16_POFOKATO
   .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
  C16_POFGroupBox4.add "C16_POFOSN", "TDBEditEh"
 with C16_POFOSN
   .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
  C16_POFGroupBox4.add "C16_POFTBXLabel18", "TLabel"
 with C16_POFTBXLabel18
   .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
  C16_POFGroupBox4.add "C16_POFNALPER", "TDBEditEh"
 with C16_POFNALPER
   .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
  C16_POFGroupBox4.add "C16_POFTBXLabel19", "TLabel"
 with C16_POFTBXLabel19
   .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
  C16_POFGroupBox4.add "C16_POFNOMERDOC", "TDBEditEh"
 with C16_POFNOMERDOC
   .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
  C16_POFGroupBox4.add "C16_POFTBXLabel22", "TLabel"
 with C16_POFTBXLabel22
   .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
  C16_POFGroupBox4.add "C16_POFEDATEDOC", "TDBEditEh"
 with C16_POFEDATEDOC
   .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
  C16_POFGroupBox4.add "C16_POFTBXLabel23", "TLabel"
 with C16_POFTBXLabel23
   .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
  C16_POFGroupBox4.add "C16_POFTYPE1", "TDBEditEh"
 with C16_POFTYPE1
   .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
 PlatOrdForm.add "C16_POFGroupBox3", "TGroupBox"
 with C16_POFGroupBox3
  .Left = 0
  .Top = 416
  .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 = 8
  C16_POFGroupBox3.add "C16_POFGROUND", "TMemo"
 with C16_POFGROUND
   .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
 PlatOrdForm.add "C16_POFGroupBox6", "TGroupBox"
 with C16_POFGroupBox6
  .Left = 0
  .Top = 306
  .Width = 561
  .Height = 55
  .Align = "alTop"
  .Ctl3D = False
  .Font.Charset = 204
  .Font.Color = "clBlack"
  .Font.Height = -12
  .Font.Name = "Arial"
  .Font.Style = "fsBold"
  .ParentCtl3D = False
  .ParentFont = False
  .TabOrder = 9
  .Caption = ""
  C16_POFGroupBox6.add "C16_POFTBXLabel11", "TLabel"
 with C16_POFTBXLabel11
   .Left = 6
   .Top = 11
   .Width = 139
   .Height = 15
   .Caption = " "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C16_POFGroupBox6.add "C16_POFTBXLabel14", "TLabel"
 with C16_POFTBXLabel14
   .Left = 163
   .Top = 11
   .Width = 60
   .Height = 15
   .Caption = " . ."
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C16_POFGroupBox6.add "C16_POFTBXLabel15", "TLabel"
 with C16_POFTBXLabel15
   .Left = 226
   .Top = 11
   .Width = 98
   .Height = 15
   .Caption = " . ."
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C16_POFGroupBox6.add "C16_POFDBEditEh1", "TDBEditEh"
 with C16_POFDBEditEh1
   .Left = 5
   .Top = 27
   .Width = 136
   .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
  C16_POFGroupBox6.add "C16_POFDBEditEh2", "TDBEditEh"
 with C16_POFDBEditEh2
   .Left = 163
   .Top = 27
   .Width = 61
   .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
  C16_POFGroupBox6.add "C16_POFDBEditEh3", "TDBEditEh"
 with C16_POFDBEditEh3
   .Left = 227
   .Top = 27
   .Width = 97
   .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
  C16_POFGroupBox6.add "C16_POFTBXLabel24", "TLabel"
 with C16_POFTBXLabel24
   .Left = 327
   .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
  C16_POFGroupBox6.add "C16_POFDBEditEh4", "TDBEditEh"
 with C16_POFDBEditEh4
   .Left = 327
   .Top = 27
   .Width = 77
   .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
  C16_POFGroupBox6.add "C16_POFTBXLabel25", "TLabel"
 with C16_POFTBXLabel25
   .Left = 407
   .Top = 11
   .Width = 91
   .Height = 15
   .Caption = " . ."
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  C16_POFGroupBox6.add "C16_POFDBEditEh5", "TDBEditEh"
 with C16_POFDBEditEh5
   .Left = 407
   .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
  end with
 end with
end sub


sub mainPlatOrdForm
  set FS=CreateObject("Scripting.FileSystemObject")
  tt=FS.GetFolder("macroses")
  tt=tt+"\..\pictures\PreView.bmp"
  C16_POFPrevOrderBtn.Glyph.LoadFromFile(tt)
  C16_POFGROUND.ReadOnly = True
  
  set qPOF=Self.Controls("IBQuery1")


  ' 
  C16_POFPDOCNUM.Text = ""
  C16_POFPDOCDATE.Text = ""
  C16_POFPAYKIND.Text = ""
  C16_POFPAYQUEUE.Text = ""
  C16_POFPAYCODE.Text = ""
  C16_POFSUM.Text = ""
  C16_POFSUMPROP.Text = ""
  C16_POFPAYERNAME.Text = ""
  C16_POFPAYERACC.Text = ""
  C16_POFPAYERINN.Text = ""
  C16_POFPAYERBANKNAME.Text = ""
  C16_POFPAYERCORACC.Text = ""
  C16_POFPAYERBIC.Text = ""
  C16_POFRECEIVERNAME.Text = ""
  C16_POFRECIPIENTACC.Text = ""
  C16_POFRECIPIENTINN.Text = ""
  C16_POFRECEIVERBANKNAME.Text = ""
  C16_POFRECEIVERCORACC.Text = ""
  C16_POFRECIPIENTBIC.Text = ""
  C16_POFKBK.Text = ""
  C16_POFOKATO.Text = ""
  C16_POFOSN.Text = ""
  C16_POFNALPER.Text = ""
  C16_POFNOMERDOC.Text = ""
  C16_POFEDATEDOC.Text = ""
  C16_POFTYPE1.Text = ""
  C16_POFGROUND.Lines.Clear

  '  
  '
  C16_POFPDOCNUM.Text = qPOF.FieldByNameString("PDOCNUM")
  '
  C16_POFPDOCDATE.Text = qPOF.FieldByNameString("PDOCDATE")
  ' 
  C16_POFPAYKIND.Text = qPOF.FieldByNameString("PAYKIND")
  '
  C16_POFPAYQUEUE.Text = qPOF.FieldByNameString("PAYQUEUE")
  ' 
  C16_POFPAYCODE.Text = qPOF.FieldByNameString("PAYCODE")
  '
   qqq = qPOF.FieldByNameString("SUM")
   RetVal = MTStrFormat1(qqq)

  C16_POFSUM.Text = RetVal
  ' 
  C16_POFSUMPROP.Text = SummaPr

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

  '
  '
  C16_POFPAYERNAME.Text = qPOF.FieldByNameString("PAYERNAME")
  '
  C16_POFPAYERACC.Text = qPOF.FieldByNameString("PAYERACC")
  '
  C16_POFPAYERINN.Text = qPOF.FieldByNameString("PAYERINN")
  '
  C16_POFPAYERBANKNAME.Text = qPOF.FieldByNameString("PAYERBANKNAME")
  '. 
  C16_POFPAYERCORACC.Text = qPOF.FieldByNameString("PAYERCORACC")
  '
  C16_POFPAYERBIC.Text = qPOF.FieldByNameString("PAYERBIC")

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

  '
  '
  C16_POFRECEIVERNAME.Text = qPOF.FieldByNameString("RECEIVERNAME")
  '
  C16_POFRECIPIENTACC.Text = qPOF.FieldByNameString("RECIPIENTACC")
  '
  C16_POFRECIPIENTINN.Text = qPOF.FieldByNameString("RECIPIENTINN")
  '
  C16_POFRECEIVERBANKNAME.Text = qPOF.FieldByNameString("RECEIVERBANKNAME")
  '. 
  C16_POFRECEIVERCORACC.Text = qPOF.FieldByNameString("RECEIVERCORACC")
  '
  C16_POFRECIPIENTBIC.Text = qPOF.FieldByNameString("RECIPIENTBIC")

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

  '  
  '  

  '

  C16_POFKBK.Text = qPOF.FieldByNameString("KBK")
  'OKATO
  C16_POFOKATO.Text = qPOF.FieldByNameString("OKATO")
  '
  C16_POFOSN.Text = qPOF.FieldByNameString("NALOSNOVAN")
  '. 
  C16_POFNALPER.Text = qPOF.FieldByNameString("NALPER")
  ' .
  C16_POFNOMERDOC.Text = qPOF.FieldByNameString("NOMNALDOC")
  '
  C16_POFEDATEDOC.Text = qPOF.FieldByNameString("DATNALDOC")
  '
  C16_POFTYPE1.Text = qPOF.FieldByNameString("TPNALPLAT")

  '----------------------
  
  ' 
  C16_POFDBEditEh1.Text = ""
'  POFDBEditEh1.Text = qPO.FieldByNameString("")
  ' . .
  C16_POFDBEditEh2.Text = qPOF.FieldByNameString("PARTPAYNUM")
  '  
  C16_POFDBEditEh3.Text = qPOF.FieldByNameString("PARTPAYCODE")
  ' . .
  C16_POFDBEditEh4.Text = qPOF.FieldByNameString("PARTPLATDOCNUM")
  ' . .
  C16_POFDBEditEh5.Text = qPOF.FieldByNameString("PARTPLATDOCDATE")

  

  ' 
  C16_POFGROUND.Lines.Clear
  C16_POFGROUND.Lines.Add(qPOF.FieldByNameString("GROUND"))
  C16_POFGROUND.ReadOnly=False
  C16_POFGROUND.ReadOnly=True

  set fs=nothing
end sub

'  

if(isEmpty(PlatOrdForm)) then
 self.Add "PlatOrdForm","TForm"
 call Init_PlatOrdForm
end if

call mainPlatOrdForm()
b=PlatOrdForm.ShowModal
