sub Init_InkPorView
with InkPorView
 .Left = 180
 .Top = 124
 .Width = 833
 .Height = 725
 .VertScrollBar.Position = 371
 .BorderIcons = "biSystemMenu, biMaximize"
 .Caption = " "
 .Color = "clBtnFace"
 .Font.Charset = 204
 .Font.Color = "clWindowText"
 .Font.Height = -11
 .Font.Name = "MS Sans Serif"
 .Font.Style = ""
 .OldCreateOrder = False
 .Scaled = False
 .PixelsPerInch = 96
 InkPorView.add "IPVQR", "TQuickRep"
' InkPorView.add "QR", "TQuickRep"
 with IPVQR
  .Left = -8
  .Top = -371
  .Width = 794
  .Height = 1123
  .Frame.Color = "clBlack"
  .Frame.DrawTop = False
  .Frame.DrawBottom = False
  .Frame.DrawLeft = False
  .Frame.DrawRight = False
  .Font.Charset = 204
  .Font.Color = "clWindowText"
  .Font.Height = -13
  .Font.Name = "Arial"
  .Font.Style = ""
  .Options = "FirstPageHeader, LastPageFooter"
  .Page.Columns = 1
  .Page.Orientation = "poPortrait"
  .Page.PaperSize = "A4"
  .PrinterSettings.Copies = 1
  .PrinterSettings.Duplex = False
  .PrinterSettings.FirstPage = 0
  .PrinterSettings.LastPage = 0
  .PrinterSettings.OutputBin = "Auto"
  .PrintIfEmpty = True
  .SnapToGrid = True
  .Units = "MM"
  .Zoom = 100
  IPVQR.add "IPVDetailBand1", "TQRBand"
 with IPVDetailBand1
   .Left = 76
   .Top = 38
   .Width = 681
   .Height = 1003
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .AlignToBottom = False
   .Color = "clWindow"
   .ForceNewColumn = False
   .ForceNewPage = False
   .BandType = "rbDetail"
   IPVDetailBand1.add "IPVQRLabel2", "TQRLabel"
 with IPVQRLabel2
    .Left = 0
    .Top = 65
    .Width = 228
    .Height = 19
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "  "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -15
    .Font.Name = "Arial"
    .Font.Style = "fsBold"
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel3", "TQRLabel"
 with IPVQRLabel3
    .Left = 2
    .Top = 98
    .Width = 40
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel4", "TQRLabel"
 with IPVQRLabel4
    .Left = 2
    .Top = 114
    .Width = 58
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRShape3", "TQRShape"
 with IPVQRShape3
    .Left = 0
    .Top = 151
    .Width = 680
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape4", "TQRShape"
 with IPVQRShape4
    .Left = 76
    .Top = 94
    .Width = 2
    .Height = 57
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRLabel5", "TQRLabel"
 with IPVQRLabel5
    .Left = 2
    .Top = 153
    .Width = 28
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRShape5", "TQRShape"
 with IPVQRShape5
    .Left = 0
    .Top = 246
    .Width = 435
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape6", "TQRShape"
 with IPVQRShape6
    .Left = 378
    .Top = 151
    .Width = 1
    .Height = 303
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRLabel6", "TQRLabel"
 with IPVQRLabel6
    .Left = 2
    .Top = 228
    .Width = 72
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRShape7", "TQRShape"
 with IPVQRShape7
    .Left = 435
    .Top = 151
    .Width = 1
    .Height = 303
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRShape8", "TQRShape"
 with IPVQRShape8
    .Left = 378
    .Top = 208
    .Width = 302
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRLabel7", "TQRLabel"
 with IPVQRLabel7
    .Left = 382
    .Top = 154
    .Width = 40
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel8", "TQRLabel"
 with IPVQRLabel8
    .Left = 382
    .Top = 211
    .Width = 32
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRShape9", "TQRShape"
 with IPVQRShape9
    .Left = 0
    .Top = 359
    .Width = 435
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape10", "TQRShape"
 with IPVQRShape10
    .Left = 0
    .Top = 453
    .Width = 680
    .Height = 2
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRLabel9", "TQRLabel"
 with IPVQRLabel9
    .Left = 382
    .Top = 267
    .Width = 32
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel10", "TQRLabel"
 with IPVQRLabel10
    .Left = 382
    .Top = 324
    .Width = 32
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel11", "TQRLabel"
 with IPVQRLabel11
    .Left = 382
    .Top = 362
    .Width = 32
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel12", "TQRLabel"
 with IPVQRLabel12
    .Left = 382
    .Top = 249
    .Width = 25
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel13", "TQRLabel"
 with IPVQRLabel13
    .Left = 382
    .Top = 305
    .Width = 25
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRShape11", "TQRShape"
 with IPVQRShape11
    .Left = 0
    .Top = 603
    .Width = 680
    .Height = 2
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRLabel14", "TQRLabel"
 with IPVQRLabel14
    .Left = 268
    .Top = 606
    .Width = 53
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel15", "TQRLabel"
 with IPVQRLabel15
    .Left = 491
    .Top = 606
    .Width = 160
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "  "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel16", "TQRLabel"
 with IPVQRLabel16
    .Left = 121
    .Top = 659
    .Width = 29
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ".."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel17", "TQRLabel"
 with IPVQRLabel17
    .Left = 2
    .Top = 586
    .Width = 125
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel18", "TQRLabel"
 with IPVQRLabel18
    .Left = 2
    .Top = 436
    .Width = 68
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel19", "TQRLabel"
 with IPVQRLabel19
    .Left = 2
    .Top = 362
    .Width = 28
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel20", "TQRLabel"
 with IPVQRLabel20
    .Left = 2
    .Top = 285
    .Width = 108
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel21", "TQRLabel"
 with IPVQRLabel21
    .Left = 2
    .Top = 341
    .Width = 97
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel22", "TQRLabel"
 with IPVQRLabel22
    .Left = 382
    .Top = 400
    .Width = 47
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " ."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel23", "TQRLabel"
 with IPVQRLabel23
    .Left = 382
    .Top = 419
    .Width = 45
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ".."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel24", "TQRLabel"
 with IPVQRLabel24
    .Left = 382
    .Top = 437
    .Width = 22
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel26", "TQRLabel"
 with IPVQRLabel26
    .Left = 514
    .Top = 401
    .Width = 66
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ".."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel27", "TQRLabel"
 with IPVQRLabel27
    .Left = 514
    .Top = 436
    .Width = 59
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ". "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel29", "TQRLabel"
 with IPVQRLabel29
    .Left = 393
    .Top = 82
    .Width = 27
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -11
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel30", "TQRLabel"
 with IPVQRLabel30
    .Left = 529
    .Top = 82
    .Width = 67
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -11
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRShape14", "TQRShape"
 with IPVQRShape14
    .Left = 340
    .Top = 81
    .Width = 132
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Frame.Width = 0
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape13", "TQRShape"
 with IPVQRShape13
    .Left = 500
    .Top = 80
    .Width = 132
    .Height = 2
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape15", "TQRShape"
 with IPVQRShape15
    .Left = 189
    .Top = 660
    .Width = 227
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape16", "TQRShape"
 with IPVQRShape16
    .Left = 189
    .Top = 717
    .Width = 227
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape17", "TQRShape"
 with IPVQRShape17
    .Left = 378
    .Top = 398
    .Width = 302
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape18", "TQRShape"
 with IPVQRShape18
    .Left = 378
    .Top = 417
    .Width = 57
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape19", "TQRShape"
 with IPVQRShape19
    .Left = 378
    .Top = 436
    .Width = 57
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape20", "TQRShape"
 with IPVQRShape20
    .Left = 510
    .Top = 426
    .Width = 76
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape22", "TQRShape"
 with IPVQRShape22
    .Left = 510
    .Top = 398
    .Width = 1
    .Height = 56
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRShape23", "TQRShape"
 with IPVQRShape23
    .Left = 586
    .Top = 399
    .Width = 1
    .Height = 55
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRShape24", "TQRShape"
 with IPVQRShape24
    .Left = 378
    .Top = 265
    .Width = 57
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape26", "TQRShape"
 with IPVQRShape26
    .Left = 378
    .Top = 321
    .Width = 57
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRL", "TQRLabel"
 with IPVQRL
    .Left = 454
    .Top = 400
    .Width = 8
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "1"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRShape2", "TQRShape"
 with IPVQRShape2
    .Left = 0
    .Top = 302
    .Width = 680
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape25", "TQRShape"
 with IPVQRShape25
    .Left = 212
    .Top = 19
    .Width = 132
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRLabel31", "TQRLabel"
 with IPVQRLabel31
    .Left = 224
    .Top = 21
    .Width = 107
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "  . ."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -11
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRShape27", "TQRShape"
 with IPVQRShape27
    .Left = 0
    .Top = 170
    .Width = 378
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape28", "TQRShape"
 with IPVQRShape28
    .Left = 189
    .Top = 152
    .Width = 1
    .Height = 18
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRLabel32", "TQRLabel"
 with IPVQRLabel32
    .Left = 194
    .Top = 153
    .Width = 26
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRShape29", "TQRShape"
 with IPVQRShape29
    .Left = 0
    .Top = 472
    .Width = 680
    .Height = 2
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape31", "TQRShape"
 with IPVQRShape31
    .Left = 189
    .Top = 360
    .Width = 1
    .Height = 19
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRLabel34", "TQRLabel"
 with IPVQRLabel34
    .Left = 193
    .Top = 361
    .Width = 26
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRShape32", "TQRShape"
 with IPVQRShape32
    .Left = 170
    .Top = 454
    .Width = 1
    .Height = 19
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRShape33", "TQRShape"
 with IPVQRShape33
    .Left = 283
    .Top = 454
    .Width = 1
    .Height = 19
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRShape34", "TQRShape"
 with IPVQRShape34
    .Left = 321
    .Top = 454
    .Width = 1
    .Height = 19
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRShape35", "TQRShape"
 with IPVQRShape35
    .Left = 416
    .Top = 454
    .Width = 1
    .Height = 19
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRShape36", "TQRShape"
 with IPVQRShape36
    .Left = 548
    .Top = 454
    .Width = 1
    .Height = 19
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRShape37", "TQRShape"
 with IPVQRShape37
    .Left = 643
    .Top = 454
    .Width = 4
    .Height = 19
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRShape38", "TQRShape"
 with IPVQRShape38
    .Left = 654
    .Top = 56
    .Width = 26
    .Height = 26
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsRectangle"
    end with
   IPVDetailBand1.add "IPVQRShape12", "TQRShape"
 with IPVQRShape12
    .Left = 614
    .Top = 0
    .Width = 67
    .Height = 21
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Brush.Style = "bsClear"
    .Shape = "qrsRectangle"
    end with
   IPVDetailBand1.add "IPVQRLabel28", "TQRLabel"
 with IPVQRLabel28
    .Left = 616
    .Top = 2
    .Width = 63
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "0401071"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRShape30", "TQRShape"
 with IPVQRShape30
    .Left = 0
    .Top = 379
    .Width = 378
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVVidPl", "TQRLabel"
 with IPVVidPl
    .Left = 502
    .Top = 60
    .Width = 128
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "Vidopl"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVSUMMAPR", "TQRLabel"
 with IPVSUMMAPR
    .Left = 80
    .Top = 100
    .Width = 597
    .Height = 45
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "QRL6"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -15
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVINNPlat", "TQRLabel"
 with IPVINNPlat
    .Left = 36
    .Top = 153
    .Width = 43
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "INNPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVNamePl", "TQRLabel"
 with IPVNamePl
    .Left = 4
    .Top = 173
    .Width = 372
    .Height = 54
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "NamePl"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVBikBankPlat", "TQRLabel"
 with IPVBikBankPlat
    .Left = 454
    .Top = 248
    .Width = 73
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "BikBankPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVKorBankPlat", "TQRLabel"
 with IPVKorBankPlat
    .Left = 454
    .Top = 266
    .Width = 74
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "KorBankPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVKorBankPol", "TQRLabel"
 with IPVKorBankPol
    .Left = 455
    .Top = 327
    .Width = 70
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "KorBankPol"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVAccPol", "TQRLabel"
 with IPVAccPol
    .Left = 456
    .Top = 362
    .Width = 43
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "AccPol"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVOcherOpl", "TQRLabel"
 with IPVOcherOpl
    .Left = 591
    .Top = 418
    .Width = 56
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "OcherOpl"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVNAMEBANKPL", "TQRLabel"
 with IPVNAMEBANKPL
    .Left = 2
    .Top = 250
    .Width = 375
    .Height = 32
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "QRLbank"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVNameBankPol", "TQRLabel"
 with IPVNameBankPol
    .Left = 3
    .Top = 307
    .Width = 375
    .Height = 32
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "QRLbank"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVNamePol", "TQRLabel"
 with IPVNamePol
    .Left = 3
    .Top = 381
    .Width = 374
    .Height = 54
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "NamePol"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVNaznPlat", "TQRLabel"
 with IPVNaznPlat
    .Left = 3
    .Top = 476
    .Width = 674
    .Height = 108
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "NaznPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVKBK", "TQRLabel"
 with IPVKBK
    .Left = 3
    .Top = 456
    .Width = 166
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVOKATO", "TQRLabel"
 with IPVOKATO
    .Left = 173
    .Top = 456
    .Width = 108
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OKATO"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVOSN", "TQRLabel"
 with IPVOSN
    .Left = 286
    .Top = 456
    .Width = 33
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVNALPER", "TQRLabel"
 with IPVNALPER
    .Left = 324
    .Top = 456
    .Width = 90
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVNOMERDOC", "TQRLabel"
 with IPVNOMERDOC
    .Left = 419
    .Top = 456
    .Width = 126
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVEDATEDOC", "TQRLabel"
 with IPVEDATEDOC
    .Left = 551
    .Top = 456
    .Width = 89
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVtypeName", "TQRLabel"
 with IPVtypeName
    .Left = 648
    .Top = 456
    .Width = 33
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVSTATNAL", "TQRLabel"
 with IPVSTATNAL
    .Left = 657
    .Top = 61
    .Width = 21
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "STATNAL"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVKPPPLATEL", "TQRLabel"
 with IPVKPPPLATEL
    .Left = 224
    .Top = 153
    .Width = 150
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVKPPPOLUCH", "TQRLabel"
 with IPVKPPPOLUCH
    .Left = 224
    .Top = 362
    .Width = 150
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRShape21", "TQRShape"
 with IPVQRShape21
    .Left = 0
    .Top = 736
    .Width = 474
    .Height = 2
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape39", "TQRShape"
 with IPVQRShape39
    .Left = 0
    .Top = 774
    .Width = 474
    .Height = 2
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   IPVDetailBand1.add "IPVQRShape40", "TQRShape"
 with IPVQRShape40
    .Left = 416
    .Top = 737
    .Width = 1
    .Height = 209
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRShape41", "TQRShape"
 with IPVQRShape41
    .Left = 302
    .Top = 737
    .Width = 1
    .Height = 209
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRShape42", "TQRShape"
 with IPVQRShape42
    .Left = 189
    .Top = 737
    .Width = 1
    .Height = 209
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRShape43", "TQRShape"
 with IPVQRShape43
    .Left = 95
    .Top = 737
    .Width = 1
    .Height = 209
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRShape44", "TQRShape"
 with IPVQRShape44
    .Left = 38
    .Top = 737
    .Width = 1
    .Height = 209
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   IPVDetailBand1.add "IPVQRLabel25", "TQRLabel"
 with IPVQRLabel25
    .Left = 2
    .Top = 740
    .Width = 26
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " ."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel33", "TQRLabel"
 with IPVQRLabel33
    .Left = 2
    .Top = 757
    .Width = 30
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel35", "TQRLabel"
 with IPVQRLabel35
    .Left = 41
    .Top = 740
    .Width = 51
    .Height = 32
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = " . "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel36", "TQRLabel"
 with IPVQRLabel36
    .Left = 97
    .Top = 740
    .Width = 88
    .Height = 32
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = " . "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel37", "TQRLabel"
 with IPVQRLabel37
    .Left = 192
    .Top = 740
    .Width = 108
    .Height = 32
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "  "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel38", "TQRLabel"
 with IPVQRLabel38
    .Left = 305
    .Top = 740
    .Width = 108
    .Height = 32
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "  "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel39", "TQRLabel"
 with IPVQRLabel39
    .Left = 419
    .Top = 740
    .Width = 51
    .Height = 32
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel40", "TQRLabel"
 with IPVQRLabel40
    .Left = 491
    .Top = 739
    .Width = 175
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "   "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   IPVDetailBand1.add "IPVQRLabel41", "TQRLabel"
 with IPVQRLabel41
    .Left = 491
    .Top = 775
    .Width = 171
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "  "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   end with
  IPVQR.add "IPVQRLabel1", "TQRLabel"
 with IPVQRLabel1
   .Left = 88
   .Top = 58
   .Width = 107
   .Height = 17
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = ".   ."
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  IPVQR.add "IPVQRShape1", "TQRShape"
 with IPVQRShape1
   .Left = 76
   .Top = 57
   .Width = 132
   .Height = 1
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .Shape = "qrsHorLine"
   end with
  IPVQR.add "IPVNUMPL", "TQRLabel"
 with IPVNUMPL
   .Left = 310
   .Top = 104
   .Width = 8
   .Height = 17
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = ""
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -13
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  IPVQR.add "IPVDatPl", "TQRLabel"
 with IPVDatPl
   .Left = 381
'   .Left = 421
   .Top = 101
   .Width = 120
   .Height = 17
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .Alignment = "taCenter"
   .AlignToBand = False
   .AutoSize = False
   .AutoStretch = False
   .Caption = ""
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -13
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  IPVQR.add "IPVSUMM", "TQRLabel"
 with IPVSUMM
   .Left = 491
'   .Left = 525
   .Top = 193
   .Width = 32
   .Height = 17
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "Label"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -13
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  IPVQR.add "IPVAccPlat", "TQRLabel"
 with IPVAccPlat
   .Left = 491
'   .Left = 529
   .Top = 251
   .Width = 47
   .Height = 17
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "AccPlat"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -13
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  IPVQR.add "IPVBikBankPol", "TQRLabel"
 with IPVBikBankPol
   .Left = 492
'   .Left = 530
   .Top = 343
   .Width = 69
   .Height = 17
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "BikBankPol"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -13
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  IPVQR.add "IPVINNPol", "TQRLabel"
 with IPVINNPol
   .Left = 110
   .Top = 400
   .Width = 40
   .Height = 16
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "INNPol"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  IPVQR.add "IPVImage", "TQRImage"
 with IPVImage
   .Left = 567
   .Top = 668
   .Width = 174
   .Height = 109
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .Stretch = True
   end with
  IPVQR.add "IPVDat", "TQRLabel"
 with IPVDat
   .Left = 598
   .Top = 709
   .Width = 91
   .Height = 20
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "06  2003"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = 10440704
   .Font.Height = -15
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  end with
 end with
end sub


sub mainInkPorView
'call Init_Components

'function ON_PREVIEW (inBlb)
'shtamp=inBlb
'set qPlat=InkPorViewControls("qPlat")
'call Init_Components
'dim temp
'dim s

  shtamp=inBlb

'  call Init_InkPorView


  set qIPV=Self.Controls("IBQuery1")

  ' 

  '
  IPVNUMPL.Caption = qIPV.FieldByNameString("PDOCNUM")
  '
  IPVDATPL.Caption = qIPV.FieldByNameString("PDOCDATE")
  ' 
  IPVVIDPL.Caption = qIPV.FieldByNameString("PAYKIND")
  
  ' 
'  QRL6.Caption = qIPV.FieldByNameString("SUM")
  IPVSUMMAPR.Caption = qIPV.FieldByNameString("SUM")

  '
  IPVINNPLAT.Caption = qIPV.FieldByNameString("PAYERINN")
  '
  IPVKPPPLATEL.Caption = qIPV.FieldByNameString("KPPPLATEL")
  '
  IPVSUMM.Caption = qIPV.FieldByNameString("SUM")
  
  '
  ' 
  IPVNAMEPL.Caption = qIPV.FieldByNameString("PAYERNAME")
  ' 
  IPVACCPLAT.Caption = qIPV.FieldByNameString("PAYERACC")

  ' 
  '  
  IPVNAMEBANKPL.Caption = qIPV.FieldByNameString("PAYERNAME")
  '
  IPVBIKBANKPLAT.Caption = qIPV.FieldByNameString("PAYERBIC")
  ' 
  IPVKORBANKPLAT.Caption = qIPV.FieldByNameString("PAYERCORACC")
  
  ' 
  
  '  
  IPVNAMEBANKPOL.Caption = qIPV.FieldByNameString("RECEIVERBANKNAME")
  '
  IPVBIKBANKPOL.Caption = qIPV.FieldByNameString("RECIPIENTBIC")
  ' 
  IPVKORBANKPOL.Caption = qIPV.FieldByNameString("RECEIVERCORACC")

  '
  IPVINNPOL.Caption = qIPV.FieldByNameString("RECIPIENTINN")
  '
  IPVKPPPOLUCH.Caption = qIPV.FieldByNameString("KPPPOLUCH")
  '
  IPVACCPOL.Caption = qIPV.FieldByNameString("RECIPIENTACC")
  
  '
  ' 
  IPVNAMEPOL.Caption = qIPV.FieldByNameString("RECEIVERNAME")
  
  ' 
  IPVQRL.Caption = "1"
'  IPVQRL.Caption = qIPV.FieldByNameString("PAYKIND")
  ' 
  IPVOCHEROPL.Caption = qIPV.FieldByNameString("PAYQUEUE")

  ' 
  IPVNAZNPLAT.Caption = qIPV.FieldByNameString("GROUND")
  
  ' 
  '     
  
  IPVKBK.Caption = qIPV.FieldByNameString("KBK")
  IPVOKATO.Caption = qIPV.FieldByNameString("OKATO")
  IPVOSN.Caption = qIPV.FieldByNameString("NALOSNOVAN")
  IPVNALPER.Caption = qIPV.FieldByNameString("NALPER")
  IPVNOMERDOC.Caption = qIPV.FieldByNameString("NOMNALDOC")
  IPVEDATEDOC.Caption = qIPV.FieldByNameString("DATNALDOC")
  IPVTYPENAME.Caption = qIPV.FieldByNameString("TPNALPLAT")

'QR.PreView
end sub

'   execute  . 
if(isEmpty(InkPorView)) then
 self.Add "InkPorView","TForm"
 call Init_InkPorView
end if

call mainInkPorView()
IPVQR.PreViewModal

