'===================================================
'    -    MemOrdValFormBr
'==============================================

sub Init_MemOrdValFormBr
with MemOrdValFormBr
 .Left = 143
 .Top = 110
 .BorderStyle = "bsDialog"
 .Caption = " "
 .ClientHeight = 451
 .ClientWidth = 561
 .Color = "clBtnFace"
 .Font.Charset = 204
 .Font.Color = "clWindowText"
 .Font.Height = -11
 .Font.Name = "MS Sans Serif"
 .Font.Style = ""
 .OldCreateOrder = False
 .PixelsPerInch = 96
 MemOrdValFormBr.add "MOVFGroupBox1", "TGroupBox"
 with MOVFGroupBox1
  .Left = 0
  .Top = 15
  .Width = 561
  .Height = 122
  .Align = "alTop"
  .Caption = ""
  .Ctl3D = False
  .Font.Charset = 204
  .Font.Color = "clWindowText"
  .Font.Height = -11
  .Font.Name = "Arial"
  .Font.Style = ""
  .ParentCtl3D = False
  .ParentFont = False
  .TabOrder = 0
  MOVFGroupBox1.add "MOVFTBXLabel1", "TLabel"
 with MOVFTBXLabel1
   .Left = 129
   .Top = 11
   .Width = 31
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox1.add "MOVFTBXLabel2", "TLabel"
 with MOVFTBXLabel2
   .Left = 8
   .Top = 12
   .Width = 38
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox1.add "MOVFTBXLabel3", "TLabel"
 with MOVFTBXLabel3
   .Left = 241
   .Top = 12
   .Width = 77
   .Height = 15
   .AutoSize = False
   .Caption = " "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox1.add "MOVFPAYKIND", "TDBEditEh"
 with MOVFPAYKIND
   .Left = 320
   .Top = 12
   .Width = 120
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 3
   .Visible = True
   end with
  MOVFGroupBox1.add "MOVFPDOCNUM", "TDBEditEh"
 with MOVFPDOCNUM
   .Left = 51
   .Top = 11
   .Width = 74
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 4
   .Visible = True
   end with
  MOVFGroupBox1.add "MOVFTBXLabel10", "TLabel"
 with MOVFTBXLabel10
   .Left = 444
   .Top = 11
   .Width = 75
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox1.add "MOVFPAYQUEUE", "TDBEditEh"
 with MOVFPAYQUEUE
   .Left = 523
   .Top = 10
   .Width = 30
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 6
   .Visible = True
   end with
  MOVFGroupBox1.add "MOVFTBXLabel33", "TLabel"
 with MOVFTBXLabel33
   .Left = 53
   .Top = 57
   .Width = 101
   .Height = 15
   .Caption = " "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox1.add "MOVFSUMPROPV", "TDBEditEh"
 with MOVFSUMPROPV
   .Left = 159
   .Top = 54
   .Width = 394
   .Height = 18
   .TabStop = False
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 8
   .Visible = True
   end with
  MOVFGroupBox1.add "MOVFPDOCDATE", "TDBEditEh"
 with MOVFPDOCDATE
   .Left = 161
   .Top = 11
   .Width = 74
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 9
   .Visible = True
   end with
  MOVFGroupBox1.add "MOVFSUMV", "TDBEditEh"
 with MOVFSUMV
   .Left = 238
   .Top = 33
   .Width = 134
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 10
   .Visible = True
   end with
  MOVFGroupBox1.add "MOVFTBXLabel001", "TLabel"
 with MOVFTBXLabel001
   .Left = 132
   .Top = 35
   .Width = 101
   .Height = 15
   .Caption = " ()"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox1.add "MOVFTBXLabel100", "TLabel"
 with MOVFTBXLabel100
   .Left = 132
   .Top = 78
   .Width = 101
   .Height = 15
   .Caption = " (.)"
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox1.add "MOVFTBXLabel101", "TLabel"
 with MOVFTBXLabel101
   .Left = 53
   .Top = 100
   .Width = 101
   .Height = 15
   .Caption = " "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox1.add "MOVFSUMR", "TDBEditEh"
 with MOVFSUMR
   .Left = 238
   .Top = 76
   .Width = 134
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 14
   .Visible = True
   .Text = ""
   end with
  MOVFGroupBox1.add "MOVFSUMPROPR", "TDBEditEh"
 with MOVFSUMPROPR
   .Left = 159
   .Top = 97
   .Width = 394
   .Height = 18
   .TabStop = False
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = "fsBold"
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 15
   .Visible = True
   end with
  MOVFGroupBox1.add "MOVFTBXLabel13", "TLabel"
 with MOVFTBXLabel13
   .Left = 9
   .Top = 36
   .Width = 81
   .Height = 15
   .Caption = " "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  end with
 MemOrdValFormBr.add "MOVFGroupBox5", "TGroupBox"
 with MOVFGroupBox5
  .Left = 0
  .Top = 137
  .Width = 561
  .Height = 108
  .Align = "alTop"
  .Caption = ""
  .Ctl3D = False
  .Font.Charset = 204
  .Font.Color = "clBlack"
  .Font.Height = -12
  .Font.Name = "Arial"
  .Font.Style = "fsBold"
  .ParentCtl3D = False
  .ParentFont = False
  .TabOrder = 1
  MOVFGroupBox5.add "MOVFLabel1", "TLabel"
 with MOVFLabel1
   .Left = 6
   .Top = 18
   .Width = 56
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox5.add "MOVFTBXLabel20", "TLabel"
 with MOVFTBXLabel20
   .Left = 349
   .Top = 16
   .Width = 31
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox5.add "MOVFTBXLabel21", "TLabel"
 with MOVFTBXLabel21
   .Left = 31
   .Top = 38
   .Width = 30
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox5.add "MOVFPAYERNAME", "TDBEditEh"
 with MOVFPAYERNAME
   .Left = 67
   .Top = 16
   .Width = 275
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 0
   .Visible = True
   end with
  MOVFGroupBox5.add "MOVFPAYERACC", "TDBEditEh"
 with MOVFPAYERACC
   .Left = 388
   .Top = 15
   .Width = 165
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 3
   .Visible = True
   end with
  MOVFGroupBox5.add "MOVFPAYERINN", "TDBEditEh"
 with MOVFPAYERINN
   .Left = 67
   .Top = 37
   .Width = 146
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 4
   .Visible = True
   end with
  MOVFGroupBox5.add "MOVFTBXLabel29", "TLabel"
 with MOVFTBXLabel29
   .Left = 29
   .Top = 61
   .Width = 31
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox5.add "MOVFPAYERBANKNAME", "TDBEditEh"
 with MOVFPAYERBANKNAME
   .Left = 67
   .Top = 60
   .Width = 487
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 6
   .Visible = True
   end with
  MOVFGroupBox5.add "MOVFTBXLabel26", "TLabel"
 with MOVFTBXLabel26
   .Left = 225
   .Top = 84
   .Width = 27
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox5.add "MOVFPAYERBIC", "TDBEditEh"
 with MOVFPAYERBIC
   .Left = 256
   .Top = 81
   .Width = 129
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 8
   .Visible = True
   end with
  MOVFGroupBox5.add "MOVFTBXLabel27", "TLabel"
 with MOVFTBXLabel27
   .Left = 8
   .Top = 84
   .Width = 56
   .Height = 15
   .Caption = ". "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox5.add "MOVFPAYERCORACC", "TDBEditEh"
 with MOVFPAYERCORACC
   .Left = 67
   .Top = 81
   .Width = 151
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 10
   .Visible = True
   end with
  end with
' self.add "MOVFTBXLabel13", "TLabel"
' with MOVFTBXLabel13
'  .Left = 9
'  .Top = 53
'  .Width = 81
'  .Height = 15
'  .Caption = " "
'  .Font.Charset = 204
'  .Font.Color = "clWindowText"
'  .Font.Height = -12
'  .Font.Name = "Arial"
'  .Font.Style = ""
'  .ParentFont = False
'  end with
 MemOrdValFormBr.add "MOVFPAYCODE", "TDBEditEh"
 with MOVFPAYCODE
  .Left = 95
  .Top = 49
  .Width = 30
  .Height = 18
  .Alignment = "taLeftJustify"
  .Color = "clWhite"
  .Ctl3D = False

  .Font.Charset = 204
  .Font.Color = "clWindowText"
  .Font.Height = -11
  .Font.Name = "Arial"
  .Font.Style = ""
  .Flat = True
  .ParentCtl3D = False
  .ParentFont = False
  .ReadOnly = True
  .TabOrder = 3
  .Visible = True
  end with
 MemOrdValFormBr.add "MOVFGroupBox2", "TGroupBox"
 with MOVFGroupBox2
  .Left = 0
  .Top = 245
  .Width = 561
  .Height = 108
  .Align = "alTop"
  .Caption = ""
  .Ctl3D = False
  .Font.Charset = 204
  .Font.Color = "clMaroon"
  .Font.Height = -12
  .Font.Name = "Arial"
  .Font.Style = "fsBold"
  .ParentCtl3D = False
  .ParentFont = False
  .TabOrder = 4
  MOVFGroupBox2.add "MOVFLabel2", "TLabel"
 with MOVFLabel2
   .Left = 6
   .Top = 18
   .Width = 56
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox2.add "MOVFTBXLabel5", "TLabel"
 with MOVFTBXLabel5
   .Left = 31
   .Top = 38
   .Width = 30
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox2.add "MOVFRECIPIENTACC", "TDBEditEh"
 with MOVFRECIPIENTACC
   .Left = 388
   .Top = 15
   .Width = 165
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 1
   .Visible = True
   end with
  MOVFGroupBox2.add "MOVFRECIPIENTINN", "TDBEditEh"
 with MOVFRECIPIENTINN
   .Left = 67
   .Top = 37
   .Width = 146
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 2
   .Visible = True
   end with
  MOVFGroupBox2.add "MOVFTBXLabel6", "TLabel"
 with MOVFTBXLabel6
   .Left = 29
   .Top = 61
   .Width = 31
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox2.add "MOVFRECEIVERBANKNAME", "TDBEditEh"
 with MOVFRECEIVERBANKNAME
   .Left = 67
   .Top = 60
   .Width = 487
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 4
   .Visible = True
   end with
  MOVFGroupBox2.add "MOVFTBXLabel7", "TLabel"
 with MOVFTBXLabel7
   .Left = 225
   .Top = 84
   .Width = 27
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox2.add "MOVFRECIPIENTBIC", "TDBEditEh"
 with MOVFRECIPIENTBIC
   .Left = 256
   .Top = 81
   .Width = 129
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 6
   .Visible = True
   end with
  MOVFGroupBox2.add "MOVFTBXLabel8", "TLabel"
 with MOVFTBXLabel8
   .Left = 8
   .Top = 84
   .Width = 56
   .Height = 15
   .Caption = ". "
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox2.add "MOVFRECEIVERCORACC", "TDBEditEh"
 with MOVFRECEIVERCORACC
   .Left = 67
   .Top = 81
   .Width = 151
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 8
   .Visible = True
   end with
  MOVFGroupBox2.add "MOVFTBXLabel4", "TLabel"
 with MOVFTBXLabel4
   .Left = 349
   .Top = 16
   .Width = 31
   .Height = 15
   .Caption = ""
   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   end with
  MOVFGroupBox2.add "MOVFRECEIVERNAME", "TDBEditEh"
 with MOVFRECEIVERNAME
   .Left = 67
   .Top = 16
   .Width = 275
   .Height = 18
   .Alignment = "taLeftJustify"
   .Color = "clWhite"
   .Ctl3D = False

   .Font.Charset = 204
   .Font.Color = "clWindowText"
   .Font.Height = -11
   .Font.Name = "Arial"
   .Font.Style = ""
   .Flat = True
   .ParentCtl3D = False
   .ParentFont = False
   .ReadOnly = True
   .TabOrder = 10
   .Visible = True
   end with
  end with
 MemOrdValFormBr.add "MOVFPanel1", "TPanel"
 with MOVFPanel1
  .Left = 0
  .Top = 422
  .Width = 561
  .Height = 29
  .Caption = ""
  .Align = "alBottom"
  .TabOrder = 5
  MOVFPanel1.add "MOVFBitBtn1", "TBitBtn"
 with MOVFBitBtn1
   .Left = 461
   .Top = 2
   .Width = 97
   .Height = 25
   .Kind = "bkCancel"
   .Caption = ""
   .TabOrder = 0
   end with
  MOVFPanel1.add "MOVFPrev", "TBitBtn", TRUE
 with MOVFPrev
   .Left = 337
   .Top = 2
   .Width = 117
   .Height = 25
   .Caption = "&. "
   .TabOrder = 1
'   .OnClick = "MOVFPrevClick"
   end with
  end with
 MemOrdValFormBr.add "MOVFPanel", "TPanel"
 with MOVFPanel
  .Left = 0
  .Top = 0
  .Width = 561
  .Height = 15
  .Align = "alTop"
  .Caption = ""
  .BevelOuter = "bvNone"
  .Color = 10972474
  .Font.Charset = 204
  .Font.Color = "clWhite"
  .Font.Height = -11
  .Font.Name = "MS Sans Serif"
  .Font.Style = "fsBold"
  .ParentFont = False
  .TabOrder = 6
  end with
 MemOrdValFormBr.add "MOVFGroupBox3", "TGroupBox"
 with MOVFGroupBox3
  .Left = 0
  .Top = 353
  .Width = 561
  .Height = 66
  .Align = "alTop"
  .Caption = " "
  .Ctl3D = False
  .Font.Charset = 204
  .Font.Color = "clBlack"
  .Font.Height = -12
  .Font.Name = "Arial"
  .Font.Style = "fsBold"
  .ParentCtl3D = False
  .ParentFont = False
  .TabOrder = 7
  MOVFGroupBox3.add "MOVFGROUND", "TMemo"
 with MOVFGROUND
   .Left = 1
   .Top = 16
   .Width = 559
   .Height = 49
   .Align = "alClient"
   .Color = "clWhite"
   .Font.Charset = 204
   .Font.Color = "clBlack"
   .Font.Height = -12
   .Font.Name = "Arial"
   .Font.Style = ""
   .ParentFont = False
   .ReadOnly = False
   .ScrollBars = "ssVertical"
   .TabOrder = 0
   end with
  end with
 end with
end sub

'=============
'sub main
'call Init_MemOrdValFormBr


'   

'Self.Visible = True
'MOVFGROUND.ReadOnly = True

'end sub
'=================


sub mainMemOrdValFormBr
Dim CodVal
Dim RetVal

  set FS=CreateObject("Scripting.FileSystemObject")
  tt=FS.GetFolder("macroses")
  tt=tt+"\..\pictures\PreView.bmp"
  MOVFPrev.Glyph.LoadFromFile(tt)


  '      MOVFPrev.Visible = False
  '     
  
  if (PriznakDocument=3) then MOVFPrev.Visible = False
  if (PriznakDocument=4) then MOVFPrev.Visible = False
  if (PriznakDocument=9) then MOVFPrev.Visible = True

  set qMOVF=Self.Controls("IBQuery1")
' if (PriznakQuery=1) then set qPT=Self.Controls("IBQuery1")

  ' 
   MOVFPDOCNUM.Text = ""
   MOVFPDOCDATE.Text = ""
   MOVFPAYKIND.Text = ""
   MOVFPAYQUEUE.Text = ""
   MOVFPAYCODE.Text = ""
'   MOVFSUM.Text = ""
'   MOVFSUMPROP.Text = ""
   MOVFSUMV.Text  = ""
   MOVFSUMPROPV.Text =  ""
   MOVFSUMR.Text =  ""
   MOVFSUMPROPR.Text =  ""
   MOVFPAYERNAME.Text = ""
   MOVFPAYERACC.Text = ""
   MOVFPAYERINN.Text = ""
   MOVFPAYERBANKNAME.Text = ""
   MOVFPAYERCORACC.Text = ""
   MOVFPAYERBIC.Text = ""
   MOVFRECEIVERNAME.Text = ""
   MOVFRECIPIENTACC.Text = ""
   MOVFRECIPIENTINN.Text = ""
   MOVFRECEIVERBANKNAME.Text = ""
   MOVFRECEIVERCORACC.Text = ""
   MOVFRECIPIENTBIC.Text = ""
   MOVFGROUND.Lines.Clear

  '  
  '
   MOVFPDOCNUM.Text = qMOVF.FieldByNameString("PDOCNUM")
  '
   MOVFPDOCDATE.Text = qMOVF.FieldByNameString("PDOCDATE")
  ' 
   MOVFPAYKIND.Text = qMOVF.FieldByNameString("PAYKIND")
  '
   MOVFPAYQUEUE.Text = qMOVF.FieldByNameString("PAYQUEUE")

  ' 
'   MOVFDBEditEh1.Text = "" 'qMOVF.FieldByNameString("PLATCOND")
  '  
'   MOVFDBEditEh2.Text = "" 'qMOVF.FieldByNameString("PAYDATE")

  ' 
   MOVFPAYCODE.Text = qMOVF.FieldByNameString("PAYCODE")
   
   '  ,    

   CodVal = qMOVF.FieldByNameString("CURRENCYISO")

'    RetVal = MTStrFormat1(qMOVF.FieldByName("SUM"))
'    msgbox RetVal

   if (CodVal="810" or CodVal="RUR") then
     '    
     MOVFTBXLabel100.Visible = False
     MOVFTBXLabel101.Visible = False
     MOVFSUMR.Visible = False
     MOVFSUMPROPR.Visible = False

     MOVFTBXLabel001.Caption = " "
'     MOVFTBXLabel33.Visible = False
'     MOVFSUMV.Visible = False
'     MOVFSUMPROPV.Visible = False

     '   

     qqq = qMOVF.FieldByName("SUM")
     RetVal = MTStrFormat1(qqq)
     MOVFSUMV.Text = RetVal
     MOVFSUMPROPV.Text = SummaPr
     '   GroupBox1
     MOVFGroupBox1.Height = 76
     MemOrdValFormBr.Height = 437
   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
     '    
'     MOVFTBXLabel001.Visible = True
'     MOVFTBXLabel33.Visible = True
'     MOVFSUMV.Visible = True
'     MOVFSUMPROPV.Visible = True

     MOVFTBXLabel001.Caption = "()"

     MOVFTBXLabel100.Visible = True
     MOVFTBXLabel101.Visible = True
     MOVFSUMR.Visible = True
     MOVFSUMPROPR.Visible = True

     '  
     qqq = qMOVF.FieldByName("SUM")
     RetVal = MTStrFormat1(qqq)
     MOVFSUMV.Text = RetVal
     MOVFSUMPROPV.Text = SummaPrRub
     '   
'     if (IsNull(qMOVF.FieldByNameString("NACSUM"))=true) then
'       St11 = "0-00"
'       MsgBox qMOVF.FieldByNameString("NACSUM")
'       MOVFSUMR.Text =MTStrFormat1(qMOVF.FieldByNameString("NACSUM"))
'       MOVFSUMPROPR.Text = SummaPrVal
'       MOVGroupBox1.Height = 76
'     end if
     if (IsNull (qMOVF.FieldByNameString("NACSUM"))=false) then
       qqq = qMOVF.FieldByName("NACSUM")
       RetVal = MTStrFormat1(qqq)
       MOVFSUMR.Text = RetVal
       MOVFSUMPROPR.Text = SummaPrVal
     end if
     '  
          '   GroupBox1
     MOVFGroupBox1.Height = 122
     MemOrdValFormBr.Height = 485

   end if

  ' 
'   MOVFSUMV.Text = qMOVF.FieldByNameString("SUM")
  ' 
'   MOVFSUMPROPV.Text = SummaPr

  ' 
'   MOVFSUMR.Text = qMOVF.FieldByNameString("SUM")
  ' 
'   MOVFSUMPROPR.Text = SummaPr

  '------------------------------

  '
  '
   MOVFPAYERNAME.Text = qMOVF.FieldByNameString("PAYERNAME")
  '
   MOVFPAYERACC.Text = qMOVF.FieldByNameString("PAYERACC")
  '
   MOVFPAYERINN.Text = qMOVF.FieldByNameString("PAYERINN")
  '
   MOVFPAYERBANKNAME.Text = qMOVF.FieldByNameString("PAYERBANKNAME")
  '. 
   MOVFPAYERCORACC.Text = qMOVF.FieldByNameString("PAYERCORACC")
  '
   MOVFPAYERBIC.Text = qMOVF.FieldByNameString("PAYERBIC")

  '------------------------------

  '
  '
   MOVFRECEIVERNAME.Text = qMOVF.FieldByNameString("RECEIVERNAME")
  '
   MOVFRECIPIENTACC.Text = qMOVF.FieldByNameString("RECIPIENTACC")
  '
   MOVFRECIPIENTINN.Text = qMOVF.FieldByNameString("RECIPIENTINN")
  '
   MOVFRECEIVERBANKNAME.Text = qMOVF.FieldByNameString("RECEIVERBANKNAME")
  '. 
   MOVFRECEIVERCORACC.Text = qMOVF.FieldByNameString("RECEIVERCORACC")
  '
   MOVFRECIPIENTBIC.Text = qMOVF.FieldByNameString("RECIPIENTBIC")

  '------------------------------

  '----------------------

  ' 
   MOVFGROUND.Lines.Clear
   MOVFGROUND.Lines.Add(qMOVF.FieldByNameString("GROUND"))
   MOVFGROUND.ReadOnly = False
   MOVFGROUND.ReadOnly = True

  set fs=nothing
end sub

if(isEmpty(MemOrdValFormBr)) then
 self.Add "MemOrdValFormBr","TForm"
 call Init_MemOrdValFormBr
end if

call mainMemOrdValFormBr()
d=MemOrdValFormBr.ShowModal

