'  - 
sub Init_PlatOrdView
with PlatOrdView
 .Left = 151
 .Top = 13
 .Width = 833
 .Height = 725
 .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
 PlatOrdView.add "QR", "TQuickRep"
 with QR
  .Left = -8
  .Top = 0
  .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 "DetailBand1", "TQRBand"

 with DetailBand1
   .Left = 76
   .Top = 38
   .Width = 681
   .Height = 1003
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .AlignToBottom = False
   .Color = "clWindow"
   .ForceNewColumn = False
   .ForceNewPage = False
   .BandType = "rbDetail"
   DetailBand1.add "QRLabel2", "TQRLabel"
 with QRLabel2
    .Left = 0
    .Top = 43
    .Width = 181
    .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
   DetailBand1.add "QRLabel3", "TQRLabel"
 with QRLabel3
    .Left = 2
    .Top = 77
    .Width = 40
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with

   DetailBand1.add "QRLabel4", "TQRLabel"
 with QRLabel4
    .Left = 2
    .Top = 93
    .Width = 58
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape3", "TQRShape"
 with QRShape3
    .Left = 0
    .Top = 113
    .Width = 680
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape4", "TQRShape"
 with QRShape4
    .Left = 76
    .Top = 75
    .Width = 2
    .Height = 38
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRLabel5", "TQRLabel"
 with QRLabel5
    .Left = 2
    .Top = 115
    .Width = 28
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape5", "TQRShape"
 with QRShape5
    .Left = 0
    .Top = 189
    .Width = 435
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape6", "TQRShape"
 with QRShape6
    .Left = 378
    .Top = 113
    .Width = 1
    .Height = 323
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRLabel6", "TQRLabel"
 with QRLabel6
    .Left = 2
    .Top = 171
    .Width = 72
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape7", "TQRShape"
 with QRShape7
    .Left = 435
    .Top = 113
    .Width = 1
    .Height = 323
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape8", "TQRShape"
 with QRShape8
    .Left = 378
    .Top = 151
    .Width = 302
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRLabel7", "TQRLabel"
 with QRLabel7
    .Left = 382
    .Top = 116
    .Width = 40
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel8", "TQRLabel"
 with QRLabel8
    .Left = 382
    .Top = 155
    .Width = 32
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape9", "TQRShape"
 with QRShape9
    .Left = 0
    .Top = 302
    .Width = 435
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape10", "TQRShape"
 with QRShape10
    .Left = 0
    .Top = 434
    .Width = 680
    .Height = 2
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRLabel9", "TQRLabel"
 with QRLabel9
    .Left = 382
    .Top = 210
    .Width = 32
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel10", "TQRLabel"

 with QRLabel10
    .Left = 382
    .Top = 268
    .Width = 32
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel11", "TQRLabel"
 with QRLabel11
    .Left = 382
    .Top = 305
    .Width = 32
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel12", "TQRLabel"
 with QRLabel12
    .Left = 382
    .Top = 192
    .Width = 25
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel13", "TQRLabel"
 with QRLabel13
    .Left = 382
    .Top = 249
    .Width = 25
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel15", "TQRLabel"
 with QRLabel15
    .Left = 514
    .Top = 457
    .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
   DetailBand1.add "QRLabel17", "TQRLabel"
 with QRLabel17
    .Left = 2
    .Top = 458
    .Width = 125
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel18", "TQRLabel"
 with QRLabel18
    .Left = 2
    .Top = 360
    .Width = 68
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel19", "TQRLabel"
 with QRLabel19
    .Left = 2
    .Top = 305
    .Width = 28
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel20", "TQRLabel"
 with QRLabel20
    .Left = 2
    .Top = 226
    .Width = 108
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel21", "TQRLabel"
 with QRLabel21
    .Left = 2
    .Top = 282
    .Width = 97
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel22", "TQRLabel"
 with QRLabel22
    .Left = 382
    .Top = 343
    .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
   DetailBand1.add "QRLabel23", "TQRLabel"
 with QRLabel23
    .Left = 382
    .Top = 362
    .Width = 45
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ".."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel24", "TQRLabel"
 with QRLabel24
    .Left = 382
    .Top = 381
    .Width = 22
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel26", "TQRLabel"
 with QRLabel26
    .Left = 514
    .Top = 344
    .Width = 66
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ".."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel27", "TQRLabel"
 with QRLabel27
    .Left = 514
    .Top = 379
    .Width = 59
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ". "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel29", "TQRLabel"
 with QRLabel29
    .Left = 393
    .Top = 59
    .Width = 27
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -11
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel30", "TQRLabel"
 with QRLabel30
    .Left = 529
    .Top = 59
    .Width = 67
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -11
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape14", "TQRShape"
 with QRShape14
    .Left = 340
    .Top = 58
    .Width = 132
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Frame.Width = 0
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape13", "TQRShape"
 with QRShape13
    .Left = 500
    .Top = 57
    .Width = 132
    .Height = 2
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape17", "TQRShape"
 with QRShape17
    .Left = 378
    .Top = 341
    .Width = 302
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape18", "TQRShape"
 with QRShape18
    .Left = 378
    .Top = 360
    .Width = 57
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape19", "TQRShape"
 with QRShape19
    .Left = 378
    .Top = 379
    .Width = 57
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape20", "TQRShape"
 with QRShape20
    .Left = 510
    .Top = 369
    .Width = 76
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape22", "TQRShape"
 with QRShape22
    .Left = 510
    .Top = 341
    .Width = 1
    .Height = 56
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape23", "TQRShape"
 with QRShape23
    .Left = 586
    .Top = 342
    .Width = 1
    .Height = 56
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape24", "TQRShape"
 with QRShape24
    .Left = 378
    .Top = 208
    .Width = 57
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape26", "TQRShape"
 with QRShape26
    .Left = 378
    .Top = 265
    .Width = 57
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRL", "TQRLabel"
 with QRL
    .Left = 454
    .Top = 343
    .Width = 8
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "1"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape2", "TQRShape"
 with QRShape2
    .Left = 0
    .Top = 245
    .Width = 680
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape27", "TQRShape"
 with QRShape27
    .Left = 0
    .Top = 132
    .Width = 378
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape28", "TQRShape"
 with QRShape28
    .Left = 189
    .Top = 114
    .Width = 1
    .Height = 18
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRLabel32", "TQRLabel"
 with QRLabel32
    .Left = 194
    .Top = 115
    .Width = 26
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape29", "TQRShape"
 with QRShape29
    .Left = 0
    .Top = 453
    .Width = 680
    .Height = 2
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape31", "TQRShape"
 with QRShape31
    .Left = 189
    .Top = 303
    .Width = 1
    .Height = 19
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRLabel34", "TQRLabel"
 with QRLabel34
    .Left = 193
    .Top = 304
    .Width = 26
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape32", "TQRShape"

 with QRShape32
    .Left = 170
    .Top = 435
    .Width = 1
    .Height = 19
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape33", "TQRShape"
 with QRShape33
    .Left = 283
    .Top = 435
    .Width = 1
    .Height = 19
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape34", "TQRShape"
 with QRShape34
    .Left = 321
    .Top = 435
    .Width = 1
    .Height = 19
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape35", "TQRShape"
 with QRShape35
    .Left = 416
    .Top = 435
    .Width = 1
    .Height = 19
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape36", "TQRShape"
 with QRShape36
    .Left = 548
    .Top = 435
    .Width = 1
    .Height = 19
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape37", "TQRShape"
 with QRShape37
    .Left = 643
    .Top = 435
    .Width = 4
    .Height = 19
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape38", "TQRShape"
 with QRShape38
    .Left = 654
    .Top = 33
    .Width = 26
    .Height = 26
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsRectangle"
    end with
   DetailBand1.add "QRShape12", "TQRShape"
 with QRShape12
    .Left = 614
    .Top = 0
    .Width = 67
    .Height = 21
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Brush.Style = "bsClear"
    .Shape = "qrsRectangle"
    end with
   DetailBand1.add "QRLabel28", "TQRLabel"
 with QRLabel28
    .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 = "0401066"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape30", "TQRShape"
 with QRShape30
    .Left = 0
    .Top = 322
    .Width = 378
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "VidPlview", "TQRLabel"
 with VidPlview
    .Left = 502
    .Top = 38
    .Width = 128
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "Vidopl"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "SUMMAPRview", "TQRLabel"
 with SUMMAPRview
    .Left = 80
    .Top = 78
    .Width = 597
    .Height = 32
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "SUMMAPR"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -15
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "INNPlatview", "TQRLabel"
 with INNPlatview
    .Left = 36
    .Top = 115
    .Width = 43
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "INNPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "NamePlview", "TQRLabel"
 with NamePlview
    .Left = 4
    .Top = 135
    .Width = 372
    .Height = 33
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "NamePl"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "BikBankPlatview", "TQRLabel"
 with BikBankPlatview
    .Left = 454
    .Top = 191
    .Width = 73
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "BikBankPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "KorBankPlatview", "TQRLabel"
 with KorBankPlatview
    .Left = 454
    .Top = 209
    .Width = 74
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "KorBankPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "KorBankPolview", "TQRLabel"
 with KorBankPolview
    .Left = 455
    .Top = 270
    .Width = 70
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "KorBankPol"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "AccPolview", "TQRLabel"
 with AccPolview
    .Left = 456
    .Top = 305
    .Width = 43
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "AccPol"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "OcherOplview", "TQRLabel"
 with OcherOplview
    .Left = 591
    .Top = 361
    .Width = 56
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "OcherOpl"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "NameBankPlview", "TQRLabel"
 with NameBankPlview
    .Left = 2
    .Top = 191
    .Width = 375
    .Height = 32
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "NameBankPl"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "NameBankPolview", "TQRLabel"
 with NameBankPolview
    .Left = 3
    .Top = 249
    .Width = 375
    .Height = 32
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "QRLbank"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "NamePolview", "TQRLabel"
 with NamePolview
    .Left = 3
    .Top = 326
    .Width = 374
    .Height = 35
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "NamePol"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "NaznPlatview", "TQRLabel"
 with NaznPlatview
    .Left = 3
    .Top = 476
    .Width = 429
    .Height = 147
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "NaznPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "KBKview", "TQRLabel"
 with KBKview
    .Left = 3
    .Top = 437
    .Width = 166
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "OKATOview", "TQRLabel"

 with OKATOview
    .Left = 173
    .Top = 437
    .Width = 108
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OKATO"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "OSNview", "TQRLabel"
 with OSNview
    .Left = 286
    .Top = 437
    .Width = 33
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "NALPERview", "TQRLabel"
 with NALPERview
    .Left = 324
    .Top = 437
    .Width = 90
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "NOMERDOCview", "TQRLabel"
 with NOMERDOCview
    .Left = 419
    .Top = 437
    .Width = 126
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "EDATEDOCview", "TQRLabel"
 with EDATEDOCview
    .Left = 551
    .Top = 437
    .Width = 89
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "typeNameview", "TQRLabel"
 with typeNameview
    .Left = 648
    .Top = 437
    .Width = 33
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "STATNALview", "TQRLabel"
 with STATNALview
    .Left = 657
    .Top = 38
    .Width = 21
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "STATNAL"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "KPPPLATELview", "TQRLabel"
 with KPPPLATELview
    .Left = 224
    .Top = 115
    .Width = 150
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "KPPPOLUCHview", "TQRLabel"
 with KPPPOLUCHview
    .Left = 224
    .Top = 305
    .Width = 150
    .Height = 16
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
'   DetailBand1.add "QRShape25", "TQRShape"
' with QRShape25
'    .Left = 212
'    .Top = 19
'    .Width = 132
'    .Height = 1
'    .Frame.Color = "clBlack"
'    .Frame.DrawTop = False
'    .Frame.DrawBottom = False
'    .Frame.DrawLeft = False
'    .Frame.DrawRight = False
'    .Shape = "qrsHorLine"
'    end with
   DetailBand1.add "QRShape1", "TQRShape"
 with QRShape1
    .Left = 378
    .Top = 397
    .Width = 302
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape45", "TQRShape"
 with QRShape45
    .Left = 0
    .Top = 379
    .Width = 378
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape46", "TQRShape"
 with QRShape46
    .Left = 0
    .Top = 416
    .Width = 378
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRLabel1", "TQRLabel"
 with QRLabel1
    .Left = 2
    .Top = 418
    .Width = 134
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape47", "TQRShape"
 with QRShape47
    .Left = 75
    .Top = 379
    .Width = 1
    .Height = 38
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape48", "TQRShape"
 with QRShape48
    .Left = 170
    .Top = 379
    .Width = 1
    .Height = 38
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape49", "TQRShape"
 with QRShape49
    .Left = 265
    .Top = 379
    .Width = 1
    .Height = 38
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRLabel31", "TQRLabel"
 with QRLabel31
    .Left = 3
    .Top = 381
    .Width = 70
    .Height = 18
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = " . ."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel42", "TQRLabel"
 with QRLabel42
    .Left = 77
    .Top = 382
    .Width = 91
    .Height = 18
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = " .."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel43", "TQRLabel"
 with QRLabel43
    .Left = 172
    .Top = 382
    .Width = 91
    .Height = 18
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = " . ."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel44", "TQRLabel"
 with QRLabel44
    .Left = 268
    .Top = 382
    .Width = 107
    .Height = 18
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = " . ."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape50", "TQRShape"
 with QRShape50
    .Left = 435
    .Top = 454
    .Width = 1
    .Height = 171
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "Image", "TQRImage"
 with Image
    .Left = 472
    .Top = 478
    .Width = 174
    .Height = 163
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Stretch = True
    end with
   DetailBand1.add "Dat", "TQRLabel"
 with Dat
    .Left = 503
    .Top = 539
    .Width = 91
    .Height = 20
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "06  2003"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = 10440704
    .Font.Height = -15
    .Font.Name = "Arial"
    .Font.Style = "fsBold"
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "Pole38view", "TQRLabel"
 with Pole38view
    .Left = 3
    .Top = 398
    .Width = 70
    .Height = 18
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "Pole38"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "Pole39view", "TQRLabel"
 with Pole39view
    .Left = 77
    .Top = 398
    .Width = 91
    .Height = 18
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "Pole39"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "Pole40view", "TQRLabel"
 with Pole40view
    .Left = 172
    .Top = 398
    .Width = 91
    .Height = 18
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "Pole40"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "Pole41view", "TQRLabel"
 with Pole41view
    .Left = 268
    .Top = 398
    .Width = 107
    .Height = 18
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "Pole41"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel14", "TQRLabel"
 with QRLabel14
    .Left = 382
    .Top = 400
    .Width = 51
    .Height = 32
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = " . ."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "Pole42view", "TQRLabel"
 with Pole42view
    .Left = 439
    .Top = 400
    .Width = 238
    .Height = 32
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "Pole42"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "Pole70view", "TQRLabel"
 with Pole70view
    .Left = 139
    .Top = 418
    .Width = 235
    .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 = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   end with
  QR.add "NUMPLview", "TQRLabel"
 with NUMPLview
   .Left = 263
   .Top = 81
   .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 = "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
  QR.add "DatPlview", "TQRLabel"

 with DatPlview
   .Left = 381
'   .Left = 421
   .Top = 76
   .Width = 120
   .Height = 17
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .Alignment = "taCenter"
   .AlignToBand = False
   .AutoSize = False
   .AutoStretch = False
   .Caption = "DatPl"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -13
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  QR.add "SUMMview", "TQRLabel"
 with SUMMview
   .Left = 491
'   .Left = 525
   .Top = 155
   .Width = 41
   .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 = "SUMM"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -13
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  QR.add "AccPlatview", "TQRLabel"
 with AccPlatview
   .Left = 491
'   .Left = 529
   .Top = 193
   .Width = 47
   .Height = 17
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "AccPlat"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -13
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  QR.add "BikBankPolview", "TQRLabel"
 with BikBankPolview
   .Left = 492
'   .Left = 530
   .Top = 287
   .Width = 69
   .Height = 17
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "BikBankPol"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -13
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  QR.add "INNPolview", "TQRLabel"
 with INNPolview
   .Left = 110
   .Top = 343
   .Width = 40
   .Height = 16
   .Frame.Color = "clBlack"
   .Frame.DrawTop = False
   .Frame.DrawBottom = False
   .Frame.DrawLeft = False
   .Frame.DrawRight = False
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "INNPol"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  end with
 end with
end sub


sub mainPlatOrdView
'call Init_Components

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

  shtamp=inBlb

'  call Init_InkPorView

  set qPOV=Self.Controls("IBQuery1")


  '
  NUMPLview.Caption = qPOV.FieldByNameString("PDOCNUM")
  '
  DATPLview.Caption = qPOV.FieldByNameString("PDOCDATE")
  ' 
  VIDPLview.Caption = qPOV.FieldByNameString("PAYKIND")

  ' 
  SUMMAPRview.Caption = qPOV.FieldByNameString("SUM")

  '
  INNPLATview.Caption = qPOV.FieldByNameString("PAYERINN")
  '
  KPPPLATELview.Caption = qPOV.FieldByNameString("KPPPLATEL")
  '
  SUMMview.Caption = qPOV.FieldByNameString("SUM")

  '
  ' 
  NAMEPLview.Caption = qPOV.FieldByNameString("PAYERNAME")
  ' 
  ACCPLATview.Caption = qPOV.FieldByNameString("PAYERACC")

  ' 
  '  
  NAMEBANKPLview.Caption = qPOV.FieldByNameString("PAYERNAME")
  '
  BIKBANKPLATview.Caption = qPOV.FieldByNameString("PAYERBIC")
  ' 
  KORBANKPLATview.Caption = qPOV.FieldByNameString("PAYERCORACC")

  ' 
  '  
  NAMEBANKPOLview.Caption = qPOV.FieldByNameString("RECEIVERBANKNAME")
  '
  BIKBANKPOLview.Caption = qPOV.FieldByNameString("RECIPIENTBIC")
  ' 
  KORBANKPOLview.Caption = qPOV.FieldByNameString("RECEIVERCORACC")

  '
  INNPOLview.Caption = qPOV.FieldByNameString("RECIPIENTINN")
  '
  KPPPOLUCHview.Caption = qPOV.FieldByNameString("KPPPOLUCH")
  '
  ACCPOLview.Caption = qPOV.FieldByNameString("RECIPIENTACC")

  '
  ' 
  NAMEPOLview.Caption = qPOV.FieldByNameString("RECEIVERNAME")
  ' 
  QRL.Caption = "1"
  ' 
  OCHEROPLview.Caption = qPOV.FieldByNameString("PAYQUEUE")
  ' 
  NAZNPLATview.Caption = qPOV.FieldByNameString("GROUND")

  ' 
  '     

  KBKview.Caption = qPOV.FieldByNameString("KBK")
  OKATOview.Caption = qPOV.FieldByNameString("OKATO")
  OSNview.Caption = qPOV.FieldByNameString("NALOSNOVAN")
  NALPERview.Caption = qPOV.FieldByNameString("NALPER")
  NOMERDOCview.Caption = qPOV.FieldByNameString("NOMNALDOC")
  EDATEDOCview.Caption = qPOV.FieldByNameString("DATNALDOC")
  TYPENAMEview.Caption = qPOV.FieldByNameString("TPNALPLAT")

  '  
  ' .
  POLE38view.Caption = qPOV.FieldByNameString("PARTPAYNUM")
  ' ..
  POLE39view.Caption = qPOV.FieldByNameString("PARTPAYCODE")
  ' . .
  POLE40view.Caption = qPOV.FieldByNameString("PARTPLATDOCNUM")
  ' . .
  POLE41view.Caption = qPOV.FieldByNameString("PARTPLATDOCDATE")

  'Pole70    
  POLE70view.Caption = " "

end sub

'   execute  .  
if(isEmpty(PlatOrdView)) then
 self.Add "PlatOrdView","TForm"
 call Init_PlatOrdView
end if
call mainPlatOrdView()

QR.PreViewModal

