'===============================================================================
'   -    PlatTrViewBr
'  - VbScript
'  " "
'===============================================================================
Dim shtamp
sub Init_PlatTrViewBr
with PlatTrViewBr
'--------------------------------------------
 .Left = 134
 .Top = 93
 .Width = 819
 .Height = 580
 .VertScrollBar.Position = 514
 .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
 PlatTrViewBr.add  "PTViewQR", "TQuickRep"
' self.add "QR", "TQuickRep"
 with PTViewQR
  .Left = 0
  .Top = -506
  .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
  PTViewQR.add "PTViewBdPaymPt", "TQRBand"
 with PTViewBdPaymPt
   .Left = 76
   .Top = 38
   .Width = 681
   .Height = 835
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .AlignToBottom = False
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -16
   .Font.Name = "Times New Roman"
   .Font.Style = ""
   .ForceNewColumn = False
   .ForceNewPage = False
   .ParentFont = False
   .BandType = "rbTitle"
   PTViewBdPaymPt.add "PTViewQRLabel1", "TQRLabel"
 with PTViewQRLabel1
    .Left = 3
    .Top = 59
    .Width = 229
    .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
   PTViewBdPaymPt.add "PTViewQRLabel2", "TQRLabel"
 with PTViewQRLabel2
    .Left = 364
    .Top = 77
    .Width = 121
    .Height = 15
    .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 = -11
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel3", "TQRLabel"
 with PTViewQRLabel3
    .Left = 515
    .Top = 77
    .Width = 121
    .Height = 15
    .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 = -11
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRShape5", "TQRShape"
 with PTViewQRShape5
    .Left = 378
    .Top = 265
    .Width = 302
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape6", "TQRShape"
 with PTViewQRShape6
    .Left = 378
    .Top = 491
    .Width = 302
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape7", "TQRShape"
 with PTViewQRShape7
    .Left = 0
    .Top = 208
    .Width = 680
    .Height = 2
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Pen.Width = 2
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape9", "TQRShape"
 with PTViewQRShape9
    .Left = 378
    .Top = 209
    .Width = 1
    .Height = 340
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape11", "TQRShape"
 with PTViewQRShape11
    .Left = 435
    .Top = 209
    .Width = 1
    .Height = 340
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape14", "TQRShape"
 with PTViewQRShape14
    .Left = 378
    .Top = 510
    .Width = 57
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape16", "TQRShape"
 with PTViewQRShape16
    .Left = 76
    .Top = 95
    .Width = 2
    .Height = 113
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Pen.Width = 2
    .Shape = "qrsVertLine"
    end with
   PTViewBdPaymPt.add "PTViewQRLabel4", "TQRLabel"
 with PTViewQRLabel4
    .Left = 2
    .Top = 156
    .Width = 42
    .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
   PTViewBdPaymPt.add "PTViewQRLabel5", "TQRLabel"
 with PTViewQRLabel5
    .Left = 2
    .Top = 173
    .Width = 60
    .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
   PTViewBdPaymPt.add "PTViewQRLabel7", "TQRLabel"
 with PTViewQRLabel7
    .Left = 2
    .Top = 303
    .Width = 75
    .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
   PTViewBdPaymPt.add "PTViewQRLabel8", "TQRLabel"
 with PTViewQRLabel8
    .Left = 2
    .Top = 359
    .Width = 113
    .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
   PTViewBdPaymPt.add "PTViewQRLabel9", "TQRLabel"
 with PTViewQRLabel9
    .Left = 2
    .Top = 417
    .Width = 102
    .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
   PTViewBdPaymPt.add "PTViewQRLabel10", "TQRLabel"
 with PTViewQRLabel10
    .Left = 2
    .Top = 530
    .Width = 71
    .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
   PTViewBdPaymPt.add "PTViewQRLabel11", "TQRLabel"
 with PTViewQRLabel11
    .Left = 2
    .Top = 552
    .Width = 125
    .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 = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel12", "TQRLabel"
 with PTViewQRLabel12
    .Left = 382
    .Top = 210
    .Width = 51
    .Height = 17
    .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 = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel13", "TQRLabel"
 with PTViewQRLabel13
    .Left = 382
    .Top = 266
    .Width = 34
    .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 = ". N"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel14", "TQRLabel"
 with PTViewQRLabel14
    .Left = 382
    .Top = 380
    .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 = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel15", "TQRLabel"
 with PTViewQRLabel15
    .Left = 382
    .Top = 342
    .Width = 34
    .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 = ". N"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel16", "TQRLabel"
 with PTViewQRLabel16
    .Left = 382
    .Top = 323
    .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 = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel17", "TQRLabel"
 with PTViewQRLabel17
    .Left = 382
    .Top = 437
    .Width = 34
    .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 = ". N"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel18", "TQRLabel"
 with PTViewQRLabel18
    .Left = 382
    .Top = 399
    .Width = 34
    .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 = ". N"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel19", "TQRLabel"
 with PTViewQRLabel19
    .Left = 382
    .Top = 493
    .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 = True
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel20", "TQRLabel"
 with PTViewQRLabel20
    .Left = 382
    .Top = 531
    .Width = 24
    .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 = True
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel21", "TQRLabel"
 with PTViewQRLabel21
    .Left = 382
    .Top = 512
    .Width = 49
    .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 = True
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRShape17", "TQRShape"
 with PTViewQRShape17
    .Left = 510
    .Top = 492
    .Width = 1
    .Height = 57
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   PTViewBdPaymPt.add "PTViewQRLabel23", "TQRLabel"
 with PTViewQRLabel23
    .Left = 513
    .Top = 498
    .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 = ". ."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = True
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel24", "TQRLabel"
 with PTViewQRLabel24
    .Left = 513
    .Top = 526
    .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 = True
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRShape19", "TQRShape"
 with PTViewQRShape19
    .Left = 208
    .Top = 737
    .Width = 227
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape20", "TQRShape"
 with PTViewQRShape20
    .Left = 208
    .Top = 794
    .Width = 227
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRLabel25", "TQRLabel"
 with PTViewQRLabel25
    .Left = 73
    .Top = 739
    .Width = 29
    .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 = ".."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel26", "TQRLabel"
 with PTViewQRLabel26
    .Left = 209
    .Top = 682
    .Width = 226
    .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 = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel27", "TQRLabel"
 with PTViewQRLabel27
    .Left = 517
    .Top = 682
    .Width = 88
    .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
   PTViewBdPaymPt.add "PTViewNUMPLTr", "TQRLabel"
 with PTViewNUMPLTr
   .Left = 237
   .Top = 60
   .Width = 47
   .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
  PTViewBdPaymPt.add  "PTViewDatPlTr", "TQRLabel"
 with PTViewDatPlTr
   .Left = 364
   .Top = 58
   .Width = 122
   .Height = 17
   .Alignment = "taCenter"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "Dat"
   .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
   PTViewBdPaymPt.add "PTViewOcherOpl", "TQRLabel"
 with PTViewOcherOpl
    .Left = 592
    .Top = 497
    .Width = 81
    .Height = 20
    .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
   PTViewBdPaymPt.add "PTViewBikBankPlat", "TQRLabel"
 with PTViewBikBankPlat
    .Left = 454
    .Top = 323
    .Width = 106
    .Height = 20
    .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
   PTViewBdPaymPt.add "PTViewNMBANKPL", "TQRLabel"
 with PTViewNMBANKPL
    .Left = 2
    .Top = 323
    .Width = 373
    .Height = 36
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "NAMEBANKPLATEL"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewKorBankPol", "TQRLabel"
 with PTViewKorBankPol
    .Left = 454
    .Top = 399
    .Width = 118
    .Height = 20
    .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
   PTViewBdPaymPt.add "PTViewKorBankPlat", "TQRLabel"
 with PTViewKorBankPlat
    .Left = 454
    .Top = 342
    .Width = 113
    .Height = 20
    .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
  PTViewBdPaymPt.add "PTViewBikBankPol", "TQRLabel"
 with PTViewBikBankPol
    .Left = 454
    .Top = 380
    .Width = 111
    .Height = 20
   .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
   PTViewBdPaymPt.add "PTViewNameBankPol", "TQRLabel"
 with PTViewNameBankPol
    .Left = 2
    .Top = 382
    .Width = 372
'    .Width = 373
    .Height = 35
    .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
  PTViewBdPaymPt.add "PTViewAccPlat", "TQRLabel"
 with PTViewAccPlat
   .Left = 454
   .Top = 266
   .Width = 92
   .Height = 20
   .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
   PTViewBdPaymPt.add "PTViewAccPol", "TQRLabel"
 with PTViewAccPol
    .Left = 454
    .Top = 437
    .Width = 88
    .Height = 20
    .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
   PTViewBdPaymPt.add "PTViewNaznPlat", "TQRLabel"
 with PTViewNaznPlat
    .Left = 2
    .Top = 573
    .Width = 671
    .Height = 91
    .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
   PTViewBdPaymPt.add "PTViewQRShape21", "TQRShape"
 with PTViewQRShape21
    .Left = 0
    .Top = 19
    .Width = 132
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = True
    .Frame.DrawLeft = True
    .Frame.DrawRight = True
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape18", "TQRShape"
 with PTViewQRShape18
    .Left = 586
    .Top = 492
    .Width = 1
    .Height = 57
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape22", "TQRShape"
 with PTViewQRShape22
    .Left = 378
    .Top = 529
    .Width = 57
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape23", "TQRShape"
 with PTViewQRShape23
    .Left = 378
    .Top = 397
    .Width = 57
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRLabel6", "TQRLabel"
 with PTViewQRLabel6
    .Left = 14
    .Top = 21
    .Width = 107
    .Height = 15
    .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
   PTViewBdPaymPt.add "PTViewQRShape24", "TQRShape"
 with PTViewQRShape24
    .Left = 510
    .Top = 520
    .Width = 76
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRLabel28", "TQRLabel"
 with PTViewQRLabel28
    .Left = 455
    .Top = 493
    .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 = "02"
'    .Caption = "1"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = True
    .WordWrap = True
    end with
  PTViewBdPaymPt.add  "PTViewVidPl", "TQRLabel"
 with PTViewVidPl
   .Left = 515
   .Top = 58
   .Width = 122
   .Height = 17
   .Alignment = "taCenter"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "VidPl"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -15
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
   PTViewBdPaymPt.add "PTViewQRLabel29", "TQRLabel"
 with PTViewQRLabel29
    .Left = 2
    .Top = 211
    .Width = 28
    .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
   PTViewBdPaymPt.add "PTViewINNPlat", "TQRLabel"
 with PTViewINNPlat
    .Left = 42
    .Top = 211
    .Width = 70
    .Height = 17
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "INNPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewNamePl", "TQRLabel"
 with PTViewNamePl
    .Left = 2
    .Top = 231
    .Width = 373
    .Height = 74
    .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
   PTViewBdPaymPt.add "PTViewQRLabel31", "TQRLabel"
 with PTViewQRLabel31
    .Left = 2
    .Top = 439
    .Width = 28
    .Height = 18
    .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
  PTViewBdPaymPt.add "PTViewINNPol", "TQRLabel"
 with PTViewINNPol
    .Left = 42
    .Top = 439
    .Width = 91
    .Height = 20
   .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
   PTViewBdPaymPt.add "PTViewNamePol", "TQRLabel"
 with PTViewNamePol
    .Left = 2
    .Top = 460
    .Width = 373
    .Height = 70
    .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
   PTViewBdPaymPt.add "PTViewSUMMA", "TQRLabel"
 with PTViewSUMMA
    .Left = 80
    .Top = 155
    .Width = 593
    .Height = 49
    .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 = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewSUM", "TQRLabel"
 with PTViewSUM
    .Left = 454
    .Top = 211
    .Width = 30
    .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 = "SUM"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRShape26", "TQRShape"
 with PTViewQRShape26
    .Left = 170
    .Top = 19
    .Width = 132
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = True
    .Frame.DrawLeft = True
    .Frame.DrawRight = True
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRLabel32", "TQRLabel"
 with PTViewQRLabel32
    .Left = 181
    .Top = 21
    .Width = 111
    .Height = 15
    .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
   PTViewBdPaymPt.add "PTViewQRShape27", "TQRShape"
 with PTViewQRShape27
    .Left = 340
    .Top = 19
    .Width = 132
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = True
    .Frame.DrawLeft = True
    .Frame.DrawRight = True
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRLabel33", "TQRLabel"
 with PTViewQRLabel33
    .Left = 354
    .Top = 21
    .Width = 107
    .Height = 15
    .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
   PTViewBdPaymPt.add "PTViewQRShape28", "TQRShape"
 with PTViewQRShape28
    .Left = 0
    .Top = 94
    .Width = 680
    .Height = 2
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Pen.Width = 2
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape29", "TQRShape"
 with PTViewQRShape29
    .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
   PTViewBdPaymPt.add "PTViewQRShape30", "TQRShape"
 with PTViewQRShape30
    .Left = 567
    .Top = 95
    .Width = 1
    .Height = 56
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape31", "TQRShape"
 with PTViewQRShape31
    .Left = 643
    .Top = 95
    .Width = 1
    .Height = 56
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape32", "TQRShape"
 with PTViewQRShape32
    .Left = 0
    .Top = 548
    .Width = 680
    .Height = 2
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Pen.Width = 2
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape13", "TQRShape"
 with PTViewQRShape13
    .Left = 378
    .Top = 340
    .Width = 57
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRLabel22", "TQRLabel"
 with PTViewQRLabel22
    .Left = 2
    .Top = 665
    .Width = 423
    .Height = 15
    .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
   PTViewBdPaymPt.add "PTViewQRLabel42", "TQRLabel"
 with PTViewQRLabel42
    .Left = 2
    .Top = 99
    .Width = 51
    .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
   PTViewBdPaymPt.add "PTViewQRLabel43", "TQRLabel"
 with PTViewQRLabel43
    .Left = 2
    .Top = 116
    .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 = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel44", "TQRLabel"
 with PTViewQRLabel44
    .Left = 570
    .Top = 99
    .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 = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewQRLabel45", "TQRLabel"
 with PTViewQRLabel45
    .Left = 570
    .Top = 116
    .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

   PTViewBdPaymPt.add "PTViewDAkc", "TQRLabel"
 with PTViewDAkc
    .Left = 648
    .Top = 112
    .Width = 64
    .Height = 20
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "DaysAkc"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   PTViewBdPaymPt.add "PTViewOsnAkc", "TQRLabel"
 with PTViewOsnAkc
    .Left = 80
    .Top = 99
    .Width = 484
    .Height = 49
    .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
   PTViewBdPaymPt.add "PTViewQRShape2", "TQRShape"
 with PTViewQRShape2
    .Left = 359
    .Top = 76
    .Width = 132
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = True
    .Frame.DrawLeft = True
    .Frame.DrawRight = True
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape3", "TQRShape"
 with PTViewQRShape3
    .Left = 510
    .Top = 76
    .Width = 132
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = True
    .Frame.DrawLeft = True
    .Frame.DrawRight = True
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape10", "TQRShape"
 with PTViewQRShape10
    .Left = 0
    .Top = 321
    .Width = 435
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape12", "TQRShape"
 with PTViewQRShape12
    .Left = 0
    .Top = 378
    .Width = 680
    .Height = 2
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Pen.Width = 2
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape1", "TQRShape"
 with PTViewQRShape1
    .Left = 0
    .Top = 435
    .Width = 435
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape8", "TQRShape"
 with PTViewQRShape8
    .Left = 0
    .Top = 680
    .Width = 680
    .Height = 2
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Pen.Width = 2
    .Shape = "qrsHorLine"
    end with
   PTViewBdPaymPt.add "PTViewQRShape4", "TQRShape"
 with PTViewQRShape4
    .Left = 614
    .Top = 0
    .Width = 67
    .Height = 21
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsRectangle"
    end with
   PTViewBdPaymPt.add "PTViewQRLabel30", "TQRLabel"
 with PTViewQRLabel30
    .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 = "0401061"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = True
    .WordWrap = True
    end with
   end with
  end with
 end with
end sub



sub mainPlatTrViewBr

  shtamp=inBlb
  set qPTBr=Self.Controls("IBQuery1")

  '    
  PTViewNUMPLTr.Caption=qPTBr.FieldByNameString("PDOCNUM")
  
  PTViewDatPlTr.Caption=qPTBr.FieldByNameString("PDOCDATE")
  PTViewVidPl.Caption=qPTBr.FieldByNameString("PAYKIND")

  ' 
  PTViewOsnAkc.Caption= "" ' qPTBr.fieldbynamestring("OSNOVANAKC")
  PTViewDAkc.Caption=" " ' qPTBr.fieldbynamestring("OSNOVANAKC")


  PTViewSUMMA.Caption= SummaPr

  qqq = qPTBr.FieldByNameString("SUM")
  RetVal = MTStrFormat1(qqq)
  PTViewSUM.Caption= RetVal

  '
  PTViewINNPlat.Caption=qPTBr.FieldByNameString("PAYERINN")
  PTViewNamePl.Caption=qPTBr.FieldByNameString("PAYERNAME")
  PTViewAccPlat.Caption=  qPTBr.FieldByNameString("PAYERACC")
  
  ' 
  PTViewNMBANKPL.Caption=  qPTBr.FieldByNameString("PAYERNAME")
  PTViewBikBankPlat.Caption=  qPTBr.FieldByNameString("PAYERBIC")
  PTViewKorBankPlat.Caption=  qPTBr.FieldByNameString("PAYERCORACC")
  
  ' 
  PTViewNameBankPol.Caption=  qPTBr.FieldByNameString("RECEIVERBANKNAME")
  PTViewBikBankPol.Caption=  qPTBr.FieldByNameString("RECIPIENTBIC")
  PTViewKorBankPol.Caption=  qPTBr.FieldByNameString("RECEIVERCORACC")
  
  '
  PTViewINNPol.Caption=  qPTBr.FieldByNameString("RECIPIENTINN")
  PTViewNamePol.Caption=  qPTBr.FieldByNameString("RECEIVERNAME")
  PTViewAccPol.Caption=  qPTBr.FieldByNameString("RECIPIENTACC")

  ' ,   
  PTViewOcherOpl.Caption=  qPTBr.FieldByNameString("PAYQUEUE")
  PTViewNaznPlat.Caption=  qPTBr.FieldByNameString("GROUND")

end sub

if(isEmpty(PlatTrViewBr)) then
 self.Add "PlatTrViewBr","TForm"
 call Init_PlatTrViewBr
end if

C02_PTFBitBtn1.Enabled=False
C02_PTPrevOrderBtn.Enabled=False
Self.Enabled=False
MainForm.Enabled=False

call mainPlatTrViewBr()
PTViewQR.PreViewModal

Self.Enabled=True
MainForm.Enabled=True
C02_PTPrevOrderBtn.Enabled=True
C02_PTFBitBtn1.Enabled=True