'========================================================
'    - 
'===================================================
Dim shtamp

sub Init_MemOrdValView
with MemOrdValView
 .Left = 103
 .Top = 128
 .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
 MemOrdValView.add "MOVVQR", "TQuickRep"
' MemOrdValView.add "MOVVQR", "TQuickRep"
 with MOVVQR
  .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
  MOVVQR.add "MOVVDetailBand1", "TQRBand"
 with MOVVDetailBand1
   .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"
   MOVVDetailBand1.add "MOVVQRLabel3", "TQRLabel"
 with MOVVQRLabel3
    .Left = 2
    .Top = 43
    .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
   MOVVDetailBand1.add "MOVVQRLabel4", "TQRLabel"
 with MOVVQRLabel4
    .Left = 2
    .Top = 59
    .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
   MOVVDetailBand1.add "MOVVQRShape3", "TQRShape"
 with MOVVQRShape3
    .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
   MOVVDetailBand1.add "MOVVQRShape4", "TQRShape"
 with MOVVQRShape4
    .Left = 76
    .Top = 43
    .Width = 2
    .Height = 70
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   MOVVDetailBand1.add "MOVVQRLabel5", "TQRLabel"
 with MOVVQRLabel5
    .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
   MOVVDetailBand1.add "MOVVQRShape5", "TQRShape"
 with MOVVQRShape5
    .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
   MOVVDetailBand1.add "MOVVQRShape6", "TQRShape"
 with MOVVQRShape6
    .Left = 378
    .Top = 113
    .Width = 1
    .Height = 305
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   MOVVDetailBand1.add "MOVVQRLabel6", "TQRLabel"
 with MOVVQRLabel6
    .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
   MOVVDetailBand1.add "MOVVQRShape7", "TQRShape"
 with MOVVQRShape7
    .Left = 435
    .Top = 113
    .Width = 1
    .Height = 305
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   MOVVDetailBand1.add "MOVVQRShape8", "TQRShape"
 with MOVVQRShape8
    .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
   MOVVDetailBand1.add "MOVVQRLabel7", "TQRLabel"
 with MOVVQRLabel7
    .Left = 381
    .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
   MOVVDetailBand1.add "MOVVQRLabel8", "TQRLabel"
 with MOVVQRLabel8
    .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
   MOVVDetailBand1.add "MOVVQRShape9", "TQRShape"
 with MOVVQRShape9
    .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
   MOVVDetailBand1.add "MOVVQRLabel9", "TQRLabel"
 with MOVVQRLabel9
    .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
   MOVVDetailBand1.add "MOVVQRLabel10", "TQRLabel"
 with MOVVQRLabel10
    .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
   MOVVDetailBand1.add "MOVVQRLabel11", "TQRLabel"
 with MOVVQRLabel11
    .Left = 382
    .Top = 313
    .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
   MOVVDetailBand1.add "MOVVQRLabel12", "TQRLabel"
 with MOVVQRLabel12
    .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
   MOVVDetailBand1.add "MOVVQRLabel13", "TQRLabel"
 with MOVVQRLabel13
    .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
   MOVVDetailBand1.add "MOVVQRLabel17", "TQRLabel"
 with MOVVQRLabel17
    .Left = 2
    .Top = 421
    .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
   MOVVDetailBand1.add "MOVVQRLabel18", "TQRLabel"
 with MOVVQRLabel18
    .Left = 2
    .Top = 396
    .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
   MOVVDetailBand1.add "MOVVQRLabel19", "TQRLabel"
 with MOVVQRLabel19
    .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
   MOVVDetailBand1.add "MOVVQRLabel20", "TQRLabel"
 with MOVVQRLabel20
    .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
   MOVVDetailBand1.add "MOVVQRLabel21", "TQRLabel"
 with MOVVQRLabel21
    .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
   MOVVDetailBand1.add "MOVVQRLabel22", "TQRLabel"
 with MOVVQRLabel22
    .Left = 382
    .Top = 343
    .Width = 39
    .Height = 34
    .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
   MOVVDetailBand1.add "MOVVQRLabel23", "TQRLabel"
 with MOVVQRLabel23
    .Left = 382
    .Top = 382
    .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
   MOVVDetailBand1.add "MOVVQRLabel24", "TQRLabel"
 with MOVVQRLabel24
    .Left = 382
    .Top = 401
    .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
   MOVVDetailBand1.add "MOVVQRLabel26", "TQRLabel"
 with MOVVQRLabel26
    .Left = 514
    .Top = 344
    .Width = 64
    .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
   MOVVDetailBand1.add "MOVVQRLabel27", "TQRLabel"
 with MOVVQRLabel27
    .Left = 514
    .Top = 396
    .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
   MOVVDetailBand1.add "MOVVQRShape17", "TQRShape"
 with MOVVQRShape17
    .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
   MOVVDetailBand1.add "MOVVQRShape19", "TQRShape"
 with MOVVQRShape19
    .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
   MOVVDetailBand1.add "MOVVQRShape20", "TQRShape"
 with MOVVQRShape20
    .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
   MOVVDetailBand1.add "MOVVQRShape22", "TQRShape"
 with MOVVQRShape22
    .Left = 510
    .Top = 341
    .Width = 1
    .Height = 76
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   MOVVDetailBand1.add "MOVVQRShape23", "TQRShape"
 with MOVVQRShape23
    .Left = 586
    .Top = 342
    .Width = 1
    .Height = 75
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsVertLine"
    end with
   MOVVDetailBand1.add "MOVVQRShape24", "TQRShape"
 with MOVVQRShape24
    .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
   MOVVDetailBand1.add "MOVVQRShape26", "TQRShape"
 with MOVVQRShape26
    .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
   MOVVDetailBand1.add "MOVVQRL", "TQRLabel"
 with MOVVQRL
    .Left = 456
    .Top = 343
    .Width = 15
    .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 = "09"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVQRShape2", "TQRShape"
 with MOVVQRShape2
    .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
   MOVVDetailBand1.add "MOVVQRShape27", "TQRShape"
 with MOVVQRShape27
    .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
   MOVVDetailBand1.add "MOVVQRShape28", "TQRShape"
 with MOVVQRShape28
    .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
   MOVVDetailBand1.add "MOVVQRLabel32", "TQRLabel"
 with MOVVQRLabel32
    .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
   MOVVDetailBand1.add "MOVVQRShape31", "TQRShape"
 with MOVVQRShape31
    .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
   MOVVDetailBand1.add "MOVVQRLabel34", "TQRLabel"
 with MOVVQRLabel34
    .Left = 193
    .Top = 305
    .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
'   MOVVDetailBand1.add "MOVVQRShape38", "TQRShape"
' with MOVVQRShape38
'    .Left = 654
'    .Top = 2
'    .Width = 26
'    .Height = 26
'    .Frame.Color = "clBlack"
'    .Frame.DrawTop = False
'    .Frame.DrawBottom = False
'    .Frame.DrawLeft = False
'    .Frame.DrawRight = False
'    .Shape = "qrsRectangle"
'    end with
   MOVVDetailBand1.add "MOVVQRShape30", "TQRShape"
 with MOVVQRShape30
    .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
   MOVVDetailBand1.add "MOVVINNPlat", "TQRLabel"
 with MOVVINNPlat
    .Left = 36
    .Top = 115
    .Width = 75
    .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 = "MOVVINNPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -12
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVNamePl", "TQRLabel"
 with MOVVNamePl
    .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 = "MOVVNamePl"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVBikBankPlat", "TQRLabel"
 with MOVVBikBankPlat
    .Left = 454
    .Top = 191
    .Width = 112
    .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 = "MOVVBikBankPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVKorBankPlat", "TQRLabel"
 with MOVVKorBankPlat
    .Left = 454
    .Top = 209
    .Width = 113
    .Height = 17
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = True
    .AutoStretch = False
    .Caption = "MOVVKorBankPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVKorBankPol", "TQRLabel"
 with MOVVKorBankPol
    .Left = 455
    .Top = 270
    .Width = 109
    .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 = "MOVVKorBankPol"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVAccPol", "TQRLabel"
 with MOVVAccPol
    .Left = 456
    .Top = 313
    .Width = 82
    .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 = "MOVVAccPol"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVOcherOpl", "TQRLabel"
 with MOVVOcherOpl
    .Left = 591
    .Top = 373
    .Width = 83
    .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 = "MOVVOcherOpl"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVNameBankPl", "TQRLabel"
 with MOVVNameBankPl
    .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 = "MOVVNameBankPl"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVNameBankPol", "TQRLabel"
 with MOVVNameBankPol
    .Left = 3
    .Top = 249
    .Width = 372
'    .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 = "MOVVNameBankPol"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVNamePol", "TQRLabel"
 with MOVVNamePol
    .Left = 3
    .Top = 327
    .Width = 374
    .Height = 65
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "MOVVNamePol"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVNaznPlat", "TQRLabel"
 with MOVVNaznPlat
    .Left = 3
    .Top = 441
    .Width = 674
    .Height = 70
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Alignment = "taLeftJustify"
    .AlignToBand = False
    .AutoSize = False
    .AutoStretch = False
    .Caption = "MOVVNaznPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
'   MOVVDetailBand1.add "MOVVSTATNAL", "TQRLabel"
' with MOVVSTATNAL
'    .Left = 657
'    .Top = 7
'    .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 = "MOVVSTATNAL"
'    .Color = "clWhite"
'    .Font.Charset = 204
'    .Font.Color = "clWindowText"
'    .Font.Height = -13
'    .Font.Name = "Arial"
'    .Font.Style = ""
'    .ParentFont = False
'    .Transparent = False
'    .WordWrap = True
 '   end with
   MOVVDetailBand1.add "MOVVKPPPLATEL", "TQRLabel"
 with MOVVKPPPLATEL
    .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
   MOVVDetailBand1.add "MOVVKPPPOLUCH", "TQRLabel"
 with MOVVKPPPOLUCH
    .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
   MOVVDetailBand1.add "MOVVQRShape1", "TQRShape"
 with MOVVQRShape1
    .Left = 378
    .Top = 417
    .Width = 302
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   MOVVDetailBand1.add "MOVVQRShape45", "TQRShape"
 with MOVVQRShape45
    .Left = 0
    .Top = 417
    .Width = 378
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   MOVVDetailBand1.add "MOVVImage", "TQRImage"
 with MOVVImage
    .Left = 472
    .Top = 526
    .Width = 174
    .Height = 163
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Stretch = True
    end with
   MOVVDetailBand1.add "MOVVDat", "TQRLabel"
 with MOVVDat
    .Left = 503
    .Top = 588
    .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 = ""
    .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
   MOVVDetailBand1.add "MOVVSUMMAPRR", "TQRLabel"
 with MOVVSUMMAPRR
    .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 = "MOVVSUMMAPRR"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -15
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVSUMMAPRV", "TQRLabel"
 with MOVVSUMMAPRV
    .Left = 80
    .Top = 44
    .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 = "MOVVSUMMAPRV"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -15
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVQRLabel30", "TQRLabel"
 with MOVVQRLabel30
    .Left = 380
    .Top = 132
    .Width = 54
    .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
   MOVVDetailBand1.add "MOVVAccPlat", "TQRLabel"
 with MOVVAccPlat
    .Left = 454
    .Top = 155
    .Width = 86
    .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 = "MOVVAccPlat"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVBikBankPol", "TQRLabel"
 with MOVVBikBankPol
    .Left = 455
    .Top = 249
    .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 = "MOVVBikBankPol"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVQRLabel1", "TQRLabel"
 with MOVVQRLabel1
    .Left = 514
    .Top = 373
    .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
   MOVVDetailBand1.add "MOVVSrokPl", "TQRLabel"
 with MOVVSrokPl
    .Left = 591
    .Top = 344
    .Width = 83
    .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 = "MOVVSrokPl"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVSUMMR", "TQRLabel"
 with MOVVSUMMR
    .Left = 454
    .Top = 132
    .Width = 89
    .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 = "MOVVSUMMR"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOVVSUMMV", "TQRLabel"
 with MOVVSUMMV
    .Left = 454
    .Top = 116
    .Width = 89
    .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 = "MOVVSUMMV"
    .Color = "clWhite"
    .Font.Charset = 204
    .Font.Color = "clWindowText"
    .Font.Height = -13
    .Font.Name = "Arial"
    .Font.Style = ""
    .ParentFont = False
    .Transparent = False
    .WordWrap = True
    end with
   MOVVDetailBand1.add "MOBBQRShape31", "TQRShape"
 with MOBBQRShape31
    .Left = 435
    .Top = 302
    .Width = 245
    .Height = 1
    .Frame.Color = "clBlack"
    .Frame.DrawTop = False
    .Frame.DrawBottom = False
    .Frame.DrawLeft = False
    .Frame.DrawRight = False
    .Shape = "qrsHorLine"
    end with
   end with
  MOVVQR.add "MOVVINNPol", "TQRLabel"
 with MOVVINNPol
   .Left = 110
   .Top = 343
   .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 = "MOVVINNPol"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .Transparent = False
   .WordWrap = True
   end with
  MOVVQR.add "MOVVNUMPL", "TQRLabel"
 with MOVVNUMPL
   .Left = 306
   .Top = 49
   .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
  MOVVQR.add "MOVVQRLabel2", "TQRLabel"
 with MOVVQRLabel2
   .Left = 83
   .Top = 49
   .Width = 216
   .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
  MOVVQR.add "MOVVQRShape14", "TQRShape"
 with MOVVQRShape14
   .Left = 414
   .Top = 60
   .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
  MOVVQR.add "MOVVQRLabel29", "TQRLabel"
 with MOVVQRLabel29
   .Left = 467
   .Top = 63
   .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
  MOVVQR.add "MOVVDatPl", "TQRLabel"
 with MOVVDatPl
   .Left = 421
   .Top = 41
   .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 = "MOVVDatPl"
   .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
  end with
 end with
end sub


sub mainMemOrdValView

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

  ' 
  MOVVNUMPL.Caption= qMOVV.FieldByNameString("PDOCNUM")
  MOVVDatPl.Caption= qMOVV.FieldByNameString("PDOCDATE")

  '
  ' 

   '  ,    

   CodVal = qMOVV.FieldByNameString("CURRENCYISO")

   if (CodVal="810" or CodVal="RUR") then
     '    
     MOVVSUMMAPRR.Caption = ""
     MOVVQRLabel30.Caption = ""
'     MOVFSUMV.Visible = False
     MOVVSUMMR.Caption = ""

     '   
     qqq = qMOVV.FieldByNameString("SUM")
     RetVal = MTStrFormat1(qqq)
     MOVVSUMMV.Caption = RetVal
     MOVVSUMMAPRV.Caption = SummaPr
   end if

   if (CodVal<>"810" and CodVal<>"RUR") then
    ' 
     LenSummaPr = Len(SummaPr)
     SearchChar = ";"
     '   ;
     d=InStr(SummaPr,SearchChar)
     SummaPrVal=Mid(SummaPr,1,d-1)
     SummaPrRubNew=Mid(SummaPr,d+1)

     strfind = "VALUTA"
     strreplace = CodVal
     SimvFirst = Mid(CodVal,1,1)
     CODVALSTR = CodVal
     if ( (SimvFirst="0") or (SimvFirst="1") or (SimvFirst="2") or (SimvFirst="3") or (SimvFirst="4") or (SimvFirst="5") or (SimvFirst="6") or (SimvFirst="7") or (SimvFirst="8") or (SimvFirst="9")) then
       CobZap = cInt(CodVal)
       Query=Mainform.Controls("Folder")
       Query.Active=false
       query.sql.clear
       StrQuery="Select VALSHORT From VALUTA Where VALCODE='" & CobZap & "'"
       query.sql.add cstr(StrQuery)
       query.active=true
       CODVALSTR=query.fieldbynamestring("VALSHORT")
       query.active=false
     end if
     SummaPrRub = Replace(SummaPrRubNew, strfind, CODVALSTR)
   end if

   if (CodVal<>"810" and CodVal<>"RUR") then
     '  
     MOVVQRLabel30.Caption = "."

     qqq = qMOVV.FieldByNameString("SUM")
     RetVal = MTStrFormat1(qqq)
     MOVVSUMMV.Caption = RetVal
     MOVVSUMMAPRV.Caption = SummaPrRub
     '   
     MOVVSUMMR.Caption = "0-00"
     MOVVSUMMAPRR.Caption = ""
     if (IsNull (qMOVV.FieldByNameString("NACSUM"))=false) then
       qqq = qMOVV.FieldByName("NACSUM")
       RetVal = MTStrFormat1(qqq)
       MOVVSUMMR.Caption = RetVal
       MOVVSUMMAPRR.Caption = SummaPrVal
     end if

     
   end if

  '
  MOVVINNPlat.Caption= qMOVV.FieldByNameString("PAYERINN")
  MOVVNamePl.Caption= qMOVV.FieldByNameString("PAYERNAME")
  MOVVAccPlat.Caption=  qMOVV.FieldByNameString("PAYERACC")
  MOVVKPPPLATEL.Caption=  qMOVV.FieldByNameString("KPPPLATEL")


  ' 
  MOVVNameBankPl.Caption=  qMOVV.FieldByNameString("PAYERBANKNAME")
  MOVVBikBankPlat.Caption=  qMOVV.FieldByNameString("PAYERBIC")
  MOVVKorBankPlat.Caption=  qMOVV.FieldByNameString("PAYERCORACC")


  ' 
  MOVVNameBankPol.Caption=  qMOVV.FieldByNameString("RECEIVERBANKNAME")
  MOVVBikBankPol.Caption=  qMOVV.FieldByNameString("RECIPIENTBIC")
  MOVVKorBankPol.Caption=  qMOVV.FieldByNameString("RECEIVERCORACC")

  '
  MOVVINNPol.Caption=  qMOVV.FieldByNameString("RECIPIENTINN")
  MOVVNamePol.Caption=  qMOVV.FieldByNameString("RECEIVERNAME")
  MOVVAccPol.Caption=  qMOVV.FieldByNameString("RECIPIENTACC")
  MOVVKPPPOLUCH.Caption=  qMOVV.FieldByNameString("KPPPOLUCH")


  ' ,  ,   
  '  -   
  MOVVSrokPl.Caption=  " "
'  MOVVSrokPl.Caption=  qMOVV.FieldByNameString("SrokPl")
  MOVVOcherOpl.Caption=  qMOVV.FieldByNameString("PAYQUEUE")
  MOVVNaznPlat.Caption=  qMOVV.FieldByNameString("GROUND")

end sub

MOVFBitBtn1.Enabled=False
MOVFPrev.Enabled=False
Self.Enabled=False
MainForm.Enabled=False


if(isEmpty(MemOrdValView)) then
 self.Add "MemOrdValView","TForm"
 call Init_MemOrdValView
end if

call mainMemOrdValView()
MOVVQR.PreViewModal

Self.Enabled=True
MainForm.Enabled=True
MOVFBitBtn1.Enabled=True
MOVFPrev.Enabled=True
