'    
'  - VbScript
'  " "
Dim qPlat
Dim shtamp

sub Init_Components
'with self
'     
with AutoForm
'--------------------------------------------
 .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
 Autoform.add  "QR", "TQuickRep"
' self.add "QR", "TQuickRep"
 with QR
  .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
  QR.add "BdPaymPt", "TQRBand"
 with BdPaymPt
   .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"
   BdPaymPt.add "QRLabel1", "TQRLabel"
 with QRLabel1
    .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
   BdPaymPt.add "QRLabel2", "TQRLabel"
 with QRLabel2
    .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
   BdPaymPt.add "QRLabel3", "TQRLabel"
 with QRLabel3
    .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
   BdPaymPt.add "QRShape5", "TQRShape"
 with QRShape5
    .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
   BdPaymPt.add "QRShape6", "TQRShape"
 with QRShape6
    .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
   BdPaymPt.add "QRShape7", "TQRShape"
 with QRShape7
    .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
   BdPaymPt.add "QRShape9", "TQRShape"
 with QRShape9
    .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
   BdPaymPt.add "QRShape11", "TQRShape"
 with QRShape11
    .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
   BdPaymPt.add "QRShape14", "TQRShape"
 with QRShape14
    .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
   BdPaymPt.add "QRShape16", "TQRShape"
 with QRShape16
    .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
   BdPaymPt.add "QRLabel4", "TQRLabel"
 with QRLabel4
    .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
   BdPaymPt.add "QRLabel5", "TQRLabel"
 with QRLabel5
    .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
   BdPaymPt.add "QRLabel7", "TQRLabel"
 with QRLabel7
    .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
   BdPaymPt.add "QRLabel8", "TQRLabel"
 with QRLabel8
    .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
   BdPaymPt.add "QRLabel9", "TQRLabel"
 with QRLabel9
    .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
   BdPaymPt.add "QRLabel10", "TQRLabel"
 with QRLabel10
    .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
   BdPaymPt.add "QRLabel11", "TQRLabel"
 with QRLabel11
    .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
   BdPaymPt.add "QRLabel12", "TQRLabel"
 with QRLabel12
    .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
   BdPaymPt.add "QRLabel13", "TQRLabel"
 with QRLabel13
    .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
   BdPaymPt.add "QRLabel14", "TQRLabel"
 with QRLabel14
    .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
   BdPaymPt.add "QRLabel15", "TQRLabel"
 with QRLabel15
    .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
   BdPaymPt.add "QRLabel16", "TQRLabel"
 with QRLabel16
    .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
   BdPaymPt.add "QRLabel17", "TQRLabel"
 with QRLabel17
    .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
   BdPaymPt.add "QRLabel18", "TQRLabel"
 with QRLabel18
    .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
   BdPaymPt.add "QRLabel19", "TQRLabel"
 with QRLabel19
    .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
   BdPaymPt.add "QRLabel20", "TQRLabel"
 with QRLabel20
    .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
   BdPaymPt.add "QRLabel21", "TQRLabel"
 with QRLabel21
    .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
   BdPaymPt.add "QRShape17", "TQRShape"
 with QRShape17
    .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
   BdPaymPt.add "QRLabel23", "TQRLabel"
 with QRLabel23
    .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
   BdPaymPt.add "QRLabel24", "TQRLabel"
 with QRLabel24
    .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
   BdPaymPt.add "QRShape19", "TQRShape"
 with QRShape19
    .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
   BdPaymPt.add "QRShape20", "TQRShape"
 with QRShape20
    .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
   BdPaymPt.add "QRLabel25", "TQRLabel"
 with QRLabel25
    .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
   BdPaymPt.add "QRLabel26", "TQRLabel"
 with QRLabel26
    .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
   BdPaymPt.add "QRLabel27", "TQRLabel"
 with QRLabel27
    .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
   BdPaymPt.add "NUMPLTr", "TQRLabel"
 with NUMPLTr
   .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
  BdPaymPt.add  "DatPlTr", "TQRLabel"
 with DatPlTr
   .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
   BdPaymPt.add "OcherOpl", "TQRLabel"
 with OcherOpl
    .Left = 592
    .Top = 497
    .Width = 81
    .Height = 20
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "OcherOpl"
    .Color = "clWhite"
    .Font.Charset = "RUSSIAN_CHARSET"
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   BdPaymPt.add "BikBankPlat", "TQRLabel"
 with BikBankPlat
    .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
   BdPaymPt.add "NMBANKPL", "TQRLabel"
 with NMBANKPL
    .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
   BdPaymPt.add "KorBankPol", "TQRLabel"
 with KorBankPol
    .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
   BdPaymPt.add "KorBankPlat", "TQRLabel"
 with KorBankPlat
    .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
  BdPaymPt.add "BikBankPol", "TQRLabel"
 with BikBankPol
    .Left = 454
    .Top = 380
    .Width = 111
    .Height = 20
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "BikBankPol"
   .Color = "clWhite"
   .Font.Charset = "RUSSIAN_CHARSET"
   .Font.Color = "clWindowText"
   .Font.Height = -13
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
   BdPaymPt.add "NameBankPol", "TQRLabel"
 with NameBankPol
    .Left = 2
    .Top = 382
    .Width = 373
    .Height = 35
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "QRLbank"
    .Color = "clWhite"
    .Font.Charset = "RUSSIAN_CHARSET"
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
  BdPaymPt.add "AccPlat", "TQRLabel"
 with AccPlat
   .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
   BdPaymPt.add "AccPol", "TQRLabel"
 with AccPol
    .Left = 454
    .Top = 437
    .Width = 88
    .Height = 20
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "AccPol"
    .Color = "clWhite"
    .Font.Charset = "RUSSIAN_CHARSET"
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   BdPaymPt.add "NaznPlat", "TQRLabel"
 with NaznPlat
    .Left = 2
    .Top = 573
    .Width = 671
    .Height = 91
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "NaznPlat"
    .Color = "clWhite"
    .Font.Charset = "RUSSIAN_CHARSET"
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   BdPaymPt.add "QRShape21", "TQRShape"
 with QRShape21
    .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
   BdPaymPt.add "QRShape18", "TQRShape"
 with QRShape18
    .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
   BdPaymPt.add "QRShape22", "TQRShape"
 with QRShape22
    .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
   BdPaymPt.add "QRShape23", "TQRShape"
 with QRShape23
    .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
   BdPaymPt.add "QRLabel6", "TQRLabel"
 with QRLabel6
    .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
   BdPaymPt.add "QRShape24", "TQRShape"
 with QRShape24
    .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
   BdPaymPt.add "QRLabel28", "TQRLabel"
 with QRLabel28
    .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 = "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
  BdPaymPt.add  "VidPl", "TQRLabel"
 with VidPl
   .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
   BdPaymPt.add "QRLabel29", "TQRLabel"
 with QRLabel29
    .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
   BdPaymPt.add "INNPlat", "TQRLabel"
 with INNPlat
    .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
   BdPaymPt.add "NamePl", "TQRLabel"
 with NamePl
    .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
   BdPaymPt.add "QRLabel31", "TQRLabel"
 with QRLabel31
    .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
  BdPaymPt.add "INNPol", "TQRLabel"
 with INNPol
    .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
   BdPaymPt.add "NamePol", "TQRLabel"
 with NamePol
    .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
   BdPaymPt.add "SUMMA", "TQRLabel"
 with SUMMA
    .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
   BdPaymPt.add "SUM", "TQRLabel"
 with SUM
    .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
   BdPaymPt.add "QRShape26", "TQRShape"
 with QRShape26
    .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
   BdPaymPt.add "QRLabel32", "TQRLabel"
 with QRLabel32
    .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
   BdPaymPt.add "QRShape27", "TQRShape"
 with QRShape27
    .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
   BdPaymPt.add "QRLabel33", "TQRLabel"
 with QRLabel33
    .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
   BdPaymPt.add "QRShape28", "TQRShape"
 with QRShape28
    .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
   BdPaymPt.add "QRShape29", "TQRShape"
 with QRShape29
    .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
   BdPaymPt.add "QRShape30", "TQRShape"
 with QRShape30
    .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
   BdPaymPt.add "QRShape31", "TQRShape"
 with QRShape31
    .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
   BdPaymPt.add "QRShape32", "TQRShape"
 with QRShape32
    .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
   BdPaymPt.add "QRShape13", "TQRShape"
 with QRShape13
    .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
   BdPaymPt.add "QRLabel22", "TQRLabel"
 with QRLabel22
    .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
   BdPaymPt.add "QRLabel42", "TQRLabel"
 with QRLabel42
    .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
   BdPaymPt.add "QRLabel43", "TQRLabel"
 with QRLabel43
    .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
   BdPaymPt.add "QRLabel44", "TQRLabel"
 with QRLabel44
    .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
   BdPaymPt.add "QRLabel45", "TQRLabel"
 with QRLabel45
    .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

   BdPaymPt.add "DAkc", "TQRLabel"
 with DAkc
    .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
   BdPaymPt.add "OsnAkc", "TQRLabel"
 with OsnAkc
    .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
   BdPaymPt.add "QRShape2", "TQRShape"
 with QRShape2
    .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
   BdPaymPt.add "QRShape3", "TQRShape"
 with QRShape3
    .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
   BdPaymPt.add "QRShape10", "TQRShape"
 with QRShape10
    .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
   BdPaymPt.add "QRShape12", "TQRShape"
 with QRShape12
    .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
   BdPaymPt.add "QRShape1", "TQRShape"
 with QRShape1
    .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
   BdPaymPt.add "QRShape8", "TQRShape"
 with QRShape8
    .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
   BdPaymPt.add "QRShape4", "TQRShape"
 with QRShape4
    .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
   BdPaymPt.add "QRLabel30", "TQRLabel"
 with QRLabel30
    .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


function ON_PREVIEW (inBlb)
Dim temp
  shtamp=inBlb
  set qPlat=self.Controls("qPlat")
  call Init_Components

  '    
  NUMPLTr.Caption=qPlat.fieldbynamestring("NUMPL")
  DatPlTr.Caption=cstr(self.Controls("DAT").value)
  VidPl.Caption=self.Controls("SPOSOBOPLAT").Text
  If(VidPl.Caption="") Then
    VidPl.Caption=""
  End if

  ' 
  OsnAkc.Caption=qplat.fieldbynamestring("OSNOVANAKC")
  temp=qplat.fieldbynamestring("DAYSAKC")
  if temp="0" then
   DAkc.Caption=" "
  else
   DAkc.Caption=qplat.fieldbynamestring("DAYSAKC")
  end if

  
  SUMMA.Caption=self.Controls("SumProp").Text
  SUM.Caption= qPlat.FieldByNameString("SUMMARUB")+"-"+self.Controls("SUMMAKOP").Text

  '
  INNPlat.Caption=qplat.fieldbynamestring("INNPLATEL")
  NamePl.Caption=qplat.fieldbynamestring("NAMEPLATEL")
  AccPlat.Caption=  qplat.fieldbynamestring("SCHETPLATEL")
  
  ' 
  NMBANKPL.Caption=  qplat.fieldbynamestring("NAMEBANKPLATEL")
  BikBankPlat.Caption=  qplat.fieldbynamestring("BIKBANKPLATEL")
  KorBankPlat.Caption=  qplat.fieldbynamestring("KORBANKPLATEL")
  
  ' 
  NameBankPol.Caption=  qplat.fieldbynamestring("NAMEBANKPOLUCH")
  BikBankPol.Caption=  qplat.fieldbynamestring("BIKBANKPOLUCH")
  KorBankPol.Caption=  qplat.fieldbynamestring("KORBANKPOLUCH")
  
  '
  INNPol.Caption=  qplat.fieldbynamestring("INNPOLUCHAT")
  NamePol.Caption=  qplat.fieldbynamestring("NAMEPOLUCHAT")
  AccPol.Caption=  qplat.fieldbynamestring("SHETPOLUCH")

  ' ,   
  OcherOpl.Caption=  qplat.fieldbynamestring("OCHERPLAT")
  NaznPlat.Caption=  qplat.fieldbynamestring("NAZNPLATEZ")

  QR.Previewmodal
  ON_PREVIEW="0"
end function

sub main
call Init_Components
QR.Previewmodal
'ON_PREVIEW="0"
end sub

