sub Init_InkPorForm
with InkPoForm
 .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
 InkPoForm.add "IPFGroupBox1", "TGroupBox"
 with IPFGroupBox1
  .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
  IPFGroupBox1.add "IPFTBXLabel1", "TLabel"
 with IPFTBXLabel1
   .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
  IPFGroupBox1.add "IPFTBXLabel2", "TLabel"
 with IPFTBXLabel2
   .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
  IPFGroupBox1.add "IPFTBXLabel3", "TLabel"
 with IPFTBXLabel3
   .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
  IPFGroupBox1.add "IPFPAYKIND", "TDBEditEh"
 with IPFPAYKIND
   .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
  IPFGroupBox1.add "IPFPDOCNUM", "TDBEditEh"
 with IPFPDOCNUM
   .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
  IPFGroupBox1.add "IPFTBXLabel10", "TLabel"
 with IPFTBXLabel10
   .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
  IPFGroupBox1.add "IPFPAYQUEUE", "TDBEditEh"
 with IPFPAYQUEUE
   .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
  IPFGroupBox1.add "IPFTBXLabel33", "TLabel"
 with IPFTBXLabel33
   .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
  IPFGroupBox1.add "IPFSUMPROP", "TDBEditEh"
 with IPFSUMPROP
   .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
  IPFGroupBox1.add "IPFPDOCDATE", "TDBEditEh"
 with IPFPDOCDATE
   .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
  IPFGroupBox1.add "IPFTBXLabel9", "TLabel"
 with IPFTBXLabel9
   .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
  IPFGroupBox1.add "IPFSUM", "TDBEditEh"
 with IPFSUM
   .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
  IPFGroupBox1.add "IPFTBXLabel13", "TLabel"
 with 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
  end with
 InkPoForm.add "IPFGroupBox5", "TGroupBox"
 with IPFGroupBox5
  .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
  IPFGroupBox5.add "IPFLabel1", "TLabel"
 with IPFLabel1
   .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
  IPFGroupBox5.add "IPFTBXLabel20", "TLabel"
 with IPFTBXLabel20
   .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
  IPFGroupBox5.add "IPFTBXLabel21", "TLabel"
 with IPFTBXLabel21
   .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
  IPFGroupBox5.add "IPFPAYERNAME", "TDBEditEh"
 with IPFPAYERNAME
   .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
  IPFGroupBox5.add "IPFPAYERACC", "TDBEditEh"
 with IPFPAYERACC
   .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
  IPFGroupBox5.add "IPFPAYERINN", "TDBEditEh"
 with IPFPAYERINN
   .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
  IPFGroupBox5.add "IPFTBXLabel29", "TLabel"
 with IPFTBXLabel29
   .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
  IPFGroupBox5.add "IPFPAYERBANKNAME", "TDBEditEh"
 with IPFPAYERBANKNAME
   .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
  IPFGroupBox5.add "IPFTBXLabel26", "TLabel"
 with IPFTBXLabel26
   .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
  IPFGroupBox5.add "IPFPAYERBIC", "TDBEditEh"
 with IPFPAYERBIC
   .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
  IPFGroupBox5.add "IPFTBXLabel27", "TLabel"
 with IPFTBXLabel27
   .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
  IPFGroupBox5.add "IPFPAYERCORACC", "TDBEditEh"
 with IPFPAYERCORACC
   .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
 InkPoForm.add "IPFPAYCODE", "TDBEditEh"
 with IPFPAYCODE
  .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
 InkPoForm.add "IPFGroupBox2", "TGroupBox"
 with IPFGroupBox2
  .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
  IPFGroupBox2.add "IPFLabel2", "TLabel"
 with IPFLabel2
   .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
  IPFGroupBox2.add "IPFTBXLabel5", "TLabel"
 with IPFTBXLabel5
   .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
  IPFGroupBox2.add "IPFRECIPIENTACC", "TDBEditEh"
 with IPFRECIPIENTACC
   .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
  IPFGroupBox2.add "IPFRECIPIENTINN", "TDBEditEh"
 with IPFRECIPIENTINN
   .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
  IPFGroupBox2.add "IPFTBXLabel6", "TLabel"
 with IPFTBXLabel6
   .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
  IPFGroupBox2.add "IPFRECEIVERBANKNAME", "TDBEditEh"
 with IPFRECEIVERBANKNAME
   .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
  IPFGroupBox2.add "IPFTBXLabel7", "TLabel"
 with IPFTBXLabel7
   .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
  IPFGroupBox2.add "IPFRECIPIENTBIC", "TDBEditEh"
 with IPFRECIPIENTBIC
   .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
  IPFGroupBox2.add "IPFTBXLabel8", "TLabel"
 with IPFTBXLabel8
   .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
  IPFGroupBox2.add "IPFRECEIVERCORACC", "TDBEditEh"
 with IPFRECEIVERCORACC
   .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
  IPFGroupBox2.add "IPFTBXLabel4", "TLabel"
 with IPFTBXLabel4
   .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
  IPFGroupBox2.add "IPFRECEIVERNAME", "TDBEditEh"
 with IPFRECEIVERNAME
   .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
 InkPoForm.add "IPFGroupBox3", "TGroupBox"
 with IPFGroupBox3
  .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
  IPFGroupBox3.add "IPFGROUND", "TMemo"
 with IPFGROUND
   .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
 InkPoForm.add "IPFPanel1", "TPanel"
 with IPFPanel1
  .Left = 0
  .Top = 427
  .Width = 561
  .Height = 29
  .Caption = ""
  .Align = "alBottom"
  .TabOrder = 6
  IPFPanel1.add "IPFBitBtn1", "TBitBtn"
 with IPFBitBtn1
   .Left = 461
   .Top = 2
   .Width = 97
   .Height = 25
   .Caption = ""
   .TabOrder = 0
   .Kind = "bkCancel"
   end with
  IPFPanel1.add "IPFPrevInkPoBtn", "TBitBtn", TRUE
 with IPFPrevInkPoBtn
   .Left = 337
   .Top = 2
   .Width = 117
   .Height = 25
   .Caption = "&. "
   .TabOrder = 1
   end with
  end with
 InkPoForm.add "IPFPanel", "TPanel"
 with IPFPanel
  .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
 InkPoForm.add "IPFGroupBox4", "TGroupBox"
 with IPFGroupBox4
  .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
  IPFGroupBox4.add "IPFTBXLabel12", "TLabel"
 with IPFTBXLabel12
   .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
  IPFGroupBox4.add "IPFTBXLabel16", "TLabel"
 with IPFTBXLabel16
   .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
  IPFGroupBox4.add "IPFTBXLabel17", "TLabel"
 with IPFTBXLabel17
   .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
  IPFGroupBox4.add "IPFKBK", "TDBEditEh"
 with IPFKBK
   .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
  IPFGroupBox4.add "IPFOKATO", "TDBEditEh"
 with IPFOKATO
   .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
  IPFGroupBox4.add "IPFOSN", "TDBEditEh"
 with IPFOSN
   .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
  IPFGroupBox4.add "IPFTBXLabel18", "TLabel"
 with IPFTBXLabel18
   .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
  IPFGroupBox4.add "IPFNALPER", "TDBEditEh"
 with IPFNALPER
   .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
  IPFGroupBox4.add "IPFTBXLabel19", "TLabel"
 with IPFTBXLabel19
   .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
  IPFGroupBox4.add "IPFNOMERDOC", "TDBEditEh"
 with IPFNOMERDOC
   .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
  IPFGroupBox4.add "IPFTBXLabel22", "TLabel"
 with IPFTBXLabel22
   .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
  IPFGroupBox4.add "IPFEDATEDOC", "TDBEditEh"
 with IPFEDATEDOC
   .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
  IPFGroupBox4.add "IPFTBXLabel23", "TLabel"
 with IPFTBXLabel23
   .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
  IPFGroupBox4.add "IPFTYPE1", "TDBEditEh"
 with IPFTYPE1
   .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 mainInkPorForm

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

  set qIP=Self.Controls("IBQuery1")


  ' 
  IPFPDOCNUM.Text = ""
  IPFPDOCDATE.Text = ""
  IPFPAYKIND.Text = ""
  IPFPAYQUEUE.Text = ""
  IPFPAYCODE.Text = ""
  IPFSUM.Text = ""
  IPFSUMPROP.Text = ""
  IPFPAYERNAME.Text = ""
  IPFPAYERACC.Text = ""
  IPFPAYERINN.Text = ""
  IPFPAYERBANKNAME.Text = ""
  IPFPAYERCORACC.Text = ""
  IPFPAYERBIC.Text = ""
  IPFRECEIVERNAME.Text = ""
  IPFRECIPIENTACC.Text = ""
  IPFRECIPIENTINN.Text = ""
  IPFRECEIVERBANKNAME.Text = ""
  IPFRECEIVERCORACC.Text = ""
  IPFRECIPIENTBIC.Text = ""
  IPFKBK.Text = ""
  IPFOKATO.Text = ""
  IPFOSN.Text = ""
  IPFNALPER.Text = ""
  IPFNOMERDOC.Text = ""
  IPFEDATEDOC.Text = ""
  IPFTYPE1.Text = ""
  IPFGROUND.Lines.Clear

  '  
  '
  IPFPDOCNUM.Text = qIP.FieldByNameString("PDOCNUM")
  '
  IPFPDOCDATE.Text = qIP.FieldByNameString("PDOCDATE")
  ' 
  IPFPAYKIND.Text = qIP.FieldByNameString("PAYKIND")
  '
  IPFPAYQUEUE.Text = qIP.FieldByNameString("PAYQUEUE")
  ' 
  IPFPAYCODE.Text = ""
  '
  IPFSUM.Text = qIP.FieldByNameString("SUM")
  ' 
  IPFSUMPROP.Text = qIP.FieldByNameString("SUM")
  
  '------------------------------
  
  '
  '
  IPFPAYERNAME.Text = qIP.FieldByNameString("PAYERNAME")
  '
  IPFPAYERACC.Text = qIP.FieldByNameString("PAYERACC")
  '
  IPFPAYERINN.Text = qIP.FieldByNameString("PAYERINN")
  '
  IPFPAYERBANKNAME.Text = qIP.FieldByNameString("PAYERBANKNAME")
  '. 
  IPFPAYERCORACC.Text = qIP.FieldByNameString("PAYERCORACC")
  '
  IPFPAYERBIC.Text = qIP.FieldByNameString("PAYERBIC")
  
  '------------------------------

  '
  '
  IPFRECEIVERNAME.Text = qIP.FieldByNameString("RECEIVERNAME")
  '
  IPFRECIPIENTACC.Text = qIP.FieldByNameString("RECIPIENTACC")
  '
  IPFRECIPIENTINN.Text = qIP.FieldByNameString("RECIPIENTINN")
  '
  IPFRECEIVERBANKNAME.Text = qIP.FieldByNameString("RECEIVERBANKNAME")
  '. 
  IPFRECEIVERCORACC.Text = qIP.FieldByNameString("RECEIVERCORACC")
  '
  IPFRECIPIENTBIC.Text = qIP.FieldByNameString("RECIPIENTBIC")
  
  '------------------------------
  
  '  
  '  
  
  '

  IPFKBK.Text = qIP.FieldByNameString("KBK")
  'OKATO
  IPFOKATO.Text = qIP.FieldByNameString("OKATO")
  '
  IPFOSN.Text = qIP.FieldByNameString("NALOSNOVAN")
  '. 
  IPFNALPER.Text = qIP.FieldByNameString("NALPER")
  ' .
  IPFNOMERDOC.Text = qIP.FieldByNameString("NOMNALDOC")
  '
  IPFEDATEDOC.Text = qIP.FieldByNameString("DATNALDOC")
  '
  IPFTYPE1.Text = qIP.FieldByNameString("TPNALPLAT")
  
  '----------------------
  
  ' 
  IPFGROUND.Lines.Clear
  IPFGROUND.Lines.Add(qIP.FieldByNameString("GROUND"))

  
  set fs=nothing
end sub

'  

if(isEmpty(InkPoForm)) then
 self.Add "InkPoForm","TForm"
 call Init_InkPorForm
end if

call mainInkPorForm()
InkPoForm.ShowModal
