'===============================================================================
'    -   InkPorFormBr
'===============================================================================
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 "C06_IPFGroupBox1", "TGroupBox"
 with C06_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
  C06_IPFGroupBox1.add "C06_IPFTBXLabel1", "TLabel"
 with C06_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
  C06_IPFGroupBox1.add "C06_IPFTBXLabel2", "TLabel"
 with C06_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
  C06_IPFGroupBox1.add "C06_IPFTBXLabel3", "TLabel"
 with C06_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
  C06_IPFGroupBox1.add "C06_IPFPAYKIND", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox1.add "C06_IPFPDOCNUM", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox1.add "C06_IPFTBXLabel10", "TLabel"
 with C06_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
  C06_IPFGroupBox1.add "C06_IPFPAYQUEUE", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox1.add "C06_IPFTBXLabel33", "TLabel"
 with C06_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
  C06_IPFGroupBox1.add "C06_IPFSUMPROP", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox1.add "C06_IPFPDOCDATE", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox1.add "C06_IPFTBXLabel9", "TLabel"
 with C06_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
  C06_IPFGroupBox1.add "C06_IPFSUM", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox1.add "C06_IPFTBXLabel13", "TLabel"
 with C06_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 "C06_IPFGroupBox5", "TGroupBox"
 with C06_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
  C06_IPFGroupBox5.add "C06_IPFLabel1", "TLabel"
 with C06_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
  C06_IPFGroupBox5.add "C06_IPFTBXLabel20", "TLabel"
 with C06_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
  C06_IPFGroupBox5.add "C06_IPFTBXLabel21", "TLabel"
 with C06_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
  C06_IPFGroupBox5.add "C06_IPFPAYERNAME", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox5.add "C06_IPFPAYERACC", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox5.add "C06_IPFPAYERINN", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox5.add "C06_IPFTBXLabel29", "TLabel"
 with C06_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
  C06_IPFGroupBox5.add "C06_IPFPAYERBANKNAME", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox5.add "C06_IPFTBXLabel26", "TLabel"
 with C06_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
  C06_IPFGroupBox5.add "C06_IPFPAYERBIC", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox5.add "C06_IPFTBXLabel27", "TLabel"
 with C06_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
  C06_IPFGroupBox5.add "C06_IPFPAYERCORACC", "TDBEditEh"
 with C06_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 "C06_IPFPAYCODE", "TDBEditEh"
 with C06_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 "C06_IPFGroupBox2", "TGroupBox"
 with C06_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
  C06_IPFGroupBox2.add "C06_IPFLabel2", "TLabel"
 with C06_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
  C06_IPFGroupBox2.add "C06_IPFTBXLabel5", "TLabel"
 with C06_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
  C06_IPFGroupBox2.add "C06_IPFRECIPIENTACC", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox2.add "C06_IPFRECIPIENTINN", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox2.add "C06_IPFTBXLabel6", "TLabel"
 with C06_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
  C06_IPFGroupBox2.add "C06_IPFRECEIVERBANKNAME", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox2.add "C06_IPFTBXLabel7", "TLabel"
 with C06_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
  C06_IPFGroupBox2.add "C06_IPFRECIPIENTBIC", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox2.add "C06_IPFTBXLabel8", "TLabel"
 with C06_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
  C06_IPFGroupBox2.add "C06_IPFRECEIVERCORACC", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox2.add "C06_IPFTBXLabel4", "TLabel"
 with C06_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
  C06_IPFGroupBox2.add "C06_IPFRECEIVERNAME", "TDBEditEh"
 with C06_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 "C06_IPFGroupBox3", "TGroupBox"
 with C06_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
  C06_IPFGroupBox3.add "C06_IPFGROUND", "TMemo"
 with C06_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 "C06_IPFPanel1", "TPanel"
 with C06_IPFPanel1
  .Left = 0
  .Top = 427
  .Width = 561
  .Height = 29
  .Caption = ""
  .Align = "alBottom"
  .TabOrder = 6
  C06_IPFPanel1.add "C06_IPFBitBtn1", "TBitBtn"
 with C06_IPFBitBtn1
   .Left = 461
   .Top = 2
   .Width = 97
   .Height = 25
   .Kind = "bkCancel"
   .Caption = ""
   .TabOrder = 0
   end with
  C06_IPFPanel1.add "C06_IPFPrevInkPoBtn", "TBitBtn", TRUE
 with C06_IPFPrevInkPoBtn
   .Left = 337
   .Top = 2
   .Width = 117
   .Height = 25
   .Caption = "&. "
   .TabOrder = 1
   end with
  end with
 InkPoForm.add "C06_IPFPanel", "TPanel"
 with C06_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 "C06_IPFGroupBox4", "TGroupBox"
 with C06_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
  C06_IPFGroupBox4.add "C06_IPFTBXLabel12", "TLabel"
 with C06_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
  C06_IPFGroupBox4.add "C06_IPFTBXLabel16", "TLabel"
 with C06_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
  C06_IPFGroupBox4.add "C06_IPFTBXLabel17", "TLabel"
 with C06_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
  C06_IPFGroupBox4.add "C06_IPFKBK", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox4.add "C06_IPFOKATO", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox4.add "C06_IPFOSN", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox4.add "C06_IPFTBXLabel18", "TLabel"
 with C06_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
  C06_IPFGroupBox4.add "C06_IPFNALPER", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox4.add "C06_IPFTBXLabel19", "TLabel"
 with C06_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
  C06_IPFGroupBox4.add "C06_IPFNOMERDOC", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox4.add "C06_IPFTBXLabel22", "TLabel"
 with C06_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
  C06_IPFGroupBox4.add "C06_IPFEDATEDOC", "TDBEditEh"
 with C06_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
  C06_IPFGroupBox4.add "C06_IPFTBXLabel23", "TLabel"
 with C06_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
  C06_IPFGroupBox4.add "C06_IPFTYPE1", "TDBEditEh"
 with C06_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"
  C06_IPFPrevInkPoBtn.Glyph.LoadFromFile(tt)
  C06_IPFGROUND.ReadOnly = True

  set qIP=Self.Controls("IBQuery1")

  ' 
  C06_IPFPDOCNUM.Text = ""
  C06_IPFPDOCDATE.Text = ""
  C06_IPFPAYKIND.Text = ""
  C06_IPFPAYQUEUE.Text = ""
  C06_IPFPAYCODE.Text = ""
  C06_IPFSUM.Text = ""
  C06_IPFSUMPROP.Text = ""
  C06_IPFPAYERNAME.Text = ""
  C06_IPFPAYERACC.Text = ""
  C06_IPFPAYERINN.Text = ""
  C06_IPFPAYERBANKNAME.Text = ""
  C06_IPFPAYERCORACC.Text = ""
  C06_IPFPAYERBIC.Text = ""
  C06_IPFRECEIVERNAME.Text = ""
  C06_IPFRECIPIENTACC.Text = ""
  C06_IPFRECIPIENTINN.Text = ""
  C06_IPFRECEIVERBANKNAME.Text = ""
  C06_IPFRECEIVERCORACC.Text = ""
  C06_IPFRECIPIENTBIC.Text = ""
  C06_IPFKBK.Text = ""
  C06_IPFOKATO.Text = ""
  C06_IPFOSN.Text = ""
  C06_IPFNALPER.Text = ""
  C06_IPFNOMERDOC.Text = ""
  C06_IPFEDATEDOC.Text = ""
  C06_IPFTYPE1.Text = ""
  C06_IPFGROUND.Lines.Clear

  '  
  '
  C06_IPFPDOCNUM.Text = qIP.FieldByNameString("PDOCNUM")
  '
  C06_IPFPDOCDATE.Text = qIP.FieldByNameString("PDOCDATE")
  ' 
  C06_IPFPAYKIND.Text = qIP.FieldByNameString("PAYKIND")
  '
  C06_IPFPAYQUEUE.Text = qIP.FieldByNameString("PAYQUEUE")
  ' 
  C06_IPFPAYCODE.Text = qIP.FieldByNameString("PAYCODE")
  
  '
   qqq = qIP.FieldByNameString("SUM")
   RetVal = MTStrFormat1(qqq)

  C06_IPFSUM.Text = RetVal
  ' 
  C06_IPFSUMPROP.Text = SummaPr
'  C06_IPFSUMPROP.Text = qIP.FieldByNameString("SUM")
  
  '------------------------------
  
  '
  '
  C06_IPFPAYERNAME.Text = qIP.FieldByNameString("PAYERNAME")
  '
  C06_IPFPAYERACC.Text = qIP.FieldByNameString("PAYERACC")
  '
  C06_IPFPAYERINN.Text = qIP.FieldByNameString("PAYERINN")
  '
  C06_IPFPAYERBANKNAME.Text = qIP.FieldByNameString("PAYERBANKNAME")
  '. 
  C06_IPFPAYERCORACC.Text = qIP.FieldByNameString("PAYERCORACC")
  '
  C06_IPFPAYERBIC.Text = qIP.FieldByNameString("PAYERBIC")
  
  '------------------------------

  '
  '
  C06_IPFRECEIVERNAME.Text = qIP.FieldByNameString("RECEIVERNAME")
  '
  C06_IPFRECIPIENTACC.Text = qIP.FieldByNameString("RECIPIENTACC")
  '
  C06_IPFRECIPIENTINN.Text = qIP.FieldByNameString("RECIPIENTINN")
  '
  C06_IPFRECEIVERBANKNAME.Text = qIP.FieldByNameString("RECEIVERBANKNAME")
  '. 
  C06_IPFRECEIVERCORACC.Text = qIP.FieldByNameString("RECEIVERCORACC")
  '
  C06_IPFRECIPIENTBIC.Text = qIP.FieldByNameString("RECIPIENTBIC")
  
  '------------------------------
  
  '  
  '  
  
  '

  C06_IPFKBK.Text = qIP.FieldByNameString("KBK")
  'OKATO
  C06_IPFOKATO.Text = qIP.FieldByNameString("OKATO")
  '
  C06_IPFOSN.Text = qIP.FieldByNameString("NALOSNOVAN")
  '. 
  C06_IPFNALPER.Text = qIP.FieldByNameString("NALPER")
  ' .
  C06_IPFNOMERDOC.Text = qIP.FieldByNameString("NOMNALDOC")
  '
  C06_IPFEDATEDOC.Text = qIP.FieldByNameString("DATNALDOC")
  '
  C06_IPFTYPE1.Text = qIP.FieldByNameString("TPNALPLAT")
  
  '----------------------
  
  ' 
  C06_IPFGROUND.Lines.Clear
  C06_IPFGROUND.Lines.Add(qIP.FieldByNameString("GROUND"))
  C06_IPFGROUND.ReadOnly=False
  C06_IPFGROUND.ReadOnly=True
  set fs=nothing
end sub

'  

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

call mainInkPorForm()

d=InkPoForm.ShowModal
