Dim qPlat
Dim shtamp
Dim FS 
Dim Dictionary

function CreateDictBySTATUSSIGN (stsign)
Set Dictionary = CreateObject("Scripting.Dictionary")
 if(stsign="") then
   CreateDictBySTATUSSIGN=0
   exit function
 end if
  CreateDictBySTATUSSIGN=1
  temp=Replace(stsign,chr(1),"")
  ' 
  d=InStr(temp,vbtab)
  Dim name,value,ind
  while(d>0)
    s=Mid(temp,1,d-1)
    ind=InStr(s,"=")
    name=Mid(s,1,ind-1)
    value=Mid(s,ind+1)
    Dictionary.Add name,value
    temp=Mid(temp,d+1)
    d=InStr(temp,vbtab)
  Wend
  '   
  if(temp<>"") Then
    ind=InStr(temp,"="):name=Mid(temp,1,ind-1)
	value=Mid(temp,ind+1)
	Dictionary.Add name,value
  end if
end function

sub Init_Components
with AutoForm
'with self
 .Left = 135
 .Top = -13
 .Width = 815
 .Height = 725
 .VertScrollBar.Position = 238
 .BorderIcons = "biSystemMenu, biMaximize"
 .Caption = " "
 .Color = "clBtnFace"
 .Font.Charset = 204
 .Font.Color = "clWindowText"
 .Font.Height = -11
 .Font.Name = "MS Sans Serif"
 .Font.Style = ""
 .OldCreateOrder = False
 .Scaled = False
 .PixelsPerInch = 96
 Autoform.add "QR", "TQuickRep"
'  self.add "QR", "TQuickRep"
 with QR
  .Left = -8
  .Top = -238
  .Width = 794
  .Height = 1123
  .Font.Charset = 204
  .Font.Color = "clWindowText"
  .Font.Height = -13
  .Font.Name = "Arial"
  .Font.Style = ""
  .Options = "FirstPageHeader, LastPageFooter"
  .Page.Columns = 1
  .Page.Orientation = "poPortrait"
  .Page.PaperSize = "A4"
  .PrinterSettings.Copies = 1
  .PrinterSettings.Duplex = False
  .PrinterSettings.FirstPage = 0
  .PrinterSettings.LastPage = 0
  .PrinterSettings.OutputBin = "Auto"
  .PrintIfEmpty = True
  .SnapToGrid = True
  .Units = "MM"
  .Zoom = 100
  QR.add "DetailBand1", "TQRBand"
 with DetailBand1
   .Left = 76
   .Top = 38
   .Width = 681
   .Height = 775
   .AlignToBottom = False
   .Color = "clWindow"
   .ForceNewColumn = False
   .ForceNewPage = False
   .BandType = "rbDetail"
   DetailBand1.add "QRLabel2", "TQRLabel"
 with QRLabel2
    .Left = 0
    .Top = 65
    .Width = 219
    .Height = 19
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "  "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -15
    .Font.Name = "Arial"
    .Font.Style = "fsBold"
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel3", "TQRLabel"
 with QRLabel3
    .Left = 2
    .Top = 98
    .Width = 40
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel4", "TQRLabel"
 with QRLabel4
    .Left = 2
    .Top = 114
    .Width = 58
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape3", "TQRShape"
 with QRShape3
    .Left = 0
    .Top = 151
    .Width = 680
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape4", "TQRShape"
 with QRShape4
    .Left = 76
    .Top = 94
    .Width = 2
    .Height = 57
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRLabel5", "TQRLabel"
 with QRLabel5
    .Left = 2
    .Top = 153
    .Width = 28
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape5", "TQRShape"
 with QRShape5
    .Left = 0
    .Top = 265
    .Width = 435
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape6", "TQRShape"
 with QRShape6
    .Left = 378
    .Top = 151
    .Width = 1
    .Height = 341
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRLabel6", "TQRLabel"
 with QRLabel6
    .Left = 2
    .Top = 247
    .Width = 72
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape7", "TQRShape"
 with QRShape7
    .Left = 435
    .Top = 151
    .Width = 1
    .Height = 341
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape8", "TQRShape"
 with QRShape8
    .Left = 378
    .Top = 208
    .Width = 302
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRLabel7", "TQRLabel"
 with QRLabel7
    .Left = 382
    .Top = 154
    .Width = 40
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel8", "TQRLabel"
 with QRLabel8
    .Left = 382
    .Top = 211
    .Width = 32
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape9", "TQRShape"
 with QRShape9
    .Left = 0
    .Top = 378
    .Width = 435
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape10", "TQRShape"
 with QRShape10
    .Left = 0
    .Top = 491
    .Width = 680
    .Height = 2
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRLabel9", "TQRLabel"
 with QRLabel9
    .Left = 382
    .Top = 286
    .Width = 32
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel10", "TQRLabel"
 with QRLabel10
    .Left = 382
    .Top = 343
    .Width = 32
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel11", "TQRLabel"
 with QRLabel11
    .Left = 382
    .Top = 380
    .Width = 32
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel12", "TQRLabel"
 with QRLabel12
    .Left = 382
    .Top = 267
    .Width = 25
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel13", "TQRLabel"
 with QRLabel13
    .Left = 382
    .Top = 324
    .Width = 25
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape11", "TQRShape"
 with QRShape11
    .Left = 0
    .Top = 622
    .Width = 680
    .Height = 2
     .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRLabel14", "TQRLabel"
 with QRLabel14
    .Left = 268
    .Top = 626
    .Width = 53
    .Height = 17
  .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel15", "TQRLabel"
 with QRLabel15
    .Left = 532
    .Top = 626
    .Width = 88
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel16", "TQRLabel"
 with QRLabel16
    .Left = 121
    .Top = 679
    .Width = 29
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ".."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel17", "TQRLabel"
 with QRLabel17
    .Left = 2
    .Top = 605
    .Width = 125
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel18", "TQRLabel"
 with QRLabel18
    .Left = 2
    .Top = 474
    .Width = 68
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel19", "TQRLabel"
 with QRLabel19
    .Left = 2
    .Top = 380
    .Width = 28
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel20", "TQRLabel"
 with QRLabel20
    .Left = 2
    .Top = 304
    .Width = 108
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel21", "TQRLabel"
 with QRLabel21
    .Left = 2
    .Top = 360
    .Width = 97
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel22", "TQRLabel"
 with QRLabel22
    .Left = 382
    .Top = 438
    .Width = 47
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " ."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel23", "TQRLabel"
 with QRLabel23
    .Left = 382
    .Top = 457
    .Width = 45
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ".."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel24", "TQRLabel"
 with QRLabel24
    .Left = 382
    .Top = 473
    .Width = 22
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -10
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel25", "TQRLabel"
 with QRLabel25
    .Left = 514
    .Top = 438
    .Width = 64
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " ."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel26", "TQRLabel"
 with QRLabel26
    .Left = 514
    .Top = 456
    .Width = 66
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ".."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel27", "TQRLabel"
 with QRLabel27
    .Left = 514
    .Top = 474
    .Width = 59
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ". "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel29", "TQRLabel"
 with QRLabel29
    .Left = 393
    .Top = 82
    .Width = 27
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -11
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLabel30", "TQRLabel"
 with QRLabel30
    .Left = 529
    .Top = 82
    .Width = 67
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = " "
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -11
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape14", "TQRShape"
 with QRShape14
    .Left = 340
    .Top = 81
    .Width = 132
    .Height = 1
    .Frame.Width = 0
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape13", "TQRShape"
 with QRShape13
    .Left = 500
    .Top = 80
    .Width = 132
    .Height = 2
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape15", "TQRShape"
 with QRShape15
    .Left = 189
    .Top = 680
    .Width = 227
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape16", "TQRShape"
 with QRShape16
    .Left = 189
    .Top = 737
    .Width = 227
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape17", "TQRShape"
 with QRShape17
    .Left = 378
    .Top = 436
    .Width = 302
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape18", "TQRShape"
 with QRShape18
    .Left = 378
    .Top = 455
    .Width = 57
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape19", "TQRShape"
 with QRShape19
    .Left = 378
    .Top = 474
    .Width = 57
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape20", "TQRShape"
 with QRShape20
    .Left = 510
    .Top = 474
    .Width = 76
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape21", "TQRShape"
 with QRShape21
    .Left = 510
    .Top = 455
    .Width = 76
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape22", "TQRShape"
 with QRShape22
    .Left = 510
    .Top = 436
    .Width = 1
    .Height = 56
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape23", "TQRShape"
 with QRShape23
    .Left = 586
    .Top = 436
    .Width = 1
    .Height = 56
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape24", "TQRShape"
 with QRShape24
    .Left = 378
    .Top = 283
    .Width = 57
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape26", "TQRShape"
 with QRShape26
    .Left = 378
    .Top = 340
    .Width = 57
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRL", "TQRLabel"
 with QRL
    .Left = 454
    .Top = 438
    .Width = 8
    .Height = 17
    .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 = 321
    .Width = 680
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape25", "TQRShape"
 with QRShape25
    .Left = 212
    .Top = 19
    .Width = 132
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRLabel31", "TQRLabel"
 with QRLabel31
    .Left = 224
    .Top = 21
    .Width = 107
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "  . ."
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -11
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape27", "TQRShape"
 with QRShape27
    .Left = 0
    .Top = 170
    .Width = 378
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape28", "TQRShape"
 with QRShape28
    .Left = 189
    .Top = 152
    .Width = 1
    .Height = 18
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRLabel32", "TQRLabel"
 with QRLabel32
    .Left = 194
    .Top = 153
    .Width = 26
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape29", "TQRShape"
 with QRShape29
    .Left = 0
    .Top = 511
    .Width = 680
    .Height = 2
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "QRShape31", "TQRShape"
 with QRShape31
    .Left = 189
    .Top = 378
    .Width = 1
    .Height = 19
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRLabel34", "TQRLabel"
 with QRLabel34
    .Left = 193
    .Top = 380
    .Width = 26
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape32", "TQRShape"
 with QRShape32
    .Left = 170
    .Top = 492
    .Width = 1
    .Height = 20
'    .Height = 19
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape33", "TQRShape"
 with QRShape33
    .Left = 283
    .Top = 492
    .Width = 1
    .Height = 20
'    .Height = 19
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape34", "TQRShape"
 with QRShape34
    .Left = 321
    .Top = 492
    .Width = 1
    .Height = 20
'    .Height = 19
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape35", "TQRShape"
 with QRShape35
    .Left = 416
    .Top = 492
    .Width = 1
    .Height = 20
'    .Height = 19
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape36", "TQRShape"
 with QRShape36
    .Left = 548
    .Top = 492
    .Width = 1
    .Height = 20
'    .Height = 19
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape37", "TQRShape"
 with QRShape37
    .Left = 643
    .Top = 492
    .Width = 4
    .Height = 20
'    .Height = 19
    .Shape = "qrsVertLine"
    end with
   DetailBand1.add "QRShape38", "TQRShape"
 with QRShape38
    .Left = 654
    .Top = 56
    .Width = 26
    .Height = 26
    .Shape = "qrsRectangle"
    end with
   DetailBand1.add "QRShape12", "TQRShape"
 with QRShape12
    .Left = 614
    .Top = 0
    .Width = 67
    .Height = 21
    .Brush.Style = "bsClear"
    .Shape = "qrsRectangle"
    end with
   DetailBand1.add "QRLabel28", "TQRLabel"
 with QRLabel28
    .Left = 616
    .Top = 2
    .Width = 63
    .Height = 17
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "0401060"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRShape30", "TQRShape"
 with QRShape30
    .Left = 0
    .Top = 397
    .Width = 378
    .Height = 1
    .Shape = "qrsHorLine"
    end with
   DetailBand1.add "VidPl", "TQRLabel"
 with VidPl
    .Left = 502
    .Top = 60
    .Width = 128
    .Height = 17
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "Vidopl"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRL6", "TQRLabel"
 with QRL6
    .Left = 80
    .Top = 100
    .Width = 597
    .Height = 45
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "QRL6"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -15
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "INNPlat", "TQRLabel"
 with INNPlat
    .Left = 36
    .Top = 153
    .Width = 43
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "INNPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "NamePl", "TQRLabel"
 with NamePl
    .Left = 4
    .Top = 173
    .Width = 372
    .Height = 71
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "NamePl"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "BikBankPlat", "TQRLabel"
 with BikBankPlat
    .Left = 454
    .Top = 266
    .Width = 73
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "BikBankPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "KorBankPlat", "TQRLabel"
 with KorBankPlat
    .Left = 454
    .Top = 285
    .Width = 74
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "KorBankPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "KorBankPol", "TQRLabel"
 with KorBankPol
    .Left = 455
    .Top = 346
    .Width = 70
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "KorBankPol"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "AccPol", "TQRLabel"
 with AccPol
    .Left = 456
    .Top = 380
    .Width = 43
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "AccPol"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "OcherOpl", "TQRLabel"
 with OcherOpl
    .Left = 591
    .Top = 456
    .Width = 56
    .Height = 17
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "OcherOpl"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "QRLbank", "TQRLabel"
 with QRLbank
    .Left = 2
    .Top = 269
    .Width = 375
    .Height = 32
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "QRLbank"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "NameBankPol", "TQRLabel"
 with NameBankPol
    .Left = 3
    .Top = 326
    .Width = 375
    .Height = 32
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "QRLbank"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "NamePol", "TQRLabel"
 with NamePol
    .Left = 3
    .Top = 400
    .Width = 374
    .Height = 72
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "NamePol"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "NaznPlat", "TQRLabel"
 with NaznPlat
    .Left = 3
    .Top = 515
'    .Top = 514
    .Width = 674
    .Height = 85
'    .Height = 86
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "NaznPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "KBK", "TQRLabel"
 with KBK
    .Left = 3
    .Top = 494
    .Width = 166
'    .Height = 13
    .Height = 16
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -8
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "OKATO", "TQRLabel"
 with OKATO
    .Left = 173
    .Top = 494
    .Width = 108
'    .Height = 13
    .Height = 16
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OKATO"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -10
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "OSN", "TQRLabel"
 with OSN
    .Left = 286
    .Top = 494
    .Width = 33
'    .Height = 13
    .Height = 16
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -10
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "NALPER", "TQRLabel"
 with NALPER
    .Left = 324
    .Top = 494
    .Width = 90
'    .Height = 13
    .Height = 16
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -10
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "NOMERDOC", "TQRLabel"
 with NOMERDOC
    .Left = 419
    .Top = 494
    .Width = 126
'    .Height = 13
    .Height = 16
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -10
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "EDATEDOC", "TQRLabel"
 with EDATEDOC
    .Left = 551
    .Top = 494
    .Width = 89
'    .Height = 13
    .Height = 16
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -10
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "typeName", "TQRLabel"
 with typeName
    .Left = 648
    .Top = 494
    .Width = 33
'    .Height = 13
    .Height = 16
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "OSN"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
'    .Font.Height = -10
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "STATNAL", "TQRLabel"
 with STATNAL
    .Left = 657
    .Top = 61
    .Width = 21
    .Height = 17
    .Alignment = "taCenter"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "STATNAL"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "KPPPLATEL", "TQRLabel"
 with KPPPLATEL
    .Left = 224
    .Top = 153
    .Width = 150
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   DetailBand1.add "KPPPOLUCH", "TQRLabel"
 with KPPPOLUCH
    .Left = 224
    .Top = 379
    .Width = 150
    .Height = 16
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = ""
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   end with
  QR.add "QRLabel1", "TQRLabel"
 with QRLabel1
   .Left = 88
   .Top = 58
   .Width = 107
   .Height = 17
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = ".   ."
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  QR.add "QRShape1", "TQRShape"
 with QRShape1
   .Left = 76
   .Top = 57
   .Width = 132
   .Height = 1
   .Shape = "qrsHorLine"
   end with
  QR.add "NUMPL", "TQRLabel"
 with NUMPL
   .Left = 265
   .Top = 104
   .Width = 8
   .Height = 17
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "7"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -13
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  QR.add "DatPl", "TQRLabel"
 with DatPl
   .Left = 388
   .Top = 101
   .Width = 120
   .Height = 17
   .Alignment = "taCenter"
   .AlignToBand = False
   .AutoSize = False
   .AutoStretch = False
   .Caption = "DatPl"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -13
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  QR.add "Label", "TQRLabel"
 with Label
   .Left = 490
   .Top = 193
   .Width = 32
   .Height = 17
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "Label"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -13
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  QR.add "AccPlat", "TQRLabel"
 with AccPlat
   .Left = 490
   .Top = 251
   .Width = 47
   .Height = 17
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "AccPlat"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -13
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  QR.add "BikBankPol", "TQRLabel"
 with BikBankPol
   .Left = 490
   .Top = 362
   .Width = 69
   .Height = 17
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "BikBankPol"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -13
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  QR.add "INNPol", "TQRLabel"
 with INNPol
   .Left = 110
   .Top = 417
   .Width = 40
   .Height = 16
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = True
   .AutoStretch = False
   .Caption = "INNPol"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
   '  
 if shtamp<>"" then
  QR.add "Image", "TQRImage"
 with Image
   .Left = 567
   .Top = 688
   .Width = 174
   .Height = 163
   .Stretch = True
   set FS=CreateObject("Scripting.FileSystemObject")
   tt=FS.GetFolder("pictures")
   set FS=nothing
   tt=tt&"\shtamp.bmp"
   .picture.loadfromfile (tt) '   
   end with
  CreateDictBySTATUSSIGN (shtamp)
  QR.add "Dat", "TQRLabel"
 with Dat
   .Left = 620
   .Top = 737
   .Width = 120
   .Height = 20
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = false
   .AutoStretch = False
   .Caption = cstr(Dictionary("ABSDAT"))
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clBlack"
   .Font.Height = -15
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  QR.add "Famil", "TQRLabel"
'  .Caption = qPlat.fieldbynamestring("Dat") & vbcrlf & t & vbcrlf & "  :" & vbcrlf & t1
 with Famil
   .Left = 618
   .Top = 783
   .Width = 140
   .Height = 20
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = false
   .AutoStretch = False
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clBlack"'10440704
   .Font.Height = -15
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   .Caption=cstr(Dictionary("FIO"))
   end with

  QR.add "NumAbs", "TQRLabel"

 with NumAbs
   .Left = 628
   .Top = 829
   .Width = 170
   .Height = 20
   .Alignment = "taLeftJustify"
   .AlignToBand = False
   .AutoSize = false
   .AutoStretch = False
   .Caption = cstr(Dictionary("NUMABS"))
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clBlack"'10440704
   .Font.Height = -15
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with


  end if
  end with
 end with
end sub


function ON_PREVIEW (inBlb)
shtamp=inBlb
set qPlat=self.Controls("qPlat")
call Init_Components
dim temp
dim s
  NUMPL.Caption=qPlat.fieldbynamestring("NUMPL")
  QRL6.Caption=self.Controls("SumProp").Text
  temp=qplat.fieldbynamestring("SUMMARUB")
  if (temp="") then
   s="0"
  else
  s=cstr(qplat.fieldbynamestring("SUMMARUB"))
  end if
  Label.Caption=s+"-"+self.Controls("SUMMAKOP").Text
  DatPl.Caption=cstr(self.Controls("DAT").value)
  VidPl.Caption=self.Controls("SPOSOBOPLAT").Text
  if(VidPl.Caption="") then
   VidPl.Caption=""
  end if
  INNPlat.Caption= qplat.fieldbynamestring("INNPLATEL")
  NamePl.Caption=  qplat.fieldbynamestring("NAMEPLATEL")
  AccPlat.Caption=  qplat.fieldbynamestring("SCHETPLATEL")
  QRLbank.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")
  NamePol.Caption=  qplat.fieldbynamestring("NAMEPOLUCHAT")
  AccPol.Caption=  qplat.fieldbynamestring("SHETPOLUCH")
  OcherOpl.Caption=  qplat.fieldbynamestring("OCHERPLAT")
  NaznPlat.Caption=  qplat.fieldbynamestring("NAZNPLATEZ")
  INNPol.Caption=  qplat.fieldbynamestring("INNPOLUCHAT")
  KBK.Caption=  qplat.fieldbynamestring("KBK")
  temp=qplat.fieldbynamestring("STNAME")
  if(temp="") then
   OKATO.Caption=""
  else
   OKATO.Caption=  qplat.fieldbynamestring("OKATO")
  end if
  OSN.Caption=  qplat.fieldbynamestring("NAMEOSNOVAN")
  NALPER.Caption=  qplat.fieldbynamestring("NALPER")
  NOMERDOC.Caption=  qplat.fieldbynamestring("NOMERDOC")
  temp=qplat.fieldbynamestring("EDATEDOC")
  if(IsNull(temp)=False) then
   EDATEDOC.Caption=qplat.fieldbynamestring("EDATEDOC")
  end if

  typeName.Caption=qplat.fieldbynamestring("TYPENAME")
  STATNAL.Caption=qplat.fieldbynamestring("STNAME")
  KPPPLATEL.Caption=qplat.fieldbynamestring("KPPPLATEL")
  KPPPOLUCH.Caption=qplat.fieldbynamestring("KPPPOLUCH")

QR.Previewmodal
ON_PREVIEW="0"
end function

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