'===============================================================================
'   -    PlatPorViewBr
'  - VbScript
'  " "
'===============================================================================
Dim shtamp

sub Init_PlatPorViewBr
with PlatPorViewBr
'with self
 .Left = 135
 .Top = -13
 .Width = 815
 .Height = 725
 .VertScrollBar.Position = 238
 .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
 PlatPorViewBr.add "PPViewQR", "TQuickRep"
'  self.add "QR", "TQuickRep"
 with PPViewQR
  .Left = -8
  .Top = -238
  .Width = 794
  .Height = 1123
  .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
  PPViewQR.add "PPViewDetailBand1", "TQRBand"
 with PPViewDetailBand1
   .Left = 76
   .Top = 38
   .Width = 681
   .Height = 775
   .AlignToBottom = False
   .Color = "clWindow"
   .ForceNewColumn = False
   .ForceNewPage = False
   .BandType = "rbDetail"
   PPViewDetailBand1.add "PPViewQRLabel2", "TQRLabel"
 with PPViewQRLabel2
    .Left = 0
    .Top = 65
    .Width = 219
    .Height = 19
    .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
   PPViewDetailBand1.add "PPViewQRLabel3", "TQRLabel"
 with PPViewQRLabel3
    .Left = 2
    .Top = 98
    .Width = 40
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRLabel4", "TQRLabel"
 with PPViewQRLabel4
    .Left = 2
    .Top = 114
    .Width = 58
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRShape3", "TQRShape"
 with PPViewQRShape3
    .Left = 0
    .Top = 151
    .Width = 680
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape4", "TQRShape"
 with PPViewQRShape4
    .Left = 76
    .Top = 94
    .Width = 2
    .Height = 57
    .Shape = "qrsVertLine"
    end with
   PPViewDetailBand1.add "PPViewQRLabel5", "TQRLabel"
 with PPViewQRLabel5
    .Left = 2
    .Top = 153
    .Width = 28
    .Height = 16
    .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
   PPViewDetailBand1.add "PPViewQRShape5", "TQRShape"
 with PPViewQRShape5
    .Left = 0
    .Top = 265
    .Width = 435
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape6", "TQRShape"
 with PPViewQRShape6
    .Left = 378
    .Top = 151
    .Width = 1
    .Height = 341
    .Shape = "qrsVertLine"
    end with
   PPViewDetailBand1.add "PPViewQRLabel6", "TQRLabel"
 with PPViewQRLabel6
    .Left = 2
    .Top = 247
    .Width = 72
    .Height = 16
    .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
   PPViewDetailBand1.add "PPViewQRShape7", "TQRShape"
 with PPViewQRShape7
    .Left = 435
    .Top = 151
    .Width = 1
    .Height = 341
    .Shape = "qrsVertLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape8", "TQRShape"
 with PPViewQRShape8
    .Left = 378
    .Top = 208
    .Width = 302
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRLabel7", "TQRLabel"
 with PPViewQRLabel7
    .Left = 382
    .Top = 154
    .Width = 40
    .Height = 16
    .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
   PPViewDetailBand1.add "PPViewQRLabel8", "TQRLabel"
 with PPViewQRLabel8
    .Left = 382
    .Top = 211
    .Width = 32
    .Height = 16
    .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
   PPViewDetailBand1.add "PPViewQRShape9", "TQRShape"
 with PPViewQRShape9
    .Left = 0
    .Top = 378
    .Width = 435
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape10", "TQRShape"
 with PPViewQRShape10
    .Left = 0
    .Top = 491
    .Width = 680
    .Height = 2
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRLabel9", "TQRLabel"
 with PPViewQRLabel9
    .Left = 382
    .Top = 286
    .Width = 32
    .Height = 16
    .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
   PPViewDetailBand1.add "PPViewQRLabel10", "TQRLabel"
 with PPViewQRLabel10
    .Left = 382
    .Top = 343
    .Width = 32
    .Height = 16
    .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
   PPViewDetailBand1.add "PPViewQRLabel11", "TQRLabel"
 with PPViewQRLabel11
    .Left = 382
    .Top = 380
    .Width = 32
    .Height = 16
    .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
   PPViewDetailBand1.add "PPViewQRLabel12", "TQRLabel"
 with PPViewQRLabel12
    .Left = 382
    .Top = 267
    .Width = 25
    .Height = 16
    .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
   PPViewDetailBand1.add "PPViewQRLabel13", "TQRLabel"
 with PPViewQRLabel13
    .Left = 382
    .Top = 324
    .Width = 25
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRShape11", "TQRShape"
 with PPViewQRShape11
    .Left = 0
    .Top = 622
    .Width = 680
    .Height = 2
     .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRLabel14", "TQRLabel"
 with PPViewQRLabel14
    .Left = 268
    .Top = 626
    .Width = 53
    .Height = 17
  .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
   PPViewDetailBand1.add "PPViewQRLabel15", "TQRLabel"
 with PPViewQRLabel15
    .Left = 532
    .Top = 626
    .Width = 88
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRLabel16", "TQRLabel"
 with PPViewQRLabel16
    .Left = 121
    .Top = 679
    .Width = 29
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRLabel17", "TQRLabel"
 with PPViewQRLabel17
    .Left = 2
    .Top = 605
    .Width = 125
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRLabel18", "TQRLabel"
 with PPViewQRLabel18
    .Left = 2
    .Top = 474
    .Width = 68
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRLabel19", "TQRLabel"
 with PPViewQRLabel19
    .Left = 2
    .Top = 380
    .Width = 28
    .Height = 16
    .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
   PPViewDetailBand1.add "PPViewQRLabel20", "TQRLabel"
 with PPViewQRLabel20
    .Left = 2
    .Top = 304
    .Width = 108
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRLabel21", "TQRLabel"
 with PPViewQRLabel21
    .Left = 2
    .Top = 360
    .Width = 97
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRLabel22", "TQRLabel"
 with PPViewQRLabel22
    .Left = 382
    .Top = 438
    .Width = 47
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRLabel23", "TQRLabel"
 with PPViewQRLabel23
    .Left = 382
    .Top = 457
    .Width = 45
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRLabel24", "TQRLabel"
 with PPViewQRLabel24
    .Left = 382
    .Top = 473
    .Width = 22
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -10
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PPViewDetailBand1.add "PPViewQRLabel25", "TQRLabel"
 with PPViewQRLabel25
    .Left = 514
    .Top = 438
    .Width = 64
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRLabel26", "TQRLabel"
 with PPViewQRLabel26
    .Left = 514
    .Top = 456
    .Width = 66
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRLabel27", "TQRLabel"
 with PPViewQRLabel27
    .Left = 514
    .Top = 474
    .Width = 59
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRLabel29", "TQRLabel"
 with PPViewQRLabel29
    .Left = 393
    .Top = 82
    .Width = 27
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRLabel30", "TQRLabel"
 with PPViewQRLabel30
    .Left = 529
    .Top = 82
    .Width = 67
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRShape14", "TQRShape"
 with PPViewQRShape14
    .Left = 340
    .Top = 81
    .Width = 132
    .Height = 1
    .Frame.Width = 0
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape13", "TQRShape"
 with PPViewQRShape13
    .Left = 500
    .Top = 80
    .Width = 132
    .Height = 2
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape15", "TQRShape"
 with PPViewQRShape15
    .Left = 189
    .Top = 680
    .Width = 227
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape16", "TQRShape"
 with PPViewQRShape16
    .Left = 189
    .Top = 737
    .Width = 227
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape17", "TQRShape"
 with PPViewQRShape17
    .Left = 378
    .Top = 436
    .Width = 302
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape18", "TQRShape"
 with PPViewQRShape18
    .Left = 378
    .Top = 455
    .Width = 57
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape19", "TQRShape"
 with PPViewQRShape19
    .Left = 378
    .Top = 474
    .Width = 57
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape20", "TQRShape"
 with PPViewQRShape20
    .Left = 510
    .Top = 474
    .Width = 76
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape21", "TQRShape"
 with PPViewQRShape21
    .Left = 510
    .Top = 455
    .Width = 76
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape22", "TQRShape"
 with PPViewQRShape22
    .Left = 510
    .Top = 436
    .Width = 1
    .Height = 56
    .Shape = "qrsVertLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape23", "TQRShape"
 with PPViewQRShape23
    .Left = 586
    .Top = 436
    .Width = 1
    .Height = 56
    .Shape = "qrsVertLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape24", "TQRShape"
 with PPViewQRShape24
    .Left = 378
    .Top = 283
    .Width = 57
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape26", "TQRShape"
 with PPViewQRShape26
    .Left = 378
    .Top = 340
    .Width = 57
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRL", "TQRLabel"
 with PPViewQRL
    .Left = 454
    .Top = 438
    .Width = 8
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "01"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PPViewDetailBand1.add "PPViewQRShape2", "TQRShape"
 with PPViewQRShape2
    .Left = 0
    .Top = 321
    .Width = 680
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape25", "TQRShape"
 with PPViewQRShape25
    .Left = 212
    .Top = 19
    .Width = 132
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRLabel31", "TQRLabel"
 with PPViewQRLabel31
    .Left = 224
    .Top = 21
    .Width = 107
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRShape27", "TQRShape"
 with PPViewQRShape27
    .Left = 0
    .Top = 170
    .Width = 378
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape28", "TQRShape"
 with PPViewQRShape28
    .Left = 189
    .Top = 152
    .Width = 1
    .Height = 18
    .Shape = "qrsVertLine"
    end with
   PPViewDetailBand1.add "PPViewQRLabel32", "TQRLabel"
 with PPViewQRLabel32
    .Left = 194
    .Top = 153
    .Width = 26
    .Height = 16
    .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
   PPViewDetailBand1.add "PPViewQRShape29", "TQRShape"
 with PPViewQRShape29
    .Left = 0
    .Top = 511
    .Width = 680
    .Height = 2
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape31", "TQRShape"
 with PPViewQRShape31
    .Left = 189
    .Top = 378
    .Width = 1
    .Height = 19
    .Shape = "qrsVertLine"
    end with
   PPViewDetailBand1.add "PPViewQRLabel34", "TQRLabel"
 with PPViewQRLabel34
    .Left = 193
    .Top = 380
    .Width = 26
    .Height = 16
    .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
   PPViewDetailBand1.add "PPViewQRShape32", "TQRShape"
 with PPViewQRShape32
    .Left = 170
    .Top = 492
    .Width = 1
    .Height = 20
'    .Height = 19
    .Shape = "qrsVertLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape33", "TQRShape"
 with PPViewQRShape33
    .Left = 283
    .Top = 492
    .Width = 1
    .Height = 20
'    .Height = 19
    .Shape = "qrsVertLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape34", "TQRShape"
 with PPViewQRShape34
    .Left = 321
    .Top = 492
    .Width = 1
    .Height = 20
'    .Height = 19
    .Shape = "qrsVertLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape35", "TQRShape"
 with PPViewQRShape35
    .Left = 416
    .Top = 492
    .Width = 1
    .Height = 20
'    .Height = 19
    .Shape = "qrsVertLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape36", "TQRShape"
 with PPViewQRShape36
    .Left = 548
    .Top = 492
    .Width = 1
    .Height = 20
'    .Height = 19
    .Shape = "qrsVertLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape37", "TQRShape"
 with PPViewQRShape37
    .Left = 643
    .Top = 492
    .Width = 4
    .Height = 20
'    .Height = 19
    .Shape = "qrsVertLine"
    end with
   PPViewDetailBand1.add "PPViewQRShape38", "TQRShape"
 with PPViewQRShape38
    .Left = 654
    .Top = 56
    .Width = 26
    .Height = 26
    .Shape = "qrsRectangle"
    end with
   PPViewDetailBand1.add "PPViewQRShape12", "TQRShape"
 with PPViewQRShape12
    .Left = 614
    .Top = 0
    .Width = 67
    .Height = 21
    .Brush.Style = "bsClear"
    .Shape = "qrsRectangle"
    end with
   PPViewDetailBand1.add "PPViewQRLabel28", "TQRLabel"
 with PPViewQRLabel28
    .Left = 616
    .Top = 2
    .Width = 63
    .Height = 17
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "0401060"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PPViewDetailBand1.add "PPViewQRShape30", "TQRShape"
 with PPViewQRShape30
    .Left = 0
    .Top = 397
    .Width = 378
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   PPViewDetailBand1.add "PPViewVidPl", "TQRLabel"
 with PPViewVidPl
    .Left = 502
    .Top = 60
    .Width = 128
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRL6", "TQRLabel"
 with PPViewQRL6
    .Left = 80
    .Top = 100
    .Width = 597
    .Height = 45
    .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
   PPViewDetailBand1.add "PPViewINNPlat", "TQRLabel"
 with PPViewINNPlat
    .Left = 36
    .Top = 153
    .Width = 43
    .Height = 16
    .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
   PPViewDetailBand1.add "PPViewNamePl", "TQRLabel"
 with PPViewNamePl
    .Left = 4
    .Top = 173
    .Width = 372
    .Height = 71
    .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
   PPViewDetailBand1.add "PPViewBikBankPlat", "TQRLabel"
 with PPViewBikBankPlat
    .Left = 454
    .Top = 266
    .Width = 73
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewKorBankPlat", "TQRLabel"
 with PPViewKorBankPlat
    .Left = 454
    .Top = 285
    .Width = 74
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewKorBankPol", "TQRLabel"
 with PPViewKorBankPol
    .Left = 455
    .Top = 346
    .Width = 70
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewAccPol", "TQRLabel"
 with PPViewAccPol
    .Left = 456
    .Top = 380
    .Width = 43
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewOcherOpl", "TQRLabel"
 with PPViewOcherOpl
    .Left = 591
    .Top = 456
    .Width = 56
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewQRLbank", "TQRLabel"
 with PPViewQRLbank
    .Left = 2
    .Top = 269
    .Width = 375
    .Height = 32
    .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
   PPViewDetailBand1.add "PPViewNameBankPol", "TQRLabel"
 with PPViewNameBankPol
    .Left = 3
    .Top = 326
    .Width = 372
'    .Width = 375
    .Height = 32
    .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
   PPViewDetailBand1.add "PPViewNamePol", "TQRLabel"
 with PPViewNamePol
    .Left = 3
    .Top = 400
    .Width = 374
    .Height = 72
    .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
   PPViewDetailBand1.add "PPViewNaznPlat", "TQRLabel"
 with PPViewNaznPlat
    .Left = 3
    .Top = 515
'    .Top = 514
    .Width = 674
    .Height = 85
'    .Height = 86
    .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
   PPViewDetailBand1.add "PPViewKBK", "TQRLabel"
 with PPViewKBK
    .Left = 3
    .Top = 494
    .Width = 166
'    .Height = 13
    .Height = 16
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -8
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PPViewDetailBand1.add "PPViewOKATO", "TQRLabel"
 with PPViewOKATO
    .Left = 173
    .Top = 494
    .Width = 108
'    .Height = 13
    .Height = 16
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OKATO"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -10
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PPViewDetailBand1.add "PPViewOSN", "TQRLabel"
 with PPViewOSN
    .Left = 286
    .Top = 494
    .Width = 33
'    .Height = 13
    .Height = 16
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -10
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PPViewDetailBand1.add "PPViewNALPER", "TQRLabel"
 with PPViewNALPER
    .Left = 324
    .Top = 494
    .Width = 90
'    .Height = 13
    .Height = 16
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -10
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PPViewDetailBand1.add "PPViewNOMERDOC", "TQRLabel"
 with PPViewNOMERDOC
    .Left = 419
    .Top = 494
    .Width = 126
'    .Height = 13
    .Height = 16
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -10
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PPViewDetailBand1.add "PPViewEDATEDOC", "TQRLabel"
 with PPViewEDATEDOC
    .Left = 551
    .Top = 494
    .Width = 89
'    .Height = 13
    .Height = 16
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -10
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PPViewDetailBand1.add "PPViewtypeName", "TQRLabel"
 with PPViewtypeName
    .Left = 648
    .Top = 494
    .Width = 33
'    .Height = 13
    .Height = 16
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -10
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PPViewDetailBand1.add "PPViewSTATNAL", "TQRLabel"
 with PPViewSTATNAL
    .Left = 657
    .Top = 61
    .Width = 21
    .Height = 17
    .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
   PPViewDetailBand1.add "PPViewKPPPLATEL", "TQRLabel"
 with PPViewKPPPLATEL
    .Left = 224
    .Top = 153
    .Width = 150
    .Height = 16
    .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
   PPViewDetailBand1.add "PPViewKPPPOLUCH", "TQRLabel"
 with PPViewKPPPOLUCH
    .Left = 224
    .Top = 379
    .Width = 150
    .Height = 16
    .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
   end with
  PPViewQR.add "PPViewQRLabel1", "TQRLabel"
 with PPViewQRLabel1
   .Left = 88
   .Top = 58
   .Width = 107
   .Height = 17
   .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
  PPViewQR.add "PPViewQRShape1", "TQRShape"
 with PPViewQRShape1
   .Left = 76
   .Top = 57
   .Width = 132
   .Height = 1
   .Shape = "qrsHorLine"
   end with
  PPViewQR.add "PPViewNUMPL", "TQRLabel"
 with PPViewNUMPL
   .Left = 265
   .Top = 104
   .Width = 8
   .Height = 17
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "7"
   .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
  PPViewQR.add "PPViewDatPl", "TQRLabel"
 with PPViewDatPl
   .Left = 388
   .Top = 101
   .Width = 120
   .Height = 17
   .Alignment = "taCenter"
   .AlignToBand = False
   .AutoSize = False
   .AutoStretch = False
   .Caption = "DatPl"
   .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
  PPViewQR.add "PPViewLabel", "TQRLabel"
 with PPViewLabel
   .Left = 490
   .Top = 193
   .Width = 32
   .Height = 17
   .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
  PPViewQR.add "PPViewAccPlat", "TQRLabel"
 with PPViewAccPlat
   .Left = 490
   .Top = 251
   .Width = 47
   .Height = 17
   .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
  PPViewQR.add "PPViewBikBankPol", "TQRLabel"
 with PPViewBikBankPol
   .Left = 490
   .Top = 362
   .Width = 69
   .Height = 17
   .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
  PPViewQR.add "PPViewINNPol", "TQRLabel"
 with PPViewINNPol
   .Left = 110
   .Top = 417
   .Width = 40
   .Height = 16
   .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
   '  
 if shtamp<>"" then
  PPViewQR.add "PPViewImage", "TQRImage"
 with PPViewImage
   .Left = 567
   .Top = 688
   .Width = 174
   .Height = 163
   .Stretch = True
   set FS=CreateObject("Scripting.FileSystemObject")
   tt=FS.GetFolder("pictures")
   set FS=nothing
   tt=tt&"\shtamp.bmp"
   .picture.loadfromfile (tt) '   
   end with
 ' 
  d=InStr(shtamp,"FIO")
  t=" "
  t1=" "
  if (d>0) then
    s=Mid(shtamp,d)
    d=InStr(s,Chr(9))
    t=Mid(s,5,d-5)
    s=Mid(s,d+1)
    d=InStr(s,Chr(9))
    t1=Mid(s,8,d-8)
   end if
  PPViewQR.add "PPViewDat", "TQRLabel"
 with PPViewDat
   .Left = 620
   .Top = 737
   .Width = 120
   .Height = 20
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = false
   .AutoStretch = False
   .Caption = "" 'qPlat.fieldbynamestring("Dat")
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clBlack"
   .Font.Height = -15
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  PPViewQR.add "PPViewFamil", "TQRLabel"
'  .Caption = qPlat.fieldbynamestring("Dat") & vbcrlf & t & vbcrlf & "  :" & vbcrlf & t1
 with PPViewFamil
   .Left = 618
   .Top = 783
   .Width = 140
   .Height = 20
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = false
   .AutoStretch = False
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clBlack"'10440704
   .Font.Height = -15
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   .Caption=t
   end with

  PPViewQR.add "PPViewNumAbs", "TQRLabel"

 with PPViewNumAbs
   .Left = 628
   .Top = 829
   .Width = 170
   .Height = 20
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = false
   .AutoStretch = False
   .Caption = t1
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clBlack"'10440704
   .Font.Height = -15
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  end if
  end with
 end with
end sub


sub mainPlatPorViewBr

dim temp
dim s

shtamp=inBlb

  set qPPBr=Self.Controls("IBQuery1")



  PPViewNUMPL.Caption=qPPBr.FieldByNameString("PDOCNUM")
  ' 
  PPViewQRL6.Caption=SummaPr

'  temp=qPPBr.fieldbynamestring("SUMMARUB")
'  if (IsNull(temp)) then
'   s="0"
'  else
'  s=cstr(qPPBr.fieldbynamestring("SUMMARUB"))
'  end if
'  Label.Caption=s+"-"+self.Controls("SUMMAKOP").Text
  qqq = qPPBr.FieldByNameString("SUM")
  RetVal = MTStrFormat1(qqq)
  PPViewLabel.Caption= RetVal

  PPViewDatPl.Caption= qPPBr.FieldByNameString("PDOCDATE")
  PPViewVidPl.Caption= qPPBr.FieldByNameString("PAYKIND")
  

  PPViewINNPlat.Caption= qPPBr.FieldByNameString("PAYERINN")
  PPViewNamePl.Caption=  qPPBr.FieldByNameString("PAYERNAME")
  PPViewAccPlat.Caption=  qPPBr.FieldByNameString("PAYERACC")
  PPViewQRLbank.Caption=  qPPBr.FieldByNameString("PAYERBANKNAME")
  PPViewBikBankPlat.Caption=  qPPBr.FieldByNameString("PAYERBIC")
  PPViewKorBankPlat.Caption=  qPPBr.FieldByNameString("PAYERCORACC")
  
  PPViewNameBankPol.Caption=  qPPBr.FieldByNameString("RECEIVERBANKNAME")
  PPViewBikBankPol.Caption=  qPPBr.FieldByNameString("RECIPIENTBIC")
  PPViewKorBankPol.Caption=  qPPBr.FieldByNameString("RECEIVERCORACC")
  PPViewNamePol.Caption=  qPPBr.FieldByNameString("RECEIVERNAME")
  PPViewAccPol.Caption=  qPPBr.FieldByNameString("RECIPIENTACC")
  PPViewINNPol.Caption=  qPPBr.FieldByNameString("RECIPIENTINN")

  '
  Str1=qPPBr.FieldByNameString("PAYQUEUE")
  Str1="0"+Str1

  PPViewOcherOpl.Caption=  Str1
'  PPViewOcherOpl.Caption=  qPPBr.FieldByNameString("PAYQUEUE")

  PPViewNaznPlat.Caption=  qPPBr.FieldByNameString("GROUND")

  PPViewKBK.Caption=  qPPBr.FieldByNameString("KBK")

'  temp=qPPBr.fieldbynamestring("STNAME")
'  if(temp="") then
'   OKATO.Caption=""
'  else
   PPViewOKATO.Caption=  qPPBr.FieldByNameString("OKATO")
'  end if
  PPViewOSN.Caption=  qPPBr.FieldByNameString("NALOSNOVAN")
  PPViewNALPER.Caption=  qPPBr.FieldByNameString("NALPER")
  PPViewNOMERDOC.Caption=  qPPBr.FieldByNameString("NOMNALDOC")
  temp=qPPBr.FieldByNameString("DATNALDOC")
  if(IsNull(temp)=False) then
   PPViewEDATEDOC.Caption=qPPBr.FieldByNameString("DATNALDOC")
  end if

  PPViewtypeName.Caption=qPPBr.FieldByNameString("TPNALPLAT")
  '  -  
  PPViewSTATNAL.Caption=qPPBr.Fieldbynamestring("STATUSNAL")
  
  PPViewKPPPLATEL.Caption=qPPBr.FieldByNameString("KPPPLATEL")
  PPViewKPPPOLUCH.Caption=qPPBr.FieldByNameString("KPPPOLUCH")

end sub



C01_PPPrevPlatPorBtn.Enabled=False
C01_PPFBitBtn1.Enabled=False
Self.Enabled=False
MainForm.Enabled=False

if(isEmpty(PlatPorViewBr)) then
 self.Add "PlatPorViewBr","TForm"
 call Init_PlatPorViewBr
end if


call mainPlatPorViewBr()
PPViewQR.PreViewModal

Self.Enabled=True
MainForm.Enabled=True
C01_PPFBitBtn1.Enabled=True
C01_PPPrevPlatPorBtn.Enabled=True

